Commit daa8b955 authored by POTTIER Francois's avatar POTTIER Francois

Modified [calc-incremental] to do a quick test of the [view] function.

parent ed8b8965
......@@ -3,6 +3,21 @@
module I =
(* The length of a stream. *)
let rec length xs =
match Lazy.force xs with
| I.Nil ->
| I.Cons (_, xs) ->
1 + length xs
(* A measure of the stack height. Used as a primitive way of
testing the [view] function. *)
let height env =
length (I.view env)
(* Define the loop which drives the parser. At each iteration,
we analyze a result produced by the parser, and act in an
appropriate manner. *)
......@@ -10,6 +25,9 @@ module I =
let rec loop linebuf (result : int I.result) =
match result with
| I.InputNeeded env ->
if false then
Printf.fprintf stderr "Stack height: %d\n%!" (height env);
(* The parser needs a token. Request one from the lexer,
and offer it to the parser, which will produce a new
result. Then, repeat. *)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment