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

Timestamp:

10/22/04 16:37:16 (20 years ago)

Author:

peter

Message:

added a !description directive
enabled showing checkboxes/radio groups as ulists when there are 3 or more options

File:

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

trunk/lib/Text/FormBuilder/grammar

@@ -1 @@
-{ my ($title, $author, %lists, %patterns, @fields, @headings, $type, @options, $list_var, $size, $rows, $cols); }
+{ my ($title, $author, $description, %lists, %patterns, @fields, @headings, $type, @options, $list_var, $size, $rows, $cols); }
 
-form_spec: (list_def | line)(s) 
+form_spec: (list_def | description_def | line)(s) 
     {
         $return = {
             title    => $title,
             author   => $author,
+            description => $description,
             lists    => \%lists, 
             patterns => \%patterns, 
@@ -29 +30 @@
 
 list_name: /[A-Z_]+/
+
+description_def: '!description' <perl_codeblock>
+    { warn "[Text::FormBuilder] Description redefined at input text line $thisline\n" if defined $description;
+    
+    $description = $item[2];
+    $description =~ s/^{\s*|\s*}$//g;
+    }
 
 line: <skip:'[ \t]*'> ( title | author | pattern_def | heading | field | comment | blank ) "\n"