mirror of
https://github.com/ctm/executor.git
synced 2024-06-10 10:29:31 +00:00
43 lines
876 B
C
43 lines
876 B
C
/* Copyright 1986, 1988, 1989, 1990, 1995 by Abacus Research and
|
|
Development, Inc. All rights reserved.
|
|
|
|
shutdown.c; ShutDown Manager routines */
|
|
|
|
#if !defined (OMIT_RCSID_STRINGS)
|
|
char ROMlib_rcsid_shutdown[] =
|
|
"$Id: shutdown.c 63 2004-12-24 18:19:43Z ctm $";
|
|
#endif
|
|
|
|
#include "rsys/common.h"
|
|
|
|
#include "ShutDown.h"
|
|
#include "SegmentLdr.h"
|
|
|
|
#include "rsys/segment.h"
|
|
|
|
P0 (PUBLIC pascal trap, void, ShutDwnPower)
|
|
{
|
|
ROMlib_exit = TRUE;
|
|
ExitToShell ();
|
|
}
|
|
|
|
P0 (PUBLIC pascal trap, void, ShutDwnStart)
|
|
{
|
|
ExitToShell ();
|
|
}
|
|
|
|
P2 (PUBLIC pascal trap, void, ShutDwnInstall,
|
|
ProcPtr, shutdown_proc,
|
|
int16, flags)
|
|
{
|
|
/* #warning "ShutDwnInstall unimplemented" */
|
|
warning_unimplemented (NULL_STRING);
|
|
}
|
|
|
|
P1 (PUBLIC pascal trap, void, ShutDwnRemove,
|
|
ProcPtr, shutdown_proc)
|
|
{
|
|
/* #warning "ShutDwnRemove unimplemented" */
|
|
warning_unimplemented (NULL_STRING);
|
|
}
|