Changeset 77 in text-formbuilder for trunk

Timestamp:

03/25/05 13:20:40 (20 years ago)

Author:

peichman

Message:

fixed some typos in the docs
rearranged internals in the grammar, plus a minor bugfix for the skip pattern of inline lists (now allows padding space around the comma)
added new test scripts to the MANIFEST

Location:

trunk

Files:

• MANIFEST (modified) (1 diff)
• lib/Text/FormBuilder.pm (modified) (4 diffs)
• lib/Text/FormBuilder/grammar (modified) (10 diffs)

trunk/MANIFEST

@@ -4 +4 @@
 README
 t/Text-FormBuilder.t
+t/pod-coverage.t
+t/01-field.t
 bin/fb.pl
 lib/Text/FormBuilder.pm

trunk/lib/Text/FormBuilder.pm

@@ -821 +821 @@
 your server, and you don't have to parse the form spec each time you want 
 to display your form. The generated module is a subclass of L<CGI::FormBuilder>,
-that will passa long any constructor arguments to FormBuilder, and set up
+that will pass along any constructor arguments to FormBuilder, and set up
 the fields for you.
 
@@ -983 +983 @@
 =item C<!field>
 
-B<DEPRACATED> Include a named instance of a group defined with C<!group>.
+B<DEPRECATED> Include a named instance of a group defined with C<!group>.
 
 =item C<!title>
@@ -1223 +1223 @@
 =head2 Language/Parser
 
-Deprecate the C<!field> directive
+Make sure that multiple runs of the parser don't share data.
 
 Allow renaming of the submit button; allow renaming and inclusion of a 
@@ -1239 +1239 @@
 =head2 Code generation/Templates
 
+Expose some of the currently private functions to be able to get the generated
+code text directly, without printing.
+
 Revise the generated form constructing code to use the C<fieldopts>
 option to C<< FB->new >>; will require FB 3.02 to run.

trunk/lib/Text/FormBuilder/grammar

@@ +1 @@
+# line directives
+# block directives
+# field lines
+# comments
+
 {
     #$::RD_TRACE = 1;
     my (
-        $context,      # line or group
         @sections,     # master data structure
         $section_head,
         $section_id,
         @lines,        # lines in each section
-        $title,
-        $author,
-        $description,
         %lists,
         %patterns,
@@ -24 +25 @@
         $cols,
     );
-    $context = 'line';
+    my $context = 'line';       # start in line context by default
+    my %formspec;
+    
+    # TODO: helper sub?
+    sub alert ($) {
+        warn '[' . (split(/::/, (caller(1))[3]))[-1] . '] ' . shift() . "\n";
+    }
 }
 
-form_spec: (list_def | description_def | validate_def | group_def | note | line)(s)
+form_spec:
+    { 
+        %formspec = ();  # clear the old formspec data
+    }
+    (list_def | description_def | group_def | note | line)(s)
     {
         # grab the last section, if there is any
@@ -39 +50 @@
         }
         
-        $section_id = $item{identifier};
-        $section_head = $item[3];
-        @lines = ();
         $return = {
-            title    => $title,
-            author   => $author,
-            description => $description,
+            title    => $formspec{title},
+            author   => $formspec{author},
+            description => $formspec{description},
             lists    => \%lists,
             patterns => \%patterns,
@@ -60 +68 @@
 
 dynamic_list: '&' <perl_codeblock>
-    {
-        warn "[Text::FormBuilder] Dynamic lists have been removed from the formspec grammar";
-    }
+    { warn "[Text::FormBuilder] Dynamic lists have been removed from the formspec grammar"; }
 
 description_def: '!description' block
     {
-        warn "[Text::FormBuilder] Description redefined at input text line $thisline\n" if defined $description;
-        $description = $item{block};
-    }
-
-validate_def: '!validate' var_name <perl_codeblock>
-    { $subs{$item{var_name}} = eval "sub $item[3]" }
+        warn "[Text::FormBuilder] Description redefined at input text line $thisline\n" if defined $formspec{description};
+        $formspec{description} = $item{block};
+    }
 
 group_def: '!group' { $context = 'group' } var_name '{' field_line(s) '}' { $context = 'line' }
@@ -82 +85 @@
 note: '!note' block  { push @lines, [ 'note', $item{block} ]; }
 
-
-#TODO: allow \ escape for [] {} in these blocks
 
 # curly-brace delimited block, that can contain properly
@@ -109 +110 @@
 title: '!title' /.*/
     {
-        warn "[Text::FormBuilder] Title redefined at input text line $thisline\n" if defined $title;
-        $title = $item[2];
+        warn "[Text::FormBuilder] Title redefined at input text line $thisline\n" if defined $formspec{title};
+        $formspec{title} = $item[2];
     }
 
 author: '!author' /.*/
     {
-        warn "[Text::FormBuilder] Author redefined at input text line $thisline\n" if defined $author;
-        $author = $item[2];
+        warn "[Text::FormBuilder] Author redefined at input text line $thisline\n" if defined $formspec{author};
+        $formspec{author} = $item[2];
     }
 
@@ -147 +148 @@
 group_field: '!field' group_name name label(?)
     {
-        warn "[Text::FormBuilder] The !field directive has been DEPRECATED (input file line $thisline). Please use the name:GROUP style";
+        warn "WARNING line $thisline: The '!field' directive has been DEPRECATED. Use the 'name:GROUP' style instead.\n";
         push @lines, [ 'group', { name => $item{name}, label => $item{'label(?)'}[0], group => $item{group_name} } ];
     }
@@ -227 +228 @@
 limit: /\d+/
 
-label: '|' (simple_multiword | quoted_string) { $item[2] }
+label: '|' string { $item[2] }
 
 hint: bracket_block
@@ -237 +238 @@
 other: '+' 'other' { 1 }
 
-default: '=' (simple_multiword | quoted_string) { $item[2] }
+default: '=' string { $item[2] }
+
+string: simple_multiword | quoted_string
 
 # for simple multiword values not involving punctuation
@@ -249 +252 @@
 option_list: options | list_var
     
-options: '{' option(s /,/) '}'
+options: '{' option(s /\s*,\s*/) '}'
 
 list_var: /@[A-Z_]+/ { $list_var = $item[1] }
 
-option: (simple_multiword | quoted_string) display_text(?)
+option: string display_text(?)
     { push @options, { $item[1] => $item{'display_text(?)'}[0] } }