blob: 74f341aea3fae2eadfa9cacddd6c891d60eab62c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
include "../lib/mctable.h"
# MCT_MAXCOL - Return the maximum number of columns in the table.
int procedure mct_maxcol (table)
pointer table # table descriptor
begin
# Check pointer and magic number
if (table == NULL)
call error (0, "mct_maxcol: Null table pointer")
if (MCT_MAGIC (table) != MAGIC)
call error (0, "mct_maxcol: Bad magic number")
# Return max number of columns
return (MCT_MAXCOL (table))
end
|
