version 1.271, 2012/04/12 16:11:40
|
version 1.272, 2012/05/26 10:20:01
|
Line 2262 representation. If the string represents
|
Line 2262 representation. If the string represents
|
true. Otherwise, @i{flag} is false. A string of blanks is a special |
true. Otherwise, @i{flag} is false. A string of blanks is a special |
case and represents the floating-point number 0."" |
case and represents the floating-point number 0."" |
Float r; |
Float r; |
flag = to_float(c_addr, u, &r); |
flag = to_float(c_addr, u, &r, '.'); |
if (flag) { |
if (flag) { |
fp--; |
fp--; |
fp[0]=r; |
fp[0]=r; |
Line 2457 faxpy(ra, f_x, nstridex, f_y, nstridey,
|
Line 2457 faxpy(ra, f_x, nstridex, f_y, nstridey,
|
fdup dup f@ f* over + 2swap dup f@ f+ dup f! over + 2swap |
fdup dup f@ f* over + 2swap dup f@ f+ dup f! over + 2swap |
LOOP 2drop 2drop fdrop ; |
LOOP 2drop 2drop fdrop ; |
|
|
|
>float1 ( c_addr u c -- f:... flag ) gforth to_float1 |
|
""Actual stack effect: ( c_addr u c -- r t | f ). Attempt to convert the |
|
character string @i{c-addr u} to internal floating-point |
|
representation. If the string represents a valid floating-point number |
|
@i{r} is placed on the floating-point stack and @i{flag} is |
|
true. Otherwise, @i{flag} is false. A string of blanks is a special |
|
case and represents the floating-point number 0."" |
|
Float r; |
|
flag = to_float(c_addr, u, &r, c); |
|
if (flag) { |
|
fp--; |
|
fp[0]=r; |
|
} |
|
|
\+ |
\+ |
|
|
\ The following words access machine/OS/installation-dependent |
\ The following words access machine/OS/installation-dependent |