| [ 1 floats 1- ] Literal + [ -1 floats ] Literal and ; |
[ 1 floats 1- ] Literal + [ -1 floats ] Literal and ; |
| |
|
| >body xt -- a_addr core to_body |
>body xt -- a_addr core to_body |
| |
"" Get the address of the body of the word represented by @i{xt} (the address |
| |
of the word's data field)."" |
| a_addr = PFA(xt); |
a_addr = PFA(xt); |
| : |
: |
| 2 cells + ; |
2 cells + ; |
| represents a valid floating-point number @i{r} is placed |
represents a valid floating-point number @i{r} is placed |
| on the floating-point stack and @i{flag} is true. Otherwise, |
on the floating-point stack and @i{flag} is true. Otherwise, |
| @i{flag} is false. A string of blanks is a special case |
@i{flag} is false. A string of blanks is a special case |
| and represents the flotaing-point number 0."" |
and represents the floating-point number 0."" |
| /* real signature: c_addr u -- r t / f */ |
/* real signature: c_addr u -- r t / f */ |
| Float r; |
Float r; |
| char *number=cstr(c_addr, u, 1); |
char *number=cstr(c_addr, u, 1); |
