version 1.21, 2007/02/17 16:27:16
|
version 1.22, 2007/03/25 21:30:59
|
Line 282 struct Cellpair parse_white(Char *c_addr
|
Line 282 struct Cellpair parse_white(Char *c_addr
|
return result; |
return result; |
} |
} |
|
|
|
#ifdef HAS_FILE |
Cell rename_file(Char *c_addr1, UCell u1, Char *c_addr2, UCell u2) |
Cell rename_file(Char *c_addr1, UCell u1, Char *c_addr2, UCell u2) |
{ |
{ |
char *s1=tilde_cstr(c_addr2, u2, 1); |
char *s1=tilde_cstr(c_addr2, u2, 1); |
Line 404 Cell to_float(Char *c_addr, UCell u, Flo
|
Line 405 Cell to_float(Char *c_addr, UCell u, Flo
|
*rp = r; |
*rp = r; |
return flag; |
return flag; |
} |
} |
|
#endif |
|
|
Float v_star(Float *f_addr1, Cell nstride1, Float *f_addr2, Cell nstride2, UCell ucount) |
Float v_star(Float *f_addr1, Cell nstride1, Float *f_addr2, Cell nstride2, UCell ucount) |
{ |
{ |