3 function banner
(name
, s
, i
)
5 s =
"/*----- " name
" ";
6 while (length(s
) < 75) s = s
"-";
12 gsub(/[^
0-9A
-Za
-z_
]+/, "_", name
);
19 print " * Table of elliptic curves [generated]";
22 print "#include \"ectab.h\"";
24 print "#define N(x) (sizeof(x)/sizeof(*x))";
25 print "#define MP(x) { x, x + N(x), N(x), 0, MP_CONST, 0 }";
26 print "#define NOMP { 0, 0, 0, 0, 0 }";
28 print banner
("Curve data");
38 print "curve " name
": missing " x
>"/dev/stderr";
43 n =
"c_" fix
(name
) "_" x
;
44 print "static mpw " n
"[] = {";
45 system("./mpdump " d
);
55 if (name ==
"") return;
56 print "/* --- Curve " name
" --- */";
60 if (type ==
"binnorm") putmp
("beta");
67 print "static ecdata c_" fix
(name
) " = {";
68 print " FTAG_" toupper(type
) ",";
69 print " MP(" mp
["p"] "),"
70 if (type ==
"binnorm")
71 print " MP(" mp
["beta"] "),";
74 print " MP(" mp
["a"] "),"
75 print " MP(" mp
["b"] "),"
76 print " MP(" mp
["r"] "),"
77 print " MP(" mp
["h"] "),"
78 print " MP(" mp
["gx"] "),"
79 print " MP(" mp
["gy"] ")"
84 r
[name
] =
"c_" fix
(name
);
88 /^
[ \t]*(#|$)/ { next; }
90 $
1 ==
"alias" { flush
(); dname
[d_i
++] = $
2; d
[$
2] = $
3; next; }
92 $
1 ==
"curve" { flush
(); delete data
; name = $
2; type = $
3; next; }
94 { data
[$
1] = $
2; next; }
98 print banner
("Main table");
100 print "const ecentry ectab[] = {";
101 for (i =
0; i
< d_i
; i
++) {
105 print "curve " rname
" not found (alias from " name
")" >"/dev/stderr";
108 print " { \"" name
"\", &" r
[rname
] " },";
113 print banner
("That's all, folks");