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
|
CFLAGS = -fPIC
|
||||||
OCAMLFLAGS = -bin-annot
|
OCAMLFLAGS = -bin-annot
|
||||||
OCAMLNCFLAGS = -g -safe-string -w -3
|
OCAMLNCFLAGS = -g -safe-string
|
||||||
OCAMLBCFLAGS = -g -safe-string -w -3
|
OCAMLBCFLAGS = -g -safe-string
|
||||||
OCAMLLDFLAGS = -g
|
OCAMLLDFLAGS = -g
|
||||||
|
|
||||||
all : native-code native-code-library byte-code-library top htdoc
|
all : native-code native-code-library byte-code-library top htdoc
|
||||||
|
|
|
@ -1113,7 +1113,7 @@ let setaddtext s =
|
||||||
setop (AddText s) ()
|
setop (AddText s) ()
|
||||||
|
|
||||||
let parse_color s =
|
let parse_color s =
|
||||||
match String.lowercase s with
|
match String.lowercase_ascii s with
|
||||||
| "white" -> Cpdfaddtext.RGB (1., 1., 1.)
|
| "white" -> Cpdfaddtext.RGB (1., 1., 1.)
|
||||||
| "black" -> Cpdfaddtext.RGB (0., 0., 0.)
|
| "black" -> Cpdfaddtext.RGB (0., 0., 0.)
|
||||||
| "red" -> Cpdfaddtext.RGB (1., 0., 0.)
|
| "red" -> Cpdfaddtext.RGB (1., 0., 0.)
|
||||||
|
|
|
@ -5,7 +5,7 @@ open Pdfio
|
||||||
let pnm_to_channel_24 channel w h s =
|
let pnm_to_channel_24 channel w h s =
|
||||||
let white () = output_char channel ' '
|
let white () = output_char channel ' '
|
||||||
and newline () = output_char channel '\n'
|
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";
|
output_string "P6";
|
||||||
white ();
|
white ();
|
||||||
output_string (string_of_int w);
|
output_string (string_of_int w);
|
||||||
|
|
|
@ -1125,7 +1125,7 @@ module String = struct
|
||||||
let empty = ""
|
let empty = ""
|
||||||
let length = String.length
|
let length = String.length
|
||||||
let append = ( ^ )
|
let append = ( ^ )
|
||||||
let lowercase = String.lowercase
|
let lowercase = String.lowercase_ascii
|
||||||
let iter f s =
|
let iter f s =
|
||||||
let len = Std_string.length s in
|
let len = Std_string.length s in
|
||||||
let pos = ref ~-1 in
|
let pos = ref ~-1 in
|
||||||
|
|
Loading…
Reference in New Issue