8 * Table of standard prime subgroups [generated]
13 #define N(x) (sizeof(x)/sizeof(*x))
14 #define MP(x) { x, x + N(x), N(x), 0, MP_CONST, 0 }
16 /*----- Prime data --------------------------------------------------------*/
25 alias) names
="$names $n=$f" continue;;
27 *) echo >&2 "$0: unknown keyword $t"; exit 1;;
32 /* --- Group $n --- */
36 n
=`echo $n | sed 's/[^a-zA-Z0-9_][^a-zA-Z0-9_]*/_/g'`
38 if [ $t != p
]; then echo >&2 "$0: wanted p; found $t"; exit 1; fi
40 if [ $t != q
]; then echo >&2 "$0: wanted q; found $t"; exit 1; fi
42 if [ $t != g
]; then echo >&2 "$0: wanted g; found $t"; exit 1; fi
45 static mpw p_${n}_p[] = {
51 static mpw p_${n}_q[] = {
57 static mpw p_${n}_g[] = {
74 /*----- Main table --------------------------------------------------------*/
76 const pentry ptab[] = {
79 a
=`echo $i | sed 's/=.*$//'`
80 n
=`echo $i | sed 's/^.*=//; s/[^a-zA-Z0-9_][^a-zA-Z0-9_]*/_/g'`
89 /*----- That's all, folks -------------------------------------------------*/