uvmac/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);
}