blob: a9c6dbbb066b0269939157fe82249ea94fe3d94c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
include "../lib/mctable.h"
# MCT_GETBUF - Get pointer to data buffer.
pointer procedure mct_getbuf (table)
pointer table # table descriptor
pointer mct_getrow()
errchk mct_getrow()
begin
# Check pointer and magic number.
if (table == NULL)
call error (0, "mct_getbuf: Null table pointer")
if (MCT_MAGIC (table) != MAGIC)
call error (0, "mct_getbuf: Bad magic number")
# Return pointer to data buffer.
return (mct_getrow (table, 1))
end
|
