mirror of
https://git.code.sf.net/p/quake/quakeforge
synced 2024-11-19 03:01:28 +00:00
3715430479
The major change is that we no longer require libGL to even exist on the system at compile time for the GL targets, we dynamicly link to the libGL of choice at run time. (This probably breaks most non-linux systems, and all GL targets except -glx, some fixup will be needed.) (This also kills glquake, dead dead DEAD! GONE FOREVER! WHEE!) Some gl_draw cleanup. Commented out equake alias model occlusion test stuff, very experimental. Added the .lo and .la patterns to the .gitignore files. Some minor sbar cleanup. (We don't use the disc in use symbol for anything.)
77 lines
1.6 KiB
Perl
Executable file
77 lines
1.6 KiB
Perl
Executable file
#! /usr/bin/perl -w
|
|
use strict;
|
|
|
|
&main(@ARGV);
|
|
|
|
sub main () {
|
|
my ($input_file, $funcs_file, $header_file, $footer_file) = @_;
|
|
my (@input, @funcs, $funcs, @header, @footer, $line);
|
|
|
|
if ($#ARGV != 3) {
|
|
die("Usage: $0 <input header> <funcs file> <header> <footer>\n");
|
|
}
|
|
|
|
@input = &read_file(sprintf("indent -l1000 -nhnl -st %s |", $input_file));
|
|
@funcs = &read_file($funcs_file);
|
|
@header = &read_file($header_file);
|
|
@footer = &read_file($footer_file);
|
|
|
|
if ($#funcs == -1) {
|
|
die("Use a function or two!\n");
|
|
}
|
|
$funcs = join ("|", @funcs);
|
|
|
|
foreach $line (@header) {
|
|
print("$line\n");
|
|
}
|
|
|
|
&print_funcs ($funcs, \@input);
|
|
|
|
foreach $line (@footer) {
|
|
print("$line\n");
|
|
}
|
|
}
|
|
|
|
sub print_funcs () {
|
|
my (%names, @names, $name);
|
|
my ($return, $func, $args, $funcs, $line, @input);
|
|
|
|
$funcs = shift;
|
|
@input = @{+shift};
|
|
|
|
foreach $line (@input) {
|
|
|
|
if ($line =~ /GLAPI\s+(.+?)\s*GLAPIENTRY\s+([^\s\(]+)\s*\(([^()]+)\)/) {
|
|
$return = $1; $name = $2, $args = $3;
|
|
$names{$name} = [$return, $args];
|
|
}
|
|
}
|
|
@names = sort { $a cmp $b } keys %names;
|
|
foreach $name (@names) {
|
|
($return, $args) = @{$names{$name}};
|
|
if ($name =~ /(glX|ARB|EXT|MESA|NV|SGIS|SGIX|SGI|APPLE|HP|IBM|INTEL|SUN|SUNX|INGR|ATI|WIN|PGI)/) {
|
|
# It is an extension, ignore it.
|
|
} elsif ($name =~ /($funcs)/) {
|
|
print("QFGL_NEED ($return, $name, ($args));\n");
|
|
} else {
|
|
print("QFGL_DONT_NEED ($return, $name, ($args));\n");
|
|
}
|
|
}
|
|
}
|
|
|
|
sub read_file () {
|
|
my ($file, @lines);
|
|
|
|
$file = shift;
|
|
|
|
open (FILE, $file) or die "Can't open file $file: $!\n";;
|
|
|
|
while (<FILE>) {
|
|
chomp($_);
|
|
push(@lines, $_);
|
|
}
|
|
|
|
close (FILE);
|
|
|
|
return @lines;
|
|
}
|