mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 03:05:28 -05:00
14 lines
377 B
OCaml
14 lines
377 B
OCaml
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]"
|