1 /* tc.c: find character not in table to delimit fields */
4 # define COMMON "\002\003\005\006\007!%&#/?,:;<=>@`^~_{}+-*" \
5 "ABCDEFGHIJKMNOPQRSTUVWXZabcdefgjkoqrstwxyz"
10 /* choose funny characters to delimit fields */
11 int had[128], ilin, icol, k;
14 for (icol = 0; icol < 128; icol++)
17 for (ilin = 0; ilin < nlin; ilin++) {
18 if (instead[ilin] || fullbot[ilin])
20 for (icol = 0; icol < ncol; icol++) {
21 k = ctype(ilin, icol);
22 if (k == 0 || k == '-' || k == '=')
24 s = table[ilin][icol].col;
27 if((unsigned char)*s < 128)
28 had[(unsigned char)*s] = 1;
29 s = table[ilin][icol].rcol;
32 if((unsigned char)*s < 128)
33 had[(unsigned char)*s] = 1;
36 /* choose first funny character */
37 for (s = COMMON "Y"; *s; s++) {
44 /* choose second funny character */
45 for (s = COMMON "u"; *s; s++) {
51 if (F1 == 0 || F2 == 0)
52 error("couldn't find characters to use for delimiters");
58 vlong s = (uintptr)ss;
60 return(s >= 128 || s < 0);