| objects.pl (256281) | objects.pl (280304) |
|---|---|
| 1#!/usr/local/bin/perl 2 3open (NUMIN,"$ARGV[1]") || die "Can't open number file $ARGV[1]"; 4$max_nid=0; 5$o=0; 6while(<NUMIN>) 7 { 8 chop; --- 107 unchanged lines hidden (view full) --- 116 print NUMOUT $nidn{$_},"\t\t",$_,"\n"; 117 } 118close NUMOUT; 119 120open (OUT,">$ARGV[2]") || die "Can't open output file $ARGV[2]"; 121print OUT <<'EOF'; 122/* crypto/objects/obj_mac.h */ 123 | 1#!/usr/local/bin/perl 2 3open (NUMIN,"$ARGV[1]") || die "Can't open number file $ARGV[1]"; 4$max_nid=0; 5$o=0; 6while(<NUMIN>) 7 { 8 chop; --- 107 unchanged lines hidden (view full) --- 116 print NUMOUT $nidn{$_},"\t\t",$_,"\n"; 117 } 118close NUMOUT; 119 120open (OUT,">$ARGV[2]") || die "Can't open output file $ARGV[2]"; 121print OUT <<'EOF'; 122/* crypto/objects/obj_mac.h */ 123 |
| 124/* THIS FILE IS GENERATED FROM objects.txt by objects.pl via the 125 * following command: 126 * perl objects.pl objects.txt obj_mac.num obj_mac.h | 124/* 125 * THIS FILE IS GENERATED FROM objects.txt by objects.pl via the following 126 * command: perl objects.pl objects.txt obj_mac.num obj_mac.h |
| 127 */ 128 129/* Copyright (C) 1995-1997 Eric Young (eay@cryptsoft.com) 130 * All rights reserved. 131 * 132 * This package is an SSL implementation written 133 * by Eric Young (eay@cryptsoft.com). 134 * The implementation was written so as to conform with Netscapes SSL. | 127 */ 128 129/* Copyright (C) 1995-1997 Eric Young (eay@cryptsoft.com) 130 * All rights reserved. 131 * 132 * This package is an SSL implementation written 133 * by Eric Young (eay@cryptsoft.com). 134 * The implementation was written so as to conform with Netscapes SSL. |
| 135 * | 135 * |
| 136 * This library is free for commercial and non-commercial use as long as 137 * the following conditions are aheared to. The following conditions 138 * apply to all code found in this distribution, be it the RC4, RSA, 139 * lhash, DES, etc., code; not just the SSL code. The SSL documentation 140 * included with this distribution is covered by the same copyright terms 141 * except that the holder is Tim Hudson (tjh@cryptsoft.com). | 136 * This library is free for commercial and non-commercial use as long as 137 * the following conditions are aheared to. The following conditions 138 * apply to all code found in this distribution, be it the RC4, RSA, 139 * lhash, DES, etc., code; not just the SSL code. The SSL documentation 140 * included with this distribution is covered by the same copyright terms 141 * except that the holder is Tim Hudson (tjh@cryptsoft.com). |
| 142 * | 142 * |
| 143 * Copyright remains Eric Young's, and as such any Copyright notices in 144 * the code are not to be removed. 145 * If this package is used in a product, Eric Young should be given attribution 146 * as the author of the parts of the library used. 147 * This can be in the form of a textual message at program startup or 148 * in documentation (online or textual) provided with the package. | 143 * Copyright remains Eric Young's, and as such any Copyright notices in 144 * the code are not to be removed. 145 * If this package is used in a product, Eric Young should be given attribution 146 * as the author of the parts of the library used. 147 * This can be in the form of a textual message at program startup or 148 * in documentation (online or textual) provided with the package. |
| 149 * | 149 * |
| 150 * Redistribution and use in source and binary forms, with or without 151 * modification, are permitted provided that the following conditions 152 * are met: 153 * 1. Redistributions of source code must retain the copyright 154 * notice, this list of conditions and the following disclaimer. 155 * 2. Redistributions in binary form must reproduce the above copyright 156 * notice, this list of conditions and the following disclaimer in the 157 * documentation and/or other materials provided with the distribution. 158 * 3. All advertising materials mentioning features or use of this software 159 * must display the following acknowledgement: 160 * "This product includes cryptographic software written by 161 * Eric Young (eay@cryptsoft.com)" 162 * The word 'cryptographic' can be left out if the rouines from the library 163 * being used are not cryptographic related :-). | 150 * Redistribution and use in source and binary forms, with or without 151 * modification, are permitted provided that the following conditions 152 * are met: 153 * 1. Redistributions of source code must retain the copyright 154 * notice, this list of conditions and the following disclaimer. 155 * 2. Redistributions in binary form must reproduce the above copyright 156 * notice, this list of conditions and the following disclaimer in the 157 * documentation and/or other materials provided with the distribution. 158 * 3. All advertising materials mentioning features or use of this software 159 * must display the following acknowledgement: 160 * "This product includes cryptographic software written by 161 * Eric Young (eay@cryptsoft.com)" 162 * The word 'cryptographic' can be left out if the rouines from the library 163 * being used are not cryptographic related :-). |
| 164 * 4. If you include any Windows specific code (or a derivative thereof) from | 164 * 4. If you include any Windows specific code (or a derivative thereof) from |
| 165 * the apps directory (application code) you must include an acknowledgement: 166 * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" | 165 * the apps directory (application code) you must include an acknowledgement: 166 * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" |
| 167 * | 167 * |
| 168 * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND 169 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 170 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 171 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 172 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 173 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 174 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 175 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 176 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 177 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 178 * SUCH DAMAGE. | 168 * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND 169 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 170 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 171 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 172 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 173 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 174 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 175 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 176 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 177 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 178 * SUCH DAMAGE. |
| 179 * | 179 * |
| 180 * The licence and distribution terms for any publically available version or 181 * derivative of this code cannot be changed. i.e. this code cannot simply be 182 * copied and put under another distribution licence 183 * [including the GNU Public Licence.] 184 */ 185 | 180 * The licence and distribution terms for any publically available version or 181 * derivative of this code cannot be changed. i.e. this code cannot simply be 182 * copied and put under another distribution licence 183 * [including the GNU Public Licence.] 184 */ 185 |
| 186#define SN_undef "UNDEF" 187#define LN_undef "undefined" 188#define NID_undef 0 189#define OBJ_undef 0L 190 | 186#define SN_undef "UNDEF" 187#define LN_undef "undefined" 188#define NID_undef 0 189#define OBJ_undef 0L |
| 191EOF 192 | 190EOF 191 |
| 192sub expand 193 { 194 my $string = shift; 195 196 1 while $string =~ s/\t+/' ' x (length($&) * 8 - length($`) % 8)/e; 197 198 return $string; 199 } 200 |
|
| 193foreach (sort { $a <=> $b } keys %ordern) 194 { 195 $Cname=$ordern{$_}; | 201foreach (sort { $a <=> $b } keys %ordern) 202 { 203 $Cname=$ordern{$_}; |
| 196 print OUT "#define SN_",$Cname,"\t\t\"",$sn{$Cname},"\"\n" if $sn{$Cname} ne ""; 197 print OUT "#define LN_",$Cname,"\t\t\"",$ln{$Cname},"\"\n" if $ln{$Cname} ne ""; 198 print OUT "#define NID_",$Cname,"\t\t",$nid{$Cname},"\n" if $nid{$Cname} ne ""; 199 print OUT "#define OBJ_",$Cname,"\t\t",$obj{$Cname},"\n" if $obj{$Cname} ne ""; | |
| 200 print OUT "\n"; | 204 print OUT "\n"; |
| 205 print OUT expand("#define SN_$Cname\t\t\"$sn{$Cname}\"\n") if $sn{$Cname} ne ""; 206 print OUT expand("#define LN_$Cname\t\t\"$ln{$Cname}\"\n") if $ln{$Cname} ne ""; 207 print OUT expand("#define NID_$Cname\t\t$nid{$Cname}\n") if $nid{$Cname} ne ""; 208 print OUT expand("#define OBJ_$Cname\t\t$obj{$Cname}\n") if $obj{$Cname} ne ""; |
|
| 201 } 202 203close OUT; 204 205sub process_oid 206 { 207 local($oid)=@_; 208 local(@a,$oid_pref); --- 24 unchanged lines hidden --- | 209 } 210 211close OUT; 212 213sub process_oid 214 { 215 local($oid)=@_; 216 local(@a,$oid_pref); --- 24 unchanged lines hidden --- |