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 2022-01-08 16:21:28 +00:00
parent c8ce0d5c2b
commit 3e1031d88a
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cpdfpagelabels.ml
View File

@ -1,6 +1,5 @@
open Pdfutil open Pdfutil
(* Split the given range (which is in order) into multiple contiguous ones. *) (* Split the given range (which is in order) into multiple contiguous ones. *)
let rec ranges_of_range curr prev = function let rec ranges_of_range curr prev = function
| [] -> begin match curr with [] -> rev prev | _ -> rev (rev curr::prev) end | [] -> begin match curr with [] -> rev prev | _ -> rev (rev curr::prev) end
@ -46,4 +45,3 @@ let add_page_labels pdf progress style prefix startval range =
ranges ranges
startval_additions; startval_additions;
Pdfpagelabels.write pdf !labels Pdfpagelabels.write pdf !labels