From 248ea494e4da28a7d68ffb1ac3cc612d96d64aa0 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Tue, 20 Mar 2018 10:19:50 +0000
Subject: [PATCH] Debug code

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

diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 6eb2bb5..453f5d6 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -348,6 +348,7 @@ type args =
    mutable no_hq_print : bool;
    mutable debug : bool;
    mutable debugcrypt : bool;
+   mutable debugforce : bool;
    mutable boxes : bool;
    mutable encrypt_metadata : bool;
    mutable retain_numbering : bool;
@@ -433,6 +434,7 @@ let args =
    no_hq_print = false;
    debug = false;
    debugcrypt = false;
+   debugforce = false;
    boxes = false;
    encrypt_metadata = true;
    retain_numbering = false;
@@ -518,6 +520,7 @@ let reset_arguments () =
   args.no_hq_print <- false;
   args.debug <- false;
   args.debugcrypt <- false;
+  args.debugforce <- false;
   args.boxes <- false;
   args.encrypt_metadata <- true;
   args.retain_numbering <- false;
@@ -625,6 +628,7 @@ let banned banlist = function
       mem Pdfcrypt.NoEdit banlist
 
 let operation_allowed pdf banlist op =
+  args.debugforce || 
   match op with
   | None ->
       if args.debugcrypt then Printf.printf "operation is None, so allowed!\n";
@@ -1291,6 +1295,9 @@ let setdebug () =
 let setdebugcrypt () =
   args.debugcrypt <- true
 
+let setdebugforce () =
+  args.debugforce <- true
+
 let setboxes () =
   args.boxes <- true
 
@@ -2091,6 +2098,7 @@ and specs =
    ("-gs", Arg.String setgspath, "");
    ("-debug", Arg.Unit setdebug, "");
    ("-debug-crypt", Arg.Unit setdebugcrypt, "");
+   ("-debug-force", Arg.Unit setdebugforce, "");
    ("-fix-prince", Arg.Unit (setop RemoveUnusedResources), "");
    ("-extract-text", Arg.Unit (setop ExtractText), "");
    ("-extract-text-font-size", Arg.Float setextracttextfontsize, "");