From bf4db8726f01e78f15f81720f6a7e3b6688b1b03 Mon Sep 17 00:00:00 2001
From: Anders Nilsson <anders.nilsson@control.lth.se>
Date: Fri, 13 Nov 2015 14:49:31 +0100
Subject: [PATCH] Parses simple_wall. No idea if correct though

---
 spec/btl.ast    | 1 +
 spec/btl.flex   | 3 ++-
 spec/btl.parser | 1 +
 3 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/spec/btl.ast b/spec/btl.ast
index a02902a..ec8d841 100644
--- a/spec/btl.ast
+++ b/spec/btl.ast
@@ -55,6 +55,7 @@ ListName : Declaration ;
 Material : Declaration;
 OrderNumber : Declaration;
 BTLPackage : Declaration;
+ProcessIdent : Declaration;
 ProcessingQuality : Declaration;
 ProcessKey : Declaration ;
 ProcessParameters : Declaration ;
diff --git a/spec/btl.flex b/spec/btl.flex
index 7bf279b..2d6d1e1 100644
--- a/spec/btl.flex
+++ b/spec/btl.flex
@@ -40,7 +40,7 @@ import beaver.Scanner;
 
 WhiteSpace = [ ] | \t | \f | \n | \r | \r\n
 Identifier = [:jletter:][:jletterdigit:]*
-IntLiteral = "-"?[0-9][0-9]*
+	IntLiteral = "-"?[0-9][0-9,"-"]*
 
 	
 %state YYINITIAL
@@ -95,6 +95,7 @@ IntLiteral = "-"?[0-9][0-9]*
 	"ORDERNUMBER" { return symbol(Terminals.ORDERNUMBER); }
 	"PACKAGE" { return symbol(Terminals.PACKAGE); }
 	"PART" { return symbol(Terminals.PART); }
+	"PROCESSIDENT" { return symbol(Terminals.PROCESSIDENT); }
 	"PROCESSINGQUALITY" { return symbol(Terminals.PROCESSINGQUALITY); }
 	"PROCESSKEY" { yybegin(SPECIAL);string.setLength(0);return symbol(Terminals.PROCESSKEY); }
 	"PROCESSPARAMETERS" { yybegin(SPECIAL);string.setLength(0);return symbol(Terminals.PROCESSPARAMETERS); }
diff --git a/spec/btl.parser b/spec/btl.parser
index 50e05c3..29f3c86 100644
--- a/spec/btl.parser
+++ b/spec/btl.parser
@@ -51,6 +51,7 @@ Declaration declaration =
   | MATERIAL COLON value.v     {: return new Material(v); :}
   | ORDERNUMBER COLON value.v     {: return new OrderNumber(v); :}
   | PACKAGE COLON value.v     {: return new BTLPackage(v); :}
+  | PROCESSIDENT COLON value.v     {: return new ProcessIdent(v); :}
   | PROCESSINGQUALITY COLON value.v     {: return new ProcessingQuality(v); :}
   | PROCESSKEY  special_value.v     {: return new ProcessKey(v); :}
   | PROCESSPARAMETERS  special_value.v     {: return new ProcessParameters(v); :}
-- 
GitLab