| /* tc.c: find character not in table to delimit fields */ |
| /* choose funny characters to delimit fields */ |
| int had[256], ilin, icol, k; |
| for (icol = 0; icol < 128; icol++) |
| for (ilin = 0; ilin < nlin; ilin++) { |
| for (icol = 0; icol < ncol; icol++) { |
| if (k == 0 || k == '-' || k == '=') |
| s = table[ilin][icol].col; |
| had[(unsigned char)*s++] = 1; |
| s = table[ilin][icol].rcol; |
| had[(unsigned char)*s++] = 1; |
| /* choose first funny character */ |
| s = "\002\003\005\006\007!%&#/?,:;<=>@`^~_{}+-*ABCDEFGHIJKMNOPQRSTUVWXYZabcdefgjkoqrstwxyz"; |
| if (had[(unsigned char)*s] == 0) { |
| /* choose second funny character */ |
| s = "\002\003\005\006\007:_~^`@;,<=>#%&!/?{}+-*ABCDEFGHIJKMNOPQRSTUVWXZabcdefgjkoqrstuwxyz"; |
| if (had[(unsigned char)*s] == 0) { |
| error("couldn't find characters to use for delimiters"); |
| int s = (int)(uintptr)ss; |
| return(s >= 128 || s < 0); |