From a68f225e90c1c028df79a1efbcc7ec441b5ed5a2 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Sun, 23 Nov 2014 19:20:41 +0000
Subject: [PATCH] Added architecture for -keep-l, but not yet implemented

---
 cpdfcommand.ml | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 8bfed91..6606774 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -290,6 +290,7 @@ type args =
    mutable inputs : input list;
    mutable chunksize : int;
    mutable linearize : bool;
+   mutable keeplinearize : bool;
    mutable rectangle : float * float * float * float;
    mutable coord : float * float;
    mutable duration : float option;
@@ -372,6 +373,7 @@ let args =
    inputs = [];
    chunksize = 1;
    linearize = false;
+   keeplinearize = false;
    rectangle = 0., 0., 0., 0.;
    coord = 0., 0.;
    duration = None;
@@ -449,6 +451,7 @@ let reset_arguments () =
   args.inputs <- [];
   args.chunksize <- 1;
   args.linearize <- false;
+  args.keeplinearize <- false;
   args.rectangle <- 0., 0., 0., 0.;
   args.coord <- 0., 0.;
   args.duration <- None;
@@ -632,6 +635,9 @@ let setchunk c =
 let setlinearize () =
   args.linearize <- true
 
+let setkeeplinearize () =
+  args.keeplinearize <- true
+
 let fixdashes s =
   let bufferdashes chars =
     let buf = ref [] in
@@ -1383,6 +1389,10 @@ and specs =
    ("-l",
        Arg.Unit setlinearize,
        " Linearize output files where possible");
+   ("-keep-l", (* Must add rentention of was-linearized to pdf data type, read
+   it in Pdfread module *)
+       Arg.Unit setkeeplinearize,
+       "");
    ("-cpdflin",
        Arg.String setcpdflin,
        " Set location of 'cpdflin'");