mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 03:05:28 -05:00
20 lines
425 B
OCaml
20 lines
425 B
OCaml
|
|
open Result
|
|
|
|
let pp_sexp s = match s with
|
|
| Ok l ->
|
|
List.iter
|
|
(fun s -> Format.printf "@[%a@]@." CCSexp.pp s)
|
|
l
|
|
| Error msg ->
|
|
Format.printf "error: %s@." msg
|
|
|
|
let () =
|
|
match Sys.argv with
|
|
| [| _ |] ->
|
|
let s = CCSexp.parse_chan_list stdin in
|
|
pp_sexp s
|
|
| [| _; file |] ->
|
|
let s = CCSexp.parse_file_list file in
|
|
pp_sexp s
|
|
| _ -> failwith "usage: id_sexp [file]"
|