blob: c90959d248bbe6d434a38267ae1c2f1eb6a5ac81 (
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
24
25
26
27
28
|
include "../lib/mctable.h"
# MCT_RESET - Reset table counters, and set all table values to INDEF.
procedure mct_reset (table)
pointer table # table descriptor
errchk mct_indef()
begin
# Check pointer and magic number.
if (table == NULL)
call error (0, "mct_reset: Null table pointer")
if (MCT_MAGIC (table) != MAGIC)
call error (0, "mct_reset: Bad magic number")
# Clear table counters.
MCT_NPCOLS (table) = 0
MCT_NPROWS (table) = 0
MCT_NGCOLS (table) = 0
MCT_NGROWS (table) = 0
# Clear table buffer.
call mct_indef (table, MCT_DATA (table),
MCT_NPROWS (table) * MCT_NPCOLS (table))
end
|
