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 2020-01-30 16:11:29 +00:00
parent d6fc80235f
commit cbce71cfd1
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
cpdfwriteJSON.ml
View File

@ -69,11 +69,12 @@ let json_of_op = function
J.String "cm"] J.String "cm"]
| O.Op_d (fl, y) -> | O.Op_d (fl, y) ->
J.Array [J.Array (List.map (fun x -> J.Number (sof x)) fl); J.Number (sof y); J.String "d"] J.Array [J.Array (List.map (fun x -> J.Number (sof x)) fl); J.Number (sof y); J.String "d"]
| O.Op_w w -> J.Array [J.Number (sof w); J.String "w"]
| _ -> J.Array [J.String "UNIMPLEMENTED"] | _ -> J.Array [J.String "UNIMPLEMENTED"]
(* | O.Op_w w -> J.Array [J.String "w"]
| O.Op_J j -> J.Array [J.String "J"] (* | O.Op_J j -> J.Array [J.String "J"]
| O.Op_M m -> J.Array [J.String "m"] | O.Op_M m -> J.Array [J.String "m"]
| O.Op_ri s -> J.Array [J.String "ri"] | O.Op_ri s -> J.Array [J.String "ri"]
| O.Op_i i -> J.Array [J.String "i"] | O.Op_i i -> J.Array [J.String "i"]