1 files changed, 119 insertions, 0 deletions
diff --git a/parser.y b/parser.y
new file mode 100644
index 0000000..241bf17
--- /dev/null
+++ b/parser.y
@@ -0,0 +1,119 @@
+/*
+ *  OpenSCAD (www.openscad.at)
+ *  Copyright (C) 2009  Clifford Wolf <clifford@clifford.at>
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ *
+ */
+
+%{
+
+#include "openscad.h"
+#include <stdio.h>
+
+extern int parserdebug;
+int parserlex(void);
+void yyerror(char const *s);
+
+int lexerget_lineno(void);
+int lexerlex(void);
+
+%}
+
+%union {
+	char *text;
+	double number;
+}
+
+%token TOK_MODULE
+%token TOK_FUNCTION
+%token <text> TOK_ID
+%token <text> TOK_STRING
+%token <number> TOK_NUMBER
+
+%left '+' '-'
+%left '*' '/' '%'
+%left '.'
+
+%debug
+
+%%
+
+input: 
+	/* empty */ |
+	statement input ;
+
+statement:
+	';' |
+	'{' input '}' |
+	node statement |
+	TOK_ID '=' expr ';' |
+	TOK_MODULE TOK_ID '(' arguments_decal ')' statement |
+	TOK_FUNCTION TOK_ID '(' arguments_decal ')' expr ;
+
+node:
+	TOK_ID '(' arguments_call ')' |
+	TOK_ID ':' TOK_ID '(' arguments_call ')' ;
+
+expr:
+	TOK_ID |
+	expr '.' TOK_ID |
+	TOK_STRING |
+	TOK_NUMBER |
+	TOK_NUMBER ':' TOK_NUMBER |
+	TOK_NUMBER ':' TOK_NUMBER ':' TOK_NUMBER |
+	'[' TOK_NUMBER TOK_NUMBER TOK_NUMBER ']' |
+	'[' expr ',' expr ',' expr ']' |
+	expr '*' expr |
+	expr '/' expr |
+	expr '%' expr |
+	expr '+' expr |
+	expr '-' expr |
+	'+' expr |
+	'-' expr |
+	'(' expr ')' |
+	TOK_ID '(' arguments_call ')' ;
+
+arguments_decal:
+	argument_decal |
+	argument_decal ',' arguments_decal |
+	/* empty */ ;
+
+argument_decal:
+	TOK_ID |
+	TOK_ID '=' expr ;
+
+arguments_call:
+	argument_call |
+	argument_call ',' arguments_call |
+	/* empty */ ;
+
+argument_call:
+	expr |
+	TOK_ID '=' expr ;
+
+%%
+
+int parserlex(void)
+{
+	return lexerlex();
+}
+
+void yyerror (char const *s)
+{
+	fprintf(stderr, "Parser error in line %d: %s\n", lexerget_lineno(), s);
+	exit(1);
+}
+