| /* use !isgraph instead of isspace? */ |
/* use !isgraph instead of isspace? */ |
| struct Cellpair result; |
struct Cellpair result; |
| Char *c_addr2; |
Char *c_addr2; |
| UCell u2; |
|
| Char *endp = c_addr1+u1; |
Char *endp = c_addr1+u1; |
| while (c_addr1<endp && isspace(*c_addr1)) |
while (c_addr1<endp && isspace(*c_addr1)) |
| c_addr1++; |
c_addr1++; |
| if (c_addr1<endp) { |
if (c_addr1<endp) { |
| for (c_addr2 = c_addr1; c_addr1<endp && !isspace(*c_addr1); c_addr1++) |
for (c_addr2 = c_addr1; c_addr1<endp && !isspace(*c_addr1); c_addr1++) |
| ; |
; |
| result.n1 = c_addr2; |
result.n1 = (Cell)c_addr2; |
| result.n2 = c_addr1-c_addr2; |
result.n2 = c_addr1-c_addr2; |
| } else { |
} else { |
| result.n1 = c_addr1; |
result.n1 = (Cell)c_addr1; |
| result.n2 = 0; |
result.n2 = 0; |
| } |
} |
| return result; |
return result; |
| } |
} |
| r.n1 = wfam; |
r.n1 = wfam; |
| r.n2 = wior; |
r.n2 = wior; |
| |
return r; |
| } |
} |
| |
|
| Cell to_float(Char *c_addr, UCell u, Float *rp) |
Cell to_float(Char *c_addr, UCell u, Float *rp) |
