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

Support for landscape / portrait page range selections

This commit is contained in:
John Whitington 2014-09-16 14:31:14 +01:00
parent 4ce9606bc6
commit 715bef3acc
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
cpdf.ml
View File

@ -237,17 +237,25 @@ let is_dimension comparison {Pdfpage.mediabox = box} =
let select_dimensions comparison pdf candidates = let select_dimensions comparison pdf candidates =
let pages = Pdfpage.pages_of_pagetree pdf in let pages = Pdfpage.pages_of_pagetree pdf in
let pagenums, kept_pages =
split
(option_map
(fun (index, page) ->
if mem index candidates then Some (index, page) else None)
(combine (indx pages) pages))
in
option_map2 option_map2
(fun pagenum page -> (fun pagenum page ->
if is_dimension comparison page then Some pagenum else None) if is_dimension comparison page then Some pagenum else None)
(keep (mem' candidates) (indx pages)) pagenums
pages kept_pages
let select_portrait = select_dimensions ( < ) let select_portrait = select_dimensions ( < )
let select_landscape = select_dimensions ( > ) let select_landscape = select_dimensions ( > )
let rec mk_numbers pdf endpage = function let rec mk_numbers pdf endpage lexemes =
match lexemes with
| [Pdfgenlex.LexInt n] -> [n] | [Pdfgenlex.LexInt n] -> [n]
| [Pdfgenlex.LexName "end"] -> [endpage] | [Pdfgenlex.LexName "end"] -> [endpage]
| [Pdfgenlex.LexInt n; Pdfgenlex.LexName "-"; Pdfgenlex.LexInt n'] -> | [Pdfgenlex.LexInt n; Pdfgenlex.LexName "-"; Pdfgenlex.LexInt n'] ->