1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
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
|
