Changeset 59 in text-formbuilder for trunk/lib

Timestamp:

01/31/05 14:58:23 (20 years ago)

Author:

peichman

Message:

added a class="fieldgroup" attr to field group spans
added a brace_block to the parser, to parse [...] with nested [...]'s

Location:

trunk/lib/Text

Files:

• FormBuilder.pm (modified) (1 diff)
• FormBuilder/grammar (modified) (1 diff)

trunk/lib/Text/FormBuilder.pm

@@ -530 +530 @@
                 $OUT .= qq[</th>\n];
                 
-                $OUT .= qq[    <td>];
+                $OUT .= qq[    <td><span class="fieldgroup">];
                 $OUT .= join(' ', map { qq[<small class="sublabel">$$_{label}</small> $$_{field} $$_{comment}] } @group_fields);
                 $OUT .= " $msg_invalid" if $$_{invalid};
-
-                $OUT .= qq[    </td>\n];
+                
+                $OUT .= qq[    </span></td>\n];
                 $OUT .= qq[  </tr>\n];
             }   

trunk/lib/Text/FormBuilder/grammar

@@ -234 +234 @@
 value: identifier
 
-display_text: '[' /[^\]]+/i ']'    { $item[2] }
+display_text: brace_block
+    { (my $text = $item[1]) =~ s/^\[\s*|\s*\]$//g; $text }
+
+# square brace delimited block, that can contain properly
+# nested square braces, along with any other characters
+# return with the '[...]' so that nested blocks get the
+# braces treated as literals
+brace_block: '[' <skip:''> brace_block_content(s) ']'
+    {
+        '[' . join('', @{ $item[3] }) . ']';
+    }
+brace_block_content: /[^\[\]]+?/ | brace_block
+
 
 validate: '//' (optional_pattern | required_pattern)    { $item[2] }