projects
/
u
/
mdw
/
catacomb
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
cc.h: Reorder the declarations.
[u/mdw/catacomb]
/
utils
/
ecentry-prettify.pl
diff --git
a/utils/ecentry-prettify.pl
b/utils/ecentry-prettify.pl
index
3b72053
..
ab9b3ed
100644
(file)
--- a/
utils/ecentry-prettify.pl
+++ b/
utils/ecentry-prettify.pl
@@
-23,6
+23,7
@@
my $name = shift;
my $kind = shift;
my $p = gather("p");
my $kind = shift;
my $p = gather("p");
+my $beta = ($kind eq "binnorm") ? "0x".gather("beta") : "";
my $a = gather("a");
my $b = gather("b");
my $r = gather("r");
my $a = gather("a");
my $b = gather("b");
my $r = gather("r");
@@
-31,4
+32,6
@@
my $g = gather("g");
print "curve $name $kind\n";
$p = "0x".$p if $kind =~ /bin/;
print "curve $name $kind\n";
$p = "0x".$p if $kind =~ /bin/;
-system "./ecptd", "$kind $p $CTYPE{$kind} 0x$a 0x$b", "0x$r", $h, $g;
+my @l = ("./ecptd", "$kind $p $beta $CTYPE{$kind} 0x$a 0x$b", "0x$r", $h, $g);
+# print join(" ", @l), "\n";
+system @l;