Initial commit

1 files changed, 91 insertions, 0 deletions

diff --git a/pkg/utilities/nttools/tcheck/tcheck.x b/pkg/utilities/nttools/tcheck/tcheck.x
new file mode 100644
index 00000000..e23408e0
--- /dev/null
+++ b/pkg/utilities/nttools/tcheck/tcheck.x
@@ -0,0 +1,91 @@
+include <tbset.h>
+include "tcheck.h"
+
+# TCHECK -- Perform a consistency check on the rows of a table
+#
+# B.Simon	20-Aug-90	Original
+# B.Simon	29-Jul-92	Fixed bug occuring when irow > nrow
+# Phil Hodge	 4-Oct-95	Use table name template routines tbnopenp, etc.
+
+procedure tcheck ()
+
+#--
+pointer	input		# Table file name template
+pointer	chkfile		# Text file containing consistency checks
+
+bool	title		
+int	fd, iline, nc
+int	keystart, cmdstart, irow, jrow, nrow
+pointer	sp, tabname, errmsg, command, tp
+
+string	badexpr  "Syntax error: %s"
+
+int	open(), tbnget(), getlongline()
+int	tbpsta(), strlen(), tbl_search()
+pointer	tbnopenp(), tbtopn()
+
+begin
+	# Allocate dynamic memory for strings
+
+	call smark (sp)
+	call salloc (chkfile, SZ_FNAME, TY_CHAR)
+	call salloc (tabname, SZ_FNAME, TY_CHAR)
+	call salloc (errmsg, SZ_LINE, TY_CHAR)
+	call salloc (command, SZ_COMMAND, TY_CHAR)
+
+	# Read the task parameters
+
+	input = tbnopenp ("input")
+	call clgstr ("chkfile", Memc[chkfile], SZ_FNAME)
+
+	fd = open (Memc[chkfile], READ_ONLY, TEXT_FILE)
+
+	# Check each table
+
+	while (tbnget (input, Memc[tabname], SZ_FNAME) != EOF) {
+	    call seek (fd, BOF)
+	    tp = tbtopn (Memc[tabname], READ_ONLY, NULL)
+	    nrow = tbpsta (tp, TBL_NROWS)
+	    title = true
+
+	    # Get each line from the command file
+
+	    repeat {
+		nc  = getlongline (fd, Memc[command], SZ_COMMAND, iline)
+		if (nc <= 0)
+		    break
+
+		Memc[command+nc-1] = EOS
+		call cmdsplit (Memc[command], keystart, cmdstart)
+		if (cmdstart > 0) {
+		    irow = 1
+		    while (irow <= nrow) {
+			jrow = tbl_search (tp, Memc[command+cmdstart-1], 
+					   irow, nrow)
+			if (jrow == 0) {
+			    break
+
+			} else if (jrow == ERR) {
+			    call xer_reset
+			    if (strlen (Memc[command+cmdstart-1]) > 60)
+				call strcat (" ...", Memc[command+cmdstart+60],
+					     SZ_COMMAND)
+
+			    call sprintf (Memc[errmsg], SZ_LINE, badexpr)
+			    call pargstr (Memc[command+cmdstart-1])
+			    call error (SYNTAX, Memc[errmsg])
+
+			} else {
+			    call wrt_check (tp, jrow, Memc[command+keystart-1],
+					    Memc[command+cmdstart-1], title)
+			    irow = jrow + 1
+			}
+		    }
+		}
+	    }
+	    call tbtclo (tp)
+	}	
+
+	call tbnclose (input)
+	call sfree (sp)
+end