diff options
Diffstat (limited to 'pkg/tbtables/tbzcol.x')
| -rw-r--r-- | pkg/tbtables/tbzcol.x | 120 |
1 files changed, 120 insertions, 0 deletions
diff --git a/pkg/tbtables/tbzcol.x b/pkg/tbtables/tbzcol.x new file mode 100644 index 00000000..01e29e41 --- /dev/null +++ b/pkg/tbtables/tbzcol.x @@ -0,0 +1,120 @@ +include <ctype.h> # for IS_DIGIT +include <tbset.h> +include "tbtables.h" + +# tbzcol -- create columns +# This routine looks at the values on the first input line of a text file, +# interprets the values as to data type, assigns a print format for each +# column, and creates a column descriptor. +# Since the input buffer contains the first line of the text file, we +# check in this routine to see if the file is really an SDAS format (GEIS) +# image header rather than a text table. +# The datatype value returned by tbbwrd may be TY_DOUBLE, TY_INT, or TY_CHAR; +# however, TY_CHAR will be changed to -N. + +# Phil Hodge, 15-Jan-1992 Subroutine created. +# Phil Hodge, 7-Aug-1992 Remove most code that is already done in tbbwrd. +# Phil Hodge, 7-Jun-1994 For text string, don't increase width. +# Phil Hodge, 7-Jun-1999 Don't realloc TB_COLPTR, done in tbcadd instead. + +procedure tbzcol (tp, buf, wid, prec, fmt_code) + +pointer tp # i: pointer to table descriptor +char buf[ARB] # i: buffer containing line from file +pointer wid # o: pointer to array of values of width +pointer prec # o: pointer to array of (width - precision) +pointer fmt_code # o: pointer to array of format codes +#-- +pointer sp +pointer word # scratch for a word from the line +pointer cp # pointer to column descriptor +char cname[SZ_COLNAME] # column name +char units[SZ_COLUNITS] # column units (null) +char pform[SZ_COLFMT] # print format +int colnum # column number +int maxcols # current maximum number of columns +int ip # for ctowrd +int ip_start # ip before calling ctowrd +int word_width # width of extracted word (value of ctowrd) +int width # full width of column (incl whitespace) +int precision # precision for printing +int datatype # data type of current word (from tbbwrd) +int fcode # format code returned by tbbwrd +bool done # loop-termination flag +int tbbwrd(), strncmp() +errchk realloc, tbcadd + +begin + # First check whether we have an SDAS format image header. + if (strncmp ("SIMPLE = ", buf, 10) == 0) + call error (1, "file is an image header, not a table") + + call smark (sp) + call salloc (word, SZ_LINE, TY_CHAR) + + # Allocate buffers for column widths, precision, and format codes. + maxcols = TB_MAXCOLS(tp) + call malloc (wid, maxcols, TY_INT) + call malloc (prec, maxcols, TY_INT) + call malloc (fmt_code, maxcols, TY_CHAR) + + colnum = 0 # initial values + ip = 1 + done = false + pform[1] = EOS # not set by this routine + units[1] = EOS + + # Do for each word in the string. + while ( !done ) { + + ip_start = ip + word_width = tbbwrd (buf, ip, Memc[word], SZ_LINE, + width, precision, datatype, fcode) + + if (word_width < 1) { + done = true # we're past the last word + + } else if (Memc[word] == ',') { + ; # ignore commas in first line + } else { + colnum = colnum + 1 + call sprintf (cname, SZ_COLNAME, "c%d") + call pargi (colnum) + + # This is to allow the user to increase the width by adding + # extra space in the first row. Subtract one for columns + # after the first because we're going to print a space + # between each column. + if (colnum > 1) + width = max (width, ip - ip_start - 1) + else + width = max (width, ip - ip_start) + + # For a character string set the data type to -N. + # Changed by PEH on 1994 June 6; the width used to be + # increased by 20 to allow extra space. + if (datatype == TY_CHAR) + datatype = -min (width, SZ_LINE) + + # Allocate a descriptor for the column, update TB_MAXCOLS(tp), + # and allocate & initialize a buffer for storing values. + call tbcadd (tp, cp, cname, units, pform, datatype, 1, 1) + + # Reallocate space for column widths and precision. + if (colnum > maxcols) { + maxcols = TB_MAXCOLS(tp) + call realloc (wid, maxcols, TY_INT) + call realloc (prec, maxcols, TY_INT) + call realloc (fmt_code, maxcols, TY_CHAR) + } + + # Save values of width, precision and format code. The latter + # is really only used (by tbzopn) for h, m, and g formats. + Memi[wid+colnum-1] = width + Memi[prec+colnum-1] = precision + Memc[fmt_code+colnum-1] = fcode + } + } + + call sfree (sp) +end |