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

Timestamp:

11/12/04 16:54:23 (20 years ago)

Author:

peter

Message:

added !group and !field directive to the language to allow for horizontal groups of input fields
moving to a new representation of the parsed formspec based on lines as opposed to fields

File:

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

trunk/lib/Text/FormBuilder/grammar

@@ -1 @@
-{ my ($title, $author, $description, %lists, %patterns, @fields, @headings, $type, @options, $list_var, $size, $rows, $cols); }
+{ 
+    my (
+        $context,      # line or group
+        @lines,        # master data structure
+        $title,
+        $author,
+        $description,
+        %lists,
+        %patterns,
+        @fields,
+        @group,        # current group
+        %groups,       # stored groups of fields
+        @headings,
+        $type,
+        @options,
+        $list_var,
+        $size,
+        $rows,
+        $cols,
+    );
+    $context = 'line';
+}
 
-form_spec: (list_def | description_def | line)(s) 
+form_spec: (list_def | description_def | group_def | line)(s) 
     {
         $return = {
@@ -11 +32 @@
             headings => \@headings,
             fields   => \@fields,
+            lines    => \@lines,
+            groups   => \%groups,
         }
     }
@@ -36 +59 @@
     }
 
-line: <skip:'[ \t]*'> ( title | author | pattern_def | heading | unknown_directive | field | comment | blank ) "\n"
+group_def: '!group' { $context = 'group' } var_name '{' field_line(s) '}' { $context = 'line' }
+    { 
+        #warn "$item{var_name} group; context $context\n"
+        $groups{$item{var_name}} = [ @group ];
+        @group = ();
+    }
+
+field_line: <skip:'[ \t]*'> ( field | comment | blank ) "\n"
+line: <skip:'[ \t]*'> ( title | author | pattern_def | heading | group_field | unknown_directive | field | comment | blank ) "\n"
 
 title: '!title' /.*/
@@ -51 +82 @@
 
 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] }
+    {
+        warn "[Text::FormBuilder] Header before field " . scalar(@fields) . " redefined at input text line $thisline\n" if defined $headings[@fields];
+        $headings[@fields] = $item[2];
+        push @lines, [ 'head', $item[2] ];
+    }
+
+group_field: '!field' group_name name label(?)
+    { #warn "[$thisline] $item{group_name}\n"; 
+    push @lines, [ 'group', { name => $item{name}, label => $item{'label(?)'}[0], group => $item{group_name} } ];
+    }
+
+group_name: /%[A-Z_]+/
 
 field: name field_size(?) label(?) hint(?) type(?) default(?) option_list(?) validate(?)
@@ -72 +113 @@
         $$field{size} = $size if defined $size;
         
-        push @fields, $field;
+        #warn "[$thisline] field $item{name}; context $context\n";   
+        if ($context eq 'group') {
+            push @group, $field;
+        } else {
+            push @fields, $field;
+            push @lines, [ 'field', $field ];
+        }
         
         $type = undef;
@@ -95 +142 @@
     { $rows = $item[1]; $cols = $item[3] }
 
-label: '|' /[^:\[\{\/]+/i
+#TODO: zero width labels
+label: '|' /[^:\[\{\/\n]*/i { $item[2] }
 
 hint: '[' /[^\]]+/ ']'    { $item[2] }