simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-05 19:00:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

update examples/id_sexp so it can read on stdin

Browse source
This commit is contained in:
Simon Cruanes 2016-01-18 12:07:04 +01:00
parent cf931aabb1
commit b000355a74
1 changed files with 11 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
examples/id_sexp.ml
View file

@ -1,13 +1,18 @@
let () =
if Array.length Sys.argv <> 2 then failwith "usage: id_sexp file";
let f = Sys.argv.(1) in
let s = CCSexpM.parse_file_list f in
match s with
let pp_sexp s = match s with
| `Ok l ->
List.iter
(fun s -> Format.printf "@[%a@]@." CCSexpM.print s)
l
| `Error msg ->
Format.printf "error: %s@." msg
let () =
match Sys.argv with
| [| _ |] ->
let s = CCSexpM.parse_chan_list stdin in
pp_sexp s
| [| _; file |] ->
let s = CCSexpM.parse_file_list file in
pp_sexp s
| _ -> failwith "usage: id_sexp [file]"