Commit 2487d771 authored by Andy Polyakov's avatar Andy Polyakov
Browse files

Harmonize objects.pl output with new format. 



Reviewed-by: default avatarTim Hudson <tjh@openssl.org>
(cherry picked from commit 7ce38623)
parent e5d2a44f

crypto/objects/objects.pl

+26 −17
Original line number Diff line number Diff line
@@ -121,9 +121,9 @@ open (OUT,">$ARGV[2]") || die "Can't open output file $ARGV[2]"; 
print OUT <<'EOF';

/* crypto/objects/obj_mac.h */



/* THIS FILE IS GENERATED FROM objects.txt by objects.pl via the

 * following command:

 * perl objects.pl objects.txt obj_mac.num obj_mac.h

/*

 * THIS FILE IS GENERATED FROM objects.txt by objects.pl via the following

 * command: perl objects.pl objects.txt obj_mac.num obj_mac.h

 */



/* Copyright (C) 1995-1997 Eric Young (eay@cryptsoft.com)
@@ -190,13 +190,22 @@ print OUT <<'EOF'; 


EOF



sub expand

	{

	my $string = shift;



	1 while $string =~ s/\t+/' ' x (length($&) * 8 - length($`) % 8)/e;



	return $string;

	}



foreach (sort { $a <=> $b } keys %ordern)

	{

	$Cname=$ordern{$_};

	print OUT "#define SN_",$Cname,"\t\t\"",$sn{$Cname},"\"\n" if $sn{$Cname} ne "";

	print OUT "#define LN_",$Cname,"\t\t\"",$ln{$Cname},"\"\n" if $ln{$Cname} ne "";

	print OUT "#define NID_",$Cname,"\t\t",$nid{$Cname},"\n" if $nid{$Cname} ne "";

	print OUT "#define OBJ_",$Cname,"\t\t",$obj{$Cname},"\n" if $obj{$Cname} ne "";

	print OUT expand("#define SN_$Cname\t\t\"$sn{$Cname}\"\n") if $sn{$Cname} ne "";

	print OUT expand("#define LN_$Cname\t\t\"$ln{$Cname}\"\n") if $ln{$Cname} ne "";

	print OUT expand("#define NID_$Cname\t\t$nid{$Cname}\n") if $nid{$Cname} ne "";

	print OUT expand("#define OBJ_$Cname\t\t$obj{$Cname}\n") if $obj{$Cname} ne "";

	print OUT "\n";

	}