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

Timestamp:

Oct 26, 2006, 4:15:45 PM (20 years ago)

Author:

jhoblitt

Message:

fix time tests that were dependent on MULTI times being broken
fix MULTI time
no longer require the 'Z' and the end of ISO8601 times
implement NULL time support

File:

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

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

@@ -1 +1 @@
 # Copyright (c) 2005  Joshua Hoblitt
 #
-# $Id: config_grammar.txt,v 1.6 2006-10-12 02:08:51 jhoblitt Exp $
+# $Id: config_grammar.txt,v 1.7 2006-10-27 02:15:45 jhoblitt Exp $
 
 {
@@ -146 +146 @@
             $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} }++;
+            }
         }
 
@@ -362 +369 @@
     iso8601
     | utc_epoch
+    | NULL
 
 UT1:
     iso8601
     | epoch
+    | NULL
 
 TAI:
     iso8601
     | epoch
+    | NULL
 
 TT:
     iso8601
     | epoch
+    | NULL
 
 iso8601:
     # based on code from DateTime::Format::ISO8601
-    / \d{4} -?? \d\d -?? \d\d T?? \d\d :?? \d\d :?? \d\d (?:[\.,] (\d+))? Z/x
+    / \d{4} -?? \d\d -?? \d\d T?? \d\d :?? \d\d :?? \d\d (?:[\.,] (\d+))? Z?/x
         { DateTime::Format::ISO8601->parse_datetime( $item[1] ) }
 
@@ -394 +405 @@
             nsec    => $2,
         }}
+NULL:
+    /NULL/
+    { $return = "NULL" }
 
 eofile: