First draft of Parser.problem_of_string

[fireball-separation.git] / ocaml / lambda4.mli

diff --git a/ocaml/lambda4.mli b/ocaml/lambda4.mli
index 761bef66d19ca262975a141c82bb78f3dd297b78..4af50606788f0f79e8f54b9b6742fc2e2ef35b0c 100644 (file)
--- a/ocaml/lambda4.mli
+++ b/ocaml/lambda4.mli
@@ -1,3 +1,11 @@
 type problem\r
+\r
+type result = [\r
+ | `Separable of (int * Num.nf) list\r
+ | `Unseparable of string\r
+]\r
+\r
 val problem_of: div:(string option) -> conv:string list -> nums:string list -> problem\r
-val solve: problem -> unit\r
+(* the following will soon replace the one above *)\r
+val problem_of_string_tmp: string -> problem\r
+val solve: problem -> result\r