Remove -w3 and fix deprecations
This commit is contained in:
parent
5a41adc5b2
commit
cad98fba51
4
Makefile
4
Makefile
|
@ -15,8 +15,8 @@ PACKS = camlpdf
|
|||
|
||||
CFLAGS = -fPIC
|
||||
OCAMLFLAGS = -bin-annot
|
||||
OCAMLNCFLAGS = -g -safe-string -w -3
|
||||
OCAMLBCFLAGS = -g -safe-string -w -3
|
||||
OCAMLNCFLAGS = -g -safe-string
|
||||
OCAMLBCFLAGS = -g -safe-string
|
||||
OCAMLLDFLAGS = -g
|
||||
|
||||
all : native-code native-code-library byte-code-library top htdoc
|
||||
|
|
|
@ -1113,7 +1113,7 @@ let setaddtext s =
|
|||
setop (AddText s) ()
|
||||
|
||||
let parse_color s =
|
||||
match String.lowercase s with
|
||||
match String.lowercase_ascii s with
|
||||
| "white" -> Cpdfaddtext.RGB (1., 1., 1.)
|
||||
| "black" -> Cpdfaddtext.RGB (0., 0., 0.)
|
||||
| "red" -> Cpdfaddtext.RGB (1., 0., 0.)
|
||||
|
|
|
@ -5,7 +5,7 @@ open Pdfio
|
|||
let pnm_to_channel_24 channel w h s =
|
||||
let white () = output_char channel ' '
|
||||
and newline () = output_char channel '\n'
|
||||
and output_string = Pervasives.output_string channel in
|
||||
and output_string = Stdlib.output_string channel in
|
||||
output_string "P6";
|
||||
white ();
|
||||
output_string (string_of_int w);
|
||||
|
|
|
@ -1125,7 +1125,7 @@ module String = struct
|
|||
let empty = ""
|
||||
let length = String.length
|
||||
let append = ( ^ )
|
||||
let lowercase = String.lowercase
|
||||
let lowercase = String.lowercase_ascii
|
||||
let iter f s =
|
||||
let len = Std_string.length s in
|
||||
let pos = ref ~-1 in
|
||||
|
|
Loading…
Reference in New Issue