Excised linearizated writing. Much rejoicing.

johnwhitington · Oct 1, 2014 · acceee1 · acceee1
1 parent 020bcee
commit acceee1
Show file tree

Hide file tree

Showing 4 changed files with 1,032 additions and 1,025 deletions.
diff --git a/pdfpage.ml b/pdfpage.ml
@@ -884,14 +884,14 @@ let postpend_operators pdf ops ?(fast=false) page =
       {page with content =
          [Pdfops.stream_of_ops (beforeops @ Pdfops.parse_operators pdf page.resources page.content @ afterops)]}
 
-(* Ensure that there are no inherited attributes in the page tree --- in other
+(* (* Ensure that there are no inherited attributes in the page tree --- in other
 words they are all explicit. This is required before writing a file with
 linearization *)
 let pagetree_make_explicit pdf =
   let pages = pages_of_pagetree pdf in
-    change_pages true pdf pages
+    change_pages true pdf pages*)
 
 (* Set the reference in Pdfwrite for inter-module recursion. *)
-let _ =
-  Pdfwrite.pagetree_make_explicit := pagetree_make_explicit
+(*let _ =
+  Pdfwrite.pagetree_make_explicit := pagetree_make_explicit*)
 
diff --git a/pdfpage.mli b/pdfpage.mli
@@ -80,7 +80,7 @@ val postpend_operators : Pdf.t -> Pdfops.t list -> ?fast:bool -> t -> t
 (** Ensure that there are no inherited attributes in the page tree --- in other
 words they are all explicit. This is required before writing a file with
 linearization *)
-val pagetree_make_explicit : Pdf.t -> Pdf.t
+(*val pagetree_make_explicit : Pdf.t -> Pdf.t*)
 
 val pagenumber_of_target : ?refnums:int list -> Pdf.t -> Pdfdest.t -> int