From 65fae53a7178683e3bb9c5ba41edf2b7bcb77020 Mon Sep 17 00:00:00 2001
From: Bill Shannon <shannon@ucbvax.Berkeley.EDU>
Date: Sun, 13 Feb 1983 03:06:45 -0800
Subject: [PATCH] date and time created 83/02/12 19:06:45 by shannon

SCCS-vsn: old/tbl/tc.c 4.1
---
 usr/src/old/tbl/tc.c | 62 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 62 insertions(+)
 create mode 100644 usr/src/old/tbl/tc.c

diff --git a/usr/src/old/tbl/tc.c b/usr/src/old/tbl/tc.c
new file mode 100644
index 0000000000..e3254df58d
--- /dev/null
+++ b/usr/src/old/tbl/tc.c
@@ -0,0 +1,62 @@
+/*	tc.c	4.1	83/02/12	*/
+
+ /* tc.c: find character not in table to delimit fields */
+# include "t..c"
+choochar()
+{
+/* choose funny characters to delimit fields */
+int had[128], ilin,icol, k;
+char *s;
+for(icol=0; icol<128; icol++)
+	had[icol]=0;
+F1 = F2 = 0;
+for(ilin=0;ilin<nlin;ilin++)
+	{
+	if (instead[ilin]) continue;
+	if (fullbot[ilin]) continue;
+	for(icol=0; icol<ncol; icol++)
+		{
+		k = ctype(ilin, icol);
+		if (k==0 || k == '-' || k == '=')
+			continue;
+		s = table[ilin][icol].col;
+		if (point(s))
+		while (*s)
+			had[*s++]=1;
+		s=table[ilin][icol].rcol;
+		if (point(s))
+		while (*s)
+			had[*s++]=1;
+		}
+	}
+/* choose first funny character */
+for(
+	s="\002\003\005\006\007!%&#/?,:;<=>@`^~_{}+-*ABCDEFGHIJKMNOPQRSTUVWXYZabcdefgjkoqrstwxyz";
+		*s; s++)
+	{
+	if (had[*s]==0)
+		{
+		F1= *s;
+		had[F1]=1;
+		break;
+		}
+	}
+/* choose second funny character */
+for(
+	s="\002\003\005\006\007:_~^`@;,<=>#%&!/?{}+-*ABCDEFGHIJKMNOPQRSTUVWXZabcdefgjkoqrstuwxyz";
+		*s; s++)
+	{
+	if (had[*s]==0)
+		{
+		F2= *s;
+		break;
+		}
+	}
+if (F1==0 || F2==0)
+	error("couldn't find characters to use for delimiters");
+return;
+}
+point(s)
+{
+return(s>= 128 || s<0);
+}
-- 
2.20.1