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

Timestamp:

12/16/04 13:55:34 (20 years ago)

Author:

peichman

Message:

fallthrough to CGI::FormBuilder builtin lists working (again); added a !note directive; discovered bug in parsing of !directive and !note

File:

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

trunk/lib/Text/FormBuilder/grammar

@@ -25 +25 @@
 }
 
-form_spec: (list_def | description_def | validate_def | group_def | line)(s)
+form_spec: (list_def | description_def | validate_def | group_def | note | line)(s)
     {
         # grab the last section, if there is any
@@ -84 +84 @@
     }
 
+note: '!note' <perl_codeblock>
+    {   
+        (my $note = $item[2]) =~ s/^{\s*|\s*}$//g;
+        push @lines, [ 'note', $note ];
+    }
+
+
 field_line: <skip:'[ \t]*'> ( field | comment | blank ) "\n"
 line: <skip:'[ \t]*'> ( title | author | pattern_def | section_head | heading | group_field | unknown_directive | field | comment | blank ) "\n"