From cebd07b64f1f537c5ecf00ec21ff4b7c4032f0a3 Mon Sep 17 00:00:00 2001
From: Alex AUVOLAT <alex.auvolat@ens.fr>
Date: Mon, 4 Nov 2013 22:05:57 +0100
Subject: Added stub C simulator (defined dumb-down syntax for netlists).

---
 tp1/netlist_lexer.mll | 37 -------------------------------------
 1 file changed, 37 deletions(-)
 delete mode 100644 tp1/netlist_lexer.mll

(limited to 'tp1/netlist_lexer.mll')

diff --git a/tp1/netlist_lexer.mll b/tp1/netlist_lexer.mll
deleted file mode 100644
index 78b0410..0000000
--- a/tp1/netlist_lexer.mll
+++ /dev/null
@@ -1,37 +0,0 @@
-{
-open Netlist_parser
-exception Eof
-
-let keyword_list =
-[
-  "AND", AND;
-  "CONCAT", CONCAT;
-  "IN", IN;
-  "INPUT", INPUT;
-  "MUX", MUX;
-  "NAND", NAND;
-  "NOT", NOT;
-  "OR", OR;
-  "OUTPUT", OUTPUT;
-  "RAM", RAM;
-  "REG", REG;
-  "ROM", ROM;
-  "SELECT", SELECT;
-  "SLICE", SLICE;
-  "VAR", VAR;
-  "XOR", XOR;
-]
-
-}
-
-rule token = parse
-    [' ' '\t' '\n']     { token lexbuf }     (* skip blanks *)
-  | "="            { EQUAL }
-  | ":"            { COLON }
-  | ","            { COMMA }
-  | ['0'-'9']+ as lxm { INT(int_of_string lxm) }
-  | ('_' ? ['A'-'Z' 'a'-'z']('_' ? ['A'-'Z' 'a'-'z' ''' '0'-'9']) * as id)
-      { let s = Lexing.lexeme lexbuf in
-        try List.assoc s keyword_list
-        with Not_found -> NAME id }
-  | eof            { EOF }
-- 
cgit v1.2.3