Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
L
lutin
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
1
Issues
1
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
verimag
synchrone
lutin
Commits
45d9477d
Commit
45d9477d
authored
Sep 19, 2019
by
erwan
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Update: add some code in comment (unsuccessful tries)
parent
ced75b3b
Changes
5
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
35 additions
and
8 deletions
+35
-8
Makefile
Makefile
+1
-1
bin/lurette-nocaml/dune
bin/lurette-nocaml/dune
+6
-0
bin/lurette-nocaml/lurette.ml
bin/lurette-nocaml/lurette.ml
+23
-4
lib/lutin/dune
lib/lutin/dune
+3
-2
lutin.opam
lutin.opam
+2
-1
No files found.
Makefile
View file @
45d9477d
...
...
@@ -33,7 +33,7 @@ clean:
dune clean
cd
lib/polka
;
make clean
cd
lib/lutin
;
make clean
rm
lib/lutin/version.ml
rm
-f
lib/lutin/version.ml
.PHONY
:
test slink
test
:
#
cpcomp
...
...
bin/lurette-nocaml/dune
View file @
45d9477d
(executable
(name lurette)
(libraries lustre-v6 lutin)
; (libraries camlidl lustre-v6 lutin sasa)
;;; necessary to be able to use sasa because sasa use Dynlink
;;; but it fails because of lutin (well, because of camlidl to be precise)
; (link_flags (-linkall))
)
(install
...
...
bin/lurette-nocaml/lurette.ml
View file @
45d9477d
(* Time-stamp: <modified the
30/08/2019 (at 14:54
) by Erwan Jahier> *)
(* Time-stamp: <modified the
19/09/2019 (at 16:21
) by Erwan Jahier> *)
(* Mimick the behavior of 'rdbg -lurette', but without the dependency
on ocaml *)
...
...
@@ -47,6 +47,12 @@ let other_args:string =
String
.
concat
" "
(
List
.
rev
!
others
)
(**********************************************************************************)
let
rec
get_dot
=
function
|
[]
->
failwith
"No dot file in found"
|
x
::
t
->
if
Filename
.
extension
x
=
".dot"
then
x
else
get_dot
t
let
(
gen_reactive_program
:
string
->
RdbgArg
.
reactive_program
)
=
fun
str
->
let
args
=
Str
.
split
(
Str
.
regexp
"[
\t
]+"
)
str
in
...
...
@@ -61,10 +67,23 @@ let (gen_reactive_program : string -> RdbgArg.reactive_program) =
then
StdioRun
.
make
str
else
Lv6Run
.
make
(
Array
.
of_list
(
args
@
[
"--expand-io-type"
]))
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"])) *)
(* the following code compile (with adding sasa lib in the dune file)
But there is an issue in practice:
- Dynlink requires that the lurette binary is buildt with -linkall (otherwise
i cannot use stdlib in my cmxs for instance)
- But if I use -linkall, lurette fails to build because of lutin (or camlidl)
that requires libuid (undefined reference to `IID_IUnknown')
- sigh
| "sasa" ->
let dot = get_dot args in
let cmxs = (Filename.chop_extension dot) ^ ".cmxs" in
Dynlink.loadfile cmxs;
Sasa.SasaRun.make (Array.of_list (args@["-rif"]))
*)
|
_
->
StdioRun
.
make
str
in
Ocaml
(
plugin
)
...
...
lib/lutin/dune
View file @
45d9477d
...
...
@@ -4,12 +4,13 @@
(libraries polka num rdbg camlidl str unix ezdl gbddml gmp)
(c_names lutinUtils_stubs lutinUtils_c myuid)
(wrapped false)
(library_flags (-linkall))
(library_flags (-linkall))
; (install_c_headers myuid)
(modules LutinRun Auto2Lucky AutoGen Bddd CheckEnv CheckType CkIdentInfo
CkTypeEff CoAlgExp CoIdent CoTraceExp Constraint Draw Exp ExpEval
Expand ExprUtil FGen Formula_to_bdd GenOcamlGlue Glue Gne Guard
Lexeme LoopWeights Luc2alice Luc2c LucFGen Lucky LutErrors LutExe LutinUtils
LutLexer LutParser LutPredef LutProg Version MainArg Ne Parsers
LutLexer LutParser LutPredef LutProg Version MainArg Ne Parsers
Poly_draw Polyhedron Prevar Prog Reactive Rif Sol_nb Solver Store
Syntaxe SyntaxeDump Thickness Type Util Utils Value Var Verbose)
(synopsis "An API to call lutin from rdbg and ocaml.")
...
...
lutin.opam
View file @
45d9477d
...
...
@@ -12,7 +12,8 @@ authors: [
license: "CeCILL"
tags: ["clib:stdc" "clib:camlidl"]
homepage: "http://www-verimag.imag.fr/Lutin.html"
bug-reports: "http://www-verimag.imag.fr/Lutin.html"
dev-repo: "https://gricad-gitlab.univ-grenoble-alpes.fr/verimag/synchrone/lutin"
bug-reports: "https://gricad-gitlab.univ-grenoble-alpes.fr/verimag/synchrone/lutin/issues"
depends: [
"ocaml" {>= "4.05"}
"base-bigarray"
...
...
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