fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Moving cpdfst to camlpdf

This commit is contained in:
John Whitington 2024-07-03 17:07:57 +01:00
parent b6e93f821a
commit a8b985c270
4 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile
View File

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

4
cpdfcommand.ml
View File

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

5
cpdfst.ml
View File

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

4
cpdfst.mli
View File

@ -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