diff options
Diffstat (limited to 'main.ml')
| -rw-r--r-- | main.ml | 51 |
1 files changed, 37 insertions, 14 deletions
@@ -2,12 +2,16 @@ open Ast (* command line options *) let dump = ref false +let test = ref false +let vtest = ref false let ifile = ref "" let usage = "usage: analyzer [options] file.scade" let options = [ "--dump", Arg.Set dump, "Dump program source."; + "--vest", Arg.Set vtest, "Verbose testing."; + "--test", Arg.Set test, "Simple testing."; ] let () = @@ -21,21 +25,40 @@ let () = let prog = File_parser.parse_file !ifile in if !dump then Ast_printer.print_prog Format.std_formatter prog; try - let s0 = Interpret.program_init_state prog "test" in - Format.printf "Init state:@."; - Data.print_state s0; - let rec it i st = - let st, outputs, next_st = - Interpret.program_step prog st - ["i", Data.VInt i] "test" + if !vtest then begin + let s0 = Interpret.program_init_state prog "test" in + Format.printf "Init state:@."; + Data.print_state s0; + let rec it i st = + let st, outputs, next_st = + Interpret.program_step prog st + ["i", Data.VInt i] "test" + in + Format.printf "@.> Step %d:@." i; + Data.print_state st; + match List.assoc "exit" outputs with + | Data.VBool false -> it (i+1) next_st + | _ -> () in - Format.printf "@.> Step %d:@." i; - Data.print_state st; - match List.assoc "exit" outputs with - | Data.VBool false -> it (i+1) next_st - | _ -> () - in - it 0 s0 + it 0 s0 + end; + if !test then begin + let s0 = Interpret.program_init_state prog "test" in + let rec it i st = + let st, outputs, next_st = + Interpret.program_step prog st + ["i", Data.VInt i] "test" + in + Format.printf "%d. %s %s %s@." i + (Data.str_of_value (List.assoc "a" outputs)) + (Data.str_of_value (List.assoc "b" outputs)) + (Data.str_of_value (List.assoc "c" outputs)); + match List.assoc "exit" outputs with + | Data.VBool false -> it (i+1) next_st + | _ -> () + in + it 0 s0 + end with | Data.Combinatorial_cycle v -> Format.eprintf "Combinatorial cycle (%s)@." v |