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

Timestamp:

01/18/05 15:19:14 (19 years ago)

Author:

peichman

Message:

BUGFIX: can have "unbalanced" quotes in note or description blocks (wrote own grammar rule instead of using the built-in <perl_codeblock> directive)

File:

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

trunk/lib/Text/FormBuilder/grammar

@@ -68 +68 @@
     }
 
-description_def: '!description' <perl_codeblock>
+description_def: '!description' block
     { warn "[Text::FormBuilder] Description redefined at input text line $thisline\n" if defined $description;
     
@@ -85 +85 @@
     }
 
-note: '!note' <perl_codeblock>
+note: '!note' block
     {   
         (my $note = $item[2]) =~ s/^{\s*|\s*}$//g;
@@ -91 +91 @@
     }
 
+# curly-brace delimited block, that can contain properly
+# nested curly brackets, along with any other characters
+# return with the '{...}' so that nested blocks get the
+# brackets treated as literals
+block: '{' <skip:''> block_content(s) '}'
+    {
+        '{' . join('', @{ $item[3] }) . '}';
+    }
+
+block_content: /[^\{\}]+?/ | block
+
 
 field_line: <skip:'[ \t]*'> ( field | comment | blank ) "\n"
@@ -97 +108 @@
 title: '!title' /.*/
     {
-        warn "[Text::Formbuilder] Title redefined at input text line $thisline\n" if defined $title;
+        warn "[Text::FormBuilder] Title redefined at input text line $thisline\n" if defined $title;
         $title = $item[2];
     }
@@ -103 +114 @@
 author: '!author' /.*/
     {
-        warn "[Text::Formbuilder] Author redefined at input text line $thisline\n" if defined $author;
+        warn "[Text::FormBuilder] Author redefined at input text line $thisline\n" if defined $author;
         $author = $item[2];
     }