The Tor Browser / file comparison
comparison: security/nss/lib/ckfw/builtins/certdata.perl
security/nss/lib/ckfw/builtins/certdata.perl
- changeset 0
- 6474c204b198
equal
deleted
inserted
replaced
| -1:000000000000 | 0:b3bd75137b9b |
|---|---|
| 1 #!perl -w | |
| 2 # | |
| 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/. | |
| 6 use strict; | |
| 7 | |
| 8 my %constants; | |
| 9 my $count = 0; | |
| 10 my $o; | |
| 11 my @objects = (); | |
| 12 my @objsize; | |
| 13 | |
| 14 $constants{CKO_DATA} = "static const CK_OBJECT_CLASS cko_data = CKO_DATA;\n"; | |
| 15 $constants{CK_TRUE} = "static const CK_BBOOL ck_true = CK_TRUE;\n"; | |
| 16 $constants{CK_FALSE} = "static const CK_BBOOL ck_false = CK_FALSE;\n"; | |
| 17 | |
| 18 while(<>) { | |
| 19 my @fields = (); | |
| 20 my $size; | |
| 21 | |
| 22 s/^((?:[^"#]+|"[^"]*")*)(\s*#.*$)/$1/; | |
| 23 next if (/^\s*$/); | |
| 24 | |
| 25 # This was taken from the perl faq #4. | |
| 26 my $text = $_; | |
| 27 push(@fields, $+) while $text =~ m{ | |
| 28 "([^\"\\]*(?:\\.[^\"\\]*)*)"\s? # groups the phrase inside the quotes | |
| 29 | ([^\s]+)\s? | |
| 30 | \s | |
| 31 }gx; | |
| 32 push(@fields, undef) if substr($text,-1,1) eq '\s'; | |
| 33 | |
| 34 if( $fields[0] =~ /BEGINDATA/ ) { | |
| 35 next; | |
| 36 } | |
| 37 | |
| 38 if( $fields[1] =~ /MULTILINE/ ) { | |
| 39 $fields[2] = ""; | |
| 40 while(<>) { | |
| 41 last if /END/; | |
| 42 chomp; | |
| 43 $fields[2] .= "\"$_\"\n"; | |
| 44 } | |
| 45 } | |
| 46 | |
| 47 if( $fields[1] =~ /UTF8/ ) { | |
| 48 if( $fields[2] =~ /^"/ ) { | |
| 49 ; | |
| 50 } else { | |
| 51 $fields[2] = "\"" . $fields[2] . "\""; | |
| 52 } | |
| 53 | |
| 54 my $scratch = eval($fields[2]); | |
| 55 | |
| 56 $size = length($scratch) + 1; # null terminate | |
| 57 } | |
| 58 | |
| 59 if( $fields[1] =~ /OCTAL/ ) { | |
| 60 if( $fields[2] =~ /^"/ ) { | |
| 61 ; | |
| 62 } else { | |
| 63 $fields[2] = "\"" . $fields[2] . "\""; | |
| 64 } | |
| 65 | |
| 66 my $scratch = $fields[2]; | |
| 67 $size = $scratch =~ tr/\\//; | |
| 68 # no null termination | |
| 69 } | |
| 70 | |
| 71 if( $fields[1] =~ /^CK_/ ) { | |
| 72 my $lcv = $fields[2]; | |
| 73 $lcv =~ tr/A-Z/a-z/; | |
| 74 if( !defined($constants{$fields[2]}) ) { | |
| 75 $constants{$fields[2]} = "static const $fields[1] $lcv = $fields[2];\n"; | |
| 76 } | |
| 77 | |
| 78 $size = "sizeof($fields[1])"; | |
| 79 $fields[2] = "&$lcv"; | |
| 80 } | |
| 81 | |
| 82 if( $fields[0] =~ /CKA_CLASS/ ) { | |
| 83 $count++; | |
| 84 $objsize[$count] = 0; | |
| 85 } | |
| 86 | |
| 87 @{$objects[$count][$objsize[$count]++]} = ( "$fields[0]", $fields[2], "$size" ); | |
| 88 | |
| 89 # print "$fields[0] | $fields[1] | $size | $fields[2]\n"; | |
| 90 } | |
| 91 | |
| 92 doprint(); | |
| 93 | |
| 94 sub dudump { | |
| 95 my $i; | |
| 96 for( $i = 1; $i <= $count; $i++ ) { | |
| 97 print "\n"; | |
| 98 $o = $objects[$i]; | |
| 99 my @ob = @{$o}; | |
| 100 my $l; | |
| 101 my $j; | |
| 102 for( $j = 0; $j < @ob; $j++ ) { | |
| 103 $l = $ob[$j]; | |
| 104 my @a = @{$l}; | |
| 105 print "$a[0] ! $a[1] ! $a[2]\n"; | |
| 106 } | |
| 107 } | |
| 108 | |
| 109 } | |
| 110 | |
| 111 sub doprint { | |
| 112 my $i; | |
| 113 | |
| 114 print <<EOD | |
| 115 /* THIS IS A GENERATED FILE */ | |
| 116 /* This Source Code Form is subject to the terms of the Mozilla Public | |
| 117 * License, v. 2.0. If a copy of the MPL was not distributed with this | |
| 118 * file, You can obtain one at http://mozilla.org/MPL/2.0/. */ | |
| 119 | |
| 120 #ifndef BUILTINS_H | |
| 121 #include "builtins.h" | |
| 122 #endif /* BUILTINS_H */ | |
| 123 | |
| 124 EOD | |
| 125 ; | |
| 126 | |
| 127 foreach $b (sort values(%constants)) { | |
| 128 print $b; | |
| 129 } | |
| 130 | |
| 131 for( $i = 1; $i <= $count; $i++ ) { | |
| 132 print "static const CK_ATTRIBUTE_TYPE nss_builtins_types_$i [] = {\n"; | |
| 133 $o = $objects[$i]; | |
| 134 my @ob = @{$o}; | |
| 135 my $j; | |
| 136 for( $j = 0; $j < @ob; $j++ ) { | |
| 137 my $l = $ob[$j]; | |
| 138 my @a = @{$l}; | |
| 139 print " $a[0]"; | |
| 140 if( $j+1 != @ob ) { | |
| 141 print ", "; | |
| 142 } | |
| 143 } | |
| 144 print "\n};\n"; | |
| 145 } | |
| 146 | |
| 147 for( $i = 1; $i <= $count; $i++ ) { | |
| 148 print "static const NSSItem nss_builtins_items_$i [] = {\n"; | |
| 149 $o = $objects[$i]; | |
| 150 my @ob = @{$o}; | |
| 151 my $j; | |
| 152 for( $j = 0; $j < @ob; $j++ ) { | |
| 153 my $l = $ob[$j]; | |
| 154 my @a = @{$l}; | |
| 155 print " { (void *)$a[1], (PRUint32)$a[2] }"; | |
| 156 if( $j+1 != @ob ) { | |
| 157 print ",\n"; | |
| 158 } else { | |
| 159 print "\n"; | |
| 160 } | |
| 161 } | |
| 162 print "};\n"; | |
| 163 } | |
| 164 | |
| 165 print "\nbuiltinsInternalObject\n"; | |
| 166 print "nss_builtins_data[] = {\n"; | |
| 167 | |
| 168 for( $i = 1; $i <= $count; $i++ ) { | |
| 169 print " { $objsize[$i], nss_builtins_types_$i, nss_builtins_items_$i, {NULL} }"; | |
| 170 if( $i == $count ) { | |
| 171 print "\n"; | |
| 172 } else { | |
| 173 print ",\n"; | |
| 174 } | |
| 175 } | |
| 176 | |
| 177 print "};\n"; | |
| 178 | |
| 179 print "const PRUint32\n"; | |
| 180 print "nss_builtins_nObjects = $count;\n"; | |
| 181 } |
