fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-04-13 09:52:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

more

Browse Source
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
(* Split the given range (which is in order) into multiple contiguous ones. *)
let rec ranges_of_range curr prev = function
| [] -> 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
startval_additions;
Pdfpagelabels.write pdf !labels