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

Timestamp:

06/29/05 16:02:34 (19 years ago)

Author:

peichman

Message:

added !fb directive to hold FB parameters as YAML serialized values
updated and expanded the documentation

File:

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

trunk/lib/Text/FormBuilder/grammar

@@ -40 +40 @@
         %formspec = ();  # clear the old formspec data
     }
-    (list_def | description_def | group_def | note | unknown_block_directive | line)(s)
+    (list_def | description_def | group_def | note | fb_params | unknown_block_directive | line)(s)
     {
         # grab the last section, if there is any
@@ -53 +53 @@
         
         $return = {
-            title    => $formspec{title},
-            author   => $formspec{author},
+            fb_params   => $formspec{fb_params},
+            title       => $formspec{title},
+            author      => $formspec{author},
             description => $formspec{description},
-            lists    => \%lists,
-            patterns => \%patterns,
-            subs     => \%subs,
-            groups   => \%groups,
-            sections => \@sections,
+            lists       => \%lists,
+            patterns    => \%patterns,
+            subs        => \%subs,
+            groups      => \%groups,
+            sections    => \@sections,
             ( @submit ? 
                 (submit => @submit == 1 ? $submit[0] : \@submit) :
                 ()
             ),
-            reset => $formspec{reset},
+            reset       => $formspec{reset},
         }
     }
@@ -173 +174 @@
 group_name: /%[A-Z_]+/
 
+# parameters that get passed to the FB constructor; these are serialized in YAML
+fb_params: '!fb' block
+    { $formspec{fb_params} .= $item{block}; }
+
 field_group: name label(?) hint(?) group_type comment(?)
     {
@@ -189 +194 @@
 # this is the real heart of the thing
 field: name field_size(?) growable(?) label(?) hint(?) type(?) multi(?) other(?) default(?) option_list(?) validate(?) comment(?)
-    {
+    {   
         my $field = {
             name     => $item{name},