Fix a few comment.

Makefile

@@ -108,15 +108,15 @@ show:
 	git  log --reverse --pretty=oneline  | nl  
 
 dot:
-	ocamldoc  src/*.ml -d ocamldoc -dot -dot-reduce
+	ocamldoc   src/*.ml  -d ocamldoc -dot -dot-reduce  || true
 	dot -Tpdf ocamldoc.out > lus2lic.pdf
-	ocamldoc  src/*.ml -d ocamldoc -dot -dot-reduce -dot-types
+	ocamldoc  _build/src/*.ml -d ocamldoc -dot -dot-reduce -dot-types
 	dot -Tpdf ocamldoc.out > lus2lic-types.pdf
 	xpdf lus2lic.pdf
 	xpdf lus2lic-types.pdf
 
 html:
-	ocamldoc -I src/*.ml -d ocamldoc -html -keep-code
+	ocamldoc -I  _build/src/ -I ~/rdbg/_build/src/ src/*.ml _build/src/*.ml -d ocamldoc -html -keep-code
 
 debug: nomli dc
 

README.org

  
+
+* cloning
+
+you need ocaml, rdbg-plugin, (more ?)
+
+#+BEGIN_SRC sh
+git clone file:///usr/local/src/lustre/repos/lus2lic.git lus2lic
+cd lus2lic
+make 
+make test
+#+END_SRC
+
+
+
 * Todo
 cf file:todo.org
 
 * Tests (=./test=)
 
-requires 'sudo apt-get install 
+requires 'sudo apt-get install dejagnu'
 
 
 The idea is to run those tests before *each commit*.

_oasis

@@ -26,7 +26,7 @@ Executable lus2lic
 #  - from ocamldebug prompt: 
 #      cd test
 #      set arg blabla
-#      dir ../src .. ../_build/src  /usr/local/soft/ocaml/4.01.0/lib/ocaml/rdbg-plugin/
+#      dir ~/lus2lic/src ~/lus2lic/ ~/lus2lic/_build/src  /usr/local/soft/ocaml/4.01.0/lib/ocaml/rdbg-plugin/
 
 
 Library lus4ocaml

src/lic.ml

-(* Time-stamp: <modified the 01/09/2014 (at 16:09) by Erwan Jahier> *)
+(* Time-stamp: <modified the 16/11/2014 (at 21:43) by Erwan JAHIER> *)
 
-(** Define the Data Structure representing Compiled programs. *)
+(** Define the Data Structure representing Compiled programs. By
+    compiled we mean that constant are propagated, packages are
+    instanciated, recursive node are inlined, etc.
+    
+    lic = lustre internal code
+
+    Basically it is Lustre with all the suggar removed.
+*)
 
 (**
         Définition des structures de données utilisée pour la compil,
         plus des utilitaires pour les messages d'erreurs, de bug etc.
         N.B. on utilise beaucoup l'adjectif "effectif", qui signifie
-        simplement "correct".
+        simplement "correct" (c'est bizzare mais c'est ainsi.
 
         REMARQUE GENERALE :
 

src/lic2soc.ml

-(** Time-stamp: <modified the 06/10/2014 (at 10:49) by Erwan Jahier> *)
+(** Time-stamp: <modified the 09/10/2014 (at 18:09) by Erwan Jahier> *)
 
 (* XXX ce module est mal crit. A reprendre. (R1) *)
  
@@ -312,7 +312,7 @@ let rec (val_exp_to_filter: LicPrg.t -> Lic.val_exp -> Soc.var_expr) =
           | TUPLE  -> 
             (match val_exp_list with
               | [ve] -> val_exp_to_filter licprg ve
-              |_ ->
+              | _ ->
                 let lxm = by_pos_op_flg.src in
                 let msg = (Lxm.details lxm) ^ 
                   ": only one operator per equation is allowed ("^

src/lv6version.ml

 (** Automatically generated from Makefile *) 
 let tool = "lus2lic"
 let branch = "(no"
-let commit = "538"
-let sha_1 = "ec662f2854628055e0b1e1ce992a6eb3189fca6d"
+let commit = "539"
+let sha_1 = "c3178cb6b6277f8a7c728a0533f13e5aee17c803"
 let str = (branch ^ "." ^ commit ^ " (" ^ sha_1 ^ ")")
 let maintainer = "jahier@imag.fr"

src/sortActions.mli

-(** Time-stamp: <modified the 06/10/2014 (at 10:57) by Erwan Jahier> *)
+(** Time-stamp: <modified the 16/11/2014 (at 21:37) by Erwan JAHIER> *)
 
-open ActionsDeps
 
 
 (** Topological sort of actions. Raises an error in a Dependency Cycle
    is found (hence the Lxm.t). *)
 
-val f : action list -> t -> Lxm.t -> Soc.gao list
+val f : ActionsDeps.action list -> ActionsDeps.t -> Lxm.t -> Soc.gao list

test/should_work/toolate.lus

-
 --include "bug_lib2.lus"
 
 const ze_const_int = 5 ;