From: Eric S. Raymond <esr@thyrsus,com>
Date: Sat, 14 Feb 2004 21:43:15 +0000 (+0000)
Subject: Indirect through arrayref.
X-Git-Tag: 1.0~101
X-Git-Url: http://thyrsus.com/gitweb/?a=commitdiff_plain;h=70a1e56a80c5ca8e475e6fe38937c3d02a8f4101;p=mad.git

Indirect through arrayref.
---

diff --git a/mad b/mad
index 559c05c..2443eff 100755
--- a/mad
+++ b/mad
@@ -178,11 +178,14 @@ def p_statement_dimension(t):
     'statement : DIMENSION dimension_list'
     t[0] = ('dimension', t[2])
 def p_dimension_list(t):
-    'dimension_list : NAME application'
-    t[0] = [[t[1], tuple(t[2])]]
+    'dimension_list : arrayref'
+    t[0] = t[1]
 def p_dimension_list_continue(t):
-    'dimension_list : dimension_list COMMA NAME application'
-    t[0] = t[1] + [[t[3], tuple(t[4])]]
+    'dimension_list : dimension_list COMMA arrayref'
+    t[0] = t[1] + t[3]
+def p_arrayref(t):
+    'arrayref : NAME application'
+    t[0] = [[t[1], tuple(t[2])]]
 
 ## END
 def p_end_of_program(t):