3 # $Id: p-gentab.awk,v 1.1 2004/04/01 21:28:41 mdw Exp $
5 function banner
(name
, s
, i
)
7 s =
"/*----- " name
" ";
8 while (length(s
) < 75) s = s
"-";
14 gsub(/[^
0-9A
-Za
-z_
]+/, "_", name
);
21 print " * Table of elliptic curves [generated]";
24 print "#include \"ptab.h\"";
26 print "#define N(x) (sizeof(x)/sizeof(*x))";
27 print "#define MP(x) { x, x + N(x), N(x), 0, MP_CONST, 0 }";
28 print "#define NOMP { 0, 0, 0, 0, 0 }";
30 print banner
("Prime data");
40 print "group " name
": missing " x
>"/dev/stderr";
45 n =
"p_" fix
(name
) "_" x
;
46 print "static mpw " n
"[] = {";
47 system("./mpdump " d
);
57 if (name ==
"") return;
58 print "/* --- Group " name
" --- */";
64 print "static pdata p_" fix
(name
) " = {";
65 print " MP(" mp
["p"] "),"
66 print " MP(" mp
["q"] "),"
67 print " MP(" mp
["g"] ")"
72 r
[name
] =
"p_" fix
(name
);
76 /^
[ \t]*(#|$)/ { next; }
78 $
1 ==
"alias" { flush
(); dname
[d_i
++] = $
2; d
[$
2] = $
3; next; }
80 $
1 ==
"group" { flush
(); delete data
; name = $
2; next; }
82 { data
[$
1] = $
2; next; }
86 print banner
("Main table");
88 print "const pentry ptab[] = {";
89 for (i =
0; i
< d_i
; i
++) {
93 print "group " rname
" not found (alias from " name
")" >"/dev/stderr";
96 print " { \"" name
"\", &" r
[rname
] " },";
101 print banner
("That's all, folks");