nishi/milsko
1
Fork 0
mirror of https://gitea.nishi.boats/pyrite-dev/milsko synced 2026-01-04 08:30:51 +00:00
Code Issues Packages Projects Releases Wiki Activity

idk what i did

Browse Source 
git-svn-id: http://svn2.nishi.boats/svn/milsko/trunk@446 b9cfdab3-6d41-4d17-bbe4-086880011989
This commit is contained in:
NishiOwO
2025-10-21 17:30:41 +00:00
parent d263f6abb1
commit 1dbe11aca0
49 changed files with 97 additions and 1715 deletions
Download Patch File Download Diff File Expand all files Collapse all files

92
tools/genmk.pl
View File

@@ -1,22 +1,18 @@
#!/usr/bin/env perl
# $Id$
my @cfiles = ();
my @cxxfiles = ();
my @cfiles = ();
sub scan {
opendir(DIR, $_[0]);
my @files = readdir(DIR);
foreach my $f (@files) {
if ($f =~ /^vulkan\.cc?$/) {
if ($f =~ /^vulkan\.c$/) {
next;
}
if ($f =~ /\.c$/) {
push(@cfiles, $_[0] . "/" . $f);
}
elsif ($f =~ /\.cc$/) {
push(@cxxfiles, $_[0] . "/" . $f);
}
}
closedir(DIR);
}
@@ -25,19 +21,7 @@ sub cobjs {
my $r = "";
foreach my $f (@cfiles) {
my $b = $f;
$b =~ s/\.cc?$/.obj/;
$b =~ s/\//$_[0]/g;
$r = $r . " " . $_[1] . $b;
}
return $r;
}
sub cxxobjs {
my $r = "";
foreach my $f (@cxxfiles) {
my $b = $f;
$b =~ s/\.cc?$/.obj/;
$b =~ s/\.c$/.obj/;
$b =~ s/\//$_[0]/g;
$r = $r . " " . $_[1] . $b;
@@ -49,29 +33,25 @@ sub generate {
my ($output, $type) = @_;
my $cc = "";
my $cxx = "";
my $link = "";
my $suffix = 1;
my $symbolic = "";
my $dir = "\\";
my $del = "del /f /q";
my $out = "";
my $dllout = "";
my $def = "";
my $inc = "";
my $dll = "";
my $prefobj = "";
my $needlibs = "";
my $lib = "";
my $c_dllout = "";
my $cxx_dllout = "";
my $c_dllafter = "";
my $cxx_dllafter = "";
my $suffix = 1;
my $symbolic = "";
my $dir = "\\";
my $del = "del /f /q";
my $out = "";
my $dllout = "";
my $def = "";
my $inc = "";
my $dll = "";
my $prefobj = "";
my $needlibs = "";
my $lib = "";
my $c_dllout = "";
my $c_dllafter = "";
if ($type eq "Borland") {
$cc = "bcc32 -c";
$cxx = "bcc32 -c -P";
$link = "bcc32";
$out = "-o";
$dllout = "-e";
@@ -80,12 +60,10 @@ sub generate {
$dll = "-tWD";
$lib = "-l";
$c_dllafter = "implib src${dir}Mw.lib src${dir}Mw.dll";
$cxx_dllafter = "implib oosrc${dir}MwOO.lib oosrc${dir}MwOO.dll";
$c_dllafter = "implib src${dir}Mw.lib src${dir}Mw.dll";
}
elsif ($type eq "MSVC") {
$cc = "cl /TC /c /nologo";
$cxx = "cl /TP /c /nologo";
$link = "link /nologo";
$out = "/Fo";
$dllout = "/OUT:";
@@ -95,7 +73,6 @@ sub generate {
}
elsif ($type eq "Watcom") {
$cc = "wcc386 -bt=nt -q";
$cxx = "wpp386 -bt=nt -q";
$link = "wlink option quiet";
$out = "-fo=";
$dllout = "name ";
@@ -110,42 +87,38 @@ sub generate {
$del = "%erase";
$prefobj = "file ";
$needlibs = "${lib}clib3r.lib";
$c_dllout = "option implib=src${dir}Mw.lib";
$cxx_dllout = "option implib=oosrc${dir}MwOO.lib";
$c_dllout = "option implib=src${dir}Mw.lib";
}
open(OUT, ">", $output);
print(OUT "# \$Id\$\n");
print(OUT "CC = $cc\n");
print(OUT "CXX = $cxx\n");
print(OUT "LD = $link\n");
print(OUT "\n");
print(OUT
"CFLAGS = ${inc}include ${def}_MILSKO ${def}USE_GDI ${def}USE_STB_IMAGE ${def}STBI_NO_SIMD\n"
);
print(OUT "CXXFLAGS = ${inc}include\n");
print(OUT "LDFLAGS = $dll");
print(OUT "\n");
if ($suffix) {
print(OUT ".SUFFIXES: .obj .c .cc\n");
print(OUT ".SUFFIXES: .obj .c\n");
}
print(OUT "all: src${dir}Mw.dll oosrc${dir}MwOO.dll\n");
print(OUT "all: src${dir}Mw.dll\n");
print(OUT "clean: $symbolic\n");
foreach my $f (@cfiles) {
my $b = $f;
$b =~ s/\.cc?$/.obj/;
$b =~ s/\.c$/.obj/;
$b =~ s/\//$dir/g;
print(OUT " $del $b\n");
}
foreach my $f (@cxxfiles) {
my $b = $f;
$b =~ s/\.cc?$/.obj/;
$b =~ s/\.c$/.obj/;
$b =~ s/\//$dir/g;
print(OUT " $del $b\n");
}
print(OUT " $del src${dir}Mw.dll\n");
print(OUT " $del oosrc${dir}MwOO.dll\n");
print(OUT "\n");
print(OUT "src${dir}Mw.dll: " . cobjs($dir) . "\n");
print( OUT " \$(LD) \$(LDFLAGS) $c_dllout $dllout\$@ "
@@ -153,33 +126,19 @@ sub generate {
. " $needlibs ${lib}opengl32.lib ${lib}gdi32.lib ${lib}user32.lib\n");
print(OUT " $c_dllafter\n");
print(OUT "\n");
print(OUT "oosrc${dir}MwOO.dll: " . cxxobjs($dir) . "\n");
print( OUT " \$(LD) \$(LDFLAGS) $cxx_dllout $dllout\$@ "
. cxxobjs($dir, $prefobj)
. " $needlibs ${lib}src${dir}Mw.lib\n");
print(OUT " $cxx_dllafter\n");
print(OUT "\n");
if ($suffix) {
print(OUT ".c.obj:\n");
print(OUT " \$(CC) \$(CFLAGS) ${out}\$@ \$<\n");
print(OUT ".cc.obj:\n");
print(OUT " \$(CXX) \$(CXXFLAGS) ${out}\$@ \$<\n");
}
else {
print(OUT "\n");
foreach my $f (@cfiles) {
my $o = $f;
$o =~ s/\.cc?$/.obj/;
$o =~ s/\.c$/.obj/;
print(OUT "$o: $f\n");
print(OUT " \$(CC) \$(CFLAGS) ${out}\$@ \$<\n");
}
foreach my $f (@cxxfiles) {
my $o = $f;
$o =~ s/\.cc?$/.obj/;
print(OUT "$o: $f\n");
print(OUT " \$(CXX) \$(CXXFLAGS) ${out}\$@ \$<\n");
}
}
close(OUT);
}
@@ -191,9 +150,6 @@ scan("src/cursor");
scan("src/widget");
push(@cfiles, "src/backend/gdi.c");
scan("oosrc");
scan("oosrc/widget");
generate("BorMakefile", "Borland");
generate("NTMakefile", "MSVC");
generate("WatMakefile", "Watcom");