Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
L
lutin
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
1
Issues
1
List
Boards
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Packages
Packages
Container Registry
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
verimag
synchrone
lutin
Commits
9714d85a
Commit
9714d85a
authored
Jul 11, 2019
by
erwan
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix: revert a change done in sha:
ccb8b62b
that breaks things
parent
21b82a82
Pipeline
#27001
passed with stages
in 8 minutes and 51 seconds
Changes
4
Pipelines
2
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
5 additions
and
3 deletions
+5
-3
_oasis
_oasis
+1
-1
doc/lutin-man/lutin-man.pdf
doc/lutin-man/lutin-man.pdf
+0
-0
lurette-nocaml/src/lurette.ml
lurette-nocaml/src/lurette.ml
+3
-1
lutin/src/ne.ml
lutin/src/ne.ml
+1
-1
No files found.
_oasis
View file @
9714d85a
...
...
@@ -80,7 +80,7 @@ Executable lurette
Path: lurette-nocaml/src
MainIs: lurette.ml
BuildDepends: str,unix,num,dynlink,extlib,camlp4,lutils (>= 1.9),lutin-utils,ezdl,gbddml,polka,camlp4,camlidl,gmp,rdbg-plugin (>= 1.177),lustre-v6,lutin
NativeOpt: rdbg4lurette.cmxa # for some reasons not recogni
ez
d as a package
NativeOpt: rdbg4lurette.cmxa # for some reasons not recogni
ze
d as a package
Install:true
CompiledObject: native
Install: true
...
...
doc/lutin-man/lutin-man.pdf
View file @
9714d85a
No preview for this file type
lurette-nocaml/src/lurette.ml
View file @
9714d85a
(* Time-stamp: <modified the
22/05/2019 (at 09:50
) by Erwan Jahier> *)
(* Time-stamp: <modified the
11/07/2019 (at 14:56
) by Erwan Jahier> *)
(* Mimick the behavior of 'rdbg -lurette', but without the dependency
on ocaml *)
open
Event
...
...
@@ -65,6 +65,8 @@ let (gen_reactive_program : string -> RdbgArg.reactive_program) =
else
Lv6Run
.
make
(
Array
.
of_list
(
args
@
[
"--expand-io-type"
]))
|
"ocaml"
->
OcamlRun
.
make
(
List
.
nth
args
1
)
(* | "sasa" -> *)
(* Sasalib.SasaRun.make (Array.of_list (args@["-rif"])) *)
|
_
->
StdioRun
.
make
str
in
Ocaml
(
plugin
)
...
...
lutin/src/ne.ml
View file @
9714d85a
...
...
@@ -369,7 +369,7 @@ let (split : t -> split_res) =
let
divide
c1
c2
=
match
(
c1
,
c2
)
with
|
I
i1
,
I
i2
->
Num
.
eq_num
(
Num
.
mod_num
i2
i1
)
(
Num
.
Int
0
)
|
_
,
_
->
assert
false
(* used to be "true" instead, but it looked weird! *)
|
_
,
_
->
true
in
let
cl
=
(
StringMap
.
fold
(
fun
v
c
acc
->
(
c
,
v
)
::
acc
)
ne
[]
)
in
let
res
=
...
...
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