Re: [Amforth-devel] >FLOAT

[pito <pi...@vo...>]

> Will do, although I think the real solution is to
> have it included by default 
> in amforth -- it's listed on
> <http://amforth.sourceforge.net/words/> after 
> all.
sure, some needs to be .included..

Some new creazy ideas for >float tests:


\ SIMPLE FLOATS INPUT TEST

bl parse  0e0 >float . fs.
bl parse -0e0 >float . fs.
bl parse -0e-0 >float . fs.
bl parse -0e-0 >float . fs.
bl parse +0e-0 >float . fs.
bl parse +0e+0 >float . fs.

bl parse  0.0e0 >float . fs.
bl parse -0.0e0 >float . fs.
bl parse -0.0e-0 >float . fs.
bl parse -0.0e-0 >float . fs.
bl parse +0.0e-0 >float . fs.
bl parse +0.0e+0 >float . fs.

bl parse  1e0 >float . fs.
bl parse -1e0 >float . fs.
bl parse -1e-0 >float . fs.
bl parse -1e-0 >float . fs.
bl parse +1e-0 >float . fs.
bl parse +1e+0 >float . fs.

bl parse  1.0e0 >float . fs.
bl parse -1.0e0 >float . fs.
bl parse -1.0e-0 >float . fs.
bl parse -1.0e-0 >float . fs.
bl parse +1.0e-0 >float . fs.
bl parse +1.0e+0 >float . fs.

bl parse  1.0e09 >float . fs.
bl parse -1.0e09 >float . fs.
bl parse -1.0e-09 >float . fs.
bl parse -1.0e-09 >float . fs.
bl parse +1.0e-09 >float . fs.
bl parse +1.0e+09 >float . fs.

bl parse  9e0 >float . fs.
bl parse -9e0 >float . fs.
bl parse  9e-0 >float . fs.
bl parse -9e+0 >float . fs.

bl parse  9e09 >float . fs.
bl parse -9e09 >float . fs.
bl parse  9e-09 >float . fs.
bl parse -9e+09 >float . fs.

bl parse +9e+0 >float . fs.
bl parse -9e+0 >float . fs.
bl parse +9e-0 >float . fs.
bl parse +9e+0 >float . fs.

bl parse +9e+09 >float . fs.
bl parse -9e+09 >float . fs.
bl parse +9e-09 >float . fs.
bl parse +9e+09 >float . fs.

bl parse +9.e+0 >float . fs.
bl parse -9.e+0 >float . fs.
bl parse +9.e-0 >float . fs.
bl parse +9.e+0 >float . fs.

bl parse +9.9e0 >float . fs.
bl parse -9.9e0 >float . fs.
bl parse +9.9e0 >float . fs.
bl parse +9.9e0 >float . fs.

bl parse +9.9e+0 >float . fs.
bl parse -9.9e+0 >float . fs.
bl parse +9.9e-0 >float . fs.
bl parse +9.9e+0 >float . fs.


bl parse +9.9e+09 >float . fs.
bl parse -9.9e+09 >float . fs.
bl parse +9.9e-09 >float . fs.
bl parse +9.9e+09 >float . fs.

bl parse  0.000000e0 >float . fs.
bl parse  0.000000e-0 >float . fs.
bl parse -0.000000e0 >float . fs.
bl parse -0.000000e-0 >float . fs.

bl parse +0.000000e+0 >float . fs.
bl parse +0.000000e-0 >float . fs.
bl parse -0.000000e+0 >float . fs.
bl parse -0.000000e-0 >float . fs.

bl parse  9.000000e0 >float . fs.
bl parse  9.000000e-0 >float . fs.
bl parse -9.000000e0 >float . fs.
bl parse -9.000000e-0 >float . fs.

bl parse +9.000000e+0 >float . fs.
bl parse +9.000000e-0 >float . fs.
bl parse -9.000000e+0 >float . fs.
bl parse -9.000000e-0 >float . fs.

bl parse  9.000000e09 >float . fs.
bl parse  9.000000e-09 >float . fs.
bl parse -9.000000e09 >float . fs.
bl parse -9.000000e-09 >float . fs.

bl parse +9.000000e+09 >float . fs.
bl parse +9.000000e-09 >float . fs.
bl parse -9.000000e+09 >float . fs.
bl parse -9.000000e-09 >float . fs.

bl parse  9.999000e0 >float . fs.
bl parse -9.999000e0 >float . fs.
bl parse  9.999000e9 >float . fs.
bl parse -9.999000e9 >float . fs.

bl parse  9.999000e+0 >float . fs.
bl parse -9.999000e+0 >float . fs.
bl parse  9.999000e-0 >float . fs.
bl parse -9.999000e-0 >float . fs.

bl parse  9.999000e+00 >float . fs.
bl parse -9.999000e+00 >float . fs.
bl parse  9.999000e-00 >float . fs.
bl parse -9.999000e-00 >float . fs.

bl parse  9.999999e+30 >float . fs.
bl parse -9.999999e+30 >float . fs.
bl parse  9.999999e-30 >float . fs.
bl parse -9.999999e-30 >float . fs.

bl parse  999999.9e+30 >float . fs.
bl parse -999999.9e+30 >float . fs.
bl parse  999999.9e-30 >float . fs.
bl parse -999999.9e-30 >float . fs.

bl parse  999999.9e30 >float . fs.
bl parse -999999.9e30 >float . fs.
bl parse  999999.9e-30 >float . fs.
bl parse -999999.9e-30 >float . fs.
bl parse +999999.9e30 >float . fs.
bl parse +999999.9e-30 >float . fs.

bl parse  0.000000e0 >float . fs.
bl parse  000000.0e-0 >float . fs.
bl parse  000000.0e+0 >float . fs.
bl parse  +000000.0e-0 >float . fs.
bl parse  +000000.0e+0 >float . fs.
bl parse  -000000.0e-0 >float . fs.
bl parse  -000000.0e+0 >float . fs.

bl parse  000000.1e-0 >float . fs.
bl parse  000000.1e+0 >float . fs.
bl parse  +000000.1e-0 >float . fs.
bl parse  +000000.1e+0 >float . fs.
bl parse  -000000.1e-0 >float . fs.
bl parse  -000000.1e+0 >float . fs.

bl parse  000000.1e-01 >float . fs.
bl parse  000000.1e+01 >float . fs.
bl parse  +000000.1e-01 >float . fs.
bl parse  +000000.1e+01 >float . fs.
bl parse  -000000.1e-01 >float . fs.
bl parse  -000000.1e+01 >float . fs.

bl parse  0.000099e+31 >float . fs.
bl parse -0.000099e+31 >float . fs.
bl parse  0.000099e-31 >float . fs.
bl parse -0.000099e-31 >float . fs.

bl parse  1.000077e+24 >float . fs.
bl parse -1.000077e+24 >float . fs.
bl parse  1.000077e-24 >float . fs.
bl parse -1.000077e-24 >float . fs.

bl parse  1.234567e0 >float . fs.
bl parse -1.234567e0 >float . fs.
bl parse  1.234567e-0 >float . fs.
bl parse -1.234567e-0 >float . fs.
bl parse  1.234567e+0 >float . fs.
bl parse -1.234567e+0 >float . fs.
bl parse  1.234567e-00 >float . fs.
bl parse -1.234567e+00 >float . fs.

bl parse  1.234567e30 >float . fs.
bl parse -1.234567e30 >float . fs.
bl parse  1.234567e+30 >float . fs.
bl parse -1.234567e+30 >float . fs.
bl parse  1.234567e-30 >float . fs.
bl parse -1.234567e-30 >float . fs.

bl parse  9.999999e+30 >float . fs.
bl parse -9.999999e+30 >float . fs.
bl parse  9.999999e-30 >float . fs.
bl parse -9.999999e-30 >float . fs.

bl parse +9.999999e+30 >float . fs.
bl parse -9.999999e+30 >float . fs.
bl parse +9.999999e-30 >float . fs.
bl parse -9.999999e-30 >float . fs.
bl parse +9.999999e30 >float . fs.
bl parse -9.999999e30 >float . fs.