fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-02-17 20:30:52 +01:00
Code Issues Packages Projects Releases Wiki Activity

more

Browse Source
This commit is contained in:
John Whitington 2016-09-24 17:57:43 +01:00
parent bc20b01061
commit 0c1a8d4763
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
cpdfcommand.ml
View File

@ -4,7 +4,7 @@ let demo = false
let noncomp = false let noncomp = false
let major_version = 2 let major_version = 2
let minor_version = 2 let minor_version = 2
let version_date = "(build of 24th July 2016)" let version_date = "(build of 30th July 2016)"
open Pdfutil open Pdfutil
open Pdfio open Pdfio
@ -924,10 +924,9 @@ let space_units s =
implode (space_units_inner (explode s)) implode (space_units_inner (explode s))
let parse_units_string pdf page s = let parse_units_string pdf page s =
Printf.printf "Parsing string [%s]\n" s;
let fs = parse_units pdf page [] (Pdfgenlex.lex_string <| space_units s) in let fs = parse_units pdf page [] (Pdfgenlex.lex_string <| space_units s) in
Printf.printf "Got numbers: %s\n" (*(List.fold_left (fun x y -> x ^ " " ^ y) "" (List.map string_of_float
(List.fold_left (fun x y -> x ^ " " ^ y) "" (List.map string_of_float fs)); * fs));*)
fs fs
let parse_rectangle pdf s = let parse_rectangle pdf s =
@ -2921,7 +2920,7 @@ let dump_attachment out pdf (_, embeddedfile) =
| _ -> error "Bad embedded file stream" | _ -> error "Bad embedded file stream"
end end
in in
let filename = if out = "" then s else out ^ "/" ^ s in let filename = if out = "" then s else out ^ "/" ^ s in (* FIXME dirsep! *)
(*i Printf.printf "writing to %s\n" filename; i*) (*i Printf.printf "writing to %s\n" filename; i*)
let fh = open_out_bin filename in let fh = open_out_bin filename in
for x = 0 to bytes_size efdata - 1 do output_byte fh (bget efdata x) done; for x = 0 to bytes_size efdata - 1 do output_byte fh (bget efdata x) done;