RetroZilla/security/nss/lib/ckfw/builtins/certdata.perl
roytam1 44b7f056d9 cherry-picked mozilla NSS upstream changes (to rev bad5fd065fa1, which is on par with 3.20):
bug1001332, 56b691c003ad, bug1086145, bug1054069, bug1155922, bug991783, bug1125025, bug1162521, bug1162644, bug1132941, bug1164364, bug1166205, bug1166163, bug1166515, bug1138554, bug1167046, bug1167043, bug1169451, bug1172128, bug1170322, bug102794, bug1128184, bug557830, bug1174648, bug1180244, bug1177784, bug1173413, bug1169174, bug1084669, bug951455, bug1183395, bug1177430, bug1183827, bug1160139, bug1154106, bug1142209, bug1185033, bug1193467, bug1182667(with sha512 changes backed out, which breaks VC6 compilation), bug1158489, bug337796
2018-07-14 21:22:32 +08:00

181 lines
3.6 KiB
Perl

#!perl -w
#
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
use strict;
my %constants;
my $count = 0;
my $o;
my @objects = ();
my @objsize;
$constants{CK_TRUE} = "static const CK_BBOOL ck_true = CK_TRUE;\n";
$constants{CK_FALSE} = "static const CK_BBOOL ck_false = CK_FALSE;\n";
while(<>) {
my @fields = ();
my $size;
s/^((?:[^"#]+|"[^"]*")*)(\s*#.*$)/$1/;
next if (/^\s*$/);
# This was taken from the perl faq #4.
my $text = $_;
push(@fields, $+) while $text =~ m{
"([^\"\\]*(?:\\.[^\"\\]*)*)"\s? # groups the phrase inside the quotes
| ([^\s]+)\s?
| \s
}gx;
push(@fields, undef) if substr($text,-1,1) eq '\s';
if( $fields[0] =~ /BEGINDATA/ ) {
next;
}
if( $fields[1] =~ /MULTILINE/ ) {
$fields[2] = "";
while(<>) {
last if /END/;
chomp;
$fields[2] .= "\"$_\"\n";
}
}
if( $fields[1] =~ /UTF8/ ) {
if( $fields[2] =~ /^"/ ) {
;
} else {
$fields[2] = "\"" . $fields[2] . "\"";
}
my $scratch = eval($fields[2]);
$size = length($scratch) + 1; # null terminate
}
if( $fields[1] =~ /OCTAL/ ) {
if( $fields[2] =~ /^"/ ) {
;
} else {
$fields[2] = "\"" . $fields[2] . "\"";
}
my $scratch = $fields[2];
$size = $scratch =~ tr/\\//;
# no null termination
}
if( $fields[1] =~ /^CK_/ ) {
my $lcv = $fields[2];
$lcv =~ tr/A-Z/a-z/;
if( !defined($constants{$fields[2]}) ) {
$constants{$fields[2]} = "static const $fields[1] $lcv = $fields[2];\n";
}
$size = "sizeof($fields[1])";
$fields[2] = "&$lcv";
}
if( $fields[0] =~ /CKA_CLASS/ ) {
$count++;
$objsize[$count] = 0;
}
@{$objects[$count][$objsize[$count]++]} = ( "$fields[0]", $fields[2], "$size" );
# print "$fields[0] | $fields[1] | $size | $fields[2]\n";
}
doprint();
sub dudump {
my $i;
for( $i = 1; $i <= $count; $i++ ) {
print "\n";
$o = $objects[$i];
my @ob = @{$o};
my $l;
my $j;
for( $j = 0; $j < @ob; $j++ ) {
$l = $ob[$j];
my @a = @{$l};
print "$a[0] ! $a[1] ! $a[2]\n";
}
}
}
sub doprint {
my $i;
print <<EOD
/* THIS IS A GENERATED FILE */
/* This Source Code Form is subject to the terms of the Mozilla Public
* License, v. 2.0. If a copy of the MPL was not distributed with this
* file, You can obtain one at http://mozilla.org/MPL/2.0/. */
#ifndef BUILTINS_H
#include "builtins.h"
#endif /* BUILTINS_H */
EOD
;
foreach $b (sort values(%constants)) {
print $b;
}
for( $i = 1; $i <= $count; $i++ ) {
print "static const CK_ATTRIBUTE_TYPE nss_builtins_types_$i [] = {\n";
$o = $objects[$i];
my @ob = @{$o};
my $j;
for( $j = 0; $j < @ob; $j++ ) {
my $l = $ob[$j];
my @a = @{$l};
print " $a[0]";
if( $j+1 != @ob ) {
print ", ";
}
}
print "\n};\n";
}
for( $i = 1; $i <= $count; $i++ ) {
print "static const NSSItem nss_builtins_items_$i [] = {\n";
$o = $objects[$i];
my @ob = @{$o};
my $j;
for( $j = 0; $j < @ob; $j++ ) {
my $l = $ob[$j];
my @a = @{$l};
print " { (void *)$a[1], (PRUint32)$a[2] }";
if( $j+1 != @ob ) {
print ",\n";
} else {
print "\n";
}
}
print "};\n";
}
print "\nbuiltinsInternalObject\n";
print "nss_builtins_data[] = {\n";
for( $i = 1; $i <= $count; $i++ ) {
print " { $objsize[$i], nss_builtins_types_$i, nss_builtins_items_$i, {NULL} }";
if( $i == $count ) {
print "\n";
} else {
print ",\n";
}
}
print "};\n";
print "const PRUint32\n";
print "nss_builtins_nObjects = $count;\n";
}