e0a651945c
Add copyright to most .pl files This does NOT cover any .pl file that has other copyright in it. Most of those are Andy's but some are public domain. Fix typo's in some existing files. Reviewed-by: Richard Levitte <levitte@openssl.org>
71 lines
2.7 KiB
Perl
Executable file
71 lines
2.7 KiB
Perl
Executable file
#! /usr/bin/env perl
|
|
# Copyright 2011-2016 The OpenSSL Project Authors. All Rights Reserved.
|
|
#
|
|
# Licensed under the OpenSSL license (the "License"). You may not use
|
|
# this file except in compliance with the License. You can obtain a copy
|
|
# in the file LICENSE in the source distribution or at
|
|
# https://www.openssl.org/source/license.html
|
|
|
|
my $quiet = 1;
|
|
|
|
unpack("L",pack("N",1))!=1 || die "only little-endian hosts are supported";
|
|
|
|
# first argument can specify custom suffix...
|
|
$suffix=(@ARGV[0]=~/^\$/) ? shift(@ARGV) : "\$m";
|
|
#################################################################
|
|
# rename segments in COFF modules according to %map table below #
|
|
%map=( ".text" => "fipstx$suffix", #
|
|
".text\$"=> "fipstx$suffix", #
|
|
".rdata" => "fipsrd$suffix", #
|
|
".data" => "fipsda$suffix" ); #
|
|
#################################################################
|
|
|
|
# collect file list
|
|
foreach (@ARGV) {
|
|
if (/\*/) { push(@files,glob($_)); }
|
|
else { push(@files,$_); }
|
|
}
|
|
|
|
use Fcntl;
|
|
use Fcntl ":seek";
|
|
|
|
foreach (@files) {
|
|
$file=$_;
|
|
print "processing $file\n" unless $quiet;
|
|
|
|
sysopen(FD,$file,O_RDWR|O_BINARY) || die "sysopen($file): $!";
|
|
|
|
# read IMAGE_DOS_HEADER
|
|
sysread(FD,$mz,64)==64 || die "$file is too short";
|
|
@dos_header=unpack("a2C58I",$mz);
|
|
if (@dos_header[0] eq "MZ") {
|
|
$e_lfanew=pop(@dos_header);
|
|
sysseek(FD,$e_lfanew,SEEK_SET) || die "$file is too short";
|
|
sysread(FD,$Magic,4)==4 || die "$file is too short";
|
|
unpack("I",$Magic)==0x4550 || die "$file is not COFF image";
|
|
} elsif ($file =~ /\.obj$/i) {
|
|
# .obj files have no IMAGE_DOS_HEADER
|
|
sysseek(FD,0,SEEK_SET) || die "unable to rewind $file";
|
|
} else { next; }
|
|
|
|
# read IMAGE_FILE_HEADER
|
|
sysread(FD,$coff,20)==20 || die "$file is too short";
|
|
($Machine,$NumberOfSections,$TimeDateStamp,
|
|
$PointerToSymbolTable,$NumberOfSysmbols,
|
|
$SizeOfOptionalHeader,$Characteristics)=unpack("SSIIISS",$coff);
|
|
|
|
# skip over IMAGE_OPTIONAL_HEADER
|
|
sysseek(FD,$SizeOfOptionalHeader,SEEK_CUR) || die "$file is too short";
|
|
|
|
# traverse IMAGE_SECTION_HEADER table
|
|
for($i=0;$i<$NumberOfSections;$i++) {
|
|
sysread(FD,$SectionHeader,40)==40 || die "$file is too short";
|
|
($Name,@opaque)=unpack("Z8C*",$SectionHeader);
|
|
if ($map{$Name}) {
|
|
sysseek(FD,-40,SEEK_CUR) || die "unable to rewind $file";
|
|
syswrite(FD,pack("a8C*",$map{$Name},@opaque))==40 || die "syswrite failed: $!";
|
|
printf " %-8s -> %.8s\n",$Name,$map{$Name} unless $quiet;
|
|
}
|
|
}
|
|
close(FD);
|
|
}
|