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
| ########################################
| #
| # gen_cats(N)
| #
| # declares categores c0 to c(N-1)
| #
| define(`decl_cats',`dnl
| category c$1;
| ifelse(`$1',`$2',,`decl_cats(incr($1),$2)')dnl
| ')
|
| define(`gen_cats',`decl_cats(0,decr($1))')
|
| ########################################
| #
| # gen_sens(N)
| #
| # declares sensitivites s0 to s(N-1) with dominance
| # in increasing numeric order with s0 lowest, s(N-1) highest
| #
| define(`decl_sens',`dnl
| sensitivity s$1;
| ifelse(`$1',`$2',,`decl_sens(incr($1),$2)')dnl
| ')
|
| define(`gen_dominance',`s$1 ifelse(`$1',`$2',,`gen_dominance(incr($1),$2)')')
|
| define(`gen_sens',`
| # Each sensitivity has a name and zero or more aliases.
| decl_sens(0,decr($1))
|
| # Define the ordering of the sensitivity levels (least to greatest)
| dominance { gen_dominance(0,decr($1)) }
| ')
|
| ########################################
| #
| # gen_levels(N,M)
| #
| # levels from s0 to (N-1) with categories c0 to (M-1)
| #
| define(`decl_levels',`dnl
| level s$1:c0.c$3;
| ifelse(`$1',`$2',,`decl_levels(incr($1),$2,$3)')dnl
| ')
|
| define(`gen_levels',`decl_levels(0,decr($1),decr($2))')
|
| ########################################
| #
| # Basic level names for system low and high
| #
| define(`mls_systemlow',`s0')
| define(`mls_systemhigh',`s`'decr(mls_num_sens):c0.c`'decr(mls_num_cats)')
|
|
