diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-04-27 23:24:19 -0300 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2026-04-27 23:24:19 -0300 |
| commit | 97960adb8426e5270fe16b027e82a2c61674f821 (patch) | |
| tree | 03da5611898c06cd3868d4384ef4259005a29b69 /lib/prl/parser.ml | |
| parent | 56492ad5f6f09d8c9f337d42803b64d1b9f0668b (diff) | |
| download | Sakura-97960adb8426e5270fe16b027e82a2c61674f821.tar.gz Sakura-97960adb8426e5270fe16b027e82a2c61674f821.zip | |
Foreign call PRL (#67)
Diffstat (limited to 'lib/prl/parser.ml')
| -rw-r--r-- | lib/prl/parser.ml | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lib/prl/parser.ml b/lib/prl/parser.ml new file mode 100644 index 0000000..17102a4 --- /dev/null +++ b/lib/prl/parser.ml @@ -0,0 +1,12 @@ +type error = ParseError of string + +let of_sexp sexp = + let sexp = + match sexp with Sexplib.Sexp.List [ atom ] -> atom | other -> other + in + match Ast.statement_of_sexp sexp with + | stmt -> Ok stmt + | exception exn -> Error (ParseError (Printexc.to_string exn)) + +let of_string s = of_sexp (Sexplib.Sexp.of_string s) +let to_string stmt = Ast.sexp_of_statement stmt |> Sexplib.Sexp.to_string_hum |