Changeset 3395

Timestamp:

Mar 9, 2005, 1:44:18 PM (21 years ago)

Author:

jhoblitt

Message:

change grammar such that all statements are terminated by \n
add metadata support
misc grammar changes

File:

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

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

@@ -1 +1 @@
 # Copyright (c) 2005  Joshua Hoblitt
 #
-# $Id: Config.pm,v 1.2 2005-03-01 23:45:21 jhoblitt Exp $
+# $Id: Config.pm,v 1.3 2005-03-09 23:44:18 jhoblitt Exp $
 
 package PS::IPP::Metadata::Config;
@@ -18 +18 @@
 #$::RD_TRACE = 1;
 #$::RD_HINT = 1;
+#use Data::Dumper;
 
 my $grammar = do{ local $/; <DATA> };
@@ -40 +41 @@
     my $tree = $self->{_parser}->startrule( $metadata );
 
+    return undef unless defined $tree;
+
+    #print Dumper($tree);
+    
     # remove comment only lines
     $self->_strip_comments( $tree ) or return undef;
@@ -61 +66 @@
         my $elem = $tree->[$i];
 
-        if ( $elem->{class} eq "comment_line" ) {
+        # recurse through nested metadata
+        if ( $elem->{class} eq "metadata" ) {
+            $self->_strip_comments( $elem->{value} );
+        }
+
+        # stop if the prevous pass removed the last element and called redo
+        last unless defined $elem;
+
+        if ( $elem->{class} =~ /comment_line|blank_line/ ) {
             # delete element from array
             splice @$tree, $i, 1;
@@ -85 +98 @@
     for (my $i = 0; $i < @{$tree}; $i++) {
         my $elem = $tree->[$i];
+
+        # recurse through nested metadata
+        if ( $elem->{class} eq "metadata" ) {
+            $self->_merge_multi_symbols( $elem->{value} );
+        }
+
+        # stop if the prevous pass removed the last element and called redo
+        last unless defined $elem;
 
         if ( $elem->{class} eq "multi_symbol" ) {
@@ -141 +162 @@
         my $elem = $tree->[$i];
 
+        # recurse through nested metadata
+        if ( $elem->{class} eq "metadata" ) {
+            $self->_merge_duplicates( $elem->{value} );
+        }
+
         if ( exists $names{ $elem->{name} } ) {
             carp "duplicate element name, ", $elem->{name}, "\n";
@@ -164 +190 @@
 __DATA__
 
-startrule:
-    statement(s) /\z/
+startrule: grammar
+
+grammar:
+    statement(s)
         { $item[1 .. -1] }
 
@@ -173 +201 @@
     | multi_symbol
     | comment_line
-
-comment_line:
-    comment
-        {{
-            class   => 'comment_line',
-            comment => $item{comment}
-        }}
-
-comment:
-    '#' end_of_line
-        { $item{end_of_line} }
+    | metadata
+    | blank_line
+#    | {
+#        use Carp qw( croak );
+#        $text =~ /([^\n]*)/;
+#        croak "Invalid statement at line $thisline near \"$1\"";
+#    }
 
 scalar:
-    name type value comment
+    <skip:'[ \t\r]*'> name type value comment "\n"
         {{
             class   => 'scalar',
@@ -194 +218 @@
             comment => $item{comment}
          }}
-    | name type value 
+    | <skip:'[ \t\r]*'> name type value "\n"
         {{
             class   => 'scalar',
@@ -203 +227 @@
 
 vector:
-    vname vtype vvalue comment
-        {{
+     <skip:'[ \t\r]*'> vname vtype vvalue comment "\n"
+        {{
+
             class   => 'vector',
             name    => $item{vname},
@@ -211 +236 @@
             comment => $item{comment}
          }}
-    | vname vtype vvalue 
+    | <skip:'[ \t\r]*'> vname vtype vvalue "\n"
         {{
             class   => 'vector',
@@ -220 +245 @@
 
 multi_symbol:
-    name '*' end_of_line
+    <skip:'[ \t\r]*'> name '*' to_end_of_line "\n"
         {{
             class   => 'multi_symbol',
             name    => $item{name}, 
-            comment => $item{end_of_line},
+            comment => $item{to_end_of_line},
         }}
+
+comment_line:
+    <skip:'[ \t\r]*'> comment "\n" 
+        {{
+            class   => 'comment_line',
+            comment => $item{comment},
+        }}
+
+metadata:
+    metadata_name grammar metadata_end
+        {{
+            class   => 'metadata',
+            name    => $item{metadata_name},
+            value   => $item{grammar},
+         }} 
+
+blank_line:
+    <skip:'[ \t\r]*'> "\n"
+        {{
+            class   => 'blank_line',
+            comment => $item{comment},
+        }}
+
+metadata_name:
+    <skip:'[ \t\r]*'> name /METADATA/i "\n"
+        { $item{name} } 
+    
+metadata_end:
+     <skip:'[ \t\r]*'> /END/i "\n"
+
+comment:
+    '#' to_end_of_line
+        { $item{to_end_of_line} }
 
 name:
@@ -256 +314 @@
 
 vvalue:
-    vvalue_(s)
+    _vvalue(s)
         { [ map { @$_ } @{$item[1]} ] }
 
 # backtracking optimization
-vvalue_:
+_vvalue:
     primitive vector_sep(?)
         { [ $item[1] ] }
@@ -285 +343 @@
     /\S[^#\n]*/
 
-end_of_line:
+to_end_of_line:
     /[^\n]*/