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

Timestamp:

01/13/05 15:00:25 (20 years ago)

Author:

peichman

Message:

single-line textfields can be given a maxlength

File:

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

trunk/lib/Text/FormBuilder/grammar

@@ -19 +19 @@
         $list_var,
         $size,
+        $maxlength,
         $rows,
         $cols,
@@ -157 +158 @@
         $$field{cols} = $cols if defined $cols;
         $$field{size} = $size if defined $size;
+        $$field{maxlength} = $maxlength if defined $maxlength;
         
         #warn "[$thisline] field $item{name}; context $context\n";
@@ -171 +173 @@
         $rows = undef;
         $cols = undef;
+        $maxlength = undef;
         @options = ();
         
@@ -181 +184 @@
 field_size: '[' ( row_col | size ) ']'
 
-size: /\d+/
-    { $size = $item[1] }
+size: /\d+/ bang(?)
+    { $maxlength = $item[1] if $item[2][0]; $size = $item[1] }
+
+bang: '!'
 
 row_col: /\d+/ /,\s*/ /\d+/