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

more

This commit is contained in:
John Whitington 2023-03-14 19:40:59 +00:00
parent 030d1c7018
commit 447f64c2b6
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
cpdfpagespec.ml
View File

@ -95,7 +95,7 @@ let invert_range endpage r =
let duplicate_range n r = let duplicate_range n r =
flatten (map (fun x -> many x n) r) flatten (map (fun x -> many x n) r)
(* e.g <1> -> 1, <iii> -> x, </>> -> > etc. *) (* e.g [1] -> 1, [iii] -> x, [/]] -> ] etc. *)
let resolve_pagelabels pdf spec = let resolve_pagelabels pdf spec =
let labels = let labels =
let labs = Pdfpagelabels.read pdf in let labs = Pdfpagelabels.read pdf in
@ -104,13 +104,21 @@ let resolve_pagelabels pdf spec =
(ilist 1 (Pdfpage.endpage pdf)) (ilist 1 (Pdfpage.endpage pdf))
in in
(*iter (fun (s, l) -> Printf.printf "%s = %i\n" s l) labels;*) (*iter (fun (s, l) -> Printf.printf "%s = %i\n" s l) labels;*)
let rec readuntilclose a t =
match t with
| ']'::t -> rev a, t
| '\\'::('[' | ']' as c)::t -> readuntilclose (c::a) t
| '['::t -> raise PageSpecBadSyntax
| x::t -> readuntilclose (x::a) t
| [] -> rev a, []
in
let rec resolve_pagelabels_inner = function let rec resolve_pagelabels_inner = function
| '<'::t -> | '['::t ->
let pagelabel, rest = cleavewhile (neq '>') t in let pagelabel, rest = readuntilclose [] t in
let resolved = explode (string_of_int (begin match lookup (implode pagelabel) labels with Some x -> x | None -> 0 end)) in let resolved = explode (string_of_int (begin match lookup (implode pagelabel) labels with Some x -> x | None -> 0 end)) in
if rest = [] then resolved else resolved @ resolve_pagelabels_inner (tl rest) resolved @ resolve_pagelabels_inner rest
| '\\'::('<' | '>' as c)::t -> c::resolve_pagelabels_inner t | '\\'::('[' | ']' as c)::t -> c::resolve_pagelabels_inner t
| '>'::t -> raise PageSpecBadSyntax | ']'::t -> raise PageSpecBadSyntax
| h::t -> h::resolve_pagelabels_inner t | h::t -> h::resolve_pagelabels_inner t
| [] -> [] | [] -> []
in in
@ -118,7 +126,7 @@ let resolve_pagelabels pdf spec =
let rec parse_pagespec_inner endpage pdf spec = let rec parse_pagespec_inner endpage pdf spec =
let spec = if spec = "" then "all" else spec in let spec = if spec = "" then "all" else spec in
(*let spec = implode (resolve_pagelabels pdf (explode spec)) in*) let spec = implode (resolve_pagelabels pdf (explode spec)) in
let spec = space_string spec in let spec = space_string spec in
if endpage < 1 then raise (Pdf.PDFError "This PDF file has no pages and is therefore malformed") else if endpage < 1 then raise (Pdf.PDFError "This PDF file has no pages and is therefore malformed") else
let numbers = let numbers =