void
TclPlatformExit(
int status) /* Ignored. */
{
TclMacExitHandler();
ExitToShell();
}
static pascal void
ExitToShellPatchRoutine()
{
ExitToShellUPP oldETS;
long oldA5;
/*
* Set up our A5 world. This allows us to have
* access to our global variables in the 68k world.
*/
oldA5 = SetCurrentA5();
SetA5(gExitToShellData->a5);
/*
* Call the function that invokes all
* of the handlers.
*/
TclMacExitHandler();
/*
* Call the origional ExitToShell routine.
*/
oldETS = gExitToShellData->oldProc;
DisposePtr((Ptr) gExitToShellData);
SetA5(oldA5);
CallExitToShellProc(oldETS);
return;
}
void
TclpExit(
int status) /* Ignored. */
{
TclMacExitHandler();
/*
* If we are using the Metrowerks Standard Library, then we will call its exit so that it
* will get a chance to clean up temp files, and so forth. It always calls the standard
* ExitToShell, so the Tcl handlers will also get called.
*
* If you have another exit, make sure that it does not patch ExitToShell, and does
* call it. If so, it will probably work as well.
*
*/
#ifdef __MSL__
exit(status);
#else
ExitToShell();
#endif
}
