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

Timestamp:

11/16/04 14:00:41 (20 years ago)

Author:

peter

Message:

allow for validating but not required fields

File:

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

trunk/lib/Text/FormBuilder/grammar

@@ -14 +14 @@
         $type,
         @options,
+        $required,
         $list_var,
         $size,
@@ -105 +106 @@
             list     => $list_var,
             validate => $item{'validate(?)'}[0],
+            required => $required || 0,
         };
         
@@ -121 +123 @@
         }
         
+        #warn "field $item{name} is required" if $required;
+        
         $type = undef;
+        $required = 0;
         $list_var = undef;
         $size = undef;
@@ -164 +169 @@
 list_var: /@[A-Z_]+/ { $list_var = $item[1] }
 
-option: (simple_multiword | quoted_string) display_text(?)
+option: (value | simple_multiword | quoted_string) display_text(?)
     { push @options, { $item[1] => $item{'display_text(?)'}[0] } }
 
@@ -171 +176 @@
 display_text: '[' /[^\]]+/i ']'    { $item[2] }
 
-validate: '//' value
+validate: '//' (optional_pattern | required_pattern)    { $item[2] }
+
+optional_pattern: /[A-Z_]+/ '?' { $required = 0; $item[1] }
+
+required_pattern: /[A-Z_]+/ { $required = 1; $item[1] }
 
 comment: '#' /.*/