Lines Matching refs:s
29 my %s = @_;
31 if ( defined $s{'Sum'} ) {
33 my $sum = bn($s{'Sum'});
34 my $a = bn($s{'A'});
35 my $b = bn($s{'B'});
37 } elsif ( defined $s{'LShift1'} ) {
39 my $lshift1 = bn($s{'LShift1'});
40 my $a = bn($s{'A'});
42 } elsif ( defined $s{'LShift'} ) {
44 my $lshift = bn($s{'LShift'});
45 my $a = bn($s{'A'});
46 my $n = bn($s{'N'});
48 } elsif ( defined $s{'RShift'} ) {
50 my $rshift = bn($s{'RShift'});
51 my $a = bn($s{'A'});
52 my $n = bn($s{'N'});
54 } elsif ( defined $s{'Square'} ) {
56 my $square = bn($s{'Square'});
57 my $a = bn($s{'A'});
59 } elsif ( defined $s{'Product'} ) {
61 my $product = bn($s{'Product'});
62 my $a = bn($s{'A'});
63 my $b = bn($s{'B'});
65 } elsif ( defined $s{'Quotient'} ) {
68 my $quotient = bn($s{'Quotient'});
69 my $remainder = bn($s{'Remainder'});
70 my $a = bn($s{'A'});
71 my $b = bn($s{'B'});
81 $a = bn($s{'A'});
82 $b = bn($s{'B'});
89 } elsif ( defined $s{'ModMul'} ) {
91 my $modmul = bn($s{'ModMul'});
92 my $a = bn($s{'A'});
93 my $b = bn($s{'B'});
94 my $m = bn($s{'M'});
97 } elsif ( defined $s{'ModExp'} ) {
99 my $modexp = bn($s{'ModExp'});
100 my $a = bn($s{'A'});
101 my $e = bn($s{'E'});
102 my $m = bn($s{'M'});
104 } elsif ( defined $s{'Exp'} ) {
105 my $exp = bn($s{'Exp'});
106 my $a = bn($s{'A'});
107 my $e = bn($s{'E'});
109 } elsif ( defined $s{'ModSqrt'} ) {
111 my $modsqrt = bn($s{'ModSqrt'});
112 my $a = bn($s{'A'});
113 my $p = bn($s{'P'});
123 foreach ( keys %s ) {
124 print "$_ = $s{$_}\n";