mirror of
https://github.com/ctm/executor.git
synced 2024-05-29 06:41:34 +00:00
376 lines
9.6 KiB
C
376 lines
9.6 KiB
C
/* Copyright 1988 - 1999 by Abacus Research and
|
|
* Development, Inc. All rights reserved.
|
|
*/
|
|
|
|
#if !defined (OMIT_RCSID_STRINGS)
|
|
char ROMlib_rcsid_syserr[] =
|
|
"$Id: syserr.c 63 2004-12-24 18:19:43Z ctm $";
|
|
#endif
|
|
|
|
/* Forward declarations in SysErr.h (DO NOT DELETE THIS LINE) */
|
|
|
|
#include "rsys/common.h"
|
|
#include "QuickDraw.h"
|
|
#include "CQuickDraw.h"
|
|
#include "EventMgr.h"
|
|
#include "ToolboxEvent.h"
|
|
#include "DialogMgr.h"
|
|
#include "OSUtil.h"
|
|
#include "SegmentLdr.h"
|
|
#include "SysErr.h"
|
|
#include "MemoryMgr.h"
|
|
#include "BinaryDecimal.h"
|
|
|
|
#include "rsys/cquick.h"
|
|
#include "rsys/quick.h"
|
|
#include "rsys/next.h"
|
|
#include "rsys/segment.h"
|
|
#include "rsys/flags.h"
|
|
#include "rsys/version.h"
|
|
#include "rsys/vdriver.h"
|
|
#include "rsys/next.h"
|
|
#include "rsys/osevent.h"
|
|
#include "rsys/options.h"
|
|
#include "rsys/syserr.h"
|
|
|
|
PRIVATE myalerttab_t myalerttab = {
|
|
CWC(8),
|
|
|
|
#define WELCOME_CODE 0x28
|
|
CWC(WELCOME_CODE), /* 1. normally "Welcome to M*cintosh", now copyright stuff */
|
|
CWC(10),
|
|
CWC(50),
|
|
CWC(150),
|
|
CWC(31),
|
|
CWC(0),
|
|
CWC(151),
|
|
|
|
CWC(50), /* 2. primary text */
|
|
CWC(56),
|
|
{ CWC(108), CWC(105) },
|
|
"\251 Abacus Research and Development, Inc. 1986-1999",
|
|
|
|
CWC(31), /* 3. ARDI icon */
|
|
CWC(136),
|
|
{ CWC(99), CWC(56), CWC(131), CWC(88) },
|
|
{
|
|
{ 0xff,0xff,0xff,0xff },
|
|
{ 0x88,0x88,0x88,0x89 },
|
|
{ 0x9d,0xdd,0xdd,0xdd },
|
|
{ 0x88,0x88,0x88,0x89 },
|
|
{ 0x9d,0xdd,0xdd,0xdd },
|
|
{ 0x88,0x88,0x88,0x89 },
|
|
{ 0xff,0xff,0xff,0xff },
|
|
{ 0x88,0x88,0x88,0x89 },
|
|
{ 0x88,0x88,0x88,0x89 },
|
|
{ 0x88,0x80,0x80,0x89 },
|
|
{ 0x88,0xbc,0xbc,0x89 },
|
|
{ 0x80,0xa2,0x92,0x81 },
|
|
{ 0x88,0xa2,0x92,0x9d },
|
|
{ 0x94,0xa2,0x92,0x89 },
|
|
{ 0xa2,0xbc,0x92,0x89 },
|
|
{ 0xa2,0xa8,0x92,0x89 },
|
|
{ 0xa2,0xa4,0x92,0x89 },
|
|
{ 0xbe,0xa2,0x92,0x89 },
|
|
{ 0xa2,0xa2,0x92,0x89 },
|
|
{ 0xa2,0xa2,0x92,0x89 },
|
|
{ 0xa2,0xa2,0xbc,0x9d },
|
|
{ 0x80,0x80,0x80,0x81 },
|
|
{ 0x88,0x88,0x88,0x89 },
|
|
{ 0x88,0x88,0x88,0x89 },
|
|
{ 0xff,0xff,0xff,0xff }
|
|
},
|
|
|
|
CWC(150), /* 4. secondary text */
|
|
CWC(50),
|
|
{ CWC(122), CWC(125) },
|
|
"Please click on \"Info\" for more information\0\0",
|
|
|
|
CWC(151), /* 5. the buttons */
|
|
CWC(26),
|
|
CWC(2),
|
|
CWC(153),
|
|
{ CWC(150), CWC(50), CWC(170), CWC(100) }, /* OK rect */
|
|
CWC(0),
|
|
CWC(155),
|
|
{ CWC(150), CWC(130), CWC(170), CWC(190) }, /* Abort rect */
|
|
CWC(156),
|
|
|
|
CWC(153), /* 6. OK button */
|
|
CWC(4),
|
|
"OK\0",
|
|
|
|
CWC(155), /* 7. Info button */
|
|
CWC(6),
|
|
"Info\0",
|
|
|
|
CWC(156), /* 8. Info "procedure" */
|
|
CWC(4),
|
|
0, /* was mydolicense, which we no longer use */
|
|
};
|
|
|
|
char syserr_msg[256];
|
|
|
|
A1(PRIVATE, INTEGER *, findid, INTEGER, id)
|
|
{
|
|
int i;
|
|
INTEGER *ip;
|
|
|
|
for (i = CW(*(INTEGER *) MR(DSAlertTab)),
|
|
ip = (INTEGER *) MR(DSAlertTab) + 1;
|
|
i > 0 && CW(*ip) != id;
|
|
--i, ip = (INTEGER *) ((char *) ip + CW(ip[1]) + 2 * sizeof(INTEGER)))
|
|
;
|
|
return i > 0 ? ip : (INTEGER *) 0;
|
|
}
|
|
|
|
A3(PRIVATE, void, drawtextstring, INTEGER, id, INTEGER, offsetx,
|
|
INTEGER, offsety)
|
|
{
|
|
struct tdef *tp;
|
|
|
|
if (id && (tp = (struct tdef *) findid(id))) {
|
|
MoveTo(CW(tp->loc.h) + offsetx, CW(tp->loc.v) + offsety);
|
|
DrawText_c_string (tp->text);
|
|
}
|
|
}
|
|
|
|
A3 (PRIVATE, void, drawicon, INTEGER, id,
|
|
INTEGER, offsetx, INTEGER, offsety)
|
|
{
|
|
struct idef *ip;
|
|
BitMap bm;
|
|
Rect old_loc;
|
|
|
|
ip = (struct idef *) findid (id);
|
|
if (id && ip)
|
|
{
|
|
bm.baseAddr = RM ((Ptr) ip->ike);
|
|
bm.rowBytes = CWC (4);
|
|
bm.bounds.left = bm.bounds.top = CWC (0);
|
|
bm.bounds.right = bm.bounds.bottom = CWC (32);
|
|
old_loc = ip->loc;
|
|
C_OffsetRect (&ip->loc, offsetx, offsety);
|
|
CopyBits (&bm, PORT_BITS_FOR_COPY (thePort),
|
|
&bm.bounds, &ip->loc, srcCopy, NULL);
|
|
ip->loc = old_loc;
|
|
}
|
|
}
|
|
|
|
A4(PRIVATE, void, dobuttons, INTEGER, id, INTEGER, offsetx,
|
|
INTEGER, offsety, BOOLEAN, demo_button_p)
|
|
{
|
|
struct bdef *bp;
|
|
struct sdef *sp;
|
|
struct pdef *pp;
|
|
int i;
|
|
EventRecord evt;
|
|
int done;
|
|
int tcnt, twid;
|
|
Point p;
|
|
#define BILLBUTTONS /* */
|
|
#if defined (BILLBUTTONS)
|
|
INTEGER h, v;
|
|
#endif /* BILLBUTTONS */
|
|
char *textp;
|
|
|
|
if ((bp = (struct bdef *) findid(id))) {
|
|
for (i = 0; i < Cx(bp->nbut); i++) {
|
|
|
|
/* Offset buttons; this hack is to center the splash screen
|
|
* on non-512x342 root windows...yuck!
|
|
*/
|
|
|
|
C_OffsetRect (&bp->buts[i].butloc, offsetx, offsety);
|
|
if ((sp = (struct sdef *)findid(CW(bp->buts[i].butstrid)))) {
|
|
if (demo_button_p && sp->text[0] == 'O' && sp->text[1] == 'K')
|
|
textp = "Demo";
|
|
else
|
|
textp = sp->text;
|
|
tcnt = strlen(textp);
|
|
twid = TextWidth((Ptr) textp, 0, tcnt);
|
|
MoveTo((CW(bp->buts[i].butloc.left) +
|
|
CW(bp->buts[i].butloc.right) - twid) / 2,
|
|
(CW(bp->buts[i].butloc.top) +
|
|
CW(bp->buts[i].butloc.bottom)) / 2 + 4);
|
|
DrawText((Ptr) textp, 0, tcnt);
|
|
}
|
|
#if defined (BILLBUTTONS)
|
|
h = CW(bp->buts[i].butloc.right) - CW(bp->buts[i].butloc.left);
|
|
v = (CW(bp->buts[i].butloc.bottom) - CW(bp->buts[i].butloc.top))/2;
|
|
if (h > v)
|
|
h = v;
|
|
if (!(ROMlib_options & ROMLIB_RECT_SCREEN_BIT))
|
|
FrameRoundRect(&bp->buts[i].butloc, h, v);
|
|
else
|
|
FrameRect(&bp->buts[i].butloc);
|
|
#else /* BILLBUTTONS */
|
|
if (!(ROMlib_options & ROMLIB_RECT_SCREEN_BIT))
|
|
FrameRoundRect(&bp->buts[i].butloc, 10, 10);
|
|
else
|
|
FrameRect(&bp->buts[i].butloc);
|
|
#endif /* BILLBUTTONS */
|
|
}
|
|
|
|
for (done = 0; !done;) {
|
|
C_GetNextEvent(mDownMask|keyDownMask, &evt);
|
|
if (evt.what == CWC(mouseDown) || evt.what == CWC(keyDown)) {
|
|
p.h = CW(evt.where.h);
|
|
p.v = CW(evt.where.v);
|
|
for (i = 0; !done && i < CW(bp->nbut); i++) {
|
|
if (PtInRect(p, &bp->buts[i].butloc) ||
|
|
((evt.what == CWC(keyDown)) &&
|
|
(((CL(evt.message) & charCodeMask) == '\r') ||
|
|
((CL(evt.message) & charCodeMask) == NUMPAD_ENTER)))
|
|
) {
|
|
if ((pp = (struct pdef *)
|
|
findid(CW(bp->buts[i].butprocid))))
|
|
/* NOTE: we will have to do a better
|
|
job here sometime */
|
|
(*(void (*)(void))MR(pp->proc))();
|
|
done = 1;
|
|
}
|
|
}
|
|
if (!done)
|
|
SysBeep(1);
|
|
}
|
|
}
|
|
if (evt.what == CWC(mouseDown))
|
|
while (!C_GetNextEvent(mUpMask, &evt))
|
|
;
|
|
|
|
/* Move all buttons back. */
|
|
for (i = 0; i < Cx(bp->nbut); i++)
|
|
C_OffsetRect (&bp->buts[i].butloc, -offsetx, -offsety);
|
|
}
|
|
}
|
|
|
|
/*
|
|
* NOTE: The version of SysError below will only handle natively compiled
|
|
* code. When we want to be able to run arbitrary code we'll need
|
|
* to call syn68k appropriately.
|
|
*/
|
|
|
|
P1(PUBLIC pascal, void, SysError, short, errorcode)
|
|
{
|
|
GrafPort alertport;
|
|
Region viscliprgn;
|
|
HIDDEN_RgnPtr rp;
|
|
Rect r;
|
|
struct adef *ap;
|
|
char quickbytes[grafSize];
|
|
INTEGER offsetx, offsety;
|
|
Rect main_gd_rect;
|
|
|
|
#if defined (BINCOMPAT)
|
|
LONGINT tmpa5;
|
|
#endif /* BINCOMPAT */
|
|
|
|
main_gd_rect = PIXMAP_BOUNDS (GD_PMAP (MR (MainDevice)));
|
|
|
|
if (!DSAlertTab) {
|
|
#if defined (CLIFF_CENTERING_ALGORITHM)
|
|
DSAlertTab = CL((Ptr) &myalerttab);
|
|
DSAlertRect.top = CWC(64);
|
|
DSAlertRect.left = CWC(32);
|
|
DSAlertRect.bottom = CWC(190);
|
|
DSAlertRect.right = CWC(480);
|
|
#else
|
|
INTEGER screen_width = CW (main_gd_rect.right);
|
|
INTEGER screen_height = CW (main_gd_rect.bottom);
|
|
|
|
DSAlertTab = RM((Ptr) &myalerttab);
|
|
DSAlertRect.top = CW((screen_height - 126) / 3);
|
|
DSAlertRect.left = CW((screen_width - 448) / 2);
|
|
DSAlertRect.bottom = CW(CW(DSAlertRect.top) + 126);
|
|
DSAlertRect.right = CW(CW(DSAlertRect.left) + 448);
|
|
#endif
|
|
|
|
offsetx = CW (DSAlertRect.left) - 32;
|
|
offsety = CW (DSAlertRect.top) - 64;
|
|
}
|
|
else {
|
|
offsetx = offsety = 0;
|
|
}
|
|
|
|
/* IM-362 */
|
|
/* 1. Save registers and Stack Pointer */
|
|
/* NOT DONE YET... signal handlers sort of do that anyway */
|
|
|
|
/* 2. Store errorcode in DSErrCode */
|
|
DSErrCode = CW(errorcode);
|
|
|
|
/* 3. If no Cx(DSAlertTab), bitch */
|
|
if (!DSAlertTab) {
|
|
write(2, "This machine thinks its a sadmac\n",
|
|
sizeof("This machine thinks its a sadmac\n")-1);
|
|
exit(255);
|
|
}
|
|
|
|
/* 4. Allocate and re-initialize QuickDraw */
|
|
#if defined (BINCOMPAT)
|
|
a5 = (LONGINT) (long) US_TO_SYN68K (&tmpa5);
|
|
CurrentA5 = (Ptr) (long) CL(a5);
|
|
#endif /* BINCOMPAT */
|
|
InitGraf((Ptr) quickbytes + sizeof(quickbytes) - 4);
|
|
ROMlib_initport(&alertport);
|
|
SetPort(&alertport);
|
|
InitCursor();
|
|
rp.p = RM(&viscliprgn);
|
|
alertport.visRgn = alertport.clipRgn = RM(&rp);
|
|
viscliprgn.rgnSize = CWC(10);
|
|
#if 0 && !defined(MSDOS)
|
|
viscliprgn.rgnBBox = DSAlertRect;
|
|
#else
|
|
viscliprgn.rgnBBox = main_gd_rect;
|
|
#endif
|
|
|
|
/* 5, 6. Draw alert box if the errorcode is >= 0 */
|
|
TRAPBEGIN();
|
|
if (errorcode < 0)
|
|
errorcode = -errorcode;
|
|
else {
|
|
r = DSAlertRect;
|
|
FillRect(&r, white);
|
|
#if defined (OLDSTYLEALERT)
|
|
r.right = CW(CW(r.right) - (2));
|
|
r.bottom = CW(CW(r.bottom) - (2));
|
|
FrameRect(&r);
|
|
PenSize(2, 2);
|
|
MoveTo(CW(r.left)+2, CW(r.bottom));
|
|
LineTo(CW(r.right), CW(r.bottom));
|
|
LineTo(CW(r.right), CW(r.top)+2);
|
|
PenSize(1, 1);
|
|
#else /* OLDSTYLEALERT */
|
|
FrameRect(&r);
|
|
InsetRect(&r, 3, 3);
|
|
PenSize(2, 2);
|
|
FrameRect(&r);
|
|
PenSize(1, 1);
|
|
#endif /* OLDSTYLEALERT */
|
|
}
|
|
|
|
/* find appropriate entry */
|
|
|
|
ap = (struct adef *) findid(errorcode);
|
|
if (!ap)
|
|
ap = (struct adef *) ((INTEGER *) MR(DSAlertTab) + 1);
|
|
|
|
/* 7. text strings */
|
|
drawtextstring(CW(ap->primetextid), offsetx, offsety);
|
|
drawtextstring(CW(ap->secondtextid), offsetx, offsety);
|
|
|
|
/* 8. icon */
|
|
drawicon(CW(ap->iconid), offsetx, offsety);
|
|
|
|
/* 9. TODO: figure out what to do with the proc ... */
|
|
|
|
/* 10, 11, 12, 13. check for non-zero button id */
|
|
/* #warning We blow off ResumeProc until we can properly handle it */
|
|
if (ap->buttonid)
|
|
dobuttons(/* CL(ResumeProc) ? Cx(ap->buttonid) + 1 : */ Cx(ap->buttonid),
|
|
offsetx, offsety, false);
|
|
|
|
TRAPEND();
|
|
}
|