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
|
include "../lib/mctable.h"
# MCT_COPY - Copy one table into another. The destination table is allocated
# or reallocated if necessary.
procedure mct_copy (itable, otable)
pointer itable # input table descriptor
pointer otable # output table descriptor
int isize, osize # table sizes
errchk mct_alloc()
begin
# Check input pointer and magic number.
if (itable == NULL)
call error (0, "mct_copy: Null input table pointer")
if (MCT_MAGIC (itable) != MAGIC)
call error (0, "mct_copy: Bad input magic number")
# Compute input table size.
isize = MCT_MAXROW (itable) * MCT_MAXCOL (itable)
# Check output pointer. Try to minimize space allocation.
if (otable == NULL)
call mct_alloc (otable, MCT_MAXROW (itable), MCT_MAXCOL (itable),
MCT_TYPE (itable))
else if (MCT_MAGIC (otable) == MAGIC) {
osize = MCT_MAXROW (otable) * MCT_MAXCOL (otable)
if (isize != osize || MCT_TYPE (itable) != MCT_TYPE (otable))
call realloc (MCT_DATA (otable), isize, MCT_TYPE (itable))
} else
call error (0, "mct_copy: Bad output magic number")
# Copy structure.
MCT_MAGIC (otable) = MCT_MAGIC (itable)
MCT_TYPE (otable) = MCT_TYPE (itable)
MCT_MAXROW (otable) = MCT_MAXROW (itable)
MCT_MAXCOL (otable) = MCT_MAXCOL (itable)
MCT_INCROWS (otable) = MCT_INCROWS (itable)
MCT_NPROWS (otable) = MCT_NPROWS (itable)
MCT_NPCOLS (otable) = MCT_NPCOLS (itable)
MCT_NGROWS (otable) = MCT_NGROWS (itable)
MCT_NGCOLS (otable) = MCT_NGCOLS (itable)
# Copy data buffer.
switch (MCT_TYPE (otable)) {
$for (csilrdxp)
case TY_PIXEL:
$if (datatype == p)
call amovi (Memi[MCT_DATA (itable)], Memi[MCT_DATA (otable)],
isize)
$else
call amov$t (Mem$t[MCT_DATA (itable)], Mem$t[MCT_DATA (otable)],
isize)
$endif
$endfor
default:
call error (0, "mct_copy: Unknown table type")
}
end
|
