Wed, 31 Dec 2014 06:09:35 +0100
Cloned upstream origin tor-browser at tor-browser-31.3.0esr-4.5-1-build1
revision ID fc1c9ff7c1b2defdbc039f12214767608f46423f for hacking purpose.
1 #!/usr/bin/perl
3 # This Source Code Form is subject to the terms of the Mozilla Public
4 # License, v. 2.0. If a copy of the MPL was not distributed with this
5 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
7 while(<>) {
8 chomp;
9 push(@primes, $_);
10 }
12 printf("mp_size prime_tab_size = %d;\n", ($#primes + 1));
13 print "mp_digit prime_tab[] = {\n";
15 print "\t";
16 $last = pop(@primes);
17 foreach $prime (sort {$a<=>$b} @primes) {
18 printf("0x%04X, ", $prime);
19 $brk = ($brk + 1) % 8;
20 print "\n\t" if(!$brk);
21 }
22 printf("0x%04X", $last);
23 print "\n" if($brk);
24 print "};\n\n";
26 exit 0;