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

Timestamp:

10/22/04 10:10:54 (20 years ago)

Author:

peter

Message:

added a !head directive for section headers in forms
removed generated Parser.pm file from version control

Location:

trunk/lib/Text/FormBuilder

Files:

• Parser.pm (deleted)
• grammar (modified) (4 diffs)

trunk/lib/Text/FormBuilder/grammar

@@ -1 @@
-{ my ($title, $author, %lists, %patterns, @fields, $type, @options, $list_var, $size, $rows, $cols); }
+{ my ($title, $author, %lists, %patterns, @fields, @headings, $type, @options, $list_var, $size, $rows, $cols); }
 
 form_spec: (list_def | line)(s) 
@@ -8 +8 @@
             lists    => \%lists, 
             patterns => \%patterns, 
+            headings => \@headings,
             fields   => \@fields,
         }
@@ -29 +30 @@
 list_name: /[A-Z_]+/
 
-line: <skip:'[ \t]*'> ( title | author | pattern_def | field | comment | blank ) "\n"
+line: <skip:'[ \t]*'> ( title | author | pattern_def | heading | field | comment | blank ) "\n"
 
 title: '!title' /.*/
@@ -43 +44 @@
 pattern_name: /[A-Z_]+/
 pattern: /.*/
+
+heading: '!head' /.*/
+    { warn "[Text::FormBuilder] Header before field " . scalar(@fields) . " redefined at input text line $thisline\n" if defined $headings[@fields];
+    $headings[@fields] = $item[2] }
 
 field: name field_size(?) label(?) hint(?) type(?) default(?) option_list(?) validate(?)