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
|
/*======================================================================*/
/*= CHANGES AND UPDATES =*/
/*======================================================================*/
/*= date person file subject =*/
/*=--------------------------------------------------------------------=*/
/*= =*/
/*= 260493 hua collist.hc created =*/
/*= =*/
/*======================================================================*/
__unbounded__
{
#include "stdlib.h"
#include "string.h"
}
#include "collist.h"
collist::collist (char list [])
{int pos;
int prev = 0;
num_cols = 0;
for (pos = 0; pos < strlen (list); pos++)
perhaps_symbol_end;
handle_symbol_end;
. perhaps_symbol_end
if (list [pos] = ',')
handle_symbol_end.
. handle_symbol_end
if (pos > prev)
grab_sym.
. grab_sym
{char sym [128];
strncpy (sym, &list [prev], pos-prev-1);
col_no [num_cols++] = atoi (sym);
prev = pos + 1;
}.
}
collist::~collist ()
{
}
int collist::num ()
{return num_cols;
}
int collist::col (int i)
{return col_no [i];
}
|
