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

Timestamp:

Sep 22, 2006, 2:26:50 PM (20 years ago)

Author:

jhoblitt

Message:

add float nan/inf support

File:

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

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

@@ -1 +1 @@
 # Copyright (c) 2005  Joshua Hoblitt
 #
-# $Id: config_grammar.txt,v 1.1 2006-08-25 03:08:56 jhoblitt Exp $
+# $Id: config_grammar.txt,v 1.2 2006-09-23 00:26:50 jhoblitt Exp $
 
 {
@@ -289 +289 @@
     /(?:(?:[+-]?)(?:[0-9]+))/
 
+    # based on $RE{num}{real} from Regexp::Common::number
 float:
-    # based on $RE{num}{real} from Regexp::Common::number
     /(?:(?i)(?:[+-]?)(?:(?=[0-9]|[.])(?:[0-9]*)(?:(?:[.])(?:[0-9]{0,}))?)(?:(?:[Ee])(?:(?:[+-]?)(?:[0-9]+))|))/
+    | inf
+    | nan
+
+inf:
+    /[+-]?inf(?:inity)?/i
+        {
+            if ($item[1] =~ /^-/) {
+                $return = "-inf";
+            } else {
+                $return = "+inf";
+            }
+        }
+nan:
+    /[+-]?nan(?:\(\S*?\))?/i
+        { $return = "nan" }
 
 bool: