From 12af6510d33e91351603a315827f4fe55b32476d Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Fri, 20 Sep 2024 17:01:41 +0100
Subject: [PATCH] -debug-readable-ops

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

diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 336aa38..da42d19 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -1897,6 +1897,10 @@ let expand_namespace = function
   | "PDF2" -> pdf2_namespace
   | x -> x
 
+let setreadableops () =
+  Pdfops.whitespace := "\n";
+  Pdfops.always_add_whitespace := true
+
 let specs =
    [("-version",
       Arg.Unit (setop Version),
@@ -2899,6 +2903,7 @@ let specs =
    ("-debug-force", Arg.Unit (fun () -> args.debugforce <- true), "");
    ("-debug-malformed", Arg.Set Pdfread.debug_always_treat_malformed, "");
    ("-debug-stderr-to-stdout", Arg.Unit setstderrtostdout, "");
+   ("-debug-readable-ops", Arg.Unit setreadableops, "");
    ("-stay-on-error", Arg.Unit setstayonerror, "");
    (* These items are unfinished *)
    ("-extract-text", Arg.Unit (setop ExtractText), "");