ref: 649e0914486b43f31c89f8d17efc16d9df120198
dir: /setup/WRMPWFLS.i/
/*
WRMPWFLS.i
Copyright (C) 2007 Paul C. Pratt
You can redistribute this file and/or modify it under the terms
of version 2 of the GNU General Public License as published by
the Free Software Foundation. You should have received a copy
of the license along with this file; see the file COPYING.
This file is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
license for more details.
*/
/*
WRite Macintosh Programmer's Workshop specific FiLeS
*/
LOCALPROC WriteLONGGLUEContents(void)
{
++DestFileIndent;
WriteDestFileLn("CASE ON");
WriteBlankLineToDestFile();
WriteDestFileLn("IMPORT long_main: CODE ");
WriteBlankLineToDestFile();
--DestFileIndent;
WriteDestFileLn("main PROC EXPORT");
++DestFileIndent;
WriteBlankLineToDestFile();
WriteDestFileLn("JMP (long_main).L");
WriteBlankLineToDestFile();
WriteDestFileLn("ENDP");
WriteBlankLineToDestFile();
WriteDestFileLn("END");
--DestFileIndent;
}
LOCALPROC WriteLongGlueObjName(void)
{
WriteCStrToDestFile("LONGGLUE.o");
}
LOCALPROC WriteLongGlueObjPath(void)
{
WriteFileInDirToDestFile0(Write_obj_d_ToDestFile,
WriteLongGlueObjName);
}
LOCALPROC WriteLongGlueSourceName(void)
{
WriteCStrToDestFile("LONGGLUE.S");
}
LOCALPROC WriteLongGlueSourcePath(void)
{
WriteFileInDirToDestFile0(Write_cfg_d_ToDestFile,
WriteLongGlueSourceName);
}
LOCALPROC DoLongGlueMakeCompileDeps(void)
{
WriteMakeDependFile(WriteLongGlueSourcePath);
}
LOCALPROC DoLongGlueMakeCompileBody(void)
{
WriteBgnDestFileLn();
WriteCStrToDestFile("Asm");
WritePathArgInMakeCmnd(WriteLongGlueSourcePath);
WriteCStrToDestFile(" -o");
WritePathArgInMakeCmnd(WriteLongGlueObjPath);
WriteCStrToDestFile(" -model far");
WriteEndDestFileLn();
}
LOCALPROC DoSrcFileMPWMakeObjects(void)
{
WriteBgnDestFileLn();
WriteQuoteToDestFile();
WriteSrcFileObjPath();
WriteQuoteToDestFile();
WriteCStrToDestFile(" \266");
WriteEndDestFileLn();
}
static void WriteMPWCOptions(blnr fast)
{
if (gbk_cpufam_68k == gbo_cpufam) {
WriteCStrToDestFile(" -proto strict -w 17 -align mac68k -b");
if (gbk_targ_mfpu == cur_targ) {
WriteCStrToDestFile(" -mc68020 -mc68881 -elems881");
}
if (gbk_dbg_on != gbo_dbg) {
WriteCStrToDestFile(" -mbg off");
}
WriteCStrToDestFile(" -model farCode");
} else if (gbk_cpufam_ppc == gbo_cpufam) {
WriteCStrToDestFile(" -proto strict -w 17");
if (gbk_dbg_on == gbo_dbg) {
WriteCStrToDestFile(" -traceback");
}
}
if (gbk_dbg_on != gbo_dbg) {
if (fast) {
if (gbk_cpufam_68k == gbo_cpufam) {
WriteCStrToDestFile(" -opt speed");
} else if (gbk_cpufam_ppc == gbo_cpufam) {
WriteCStrToDestFile(" -opt speed");
}
} else {
if (gbk_cpufam_68k == gbo_cpufam) {
WriteCStrToDestFile(" -opt space");
} else if (gbk_cpufam_ppc == gbo_cpufam) {
WriteCStrToDestFile(" -opt size");
/* this may not be reliable? */
}
}
}
WriteCStrToDestFile(" -i ");
WriteQuoteToDestFile();
Write_cfg_d_ToDestFile();
WriteQuoteToDestFile();
WriteCStrToDestFile(" -i ");
WriteQuoteToDestFile();
Write_src_d_ToDestFile();
WriteQuoteToDestFile();
}
LOCALPROC WriteMainRsrcObjDeps(void)
{
WriteMakeDependFile(WriteMainRsrcSrcPath);
}
LOCALPROC WriteMainRsrcObjMPWbody(void)
{
WriteBgnDestFileLn();
WriteCStrToDestFile("Rez -t rsrc -c RSED -i \"{RIncludes}\"");
WriteCStrToDestFile(" -i ");
WriteQuoteToDestFile();
Write_cfg_d_ToDestFile();
WriteQuoteToDestFile();
WriteCStrToDestFile(" -i ");
WriteQuoteToDestFile();
Write_src_d_ToDestFile();
WriteQuoteToDestFile();
WriteCStrToDestFile(" ");
WriteQuoteToDestFile();
WriteMainRsrcSrcPath();
WriteQuoteToDestFile();
WriteCStrToDestFile(" -o ");
WriteQuoteToDestFile();
WriteMainRsrcObjPath();
WriteQuoteToDestFile();
WriteEndDestFileLn();
}
LOCALPROC WriteMPWMakeFile(void)
{
WriteDestFileLn("# make file generated by gryphel build system");
WriteBlankLineToDestFile();
WriteBgnDestFileLn();
WriteCStrToDestFile("mk_COptions =");
WriteMPWCOptions(falseblnr);
WriteEndDestFileLn();
WriteBlankLineToDestFile();
WriteBlankLineToDestFile();
WriteBgnDestFileLn();
WriteCStrToDestFile("TheDefaultOutput \304");
WriteMakeDependFile(Write_machobinpath_ToDestFile);
WriteEndDestFileLn();
WriteBlankLineToDestFile();
if (gbk_cpufam_68k == gbo_cpufam) {
WriteMakeRule(WriteLongGlueObjPath,
DoLongGlueMakeCompileDeps,
DoLongGlueMakeCompileBody);
}
DoAllSrcFilesWithSetup(DoSrcFileMakeCompile);
WriteBlankLineToDestFile();
WriteDestFileLn("ObjFiles = \266");
++DestFileIndent;
DoAllSrcFilesSortWithSetup(DoSrcFileMPWMakeObjects);
WriteBlankLineToDestFile();
--DestFileIndent;
if (HaveMacBundleApp) {
WriteBlankLineToDestFile();
WriteMakeRule(Write_machoAppIconPath,
Write_tmachoShellDeps,
Write_tmachoShell);
}
WriteBlankLineToDestFile();
WriteBgnDestFileLn();
WriteCStrToDestFile("\"");
Write_machobinpath_ToDestFile();
WriteCStrToDestFile("\" \304");
WriteCStrToDestFile(" {ObjFiles}");
if (HaveMacBundleApp) {
WriteMakeDependFile(Write_machoAppIconPath);
} else {
WriteMakeDependFile(WriteMainRsrcObjPath);
}
if (gbk_cpufam_68k == gbo_cpufam) {
WritePathArgInMakeCmnd(WriteLongGlueObjPath);
}
WriteEndDestFileLn();
++DestFileIndent;
if (HaveMacRrscs) {
WriteBgnDestFileLn();
WriteCStrToDestFile("Duplicate -y \"");
WriteMainRsrcObjPath();
WriteCStrToDestFile("\" \"");
Write_machobinpath_ToDestFile();
WriteCStrToDestFile("\"");
WriteEndDestFileLn();
}
WriteBgnDestFileLn();
if (gbk_cpufam_68k == gbo_cpufam) {
WriteCStrToDestFile("Link");
if (gbk_dbg_on != gbo_dbg) {
WriteCStrToDestFile(" -rn");
}
WriteCStrToDestFile(
" -model far -sg Main"
"=STDCLIB,SANELIB,CSANELib,SADEV,STDIO");
} else if (gbk_cpufam_ppc == gbo_cpufam) {
WriteCStrToDestFile("PPCLink");
}
if (gbk_targ_carb == cur_targ) {
WriteCStrToDestFile(" -m main");
}
WriteCStrToDestFile(" -t APPL -c ");
WriteCStrToDestFile(kMacCreatorSig);
WriteCStrToDestFile(" \266");
WriteEndDestFileLn();
++DestFileIndent;
WriteDestFileLn("{ObjFiles} \266");
if (gbk_targ_carb == cur_targ) {
WriteDestFileLn("\"{SharedLibraries}CarbonLib\" \266");
#if UseOpenGLinOSX
WriteDestFileLn(
"\"{SharedLibraries}OpenGLLibraryStub\" \266");
#endif
WriteDestFileLn("\"{PPCLibraries}PPCToolLibs.o\" \266");
WriteDestFileLn("\"{PPCLibraries}PPCCRuntime.o\" \266");
WriteDestFileLn("\"{SharedLibraries}StdCLib\" \266");
} else if (gbk_targ_mppc == cur_targ) {
WriteDestFileLn("\"{PPCLibraries}PPCToolLibs.o\" \266");
WriteDestFileLn("\"{PPCLibraries}PPCCRuntime.o\" \266");
WriteDestFileLn("\"{PPCLibraries}StdCRuntime.o\" \266");
WriteDestFileLn(
"\"{SharedLibraries}InterfaceLib\" \266");
WriteDestFileLn("\"{SharedLibraries}MathLib\" \266");
WriteDestFileLn("\"{SharedLibraries}StdCLib\" \266");
WriteDestFileLn("-weaklib AppearanceLib \266");
WriteDestFileLn(
"\"{SharedLibraries}AppearanceLib\" \266");
WriteDestFileLn("-weaklib MenusLib \266");
WriteDestFileLn("\"{SharedLibraries}MenusLib\" \266");
WriteDestFileLn("-weaklib NavigationLib \266");
WriteDestFileLn(
"\"{SharedLibraries}NavigationLib\" \266");
WriteDestFileLn("-weaklib DragLib \266");
WriteDestFileLn("\"{SharedLibraries}DragLib\" \266");
WriteDestFileLn("-weaklib WindowsLib \266");
WriteDestFileLn("\"{SharedLibraries}WindowsLib\" \266");
} else if (gbk_targ_m68k == cur_targ) {
WriteDestFileLn("\"{Libraries}Interface.o\" \266");
WriteDestFileLn("\"{Libraries}Navigation.o\" \266");
WriteDestFileLn("\"{Libraries}MacRuntime.o\" \266");
/* WriteDestFileLn("\"{Libraries}MathLib.o\" \266"); */
} else if (gbk_targ_mfpu == cur_targ) {
WriteDestFileLn("\"{Libraries}Interface.o\" \266");
WriteDestFileLn("\"{Libraries}Navigation.o\" \266");
WriteDestFileLn("\"{Libraries}MacRuntime.o\" \266");
/*
WriteDestFileLn("\"{Libraries}MathLib881.o\" \266");
*/
}
if (gbk_cpufam_68k == gbo_cpufam) {
WriteBgnDestFileLn();
WriteQuoteToDestFile();
WriteLongGlueObjPath();
WriteQuoteToDestFile();
WriteCStrToDestFile(" \266");
WriteEndDestFileLn();
}
WriteBgnDestFileLn();
WriteCStrToDestFile("-o");
WritePathArgInMakeCmnd(Write_machobinpath_ToDestFile);
WriteEndDestFileLn();
--DestFileIndent;
WriteBgnDestFileLn();
WriteCStrToDestFile("SetFile -d . -m .");
if (! HaveMacBundleApp) {
WriteCStrToDestFile(" -a B");
}
WriteCStrToDestFile(" \"");
Write_machobinpath_ToDestFile();
WriteCStrToDestFile("\"");
WriteEndDestFileLn();
--DestFileIndent;
if (HaveMacRrscs) {
WriteBlankLineToDestFile();
WriteMakeRule(WriteMainRsrcObjPath,
WriteMainRsrcObjDeps, WriteMainRsrcObjMPWbody);
}
WriteBlankLineToDestFile();
WriteDestFileLn("clean \304");
++DestFileIndent;
WriteDestFileLn("Delete -i {ObjFiles}");
if (HaveMacBundleApp) {
WriteRmDir(WriteAppNamePath);
} else {
WriteRmFile(WriteAppNamePath);
WriteRmFile(WriteMainRsrcObjPath);
}
--DestFileIndent;
WriteBlankLineToDestFile();
}
LOCALPROC WriteMPWSpecificFiles(void)
{
if (gbk_cpufam_68k == gbo_cpufam) {
WriteADstFile1("my_config_d",
"LONGGLUE", ".S", "entry point glue for large program",
WriteLONGGLUEContents);
}
if (HaveMacBundleApp) {
WritePListData();
}
WriteADstFile1("my_project_d",
"Makefile", "", "Make file",
WriteMPWMakeFile);
}