Apple-2-SW/pitch-dark
1
0
Fork 0
mirror of https://github.com/a2-4am/pitch-dark.git synced 2025-03-23 21:29:36 +00:00
Code Issues Projects Releases Wiki Activity

sync makefile with support files

Browse Source
This commit is contained in:
Peter Ferrie 2018-04-18 18:03:06 -07:00
parent 453ee52849
commit 22d0f97df9
3 changed files with 36 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
bin/fixFileInformation.js Normal file
View File

@ -0,0 +1,7 @@
a=new ActiveXObject("scripting.filesystemobject")
b=a.opentextfile("src/constants.a").readall()
b=b.substr(b.search(c=/kPitchDarkBinaryAddress/))
d=a.opentextfile(e=WScript.Arguments(0))
b=d.readall().replace(c,parseInt(b.substr(b.search(/\$/)+1),16).toString(16).toUpperCase())
d.close()
a.createtextfile(e).write(b)

26
bin/textnormalize.js Normal file
View File

@ -0,0 +1,26 @@
a = new ActiveXObject("scripting.filesystemobject")
fileinfo = ""
for (b = new Enumerator(a.GetFolder(WScript.Arguments(0)).files); !b.atEnd(); b.moveNext())
{
f = a.opentextfile(b.item())
try
{
shortf = a.GetBaseName(b.item()).toUpperCase()
newf = ""
fileinfo += "\r\n" + shortf + "=Type(04),AuxType(0000),VersionCreate(70),MinVersion(BE),Access(C3)"
l = 0
while (1)
{
lines = f.readline()
!lines.length && (linelength = 0);
l && linelength && (lines += new Array(linelength - lines.length).join(" "))
newf += lines + "\r"
if (lines.substring(0, 6) == "[info]") linelength = 65
else if (lines.substring(0, 13) == "[description]") linelength = 78
l = linelength
}
}
catch(e){}
a.createtextfile("build\\text\\" + shortf, 1).write(newf)
}
a.createtextfile("build\\text\\_FileInformation.txt", 1).write(fileinfo.substring(2))

36
winmake.bat
View File

@ -1,4 +1,3 @@
0</* :
@echo off
if "%1" equ "clean" (
:clean
@ -32,6 +31,7 @@ if "%1" equ "dsk" (
call :asm
1>nul copy /y res\"Pitch Dark.master games collection.do.not.edit.2mg" "build\%DISK%"
1>nul copy /y res\_FileInformation.txt build\
cscript /nologo bin\fixFileInformation.js build\_FileInformation.txt
cadius ADDFILE "build\%DISK%" "/PITCH.DARK/" "build\GRUE.SYSTEM"
cadius ADDFILE "build\%DISK%" "/PITCH.DARK/" "build\ONBEYOND.SYSTEM"
cadius ADDFILE "build\%DISK%" "/PITCH.DARK/" "build\ZINFO.SYSTEM"
@ -56,7 +56,7 @@ if "%1" equ "txt" (
call :dsk
:txt
2>nul md build\text
cscript /nologo //e:jscript %~f0
cscript /nologo bin/textnormalize.js res\text
cd build & cadius ADDFOLDER "%DISK%" "/PITCH.DARK/TEXT" text & cd ..
if not "%1" equ "" set DISK=
goto :EOF
@ -82,41 +82,11 @@ goto :EOF
echo usage: %0 clean / asm / dsk / txt / artwork / all
goto :EOF
*/
WScript.echo("")
a = new ActiveXObject("scripting.filesystemobject")
fileinfo = ""
for (b = new Enumerator(a.GetFolder("res\\text").files); !b.atEnd(); b.moveNext())
{
f = a.opentextfile(b.item())
try
{
shortf = a.GetBaseName(b.item()).toUpperCase()
newf = ""
fileinfo += "\r\n" + shortf + "=Type(04),AuxType(0000),VersionCreate(70),MinVersion(BE),Access(C3)"
l = 0
while (1)
{
lines = f.readline()
!lines.length && (linelength = 0);
l && linelength && (lines += new Array(linelength - lines.length).join(" "))
newf += lines + "\r"
if (lines.substring(0, 6) == "[info]") linelength = 65
else if (lines.substring(0, 13) == "[description]") linelength = 78
l = linelength
}
}
catch(e){}
a.createtextfile("build\\text\\" + shortf, 1).write(newf)
}
a.createtextfile("build\\text\\_FileInformation.txt", 1).write(fileinfo.substring(2))
/*
bat/jscript hybrid make script for Windows environments
make script for Windows environments
a qkumba monstrosity from 2018-03-01
requires ACME, CADIUS
https://sourceforge.net/projects/acme-crossass/
https://www.brutaldeluxe.fr/products/crossdevtools/cadius/
https://github.com/mach-kernel/cadius
requires ACME, CADIUS to be in path
*/