Changeset 3843 for trunk/PS-IPP-Metadata-Config/lib/PS/IPP/Metadata/Config.pm

Timestamp:

May 4, 2005, 12:09:28 PM (21 years ago)

Author:

jhoblitt

Message:

change metadata_name & metadata_end to allow comments
change statement match ordering (optimization)

File:

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

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

@@ -1 +1 @@
 # Copyright (c) 2005  Joshua Hoblitt
 #
-# $Id: Config.pm,v 1.15 2005-05-04 21:48:53 jhoblitt Exp $
+# $Id: Config.pm,v 1.16 2005-05-04 22:09:28 jhoblitt Exp $
 
 package PS::IPP::Metadata::Config;
@@ -130 +130 @@
     scalar
     | vector
+    | comment_line
+    | typedef
+    | metadata
+    | typedef_declare
     | multi_declare
-    | comment_line
-    | metadata
     | time
-    | typedef_declare
-    | typedef
     | <error:unmatched statement: $text>
 
@@ -193 +193 @@
 
 metadata:
-    metadata_name <commit>
+    metadata_name <commit> 
     { push @scope_stack, $thisparser->{local}; $thisparser->{local} = {} }
     grammar
@@ -300 +300 @@
 
 metadata_name:
-    <skip:'[ \t\r]*'> name /METADATA/i "\n"
+    <skip:'[ \t\r]*'> name /METADATA/i comment(?) "\n"
         { $item{name} } 
     
 metadata_end:
-     <skip:'[ \t\r]*'> /END/i "\n"
+     <skip:'[ \t\r]*'> /END/i comment(?) "\n"
 
 comment: