Moving cpdfst to camlpdf

Makefile

@@ -8,7 +8,7 @@ DOC = cpdfunicodedata cpdferror cpdfdebug cpdfjson cpdfstrftime cpdfcoord \
       cpdfsqueeze cpdfdraft cpdfspot cpdfpagelabels cpdfcreate cpdfannot \
       cpdfxobject cpdfimpose cpdfchop cpdftweak cpdftexttopdf cpdftoc \
       cpdfjpeg cpdfjpeg2000 cpdfpng cpdfimage cpdfdraw cpdfcomposition \
-      cpdfshape cpdfcolours cpdfdrawcontrol cpdfprinttree cpdfst cpdfua \
+      cpdfshape cpdfcolours cpdfdrawcontrol cpdfprinttree cpdfua \
       cpdfcommand
 
 MODS = $(NONDOC) $(DOC)

cpdfcommand.ml

@@ -3492,6 +3492,7 @@ let go () =
                 | [pdf] ->
                     if hd ranges <> "all" then
                       let range = parse_pagespec pdf (hd ranges) in
+                        (* FIXME STRUCTURE TREE TRIM *)
                         let newpdf = Pdfpage.pdf_of_pages ~retain_numbering:args.retain_numbering pdf range in
                           write_pdf false newpdf
                     else
@@ -3920,6 +3921,7 @@ let go () =
         | _ -> error "Split: bad parameters"
       end
   | Some (SplitOnBookmarks level) ->
+      (* FIXME STRUCTURE TREE TRIM *)
       begin match args.out with
         | File output_spec ->
             let pdf = get_single_pdf args.op false in
@@ -3931,6 +3933,7 @@ let go () =
         | NoOutputSpecified -> error "Split: No output format specified"
       end
   | Some (SplitMax s) ->
+      (* FIXME STRUCTURE TREE TRIM *)
       begin match args.out with
         | File output_spec ->
             let pdf = get_single_pdf args.op false in
@@ -3941,6 +3944,7 @@ let go () =
         | NoOutputSpecified -> error "Split: No output format specified"
       end
   | Some Spray ->
+      (* FIXME STRUCTURE TREE TRIM *)
       begin match args.inputs, args.out with
         | (_, pagespec, _, _, _, _)::_, File output_spec ->
             let pdf = get_single_pdf args.op false in

cpdfst.ml

@@ -1,5 +0,0 @@
-(* Operations on structure trees. *)
-open Pdfutil
-
-let trim_structure_tree pdf range =
-  flprint "trim_structure_tree\n"

cpdfst.mli

@@ -1,4 +0,0 @@
-(** Structure trees *)
-
-(** Trim structure tree to remove parts marked as not in the page range given. *)
-val trim_structure_tree : Pdf.t -> int list -> unit