Changeset 10147 for trunk/PS-IPP-Metadata-Config/config_grammar.txt

Timestamp:

Nov 22, 2006, 1:54:50 PM (20 years ago)

Author:

jhoblitt

Message:

merge the 'time' production into the 'scalar' production for a ~20% speed
boost
remove support for "epoch format" times

File:

• trunk/PS-IPP-Metadata-Config/config_grammar.txt (modified) (9 diffs)

trunk/PS-IPP-Metadata-Config/config_grammar.txt

@@ -1 +1 @@
 # Copyright (c) 2005  Joshua Hoblitt
 #
-# $Id: config_grammar.txt,v 1.8 2006-11-04 01:25:32 jhoblitt Exp $
+# $Id: config_grammar.txt,v 1.9 2006-11-22 23:54:50 jhoblitt Exp $
 
 {
@@ -7 +7 @@
 
     use Carp qw( carp );
+    use DateTime::Format::ISO8601;
 
     our @scope_stack;
@@ -29 +30 @@
     | typedef_declare
     | multi_declare
-    | time
     | <error:unmatched statement: $text>
 
@@ -131 +131 @@
     <skip:'[ \t\r]*'> comment(?) "\n"
         {{ class   => 'comment_line' }}
-
-time:
-    <skip:'[ \t\r]*'> name ttype <matchrule:$item{ttype}> comment(?) "\n"
-        {
-            use DateTime::Format::ISO8601;
-
-            $return = {
-                class   => 'time',
-                name    => $item{name},
-                type    => $item{ttype},
-                value   => $item[4],
-            };
-
-            $return->{comment} = $item{'comment(?)'}[0]
-                if $item{'comment(?)'}[0];
-
-            if ( defined $thisparser->{local}{name}{ $item{name} } ) {
-                $return->{multi}++
-                    if $thisparser->{local}{name}{ $item{name} } =~ /MULTI/;
-            } else {
-                $thisparser->{local}{name}{ $item{name} }++;
-            }
-        }
 
 typedef_declare:
@@ -261 +238 @@
     | 'STRING'
     | vtype
+    | 'UTC'
+    | 'UT1'
+    | 'TAI'
+    | 'TT'
 
 vtype: 
@@ -276 +257 @@
     | 'C64'
     | 'BOOL'
-
-ttype:
-    'UTC'
-    | 'UT1'
-    | 'TAI'
-    | 'TT'
 
 S8: int
@@ -303 +278 @@
         { [ map { @$_ } @{$item[1]} ] }
 
-tvalue:
-    iso8601
-    | epoch
-
 # backtracking optimization
 _vvalue:
@@ -369 +340 @@
 UTC:
     iso8601
-    | utc_epoch
     | NULL
 
 UT1:
     iso8601
-    | epoch
     | NULL
 
 TAI:
     iso8601
-    | epoch
     | NULL
 
 TT:
     iso8601
-    | epoch
     | NULL
 
@@ -392 +359 @@
         { DateTime::Format::ISO8601->parse_datetime( $item[1] ) }
 
-utc_epoch:
-    / (-?\d{1,19}) \s*,\s* (\d{1,9}) (?:\s*,\s* (\d))? /x
-        {{
-            sec         => $1,
-            nsec        => $2,
-            leapsecond  => $3,
-        }}
-
-epoch:
-    / (-?\d{1,19}) \s*,\s* (\d{1,9}) /x
-        {{
-            sec     => $1,
-            nsec    => $2,
-        }}
 NULL:
     /NULL/