From a2628254b811a082b007122979c398bae90319c2 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Tue, 9 May 2023 13:40:38 +0100
Subject: [PATCH] more

---
 cpdfcommand.ml |  8 --------
 cpdfdraw.ml    | 10 ----------
 cpdfdraw.mli   |  2 --
 3 files changed, 20 deletions(-)

diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 2c5f4f5..a5ecee4 100644
--- a/cpdfcommand.ml
+++ b/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");
diff --git a/cpdfdraw.ml b/cpdfdraw.ml
index d2745fc..3048691 100644
--- a/cpdfdraw.ml
+++ b/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, _) =
diff --git a/cpdfdraw.mli b/cpdfdraw.mli
index 1e46d24..b519ec8 100644
--- a/cpdfdraw.mli
+++ b/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 ->