Changeset 8888

Timestamp:

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

Author:

jhoblitt

Message:

add float nan/inf support

Location:

trunk/PS-IPP-Metadata-Config

Files:

• Changes (modified) (1 diff)
• MANIFEST (modified) (1 diff)
• config_grammar.txt (modified) (2 diffs)
• t/07_floats.t (added)

trunk/PS-IPP-Metadata-Config/Changes

@@ -1 +1 @@
 Revision history for Perl module PS::IPP::Metadata::Config
+
+0.03
+    - add float nan/inf support
 
 0.02 Thu Aug 24 17:08:14 HST 2006

trunk/PS-IPP-Metadata-Config/MANIFEST

@@ -19 +19 @@
 t/05_time.t
 t/06_multi.t
+t/07_float.t

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: