diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 1999-02-04 18:31:26 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 1999-02-04 18:31:26 +0000 |
| commit | 7cd3eaed3a89f745804ec1d11c55b2c8aab35889 (patch) | |
| tree | d93d62c003dac3e38ad2a8be226ea4d32b564332 /gnu/usr.bin/perl/utils | |
| parent | 081ca430c9ad2e97dcd2f26017391102c001c7ed (diff) | |
Grok things like 1.7976931348623157E+308 and the [fF] suffix (float).
limits.ph is now almost usable...
Diffstat (limited to 'gnu/usr.bin/perl/utils')
| -rw-r--r-- | gnu/usr.bin/perl/utils/h2ph.PL | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gnu/usr.bin/perl/utils/h2ph.PL b/gnu/usr.bin/perl/utils/h2ph.PL index fc072532016..8edad81f155 100644 --- a/gnu/usr.bin/perl/utils/h2ph.PL +++ b/gnu/usr.bin/perl/utils/h2ph.PL @@ -192,11 +192,11 @@ exit $Exit; sub expr { while ($_ ne '') { s/^\&//; # hack for things that take the address of - s/^(\s+)// && do {$new .= ' '; next;}; - s/^(0x[0-9a-fA-F]+)\s*[LlUu]*// && do {$new .= $1; next;}; - s/^(\d+)\s*[LlUu]*// && do {$new .= $1; next;}; - s/^("(\\"|[^"])*")// && do {$new .= $1; next;}; - s/^'((\\"|[^"])*)'// && do { + s/^(\s+)// && do {$new .= ' '; next;}; + s/^(0x[0-9a-fA-F]+)\s*[LlUu]*// && do {$new .= $1; next;}; + s/^(\d+([Ee][\+-]\d+)?)\s*[fFLlUu]*// && do {$new .= $1; next;}; + s/^("(\\"|[^"])*")// && do {$new .= $1; next;}; + s/^'((\\"|[^"])*)'// && do { if ($curargs{$1}) { $new .= "ord('\$$1')"; } |