| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354 |
- ########################################
- #
- # 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)')
|
