FBAlpha/src/dep/scripts/toa_gp9001_func.pl at 462968274e366266f5f60f345394bc1c0b87cdc4 · barry65536/FBAlpha · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
#!/usr/bin/perl -w

use strict;

my $OutfileFun;
my $OutfileTab;

# Process command line arguments
if ( $ARGV[0] =~ /^-o/i ) {
   if ( $ARGV[0] =~ /^-o$/i ) {
      $OutfileFun = $ARGV[1];
   } else {
      $ARGV[0] =~ /(?<=-o)(.*)/i;
      $OutfileFun = $1;
   }
}

unless ( $OutfileFun ) {
   die "Usage: $0 -o <output file>\n\n";
}

$OutfileTab = $OutfileFun;
$OutfileTab =~ s/(\.\w+)/_table$1/;

open( OUTFILEFUN, ">$OutfileFun" ) or die "\nError: Couldn't open OUTPUT file $OutfileFun: $!";
open( OUTFILETAB, ">$OutfileTab" ) or die "\nError: Couldn't open OUTPUT file $OutfileTab: $!";

print "Generating $OutfileFun & $OutfileTab...\n";

# Generate optimized functions and a table with the function names

print OUTFILETAB "// Table with all function addresses.\n";
print OUTFILETAB "static RenderTileFunction RenderTileFunctionTable[] = {\n";

for ( my $Rot = 0; $Rot <= 270; $Rot += 270) {
	my @Flip = ( "_NOFLIP", "_FLIPX", "_FLIPY", "_FLIPXY" );
	my $IsOpaque;

	if ( $Rot == 270 ) {
		print OUTFILEFUN "#ifdef DRIVER_ROTATION\n";

		print OUTFILETAB "#ifdef DRIVER_ROTATION\n";
	}

	print OUTFILEFUN "#define ROT $Rot\n\n";
	for ( my $Bitdepth = 16; $Bitdepth <= 32; $Bitdepth += 8 ) {
		print OUTFILEFUN "// " . $Bitdepth . "-bit rendering functions.\n";
		print OUTFILEFUN "#define BPP $Bitdepth\n\n";

		my $FunctionName = "&RenderTile" . $Bitdepth . "_ROT" . "$Rot";

		for ( my $Function = 0; $Function < 8; $Function++ ) {
			if ( ($Function & 3) == 0 ) {
				print OUTFILEFUN "#define ISOPAQUE " . ($Function & 4) / 4 . "\n";

				print OUTFILETAB "\t";

				if ( ($Function & 4) == 0 ) {
					$IsOpaque = "_TRANS";
				} else {
					$IsOpaque = "_OPAQUE";
				}
			}
			print OUTFILEFUN "#define XFLIP " . ($Function & 1) . "\n";
			print OUTFILEFUN "#define YFLIP " . ($Function & 2) / 2 . "\n";

			print OUTFILEFUN "#define DOCLIP 0\n";
			print OUTFILEFUN "#include \"toa_gp9001_render.h\"\n";
			print OUTFILEFUN "#undef DOCLIP\n";

			print OUTFILETAB $FunctionName . $Flip[$Function & 3] . "_NOCLIP" . $IsOpaque . ", ";

			print OUTFILEFUN "#define DOCLIP 1\n";
			print OUTFILEFUN "#include \"toa_gp9001_render.h\"\n";
			print OUTFILEFUN "#undef DOCLIP\n";

			print OUTFILETAB $FunctionName . $Flip[$Function & 3] . "_CLIP" . $IsOpaque . ", ";

			print OUTFILEFUN "#undef YFLIP\n";
			print OUTFILEFUN "#undef XFLIP\n\n";

			if ( ($Function & 3) == 3 ) {
				print OUTFILEFUN "#undef ISOPAQUE\n\n";

				print OUTFILETAB "\n";
			}
		}
		print OUTFILEFUN "#undef BPP\n\n";
	}
	print OUTFILEFUN "#undef ROT\n\n";

	if ( $Rot == 270 ) {
		print OUTFILEFUN "#endif\n";

		print OUTFILETAB "#endif\n";
	}
}

print OUTFILEFUN "\n";

print OUTFILETAB "};\n\n";

$OutfileTab =~ /(?:.*[\\\/])(.*)/;
print OUTFILEFUN "#include \"$1\"\n";

print OUTFILETAB "static RenderTileFunction* RenderTile_ROT0[3] = {\n\t&RenderTileFunctionTable[0],\n\t&RenderTileFunctionTable[16],\n\t&RenderTileFunctionTable[32]\n};\n";
print OUTFILETAB "#ifdef DRIVER_ROTATION\n";
print OUTFILETAB "static RenderTileFunction* RenderTile_ROT270[3] = {\n\t&RenderTileFunctionTable[48],\n\t&RenderTileFunctionTable[64],\n\t&RenderTileFunctionTable[80]\n};\n";
print OUTFILETAB "#endif\n";

close( OUTFILETAB );
close( OUTFILEFUN );