fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

more

This commit is contained in:
John Whitington 2023-05-09 13:40:38 +01:00
parent 484c30b9ab
commit a2628254b8
3 changed files with 0 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
cpdfcommand.ml
View File

@ -2097,12 +2097,6 @@ let addrendermode i =
let addrise f = let addrise f =
addop (Cpdfdraw.Rise f) addop (Cpdfdraw.Rise f)
let addurl s =
addop (Cpdfdraw.URL s)
let addendurl () =
addop Cpdfdraw.EndURL
let addleading f = let addleading f =
addop (Cpdfdraw.Leading f) addop (Cpdfdraw.Leading f)
@ -2956,8 +2950,6 @@ and specs =
("-et", Arg.Unit addet, " End text"); ("-et", Arg.Unit addet, " End text");
("-text", Arg.String addtext, " Draw text "); ("-text", Arg.String addtext, " Draw text ");
("-stext", Arg.String addspecialtext, " Draw text with %specials"); ("-stext", Arg.String addspecialtext, " Draw text with %specials");
("-url", Arg.String addurl, " Begin URL");
("-endurl", Arg.Unit addendurl, " End URL");
("-leading", Arg.Float addleading, " Set leading"); ("-leading", Arg.Float addleading, " Set leading");
("-charspace", Arg.Float addcharspace, " Set character spacing"); ("-charspace", Arg.Float addcharspace, " Set character spacing");
("-wordspace", Arg.Float addwordspace, " Set word space"); ("-wordspace", Arg.Float addwordspace, " Set word space");

10
cpdfdraw.ml
View File

@ -48,8 +48,6 @@ type drawops =
| TextScale of float | TextScale of float
| RenderMode of int | RenderMode of int
| Rise of float | Rise of float
| URL of string
| EndURL
(* Per page resources *) (* Per page resources *)
type res = type res =
@ -59,7 +57,6 @@ type res =
form_xobjects : (string, (string * int)) Hashtbl.t; (* (name, (pdf name, objnum)) *) form_xobjects : (string, (string * int)) Hashtbl.t; (* (name, (pdf name, objnum)) *)
mutable page_names : string list; mutable page_names : string list;
mutable time : Cpdfstrftime.t; mutable time : Cpdfstrftime.t;
mutable current_url : string option;
mutable current_font : Pdftext.font; mutable current_font : Pdftext.font;
mutable num : int} mutable num : int}
@ -70,7 +67,6 @@ let empty_res =
form_xobjects = null_hash (); form_xobjects = null_hash ();
page_names = []; page_names = [];
time = Cpdfstrftime.dummy; time = Cpdfstrftime.dummy;
current_url = None;
current_font = Pdftext.StandardFont (Pdftext.TimesRoman, Pdftext.WinAnsiEncoding); current_font = Pdftext.StandardFont (Pdftext.TimesRoman, Pdftext.WinAnsiEncoding);
num = 0} num = 0}
@ -199,12 +195,6 @@ let rec ops_of_drawop pdf endpage filename bates batespad num page = function
| NewPage -> Pdfe.log ("NewPage remaining in graphic stream"); assert false | NewPage -> Pdfe.log ("NewPage remaining in graphic stream"); assert false
| Opacity v -> [Pdfops.Op_gs (extgstate "/ca" v)] | Opacity v -> [Pdfops.Op_gs (extgstate "/ca" v)]
| SOpacity v -> [Pdfops.Op_gs (extgstate "/CA" v)] | SOpacity v -> [Pdfops.Op_gs (extgstate "/CA" v)]
| URL s ->
(res ()).current_url <- Some s;
[]
| EndURL ->
(res ()).current_url <- None;
[]
| Font (s, f) -> | Font (s, f) ->
let font = Pdftext.StandardFont (s, Pdftext.WinAnsiEncoding) in let font = Pdftext.StandardFont (s, Pdftext.WinAnsiEncoding) in
let (n, _) = let (n, _) =

2
cpdfdraw.mli
View File

@ -46,8 +46,6 @@ type drawops =
| TextScale of float | TextScale of float
| RenderMode of int | RenderMode of int
| Rise of float | Rise of float
| URL of string
| EndURL
val draw : filename:string -> val draw : filename:string ->
bates:int -> bates:int ->