/[geocaml]/geocaml/src/main.ml
ViewVC logotype

Diff of /geocaml/src/main.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by gmariano, Mon Mar 31 10:11:47 2003 UTC revision 1.6 by adoniec, Tue Apr 1 12:32:47 2003 UTC
# Line 55  let rec analyse_stdin f = Line 55  let rec analyse_stdin f =
55        while true do        while true do
56          let result = Parser.start Lexer.token lexbuf in          let result = Parser.start Lexer.token lexbuf in
57            begin            begin
58              Abrlex.add_abr result Geom.my_figure f;              Abrlex.add_abr_for_im result Geom.my_figure f;
59              redraw f;              redraw f;
60              flush stdout;              flush stdout;
61              print_string "# ";              print_string "# ";

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26