| \ High level floating point 14jan94py |
\ High level floating point 14jan94py |
| |
|
| \ Copyright (C) 1995,1997 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1997,2003 Free Software Foundation, Inc. |
| |
|
| \ This file is part of Gforth. |
\ This file is part of Gforth. |
| |
|
| \G floating-point stack. |
\G floating-point stack. |
| fp0 @ fp@ - [ 1 floats ] Literal / ; |
fp0 @ fp@ - [ 1 floats ] Literal / ; |
| |
|
| : FLit ( -- r ) r> dup f@ float+ >r ; |
|
| : FLiteral ( compilation r -- ; run-time -- r ) \ float f-literal |
: FLiteral ( compilation r -- ; run-time -- r ) \ float f-literal |
| \G Compile appropriate code such that, at run-time, @i{r} is placed |
\G Compile appropriate code such that, at run-time, @i{r} is placed |
| \G on the (floating-point) stack. Interpretation semantics are undefined. |
\G on the (floating-point) stack. Interpretation semantics are undefined. |
| BEGIN here cell+ dup faligned <> WHILE postpone noop REPEAT |
BEGIN here cell+ cell+ dup faligned <> WHILE postpone noop REPEAT |
| postpone FLit f, ; immediate |
postpone ahead here >r f, postpone then |
| |
r> postpone literal postpone f@ ; immediate |
| |
|
| &15 Value precision ( -- u ) \ float-ext |
&15 Value precision ( -- u ) \ float-ext |
| \G @i{u} is the number of significant digits currently used by |
\G @i{u} is the number of significant digits currently used by |
| \G @code{f~abs}; r3=0: bitwise comparison; r3<0: @code{fnegate f~rel}. |
\G @code{f~abs}; r3=0: bitwise comparison; r3<0: @code{fnegate f~rel}. |
| fdup f0= |
fdup f0= |
| IF \ bitwise comparison |
IF \ bitwise comparison |
| fp@ float+ 1 floats over float+ -text 0= |
fp@ float+ 1 floats over float+ over str= |
| fdrop fdrop fdrop |
fdrop fdrop fdrop |
| EXIT |
EXIT |
| THEN |
THEN |
| fnegate f~rel |
fnegate f~rel |
| THEN ; |
THEN ; |
| |
|
| : f.s ( -- ) \ gforth f-dot-s |
\ proposals from Krishna Myeni in <cjsp2d$47l$1@ngspool-d02.news.aol.com> |
| \G Display the number of items on the floating-point stack, |
\ not sure if they are a good idea |
| \G followed by a list of the items; TOS is the right-most item. |
|
| ." <" fdepth 0 .r ." > " fdepth 0 max maxdepth-.s @ min dup 0 |
: FTRUNC ( r1 -- r2 ) |
| ?DO dup i - 1- floats fp@ + f@ f. LOOP drop ; |
\ round towards 0 |
| |
\ !! should be implemented properly |
| |
F>D D>F ; |
| |
|
| |
: FMOD ( r1 r2 -- r ) |
| |
\ remainder of r1/r2 |
| |
\ !! should be implemented properly |
| |
FOVER FOVER F/ ftrunc F* F- ; |
