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

Timestamp:

12/07/04 16:18:02 (20 years ago)

Author:

peter

Message:

added write_script function to write a complete CGI script using the form
abstracted some of the internal code generating and writing code to be easily reused by write_* functions
started work on allowing validation coderefs in the formspec

File:

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

trunk/lib/Text/FormBuilder/grammar

@@ -11 +11 @@
         %lists,
         %patterns,
+        %subs,         # validation subs
         @group,        # current group
         %groups,       # stored groups of fields
@@ -24 +25 @@
 }
 
-form_spec: (list_def | description_def | group_def | line)(s)
+form_spec: (list_def | description_def | validate_def | group_def | line)(s)
     {
         # grab the last section, if there is any
@@ -45 +46 @@
             lists    => \%lists,
             patterns => \%patterns,
+            subs     => \%subs,
             groups   => \%groups,
             sections => \@sections,
@@ -71 +73 @@
     $description =~ s/^{\s*|\s*}$//g;
     }
+
+validate_def: '!validate' var_name <perl_codeblock>
+    { $subs{$item{var_name}} = $item[3] }
 
 group_def: '!group' { $context = 'group' } var_name '{' field_line(s) '}' { $context = 'line' }