Changeset 66 in text-formbuilder for trunk/lib/Text/FormBuilder

Timestamp:

03/11/05 15:17:59 (20 years ago)

Author:

peichman

Message:

worked on the rules for parsing lists in the grammar
allow end of field line comments
growable fields can specify a limit; e.g. "person*4" to limit to 4
use '+other' to specify that a field should have an 'Other' option (FB 3.02)
rearranged TODOs in the main documentation

File:

• trunk/lib/Text/FormBuilder/grammar (modified) (6 diffs)

trunk/lib/Text/FormBuilder/grammar

@@ -1 @@
-{ 
+{
+    #$::RD_TRACE = 1;
     my (
         $context,      # line or group
@@ -56 +57 @@
     { $lists{$item{var_name}} = [ @options ]; @options = () }
 
-static_list: '{' option(s /,\s*/) /,?/ '}'
+static_list: '{' /\s*/ option(s /\s*,\s*/) /,?/ /\s*/ '}'
 
 dynamic_list: '&' <perl_codeblock>
@@ -160 +161 @@
 
 # this is the real heart of the thing
-field: name field_size(?) growable(?) label(?) hint(?) type(?) default(?) option_list(?) validate(?)
+field: name field_size(?) growable(?) label(?) hint(?) type(?) other(?) default(?) option_list(?) validate(?) comment(?)
     {
         my $field = {
             name     => $item{name},
-            growable => ($item{'growable(?)'}[0] ? 1 : 0),
+            growable => $item{'growable(?)'}[0],
             label    => $item{'label(?)'}[0],
             comment  => $item{'hint(?)'}[0],
             type     => $item{'type(?)'}[0],
+            other    => $item{'other(?)'}[0],
             value    => $item{'default(?)'}[0],
             list     => $list_var,
@@ -214 +216 @@
     { $rows = $item[1]; $cols = $item[3] }
 
-growable: '*'
+growable: '*' limit(?) { $item{'limit(?)'}[0] || 1 }
+
+limit: /\d+/
 
 label: '|' (simple_multiword | quoted_string) { $item[2] }
@@ -224 +228 @@
 builtin_field: /textarea|text|password|file|checkbox|radio|select|hidden|static/
 
+other: '+' 'other' { 1 }
 
 default: '=' (simple_multiword | quoted_string) { $item[2] }
 
 # for simple multiword values not involving punctuation
-simple_multiword: <skip:''> /[\w\t ]+/ { $item[2] }
+simple_multiword: <skip:''> /\w[\w\t ]+/ { $item[2] }
 
 # my attempt at a single-quoted, non-interpolating string
@@ -237 +242 @@
 option_list: options | list_var
     
-options: '{' option(s /,\s*/) '}'
+options: '{' option(s /,/) '}'
 
 list_var: /@[A-Z_]+/ { $list_var = $item[1] }
 
-option: (simple_multiword | value | quoted_string) display_text(?)
+option: (simple_multiword | quoted_string) display_text(?)
     { push @options, { $item[1] => $item{'display_text(?)'}[0] } }