Commit b2c95e10 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2002-11-11 11:18:18 by cvscast] Empty log message

Original author: cvscast
Date: 2002-11-11 11:18:18+00:00
parent 8940ec0f
open Printf
open Parser
open Parser
type line_buffer =
......@@ -38,6 +38,7 @@ let refill_buf buffer len =
!i
with
| End_of_file ->
print_newline();
if !i > 0 then (got_eof := true; !i) else 0
| Exit -> !i
end
......@@ -72,13 +73,17 @@ let loop =
let input = Stream.from (scan line_buffer) in
Sys.catch_break true;
while true do
first_line := true;
let semicolon = ref 0 in
while !semicolon < 2 do
let c = Stream.next input in
if c = ';' then incr semicolon
else semicolon := 0
done
try
first_line := true;
let semicolon = ref 0 in
while !semicolon < 2 do
let c = Stream.next input in
if c = ';' then incr semicolon
else semicolon := 0
done
with
| End_of_file -> exit 0
| Sys.Break -> fprintf stdout "Chang d'avis?\n"
done
......
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