diff options
author | Alex Auvolat <alex.auvolat@ansys.com> | 2014-06-26 16:57:10 +0200 |
---|---|---|
committer | Alex Auvolat <alex.auvolat@ansys.com> | 2014-06-26 16:57:10 +0200 |
commit | f3d89408ebb44f77f257b2cb51a4bdd74b9268d0 (patch) | |
tree | adc4b2505f907ea031c0a8d082b077702d8f49eb /main.ml | |
parent | dcdcedf42c8c3a3041c0fcda6a5a3362777672f5 (diff) | |
download | scade-analyzer-f3d89408ebb44f77f257b2cb51a4bdd74b9268d0.tar.gz scade-analyzer-f3d89408ebb44f77f257b2cb51a4bdd74b9268d0.zip |
Many things, sorry for the mess.
- Implement two new enumeration domains (they don't bring us much) :
multi valuation for variables ;
multi valuation for variables and pairs of variables (not really sure it works)
- Make it so that the number of init/time variables is reduced
(do not create new init/time variables on node instanciation, only
inside activate blocks and automaton states)
- Some work on EDD (it is currently broken and does not compile)
Diffstat (limited to 'main.ml')
-rw-r--r-- | main.ml | 10 |
1 files changed, 6 insertions, 4 deletions
@@ -9,10 +9,12 @@ module Interpret = Interpret.I module ItvND = Nonrelational.ND(Intervals_domain.VD) -module AI_Itv = Abs_interp.I(Enum_domain.Valuation)(ItvND) -module AI_Rel = Abs_interp.I(Enum_domain.Valuation)(Apron_domain.ND) +module AI_Itv = Abs_interp.I(Enum_domain.MultiValuationCCons)(ItvND) +module AI_Rel = Abs_interp.I(Enum_domain.MultiValuationCCons)(Apron_domain.ND) +(* module AI_Itv_EDD = Abs_interp_edd.I(ItvND) +*) (* command line options *) let dump = ref false @@ -82,8 +84,6 @@ let do_test_interpret prog verbose = let () = Arg.parse options (fun f -> ifile := f) usage; - AI_Itv_EDD.test (); - if !ifile = "" then begin Format.eprintf "No input file...@."; exit 1 @@ -117,7 +117,9 @@ let () = if !ai_itv then AI_Itv.do_prog opt rp; if !ai_rel then AI_Rel.do_prog opt rp; + (* if !ai_itv_edd then AI_Itv_EDD.do_prog opt rp; + *) end; if !vtest then do_test_interpret prog true |