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
|
include "../lib/mctable.h"
# MCT_RESTORE - Restore table from a text file.
procedure mct_restore (fname, table)
char fname[ARB] # file name
pointer table # table descriptor
char cval
short sval
int fd, magic, type, row, col, nprows, npcols
int maxcol, maxrow, lastcol, ival
long lval
pointer pval
real rval
double dval
complex xval
int open(), fscan(), nscan()
errchk mct_alloc()
errchk mct_putc(), mct_puts(), mct_puti(), mct_putl()
errchk mct_putr(), mct_putd(), mct_putx(), mct_putp()
begin
# Open file.
iferr (fd = open (fname, READ_ONLY, TEXT_FILE))
call error (0, "mct_restore: Cannot open file")
# Read and check magic number.
if (fscan (fd) != EOF) {
call gargi (magic)
if (magic != MAGIC)
call error (0, "mct_restore: Bad magic number")
} else
call error (0, "mct_restore: Unexpected end of file (magic)")
# Read type.
if (fscan (fd) != EOF)
call gargi (type)
else
call error (0, "mct_restore: Unexpected end of file (type)")
# Read max number of rows.
if (fscan (fd) != EOF)
call gargi (maxrow)
else
call error (0, "mct_restore: Unexpected end of file (maxrow)")
# Read max number of columns.
if (fscan (fd) != EOF)
call gargi (maxcol)
else
call error (0, "mct_restore: Unexpected end of file (maxcol)")
# Discard row increment.
if (fscan (fd) != EOF)
call gargi (ival)
else
call error (0, "mct_restore: Unexpected end of file (incrows)")
# Read number of rows entered.
if (fscan (fd) != EOF)
call gargi (nprows)
else
call error (0, "mct_restore: Unexpected end of file (nprows)")
# Read number of columns entered.
if (fscan (fd) != EOF)
call gargi (npcols)
else
call error (0, "mct_restore: Unexpected end of file (npcols)")
# Read number of rows gotten.
if (fscan (fd) != EOF)
call gargi (ival)
else
call error (0, "mct_restore: Unexpected end of file (ngrows)")
# Read number of columns gotten
if (fscan (fd) != EOF)
call gargi (ival)
else
call error (0, "mct_restore: Unexpected end of file (ngcols)")
# Discard data pointer.
if (fscan (fd) != EOF)
call gargi (ival)
else
call error (0, "mct_restore: Unexpected end of file (pointer)")
# Allocate table.
call mct_alloc (table, maxrow, maxcol, type)
# Loop over rows.
lastcol = maxcol
do row = 1, nprows {
# In the last row the column loop should go only until the
# highest column.
if (row == nprows)
lastcol = npcols
# Start scanning next line.
if (fscan (fd) == EOF)
call error (0, "mct_restore: Unexpected end of file (row)")
# Loop over columns.
for (col = 1; col <= lastcol; col = col + 1) {
# Read data.
switch (MCT_TYPE (table)) {
$for (csilrdxp)
case TY_PIXEL:
$if (datatype == p)
call gargi ($tval)
$else
call garg$t ($tval)
$endif
call mct_put$t (table, row, col, $tval)
$endfor
default:
call error (0, "mct_save: Unknown data type")
}
# Check column read.
if (nscan () != col)
call error (0, "mct_restore: Unexpcted end of file (col)")
}
}
# Close file.
call close (fd)
end
|
