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-01 19:41:23 +01:00
parent c93588ed1b
commit 1badb1ff69
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
cpdfJSON.ml
View File

@ -118,6 +118,12 @@ let op_of_json = function
Pdftransform.d = opf d; Pdftransform.d = opf d;
Pdftransform.e = opf e; Pdftransform.e = opf e;
Pdftransform.f = opf f} Pdftransform.f = opf f}
| J.Array [J.Array fls; y; J.String "d"] -> O.Op_d (map opf fls, opf y)
| J.Array [a; J.String "w"] -> O.Op_w (opf a)
| J.Array [a; J.String "J"] -> O.Op_J (opi a)
| J.Array [a; J.String "M"] -> O.Op_M (opf a)
| J.Array [J.String s; J.String "ri"] -> O.Op_ri s
| J.Array [a; J.String "i"] -> O.Op_i (opi a)
| j -> | j ->
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"