From 29ca34d1bbaa4e16cfbc6aca5e3ed760ad54f6a4 Mon Sep 17 00:00:00 2001
From: Tavian Barnes <tavianator@gmail.com>
Date: Wed, 31 Mar 2010 20:38:32 -0400
Subject: Support object identifiers.

---
 dimension/common.rules | 71 ++++++++++++++++++++++++++++++++++++++++++++------
 1 file changed, 63 insertions(+), 8 deletions(-)

(limited to 'dimension/common.rules')

diff --git a/dimension/common.rules b/dimension/common.rules
index 86b86ef..3d6fd0a 100644
--- a/dimension/common.rules
+++ b/dimension/common.rules
@@ -115,6 +115,61 @@ CAMERA_MODIFIER: "angle" FLOAT {
 
 OBJECT: FINITE_SOLID_OBJECT
       | LIGHT_SOURCE
+      | "object" "{"
+          IDENTIFIER
+          OBJECT_MODIFIERS
+        "}"
+      {
+        dmnsn_astnode *object = dmnsn_find_symbol(symtable, $3.ptr);
+        if (!object) {
+          dmnsn_diagnostic(@3.first_filename, @3.first_line,
+                           @3.first_column,
+                           "unbound identifier '%s'",
+                           (const char *)$3.ptr);
+          dmnsn_delete_astnode($3);
+          YYERROR;
+        } else {
+          switch (object->type) {
+          case DMNSN_AST_BOX:
+          case DMNSN_AST_SPHERE:
+          case DMNSN_AST_LIGHT_SOURCE:
+            {
+              dmnsn_delete_astnode($3);
+
+              $$ = dmnsn_new_astnode(object->type, @$);
+              dmnsn_copy_children($$, *object);
+
+              dmnsn_astnode *modifiers, orig_modifiers;
+              modifiers = dmnsn_array_at($$.children,
+                                         dmnsn_array_size($$.children) - 1);
+              dmnsn_array_get(object->children,
+                              dmnsn_array_size(object->children) - 1,
+                              &orig_modifiers);
+              dmnsn_delete_astnode(*modifiers);
+              *modifiers = dmnsn_new_astnode(DMNSN_AST_OBJECT_MODIFIERS, @4);
+              dmnsn_copy_children(*modifiers, orig_modifiers);
+
+              unsigned int i;
+              for (i = 0; i < dmnsn_array_size($4.children); ++i) {
+                dmnsn_astnode astnode;
+                dmnsn_array_get($4.children, i, &astnode);
+                dmnsn_array_push(modifiers->children, &astnode);
+              }
+              break;
+            }
+
+          default:
+            dmnsn_diagnostic(@3.first_filename, @3.first_line,
+                             @3.first_column,
+                             "identifier '%s' is a %s; expected an object type",
+                             (const char *)$3.ptr,
+                             dmnsn_astnode_string(object->type));
+            dmnsn_delete_astnode($3);
+            YYERROR;
+            break;
+          }
+        }
+      }
 ;
 
 FINITE_SOLID_OBJECT: BOX
@@ -130,14 +185,6 @@ BOX: "box" "{"
    }
 ;
 
-LIGHT_SOURCE: "light_source" "{"
-                VECTOR "," COLOR
-              "}"
-            {
-              $$ = dmnsn_new_astnode2(DMNSN_AST_LIGHT_SOURCE, @$, $3, $5);
-            }
-;
-
 SPHERE: "sphere" "{"
           VECTOR "," FLOAT
           OBJECT_MODIFIERS
@@ -147,6 +194,14 @@ SPHERE: "sphere" "{"
       }
 ;
 
+LIGHT_SOURCE: "light_source" "{"
+                VECTOR "," COLOR
+              "}"
+            {
+              $$ = dmnsn_new_astnode2(DMNSN_AST_LIGHT_SOURCE, @$, $3, $5);
+            }
+;
+
 /* Object modifiers */
 
 OBJECT_MODIFIERS: /* empty */ {
-- 
cgit v1.2.3