ipxwrapper/mkstubs.pl

# IPXWrapper - Generate assembly stub functions
# Copyright (C) 2008-2011 Daniel Collins <solemnwarning@solemnwarning.net>
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License version 2 as published by
# the Free Software Foundation.
#
# This program is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
# FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
# more details.
#
# You should have received a copy of the GNU General Public License along with
# this program; if not, write to the Free Software Foundation, Inc., 51
# Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.

if(@ARGV != 2 && @ARGV != 3) {
	print STDERR "Usage: mkdll.pl <function list> <output code> [<dll name>]\n";
	exit(1);
}

open(STUBS, "<".$ARGV[0]) or die("Cannot open ".$ARGV[0].": $!");
open(CODE, ">".$ARGV[1]) or die("Cannot open ".$ARGV[1].": $!");

my @stubs = ();

foreach my $line(<STUBS>) {
	$line =~ s/[\r\n]//g;
	
	if($line ne "") {
		push @stubs, $line;
	}
}

print CODE "section .rdata:\n";

if(@ARGV == 3) {
	print CODE "\tglobal\t_dllname\n";
	print CODE "\tdllname_s:\tdb\t'".$ARGV[2]."', 0\n";
	print CODE "\t_dllname:\tdd\tdllname_s\n";
	print CODE "\tcall_fmt\tdb\t'\%s:\%s', 0\n";
}

foreach my $func(@stubs) {
	my $real_func = $func;
	$real_func =~ s/^r_//;
	
	print CODE "\t$func\_sym:\tdb\t'$real_func', 0\n";
}

print CODE "\nsection .data\n";

if(@ARGV == 3) {
	print CODE "\textern\t_log_calls\n";
}

foreach my $func(@stubs) {
	print CODE "\t$func\_addr:\tdd\t0\n";
}

print CODE "\nsection .text\n";
print CODE "\textern\t_find_sym\n";

if(@ARGV == 3) {
	print CODE "\textern\t_log_printf\n";
}

foreach my $func(@stubs) {
	print CODE "\nglobal\t_$func\n";
	print CODE "_$func:\n";
	
	if(@ARGV == 3) {
		print CODE "\tcmp\tbyte [_log_calls], 0\n";
		print CODE "\tje\t$func\_nolog\n";
		
		# Write DLL and symbol name to log
		#
		print CODE "\tpush\t$func\_sym\n";
		print CODE "\tpush\tdllname_s\n";
		print CODE "\tpush\tcall_fmt\n";
		print CODE "\tcall\t_log_printf\n";
		print CODE "\tadd esp, 12\n";
		
		print CODE "\t$func\_nolog:\n";
	}
	
	print CODE "\tcmp\tdword [$func\_addr], 0\n";
	print CODE "\tjne\t$func\_jmp\n";
	print CODE "\tpush\t$func\_sym\n";
	print CODE "\tcall\t_find_sym\n";
	print CODE "\tmov\t[$func\_addr], eax\n";
	print CODE "\t$func\_jmp:\n";
	print CODE "\tjmp\t[$func\_addr]\n";
}

close(CODE);
close(STUBS);