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
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
|
include "tbtables.h"
# tbzcp[tbirds] -- put values into a column
# This procedure puts elements into an internal buffer corresponding
# to values in a text file.
#
# Phil Hodge, 3-Feb-1992 Subroutines created.
# Phil Hodge, 31-Mar-1993 Include short datatype.
# Phil Hodge, 4-Mar-1998 Remove calls to tbtwer.
# Phil Hodge, 5-Mar-1998 In tbzcpt, remove lenstr from call to tbzptt.
procedure tbzcpb (tp, cp, buffer, firstrow, lastrow)
pointer tp # i: pointer to table descriptor
pointer cp # i: pointer to column descriptor
bool buffer[ARB] # i: buffer containing values to be put
int firstrow # i: number of first row to put
int lastrow # i: number of last row to put
#--
int row # loop index for row number
int k # index into buffer
errchk tbzptb
begin
k = 1
do row = firstrow, lastrow {
call tbzptb (tp, cp, row, buffer[k])
k = k + 1
}
end
procedure tbzcpd (tp, cp, buffer, firstrow, lastrow)
pointer tp # i: pointer to table descriptor
pointer cp # i: pointer to column descriptor
double buffer[ARB] # i: buffer containing values to be put
int firstrow # i: number of first row to put
int lastrow # i: number of last row to put
#--
int row # loop index for row number
int k # index into buffer
errchk tbzptd
begin
if (COL_DTYPE(cp) == TBL_TY_DOUBLE) {
k = 1
do row = firstrow, lastrow {
Memd[COL_OFFSET(cp) + row - 1] = buffer[k]
k = k + 1
}
} else {
k = 1
do row = firstrow, lastrow {
call tbzptd (tp, cp, row, buffer[k])
k = k + 1
}
}
end
procedure tbzcpr (tp, cp, buffer, firstrow, lastrow)
pointer tp # i: pointer to table descriptor
pointer cp # i: pointer to column descriptor
real buffer[ARB] # i: buffer containing values to be put
int firstrow # i: number of first row to put
int lastrow # i: number of last row to put
#--
int row # loop index for row number
int k # index into buffer
errchk tbzptr
begin
k = 1
do row = firstrow, lastrow {
call tbzptr (tp, cp, row, buffer[k])
k = k + 1
}
end
procedure tbzcpi (tp, cp, buffer, firstrow, lastrow)
pointer tp # i: pointer to table descriptor
pointer cp # i: pointer to column descriptor
int buffer[ARB] # i: buffer containing values to be put
int firstrow # i: number of first row to put
int lastrow # i: number of last row to put
#--
int row # loop index for row number
int k # index into buffer
errchk tbzpti
begin
if (COL_DTYPE(cp) == TBL_TY_INT) {
k = 1
do row = firstrow, lastrow {
Memi[COL_OFFSET(cp) + row - 1] = buffer[k]
k = k + 1
}
} else {
k = 1
do row = firstrow, lastrow {
call tbzpti (tp, cp, row, buffer[k])
k = k + 1
}
}
end
procedure tbzcps (tp, cp, buffer, firstrow, lastrow)
pointer tp # i: pointer to table descriptor
pointer cp # i: pointer to column descriptor
short buffer[ARB] # i: buffer containing values to be put
int firstrow # i: number of first row to put
int lastrow # i: number of last row to put
#--
int row # loop index for row number
int k # index into buffer
errchk tbzpts
begin
k = 1
do row = firstrow, lastrow {
call tbzpts (tp, cp, row, buffer[k])
k = k + 1
}
end
procedure tbzcpt (tp, cp, buffer, lenstr, firstrow, lastrow)
pointer tp # i: pointer to table descriptor
pointer cp # i: pointer to column descriptor
char buffer[lenstr,ARB] # i: buffer containing values to be put
int lenstr # i: size of each element
int firstrow # i: number of first row to put
int lastrow # i: number of last row to put
#--
int row # loop index for row number
int k # index into buffer
errchk tbzptt
begin
k = 1
do row = firstrow, lastrow {
call tbzptt (tp, cp, row, buffer[1,k])
k = k + 1
}
end
|
