version 1.1.1.1, 2000/01/09 17:00:50 |
version 1.1.1.2, 2000/01/22 14:15:57 |
|
|
#endif /* NO_FORTRAN_NUMS */ |
#endif /* NO_FORTRAN_NUMS */ |
} else { |
} else { |
/* skip any space at start of column */ |
/* skip any space at start of column */ |
while (isspace((int)*s)) |
/* HBB tells me that the cast must be to |
|
* unsigned char instead of int. */ |
|
while (isspace((unsigned char) *s)) |
++s; |
++s; |
count = *s ? 1 : 0; |
count = *s ? 1 : 0; |
/* skip chars to end of column */ |
/* skip chars to end of column */ |
for (used = 0; !isspace((int)*s) && (*s != NUL); ++used, ++s) |
used = 0; |
; |
while (!isspace((unsigned char) *s) && (*s != NUL)) |
|
++s; |
} |
} |
|
|
/* it might be a fortran double or quad precision. |
/* it might be a fortran double or quad precision. |
|
|
*/ |
*/ |
|
|
{ |
{ |
static char filename[MAX_LINE_LEN + 1] = ""; |
/* now allocated dynamically */ |
|
static char *filename = NULL; |
int i; |
int i; |
int name_token; |
int name_token; |
|
|
|
|
assert(max_using <= NCOL); |
assert(max_using <= NCOL); |
|
|
/* empty name means re-use last one */ |
/* empty name means re-use last one */ |
|
if (isstring(c_token) && token_len(c_token) == 2) { |
{ |
if (!filename || !*filename) |
char name[MAX_LINE_LEN + 1]; |
int_error("No previous filename",c_token); |
quote_str(name, c_token, MAX_LINE_LEN); |
} else { |
if (name[0]) |
filename = gp_realloc(filename, token_len(c_token), "datafile name"); |
strcpy(filename, name); |
quote_str(filename, c_token, token_len(c_token)); |
else if (!filename[0]) |
|
int_error("No previous filename", c_token); |
|
} |
} |
name_token = c_token++; |
name_token = c_token++; |
|
|