more

cpdfcommand.ml

@@ -2097,12 +2097,6 @@ let addrendermode i =
 let addrise f =
   addop (Cpdfdraw.Rise f)
 
-let addurl s =
-  addop (Cpdfdraw.URL s)
-
-let addendurl () =
-  addop Cpdfdraw.EndURL
-
 let addleading f =
   addop (Cpdfdraw.Leading f)
 
@@ -2956,8 +2950,6 @@ and specs =
    ("-et", Arg.Unit addet, " End text");
    ("-text", Arg.String addtext, " Draw text ");
    ("-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");
    ("-charspace", Arg.Float addcharspace, " Set character spacing");
    ("-wordspace", Arg.Float addwordspace, " Set word space");

cpdfdraw.ml

@@ -48,8 +48,6 @@ type drawops =
   | TextScale of float
   | RenderMode of int
   | Rise of float
-  | URL of string
-  | EndURL
 
 (* Per page resources *)
 type res = 
@@ -59,7 +57,6 @@ type res =
    form_xobjects : (string, (string * int)) Hashtbl.t; (* (name, (pdf name, objnum)) *)
    mutable page_names : string list;
    mutable time : Cpdfstrftime.t;
-   mutable current_url : string option;
    mutable current_font : Pdftext.font;
    mutable num : int}
 
@@ -70,7 +67,6 @@ let empty_res =
    form_xobjects = null_hash ();
    page_names = [];
    time = Cpdfstrftime.dummy;
-   current_url = None;
    current_font = Pdftext.StandardFont (Pdftext.TimesRoman, Pdftext.WinAnsiEncoding);
    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
   | Opacity 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) ->
       let font = Pdftext.StandardFont (s, Pdftext.WinAnsiEncoding) in
       let (n, _) =

cpdfdraw.mli

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