Commit 8773bbd9 authored by Erwan Jahier's avatar Erwan Jahier
Browse files

lurette 0.81 Mon, 02 Sep 2002 16:13:16 +0200 by jahier

Parent-Version:      0.80
Version-Log:

source/control.ml:
   Give a proper error message when one uses a ctrl expr that
   is not defined.

Project-Description: Lurette
parent 7344d9ba
......@@ -29,7 +29,7 @@
(test/passerelle.ima 972 1027066799 b/17_passerelle 1.7)
(source/ima_exe.ml 11903 1030614411 b/32_ima_exe.ml 1.16)
(doc/automata_format 0 1007379917 b/3_automata_f 1.1)
(source/control.ml 4333 1030975671 c/4_control.ml 1.2)
(source/control.ml 4416 1030975996 c/4_control.ml 1.3)
(source/eval.ml 7755 1027066799 49_eval.ml 1.13)
(source/gen_stubs.ml 33359 1030614411 24_generate_l 1.30)
(source/parse_env.ml 22235 1030975671 41_parse_env. 1.22)
......
;; -*- Prcs -*-
(Created-By-Prcs-Version 1 3 3)
(Project-Description "Lurette")
(Project-Version lurette 0 80)
(Parent-Version lurette 0 79)
(Project-Version lurette 0 81)
(Parent-Version lurette 0 80)
(Version-Log "
source/control.ml:
source/parse_env.ml:
Add a new ctrl expr (set_between) to let one set the value of a CE var
in such a way that it is backtracable within an interval. One rational
is that it let ones code infinite loops that can be exited when
the formula is false.
Give a proper error message when one uses a ctrl expr that
is not defined.
")
(New-Version-Log "")
(Checkin-Time "Mon, 02 Sep 2002 16:07:51 +0200")
(Checkin-Time "Mon, 02 Sep 2002 16:13:16 +0200")
(Checkin-Login jahier)
(Populate-Ignore ())
(Project-Keywords)
......@@ -84,7 +80,7 @@ source/parse_env.ml:
(source/gen_stubs.ml (lurette/24_generate_l 1.30 644))
(source/control.mli (lurette/c/3_control.ml 1.2 644))
(source/control.ml (lurette/c/4_control.ml 1.2 644))
(source/control.ml (lurette/c/4_control.ml 1.3 644))
; little script that sets env vars and starts the lurette build
(make_lurette (lurette/27_make_luret 1.15 755))
......
......@@ -110,8 +110,8 @@ let (dec : string -> state -> state) =
(* exported *)
let (return : string -> state -> int) =
fun id st ->
fst (StringMap.find id st)
try fst (StringMap.find id st)
with _ -> failwith ("*** " ^ id ^ " is an undefined control expression.\n")
(* exported *)
let (return_comp : string -> state -> int) =
fun id st ->
......
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