Added stub C simulator (defined dumb-down syntax for netlists).

1 files changed, 17 insertions, 0 deletions

diff --git a/sched/netlist.ml b/sched/netlist.ml
new file mode 100644
index 0000000..b1d7932
--- /dev/null
+++ b/sched/netlist.ml
@@ -0,0 +1,17 @@
+exception Parse_error of string
+
+let find_file filename =
+  try
+    open_in filename
+  with
+    | _ -> raise (Parse_error "No such file '%s'")
+
+let read_file filename =
+  let ic = find_file filename in
+  let lexbuf = Lexing.from_channel ic in
+  lexbuf.Lexing.lex_curr_p <- { lexbuf.Lexing.lex_curr_p with Lexing.pos_fname = filename };
+  try
+    Netlist_parser.program Netlist_lexer.token lexbuf
+  with
+    | e -> raise (Parse_error ("Syntax error (exception: "^(Printexc.to_string e)^")"))
+