Changeset 10 in text-formbuilder for trunk/lib/Text/FormBuilder/grammar

Timestamp:

10/21/04 16:55:26 (20 years ago)

Author:

peter

Message:

added dynamic lists (evaled perl code blocks) to !list def command

File:

• trunk/lib/Text/FormBuilder/grammar (modified) (1 diff)

trunk/lib/Text/FormBuilder/grammar

@@ -12 +12 @@
     }
 
-list_def: '!list' list_name '{' option(s /,\s*/) /,?/ '}'
+list_def: '!list' list_name (static_list | dynamic_list)
     { $lists{$item{list_name}} = [ @options ]; @options = () }
+
+static_list: '{' option(s /,\s*/) /,?/ '}'
+
+dynamic_list: '&' <perl_codeblock>
+    {
+        my @results = (eval $item[2]);
+        if (ref $results[0] eq 'HASH') {
+            @options = @results;
+        } else {    
+            @options = map { { $_ => $_ } } @results;
+        }
+    }
 
 list_name: /[A-Z_]+/