Commit e655b8de authored by Erwan Jahier's avatar Erwan Jahier
Browse files

lurette 0.82 Mon, 02 Sep 2002 16:59:37 +0200 by jahier

Parent-Version:      0.81
Version-Log:

source/lurette.ml:
source/ima_exe.ml:
   Check that nodes did not changed before redrawing anything

   also add a <<q>> command to exit from ima_exe more gently.

Project-Description: Lurette
parent 8773bbd9
;; -*- Prcs -*-
(Created-By-Prcs-Version 1 3 3)
(Project-Description "Lurette")
(Project-Version lurette 0 81)
(Parent-Version lurette 0 80)
(Project-Version lurette 0 82)
(Parent-Version lurette 0 81)
(Version-Log "
source/control.ml:
Give a proper error message when one uses a ctrl expr that
is not defined.
source/lurette.ml:
source/ima_exe.ml:
Check that nodes did not changed before redrawing anything
also add a <<q>> command to exit from ima_exe more gently.
")
(New-Version-Log "")
(Checkin-Time "Mon, 02 Sep 2002 16:13:16 +0200")
(Checkin-Time "Mon, 02 Sep 2002 16:59:37 +0200")
(Checkin-Login jahier)
(Populate-Ignore ())
(Project-Keywords)
......@@ -22,14 +24,14 @@ source/control.ml:
;; Sources files for ima_exe
(source/ima_exe.mli (lurette/b/31_ima_exe.ml 1.1 644))
(source/ima_exe.ml (lurette/b/32_ima_exe.ml 1.16 644))
(source/ima_exe.ml (lurette/b/32_ima_exe.ml 1.17 644))
(source/command_line_ima_exe.ml (lurette/b/33_command_li 1.4 644))
(source/command_line_ima_exe.mli (lurette/b/34_command_li 1.3 644))
;; Sources files for lurette only
(source/lurette.mli (lurette/11_lurette.ml 1.12 644))
(source/lurette.ml (lurette/12_lurette.ml 1.47 644))
(source/lurette.ml (lurette/12_lurette.ml 1.48 644))
(source/command_line.ml (lurette/b/20_command_li 1.7 644))
(source/command_line.mli (lurette/b/21_command_li 1.6 644))
......
......@@ -82,7 +82,7 @@ let (replace_env_dynamically: rif_stream -> unit) =
(*------------------------------------------------------------------------*)
(* RIF parsing *)
let lexer = Genlex.make_lexer ["#"; "x"; "load_ima"; "#@"; "@#"]
let lexer = Genlex.make_lexer ["q"; "#"; "x"; "load_ima"; "#@"; "@#"]
let rif_pragmas = ["inputs"]
(* Which pragmas should be defined ? *)
......@@ -142,6 +142,12 @@ and (parse_rif_stream : vnt list -> rif_stream -> env_in -> env_in) =
Stream.junk stream ;
parse_rif_stream vntl (lexer (Stream.of_string (read_line ()))) tbl
| (Genlex.Kwd "q")::_
(* Ditto *)
->
print_string "bye!\n";
exit 0
| (Genlex.Kwd "#@")::_ ->
(* Beginning of multi-line comment. Note that here,
unlike the rif format, we ignore multi line pragmas;
......@@ -408,6 +414,7 @@ and
write_rif_output (Env_state.out_env_unsorted ()) out ;
if options.show_automata then (
if (previous_nodes <> Env_state.current_nodes ()) then
Show_env.ima_to_dot (flatten (Env_state.current_nodes ()))
(flatten previous_nodes) ("automata" ^ (string_of_int (Hashtbl.hash Sys.argv)))
(Env_state.graph ())
......
......@@ -363,6 +363,7 @@ and
let str =
if (options.step_by_step) then (
if (previous_nodes <> Env_state.current_nodes ()) then
Show_env.ima_to_dot (flatten (Env_state.current_nodes ()))
(flatten previous_nodes) ("environment"
^ (string_of_int (Hashtbl.hash Sys.argv)))
......
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