1656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project#!/usr/local/bin/perl 2656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project 3656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Projectopen (NUMIN,"$ARGV[1]") || die "Can't open number file $ARGV[1]"; 4656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project$max_nid=0; 5656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project$o=0; 6656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Projectwhile(<NUMIN>) 7656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project { 8656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project chop; 9656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $o++; 10656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project s/#.*$//; 11656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project next if /^\s*$/; 12656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $_ = 'X'.$_; 13656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project ($Cname,$mynum) = split; 14656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $Cname =~ s/^X//; 15656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project if (defined($nidn{$mynum})) 16656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project { die "$ARGV[1]:$o:There's already an object with NID ",$mynum," on line ",$order{$mynum},"\n"; } 17221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom if (defined($nid{$Cname})) 18221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstrom { die "$ARGV[1]:$o:There's already an object with name ",$Cname," on line ",$order{$nid{$Cname}},"\n"; } 19656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $nid{$Cname} = $mynum; 20656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $nidn{$mynum} = $Cname; 21656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $order{$mynum} = $o; 22656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $max_nid = $mynum if $mynum > $max_nid; 23656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project } 24656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Projectclose NUMIN; 25656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project 26656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Projectopen (IN,"$ARGV[0]") || die "Can't open input file $ARGV[0]"; 27656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project$Cname=""; 28656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project$o=0; 29656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Projectwhile (<IN>) 30656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project { 31656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project chop; 32656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $o++; 33656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project if (/^!module\s+(.*)$/) 34656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project { 35656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $module = $1."-"; 36656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $module =~ s/\./_/g; 37656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $module =~ s/-/_/g; 38656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project } 39656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project if (/^!global$/) 40656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project { $module = ""; } 41656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project if (/^!Cname\s+(.*)$/) 42656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project { $Cname = $1; } 43656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project if (/^!Alias\s+(.+?)\s+(.*)$/) 44656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project { 45656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $Cname = $module.$1; 46656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $myoid = $2; 47656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $myoid = &process_oid($myoid); 48656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $Cname =~ s/-/_/g; 49656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $ordern{$o} = $Cname; 50656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $order{$Cname} = $o; 51656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $obj{$Cname} = $myoid; 52656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $_ = ""; 53656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $Cname = ""; 54656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project } 55656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project s/!.*$//; 56656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project s/#.*$//; 57656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project next if /^\s*$/; 58656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project ($myoid,$mysn,$myln) = split ':'; 59656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $mysn =~ s/^\s*//; 60656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $mysn =~ s/\s*$//; 61656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $myln =~ s/^\s*//; 62656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $myln =~ s/\s*$//; 63656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $myoid =~ s/^\s*//; 64656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $myoid =~ s/\s*$//; 65656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project if ($myoid ne "") 66656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project { 67656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $myoid = &process_oid($myoid); 68656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project } 69656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project 70656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project if ($Cname eq "" && !($myln =~ / /)) 71656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project { 72656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $Cname = $myln; 73656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $Cname =~ s/\./_/g; 74656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $Cname =~ s/-/_/g; 75656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project if ($Cname ne "" && defined($ln{$module.$Cname})) 76656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project { die "objects.txt:$o:There's already an object with long name ",$ln{$module.$Cname}," on line ",$order{$module.$Cname},"\n"; } 77656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project } 78656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project if ($Cname eq "") 79656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project { 80656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $Cname = $mysn; 81656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $Cname =~ s/-/_/g; 82656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project if ($Cname ne "" && defined($sn{$module.$Cname})) 83656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project { die "objects.txt:$o:There's already an object with short name ",$sn{$module.$Cname}," on line ",$order{$module.$Cname},"\n"; } 84656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project } 85656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project if ($Cname eq "") 86656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project { 87656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $Cname = $myln; 88656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $Cname =~ s/-/_/g; 89656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $Cname =~ s/\./_/g; 90656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $Cname =~ s/ /_/g; 91656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project if ($Cname ne "" && defined($ln{$module.$Cname})) 92656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project { die "objects.txt:$o:There's already an object with long name ",$ln{$module.$Cname}," on line ",$order{$module.$Cname},"\n"; } 93656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project } 94656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $Cname =~ s/\./_/g; 95656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $Cname =~ s/-/_/g; 96656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $Cname = $module.$Cname; 97656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $ordern{$o} = $Cname; 98656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $order{$Cname} = $o; 99656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $sn{$Cname} = $mysn; 100656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $ln{$Cname} = $myln; 101656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $obj{$Cname} = $myoid; 102656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project if (!defined($nid{$Cname})) 103656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project { 104656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $max_nid++; 105656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $nid{$Cname} = $max_nid; 106656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $nidn{$max_nid} = $Cname; 107221304ee937bc0910948a8be1320cb8cc4eb6d36Brian Carlstromprint STDERR "Added OID $Cname\n"; 108656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project } 109656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $Cname=""; 110656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project } 111656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Projectclose IN; 112656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project 113656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Projectopen (NUMOUT,">$ARGV[1]") || die "Can't open output file $ARGV[1]"; 114656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Projectforeach (sort { $a <=> $b } keys %nidn) 115656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project { 116656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project print NUMOUT $nidn{$_},"\t\t",$_,"\n"; 117656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project } 118656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Projectclose NUMOUT; 119656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project 120656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Projectopen (OUT,">$ARGV[2]") || die "Can't open output file $ARGV[2]"; 121656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Projectprint OUT <<'EOF'; 122656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project/* crypto/objects/obj_mac.h */ 123656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project 124656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project/* THIS FILE IS GENERATED FROM objects.txt by objects.pl via the 125656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * following command: 126656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * perl objects.pl objects.txt obj_mac.num obj_mac.h 127656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project */ 128656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project 129656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project/* Copyright (C) 1995-1997 Eric Young (eay@cryptsoft.com) 130656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * All rights reserved. 131656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * 132656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * This package is an SSL implementation written 133656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * by Eric Young (eay@cryptsoft.com). 134656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * The implementation was written so as to conform with Netscapes SSL. 135656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * 136656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * This library is free for commercial and non-commercial use as long as 137656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * the following conditions are aheared to. The following conditions 138656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * apply to all code found in this distribution, be it the RC4, RSA, 139656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * lhash, DES, etc., code; not just the SSL code. The SSL documentation 140656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * included with this distribution is covered by the same copyright terms 141656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * except that the holder is Tim Hudson (tjh@cryptsoft.com). 142656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * 143656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * Copyright remains Eric Young's, and as such any Copyright notices in 144656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * the code are not to be removed. 145656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * If this package is used in a product, Eric Young should be given attribution 146656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * as the author of the parts of the library used. 147656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * This can be in the form of a textual message at program startup or 148656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * in documentation (online or textual) provided with the package. 149656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * 150656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * Redistribution and use in source and binary forms, with or without 151656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * modification, are permitted provided that the following conditions 152656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * are met: 153656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * 1. Redistributions of source code must retain the copyright 154656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * notice, this list of conditions and the following disclaimer. 155656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * 2. Redistributions in binary form must reproduce the above copyright 156656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * notice, this list of conditions and the following disclaimer in the 157656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * documentation and/or other materials provided with the distribution. 158656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * 3. All advertising materials mentioning features or use of this software 159656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * must display the following acknowledgement: 160656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * "This product includes cryptographic software written by 161656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * Eric Young (eay@cryptsoft.com)" 162656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * The word 'cryptographic' can be left out if the rouines from the library 163656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * being used are not cryptographic related :-). 164656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * 4. If you include any Windows specific code (or a derivative thereof) from 165656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * the apps directory (application code) you must include an acknowledgement: 166656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" 167656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * 168656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND 169656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 170656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 171656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 172656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 173656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 174656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 175656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 176656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 177656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 178656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * SUCH DAMAGE. 179656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * 180656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * The licence and distribution terms for any publically available version or 181656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * derivative of this code cannot be changed. i.e. this code cannot simply be 182656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * copied and put under another distribution licence 183656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project * [including the GNU Public Licence.] 184656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project */ 185656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project 186656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project#define SN_undef "UNDEF" 187656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project#define LN_undef "undefined" 188656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project#define NID_undef 0 189656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project#define OBJ_undef 0L 190656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project 191656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source ProjectEOF 192656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project 193656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Projectforeach (sort { $a <=> $b } keys %ordern) 194656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project { 195656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $Cname=$ordern{$_}; 196656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project print OUT "#define SN_",$Cname,"\t\t\"",$sn{$Cname},"\"\n" if $sn{$Cname} ne ""; 197656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project print OUT "#define LN_",$Cname,"\t\t\"",$ln{$Cname},"\"\n" if $ln{$Cname} ne ""; 198656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project print OUT "#define NID_",$Cname,"\t\t",$nid{$Cname},"\n" if $nid{$Cname} ne ""; 199656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project print OUT "#define OBJ_",$Cname,"\t\t",$obj{$Cname},"\n" if $obj{$Cname} ne ""; 200656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project print OUT "\n"; 201656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project } 202656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project 203656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Projectclose OUT; 204656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project 205656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Projectsub process_oid 206656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project { 207656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project local($oid)=@_; 208656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project local(@a,$oid_pref); 209656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project 210656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project @a = split(/\s+/,$myoid); 211656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $pref_oid = ""; 212656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $pref_sep = ""; 213656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project if (!($a[0] =~ /^[0-9]+$/)) 214656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project { 215656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $a[0] =~ s/-/_/g; 216656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project if (!defined($obj{$a[0]})) 217656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project { die "$ARGV[0]:$o:Undefined identifier ",$a[0],"\n"; } 218656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $pref_oid = "OBJ_" . $a[0]; 219656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $pref_sep = ","; 220656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project shift @a; 221656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project } 222656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $oids = join('L,',@a) . "L"; 223656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project if ($oids ne "L") 224656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project { 225656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $oids = $pref_oid . $pref_sep . $oids; 226656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project } 227656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project else 228656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project { 229656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $oids = $pref_oid; 230656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project } 231656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project return($oids); 232656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project } 233