Files
milsko/tools/genwat.pl
NishiOwO 13dc777953 watcom
git-svn-id: http://svn2.nishi.boats/svn/milsko/trunk@271 b9cfdab3-6d41-4d17-bbe4-086880011989
2025-10-11 13:52:40 +00:00

71 lines
1.8 KiB
Perl
Executable File

#!/usr/bin/env perl
# $Id$
our @sources = ();
sub scan {
opendir(DIR, $_[0]);
my @files = readdir(DIR);
foreach my $f (@files) {
if (!($f =~ /^vulkan\.cc?$/) && ($f =~ /\.cc?$/)) {
push(@sources, $_[0] . "/" . $f);
$f =~ s/\.cc?$/.obj/g;
my $p = $_[0] . "/" . $f;
print(OUT " $p");
}
}
closedir(DIR);
}
open(OUT, ">", "WatMakefile");
print(OUT "# \$Id\$\n");
print(OUT "WATCOM = /usr/watcom\n");
print(OUT "CC = wcc386\n");
print(OUT "CXX = wpp386\n");
print(OUT "CFLAGS = -q -d_MILSKO -dUSE_GDI -dUSE_STB_IMAGE -dSTBI_NO_SIMD -i=\$(WATCOM)/h/nt\n");
print(OUT "CXXFLAGS =\n");
print(OUT "\n");
print(OUT "OBJS =");
scan("src");
scan("src/widget");
scan("src/external");
scan("src/cursor");
scan("src/icon");
push(@sources, "src/backend/gdi.c");
print(OUT " src/backend/gdi.obj\n");
print(OUT "\n");
print(OUT ".EXTENSIONS:\n");
print(OUT ".EXTENSIONS: .obj .c\n");
print(OUT "\n");
print(OUT "all: src/Mw.dll\n");
print(OUT "\n");
print(OUT "clean: .SYMBOLIC\n");
foreach my $l (@sources){
my $obj = $l;
$obj =~ s/\.cc?/.obj/g;
print(OUT " %erase $obj\n");
}
print(OUT " %erase src/Mw.dll\n");
print(OUT " %erase src/Mw.lib\n");
print(OUT "\n");
print(OUT "\n");
print(OUT "src/Mw.dll: \$(OBJS)\n");
print(OUT " %write Mw.lnk system nt_dll initinstance terminstance name src/Mw.dll\n");
print(OUT " %write Mw.lnk option implib=src/Mw.lib\n");
print(OUT " %write Mw.lnk library clib3r.lib\n");
foreach my $l (@sources){
my $obj = $l;
$obj =~ s/\.cc?/.obj/g;
print(OUT " %write Mw.lnk file $obj\n");
}
print(OUT " wlink \@Mw.lnk\n");
print(OUT " %erase Mw.lnk");
print(OUT "\n");
foreach my $l (@sources){
my $obj = $l;
$obj =~ s/\.cc?/.obj/g;
print(OUT "$obj: $l\n");
print(OUT " \$(CC) \$(CFLAGS) -bt=nt -fo=\$@ -i=include $l\n");
}
close(OUT);