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 2021-10-03 18:11:29 +01:00
parent 41f619929f
commit c5bf52d494
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
cpdfjson.ml
View File

@ -19,7 +19,7 @@ let opi = function
| J.Object ["I", J.Number i] -> int_of_string i | J.Object ["I", J.Number i] -> int_of_string i
| _ -> failwith "num: not a float" | _ -> failwith "num: not a float"
let op_of_json = function let rec op_of_json = function
| J.Array [J.String "S"] -> O.Op_S | J.Array [J.String "S"] -> O.Op_S
| J.Array [J.String "s"] -> O.Op_s | J.Array [J.String "s"] -> O.Op_s
| J.Array [J.String "f"] -> O.Op_f | J.Array [J.String "f"] -> O.Op_f
@ -76,7 +76,15 @@ let op_of_json = function
O.Op_Tm O.Op_Tm
{Pdftransform.a = opf a; Pdftransform.b = opf b; Pdftransform.c = opf c; {Pdftransform.a = opf a; Pdftransform.b = opf b; Pdftransform.c = opf c;
Pdftransform.d = opf d; Pdftransform.e = opf e; Pdftransform.f = opf f} Pdftransform.d = opf d; Pdftransform.e = opf e; Pdftransform.f = opf f}
| J.Array [J.String s; J.String "Tj"] -> Op_Tj s
| J.Array [obj; J.String "TJ"] -> Op_TJ (object_of_json obj)
| J.Array [J.String s; J.String "'"] -> Op_' s
| J.Array [a; b; J.String s; J.String "''"] -> Op_'' (opf a, opf b, s)
| J.Array [a; b; J.String "d0"] -> Op_d0 (opf a, opf b)
| J.Array [a; b; c; d; e; f; J.String "d1"] -> Op_d1 (opf a, opf b, opf c, opf d, opf e, opf f)
| J.Array [J.String s; J.String "cs"] -> Op_cs s
| J.Array torev -> | J.Array torev ->
(* sc *) (* SC *) (* scn *)
begin match rev torev with begin match rev torev with
| J.String "SCN"::ns -> O.Op_SCN (map opf (rev ns)) | J.String "SCN"::ns -> O.Op_SCN (map opf (rev ns))
| j -> | j ->
@ -87,7 +95,7 @@ let op_of_json = function
Printf.eprintf "Unable to read op from %s\n" (J.show j); Printf.eprintf "Unable to read op from %s\n" (J.show j);
failwith "op reading failed" failwith "op reading failed"
let rec object_of_json = function and object_of_json = function
| J.Null -> P.Null | J.Null -> P.Null
| J.Bool b -> P.Boolean b | J.Bool b -> P.Boolean b
| J.Number n -> Pdf.Indirect (int_of_string n) | J.Number n -> Pdf.Indirect (int_of_string n)