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
|
include <error.h>
include "tiimage.h"
# TM_LOOP -- Scan input list and insert each image in turn.
#
#
#
#
# Revision history:
# ----------------
# 30-Jan-97 - Task created (I.Busko)
procedure tm_loop (tp, cp, ncp, row, imlist, mode, outname, verbose)
pointer tp # table pointer
pointer cp # column pointer array
int ncp # size of column pointer array
int row # row where to begin insertion
char imlist[ARB] # input image list
int mode # operating mode
char outname[ARB] # output table name (for listing only)
bool verbose # print info ?
#--
pointer sp, im, list, fname
int i, rowc, imc, image
bool rflag
errchk immap, tm_hc, tm_copy
pointer immap(), imtopen()
int imtlen(), imtgetim()
begin
call smark (sp)
call salloc (fname, SZ_PATHNAME, TY_CHAR)
# Initialize row counter.
rowc = row
rflag = false
if (rowc <= 0 || IS_INDEFI(rowc)) rflag = true
# Initialize successful image counter.
imc = 0
# Open input list.
list = imtopen (imlist)
# Loop over input list.
do image = 1, imtlen(list) {
# Get input image name and open it. Skip if error.
i = imtgetim (list, Memc[fname], SZ_PATHNAME)
iferr (im = immap (Memc[fname], READ_ONLY, 0)) {
call erract (EA_WARN)
next
}
if (verbose) {
call printf ("%s ")
call pargstr (Memc[fname])
call flush (STDOUT)
}
# Look into image header for columnar info and do the copy.
if (mode == MODE_OUT_ALL || mode == MODE_TEM_ALL) {
iferr (call tm_hc (tp, cp, ncp, rowc, rflag, im)) {
call erract (EA_WARN)
call imunmap (im)
next
}
# Bump row and image counters.
rowc = rowc + 1
imc = imc + 1
# Just copy into single column.
} else if (mode == MODE_OUT_SINGLE || mode == MODE_TEM_SINGLE) {
iferr (call tm_copy (tp, Memi[cp], rowc, rflag, im)) {
call erract (EA_WARN)
call imunmap (im)
next
}
# Bump row and image counters.
rowc = rowc + 1
imc = imc + 1
}
if (verbose) {
call printf ("-> %s row=%d \n")
call pargstr (outname)
call pargi (rowc-1)
call flush (STDOUT)
}
# Close current image.
call imunmap (im)
}
call imtclose (list)
call sfree (sp)
if (imc == 0)
call error (1, "No images were inserted.")
end
|
