summaryrefslogtreecommitdiffstats
path: root/dimension/directives.rules
diff options
context:
space:
mode:
authorTavian Barnes <tavianator@gmail.com>2011-05-15 16:10:51 -0600
committerTavian Barnes <tavianator@gmail.com>2011-05-15 16:10:51 -0600
commite5e88afdbf158e6df8f8c3328f308512819d9cf3 (patch)
tree2a011762c07c0087defcdc1f1022ffe32d532f49 /dimension/directives.rules
parenta5a6b94c038e01ebf1e2de0a0774a69b02fb8e1e (diff)
downloaddimension-e5e88afdbf158e6df8f8c3328f308512819d9cf3.tar.xz
Rip out old client.
Diffstat (limited to 'dimension/directives.rules')
-rw-r--r--dimension/directives.rules180
1 files changed, 0 insertions, 180 deletions
diff --git a/dimension/directives.rules b/dimension/directives.rules
deleted file mode 100644
index b9c6cc6..0000000
--- a/dimension/directives.rules
+++ /dev/null
@@ -1,180 +0,0 @@
-#line 2 "directives.rules"
-
-/*
- * Start symbol
- */
-
-LANGUAGE_DIRECTIVE: "#include" STRING {
- dmnsn_declare_symbol(symtable, "$include", $2);
- dmnsn_delete_astnode($2);
- }
- | "#declare" IDENTIFIER "=" RVALUE {
- dmnsn_declare_symbol(symtable, $2.ptr, $4);
- dmnsn_delete_astnode($2);
- dmnsn_delete_astnode($4);
- }
- | "#local" IDENTIFIER "=" RVALUE {
- dmnsn_local_symbol(symtable, $2.ptr, $4);
- dmnsn_delete_astnode($2);
- dmnsn_delete_astnode($4);
- }
- | "#undef" IDENTIFIER {
- dmnsn_undef_symbol(symtable, $2.ptr);
- dmnsn_delete_astnode($2);
- }
- | "#if" "(" CONDITIONAL ")" {
- dmnsn_astnode cond = dmnsn_eval($3, symtable);
- dmnsn_delete_astnode($3);
-
- if (cond.type == DMNSN_AST_NONE) {
- dmnsn_delete_astnode(cond);
- YYERROR;
- }
-
- dmnsn_local_symbol(symtable, "$cond", cond);
- dmnsn_delete_astnode(cond);
- }
- | "#ifdef" "(" IDENTIFIER ")" {
- dmnsn_astnode *node = dmnsn_find_symbol(symtable, $3.ptr);
- dmnsn_local_symbol(symtable, "$cond",
- dmnsn_new_ast_integer(node ? 1 : 0));
- dmnsn_delete_astnode($3);
- }
- | "#ifndef" "(" IDENTIFIER ")" {
- dmnsn_astnode *node = dmnsn_find_symbol(symtable, $3.ptr);
- dmnsn_local_symbol(symtable, "$cond",
- dmnsn_new_ast_integer(node ? 0 : 1));
- dmnsn_delete_astnode($3);
- }
- | "#version" FLOAT ";" {
- dmnsn_diagnostic(@$, "WARNING: POV-Ray #version backwards-"
- "compatibility not supported");
- dmnsn_delete_astnode($2);
- }
- | "#debug" STRING {
- fprintf(stderr, "%s\n", (const char *)$2.ptr);
- dmnsn_delete_astnode($2);
- }
- | "#warning" STRING {
- dmnsn_diagnostic(@$, "WARNING: %s", (const char *)$2.ptr);
- dmnsn_delete_astnode($2);
- }
- | "#error" STRING {
- dmnsn_diagnostic(@$, "%s", (const char *)$2.ptr);
- dmnsn_delete_astnode($2);
- YYERROR;
- }
- | "#macro" IDENTIFIER "(" DECL_PARAMS ")" {
- dmnsn_declare_symbol(symtable, $2.ptr, $4);
- dmnsn_local_symbol(symtable, "$macro",
- dmnsn_new_ast_string($2.ptr));
- dmnsn_delete_astnode($2);
- dmnsn_delete_astnode($4);
- }
- | IDENTIFIER "(" PARAMS ")" {
- dmnsn_astnode *node = dmnsn_find_symbol(symtable, $1.ptr);
- dmnsn_assert(node && node->type == DMNSN_AST_MACRO,
- "Attempt to expand non-macro.");
- dmnsn_delete_astnode($1);
-
- size_t nparams = dmnsn_array_size(node->children);
- size_t nparams_given = dmnsn_array_size($3.children);
-
- if (nparams_given != nparams) {
- dmnsn_diagnostic(@$, "wrong number of macro arguments"
- " (%zu; should be %zu)",
- nparams_given, nparams);
- dmnsn_delete_astnode($3);
- YYERROR;
- }
-
- for (size_t i = 0; i < nparams; ++i) {
- dmnsn_astnode id, param;
- dmnsn_array_get(node->children, i, &id);
- dmnsn_array_get($3.children, i, &param);
- dmnsn_local_symbol(symtable, id.ptr, param);
- }
-
- dmnsn_delete_astnode($3);
- }
-;
-
-RVALUE: ARITH_EXPR ";" %dprec 2 {
- $$ = dmnsn_eval($1, symtable);
- dmnsn_delete_astnode($1);
-
- if ($$.type == DMNSN_AST_NONE) {
- dmnsn_delete_astnode($$);
- YYERROR;
- }
- }
- | COLOR ";" %dprec 1
- | OBJECT
- | TEXTURE
- | PIGMENT
- | FINISH
- | INTERIOR
- | CAMERA
- | "transform" "{"
- TRANSFORMATION_ITEMS
- "}"
- {
- $$ = $3;
- }
-;
-
-DECL_PARAMS: /* empty */ {
- $$ = dmnsn_new_astnode(DMNSN_AST_MACRO, @$);
- }
- | DECL_PARAM_LIST
-;
-
-DECL_PARAM_LIST: IDENTIFIER {
- $$ = dmnsn_new_astnode1(DMNSN_AST_MACRO, @$, $1);
- }
- | DECL_PARAM_LIST "," IDENTIFIER {
- $$ = $1;
- dmnsn_array_push($$.children, &$3);
- }
-;
-
-PARAMS: /* empty */ {
- $$ = dmnsn_new_astnode(DMNSN_AST_ARRAY, @$);
- }
- | PARAM_LIST
-;
-
-PARAM_LIST: IDENTIFIER %dprec 2 {
- $$ = dmnsn_new_astnode1(DMNSN_AST_MACRO, @$, $1);
- }
- | PARAM %dprec 1 {
- $$ = dmnsn_new_astnode1(DMNSN_AST_MACRO, @$, $1);
- }
- | PARAM_LIST "," IDENTIFIER %dprec 2 {
- $$ = $1;
- dmnsn_array_push($$.children, &$3);
- }
- | PARAM_LIST "," PARAM %dprec 1 {
- $$ = $1;
- dmnsn_array_push($$.children, &$3);
- }
-;
-
-PARAM: ARITH_EXPR %dprec 2 {
- $$ = dmnsn_eval($1, symtable);
- dmnsn_delete_astnode($1);
-
- if ($$.type == DMNSN_AST_NONE) {
- dmnsn_delete_astnode($$);
- YYERROR;
- }
- }
- | COLOR %dprec 1
- | OBJECT
- | TEXTURE
- | PIGMENT
- | FINISH
- | INTERIOR
- | CAMERA
- | TRANSFORMATION
-;