Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
verimag
synchrone
lutin
Commits
bf5cb12d
Commit
bf5cb12d
authored
Feb 10, 2016
by
Erwan Jahier
Browse files
Add a exception contunuation to handle Lutin Exceptions correctly in rdbg.
parent
35dea30a
Changes
6
Expand all
Hide whitespace changes
Inline
Side-by-side
examples/lutin/crazy-rabbit/Makefile
View file @
bf5cb12d
...
...
@@ -23,7 +23,7 @@ clean:
test.rif
:
$(EXPDIR) rabbit.cmxs
rm
-f
test.rif0 .lurette_rc
$(LURETTETOP)
-go
--output
test.rif0
-seed
3
3
\
$(LURETTETOP)
-go
--output
test.rif0
-seed
3
4
\
-
rp
"sut:ocaml:rabbit.cmxs:"
\
-
rp
'env:lutin:rabbit.lut:-main:rabbit:-L:libm.so:-loc'
&&
\
grep
-v
"lurette chronogram"
test.rif0 |
\
...
...
lutin/src/lutExe.ml
View file @
bf5cb12d
This diff is collapsed.
Click to expand it.
lutin/src/mainArg.ml
View file @
bf5cb12d
...
...
@@ -110,10 +110,10 @@ let event_incr opt =
let
r
=
Random
.
int
1073741823
in
opt
._
event_nb
<-
opt
._
event_nb
+
1
;
Random
.
full_init
[
|
seed
;
opt
._
event_nb
|
];
Printf
.
fprintf
stderr
"The random engine seed is set with (%i,%i) (%i,%i)
\n
"
opt
._
event_nb
seed
r
(
Random
.
int
1073741823
);
flush
stderr
;
(*
Printf.fprintf
*)
(*
stderr "The random engine seed is set with (%i,%i) (%i,%i)\n"
*)
(*
opt._event_nb seed r (Random.int 1073741823);
*)
(*
flush stderr;
*)
()
...
...
lutin/src/reactive.ml
View file @
bf5cb12d
...
...
@@ -8,12 +8,13 @@ let step p = match p with DoStep _p -> _p
type
prg_ldbg
=
DoStep_ldbg
of
(
Event
.
ctx
->
Value
.
t
list
->
(
Event
.
ctx
->
prg_ldbg
->
Value
.
t
list
->
Event
.
t
)
->
(
Event
.
ctx
->
Event
.
t
)
->
Event
.
t
)
(
Event
.
ctx
->
Event
.
t
)
->
(
Event
.
ctx
->
string
->
Event
.
t
)
->
Event
.
t
)
let
(
step_ldbg
:
Event
.
ctx
->
prg_ldbg
->
Value
.
t
list
->
(
Event
.
ctx
->
prg_ldbg
->
Value
.
t
list
->
Event
.
t
)
->
(
Event
.
ctx
->
Event
.
t
)
->
Event
.
t
)
=
->
(
Event
.
ctx
->
Event
.
t
)
->
(
Event
.
ctx
->
string
->
Event
.
t
)
->
Event
.
t
)
=
fun
ctx
p
vl
cont
fail_cont
->
match
p
with
DoStep_ldbg
_p
->
_p
ctx
vl
cont
fail_cont
lutin/src/reactive.mli
View file @
bf5cb12d
...
...
@@ -8,10 +8,11 @@ val step : prg -> Value.t list -> (Value.t list * prg)
type
prg_ldbg
=
DoStep_ldbg
of
(
Event
.
ctx
->
Value
.
t
list
->
(
Event
.
ctx
->
prg_ldbg
->
Value
.
t
list
->
Event
.
t
)
->
(
Event
.
ctx
->
Event
.
t
)
->
Event
.
t
)
(
Event
.
ctx
->
Event
.
t
)
->
(
Event
.
ctx
->
string
->
Event
.
t
)
->
Event
.
t
)
val
step_ldbg
:
Event
.
ctx
->
prg_ldbg
->
Value
.
t
list
->
(
Event
.
ctx
->
prg_ldbg
->
Value
.
t
list
->
Event
.
t
)
->
(
Event
.
ctx
->
Event
.
t
)
->
Event
.
t
(
Event
.
ctx
->
Event
.
t
)
->
(
Event
.
ctx
->
string
->
Event
.
t
)
->
Event
.
t
lutin/src/version.ml
View file @
bf5cb12d
let
str
=
"1.57"
let
sha
=
"
b854552
"
let
sha
=
"
35dea30
"
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment