Changeset 3483

Timestamp:

Mar 23, 2005, 9:25:53 AM (21 years ago)

Author:

jhoblitt

Message:

change scalar & vector values to match only the proper type
fix bool
new MULTI syntax

File:

• trunk/PS-IPP-Metadata-Config/lib/PS/IPP/Metadata/Config.pm (modified) (9 diffs)

trunk/PS-IPP-Metadata-Config/lib/PS/IPP/Metadata/Config.pm

@@ -1 +1 @@
 # Copyright (c) 2005  Joshua Hoblitt
 #
-# $Id: Config.pm,v 1.9 2005-03-23 02:00:16 jhoblitt Exp $
+# $Id: Config.pm,v 1.10 2005-03-23 19:25:53 jhoblitt Exp $
 
 package PS::IPP::Metadata::Config;
@@ -85 +85 @@
 
 scalar:
-    <skip:'[ \t\r]*'> name type value comment(?) "\n"
+    <skip:'[ \t\r]*'> name type <matchrule:$item{type}> comment(?) "\n"
         {
             $return = {
@@ -91 +91 @@
                 name    => $item{name},
                 type    => $item{type},
-                value   => $item{value},
+                value   => $item[4],
             };
 
@@ -99 +99 @@
 
 vector:
-     <skip:'[ \t\r]*'> vname vtype vvalue comment(?) "\n"
+     <skip:'[ \t\r]*'> vname vtype vvalue[ $item{vtype} ] comment(?) "\n"
         {
             $return = {
@@ -114 +114 @@
 
 multi_declare:
-    <skip:'[ \t\r]*'> name '*' to_end_of_line "\n"
+    <skip:'[ \t\r]*'> name /MULTI/i comment(?) "\n"
         {{
             class   => 'blank_line',
@@ -259 +259 @@
 
 type: 
-    vtype | 'STR' | 'STRING'
+    vtype
+    | 'STR'
+    | 'STRING'
 
 vtype: 
@@ -282 +284 @@
     | 'TT'
 
-value:
-    primitive | string
-
+S8: int
+S16: int
+S32: int
+S64: int
+U8 : int
+U16: int
+U32: int
+U64: int
+F32: float
+F64: float
+C32: float
+C64: float
+BOOL: bool
+STR: string
+STRING: string
 
 vvalue:
-    _vvalue(s)
+    _vvalue[%arg](s)
         { [ map { @$_ } @{$item[1]} ] }
 
@@ -296 +310 @@
 # backtracking optimization
 _vvalue:
-    primitive vector_sep(?)
+    <matchrule:$arg[0]> vector_sep(?)
         { [ $item[1] ] }
 
 vector_sep:
     /,|\s+/
-
-primitive:
-    bool | float | int
 
 int:
@@ -314 +325 @@
 
 bool:
-    /[tf]\s+?/i
+    /[tf]/i
         { $item[1] =~ /t/i ? 1 : 0 }