Getting somewhere

This commit is contained in:
Elliot Nunn 2018-11-06 07:44:15 +08:00
parent 6bd6118a00
commit a4d2b4a27a
189 changed files with 184521 additions and 217 deletions

View File

@ -0,0 +1,76 @@
## File: Interfaces.Dict
## Date Created: 4/22/90
## Purpose: This file was created so that radical changes in the Interface Files
## would not have to disrupt your current source code.
##
## How to use: Copy the Interfaces.Dict file to the Interfaces folder in your MPW folder.
## You need to run each file in your source through the canon tool with
## this dicitonary file individually. You need a for...loop.
##
## set sources "" # set the variable sources to the path of the sources. (Ex. set sources "Hard Disk:Sources:")
## export sources
## set exit 0
## For i in `Files -f -r "{Sources}"`
## if `exists -f "{i}"`
## canon -s "{MPW}Interfaces:"Interfaces.Dict "{i}" > "{i}".can
## rename -y "{i}".can "{i}"
## end
## end
##
##
hfileInfo hFileInfo # change all occurences of hfileInfo to hFileInfo
# as per the change in CInfoPBRec in Files.h
teStylPaste teStylePaste # as per the change in ToolEqu.a
_TEStylPaste _TEStylePaste
getStylHandle getStyleHandle # as per the change in ToolEqu.a
_GetStylHandle _GetStyleHandle
setStylHandle setStyleHandle # as per the change in ToolEqu.a
_SetStylHandle _SetStyleHandle
getStylScrap getStyleScrap # as per the change in ToolEqu.a
_GetStylScrap _GetStyleScrap
teStylInsert teStyleInsert # as per the change in ToolEqu.a
_TEStylInsert _TEStyleInsert
############
# Sound
############
noteSynth squareWaveSynth
noteCmd freqDurationCmd
baseNote baseFrequency
numSampleFrames sampleFrames
dataPointerFlag dataOffsetFlag
############
# Quickdraw
############
PICT2Header OpenCPicParams
############
# PictUtil
############
METHOD_SYSTEM systemMethod
METHOD_POPULAR popularMethod
METHOD_MEDIAN medianMethod
############
# Icons
############
spoolFolderIconResource printMonitorFolderIconResource
############
# EPPC
############
rtrnReciptMsgID rtrnReceiptMsgID
############
# Traps.a
############
Pixmap32Bit PixMap32Bit
############
useMFTemp UseTempMem

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,18 @@
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 006F 7368 2050 726F" /* ..Monaco.osh Pro */
$"6772 616D 6D65 72D5 7320 576F 726B 7368" /* grammer.s Worksh */
$"6F70 0006 0004 002A 0003 0142 01E3 002A" /* op.....*...B...* */
$"0003 0142 01E3 A42B A620 0000 0000 0000" /* ...B...+. ...... */
$"0000 0000 0000 0100" /* ........ */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0000 0000 0000 0000 0000 0000" /* .............. */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};

View File

@ -0,0 +1,605 @@
/*
File: BalloonTypes.r
Contains: Resource declarations for Balloon Help Resource types
Copyright: © 1989-1992 by Apple Computer, Inc., all rights reserved.
This file is used in these builds: BigBang
Change History (most recent first):
<5+> 6/23/92 DCL Changed #ifndef __BALLOONTYPES.R__ to __BALLOONTYPES_R__
<5> 8/8/91 JL Updated Copyright. Put conditional wrapper around entire file.
<4> 1/30/91 RLC <stb> Changed the use of hmpic to hmpict as that is the 'new'
convention.
<3> 8/31/90 RLC Update #defines again.
<1+> 8/17/90 RLC Add some well known constants to the file.
<1> 7/24/90 RLC Moved from {Toolbox}HelpMgr to {RIncludes}.
<6+> 6/22/90 RLC Add 'hfdr' resource for getting application info balloons in
finder windows.
<5+> 4/5/90 RLC Add 'hovr' type to allow the override of some system help msgs.
<4+> 2/8/90 RLC Update types.
<3> 1/11/90 RLC Fix HMSkipItem case in hrct type.
<1+> 1/4/90 RLC Change to the new resource format
<1.7> 11/30/89 RLC Add some new options to hmnu & hdlg types.
<1.6> 11/16/89 RLC Update 'hrct' resource type declaration by removing hotRect
parameter.
<1.5> 11/15/89 RLC Update to handle the correct help message types (soon to
change).
<1.4> 11/13/89 RLC Updated 'hdlg' resource structure to include tip & altRect
parameters.
<1.3> 11/9/89 RLC Add HMUserItemID define.
<1.2> 10/1/89 RLC Updated HMBalloonRect for HelpMsg types: StyledTE & STR.
<1.1> 9/13/89 RLC Removed 'HMReuse' item from types.
<1.0> 9/12/89 RLC Created Today.
To Do:
*/
#ifndef __BALLOONTYPES_R__
#define __BALLOONTYPES_R__
#define HelpMgrVersion 2 /* version of Help Manager */
#define kHMHelpID -5696 /* resource ID of Help Manager resources */
#define kHMHelpMenuID -16490 /* resource ID of Help Manager Menu resource */
#define kBalloonWDEFID 126 /* resource ID of Balloon WDEF procedure */
/* Option bits for help manager resources */
#define hmDefaultOptions 0 /* default options for help manager resources */
#define hmUseSubID 1 /* treat resID's in resources as subID's of driver base ID (for Desk Accessories) */
#define hmAbsoluteCoords 2 /* ignore window port origin and treat rectangles as absolute coords (local to window) */
#define hmSaveBitsNoWindow 4 /* don't create a window, just blast bits on screen. No update event is generated */
#define hmSaveBitsWindow 8 /* create a window, but restore bits behind window when window goes away & generate update event */
#define hmMatchInTitle 16 /* for hwin resources, match string anywhere in window title string */
/* Generic defines for the switch items used in 'hrct', 'hmnu', & 'hdlg's */
#define HMStringItemID 1 /* pstring is used in help message */
#define HMPictItemID 2 /* 'PICT' resource ID is used in help message */
#define HMStringResItemID 3 /* 'STR#' resource ID and index is used in help message */
#define HMTEResItemID 6 /* Styled Text Edit resources are used in help message */
#define HMSTRResItemID 7 /* 'STR ' resource ID is used in help message */
#define HMSkipItemID 256 /* don't display a balloon */
#define HMCompareItemID 512 /* for hmnu resources, compare menu item to string and use help msg if match */
#define HMNamedResourceID 1024 /* for hmnu resources, use menu item as call to GetNamedResource() to fetch resource */
#define HMTrackCntlID 2048 /* not yet implemented, reserved */
/*----------------------------hmnuHelp Mgr Menu Balloon Template----------------------------*/
type 'hmnu' {
integer; /* Help Version */
longint; /* Options */
integer; /* Balloon ProcID */
integer; /* Balloon variant */
integer = $$CountOf(HMenuArray); /* Count of menu items (below) */
switch { /* Special Message for missing array items */
case HMStringItem:
hmnuMissStringBeg: integer = (hmnuMissStringEnd - hmnuMissStringBeg) / 8;
key int = HMStringItemID;
pstring; /* missing HMenuArray items (Enabled) */
pstring; /* missing HMenuArray items (Disabled) */
pstring; /* missing HMenuArray items (checked) */
pstring; /* missing HMenuArray items (other) */
align word; /* always word align the code for the pstring */
hmnuMissStringEnd:
case HMPictItem:
hmnuMissPictBeg: integer = (hmnuMissPictEnd - hmnuMissPictBeg) / 8;
key int = HMPictItemID;
integer; /* use for missing HMenuArray items */
integer; /* use for missing HMenuArray items */
integer; /* use for missing HMenuArray items */
integer; /* use for missing HMenuArray items */
hmnuMissPictEnd:
case HMStringResItem:
hmnuMissStringResBeg: integer = (hmnuMissStringResEnd - hmnuMissStringResBeg) / 8;
key int = HMStringResItemID;
integer; integer; /* Miss or 0 HMenuArray STR# res ID, index # */
integer; integer; /* Miss or 0 HMenuArray STR# res ID, index # */
integer; integer; /* Miss or 0 HMenuArray STR# res ID, index # */
integer; integer; /* Miss or 0 HMenuArray STR# res ID, index # */
hmnuMissStringResEnd:
case HMTEResItem:
hmnuMissTEResBeg: integer = (hmnuMissTEResEnd - hmnuMissTEResBeg) / 8;
key int = HMTEResItemID;
integer; /* use for missing HMenuArray items */
integer; /* use for missing HMenuArray items */
integer; /* use for missing HMenuArray items */
integer; /* use for missing HMenuArray items */
hmnuMissTEResEnd:
case HMSTRResItem:
hmnuMissSTRResBeg: integer = (hmnuMissSTRResEnd - hmnuMissSTRResBeg) / 8;
key int = HMSTRResItemID;
integer; /* use for missing HMenuArray items */
integer; /* use for missing HMenuArray items */
integer; /* use for missing HMenuArray items */
integer; /* use for missing HMenuArray items */
hmnuMissSTRResEnd:
case HMSkipItem:
hmnuMissSkipBeg: integer = (hmnuMissSkipEnd - hmnuMissSkipBeg) / 8;
key int = HMSkipItemID; /* use when there is no missing msg */
hmnuMissSkipEnd:
};
array HMenuArray {
switch {
case HMStringItem:
hmnuStringBeg: integer = (hmnuStringEnd[$$ArrayIndex(HMenuArray)] - hmnuStringBeg[$$ArrayIndex(HMenuArray)]) / 8;
key int = HMStringItemID;
pstring; /* Enabled menu message string */
pstring; /* Disabled menu message string */
pstring; /* Checked menu message string */
pstring; /* other menu message string */
align word;
hmnuStringEnd:
case HMPictItem:
hmnuPictBeg: integer = (hmnuPictEnd[$$ArrayIndex(HMenuArray)] - hmnuPictBeg[$$ArrayIndex(HMenuArray)]) / 8;
key int = HMPictItemID;
integer; /* Enabled menu message pict ID */
integer; /* Disabled menu message pict ID */
integer; /* Checked menu message pict ID */
integer; /* other menu message pict ID */
hmnuPictEnd:
case HMStringResItem:
hmnuStringResBeg: integer = (hmnuStringResEnd[$$ArrayIndex(HMenuArray)] - hmnuStringResBeg[$$ArrayIndex(HMenuArray)]) / 8;
key int = HMStringResItemID;
integer; integer; /* Enabled STR# res ID, index # */
integer; integer; /* Disabled STR# res ID, index # */
integer; integer; /* Checked menu message STR# res ID, index # */
integer; integer; /* other menu message STR# res ID, index # */
hmnuStringResEnd:
case HMTEResItem:
hmnuTEResBeg: integer = (hmnuTEResEnd[$$ArrayIndex(HMenuArray)] - hmnuTEResBeg[$$ArrayIndex(HMenuArray)]) / 8;
key int = HMTEResItemID;
integer; /* Enabled menu message TERes ID */
integer; /* Disabled menu message TERes ID */
integer; /* Checked message TERes ID */
integer; /* other menu message TERes ID */
hmnuTEResEnd:
case HMSTRResItem:
hmnuSTRResBeg: integer = (hmnuSTRResEnd[$$ArrayIndex(HMenuArray)] - hmnuSTRResBeg[$$ArrayIndex(HMenuArray)]) / 8;
key int = HMSTRResItemID;
integer; /* Enabled menu message STR ID */
integer; /* Disabled menu message STR ID */
integer; /* Checked message STR ID */
integer; /* other menu message STR ID */
hmnuSTRResEnd:
case HMSkipItem:
hmnuSkipBeg: integer = (hmnuSkipEnd[$$ArrayIndex(HMenuArray)] - hmnuSkipBeg[$$ArrayIndex(HMenuArray)]) / 8;
key int = HMSkipItemID;
hmnuSkipEnd:
case HMCompareItem:
hmnuCompareBeg: integer = (hmnuCompareEnd[$$ArrayIndex(HMenuArray)] - hmnuCompareBeg[$$ArrayIndex(HMenuArray)]) / 8;
key int = HMCompareItemID;
pstring; /* if itemstr matches, use this item, else goto next item */
align word;
switch { /* case the message type */
case HMStringItem:
key int = HMStringItemID;
pstring; /* Enabled menu message string */
pstring; /* Disabled menu message string */
pstring; /* Checked menu message string */
pstring; /* other menu message string */
align word;
case HMPictItem:
key int = HMPictItemID;
integer; /* Enabled menu message pict ID */
integer; /* Disabled menu message pict ID */
integer; /* Checked menu message pict */
integer; /* other menu message pict */
case HMStringResItem:
key int = HMStringResItemID;
integer; integer; /* Enabled STR# res ID, index # */
integer; integer; /* Disabled STR# res ID, index # */
integer; integer; /* Checked menu message STR# res ID, index # */
integer; integer; /* other menu message STR# res ID, index # */
case HMTEResItem:
key int = HMTEResItemID;
integer; /* Enabled menu message TERes ID */
integer; /* Disabled menu message TERes ID */
integer; /* Checked menu message TERes ID */
integer; /* other menu message TERes ID */
case HMSTRResItem:
key int = HMSTRResItemID;
integer; /* Enabled menu message STR ID */
integer; /* Disabled menu message STR ID */
integer; /* Checked menu message STR ID */
integer; /* other menu message STR ID */
case HMSkipItem:
key int = HMSkipItemID;
};
hmnuCompareEnd:
case HMNamedResourceItem:
hmnuNamedResBeg: integer = (hmnuNamedResEnd[$$ArrayIndex(HMenuArray)] - hmnuNamedResBeg[$$ArrayIndex(HMenuArray)]) / 8;
key int = HMNamedResourceID;
literal longint; /* res type of resource to fetch, using item name */
hmnuNamedResEnd:
};
};
};
/*----------------------------hdlgHelp Mgr Dialog Balloon Template--------------------------*/
type 'hdlg' {
integer; /* Help Version */
integer; /* item # (0-based) of first DITL item */
longint; /* Options */
integer; /* Balloon ProcID */
integer; /* Balloon variant */
integer = $$CountOf(HDialogArray); /* Count of HDialogArray items */
switch { /* Special Messages for missing array items */
case HMStringItem:
hdlgMissStringBeg: integer = (hdlgMissStringEnd - hdlgMissStringBeg) / 8;
key int = HMStringItemID;
point; /* tip */
rect; /* hotRect */
pstring; /* use for missing HDialogArray items */
pstring; /* use for missing HDialogArray items */
pstring; /* use for missing HDialogArray items */
pstring; /* use for missing HDialogArray items */
align word; /* always word align the code for the pstring */
hdlgMissStringEnd:
case HMPictItem:
hdlgMissPictBeg: integer = (hdlgMissPictEnd - hdlgMissPictBeg) / 8;
key int = HMPictItemID;
point; /* tip */
rect; /* hotRect */
integer; /* use for missing HDialogArray items */
integer; /* use for missing HDialogArray items */
integer; /* use for missing HDialogArray items */
integer; /* use for missing HDialogArray items */
hdlgMissPictEnd:
case HMStringResItem:
hdlgMissStringResBeg: integer = (hdlgMissStringResEnd - hdlgMissStringResBeg) / 8;
key int = HMStringResItemID;
point; /* tip */
rect; /* hotRect */
integer; integer; /* Miss or 0 HDialogArray STR# res ID, index # */
integer; integer; /* Miss or 0 HDialogArray STR# res ID, index # */
integer; integer; /* Miss or 0 HDialogArray STR# res ID, index # */
integer; integer; /* Miss or 0 HDialogArray STR# res ID, index # */
hdlgMissStringResEnd:
case HMTEResItem:
hdlgMissTEResBeg: integer = (hdlgMissTEResEnd - hdlgMissTEResBeg) / 8;
key int = HMTEResItemID;
point; /* tip */
rect; /* hotRect */
integer; /* use for missing HDialogArray items */
integer; /* use for missing HDialogArray items */
integer; /* use for missing HDialogArray items */
integer; /* use for missing HDialogArray items */
hdlgMissTEResEnd:
case HMSTRResItem:
hdlgMissSTRResBeg: integer = (hdlgMissSTRResEnd - hdlgMissSTRResBeg) / 8;
key int = HMSTRResItemID;
point; /* tip */
rect; /* hotRect */
integer; /* use for missing HDialogArray items */
integer; /* use for missing HDialogArray items */
integer; /* use for missing HDialogArray items */
integer; /* use for missing HDialogArray items */
hdlgMissSTRResEnd:
case HMSkipItem:
hdlgMissSkipBeg: integer = (hdlgMissSkipEnd - hdlgMissSkipBeg) / 8;
key int = HMSkipItemID; /* use when there is no missing msg */
hdlgMissSkipEnd:
};
/* this is an array of records corresponding to dialog items in a dialog */
array HDialogArray {
switch {
case HMStringItem:
hdlgStringBeg: integer = (hdlgStringEnd[$$ArrayIndex(HDialogArray)] - hdlgStringBeg[$$ArrayIndex(HDialogArray)]) / 8;
key int = HMStringItemID; /* helpType */
point; /* tip */
rect; /* hotRect */
pstring; /* Enabled dialog item message string */
pstring; /* Disabled dialog item message string */
pstring; /* Checked dialog item message string */
pstring; /* other dialog item message string */
align word; /* always word align the code */
hdlgStringEnd:
case HMPictItem:
hdlgPictBeg: integer = (hdlgPictEnd[$$ArrayIndex(HDialogArray)] - hdlgPictBeg[$$ArrayIndex(HDialogArray)]) / 8;
key int = HMPictItemID; /* helpType */
point; /* tip */
rect; /* hotRect */
integer; /* Enabled dialog item message pict ID */
integer; /* Disabled dialog item message pict ID */
integer; /* Checked dialog item message pict ID */
integer; /* other dialog item message pict ID */
hdlgPictEnd:
case HMStringResItem:
hdlgStringResBeg: integer = (hdlgStringResEnd[$$ArrayIndex(HDialogArray)] - hdlgStringResBeg[$$ArrayIndex(HDialogArray)]) / 8;
key int = HMStringResItemID; /* helpType */
point; /* tip */
rect; /* hotRect */
integer; integer; /* Enabled STR# res ID, index # */
integer; integer; /* Disabled STR# res ID, index # */
integer; integer; /* Checked STR# res ID, index # */
integer; integer; /* other STR# res ID, index # */
hdlgStringResEnd:
case HMTEResItem:
hdlgTEResBeg: integer = (hdlgTEResEnd[$$ArrayIndex(HDialogArray)] - hdlgTEResBeg[$$ArrayIndex(HDialogArray)]) / 8;
key int = HMTEResItemID; /* helpType */
point; /* tip */
rect; /* hotRect */
integer; /* Enabled dialog item message TERes ID */
integer; /* Disabled item message TERes ID */
integer; /* Checked item message TERes ID */
integer; /* other item message TERes ID */
hdlgTEResEnd:
case HMSTRResItem:
hdlgSTRResBeg: integer = (hdlgSTRResEnd[$$ArrayIndex(HDialogArray)] - hdlgSTRResBeg[$$ArrayIndex(HDialogArray)]) / 8;
key int = HMSTRResItemID; /* helpType */
point; /* tip */
rect; /* hotRect */
integer; /* Enabled dialog item message STR ID */
integer; /* Disabled dialog item message STR ID */
integer; /* Checked dialog item message STR ID */
integer; /* other dialog item message STR ID */
hdlgSTRResEnd:
case HMSkipItem:
hdlgSkipBeg: integer = (hdlgSkipEnd[$$ArrayIndex(HDialogArray)] - hdlgSkipBeg[$$ArrayIndex(HDialogArray)]) / 8;
key int = HMSkipItemID;
hdlgSkipEnd:
};
};
};
/*----------------------------hwinHelp Mgr Window Balloon Template--------------------------*/
type 'hwin' {
integer; /* Help Version */
longint; /* Options */
integer = $$CountOf(HWinArray); /* Count */
array HWinArray {
integer; /* resource ID for help template */
literal longint; /* res type of template (hdlg or hrct) */
integer; /* len of comparison string */
pstring; /* comparison string for window title */
align word;
};
};
/*----------------------------hrctHelp Mgr Rectangle List Template-------------------------*/
type 'hrct' {
integer; /* Help Version */
longint; /* Options */
integer; /* Balloon ProcID */
integer; /* Balloon Variant */
integer = $$CountOf(HRectArray); /* Count of hrct Msgs */
array HRectArray {
switch {
case HMStringItem:
hrctStringBeg: integer = (hrctStringEnd[$$ArrayIndex(HRectArray)] - hrctStringBeg[$$ArrayIndex(HRectArray)]) / 8;
key int = HMStringItemID; /* helpType */
point; /* tip */
rect; /* hotRect */
pstring; /* STR255 */
align word; /* keep aligned */
hrctStringEnd:
case HMPictItem:
hrctPictBeg: integer = (hrctPictEnd[$$ArrayIndex(HRectArray)] - hrctPictBeg[$$ArrayIndex(HRectArray)]) / 8;
key int = HMPictItemID; /* helpType */
point; /* tip */
rect; /* hotRect */
integer; /* Picture Res ID */
hrctPictEnd:
case HMStringResItem:
hrctStringResBeg: integer = (hrctStringResEnd[$$ArrayIndex(HRectArray)] - hrctStringResBeg[$$ArrayIndex(HRectArray)]) / 8;
key int = HMStringResItemID;/* helpType */
point; /* tip */
rect; /* hotRect */
integer; integer; /* STR# ID, index # */
hrctStringResEnd:
case HMTEResItem:
hrctTEResBeg: integer = (hrctTEResEnd[$$ArrayIndex(HRectArray)] - hrctTEResBeg[$$ArrayIndex(HRectArray)]) / 8;
key int = HMTEResItemID; /* helpType */
point; /* tip */
rect; /* hotRect */
integer; /* TextEdit res ID */
hrctTEResEnd:
case HMSTRResItem:
hrctSTRResBeg: integer = (hrctSTRResEnd[$$ArrayIndex(HRectArray)] - hrctSTRResBeg[$$ArrayIndex(HRectArray)]) / 8;
key int = HMSTRResItemID; /* helpType */
point; /* tip */
rect; /* hotRect */
integer; /* STR res ID */
hrctSTRResEnd:
case HMSkipItem:
hrctSkipBeg: integer = (hrctSkipEnd[$$ArrayIndex(HRectArray)] - hrctSkipBeg[$$ArrayIndex(HRectArray)]) / 8;
key int = HMSkipItemID; /* skip item (leave a hole) */
point; /* tip options (keep same structure as other items) */
rect; /* skip this rect */
hrctSkipEnd:
case HMTrackControlStringItem:
hrctTCStringBeg: integer = (hrctTCStringEnd[$$ArrayIndex(HRectArray)] - hrctTCStringBeg[$$ArrayIndex(HRectArray)]) / 8;
key int = HMStringItemID+HMTrackCntlID;
point; /* tip */
rect; /* hotRect */
pstring; /* Enabled control message string */
pstring; /* Disabled control message string */
pstring; /* Checked control message string */
pstring; /* other control message string */
align word; /* keep aligned */
hrctTCStringEnd:
case HMTrackControlPictItem:
hrctTCPictBeg: integer = (hrctTCPictEnd[$$ArrayIndex(HRectArray)] - hrctTCPictBeg[$$ArrayIndex(HRectArray)]) / 8;
key int = HMPictItemID+HMTrackCntlID;
point; /* tip */
rect; /* hotRect */
integer; /* Enabled control message pict ID */
integer; /* Disabled control message pict ID */
integer; /* Checked control message pict ID */
integer; /* other control message pict ID */
hrctTCPictEnd:
case HMTrackControlStringResItem:
hrctTCStringResBeg: integer = (hrctTCStringResEnd[$$ArrayIndex(HRectArray)] - hrctTCStringResBeg[$$ArrayIndex(HRectArray)]) / 8;
key int = HMStringResItemID+HMTrackCntlID;
point; /* tip */
rect; /* hotRect */
integer; integer; /* Enabled STR# res ID, index # */
integer; integer; /* Disabled STR# res ID, index # */
integer; integer; /* Checked STR# res ID, index # */
integer; integer; /* other STR# res ID, index # */
hrctTCStringResEnd:
case HMTrackControlTEResItem:
hrctTCTEResBeg: integer = (hrctTCTEResEnd[$$ArrayIndex(HRectArray)] - hrctTCTEResBeg[$$ArrayIndex(HRectArray)]) / 8;
key int = HMTEResItemID+HMTrackCntlID;
point; /* tip */
rect; /* hotRect */
integer; /* Enabled TextEdit hdl spec ID */
integer; /* Disabled TextEdit hdl spec ID */
integer; /* Checked TextEdit hdl spec ID */
integer; /* other TextEdit hdl spec ID */
hrctTCTEResEnd:
case HMTrackControlSTRResItem:
hrctTCSTRResBeg: integer = (hrctTCSTRResEnd[$$ArrayIndex(HRectArray)] - hrctTCSTRResBeg[$$ArrayIndex(HRectArray)]) / 8;
key int = HMSTRResItemID+HMTrackCntlID;
point; /* tip */
rect; /* hotRect */
integer; /* Enabled control message STR ID */
integer; /* Disabled control message STR ID */
integer; /* Checked control message STR ID */
integer; /* other control message STR ID */
hrctTCSTRResEnd:
};
};
};
/*----------------------------hovrHelp Mgr Override Resource Template-------------------------*/
type 'hovr' {
integer; /* Help Version */
longint; /* Options */
integer; /* Balloon ProcID */
integer; /* Balloon variant */
integer = $$CountOf(HOverrideArray); /* Count of array items (below) */
switch { /* Special Message for missing array items */
case HMStringItem:
hovrMissStringBeg: integer = (hovrMissStringEnd - hovrMissStringBeg) / 8;
key int = HMStringItemID;
pstring; /* missing HOverrideArray item */
align word; /* always word align the code for the pstring */
hovrMissStringEnd:
case HMPictItem:
hovrMissPictBeg: integer = (hovrMissPictEnd - hovrMissPictBeg) / 8;
key int = HMPictItemID;
integer; /* missing HOverrideArray item */
hovrMissPictEnd:
case HMStringResItem:
hovrMissStringResBeg: integer = (hovrMissStringResEnd - hovrMissStringResBeg) / 8;
key int = HMStringResItemID;
integer; integer; /* Miss or 0 HOverrideArray STR# res ID, index # */
hovrMissStringResEnd:
case HMTEResItem:
hovrMissTEResBeg: integer = (hovrMissTEResEnd - hovrMissTEResBeg) / 8;
key int = HMTEResItemID;
integer; /* use for missing HOverrideArray items */
hovrMissTEResEnd:
case HMSTRResItem:
hovrMissSTRResBeg: integer = (hovrMissSTRResEnd - hovrMissSTRResBeg) / 8;
key int = HMSTRResItemID;
integer; /* use for missing HOverrideArray items */
hovrMissSTRResEnd:
case HMSkipItem:
hovrMissSkipBeg: integer = (hovrMissSkipEnd - hovrMissSkipBeg) / 8;
key int = HMSkipItemID; /* use when there is no missing msg */
hovrMissSkipEnd:
};
array HOverrideArray {
switch {
case HMStringItem:
hovrStringBeg: integer = (hovrStringEnd[$$ArrayIndex(HOverrideArray)] - hovrStringBeg[$$ArrayIndex(HOverrideArray)]) / 8;
key int = HMStringItemID;
pstring; /* message string */
align word;
hovrStringEnd:
case HMPictItem:
hovrPictBeg: integer = (hovrPictEnd[$$ArrayIndex(HOverrideArray)] - hovrPictBeg[$$ArrayIndex(HOverrideArray)]) / 8;
key int = HMPictItemID;
integer; /* message pict ID */
hovrPictEnd:
case HMStringResItem:
hovrStringResBeg: integer = (hovrStringResEnd[$$ArrayIndex(HOverrideArray)] - hovrStringResBeg[$$ArrayIndex(HOverrideArray)]) / 8;
key int = HMStringResItemID;
integer; integer; /* STR# res ID, index # */
hovrStringResEnd:
case HMTEResItem:
hovrTEResBeg: integer = (hovrTEResEnd[$$ArrayIndex(HOverrideArray)] - hovrTEResBeg[$$ArrayIndex(HOverrideArray)]) / 8;
key int = HMTEResItemID;
integer; /* message TERes ID */
hovrTEResEnd:
case HMSTRResItem:
hovrSTRResBeg: integer = (hovrSTRResEnd[$$ArrayIndex(HOverrideArray)] - hovrSTRResBeg[$$ArrayIndex(HOverrideArray)]) / 8;
key int = HMSTRResItemID;
integer; /* message STR ID */
hovrSTRResEnd:
case HMSkipItem:
hovrSkipBeg: integer = (hovrSkipEnd[$$ArrayIndex(HOverrideArray)] - hovrSkipBeg[$$ArrayIndex(HOverrideArray)]) / 8;
key int = HMSkipItemID;
hovrSkipEnd:
};
};
};
/*----------------------------hfdrHelp Mgr Finder Application Balloon Template-------------------------*/
type 'hfdr' {
integer; /* Help Version */
longint; /* Options */
integer; /* Balloon ProcID */
integer; /* Balloon Variant */
integer = $$CountOf(HFdrArray); /* Count of hfdr Msgs */
array HFdrArray {
switch {
case HMStringItem:
hfdrStringBeg: integer = (hfdrStringEnd[$$ArrayIndex(HFdrArray)] - hfdrStringBeg[$$ArrayIndex(HFdrArray)]) / 8;
key int = HMStringItemID; /* helpType */
pstring; /* STR255 */
align word; /* keep aligned */
hfdrStringEnd:
case HMPictItem:
hfdrPictBeg: integer = (hfdrPictEnd[$$ArrayIndex(HFdrArray)] - hfdrPictBeg[$$ArrayIndex(HFdrArray)]) / 8;
key int = HMPictItemID; /* helpType */
integer; /* Picture Res ID */
hfdrPictEnd:
case HMStringResItem:
hfdrStringResBeg: integer = (hfdrStringResEnd[$$ArrayIndex(HFdrArray)] - hfdrStringResBeg[$$ArrayIndex(HFdrArray)]) / 8;
key int = HMStringResItemID;/* helpType */
integer; integer; /* STR# ID, index # */
hfdrStringResEnd:
case HMTEResItem:
hfdrTEResBeg: integer = (hfdrTEResEnd[$$ArrayIndex(HFdrArray)] - hfdrTEResBeg[$$ArrayIndex(HFdrArray)]) / 8;
key int = HMTEResItemID; /* helpType */
integer; /* TextEdit res ID */
hfdrTEResEnd:
case HMSTRResItem:
hfdrSTRResBeg: integer = (hfdrSTRResEnd[$$ArrayIndex(HFdrArray)] - hfdrSTRResBeg[$$ArrayIndex(HFdrArray)]) / 8;
key int = HMSTRResItemID; /* helpType */
integer; /* STR res ID */
hfdrSTRResEnd:
case HMSkipItem:
hfdrSkipBeg: integer = (hfdrSkipEnd[$$ArrayIndex(HFdrArray)] - hfdrSkipBeg[$$ArrayIndex(HFdrArray)]) / 8;
key int = HMSkipItemID; /* skip item (leave a hole) */
hfdrSkipEnd:
};
};
};
#endif __BALLOONTYPES_R__

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,25 @@
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 0072 0000 0000 0000" /* ..Monaco.r...... */
$"0000 0000 0000 0000 0000 0000 0000 0000" /* ................ */
$"0000 0006 0004 002A 0003 0142 01E3 002A" /* .......*...B...* */
$"0003 0142 01E3 A66D 0F8C 0000 0000 0000" /* ...B...m........ */
$"0000 0000 0000 0100" /* ........ */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0000 0000 0000 0000 0000 0000" /* .............. */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};
data 'vers' (1, purgeable) {
$"0322 8000 0000 0533 2E32 2E32 2733 2E32" /* .".....3.2.2'3.2 */
$"2E32 2C20 A920 4170 706C 6520 436F 6D70" /* .2, . Apple Comp */
$"7574 6572 2C20 496E 632E 2031 3938 352D" /* uter, Inc. 1985- */
$"3139 3932" /* 1992 */
};

View File

@ -0,0 +1,275 @@
/************************************************************
CTBTypes.r
Resource types for the Communications Toolbox
Written by: Byron Han
Copyright Apple Computer, Inc. 1988-1992
All rights reserved
Change History (most recent first):
<11+> 6/23/92 DCL Changed #ifndef __CTBTYPES.R__ to __CTBTYPES_R__
<11> 8/28/91 CH Updated interface headers for consistency.
<10> 8/20/91 BH added XTI definition for caps
<9> 7/3/91 BH added faps and taps resources
<8> 6/26/91 BH fixed typo. sorry
<7> 6/26/91 BH oops - i messed up the cbnd definition. now fixed. sorry
<6> 6/26/91 BH move caps here and include new extensions to caps
<5> 1/10/91 kaz <jng> Moving 'caps' resource definition to Internal.
<4> 7/2/90 kaz Fixed 'flst' definition to even out the structure for odd-length
font names.
<3> 5/22/90 kaz Updated 'flst' to include a textMode
<2> 3/16/90 BBH add flst resource type
<1> 3/14/90 BBH first checked in to BBS
To Do:
************************************************************/
#ifndef __CTBTYPES_R__
#define __CTBTYPES_R__
/*----------------------------cbndTool resource bundle list ------------------*/
/*----------------------------fbndTool resource bundle list ------------------*/
/*----------------------------tbndTool resource bundle list ------------------*/
type 'cbnd' {
integer = $$CountOf(TypeArray) - 1;
array TypeArray {
literal longint; /* Type */
integer = $$CountOf(IDArray) - 1;
wide array IDArray {
integer; /* Local ID */
integer; /* Actual ID */
};
};
};
type 'fbnd' as 'cbnd';
type 'tbnd' as 'cbnd';
/*----------------------------flstFont Family List----------------------------*/
type 'flst' {
integer = $$CountOf(Fonts); /* # of fonts */
array Fonts {
pstring; /* Font NAME */
align word;
unsigned hex integer plain; /* Font Style */
integer; /* Font Size */
integer; /* Font Mode */
};
};
/*----------------------------capsConnection tool capabilities list-----------*/
/* Define flags for "Channels" field of 'caps' resource */
#define cmData (1 << 0)
#define cmCntl (1 << 1)
#define cmAttn (1 << 2)
#define cmDataNoTimeout (1 << 4)
#define cmCntlNoTimeout (1 << 5)
#define cmAttnNoTimeout (1 << 6)
#define cmDataClean (1 << 8)
#define cmCntlClean (1 << 9)
#define cmAttnClean (1 << 10)
// for end of message field of caps resource
#define cmFlagsEOM (1 << 0);
/* Connection tool capabilities resource */
type 'caps' {
integer = $$CountOf (PairsArray);
array PairsArray {
switch {
case Abort:
key literal longint = 'ABRT';
literal longint
supported = 1,
notSupported = 0;
case AppleTalkBased:
key literal longint = 'ATLK';
longint appletalkBased = 1,
notAppletalkBased = 0;
case Break:
key literal longint = 'BRK ';
literal longint
synchronousOnly = 'SYNC',
asynchronousOnly = 'ASYN',
both = 'BOTH',
notSupported = 0;
case Channels:
key literal longint = 'CHAN';
hex longint;
case Close:
key literal longint = 'CLOS';
literal longint
synchronousOnly = 'SYNC',
asynchronousOnly = 'ASYN',
both = 'BOTH',
notSupported = 0;
case EndOfMessage:
key literal longint = 'EOM ';
hex longint;
case Kill:
key literal longint = 'KILL';
literal longint
supported = 1,
notSupported = 0;
case Listen:
key literal longint = 'LSTN';
literal longint
synchronousOnly = 'SYNC',
asynchronousOnly = 'ASYN',
both = 'BOTH',
notSupported = 0;
case LowLevelIO:
key literal longint = 'LLIO';
literal longint
supported = 1,
notSupported = 0;
case MinimumMemory:
key literal longint = 'MEMM';
hex longint;
case Open:
key literal longint = 'OPEN';
literal longint
synchronousOnly = 'SYNC',
asynchronousOnly = 'ASYN',
both = 'BOTH',
notSupported = 0;
case Order:
key literal longint = 'ORDR';
longint guaranteed = 1,
notGuaranteed = 0;
case Protocol:
key literal longint = 'PROT';
literal longint
ISDN = 'ISDN',
TCP = 'TCP ',
ADSP = 'ADSP',
NSP = 'NSP ',
LAT = 'LAT ',
NSPg = 'NSPg',
LATg = 'LATg',
Serial = 'SERD',
Modem = 'MODM',
MacPAD = 'PAD ';
case Read:
key literal longint = 'READ';
literal longint
synchronousOnly = 'SYNC',
asynchronousOnly = 'ASYN',
both = 'BOTH',
notSupported = 0;
case RecommendedMemory:
key literal longint = 'MEMR';
hex longint;
case Reliability:
key literal longint = 'RELY';
longint guaranteed = 1,
notGuaranteed = 0;
case Service:
key literal longint = 'SERV';
literal longint
Datagram = 'DGRM',
Stream = 'STRM';
case Timeout:
key literal longint = 'TOUT';
literal longint
supported = 1,
notSupported = 0;
case Write:
key literal longint = 'WRIT';
literal longint
synchronousOnly = 'SYNC',
asynchronousOnly = 'ASYN',
both = 'BOTH',
notSupported = 0;
case XTI: /* reserved for Apple for now*/
key literal longint = 'XTI ';
literal longint
notSupported = 0;
};
};
};
/*----------------------------fapsFile Transfer tool capabilities list-----------*/
type 'faps' {
integer = $$CountOf (PairsArray);
array PairsArray {
switch {
case BatchTransfers: /* i.e. support for FTSend/FTReceive */
key literal longint = 'BXFR';
literal longint
supported = 1,
notSupported = 0;
case FileTypesSupported: /* types of files that can be transferred */
key literal longint = 'TYPE';
literal longint
textOnly = 'TEXT',
allTypes = '????';
case TransferModes: /* send/receive or both */
key literal longint = 'MODE';
literal longint
sendOnly = 'SEND',
receiveOnly = 'RECV',
sendAndReceive = 'BOTH',
notSupported = 0;
};
};
};
/*----------------------------tapsTerminal tool capabilities list-----------*/
type 'taps' {
integer = $$CountOf (PairsArray);
array PairsArray {
switch {
case TerminalSearching: /* i.e. support for TMAddSearch */
key literal longint = 'SRCH';
literal longint
supported = 1,
notSupported = 0;
case TerminalType: /* types of files that can be transferred */
key literal longint = 'TYPE';
literal longint
graphicsTerminal = 'GRFX',
textTerminal = 'TEXT',
both = 'BOTH';
};
};
};
#endif __CTBTYPES_R__

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,31 @@
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 0072 0000 0000 00AC" /* ..Monaco.r...... */
$"2024 2443 6F75 6E74 4F66 2849 4441 7272" /* $$CountOf(IDArr */
$"6179 0006 0004 002A 0003 0142 01E3 002A" /* ay.....*...B...* */
$"0003 0142 01E3 A66D 0F8C 0000 0000 0000" /* ...B...m........ */
$"0000 0000 0000 0100" /* ........ */
};
data 'MPSR' (1007) {
$"0003 0000 0A3C 0000 0A40 0563 6170 7300" /* .....<...@.caps. */
$"0000 1621 0000 1625 0566 6170 7300 0000" /* ...!...%.faps... */
$"191C 0000 1920 0574 6170 7300" /* ..... .taps. */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0000 0000 0000 0000 0000 0000" /* .............. */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};
data 'vers' (1, purgeable) {
$"0321 8000 0000 0533 2E32 2E31 2733 2E32" /* .!.....3.2.1'3.2 */
$"2E31 2C20 A920 4170 706C 6520 436F 6D70" /* .1, . Apple Comp */
$"7574 6572 2C20 496E 632E 2031 3938 352D" /* uter, Inc. 1985- */
$"3139 3932" /* 1992 */
};

View File

@ -0,0 +1,389 @@
/*
File: Cmdo.r
CMDO.R - Resource description file for building Commando resources.
Copyright: © 1992 by Apple Computer, Inc., all rights reserved.
Change History (most recent first):
<1+> 6/23/92 DCL Changed #ifndef __CMDO.R__ to __CMDO_R__
*/
#ifndef __CMDO_R__
#define __CMDO_R__
#define FilesID 0
#define MultiFilesID 1
#define CheckOptionID 2
#define RadioButtonsID 3
#define RegularEntryID 4
#define MultiRegularEntryID 5
#define BoxID 6
#define TextBoxID 7
#define PopUpID 8
#define NestedDialogID 9
#define TextTitleID 10
#define RedirectionID 11
#define EditPopUpID 12
#define TriStateButtonsID 13
#define ListID 14
#define PictOrIconID 15
#define DummyID 16
#define DoItButtonID 17
#define VersionDialogID 18
#define CMDOVersion 8
/* The following are used to set styles, simply add for desired style.
*/
#define bold 1
#define italic 2
#define underline 4
#define outline 8
#define shadow 16
#define condense 32
#define extend 64
type 'cmdo' {
integer = CMDOVersion; /* Version number */
integer = $$CountOf(dialogs); /* # of dialogs, at least 1 */
array dialogs {
integer; /* height of the dialog */
cstring; /* text displayed in help window */
align word;
integer = $$CountOf(itemArray); /* # of items */
/* The order in which Commando writes out the options is the same order in which the
items in this array are entered in your resource declaration. This is important
for those commands which have position dependent parameters. */
wide array itemArray {
switch {
case NotDependent:
key int = 0;
case Or:
key byte = 1;
byte = $$CountOf(OrArray);
wide array OrArray {
int; /* item number dependent upon */
};
case And:
key byte = 2;
byte = $$CountOf(AndArray);
wide array AndArray {
int; /* item number dependent upon */
};
};
switch {
case Files:
key byte = FilesID;
byte InputFile, /* These types require the */
InputFileOrDir, /* 'Additional' case below. */
InputOrOutputFile,
InputOrOutputOrDir,
OutputFile, /* These types require the */
OutputFileOrDir, /* 'NoMore' case below. */
DirOnly;
switch {
case OptionalFile:
/* Using this case makes a popup with two or three items.
This first item is used to select a default file or to
select no file. The second (and third) item(s) are used
to select input or output files. */
key int = 0;
rect; /* bounds of title */
rect; /* bounds of display box */
cstring; /* title */
cstring; /* default file */
cstring; /* option to return before file */
cstring; /* If this item is dependent upon
another Files item, an extension
can be specified here to be added
to the dependents file. */
cstring; /* help text for popup */
byte dim, dontDim; /* Normally, dependent items are
dimmed if the parent is disabled,
if this field is "dontDim", then
this item won't be dimmed */
/* These next three strings are the strings displayed in the popup. Most
of the file types have only two strings but InputOrOutputFile and
InputOrOutputOrDir require three strings. If a string is set to "",
Commando will use a built-in default. */
cstring; /* popup item #1 */
cstring; /* popup item #2 */
cstring; /* popup item #3 */
case RequiredFile:
/* Using this case makes a button that goes directly to standard
file. Use this case when a file is required and the user doesn't
have the choice of a default file or no file. */
key int = 1;
rect; /* bounds of button */
cstring; /* title of button */
cstring; /* option to return before file */
cstring; /* help text for button */
};
/* Some file types take additional information. See the comment next to the
file types to find out which case to choose here. */
switch {
case Additional:
key byte = 0;
cstring; /* For InputOrOutputFile, an option
can be specified when a new
(or output) file is chosen. */
cstring FilterTypes = ":"; /* preferred file extension (i.e. ".c")
If null, no radio buttons will be
displayed. If FilterTypes is used,
the radio buttons will toggle
between showing files only with
the types below and all files */
cstring; /* title of only files button */
cstring; /* title of all files button */
byte = $$CountOf(TypesArray); /* up to 4 types may be specified */
align word;
array TypesArray {
literal longint text = 'TEXT', /* desired input file type, specify */
obj = 'OBJ ', /* no type for all types */
appl = 'APPL',
da = 'DFIL',
tool = 'MPST';
};
case NoMore:
key byte = 1;
};
case MultiFiles:
key byte = MultiFilesID;
cstring; /* button title */
cstring; /* help text for button */
align word;
rect; /* bounds of button */
cstring; /* message like " Source files to compile: " */
cstring; /* option returned before each
filename. Can be null */
switch {
case MultiInputFiles:
key byte = 0;
byte = $$CountOf(MultiTypesArray); /* up to 4 types may be specified */
align word;
array MultiTypesArray {
literal longint text = 'TEXT', /* desired input file type, specify no type */
obj = 'OBJ ', /* for all types */
appl = 'APPL',
da = 'DFIL',
tool = 'MPST';
};
cstring FilterTypes = ":"; /* preferred file extension (i.e. ".c")
If null, no radio buttons will be
displayed. If FilterTypes is used,
the radio buttons will toggle
between showing files only with
the types below and all files */
cstring; /* title of only files button */
cstring; /* title of all files button */
case MultiDirs:
key byte = 1;
case MultiInputFilesAndDirs:
key byte = 2;
case MultiOutputFiles:
key byte = 3;
};
case CheckOption:
key byte = CheckOptionID;
byte NotSet, Set; /* whether button is set or not */
rect; /* bounds */
cstring; /* title */
cstring; /* option returned */
cstring; /* help text for button */
case RadioButtons:
key byte = RadioButtonsID;
byte = $$CountOf(radioArray); /* # of buttons */
wide array radioArray {
rect; /* bounds */
cstring; /* title */
cstring; /* option returned */
byte NotSet, Set; /* whether button is set or not */
cstring; /* help text for button */
align word;
};
case RegularEntry:
key byte = RegularEntryID;
cstring; /* title */
align word;
rect; /* bounds of title */
rect; /* bounds of input box */
cstring; /* default value */
byte ignoreCase, keepCase; /* the default value is never displayed
in the commando window. If what the
user types in the textedit window
matches the default value, then that
value isn't displayed. This flag
tells Commando whether to ignore case
when comparing the contents of the textedit
window with the default value. */
cstring; /* option returned */
cstring; /* help text for entry */
case MultiRegularEntry: /* For scrollable, lists of an option */
key byte = MultiRegularEntryID;
cstring; /* title */
align word;
rect; /* bounds of title */
rect; /* bounds of input list */
byte = $$CountOf(DefEntryList);
array DefEntryList {
cstring; /* default values */
};
cstring; /* option returned. Each value
will be preceded with this
option */
cstring; /* help text for entry */
case Box: /* Can be used to draw lines too */
key byte = BoxID;
byte black, gray; /* color of object */
rect; /* bounds of box or line */
case TextBox: /* Draws a box with title in upper-left */
key byte = TextBoxID;
byte black, gray; /* color of object */
rect; /* bounds of box or line */
cstring; /* title */
case TextTitle:
key byte = TextTitleID;
byte plain; /* style of text */
rect; /* bounds of title */
int systemFont; /* font number to use */
int systemSize; /* font size to use */
cstring; /* the text to display */
case PopUp:
key byte = PopUpID;
byte Window, Alias, Font, Set; /* popup type */
rect; /* bounds of title */
rect; /* bounds of popup line */
cstring; /* title */
cstring; /* option returned */
cstring; /* help text for popup */
byte noDefault, hasDefault; /* hasDefault if first item is "Default Value" */
case EditPopUp:
key byte = EditPopUpID;
/* For MenuItem, this EditPopUp must be dependent upon another EditPopUp
of the MenuTitle type so that the control knows whose menu items to
display.
For FontSize, this EditPopUp must be dependent upon a PopUp of the
Font type so that the control knows what sizes of the font exist. */
byte MenuTitle, MenuItem, /* Type of editable pop-up */
FontSize, Alias, Set;
rect; /* bounds of title */
rect; /* bounds of text edit area */
cstring; /* title */
cstring; /* option to return */
cstring; /* help text for textedit part */
cstring; /* help text for popup part */
case NestedDialog:
key byte = NestedDialogID;
byte; /* the number of the dialog
to call. It must be greater
than the current dialog */
rect; /* bounds of button */
cstring; /* button's title */
cstring; /* help text for button */
case Redirection:
key byte = RedirectionID;
byte StandardOutput, DiagnosticOutput, /* the type of redirection */
StandardInput;
point; /* upper-left point of the whole contraption */
case TriStateButtons:
key byte = TriStateButtonsID;
byte = $$CountOf(threeStateArray); /* # of buttons */
cstring; /* option returned */
wide array threeStateArray {
align word;
rect; /* bounds */
cstring; /* title */
cstring; /* string for Clear state */
cstring; /* string for DontTouch state */
cstring; /* string for Set state */
cstring; /* help text for button */
};
case List: /* Puts up a list of "things" and allows multiple selections */
key byte = ListID;
byte Volumes, ShellVars,
Windows, Aliases; /* what to display in the list */
cstring; /* option to return before each "thing" */
cstring; /* title */
align word;
rect; /* bounds of title */
rect; /* bounds of list selection box */
cstring; /* help text for selection box */
case PictOrIcon:
key byte = PictOrIconID;
byte Icon, Picture; /* display a picture or icon */
int; /* resource id of icon/picture */
rect; /* display bounds */
case Dummy:
key byte = DummyID;
case DoItButton: /* Allows the 'do it' button to be dependent */
key byte = DoItButtonID;
case VersionDialog: /* Display a dialog when the version # is clicked */
key byte = VersionDialogID;
switch {
case VersionString: /* Version string embedded right here */
key byte = 0;
cstring; /* Version string of tool (e.g. V2.0) */
case VersionResource: /* Versions string comes from another resource */
key byte = 1;
literal longint; /* resource type of pascal string containing version string */
integer; /* resource id of version string */
};
cstring; /* Version text for help window */
align word;
integer noDialog; /* Rsrc id of 'DLOG' */
/* NOTE1: if there is no modal dialog to display when the version
string is clicked, set the rsrc id to zero (noDialog).
NOTE2: if the version string comes from another resource (VersionResource),
the string must be the first thing in the resource and the string must be
a pascal-style string. A 'STR ' resource is an example of a resource that
fits the bill.
NOTE3: if the modal dialog is to have a filter proc, the proc
must be linked as a 'fltr' resource with the same resource id
as the dialog. */
};
align word;
};
align word;
};
};
#endif __CMDO_R__

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,25 @@
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 0072 0070 2046 6F6C" /* ..Monaco.r.p Fol */
$"6465 723A 436F 6D6D 656E 7400 0363 0000" /* der:Comment..c.. */
$"0000 0006 0004 002A 0003 0142 01E3 002A" /* .......*...B...* */
$"0003 0142 01E3 A66D 0F8C 0000 0000 0000" /* ...B...m........ */
$"0000 0000 0000 0100" /* ........ */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0000 0000 0000 0000 0000 0000" /* .............. */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};
data 'vers' (1, purgeable) {
$"0321 8000 0000 0533 2E32 2E31 2733 2E32" /* .!.....3.2.1'3.2 */
$"2E31 2C20 A920 4170 706C 6520 436F 6D70" /* .1, . Apple Comp */
$"7574 6572 2C20 496E 632E 2031 3938 352D" /* uter, Inc. 1985- */
$"3139 3932" /* 1992 */
};

View File

@ -0,0 +1,589 @@
/*
Files: InstallerTypes.r
© 1988-1990 Apple Computer, Inc. All Rights Reserved
PURPOSE: This file contains all the resource templates necessary to
create installer scripts.
*/
#include "SysTypes.r" /* For region codes */
/* For those using pre-7.0 "SysTypes.r" we need to define region. It used */
/* to be country, but became region in 7.0 */
#ifndef region
#define region country
#endif
/*----------------------------Installer 3.0 Scripts-----------------------------------*/
#define evenPaddedString \
pstring; \
align word
#define OSType \
literal longint
#define rsrcType \
OSType /* type of a rsrc which must exist in system */ \
patchrsrcType = 'PTCH', \
userFunctionType = 'infn', \
auditrsrcType = 'audt'
#define rsrcID \
integer /* ID of a rsrc which must exist in system */ \
macPlusPatch = 117, \
macSEPatch = 630, \
macIIPatch = 376, \
portablePatch = 890, \
macIIciPatch = 1660, \
oldAuroraPatch = 1657
#define RsrcName \
evenPaddedString
/*
§ --------------------------------- Packages ---------------------------------*/
#define packageFlags \
boolean doesntShowOnCustom, showsOnCustom; /* should show up on Custom screen */ \
boolean notRemovable, removable; /* this package can be removed */ \
boolean forceRestart, dontForceRestart; /* should installing this package for a restart? */ \
fill bit[13] /* Reserved */
#define notShowsOnCustom doesntShowOnCustom /* Old wording */
#define partSpec \
rsrcType; /* Part Type: inpk, infa, inra*/ \
rsrcID /* Part ID */
type 'inpk' {
switch {
case format0:
key integer = 0; /* Package Format version */
packageFlags; /* Package Flags */
unsigned integer; /* icmt ID */
unsigned longint; /* Package Size */
evenPaddedString; /* Package Name */
unsigned integer = $$CountOf(partsList); /* Parts List */
wide array partsList {
partSpec; /* Parts Spec */
};
};
};
type 'icmt' { /* Installer comment */
unsigned hex longint; /* Creation Date */
unsigned hex longint; /* Version */
rsrcID; /* Icon ID */
evenPaddedString; /* Comment Text */
};
/*
§ --------------------------------- File Specs ---------------------------------*/
#define fileSpecID \
rsrcID
#define fileSpecFlags \
boolean noSearchForFile, SearchForFile; /* Search (tgt only) if not found in given path*/ \
boolean TypeCrNeedNotMatch, TypeCrMustMatch; /* Type and creator must match */ \
fill bit[14] /* currently unused */
#define noTypeCrMustMatch TypeCrNeedNotMatch
type 'infs' {
literal longint; /* File Type */
literal longint; /* File Creator */
unsigned hex longint; /* Creation Date*/
fileSpecFlags; /* File Spec Flags */
evenPaddedString; /* Full Path */
};
/*
§ --------------------------------- File Atoms ---------------------------------*/
#define opcodeFlags \
boolean dontDeleteWhenRemoving, deleteWhenRemoving; /* Remove file or rsrc if remove clicked */ \
boolean dontDeleteWhenInstalling, deleteWhenInstalling; /* Delete target before copy */ \
boolean dontCopy, copy; /* Copy file or rsrc to destination */ \
fill bit[3] /* Reserved */
#define delRemove deleteWhenRemoving
#define noDelRemove dontDeleteWhenRemoving
#define delInstall deleteWhenInstalling
#define noDelInstall dontDeleteWhenInstalling
#define noCopy dontCopy
#define fileAtomFlags \
opcodeFlags; \
fill bit[5]; \
boolean updateEvenIfNewer, leaveAloneIfNewer; /* OK for a newer version of this file to exist */ \
boolean updateExisting, keepExisting; /* Keep tgt file if it already exists */ \
boolean copyIfNewOrUpdate, copyIfUpdate; /* Only update if target exists */ \
boolean noRsrcFork, rsrcFork; /* Apply operation to rsrc fork */ \
boolean noDataFork, dataFork /* Apply operation to data fork */
#define noLeaveAloneIfNewer updateEvenIfNewer
#define noKeepExisting updateExisting
#define noUpdateOnly copyIfNewOrUpdate
#define updateOnly copyIfUpdate
type 'infa' {
switch {
case format0:
key integer = 0; /* File Atom Format version */
fileAtomFlags; /* File Atom Flags */
rsrcID; /* tgt file spec ID */
rsrcID; /* src file spec ID */
unsigned longInt; /* File Size */
evenPaddedString; /* Atom Description */
};
};
/*
§ -------------------------------- Resource Atoms ---------------------------------*/
#define resourceAtomFlags \
opcodeFlags; \
fill bit[3]; /* Reserved */ \
boolean noTgtRequired, tgtRequired; /* target req or can be created by another inra */ \
boolean updateExisting, keepExisting; /* Keep tgt rsrc if it already exists */ \
boolean copyIfNewOrUpdate, copyIfUpdate; /* Only update if target exists */ \
boolean dontIgnoreProtection, ignoreProtection; /* Do it even if rsrc protected */ \
boolean srcNeedExist, srcNeedNotExist; /* Rsrc need not exist on source */ \
boolean byName, byID; /* Use name or id to find rsrc */ \
boolean nameNeedNotMatch, nameMustMatch /* name must match*/
#define evenIf ignoreProtection
#define noEvenIf dontIgnoreProtection
#define noByID byName
#define notNameMustMatch nameNeedNotMatch
type 'inra' {
switch {
case format0:
key integer = 0; /* Resource Atom Format version */
resourceAtomFlags; /* Resource Atom Flags */
rsrcID; /* tgt file spec ID */
rsrcID; /* src file spec ID */
rsrcType; /* Resource Type */
integer; /* Source ID */
integer; /* Target ID */
unsigned longInt; /* Resource Size */
evenPaddedString; /* Atom Description */
evenPaddedString; /* Resource Name */
};
};
/*
§ --------------------------------- Boot Block Atoms ---------------------------------*/
#define bootBlockAtomFlags \
fill bit[14]; \
boolean dontChangeOnInstall, changeOnInstall; /* change parameter if we're installing */ \
boolean dontChangeOnRemove, changeOnRemove /* change parameter if we're removing */
#define notChangeOnInstall dontChangeOnInstall
#define notChangeOnRemove dontChangeOnRemove
#define BootBlockUpdateFlags \
fill bit[7]; \
boolean replaceBBSysName, \
saveBBSysName; \
boolean replaceBBShellName, \
saveBBShellName; \
boolean replaceBBDbg1Name, \
saveBBDbg1Name; \
boolean replaceBBDbg2Name, \
saveBBDbg2Name; \
boolean replaceBBScreenName, \
saveBBScreenName; \
boolean replaceBBHelloName, \
saveBBHelloName; \
boolean replaceBBScrapName, \
saveBBScrapName; \
boolean replaceBBCntFCBs, \
maxBBCntFCBs; \
boolean replaceBBCntEvts, \
maxBBCntEvts
type 'inbb' {
switch {
case format0:
key integer = 0; /* Boot Block Format version */
bootBlockAtomFlags; /* Boot Block Atom Flags */
/* now case off the type for the boot block value */
switch {
case bbUpdate:
key integer = -1;
rsrcID; /* The file spec ID for the source of the 'boot' resource */
bootBlockUpdateFlags;
case bbID:
key integer = 1;
decimal integer;
case bbEntry:
key integer = 2;
decimal longint;
case bbVersion:
key integer = 3;
decimal integer;
case bbPageFlags:
key integer = 4;
decimal integer;
case bbSysName:
key integer = 5;
evenPaddedString;
case bbShellName:
key integer = 6;
evenPaddedString;
case bbDbg1Name:
key integer = 7;
evenPaddedString;
case bbDbg2Name:
key integer = 8;
evenPaddedString;
case bbScreenName:
key integer = 9;
evenPaddedString;
case bbHelloName:
key integer = 10;
evenPaddedString;
case bbScrapName:
key integer = 11;
evenPaddedString;
case bbCntFCBs:
key integer = 12;
decimal integer;
case bbCntEvts:
key integer = 13;
decimal integer;
case bb128KSHeap:
key integer = 14;
decimal longint;
case bb256KSHeap:
key integer = 15;
decimal longint;
case bb512KSHeap:
key integer = 16;
decimal longint;
case bbSysHeapSize: /* Note - same as 512 */
key integer = 16;
decimal longint;
case bbSysHeapExtra:
key integer = 18;
decimal longint;
case bbSysHeapFract:
key integer = 19;
decimal longint;
};
evenPaddedString; /* Boot Block Atom Description */
};
};
/*
§ --------------------------------- Action Atoms ---------------------------------*/
#define actionAtomFlags \
fill bit[13]; \
boolean actAfter, /* Call this proc after all installations */ \
actBefore; /* Call this proc before all installations */ \
boolean dontActOnRemove, \
actOnRemove; /* Call this proc when doing a remove */ \
boolean dontActOnInstall, \
actOnInstall /* Call this proc when doing an Install */
type 'inaa' {
switch {
case format0:
key integer = 0; /* Action Atom Format version */
actionAtomFlags; /* Action Atom Flags */
partSpec; /* Resource type & id for executable resource */
longint; /* RefCon that's passed to the executable resource */
evenPaddedString; /* Atom Description */
};
};
/*
§ --------------------------------- Audit Trail Atoms ---------------------------------*/
type 'inat' {
switch {
case format0:
key integer = 0; /* Version */
fileSpecID; /* Target File Spec */
OSType; /* Selector */
literal longint; /* Value */
};
};
/*
§ --------------------------------- Installer Rules ---------------------------------*/
#define Version \
hex byte; /* System file Major revision in BCD*/ \
hex byte; /* System file Minor revision in BCD*/ \
hex byte development = 0x20, /* System file Release stage */ \
alpha = 0x40, beta = 0x60, \
final = 0x80, release = 0x80; \
hex byte /* Non Final */
/* Note that if the minimal & maximal target disk sizes are both 0, any volume will match */
/* If the Minimal is > 0 and the maximal = 0, then only the minimum requirement is used */
#define TargetVolReqs /* Required Target Volume Description */ \
decimal longint /* Minimal Target Disk Size */ \
floppy = 0, \
hdFloppy = 1400, \
hardDisk = 10000; \
decimal longint /* Maximal Target Disk Size */ \
floppy = 900, \
hdFloppy = 1500, \
hardDisk = 0
#define IntegerList \
unsigned integer = $$CountOf(IntegerArray); \
array IntegerArray { \
integer; \
}
#define LongIntList \
unsigned integer = $$CountOf(LongIntArray); \
array LongIntArray { \
longint; \
}
#define packageList \
IntegerList
#define assertionList \
IntegerList
#define gestaltList \
LongIntList
#define alwaysFalseKey -2
#define alwaysTrueKey -1
#define checkGestaltKey 1
#define checkMinMemoryKey 2
#define checkFileDataForkExistsKey 3
#define checkFileRsrcForkExistsKey 4
#define checkFileContainsRsrcByIDKey 5
#define checkFileContainsRsrcByNameKey 6
#define checkFileVersionKey 7
#define checkFileCountryCodeKey 8
#define checkTgtVolSizeKey 9
#define checkUserFunctionKey 10
#define checkAllAssertionsKey 11
#define checkAnyAssertionKey 12
#define checkMoreThanOneAssertionKey 13
#define addUserDescriptionKey 14
#define addPackagesKey 15
#define addAssertionKey 16
#define reportVolErrorKey 17
#define reportSysErrorKey 18
#define addAuditRecKey 19
#define checkAuditRecKey 20
#define checkAnyAuditRecKey 21
/* The Easy Install Rules */
type 'inrl' {
switch {
case format0:
key integer = 0;
hex integer = 0; /* Rule Flags for future use */
unsigned integer = $$CountOf(Rules);
wide array Rules {
switch {
case alwaysFalse:
key integer = alwaysFalseKey;
case alwaysTrue:
key integer = alwaysTrueKey;
case checkGestalt:
key integer = checkGestaltKey;
OSType; /* Gestalt selector */
gestaltList; /* Legal results */
case checkMinMemory:
key integer = checkMinMemoryKey;
decimal longint;
case checkFileDataForkExists:
key integer = checkFileDataForkExistsKey;
fileSpecID;
case checkFileRsrcForkExists:
key integer = checkFileRsrcForkExistsKey;
fileSpecID;
case checkFileContainsRsrcByID:
key integer = checkFileContainsRsrcByIDKey;
fileSpecID;
rsrcType;
rsrcID;
case checkFileContainsRsrcByName:
key integer = checkFileContainsRsrcByNameKey;
fileSpecID;
rsrcType;
rsrcName;
case checkFileVersion:
key integer = checkFileVersionKey;
fileSpecID;
version;
case checkFileCountryCode:
key integer = checkFileCountryCodeKey;
fileSpecID;
integer Region;
case checkTgtVolSize:
key integer = checkTgtVolSizeKey;
targetVolReqs;
case checkUserFunction:
key integer = checkUserFunctionKey;
rsrcType;
rsrcID;
longint; /* RefCon that's passed to the executable resource */
case checkAllAssertions:
key integer = checkAllAssertionsKey;
assertionList;
case checkAnyAssertion:
key integer = checkAnyAssertionKey;
assertionList;
case checkMoreThanOneAssertion:
key integer = checkMoreThanOneAssertionKey;
assertionList;
case addUserDescription:
key integer = addUserDescriptionKey;
evenPaddedString;
case addPackages:
key integer = addPackagesKey;
packageList;
case addAssertion:
key integer = addAssertionKey;
assertionList;
case reportVolError:
key integer = reportVolErrorKey;
evenPaddedString;
case reportSysError:
key integer = reportSysErrorKey;
evenPaddedString;
case addAuditRec:
key integer = addAuditRecKey;
fileSpecID;
OSType;
literal longint;
case checkAuditRec:
key integer = checkAuditRecKey;
fileSpecID;
OSType;
literal longint;
case checkAnyAuditRec:
key integer = checkAnyAuditRecKey;
fileSpecID;
OSType;
longIntList;
};
};
};
};
#define RuleList IntegerList
/* The rule framework */
type 'infr' {
switch {
case format0:
key integer = 0; /* Rule framework version */
unsigned integer = $$CountOf(RuleArray);
wide array RuleArray {
boolean pickFirst, pickAll; /* which packages to select? */
fill bit[15];
ruleList; /* List of rules */
};
};
};
/* The list of disks we may need, and the order we want them to appear in */
/* This is optional. */
type 'indo' {
switch {
case format0:
key integer = 0; /* indo version */
integer = $$Countof(StringArray);
array StringArray {
evenPaddedString;
};
};
};
/* This script resource defines the minimum Installer version that is required */
/* to run the script. If an Installer app is launched that is older than this */
/* required version, the user receives a dialog telling him/her to run a newer Installer */
/* This is optional. */
type 'invs' {
switch {
case format0:
key integer = 0;
hex byte; /* Major revision in BCD*/
hex byte; /* Minor vevision in BCD*/
hex byte development = 0x20, /* Release stage */
alpha = 0x40,
beta = 0x60,
final = 0x80, /* or */ release = 0x80;
hex byte; /* Non-final release # */
pstring; /* Short version number */
};
};

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,25 @@
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 0072 02C6 7FFF 027A" /* ..Monaco.r.....z */
$"0000 0306 7FFF 7FFF 0000 003C 7FFF 02B6" /* ...........<.... */
$"FF73 0006 0004 002A 0003 0142 01E3 002A" /* .s.....*...B...* */
$"0003 0142 01E3 A42B A620 0000 0000 0000" /* ...B...+. ...... */
$"0000 0000 0000 0100" /* ........ */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0000 0000 0000 0000 0000 0000" /* .............. */
};
data 'vers' (1, purgeable) {
$"0320 8000 0000 0533 2E32 2E30 2433 2E32" /* . .....3.2.0$3.2 */
$"2E30 20A9 2041 7070 6C65 2043 6F6D 7075" /* .0 . Apple Compu */
$"7465 722C 2049 6E63 2E20 3139 3835 2D39" /* ter, Inc. 1985-9 */
$"31" /* 1 */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};

View File

@ -0,0 +1,73 @@
/*
MPWTypes.r -- Type Declarations for Rez and DeRez
Copyright Apple Computer, Inc. 1986-1991
All rights reserved.
This file is used in these builds: ROM System
Change History (most recent first):
<2+> 6/23/92 DCL Changed #ifndef __MPWTYPES.R__ to __MPWTYPES_R__
<2> 8/8/91 JL Updated Copyright.
To Do:
*/
#ifndef __MPWTYPES_R__
#define __MPWTYPES_R__
/*
* Macintosh Programmer's Workshop
* DRVR resource type 'DRVR' (requires DRVRRuntime.o)
*/
# define mDownMask 2 /* Event mask values for drvrEMask */
# define mUpMask 4
# define keyDownMask 8
# define keyUpMask 16
# define autoKeyMask 32
# define updateMask 64
# define diskMask 128
# define activMask 256
# define networkMask 1024
# define driverMask 2048
# define everyEvent -1
/*
* When building a DRVR resource, insert the line:
*
* type 'DRVR' as 'DRVW';
*
* in your resource file before your "resource 'DRVR' ..." declaration.
*/
type 'DRVW' {
boolean = 0; /* unused */
boolean dontNeedLock, needLock; /* lock drvr in memory */
boolean dontNeedTime, needTime; /* for periodic action */
boolean dontNeedGoodbye, needGoodbye; /* call before heap reinit*/
boolean noStatusEnable, statusEnable; /* responds to status */
boolean noCtlEnable, ctlEnable; /* responds to control */
boolean noWriteEnable, writeEnable; /* responds to write */
boolean noReadEnable, readEnable; /* responds to read */
byte = 0; /* low byte of drvrFlags word unused */
unsigned integer; /* driver delay (ticks) */
integer; /* desk acc event mask */
integer; /* driver menu ID */
unsigned integer = 50; /* offset to DRVRRuntime open */
unsigned integer = 54; /* offset to DRVRRuntime prime */
unsigned integer = 58; /* offset to DRVRRuntime control*/
unsigned integer = 62; /* offset to DRVRRuntime status */
unsigned integer = 66; /* offset to DRVRRuntime close */
pstring[31]; /* driver name */
hex string; /* driver code (use $$resource(...)) */
};
#endif __MPWTYPES_R__

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,25 @@
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 0072 004C 696E 6520" /* ..Monaco.r.Line */
$"3233 3629 0D20 3235 3609 2063 6173 6520" /* 236). 256. case */
$"5061 0006 0004 002A 0003 0142 01E3 002A" /* Pa.....*...B...* */
$"0003 0142 01E3 A664 D9C0 0000 0000 0000" /* ...B...d........ */
$"0000 0000 0783 0100" /* ........ */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0783 0000 0000 0000 0000 0000" /* .............. */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};
data 'vers' (1, purgeable) {
$"0321 8000 0000 0533 2E32 2E31 2733 2E32" /* .!.....3.2.1'3.2 */
$"2E31 2C20 A920 4170 706C 6520 436F 6D70" /* .1, . Apple Comp */
$"7574 6572 2C20 496E 632E 2031 3938 352D" /* uter, Inc. 1985- */
$"3139 3932" /* 1992 */
};

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,25 @@
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 0072 00FF 0000 0014" /* ..Monaco.r...... */
$"0001 39CC 000A 0000 0000 0000 0000 FC18" /* ..9............. */
$"0000 0006 0004 002A 0003 0168 0268 002A" /* .......*...h.h.* */
$"0003 0168 0268 A664 D9C0 0000 0000 0000" /* ...h.h.d........ */
$"0000 0000 5D0C 0100" /* ....]... */
};
data 'MPSR' (1008) {
$"002A 0003 0168 0268 002A 0003 0168 0268" /* .*...h.h.*...h.h */
$"0000 5D0C 0000 0000 0000 0000 0000" /* ..]........... */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};
data 'vers' (1, purgeable) {
$"0324 8000 0000 0533 2E32 2E34 2733 2E32" /* .$.....3.2.4'3.2 */
$"2E34 2C20 A920 4170 706C 6520 436F 6D70" /* .4, . Apple Comp */
$"7574 6572 2C20 496E 632E 2031 3938 352D" /* uter, Inc. 1985- */
$"3139 3932" /* 1992 */
};

View File

@ -0,0 +1,40 @@
/*------------------------------------------------------------------------------
# SIOW.h
# Simple Inpue/Output Window header
# Apple Copyright 1989-1991
#
# The names for these constants have been selected to satisfy both the
# standards set up by Apple for applications, and by ANSI for C programming.
#
#-----------------------------------------------------------------------------*/
#ifndef __SIOW__
#define __SIOW__
#ifndef __kPrefSize
#define __kPrefSize 122 /* Default max app size */
#endif
#ifndef __kMinSize
#define __kMinSize 38 /* Default min app size */
#endif
/* The following constants are used to identify menus and their items. */
/* NOTE: resources IDs 20000-20010 are reserved fur use by SIOW */
#define __mApple 20000 /* Apple menu */
#define __mFile 20001 /* File menu */
#define __mEdit 20002 /* Edit menu */
#define __mFont 20003 /* Font menu */
#define __mSize 20004 /* Font menu */
#define __rMenuBar 20000 /* application's menu bar */
#define __rAboutAlert 20000 /* about alert */
#define __rUserAlert 20001 /* user error alert */
#define __rSaveAlert 20002 /* save changes alert */
#define __rDocWindow 20000 /* application's window */
#define __rVScroll 20000 /* vertical scrollbar control */
#define __rHScroll 20001 /* horizontal scrollbar control */
#define __kErrStrings 20000 /* error string list */
#endif

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,25 @@
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 0000 0074 0001 EFF4" /* ..Monaco...t.... */
$"0000 0001 0000 0064 0000 0034 0001 F024" /* .......d...4...$ */
$"003D 0006 0004 002A 0003 0142 01E3 002A" /* .=.....*...B...* */
$"0003 0142 01E3 A431 DB30 0000 0000 0000" /* ...B...1.0...... */
$"0000 0000 0000 0100" /* ........ */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0000 0000 0000 0000 0000 0000" /* .............. */
};
data 'vers' (1, purgeable) {
$"0320 8000 0000 0533 2E32 2E30 2433 2E32" /* . .....3.2.0$3.2 */
$"2E30 20A9 2041 7070 6C65 2043 6F6D 7075" /* .0 . Apple Compu */
$"7465 722C 2049 6E63 2E20 3139 3835 2D39" /* ter, Inc. 1985-9 */
$"31" /* 1 */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,67 @@
data 'MPSR' (1006) {
$"0002 0000 0048 0048 0000 0000 02D8 0228" /* .....H.H.......( */
$"FFE0 FFE2 02F8 0246 0307 0528 03FC 0002" /* .......F...(.... */
$"0000 0048 0048 0000 0000 02D8 0228 0001" /* ...H.H.......(.. */
$"0000 0064 0000 0001 0001 0101 0000 0001" /* ...d............ */
$"270F 0001 0001 0000 0000 0000 0000 0000" /* '............... */
$"0000 0002 0019 0190 0000 0000 0000 0000" /* ................ */
$"0000 0000 0000 0000 0000 0000 0000 0000" /* ................ */
$"0000 0000 0000 0000" /* ........ */
};
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 0072 0084 7FFF 02CA" /* ..Monaco.r...... */
$"0000 01F4 7FFF 7FFF 0000 0030 0021 0013" /* ...........0.!.. */
$"004A 0006 0004 002A 0003 0142 01E3 002A" /* .J.....*...B...* */
$"0003 0142 01E3 A66D 0F8D 0000 0000 0000" /* ...B...m........ */
$"0000 0000 0000 0100" /* ........ */
};
data 'MPSR' (1007) {
$"001E 0000 2666 0000 2666 0544 5256 5200" /* ....&f..&f.DRVR. */
$"0000 2ABF 0000 2ABF 0566 696E 6600 0000" /* ..*...*..finf... */
$"2CDA 0000 2CDA 0546 4F4E 4400 0000 441D" /* ,...,..FOND...D. */
$"0000 441D 0546 4F4E 5400 0000 4BC9 0000" /* ..D..FONT...K... */
$"4BC9 0546 5749 4400 0000 576E 0000 576E" /* K..FWID...Wn..Wn */
$"0569 6E73 6300 0000 62CF 0000 62CF 0B27" /* .insc...b...b..' */
$"494E 544C 2720 2830 2900 0000 6AD5 0000" /* INTL' (0)...j... */
$"6AD5 0569 746C 3000 0000 6B4B 0000 6B4B" /* j..itl0...kK..kK */
$"0B27 494E 544C 2720 2831 2900 0000 6F8F" /* .'INTL' (1)...o. */
$"0000 6F8F 0569 746C 3100 0000 8175 0000" /* ..o..itl1....u.. */
$"8175 0569 746C 3200 0000 AEAB 0000 AEAB" /* .u.itl2......... */
$"0569 746C 6200 0000 B5EF 0000 B5EF 0569" /* .itlb..........i */
$"746C 6300 0000 BA1A 0000 BA1A 0569 746C" /* tlc..........itl */
$"6B00 0000 C456 0000 C456 054B 4341 5000" /* k....V...V.KCAP. */
$"0000 C6AC 0000 C6AC 054B 4348 5200 0000" /* .........KCHR... */
$"C9B2 0000 C9B2 054B 4D41 5000 0000 CB9B" /* .......KMAP..... */
$"0000 CB9B 054B 5357 5000 0000 D45E 0000" /* .....KSWP....^.. */
$"D45E 056D 6163 6800 0000 D52E 0000 D52E" /* .^.mach......... */
$"056D 636B 7900 0000 D5BF 0000 D5BF 056D" /* .mcky..........m */
$"7070 6300 0000 D6BC 0000 D6BC 054E 464E" /* ppc..........NFN */
$"5400 0000 D72E 0000 D72E 056E 7263 7400" /* T..........nrct. */
$"0000 D800 0000 D800 0552 4F76 2300 0000" /* .........ROv#... */
$"D960 0000 D960 0573 6372 6E00 0000 DD8D" /* .`...`.scrn..... */
$"0000 DD8D 0573 6E64 2000 0000 EC5F 0000" /* .....snd ...._.. */
$"EC5F 0576 6572 7300 0000 EEA3 0000 EEA3" /* ._.vers......... */
$"0546 5253 5600 0000 F0A5 0000 F0A5 0566" /* .FRSV..........f */
$"6C64 2300 0000 F1AC 0000 F1AC 056D 6974" /* ld#..........mit */
$"7100" /* q. */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0000 0000 0000 0000 0000 0000" /* .............. */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};
data 'vers' (1, purgeable) {
$"0322 8000 0000 0533 2E32 2E32 2733 2E32" /* .".....3.2.2'3.2 */
$"2E32 2C20 A920 4170 706C 6520 436F 6D70" /* .2, . Apple Comp */
$"7574 6572 2C20 496E 632E 2031 3938 352D" /* uter, Inc. 1985- */
$"3139 3932" /* 1992 */
};

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,25 @@
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 0000 0000 0000 0000" /* ..Monaco........ */
$"0000 0000 0000 0000 0000 0050 003D 0300" /* ...........P.=.. */
$"0359 0006 0004 002A 0003 0142 01E3 002A" /* .Y.....*...B...* */
$"0003 0142 01E3 A66D F88F 0000 0000 0000" /* ...B...m........ */
$"0000 0000 0000 0100" /* ........ */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0000 0000 0000 0000 0000 0000" /* .............. */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};
data 'vers' (1, purgeable) {
$"0322 8000 0000 0533 2E32 2E32 2733 2E32" /* .".....3.2.2'3.2 */
$"2E32 2C20 A920 4170 706C 6520 436F 6D70" /* .2, . Apple Comp */
$"7574 6572 2C20 496E 632E 2031 3938 352D" /* uter, Inc. 1985- */
$"3139 3932" /* 1992 */
};

View File

@ -0,0 +1,371 @@
/*------------------------------------------------------------------------------
#
# Apple Macintosh Developer Technical Support
#
# MultiFinder-Aware Simple Input/Output Window
#
# SIOW
#
# Copyright: © 1989-1991 by Apple Computer, Inc., all rights reserved.
#
------------------------------------------------------------------------------*/
#include "systypes.r"
#include "types.r"
#include "SIOW.h"
#ifndef CREATOR
#define CREATOR 'siow'
#endif
#ifndef FCREATOR
#define FCREATOR 'MPS '
#endif
type 'pzza' {
literal longint;
};
resource 'pzza' (128, purgeable) {
FCREATOR;
};
/* we use an MBAR resource to conveniently load all the menus */
resource 'MBAR' (__rMenuBar, preload) {
{ __mApple, __mFile, __mEdit, __mFont /*, __mSize */}; /* five menus */
};
resource 'MENU' (__mApple, preload) {
__mApple, textMenuProc,
0b1111111111111111111111111111101, /* disable dashed line, enable About and DAs */
enabled, apple,
{
"About S I O W\311",
noicon, nokey, nomark, plain;
"-",
noicon, nokey, nomark, plain
}
};
resource 'MENU' (__mFile, preload) {
__mFile, textMenuProc,
0b000000000000000000000000000000, /* enable Quit only, program enables others */
enabled, "File",
{
"New",
noicon, "N", nomark, plain;
"Open",
noicon, "O", nomark, plain;
"-",
noicon, nokey, nomark, plain;
"Close",
noicon, "W", nomark, plain;
"Save",
noicon, "S", nomark, plain;
"Save As\311",
noicon, nokey, nomark, plain;
"-",
noicon, nokey, nomark, plain;
"Page Setup\311",
noicon, nokey, nomark, plain;
"Print\311",
noicon, nokey, nomark, plain;
"-",
noicon, nokey, nomark, plain;
"Quit",
noicon, "Q", nomark, plain
}
};
resource 'MENU' (__mEdit, preload) {
__mEdit, textMenuProc,
0b0000000000000000000000000000000, /* disable everything, program does the enabling */
enabled, "Edit",
{
"Undo",
noicon, "Z", nomark, plain;
"-",
noicon, nokey, nomark, plain;
"Cut",
noicon, "X", nomark, plain;
"Copy",
noicon, "C", nomark, plain;
"Paste",
noicon, "V", nomark, plain;
"Clear",
noicon, nokey, nomark, plain
}
};
resource 'MENU' (__mFont, preload) {
__mFont, textMenuProc,
0b1111111111111111111111111111111, /* enable everything */
enabled, "Font",
{
}
};
/* this ALRT and DITL are used as an About screen */
resource 'ALRT' (__rAboutAlert, purgeable) {
{66, 58, 344, 396}, __rAboutAlert, {
OK, visible, silent;
OK, visible, silent;
OK, visible, silent;
OK, visible, silent
};
};
resource 'DITL' (__rAboutAlert, purgeable) {
{ /* array DITLarray: 8 elements */
/* [1] */
{233, 144, 253, 224},
Button {
enabled,
"OK"
},
/* [2] */
{8, 72, 23, 264},
StaticText {
disabled,
"Simple Input/Output Window"
},
/* [3] */
{56, 24, 71, 337},
StaticText {
disabled,
"Copyright ©Apple Computer, Inc. 1989-1990 "
},
/* [4] */
{80, 108, 96, 244},
StaticText {
disabled,
"Brought to you by..."
},
/* [5] */
{109, 132, 134, 229},
StaticText {
disabled,
"\"PZZA SLT\""
},
/* [6] */
{176, 56, 200, 289},
StaticText {
disabled,
"Roger, Russ, Landon, Ira & Munch"
},
/* [7] */
{152, 24, 170, 212},
StaticText {
disabled,
"Special Thanks to..."
},
/* [8] */
{32, 152, 47, 200},
StaticText {
disabled,
"(SIOW)"
}
}
};
/* this ALRT and DITL are used as an error screen */
resource 'ALRT' (__rUserAlert, purgeable) {
{40, 20, 150, 260},
__rUserAlert,
{ /* array: 4 elements */
/* [1] */
OK, visible, silent,
/* [2] */
OK, visible, silent,
/* [3] */
OK, visible, silent,
/* [4] */
OK, visible, silent
}
};
resource 'DITL' (__rUserAlert, purgeable) {
{ /* array DITLarray: 3 elements */
/* [1] */
{80, 150, 100, 230},
Button {
enabled,
"OK"
},
/* [2] */
{10, 60, 60, 230},
StaticText {
disabled,
"Error. ^0."
},
/* [3] */
{8, 8, 40, 40},
Icon {
disabled,
2
}
}
};
#define WindowHeight 286
#define WindowWidth 480
resource 'WIND' (__rDocWindow, preload, purgeable) {
{0, 0, WindowHeight, WindowWidth},
zoomDocProc, invisible, noGoAway, 0x0, "untitled"
};
resource 'CNTL' (__rVScroll, preload, purgeable) {
{-1, WindowWidth-15, WindowHeight-14, WindowWidth+1},
0, invisible, 0, 0, scrollBarProc, 0, ""
};
resource 'CNTL' (__rHScroll, preload, purgeable) {
{WindowHeight-15, -1, WindowHeight+1, WindowWidth-14},
0, invisible, 0, 0, scrollBarProc, 0, ""
};
resource 'STR#' (__kErrStrings, purgeable) {
{
"You must run on 512Ke or later";
"Application Memory Size is too small";
"Not enough memory to run SIOW";
"Not enough memory to do Cut";
"Cannot do Cut";
"Cannot do Copy";
"Cannot exceed 32,000 characters with Paste";
"Not enough memory to do Paste";
"Cannot create window";
"Cannot exceed 32,000 characters";
"Cannot do Paste"
"Font not found"
}
};
/* here is the quintessential MultiFinder friendliness device, the SIZE resource */
resource 'SIZE' (-1) {
dontSaveScreen,
acceptSuspendResumeEvents,
enableOptionSwitch,
canBackground, /* we can background; we don't currently, but our sleep value */
/* guarantees we don't hog the Mac while we are in the background */
multiFinderAware, /* this says we do our own activate/deactivate; don't fake us out */
backgroundAndForeground, /* this is definitely not a background-only application! */
dontGetFrontClicks, /* change this is if you want "do first click" behavior like the Finder */
ignoreChildDiedEvents, /* essentially, I'm not a debugger (sub-launching) */
not32BitCompatible, /* this app should not be run in 32-bit address space */
reserved,
reserved,
reserved,
reserved,
reserved,
reserved,
reserved,
__kPrefSize * 1024,
__kMinSize * 1024
};
type CREATOR as 'STR ';
resource CREATOR (0) {
"MultiFinder-Aware Simple Input/Output Window (SIOW)"
};
resource 'BNDL' (128) {
CREATOR,
0,
{
'ICN#',
{
0, 128
},
'FREF',
{
0, 128
}
}
};
resource 'FREF' (128) {
'APPL',
0,
""
};
resource 'ICN#' (128) {
{ /* array: 2 elements */
/* [1] */
$"0000 0000 0000 0000 0010 4100 0010 2200"
$"0020 2200 0020 2100 0020 4100 0010 4200"
$"0010 4200 0010 2200 0020 2100 0020 0100"
$"00FF FF00 03FF FFE0 0791 03F0 0ED1 0E7C"
$"1C31 321C 380D C10E 3FFF FFFE 3003 C106"
$"380D 300E 1E31 0E3C 1FC1 01F8 07FF FFE0"
$"00FF FE00",
/* [2] */
$"0000 0000 0000 0000 0010 4100 0010 2200"
$"0020 2200 0020 2100 0020 4100 0010 4200"
$"0010 4200 0010 2200 0020 2100 0020 0100"
$"00FF FF00 03FF FFE0 07FF FFF0 0FFF FFFC"
$"1FFF FFFC 3FFF FFFE 3FFF FFFE 3FFF FFFE"
$"3FFF FFFE 1FFF FFFC 1FFF FFF8 07FF FFE0"
$"00FF FE00"
}
};
resource 'ALRT' (__rSaveAlert, preload) {
{72, 64, 212, 372},
__rSaveAlert,
{ /* array: 4 elements */
/* [1] */
OK, visible, silent,
/* [2] */
OK, visible, silent,
/* [3] */
OK, visible, silent,
/* [4] */
OK, visible, silent
}
};
resource 'DITL' (__rSaveAlert, preload) {
{ /* array DITLarray: 4 elements */
/* [1] */
{58, 25, 76, 99},
Button {
enabled,
"Yes"
},
/* [2] */
{86, 25, 104, 99},
Button {
enabled,
"No"
},
/* [3] */
{12, 20, 45, 277},
StaticText {
disabled,
"Save changes before closing?"
},
/* [4] */
{86, 195, 104, 269},
Button {
enabled,
"Cancel"
}
}
};

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,25 @@
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 0074 4268 0000 0074" /* ..Monaco.tBh...t */
$"0001 E8C4 5287 7001 C086 67F6 2007 E148" /* ....R.p...g. ..H */
$"4840 0006 0004 002A 0003 0142 01E3 002A" /* H@.....*...B...* */
$"0003 0142 01E3 A431 DB30 0000 0000 0000" /* ...B...1.0...... */
$"0000 0000 0000 0100" /* ........ */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0000 0000 0000 0000 0000 0000" /* .............. */
};
data 'vers' (1) {
$"0320 8000 0000 0533 2E32 2E30 2833 2E32" /* . .....3.2.0(3.2 */
$"2E30 2C20 A920 4170 706C 6520 436F 6D70" /* .0, . Apple Comp */
$"7574 6572 2C20 496E 632E 2031 3938 352D" /* uter, Inc. 1985- */
$"3139 3932 2E" /* 1992. */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};

View File

@ -0,0 +1 @@
FNDRMACS

34293
BootableMPW/MPW Shell.rdump Normal file

File diff suppressed because it is too large Load Diff

2569
BootableMPW/MPW.Help Normal file

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,23 @@
data 'MPSR' (1005) {
$"000A 4D6F 6E61 636F 0000 0000 0000 0000" /* ..Monaco........ */
$"0000 0000 0000 0000 0000 0000 0000 0000" /* ................ */
$"0000 0006 0004 002A 0003 012D 01F7 002A" /* .......*...-...* */
$"0003 012D 01F7 A664 D9C0 0001 2A1C 0001" /* ...-...d....*... */
$"2ABD 0000 BE6A 0100" /* *....j.. */
};
data 'MPSR' (1008) {
$"002A 0003 012D 01F7 002A 0003 012D 01F7" /* .*...-...*...-.. */
$"0000 BE6A 0000 0000 0000 0000 0000" /* ...j.......... */
};
data 'vers' (2) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};
data 'vers' (1) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};

19
BootableMPW/Quit Normal file
View File

@ -0,0 +1,19 @@
# Quit - MPW Shell Quit File
#
# Copyright Apple Computer Inc. 1986-1988
# All Rights Reserved.
# Default tasks.
Save "{Worksheet}"
# Since Quit is distributed with MPW, you may want to have other
# "Quit" scripts that will not be overwritten with a new release.
# Other personalized quit scripts may be named Quit•≈ - such as
# "Quit•John" or "Quit•Tom" (• is option-8).
# These files should be located in the directory containing the MPW Shell.
For __Quit__i in `(Files "{ShellDirectory}"Quit•≈ || Set Status 0) ≥ dev:null`
Execute "{__Quit__i}"
End

1
BootableMPW/Quit.idump Normal file
View File

@ -0,0 +1 @@
TEXTMPS

24
BootableMPW/Quit.rdump Normal file
View File

@ -0,0 +1,24 @@
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 007D 7D7D 7D7D 7D7D" /* ..Monaco.}}}}}}} */
$"7D7D 7D7D 7D7D 7D7D 7D7D 7D7D 7D7D 7D7D" /* }}}}}}}}}}}}}}}} */
$"7D7D 0006 0004 002A 0003 0142 01E3 002A" /* }}.....*...B...* */
$"0003 0142 01E3 A431 E940 0000 0000 0000" /* ...B...1.@...... */
$"0000 0000 001F 0100" /* ........ */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 001F 0000 0000 0000 0000 0000" /* .............. */
};
data 'vers' (1, purgeable) {
$"0320 2000 0000 0333 2E32 2533 2E32 2C20" /* . ....3.2%3.2, */
$"A920 4170 706C 6520 436F 6D70 7574 6572" /* . Apple Computer */
$"2C20 496E 632E 2031 3938 352D 3139 3932" /* , Inc. 1985-1992 */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};

13
BootableMPW/Resume Normal file
View File

@ -0,0 +1,13 @@
# Resume - MPW Shell Resume File
#
# Copyright Apple Computer Inc. 1986-1988
# All Rights Reserved.
# Restore all variables, exports, aliases, menus, and windows; and restore
# the current directory.
Execute "{ShellDirectory}MPW.SuspendState"
# Removed to see who complains - L. You 2/9/90
# Delete "{ShellDirectory}MPW.SuspendState"
# User tasks.

1
BootableMPW/Resume.idump Normal file
View File

@ -0,0 +1 @@
TEXTMPS

25
BootableMPW/Resume.rdump Normal file
View File

@ -0,0 +1,25 @@
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 0000 202F 0004 671C" /* ..Monaco.. /..g. */
$"2040 2240 343C 00FF 1210 10C0 1001 57CA" /* @"@4<........W. */
$"FFF8 0006 0004 002A 0003 0142 01E3 002A" /* .......*...B...* */
$"0003 0142 01E3 A431 E940 0000 0000 0000" /* ...B...1.@...... */
$"0000 0000 0000 0100" /* ........ */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0000 0000 0000 0000 0000 0000" /* .............. */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};
data 'vers' (1) {
$"0320 8000 0000 0333 2E32 2633 2E32 2C20" /* . .....3.2&3.2, */
$"A920 4170 706C 6520 436F 6D70 7574 6572" /* . Apple Computer */
$"2C20 496E 632E 2031 3938 352D 3139 3931" /* , Inc. 1985-1991 */
$"2E" /* . */
};

View File

@ -0,0 +1,46 @@
# BuildCommands - show build commands
#
# Usage:
# BuildCommands program [options…] > commands
#
# The BuildCommands script writes the build commands for the specified
# program (or target) to standard output.
#
# Make is used to generate the build commands. If file <program>.make
# exists it is used as the makefile. If not, file MakeFile is used.
#
# The options specified are passed directly to Make, and control the
# generation of the build commands.
#
#
# Copyright Apple Computer, Inc. 1987 - 1990
# All rights reserved.
# Find the program parameter.
Unset program
For i In {"Parameters"}
If "{i}" !~ /-≈/
Set program "{i}"
Break
End
End
If "{program}" == ""
Echo "### {0} - Specify a program to build." > Dev:StdErr
Echo "# Usage - {0} program [options…]" > Dev:StdErr
Exit 1
End
# Select the makefile.
Set makefile `(Files -t TEXT "{program}".make || ∂
Files -t TEXT MakeFile || Echo '""') ≥ Dev:Null`
If "{makefile}" == ""
Echo "### {0} - No makefile exists for {program}." > Dev:StdErr
Exit 1
End
# Run Make.
Echo "# `Date -t` ----- Build commands for {program}."
Make {"Parameters"} -f "{makefile}"

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,53 @@
data 'cmdo' (128, "BuildCommands") {
$"0008 0001 00E7 4765 6E65 7261 7465 2074" /* ......Generate t */
$"6865 2062 7569 6C64 2063 6F6D 6D61 6E64" /* he build command */
$"7320 666F 7220 7468 6520 7370 6563 6966" /* s for the specif */
$"6965 6420 7072 6F67 7261 6D20 286F 7220" /* ied program (or */
$"7461 7267 6574 292E 0000 0005 0000 0450" /* target)........P */
$"726F 6772 616D 204E 616D 6500 0018 001E" /* rogram Name..... */
$"0028 0096 002B 0021 003B 00C8 0001 0045" /* .(...+.!.;.....E */
$"6E74 6572 2074 6865 206E 616D 6520 6F66" /* nter the name of */
$"2074 6865 2070 726F 6772 616D 2028 6F72" /* the program (or */
$"2074 6172 6765 7429 2E20 2044 6F20 6E6F" /* target). Do no */
$"7420 696E 636C 7564 6520 2E61 2C20 2E63" /* t include .a, .c */
$"2C20 2E70 2C20 6F72 202E 7220 7375 6666" /* , .p, or .r suff */
$"6978 6573 2E20 2028 5468 6973 2070 6172" /* ixes. (This par */
$"616D 6574 6572 2069 7320 7265 7175 6972" /* ameter is requir */
$"6564 2E29 0000 0101 0001 1100 0101 0001" /* ed.)............ */
$"044D 616B 6520 4F70 7469 6F6E 7300 0042" /* .Make Options..B */
$"001E 0052 0096 0055 0021 0065 00C8 0001" /* ...R...U.!.e.... */
$"0045 6E74 6572 204D 616B 6520 6F70 7469" /* .Enter Make opti */
$"6F6E 7320 7573 6564 2074 6F20 636F 6E74" /* ons used to cont */
$"726F 6C20 7468 6520 6765 6E65 7261 7469" /* rol the generati */
$"6F6E 206F 6620 7468 6520 6275 696C 6420" /* on of the build */
$"636F 6D6D 616E 6473 2E20 2054 6865 206F" /* commands. The o */
$"7074 696F 6E20 2D65 2073 7065 6369 6669" /* ption -e specifi */
$"6573 2061 2066 756C 6C20 6275 696C 642E" /* es a full build. */
$"0000 0000 0B00 001A 0154 0000 0B01 0044" /* .........T.....D */
$"0154" /* .T */
};
data 'vers' (1, purgeable) {
$"0310 8000 0000 0333 2E31 2433 2E31 2C20" /* .......3.1$3.1, */
$"A920 4170 706C 6520 436F 6D70 7574 6572" /* . Apple Computer */
$"2C20 496E 632E 2C20 3139 3835 2D39 30" /* , Inc., 1985-90 */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 006C 6F73 6500 4D50" /* ..Monaco.lose.MP */
$"5720 5363 7269 7074 733A 4275 696C 6443" /* W Scripts:BuildC */
$"6F6D 0006 0004 002A 0003 0142 01E3 002A" /* om.....*...B...* */
$"0003 0142 01E3 A431 E940 0000 0000 0000" /* ...B...1.@...... */
$"0000 0000 0000 0100" /* ........ */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0000 0000 0000 0000 0000 0000" /* .............. */
};

View File

@ -0,0 +1,67 @@
# BuildMenu - create the Build menu
#
# Usage:
# BuildMenu
#
# BuildMenu creates the menu shown below.
#
# Build
#
# Create Build Commands…
# -------------------------
# Build… #B
# Full Build…
# Show Build Commands…
# Show Full Build Commands…
#
#
# Copyright Apple Computer, Inc. 1987 - 1990
# All rights reserved.
Set Exit 0
DeleteMenu Build ≥ Dev:Null
AddMenu Build 'Create Build Commands…' ∂
'Set NewProgram "`Commando CreateMake || Echo Set Status 0`"; ∂
Exit If "{NewProgram}" == ""; ∂
(Set Program `{NewProgram} ≥ "{ShellDirectory}"MPW.Errors ∂
|| Alert < "{ShellDirectory}"MPW.Errors`|| set status 0) ∑ Dev:Null'
AddMenu Build '(-' ''
AddMenu Build 'Build…/B' ∂
'Begin; ∂
Set NewProgram "`Request "Program Name?" -d "{Program}" || Echo '""'`"; ∂
Exit If "{NewProgram}" == ""; ∂
Set Program "{NewProgram}"; ∂
Open "{Worksheet}"; ∂
Echo; Echo; ∂
BuildProgram "{Program}"; ∂
End >> "{Worksheet}" ≥≥ Dev:StdOut'
AddMenu Build 'Full Build…' ∂
'Begin; ∂
Set NewProgram "`Request "Program Name?" -d "{Program}" || Echo '""'`"; ∂
Exit If "{NewProgram}" == ""; ∂
Set Program "{NewProgram}"; ∂
Open "{Worksheet}"; ∂
Echo; Echo; ∂
BuildProgram -e "{Program}"; ∂
End >> "{Worksheet}" ≥≥ Dev:StdOut'
AddMenu Build 'Show Build Commands…' ∂
'Begin; ∂
Set NewProgram "`Request "Program Name?" -d "{Program}" || Echo '""'`"; ∂
Exit If "{NewProgram}" == ""; ∂
Set Program "{NewProgram}"; ∂
Open "{Worksheet}"; ∂
Echo; Echo; ∂
BuildCommands "{Program}"; ∂
End >> "{Worksheet}" ≥≥ Dev:StdOut'
AddMenu Build 'Show Full Build Commands…' ∂
'Begin; ∂
Set NewProgram "`Request "Program Name?" -d "{Program}" || Echo '""'`"; ∂
Exit If "{NewProgram}" == ""; ∂
Set Program "{NewProgram}"; ∂
Open "{Worksheet}"; ∂
Echo; Echo; ∂
BuildCommands -e "{Program}"; ∂
End >> "{Worksheet}" ≥≥ Dev:StdOut'
Exit 0

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,33 @@
data 'cmdo' (128, "BuildMenu") {
$"0008 0001 00BB 4372 6561 7465 2074 6865" /* ......Create the */
$"2042 7569 6C64 206D 656E 752E 2020 4275" /* Build menu. Bu */
$"696C 644D 656E 7520 646F 6573 206E 6F74" /* ildMenu does not */
$"2074 616B 6520 7061 7261 6D65 7465 7273" /* take parameters */
$"206F 7220 6F70 7469 6F6E 732E 0000 0001" /* or options..... */
$"0000 0B01 0018 0154" /* .......T */
};
data 'vers' (1, purgeable) {
$"0310 8000 0000 0333 2E31 2433 2E31 2C20" /* .......3.1$3.1, */
$"A920 4170 706C 6520 436F 6D70 7574 6572" /* . Apple Computer */
$"2C20 496E 632E 2C20 3139 3835 2D39 30" /* , Inc., 1985-90 */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 000A 01EA 7FFF 01AF" /* ..Monaco........ */
$"007A 0218 7FFF 01B0 0219 0228 7FFF 01BF" /* .z.........(.... */
$"007A 0006 0004 002A 0003 0142 01E3 002A" /* .z.....*...B...* */
$"0003 0142 01E3 A431 E940 0000 0000 0000" /* ...B...1.@...... */
$"0000 0000 0000 0100" /* ........ */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0000 0000 0000 0000 0000 0000" /* .............. */
};

View File

@ -0,0 +1,64 @@
# BuildProgram - build the specified program
#
# Usage:
# BuildProgram program [options…] > log
#
# The BuildProgram script builds the specified program (or target).
# A simple transcript of the build is written to standard output.
#
# Make is used to generate the build commands. If file <program>.make
# exists it is used as the makefile. If not, file MakeFile is used.
#
# The options specified are passed directly to Make, and control the
# generation of the build commands.
#
#
# Copyright Apple Computer, Inc. 1987 - 1990
# All rights reserved.
Set Exit 1
# Find the program parameter.
Unset program
For i In {"Parameters"}
If "{i}" !~ /-≈/
Set program "{i}"
Break
End
End
If "{program}" == ""
Echo "### {0} - Specify a program to build." > Dev:StdErr
Echo "# Usage - {0} program [options…]" > Dev:StdErr
Exit 1
End
# Select the makefile.
Set makefile `(Files -t TEXT "{program}".make || ∂
Files -t TEXT MakeFile || Echo '""') ≥ Dev:Null`
If "{makefile}" == ""
Echo "### {0} - No makefile exists for {program}." > Dev:StdErr
Exit 1
End
# Run Make, then execute its output.
Echo "# `Date -t` ----- Build of {program}."
Echo "# `Date -t` ----- Analyzing dependencies."
Begin
Echo "Set Echo 1"
Make {"Parameters"} -f "{makefile}"
End > "{program}".makeout
Echo "# `Date -t` ----- Executing build commands."
"{program}".makeout
Delete "{program}".makeout
Echo "# `Date -t` ----- Done."
Set type "`files -i -n -x t "{program}" ≥ Dev:Null || Set Status 0`"
If "{type}" =~ /≈ APPL/ OR "{type}" =~ /≈ MPST/ # application or tool
Echo -n ∂t; Quote -n "{program}"; Echo -n " "
Else If "{type}" =~ /≈ DFIL/ # desk accessory
Echo -n ∂t
Quote -n "Font/DA Mover" "{SystemFolder}"System "{program}";
Echo -n " # Install DA"
End

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,52 @@
data 'cmdo' (128, "BuildProgram") {
$"0008 0001 00E7 4275 696C 6420 7468 6520" /* ......Build the */
$"7370 6563 6966 6965 6420 7072 6F67 7261" /* specified progra */
$"6D20 286F 7220 7461 7267 6574 292E 2020" /* m (or target). */
$"5772 6974 6520 6120 7369 6D70 6C65 206C" /* Write a simple l */
$"6F67 2074 6F20 7374 616E 6461 7264 206F" /* og to standard o */
$"7574 7075 742E 0000 0005 0000 0450 726F" /* utput........Pro */
$"6772 616D 204E 616D 6500 0018 001E 0028" /* gram Name......( */
$"0096 002B 0021 003B 00C8 0001 0045 6E74" /* ...+.!.;.....Ent */
$"6572 2074 6865 206E 616D 6520 6F66 2074" /* er the name of t */
$"6865 2070 726F 6772 616D 2028 6F72 2074" /* he program (or t */
$"6172 6765 7429 2074 6F20 6265 2062 7569" /* arget) to be bui */
$"6C74 2E20 2044 6F20 6E6F 7420 696E 636C" /* lt. Do not incl */
$"7564 6520 2E61 2C20 2E63 2C20 2E70 2C20" /* ude .a, .c, .p, */
$"6F72 202E 7220 7375 6666 6978 6573 2E20" /* or .r suffixes. */
$"2028 5468 6973 2070 6172 616D 6574 6572" /* (This parameter */
$"2069 7320 7265 7175 6972 6564 2E29 0000" /* is required.).. */
$"0101 0001 1100 0101 0001 044D 616B 6520" /* ...........Make */
$"4F70 7469 6F6E 7300 0042 001E 0052 0096" /* Options..B...R.. */
$"0055 0021 0065 00C8 0001 0045 6E74 6572" /* .U.!.e.....Enter */
$"204D 616B 6520 6F70 7469 6F6E 7320 7573" /* Make options us */
$"6564 2074 6F20 636F 6E74 726F 6C20 7468" /* ed to control th */
$"6520 6275 696C 642E 2020 5468 6520 6F70" /* e build. The op */
$"7469 6F6E 202D 6520 7370 6563 6966 6965" /* tion -e specifie */
$"7320 6120 6675 6C6C 2062 7569 6C64 2E00" /* s a full build.. */
$"0000 0B00 001A 0154 0000 0B01 0044 0154" /* .......T.....D.T */
};
data 'vers' (1, purgeable) {
$"0310 8000 0000 0333 2E31 2433 2E31 2C20" /* .......3.1$3.1, */
$"A920 4170 706C 6520 436F 6D70 7574 6572" /* . Apple Computer */
$"2C20 496E 632E 2C20 3139 3835 2D39 30" /* , Inc., 1985-90 */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 0009 0909 0031 01EA" /* ..Monaco.....1.. */
$"0149 000A 0149 01EA 01AF 007A 01AF 0218" /* .I...I.....z.... */
$"01B0 0006 0004 002A 0003 0142 01E3 002A" /* .......*...B...* */
$"0003 0142 01E3 A431 E940 0000 0000 0000" /* ...B...1.@...... */
$"0000 0000 0000 0100" /* ........ */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0000 0000 0000 0000 0000 0000" /* .............. */
};

View File

@ -0,0 +1,330 @@
# CompareFiles -
# Compare two source files and show the differences
#
# Version 3.2.2
#
# Usage:
# CompareFiles [-9 | -LC -13 | -16 | -Portrait | -TwoPage | -b x y | -r t,l,b,r] oldFile newFile - open up the files and add menu
# -9 use 9 inch screen (512 x 342)
# -13 use 13 inch screen (640 x 480)
# -16 use 16 inch screen (832 x 624)
# -LC use 12 inch screen (
# -Portrait use 15 inch screen (640 x 870)
# -TwoPage use 21 inch screen (1152 x 870)
# -b x y use screen dimensions given in x y
# -r t,l,b,r use screen rect given by Top,Left,Bottom,Right
# default is -13
# NOTE:
# Order of parameters is important
# No error checking is done on x y coordinates
#
# Returns:
# Status = 0 - files match
# Status = 1 - syntax error
# Status = 2 - files differ (this is the same status as the Compare tool)
#
# CompareFiles will compare two files, and if they don't match it will
# bring them both up on the screen and put them side by side. A menu will be
# appended to the menu bar to go through the changes. When all the changes
# have been shown, the file windows will be restored and closed.
#
# The differences are shown from bottom to top so that if any changes are made
# in the files, the line offsets are not messed up.
#
# This creates two temporary files {ShellDirectory}Compare_File and
# {ShellDirectory}Compare_State.
# These are deleted on exit.
#
# Copyright Apple Computer, Inc. 1988 - 1992
# All rights reserved.
#
#
# Understanding the code…
#
# CompareFiles is actually a few scripts rolled into one. The action
# depends on the parameters. Here is what happens:
#
# CompareFiles oldFile newFile
# Do the actual compare
# If there are differences, it will
# Create a script to execute on quit
# Move the windows around next to each other
# Create the Compare Menu
# Call itself with -n
# CompareFiles -n - show next change
# CompareFiles -old - Paste change from old into new
# CompareFiles -new - Paste change from new into old
# CompareFiles -q - execute quit script
#
Set Exit 0
Set ErrorMessage "### CompareFiles - Incorrect order, or missing or illegal option"
Set Usage "# Usage - CompareFiles [-9 | -LC | -13 | -16 | -Portrait | -TwoPage | -b x y | -r t,l,b,r] oldFile newFile"
# Get rid of display spec if entering the script from a menu command
# This is to allow aliasing of "CompareFiles" to "CompareFiles screenSpec"
If (( ∂
"{1}" =~ /-b/ ∂
) ∂
&& ∂
( ∂
"{4}" =~ /-n/ ∂
|| "{4}" =~ /-old/ ∂
|| "{4}" =~ /-new/ ∂
|| "{4}" =~ /-q/ ∂
))
Shift 3 # Remove "-b x y" from command line parameters
Else If (( ∂
"{1}" =~ /-r/ ∂
) ∂
&& ∂
( ∂
"{3}" =~ /-n/ ∂
|| "{3}" =~ /-old/ ∂
|| "{3}" =~ /-new/ ∂
|| "{3}" =~ /-q/ ∂
))
Shift 2 # Remove "-r t,l,b,r" from command line parameters
Else If ∂
(( ∂
"{1}" =~ /-9/ ∂
|| "{1}" =~ /-LC/ ∂
|| "{1}" =~ /-13/ ∂
|| "{1}" =~ /-16/ ∂
|| "{1}" =~ /-Portrait/ ∂
|| "{1}" =~ /-SkyHawk/ ∂
|| "{1}" =~ /-TwoPage/ ∂
|| "{1}" =~ /-Kong/ ∂
) ∂
&& ∂
( ∂
"{2}" =~ /-n/ ∂
|| "{2}" =~ /-old/ ∂
|| "{2}" =~ /-new/ ∂
|| "{2}" =~ /-q/ ∂
))
Shift
End
if "{1}" == "-n" #### Find next change
Find ¡1 "{ShellDirectory}"Compare_File # get past current line
Set MyStatus {Status}
if {MyStatus} != 0
Exit {MyStatus}
end
Find \###\ "{ShellDirectory}"Compare_File
if {Status} != 0 # end of change log
Beep
Confirm "No more changes. Are you done comparing these files?"
if {Status} == 0
DeleteMenu Compare
Close -n "{ShellDirectory}Compare_File" ≥ dev:null
"{ShellDirectory}Compare_State" ≥ dev:null
Delete "{ShellDirectory}Compare_File" ≥ dev:null
Delete "{ShellDirectory}Compare_State" ≥ dev:null
end
else
Find !1 "{ShellDirectory}"Compare_File # select entire line
Mark -y § Current_Line "{ShellDirectory}"Compare_File
Execute "{ShellDirectory}Compare_File.§"
end
else if "{1}" == "-q" #### Quit
DeleteMenu Compare
Close -n "{ShellDirectory}Compare_File" ≥ dev:null
"{ShellDirectory}Compare_State" ≥ dev:null
Delete "{ShellDirectory}Compare_File" ≥ dev:null
Delete "{ShellDirectory}Compare_State" ≥ dev:null
else if "{1}" == "-old" #### Copy selection from old to new (target to active)
Find Current_Line "{ShellDirectory}"Compare_File # re-sync the two files
Set MyStatus {Status}
if {MyStatus} != 0
Exit {MyStatus}
end
Execute "{ShellDirectory}Compare_File.§"
Set selChars `Position -c "{Target}"` # see if we need to copy/paste or just cut
(Evaluate {selChars} =~ /([0-9]+)®1,([0-9]+)®2/ ) ∑ dev:null
if {®1} == {®2}
Cut § "{Active}"
else
Copy § "{Target}"
Mark -y § Compare_Mark "{Active}"
Paste § "{Active}"
Find Compare_Mark "{Active}"
Unmark Compare_Mark "{Active}"
end
else if "{1}" == "-new" #### Copy selection from new to old (active to target)
Find Current_Line "{ShellDirectory}"Compare_File # re-sync the two files
Set MyStatus {Status}
if {MyStatus} != 0
Exit {MyStatus}
end
Execute "{ShellDirectory}Compare_File.§"
Set selChars `Position -c "{Active}"` # see if we need to copy/paste or just cut
(Evaluate {selChars} =~ /([0-9]+)®1,([0-9]+)®2/ ) ∑ dev:null
if {®1} == {®2}
Cut § "{Target}"
else
Copy § "{Active}"
Mark -y § Compare_Mark "{Target}"
Paste § "{Target}"
Find Compare_Mark "{Target}"
Unmark Compare_Mark "{Target}"
end
else #### Compare the files and set up menu
Set Left 7 # default the left edge of the windows
if "{1}" == "-b" || "{1}" == "-B" # user specified size
if {#} != 5
echo "{ErrorMessage}"
echo "{Usage}"
Exit 1
end > Dev:StdErr
Evaluate Right = {2} - 5
Evaluate Bottom = {3} - 140
Set TileRectangle "0,5,{Bottom},{Right}"
Evaluate Bottom = {Bottom} + 1
Evaluate Right = {Right} - 9
Shift 3
else if "{1}" == "-r"|| "{1}" == "-R" # custom user-specified rect
if {#} != 4
echo "{ErrorMessage}"
echo "{Usage}"
Exit 1
end > Dev:StdErr
(Evaluate "{2}" =~ /(≈)®1,(≈)®2,(≈)®3,(≈)®4/) >Dev:Null
Set Top "{®1}"
Set Left "{®2}"
Set Bottom "{®3}"
Set Right "{®4}"
Evaluate Bottom = {Bottom} - 120
Set TileRectangle "{Top}, {Left}, {Bottom}, {Right}"
Evaluate Bottom = {Bottom} + 1
Evaluate Left = {Left} + 2
Evaluate Right = {Right} - {Left} - 2
Shift 2
else if "{1}" == "-9" # Mac+ and MacSE screen
if {#} != 3
echo "{ErrorMessage}"
echo "{Usage}"
Exit 1
end > Dev:StdErr
Set TileRectangle "0, 3, 198, 510"
Set Bottom 199
Set Right 500
Shift 1
else if "{1}" =~ /-LC/ # LC 12" RGB screen
if {#} != 3
echo "{ErrorMessage}"
echo "{Usage}"
Exit 1
end > Dev:StdErr
Set TileRectangle "0, 3, 240, 510"
Set Bottom 241
Set Right 500
Shift 1
else if "{1}" == "-13" # MacII screen
if {#} != 3
echo "{ErrorMessage}"
echo "{Usage}"
Exit 1
end > Dev:StdErr
Set TileRectangle "0, 5, 344, 635"
Set Bottom 345
Set Right 626
Shift 1
else if "{1}" == "-16" # Apple 16" screen
if {#} != 3
echo "{ErrorMessage}"
echo "{Usage}"
Exit 1
end > Dev:StdErr
Set TileRectangle "0, 5, 482, 828"
Set Bottom 483
Set Right 819
Shift 1
else if "{1}" =~ /-SkyHawk/ || "{1}" =~ /-Portrait/ # Apple Macintosh Portrait Display
if {#} != 3
echo "{ErrorMessage}"
echo "{Usage}"
Exit 1
end > Dev:StdErr
Set TileRectangle "0, 5, 749, 635"
Set Bottom 750
Set Right 626
Shift 1
else if "{1}" =~ /-Kong/ || "{1}" =~ /-TwoPage/ # Apple Two-Page Monochrome Monitor
if {#} != 3
echo "{ErrorMessage}"
echo "{Usage}"
Exit 1
end > Dev:StdErr
Set TileRectangle "0, 5, 749, 1148"
Set Bottom 750
Set Right 1138
Shift 1
else # MacII screen (default)
if {#} != 2
echo "{ErrorMessage}"
echo "{Usage}"
Exit 1
end > Dev:StdErr
Set TileRectangle "0, 5, 344, 635"
Set Bottom 345
Set Right 626
end
Compare -b -m "{1}" "{2}" > "{ShellDirectory}"Compare_File
Set MyStatus {Status}
if {MyStatus} == 2 # Files don't match - set everything up
Set 1 "`Files -f -q "{1}"`"
Set 2 "`Files -f -q "{2}"`"
Set openFile1 0
Set openFile2 0
for i in `windows` # Remember if either file is already open
if "{i}" == "{1}"
Set openFile1 1
else if "{i}" == "{2}"
Set openFile2 1
end
end
if {openFile1} == 0
Open "{1}"
end
if {openFile2} == 0
Open "{2}"
end
Begin # Create end script
MoveWindow "{1}" # Get the current window states
SizeWindow "{1}"
MoveWindow "{2}"
SizeWindow "{2}"
if {openFile1} == 0
Echo Close ∂""{1}"∂"
end
if {openFile2} == 0
Echo Close ∂""{2}"∂"
end
End > "{ShellDirectory}"Compare_State
AddMenu Compare 'Find Next Change/ƒ' 'CompareFiles "-n"'
AddMenu Compare '(-1' ''
AddMenu Compare 'Copy Selection »»' 'CompareFiles "-old"'
AddMenu Compare '«« Copy Selection ' 'CompareFiles "-new"'
AddMenu Compare '(-2' ''
AddMenu Compare 'Done' 'CompareFiles "-q"'
Open "{ShellDirectory}"Compare_File
Find ∞ "{ShellDirectory}"Compare_File
TileWindows -v -r "{TileRectangle}" "{1}" "{2}"
MoveWindow {Left} {Bottom} "{ShellDirectory}"Compare_File
SizeWindow {Right} 75 "{ShellDirectory}"Compare_File
CompareFiles "-n"
else if {MyStatus} == 0
Echo "### Files are equal: {1} - {2}"
Delete -i "{ShellDirectory}Compare_File" ≥ dev:null
end > Dev:StdOut
Exit "{MyStatus}"
end

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,136 @@
data 'vers' (1, purgeable) {
$"0322 8000 0000 0533 2E32 2E32 2633 2E32" /* .".....3.2.2&3.2 */
$"2E32 2C20 A941 7070 6C65 2043 6F6D 7075" /* .2, .Apple Compu */
$"7465 722C 2049 6E63 2E20 3139 3837 2D31" /* ter, Inc. 1987-1 */
$"3939 32" /* 992 */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};
data 'cmdo' (256, "CompareFiles") {
$"0008 0001 0114 436F 6D70 6172 6546 696C" /* ......CompareFil */
$"6573 2077 696C 6C20 636F 6D70 6172 6520" /* es will compare */
$"7477 6F20 6669 6C65 7320 7573 696E 6720" /* two files using */
$"7468 6520 436F 6D70 6172 6520 546F 6F6C" /* the Compare Tool */
$"2E20 2049 6620 7468 6572 6520 6172 6520" /* . If there are */
$"6469 6666 6572 656E 6365 732C 2074 6865" /* differences, the */
$"2074 776F 2066 696C 6573 2077 696C 6C20" /* two files will */
$"6265 2064 6973 706C 6179 6564 2073 6964" /* be displayed sid */
$"6520 6279 2073 6964 652E 2020 416E 2061" /* e by side. An a */
$"6464 6974 696F 6E61 6C20 6D65 6E75 2077" /* dditional menu w */
$"696C 6C20 6265 2061 7070 656E 6465 6420" /* ill be appended */
$"746F 2074 6865 206D 656E 7520 6261 7220" /* to the menu bar */
$"666F 7220 6865 6C70 2069 6E20 7669 6577" /* for help in view */
$"696E 6720 7468 6520 6469 6666 6572 656E" /* ing the differen */
$"6365 732E 0000 000E 0000 0302 0022 0088" /* ces..........".. */
$"0032 0118 5374 616E 6461 7264 2053 6372" /* .2..Standard Scr */
$"6565 6E00 0001 5573 6520 7468 6973 2062" /* een...Use this b */
$"7574 746F 6E20 746F 2065 6E61 626C 6520" /* utton to enable */
$"7468 6520 7374 616E 6461 7264 2073 6372" /* the standard scr */
$"6565 6E20 7369 7A65 2073 656C 6563 7469" /* een size selecti */
$"6F6E 2062 7574 746F 6E73 2E00 0022 0138" /* on buttons...".8 */
$"0032 01CC 4375 7374 6F6D 2053 6372 6565" /* .2..Custom Scree */
$"6E00 0000 5573 6520 7468 6973 2062 7574" /* n...Use this but */
$"746F 6E20 746F 2065 6E61 626C 6520 7468" /* ton to enable th */
$"6520 6375 7374 6F6D 2073 6372 6565 6E20" /* e custom screen */
$"7369 7A65 2073 656C 6563 7469 6F6E 2062" /* size selection b */
$"7574 746F 6E73 2E00 0201 1001 0306 0040" /* uttons.........@ */
$"0088 0050 0118 4D61 6369 6E74 6F73 6820" /* ...P..Macintosh */
$"506C 7573 2F53 4500 2D39 0000 5365 6C65" /* Plus/SE.-9..Sele */
$"6374 2074 6869 7320 6275 7474 6F6E 2069" /* ct this button i */
$"6620 796F 7520 6172 6520 7573 696E 6720" /* f you are using */
$"7468 6520 7374 616E 6461 7264 2073 6372" /* the standard scr */
$"6565 6E20 6F66 2061 204D 6163 696E 746F" /* een of a Macinto */
$"7368 2050 6C75 732C 204D 6163 696E 746F" /* sh Plus, Macinto */
$"7368 2053 452C 206F 7220 4D61 6369 6E74" /* sh SE, or Macint */
$"6F73 6820 436C 6173 7369 6300 0050 0088" /* osh Classic..P.. */
$"0060 0118 4D61 6369 6E74 6F73 6820 4C43" /* .`..Macintosh LC */
$"2F49 4973 6900 2D4C 4300 0053 656C 6563" /* /IIsi.-LC..Selec */
$"7420 7468 6973 2062 7574 746F 6E20 6966" /* t this button if */
$"2079 6F75 2061 7265 2075 7369 6E67 2074" /* you are using t */
$"6865 2073 7461 6E64 6172 6420 636F 6C6F" /* he standard colo */
$"7220 7363 7265 656E 206F 6620 6120 4D61" /* r screen of a Ma */
$"6369 6E74 6F73 6820 4C43 206F 7220 4949" /* cintosh LC or II */
$"7369 2E20 2831 3220 696E 6368 2052 4742" /* si. (12 inch RGB */
$"2900 0060 0088 0070 0118 4D61 6369 6E74" /* )..`...p..Macint */
$"6F73 6820 4949 0000 0153 656C 6563 7420" /* osh II...Select */
$"7468 6973 2062 7574 746F 6E20 6966 2079" /* this button if y */
$"6F75 2061 7265 2075 7369 6E67 2061 6E20" /* ou are using an */
$"4170 706C 6520 6F72 2041 7070 6C65 436F" /* Apple or AppleCo */
$"6C6F 7220 4D6F 6E69 746F 722E 0000 0070" /* lor Monitor....p */
$"0088 0080 0118 4D61 6369 6E74 6F73 6820" /* ......Macintosh */
$"3136 2220 5247 4200 2D31 3600 0053 656C" /* 16" RGB.-16..Sel */
$"6563 7420 7468 6973 2062 7574 746F 6E20" /* ect this button */
$"6966 2079 6F75 2061 7265 2075 7369 6E67" /* if you are using */
$"2074 6865 2041 7070 6C65 204D 6163 696E" /* the Apple Macin */
$"746F 7368 2031 3622 2052 4742 2044 6973" /* tosh 16" RGB Dis */
$"706C 6179 2E00 0080 0088 0090 0118 4D61" /* play..........Ma */
$"6369 6E74 6F73 6820 506F 7274 7261 6974" /* cintosh Portrait */
$"002D 506F 7274 7261 6974 0000 5365 6C65" /* .-Portrait..Sele */
$"6374 2074 6869 7320 6275 7474 6F6E 2069" /* ct this button i */
$"6620 796F 7520 6172 6520 7573 696E 6720" /* f you are using */
$"7468 6520 4170 706C 6520 4D61 6369 6E74" /* the Apple Macint */
$"6F73 6820 506F 7274 7261 6974 2044 6973" /* osh Portrait Dis */
$"706C 6179 2E00 0090 0088 00A0 0118 5477" /* play..........Tw */
$"6F2D 5061 6765 2044 6973 706C 6179 002D" /* o-Page Display.- */
$"5477 6F50 6167 6500 0053 656C 6563 7420" /* TwoPage..Select */
$"7468 6973 2062 7574 746F 6E20 6966 2079" /* this button if y */
$"6F75 2061 7265 2075 7369 6E67 2074 6865" /* ou are using the */
$"2041 7070 6C65 2054 776F 2D50 6167 6520" /* Apple Two-Page */
$"4469 7370 6C61 7920 6F72 2065 7175 6976" /* Display or equiv */
$"616C 656E 742E 0000 0101 2001 0302 0040" /* alent..... ....@ */
$"0138 0050 01CC 4C61 7267 6520 5363 7265" /* .8.P..Large Scre */
$"656E 002D 6200 0053 656C 6563 7420 7468" /* en.-b..Select th */
$"6973 2062 7574 746F 6E20 6966 2079 6F75" /* is button if you */
$"7220 7072 696D 6172 7920 6D6F 6E69 746F" /* r primary monito */
$"7220 6861 7320 616E 6F74 6865 7220 7363" /* r has another sc */
$"7265 656E 2073 697A 652E 2020 5468 656E" /* reen size. Then */
$"2065 6E74 6572 2074 6865 2073 697A 6520" /* enter the size */
$"6F66 2079 6F75 7220 7363 7265 656E 2069" /* of your screen i */
$"6E20 7468 6520 7465 7874 2062 6F78 6573" /* n the text boxes */
$"2E00 0070 0138 0080 01CC 5365 636F 6E64" /* ...p.8....Second */
$"6172 7920 5363 7265 656E 002D 7200 0053" /* ary Screen.-r..S */
$"656C 6563 7420 7468 6973 2062 7574 746F" /* elect this butto */
$"6E20 6966 2079 6F75 2077 6973 6820 746F" /* n if you wish to */
$"2075 7365 2061 2073 6563 6F6E 6461 7279" /* use a secondary */
$"2073 6372 6565 6E20 2054 6865 6E20 656E" /* screen Then en */
$"7465 7220 7468 6520 7265 6374 2079 6F75" /* ter the rect you */
$"2077 6973 6820 436F 6D70 6172 6546 696C" /* wish CompareFil */
$"6573 2074 6F20 7573 6520 666F 7220 7369" /* es to use for si */
$"6465 2D62 792D 7369 6465 2064 6973 706C" /* de-by-side displ */
$"6179 2E00 0201 1003 0400 0057 0145 0067" /* ay.........W.E.g */
$"0146 0057 014B 0067 017F 0001 0045 6E74" /* .F.W.K.g.....Ent */
$"6572 2074 6865 2077 6964 7468 206F 6620" /* er the width of */
$"796F 7572 2073 6372 6565 6E20 6865 7265" /* your screen here */
$"2E00 0201 0004 0400 0057 0186 0067 0187" /* .........W...g.. */
$"0057 0193 0067 01C7 0001 0045 6E74 6572" /* .W...g.....Enter */
$"2074 6865 2068 6569 6768 7420 6F66 2079" /* the height of y */
$"6F75 7220 7363 7265 656E 2068 6572 652E" /* our screen here. */
$"0000 0101 2003 0400 0087 0145 0097 0146" /* .... ......E...F */
$"0087 014B 0097 01C7 0001 0045 6E74 6572" /* ...K.......Enter */
$"2074 6865 2054 6F70 2C4C 6566 742C 426F" /* the Top,Left,Bo */
$"7474 6F6D 2C52 6967 6874 2076 616C 7565" /* ttom,Right value */
$"7320 6465 6669 6E69 6E67 2074 6865 2072" /* s defining the r */
$"6563 7420 746F 2075 7365 2028 636F 6D6D" /* ect to use (comm */
$"6173 2061 7265 2072 6571 7569 7265 6429" /* as are required) */
$"2E00 0000 0000 0001 0038 0014 004C 0078" /* .........8...L.x */
$"4F6C 6420 4669 6C65 C900 0053 656C 6563" /* Old File...Selec */
$"7420 7468 6520 226F 6C64 2220 6669 6C65" /* t the "old" file */
$"2066 6F72 2074 6865 2063 6F6D 7061 7269" /* for the compari */
$"736F 6E2E 0000 0000 0000 0100 5445 5854" /* son.........TEXT */
$"0000 0000 0001 006E 0014 0082 0078 4E65" /* .......n.....xNe */
$"7720 4669 6C65 C900 0053 656C 6563 7420" /* w File...Select */
$"7468 6520 226E 6577 2220 6669 6C65 2066" /* the "new" file f */
$"6F72 2074 6865 2063 6F6D 7061 7269 736F" /* or the compariso */
$"6E2E 0000 0000 0000 0100 5445 5854 0000" /* n.........TEXT.. */
$"0601 0039 0088 003A 01CC 0000 0601 003A" /* ...9...:.......: */
$"0128 00A2 0129 0000 0701 0016 0083 00A4" /* .(...).......... */
$"01D1 436F 6D70 7574 6572 2F4D 6F6E 6974" /* ..Computer/Monit */
$"6F72 0000 0202 0004 0005 1000 0108 1002" /* or.............. */
$"2002 3002 4002 5002 6002 0006 000C 1000" /* .0.@.P.`....... */
$"0203 0007 0008 000D 1100" /* .......... */
};

View File

@ -0,0 +1,153 @@
#
# CompareRevisions - Compare the revision in the named file with another revision
# of the same file.
#
# Usage: CompareRevisions file
#
# CompareRevisions compares the revision of the named file with another revision
# of the same file. If they don't match it brings them both up on the screen and
# puts them side by side. A menu is appended to the menu bar to go through
# the changes. When all the changes have been shown, the revision windows are
# restored and closed.
#
# The differences are shown from bottom to top so that if any changes are made
# in the files, the line offsets are not messed up.
#
# To add CompareRevisions to a menu, execute the following command:
#
# AddMenu Project 'CompareRevisions' 'CompareRevisions "{Active}" ∑∑ "{WorkSheet}"'
#
# This script creates three temporary files which are deleted on exit or abort.
# {ShellDirectory}Compare_File, {ShellDirectory}Compare_State and file,<rev>,
#
#
# NOTE:
# 1. CompareRevisions calls the script CompareFiles.
#
# © Apple Computer, Inc. 1988 - 1990
# All rights reserved.
Set Exit 0
Set error 0
Begin
# Check parameters.
If {#} ≠ 1
Echo "### Usage - {0} file"
Exit 0
End > Dev:StdErr
# Make sure the file exists
If "" == "`Exists -f "{1}"`"
Echo "### {0} - File ∂"{1}∂" not found"
Exit 4
End
# Break apart the pathname.
Set f "{1}"
If "{f}" =~ /(≈)®1:(≈)®2/
Set dir "{®1}:"
Set f "{®2}"
Else
Set dir `directory`
If "{dir}" =~ /(≈)®1:/
Set dir "{®1}:"
End
End
Set path "{dir}{f}"
# See if the file belongs to a project.
# Then find the name of the parent project.
(Set info "`ProjectInfo "{path}"`" || Set error 1)
(Evaluate "{info}" =~ /[¬,]+,([¬ ∂t+*∂']+)®4([+*]«0,1»)®1[∂']* ≈/
Evaluate "{info}" =~ /≈Project: (≈∫)®2 +Checked out≈/ ) >dev:null
If {error} ≠ 0 || "{info}" == ""
Alert "∂"{path}∂" doesnt belong to a project."
Exit 0
End
Set rev1 "{®4}"
# At this point:
# {®1} => '', '+', or '*'
# {®2} => project path
# {path} => file pathname
# {rev1} => revision
# {dir} => file directory path
# {f} => file leaf name
#
# Is the right project mounted?
(Set revList "`ProjectInfo -s -project "{®2}" "{f}"`") ≥dev:null
If "{revlist}" == ""
Alert "Project ∂"{®2}∂" is not mounted."
Exit 0
End
# Remove checked out ('+') revisions from the revision list.
Loop
If "`Evaluate " {revlist}" =~ /(≈)®7 (∂')«0,1»{f},[¬+]+∂+(∂')«0,1»(≈)®8/`"
Set revlist "{®7}{®8}"
Else
Break
End
End
# Remove the current revision from the revision list.
If ".{®1}" !~ /.[+*]/ && "`Evaluate " {revlist}" =~ /(≈[¬'])®7[∂']«0,1»{f},{rev1}[∂']«0,1»(≈)®8/`"
Set revlist "{®7}{®8}"
End > dev:null
If "{revlist}" =~ / */
Alert "No revisions to compare against."
Exit 4 # we're done if the rev list is null
End
# Request the number of the revision to be compared.
(Set rev2 "`GetListItem -r 8 -m "Compare ∂"{f},{rev1}{®1}∂" with:" -d {revList} ∂
|| Set error {Status}`")
If {error} == 0
(Evaluate "{rev2}" =~ /≈,(≈)®7/ ) >dev:null
Set rev2 "{®7}"
# Rename the active window so we can checkout a read-only copy of the
# revision we want to compare against. We'll have to change the name back.
# Find a temporary directory where I can checkout the file
Set coDir "{MPW}CompareRevisions.Dir:"
Delete -i -y "{coDir}"
NewFolder "{coDir}"
(Checkout "{f},{rev2}" -d "{coDir}" -project "{®2}" || Set error {Status})
If {error} ≠ 0
Alert "∂"{f},{rev2}∂" cant be checked out [{error}]."
Rename "{path},{rev1}{®1}" "{path}"
Delete -i -y "{coDir}"
Exit 0
End
Move "{coDir}{f}" "{path},{rev2}"
Delete -i -y "{coDir}"
# Compare the two files and then clean up.
CompareFiles "{path}" "{path},{rev2}" ∑ dev:null
Set MyStatus {Status}
If {MyStatus} == 2
Echo Delete ∂""{path},{rev2}"∂" >> "{ShellDirectory}Compare_State"
Else If {MyStatus} == 0
Alert "Revisions match."
Delete "{path},{rev2}"
End
End
End

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,36 @@
data 'cmdo' (323, "CompareRevisions") {
$"0008 0001 00AF 436F 6D70 6172 6520 7477" /* ......Compare tw */
$"6F20 7265 7669 7369 6F6E 7320 6F66 2061" /* o revisions of a */
$"2066 696C 6520 696E 2061 2070 726F 6A65" /* file in a proje */
$"6374 2E20 2054 6865 2070 726F 6A65 6374" /* ct. The project */
$"2069 7320 756E 6166 6665 6374 6564 2E00" /* is unaffected.. */
$"0001 0000 0000 0001 001E 00A1 0032 0141" /* .............2.A */
$"4669 6C65 2074 6F20 436F 6D70 6172 6500" /* File to Compare. */
$"0046 696C 6520 746F 2043 6F6D 7061 7265" /* .File to Compare */
$"0000 0000 0000 0100 5445 5854" /* ........TEXT */
};
data 'vers' (1, purgeable) {
$"0310 8000 0000 0333 2E31 2433 2E31 2C20" /* .......3.1$3.1, */
$"A920 4170 706C 6520 436F 6D70 7574 6572" /* . Apple Computer */
$"2C20 496E 632E 2C20 3139 3835 2D39 30" /* , Inc., 1985-90 */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 0009 0909 0000 0064" /* ..Monaco.......d */
$"0001 A6F4 002C FC18 FC18 019A 026B FC18" /* .....,.......k.. */
$"FC18 0006 0004 002A 0003 0142 01E3 002A" /* .......*...B...* */
$"0003 0142 01E3 A431 E940 0000 0000 0000" /* ...B...1.@...... */
$"0000 0000 0000 0100" /* ........ */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0000 0000 0000 0000 0000 0000" /* .............. */
};

View File

@ -0,0 +1,446 @@
# CreateMake - create a program makefile
#
# Usage:
# CreateMake ([ -Application] [ -c creator ] [-sym on] | -Tool [-sym on] |
# -DA | -CR -m mainEntryPoint -rt resourceType [ -t fileType ]
# [ -c creator ] [-sym on] | -SIOW [ -c creator] [ -sym on ])
# [ -mc68020 | -mc68881 | -elems881] program file…
#
# Script CreateMake creates a simple MakeFile for building the specified
# program. The program parameter is the name of the program. Makefile
# <program>.make is created. The default program type is Application.
# The program may be written in any combination of Assembly Language, C, C++
# Pascal, and/or Rez. The list of files may include both source in
# these languages and library object files that don't appear below.
#
# CreateMake links the program with the following set of MPW Libraries:
#
# Inside Macintosh Interfaces
# {Libraries}Interface.o
#
# Runtime support - one of the following:
# {Libraries}Stubs.o # building a tool
# {Libraries}Runtime.o # no C object files
#
# C Libraries - if any source is in C
# {CLibraries}StdCLib.o
# {CLibraries}CSANELib.o
# {CLibraries}Math.o
#
# C++ Libraries - if any source is in C++
# {Clibraries}Streams.o
# {Clibraries}CPlusLib.o
# {CLibraries}StdCLib.o
# {CLibraries}CSANELib.o
# {CLibraries}Math.o
#
# Pascal Libraries - if any source is in Pascal
# {PLibraries}PasLib.o
# {PLibraries}SANELib.o
#
# For tools:
# {Libraries}ToolLibs.o
#
# For desk accessories:
# {Libraries}DRVRRuntime.o
#
#
# Copyright Apple Computer, Inc. 1987 - 1992
# All rights reserved.
Set Exit 0
Set CaseSensitive 0
Set type Application
Set creator '????'
Set runtime '{Libraries}Runtime.o'
Set interface '{Libraries}Interface.o'
Set cFloatLib '{CLibraries}CSANELib.o {CLibraries}Math.o #{CLibraries}Complex.o'
Set cplusFloatLib '{CLibraries}CSANELib.o {CLibraries}Math.o ∂
{CLibraries}CplusLib.o #{CLibraries}Complex.o'
Set pFloatLib '{PLibraries}SANELib.o'
Unset sources clibs plibs toollibs DRVRRuntime resource objects program suffix typ
Unset cSeen tSeen rtSeen mSeen multipleType typeSpec CPls CLang symarg symseen compileOptions
Unset hardwardFloat cCompileOptions pCompileOptions multipleHWOptions
# Collect the script parameters.
Loop
Break if {#} == 0
If "{1}" =~ /-application/
Set type Application
Unset toollibs
If {typeSpec} == 0
Set typeSpec 1
Else
Set multipleType 1
End
shift 1
continue
Else If "{1}" =~ /-tool/
Set type Tool
Set toollibs '{Libraries}ToolLibs.o'
If {typeSpec} == 0
Set typeSpec 1
Else
Set multipleType 1
End
shift 1
continue
Else If "{1}" =~ /-da/
Set type DA
Unset toollibs
If {typeSpec} == 0
Set typeSpec 1
Else
Set multipleType 1
End
shift 1
continue
Else If "{1}" =~ /-cr/
Set type CR
Unset toollibs
If {typeSpec} == 0
Set typeSpec 1
Else
Set multipleType 1
End
shift 1
continue
Else If "{1}" =~ /-siow/
Set type SIOW
If {typeSpec} == 0
Set typeSpec 1
Else
Set multipleType 1
End
shift 1
continue
Else If "{1}" =~ /-mc68020/
If "{cCompileOptions}" == ""
set cCompileOptions "-mc68020 "
set pCompileOptions "-mc68020 "
Else
set multipleHWOptions 1
End
shift 1
continue
Else If "{1}" =~ /-mc68881/
If "{cCompileOptions}" == ""
set cCompileOptions "-mc68020 -mc68881 "
set pCompileOptions "-mc68020 -mc68881 "
set hardwareFloat 1
Else
set multipleHWOptions 1
End
shift 1
continue
Else If "{1}" =~ /-elems881/
If "{cCompileOptions}" == ""
set cCompileOptions "-mc68020 -mc68881 -elems881 "
set pCompileOptions "-mc68020 -mc68881 -d elems881=true "
set hardwareFloat 1
Else
set multipleHWOptions 1
End
shift 1
continue
Else If "{1}" =~ /-c/
set creator "{2}"
set cseen 1
shift 2
continue
Else If "{1}" =~ /-t/
set typ "{2}"
set tseen 1
shift 2
continue
Else If "{1}" =~ /-rt/
set rtype "{2}"
set rtseen 1
shift 2
continue
Else If "{1}" =~ /-m/
set mentry "{2}"
set mseen 1
shift 2
continue
Else If "{1}" =~ /-sym/
set symarg {2}
set symseen 1
shift 2
continue
Else If ("{1}" =~ /≈.[acpr]/ || "{1}" =~ /≈.cp/)
Set sources "{sources}'{1}' "
shift 1
continue
Else If "{1}" =~ /≈.[o]/
Set objects "{objects}'{1}' "
shift 1
continue
Else If "{program}" == "" && "{1}" !~ /-≈/
Set program "{1}"
shift 1
continue
Else If "{1}" =~ /-≈/
Echo "### {0} - ∂"{1}∂" is not an option." > Dev:StdErr
Echo "# Usage - {0} ([ -Application] [ -c creator ] [-sym on] | -Tool [-sym on] | ∂n ∂
-DA | -CR -m mainEntryPoint -rt resourceType [ -t fileType ] ∂n ∂
[ -c creator ] [-sym on] | -SIOW [ -sym on ]) ∂n ∂
[ -mc68020 | -mc68881 | -elems881] program file…" > Dev:StdErr
Exit 1
Else
Echo "### {0} - Files must end in .a, .c, .p, .cp, .r, or .o." > Dev:StdErr
Echo "# Usage - {0} ([ -Application] [ -c creator ] [-sym on] | -Tool [-sym on] | ∂n ∂
-DA | -CR -m mainEntryPoint -rt resourceType [ -t fileType ] ∂n ∂
[ -c creator ] [-sym on] | -SIOW [ -sym on ]) ∂n ∂
[ -mc68020 | -mc68881 | -elems881] program file…" > Dev:StdErr
Exit 1
End
End
If {type} == DA && {symseen}
Echo "### {0} - Option -sym not supported for desk accessory." > Dev:StdErr
Echo "# Usage - {0} ([ -Application] [ -c creator ] [-sym on] | -Tool [-sym on] | ∂n ∂
-DA | -CR -m mainEntryPoint -rt resourceType [ -t fileType ] ∂n ∂
[ -c creator ] [-sym on] | -SIOW [ -sym on ]) ∂n ∂
[ -mc68020 | -mc68881 | -elems881] program file…" > Dev:StdErr
Exit 1
End
If {type} == CR && ("{rtype}" == "" || "{mentry}" == "")
Echo "### {0} - Options -rt and -m are required for code resource." > Dev:StdErr
Echo "# Usage - {0} ([ -Application] [ -c creator ] [-sym on] | -Tool [-sym on] | ∂n ∂
-DA | -CR -m mainEntryPoint -rt resourceType [ -t fileType ] ∂n ∂
[ -c creator ] [-sym on] | -SIOW [ -sym on ]) ∂n ∂
[ -mc68020 | -mc68881 | -elems881] program file…" > Dev:StdErr
Exit 1
End
If "{program}" == ""
Echo "### {0} - A program name is required." > Dev:StdErr
Echo "### {0} - Don't include the .a, .c, .cp, or .p suffix." > Dev:StdErr
Echo "# Usage - {0} ([ -Application] [ -c creator ] [-sym on] | -Tool [-sym on] | ∂n ∂
-DA | -CR -m mainEntryPoint -rt resourceType [ -t fileType ] ∂n ∂
[ -c creator ] [-sym on] | -SIOW [ -sym on ]) ∂n ∂
[ -mc68020 | -mc68881 | -elems881] program file…" > Dev:StdErr
Exit 1
End
If "{sources}" == ""
Echo "### {0} - A source file is required." > Dev:StdErr
Echo "# Usage - {0} ([ -Application] [ -c creator ] [-sym on] | -Tool [-sym on] | ∂n ∂
-DA | -CR -m mainEntryPoint -rt resourceType [ -t fileType ] ∂n ∂
[ -c creator ] [-sym on] | -SIOW [ -sym on ]) ∂n ∂
[ -mc68020 | -mc68881 | -elems881] program file…" > Dev:StdErr
Exit 1
End
If {multipleType} != 0
Echo "### {0} - Only one of Application, DA, Tool, or CR may be specified." > Dev:StdErr
Echo "# Usage - {0} ([ -Application] [ -c creator ] [-sym on] | -Tool [-sym on] | ∂n ∂
-DA | -CR -m mainEntryPoint -rt resourceType [ -t fileType ] ∂n ∂
[ -c creator ] [-sym on] | -SIOW [ -sym on ]) ∂n ∂
[ -mc68020 | -mc68881 | -elems881] program file…" > Dev:StdErr
Exit 1
End
If {multipleHWOptions} != 0
Echo "### {0} - Only one of -mc68020, -mc68881, or -elems881 may be specified." > Dev:StdErr
Echo "# Usage - {0} ([ -Application] [ -c creator ] [-sym on] | -Tool [-sym on] | ∂n ∂
-DA | -CR -m mainEntryPoint -rt resourceType [ -t fileType ] ∂n ∂
[ -c creator ] [-sym on] | -SIOW [ -sym on ]) ∂n ∂
[ -mc68020 | -mc68881 | -elems881] program file…" > Dev:StdErr
Exit 1
End
If {cSeen} != 0 && ({type} == Tool || {type} == DA || {type} == SIOW)
Echo "### {0} - Warning: Option -c ignored for {type}." > Dev:StdErr
End
If {tseen} != 0 && {type} != CR
Echo "### {0} - Warning: Option -t ignored for {type}." > Dev:StdErr
End
If {rtseen} != 0 && {type} != CR
Echo "### {0} - Warning: Option -rt ignored for {type}." > Dev:StdErr
End
If {mseen} != 0 && {type} != CR
Echo "### {0} - Warning: Option -m ignored for {type}." > Dev:StdErr
End
If {type} == Tool
Set options "-d -c 'MPS ' -t 'MPST'"
Else If {type} == Application
Set options " -t 'APPL' -c '{creator}'"
Else If {type} == SIOW
Set options "-d -c '????' -t 'APPL'"
End
# Create the heading at the top of the makefile.
Begin
Echo -n '# File: '; Quote "{program}".make
Echo -n '# Target: '; Quote "{program}"
If "{sources}" =~ /≈«1,80»/
Echo -n '# Sources: '; Quote {sources}
Else
Set heading '# Sources: '
For i In {sources}
Echo -n "{heading}"
Quote "{i}"
Set heading '# '
End
End
Echo -n '# Created: '; Date
Echo
Echo
# Create list of implicit objects
For file in {sources}
If "{file}" =~ /≈.[acp]/ || "{file}" =~ /≈.cp/
Set objects "{objects} '{file}.o' "
End
End
# generate OBJECTS definitions
quote -n OBJECTS =
If "{objects}" =~ /?«1,80»/
Echo -n " "; Quote {objects}
Else
For i In {objects}
Echo ' ∂'
Echo -n ∂t∂t; Quote -n "{i}"
End
Echo
End
Echo
# Set up library definitions and link options
If {symseen} == 1
Set compileOptions "-sym {symarg}"
End
If {hardwareFloat} == 1
Set cFloatLib '{CLibraries}Clib881.o {CLibraries}CSANELib881.o {CLibraries}Math881.o ∂
#{CLibraries}Complex881.o'
Set cplusFloatLib '{CLibraries}Clib881.o {CLibraries}CSANELib881.o {CLibraries}Math881.o ∂
{CLibraries}CplusLib881.o #{CLibraries}Complex881.o'
Set pFloatLib '{PLibraries}SANELib881.o'
End
Echo
For file in {sources}
If "{file}" =~ /≈.c/
Set CLang 1
Else If "{file}" =~ /≈.cp/
Set CPls 1
Else If "{file}" =~ /≈.p/
Set plibs "{pFloatLib} ∂{PLibraries∂}PasLib.o"
End
End
If {CPls} == 1
Set clibs "{cplusFloatLib} ∂{CLibraries∂}StdCLib.o"
Else If {CLang} == 1
Set clibs "{cFloatLib} ∂{CLibraries∂}StdClib.o"
End
If {type} == Tool
set runtime "∂{Libraries∂}Stubs.o {runtime}"
End
If {type} == SIOW
set runtime "∂{Libraries∂}SIOW.o {runtime}"
End
For file in {sources}
If "{file}" =~ /≈.r/
Set resource "{file}"
End
End
# Generate rez call
For file in {sources}
If "{file}" =~ /≈.r/
If {type} == DA
Quote "{program}" ƒ "{program}".make "{program}".DRVW "{file}"
Echo -n ∂t; Quote Rez -rd -c DMOV -t DFIL -d NOASM_BUILD "{file}" -o "{program}"
Else
Quote "{program}" ƒƒ "{program}".make "{file}"
Echo -n ∂t; Quote Rez "{file}" -append -o "{program}"
If {type} == CR
Echo -n ∂t; Quote SetFile -a B "{program}"
Echo -n ∂t; Quote Duplicate -y "{program}" "{SystemFolder}"
End
End
End
End
Echo
If {type} == DA
If "{resource}" == ""
Set options "-t '????' -c '????' -rt DRVW=12 -sg '{program}'"
Else
Set options "-t '????' -c '????' -rt DRVW=0 -sg '{program}'"
End
Set DRVRruntime '{Libraries}DRVRRuntime.o'
Quote -n "{program}".DRVW ƒ "{program}".make
Echo ∂ ∂{OBJECTS∂}
Set suffix '.DRVW'
Else If {type} == CR
Quote -n "{program}" ƒƒ "{program}".make
Echo ∂ ∂{OBJECTS∂}
If {typ} == 0
set typ '????'
End
Set options "-t '{typ}' -c '{creator}' -rt '{rtype}' -m '{mentry}' ∂
-sg '{program}'"
Else
Quote -n "{program}" ƒƒ "{program}".make
Echo ∂ ∂{OBJECTS∂}
End
# Generate Link rule.
If {symseen} == 1
Set options "{options} -sym {symarg} -mf"
End
Echo -n ∂t; Quote -n Link {options}; Echo ' ∂'
If {type} == DA
Echo -n ∂t∂t
Echo -n {DRVRRuntime}; Echo ' ∂'
End
Echo -n ∂t∂t; Echo -n ∂{OBJECTS∂}; Echo ' ∂'
For i In {clibs} {runtime} {interface} {plibs} {toollibs}
If "{i}" =~ /(≈)®1(∂{≈∂})®2(≈)®3/ # contains {}s ?
Echo -n ∂t∂t; Echo "{®1}∂"{®2}∂"{®3}" ∂∂
Else
Echo -n ∂t∂t; Quote -n "{i}"; Echo ' ∂'
End
End
Echo -n ∂t∂t; Quote -o "{program}{suffix}"
# Generate Asm, C, C++, Pascal, and Rez rules.
For file in {sources}
If "{file}" =~ /≈.a/
Quote "{file}".o ƒ "{program}".make "{file}"
Echo -n ∂t Asm "{compileOptions} "; Quote "{file}"
Else If "{file}" =~ /≈.c/
Quote "{file}".o ƒ "{program}".make "{file}"
Echo -n ∂t C -r "{compileOptions} {cCompileOptions}"; Quote "{file}"
Else If "{file}" =~ /≈.cp/
Quote "{file}".o ƒ "{program}".make "{file}"
Echo -n ∂t CPlus "{compileOptions} {cCompileOptions}"; Quote "{file}"
Else If "{file}" =~ /≈.p/
Quote "{file}".o ƒ "{program}".make "{file}"
Echo -n ∂t Pascal "{compileOptions} {pCompileOptions}"; Quote "{file}"
End
End
If {type} == SIOW
Quote -n "{program}"; Echo ' 'ƒƒ ∂"∂{RIncludes∂}∂"SIOW.r
Echo -n ∂t; Echo Rez -a ∂"∂{RIncludes∂}∂"SIOW.r -o "{program}"
End
End > "{program}".make
Echo "{program}"

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,166 @@
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 007F E014 0000 2120" /* ..Monaco......! */
$"0000 0000 0000 2120 0000 0000 0000 043E" /* ......! .......> */
$"7FFF 0006 0004 002A 0003 0142 01E3 002A" /* .......*...B...* */
$"0003 0142 01E3 A653 EAD1 0000 0000 0000" /* ...B...S........ */
$"0000 0000 0000 0100" /* ........ */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0000 0000 0000 0000 0000 0000" /* .............. */
};
data 'cmdo' (128, "CreateMake") {
$"0008 0001 0120 4372 6561 7465 2061 2073" /* ..... Create a s */
$"696D 706C 6520 6D61 6B65 6669 6C65 2066" /* imple makefile f */
$"6F72 2062 7569 6C64 696E 6720 616E 2061" /* or building an a */
$"7070 6C69 6361 7469 6F6E 2C20 746F 6F6C" /* pplication, tool */
$"2C20 6F72 2064 6573 6B20 6163 6365 7373" /* , or desk access */
$"6F72 792E 2020 5468 6520 6D61 6B65 6669" /* ory. The makefi */
$"6C65 2069 7320 666F 7220 7573 6520 6279" /* le is for use by */
$"2074 6865 2042 7569 6C64 206D 656E 752E" /* the Build menu. */
$"0000 000D 0000 0450 726F 6772 616D 204E" /* .......Program N */
$"616D 6500 001D 000D 002D 0071 001D 0077" /* ame......-.q...w */
$"002D 011E 0001 0045 6E74 6572 2074 6865" /* .-.....Enter the */
$"206E 616D 6520 6F66 2074 6865 2070 726F" /* name of the pro */
$"6772 616D 2E20 2044 6F20 6E6F 7420 696E" /* gram. Do not in */
$"636C 7564 6520 2E61 2C20 2E63 2C20 2E63" /* clude .a, .c, .c */
$"702C 202E 702C 206F 7220 2E72 2073 7566" /* p, .p, or .r suf */
$"6669 7865 732E 2020 2020 4D61 6B65 6669" /* fixes. Makefi */
$"6C65 203C 6E61 6D65 3E2E 6D61 6B65 2077" /* le <name>.make w */
$"696C 6C20 6265 2063 7265 6174 6564 2E20" /* ill be created. */
$"2028 5468 6973 2070 6172 616D 6574 6572" /* (This parameter */
$"2069 7320 7265 7175 6972 6564 2E29 0000" /* is required.).. */
$"0104 1003 2003 4003 5003 0200 00A0 009A" /* .... .@.P....... */
$"00B0 017E 5379 6D62 6F6C 6963 2064 6562" /* ...~Symbolic deb */
$"7567 6765 7220 696E 666F 726D 6174 696F" /* ugger informatio */
$"6E00 2D73 796D 206F 6E00 496E 636C 7564" /* n.-sym on.Includ */
$"6520 5341 4445 2069 6E66 6F72 6D61 7469" /* e SADE informati */
$"6F6E 2069 6E20 7468 6520 6F62 6A65 6374" /* on in the object */
$"2066 696C 6500 0000 0305 0045 0012 0055" /* file......E...U */
$"0079 4170 706C 6963 6174 696F 6E00 2D41" /* .yApplication.-A */
$"7070 6C69 6361 7469 6F6E 0001 4372 6561" /* pplication..Crea */
$"7465 2062 7569 6C64 2063 6F6D 6D61 6E64" /* te build command */
$"7320 666F 7220 616E 2041 7070 6C69 6361" /* s for an Applica */
$"7469 6F6E 2E20 2041 7070 6C69 6361 7469" /* tion. Applicati */
$"6F6E 7320 6361 6E20 6265 2072 756E 2066" /* ons can be run f */
$"726F 6D20 7468 6520 4669 6E64 6572 206F" /* rom the Finder o */
$"7220 7468 6520 4D50 5720 5368 656C 6C2E" /* r the MPW Shell. */
$"0000 0057 0012 0067 0048 546F 6F6C 002D" /* ...W...g.HTool.- */
$"546F 6F6C 0000 4372 6561 7465 2062 7569" /* Tool..Create bui */
$"6C64 2063 6F6D 6D61 6E64 7320 666F 7220" /* ld commands for */
$"6120 546F 6F6C 2E20 2054 6F6F 6C73 2072" /* a Tool. Tools r */
$"756E 2077 6974 6869 6E20 7468 6520 4D50" /* un within the MP */
$"5720 5368 656C 6C20 656E 7669 726F 6E6D" /* W Shell environm */
$"656E 742E 0000 0069 0012 0079 008E 4465" /* ent....i...y..De */
$"736B 2041 6363 6573 736F 7279 002D 4441" /* sk Accessory.-DA */
$"0000 4372 6561 7465 2062 7569 6C64 2063" /* ..Create build c */
$"6F6D 6D61 6E64 7320 666F 7220 6120 4465" /* ommands for a De */
$"736B 2041 6363 6573 736F 7279 2E20 2044" /* sk Accessory. D */
$"6573 6B20 4163 6365 7373 6F72 6965 7320" /* esk Accessories */
$"6172 6520 7275 6E20 7573 696E 6720 7468" /* are run using th */
$"6520 4170 706C 6520 6D65 6E75 2E00 007B" /* e Apple menu...{ */
$"0012 008A 008A 436F 6465 2052 6573 6F75" /* ......Code Resou */
$"7263 6500 2D43 5200 0043 7265 6174 6520" /* rce.-CR..Create */
$"6275 696C 6420 636F 6D6D 616E 6473 2066" /* build commands f */
$"6F72 2061 2073 7461 6E64 2D61 6C6F 6E65" /* or a stand-alone */
$"2063 6F64 6520 7265 736F 7572 6365 2E00" /* code resource.. */
$"008D 0012 009C 0079 5349 4F57 2041 7070" /* .......ySIOW App */
$"2E00 2D53 494F 5700 0043 7265 6174 6520" /* ..-SIOW..Create */
$"6275 696C 6420 636F 6D6D 616E 6473 2066" /* build commands f */
$"6F72 2061 2053 696D 706C 6520 496E 7075" /* or a Simple Inpu */
$"742F 4F75 7470 7574 2057 696E 646F 772E" /* t/Output Window. */
$"0000 0000 0153 6F75 7263 6520 4669 6C65" /* .....Source File */
$"73C9 0053 656C 6563 7420 7468 6520 7072" /* s..Select the pr */
$"6F67 7261 6D27 7320 736F 7572 6365 2066" /* ogram's source f */
$"696C 6573 2C20 7772 6974 7465 6E20 696E" /* iles, written in */
$"2041 7373 656D 626C 7920 4C61 6E67 7561" /* Assembly Langua */
$"6765 2C20 432C 2050 6173 6361 6C20 616E" /* ge, C, Pascal an */
$"642F 6F72 2052 657A 2E20 204C 6962 7261" /* d/or Rez. Libra */
$"7279 2066 696C 6573 206D 6179 2061 6C73" /* ry files may als */
$"6F20 6265 2073 656C 6563 7465 642E 2020" /* o be selected. */
$"446F 206E 6F74 2069 6E63 6C75 6465 2074" /* Do not include t */
$"6865 2073 7461 6E64 6172 6420 6C69 6272" /* he standard libr */
$"6172 7920 6669 6C65 7320 7375 7070 6C69" /* ary files suppli */
$"6564 2077 6974 6820 4D50 572E 2020 2841" /* ed with MPW. (A */
$"7420 6C65 6173 7420 6F6E 6520 736F 7572" /* t least one sour */
$"6365 2066 696C 6520 6973 2072 6571 7569" /* ce file is requi */
$"7265 642E 2900 001B 0134 002F 01C4 536F" /* red.)....4./..So */
$"7572 6365 2046 696C 6573 3A00 0000 0200" /* urce Files:..... */
$"5445 5854 4F42 4A20 0000 0000 0203 0001" /* TEXTOBJ ........ */
$"0004 0009 1100 0101 4003 044D 6169 6E20" /* ........@..Main */
$"456E 7472 7920 506F 696E 7400 0074 0096" /* Entry Point..t.. */
$"0085 0106 0074 010A 0084 0178 0001 2D6D" /* .....t.....x..-m */
$"0045 6E74 6572 2074 6865 206D 6169 6E20" /* .Enter the main */
$"656E 7472 7920 706F 696E 742E 2028 5468" /* entry point. (Th */
$"6973 2070 6172 616D 6574 6572 2069 7320" /* is parameter is */
$"7265 7175 6972 6564 2E29 0000 0101 4003" /* required.)....@. */
$"0452 6573 6F75 7263 6520 5479 7065 0000" /* .Resource Type.. */
$"008A 00A4 009A 0106 008A 010A 009A 0178" /* ...............x */
$"0001 2D72 7400 456E 7465 7220 7468 6520" /* ..-rt.Enter the */
$"7265 736F 7572 6365 2074 7970 6520 616E" /* resource type an */
$"6420 4944 2069 6E20 7468 6520 666F 726D" /* d ID in the form */
$"2074 7970 653D 4944 2E20 2854 6869 7320" /* type=ID. (This */
$"7061 7261 6D65 7465 7220 6973 2072 6571" /* parameter is req */
$"7569 7265 642E 2900 0202 0006 0007 1000" /* uired.)......... */
$"0102 0008 BFFD 1000 0102 1003 4003 0443" /* ............@..C */
$"7265 6174 6F72 0000 0046 00CF 0056 0106" /* reator...F...V.. */
$"0046 010A 0057 0132 3F3F 3F3F 0001 2D63" /* .F...W.2????..-c */
$"0045 6E74 6572 2074 6865 2066 696C 6520" /* .Enter the file */
$"6372 6561 746F 7220 2872 6571 7569 7265" /* creator (require */
$"6420 666F 7220 6364 6576 292E 0000 0101" /* d for cdev)..... */
$"4003 0454 7970 6500 005C 00E2 0072 0106" /* @..Type..\...r.. */
$"005C 010A 006E 0132 3F3F 3F3F 0001 2D74" /* .\...n.2????..-t */
$"0045 6E74 6572 2074 6865 2066 696C 6520" /* .Enter the file */
$"7479 7065 2028 7265 7175 6972 6564 2066" /* type (required f */
$"6F72 2063 6465 7629 0000 0000 0701 003C" /* or cdev).......< */
$"0008 00A1 0093 5072 6F67 7261 6D20 5479" /* ......Program Ty */
$"7065 0000 0000 0304 0054 0181 0064 01D6" /* pe.......T...d.. */
$"4465 6661 756C 7400 0001 4765 6E65 7261" /* Default...Genera */
$"7465 206D 6336 3830 3030 2063 6F64 6500" /* te mc68000 code. */
$"0066 0181 0076 01D6 6D63 3638 3032 3000" /* .f...v..mc68020. */
$"2D6D 6336 3830 3230 0000 4765 6E65 7261" /* -mc68020..Genera */
$"7465 206D 6336 3830 3230 2063 6F64 6520" /* te mc68020 code */
$"7768 6572 6520 6170 706C 6963 6162 6C65" /* where applicable */
$"2E20 2028 5365 6E64 202D 6D63 3638 3032" /* . (Send -mc6802 */
$"3020 6F70 7469 6F6E 2074 6F20 4320 616E" /* 0 option to C an */
$"6420 5061 7363 616C 2063 6F6D 7069 6C65" /* d Pascal compile */
$"7273 2E29 0000 0078 0181 0088 01D6 6D63" /* rs.)...x......mc */
$"3638 3838 3100 2D6D 6336 3838 3831 0000" /* 68881.-mc68881.. */
$"4765 6E65 7261 7465 206D 6336 3838 3831" /* Generate mc68881 */
$"2063 6F64 6520 666F 7220 7468 6520 6261" /* code for the ba */
$"7369 6320 6F70 6572 6174 696F 6E73 3A20" /* sic operations: */
$"2B2C 202D 2C20 2A2C 20D6 2C20 616E 6420" /* +, -, *, ., and */
$"C32E 2020 2853 656E 6420 2D6D 6336 3830" /* .. (Send -mc680 */
$"3230 2061 6E64 202D 6D63 3638 3838 3120" /* 20 and -mc68881 */
$"6F70 7469 6F6E 7320 746F 2043 2061 6E64" /* options to C and */
$"2050 6173 6361 6C20 636F 6D70 696C 6572" /* Pascal compiler */
$"732E 2900 008A 0181 009A 01D6 656C 656D" /* s.).........elem */
$"7338 3831 002D 656C 656D 7338 3831 0000" /* s881.-elems881.. */
$"4765 6E65 7261 7465 206D 6336 3838 3831" /* Generate mc68881 */
$"2063 6F64 6520 666F 7220 7472 616E 7363" /* code for transc */
$"656E 6465 6E74 616C 2066 756E 6374 696F" /* endental functio */
$"6E73 2E20 2028 5365 6E64 202D 6D63 3638" /* ns. (Send -mc68 */
$"3032 302C 202D 6D63 3638 3838 312C 2061" /* 020, -mc68881, a */
$"6E64 202D 656C 656D 7338 3831 206F 7074" /* nd -elems881 opt */
$"696F 6E73 2074 6F20 4320 636F 6D70 696C" /* ions to C compil */
$"6572 3B20 7365 6E64 202D 6D63 3638 3032" /* er; send -mc6802 */
$"302C 202D 6D63 3638 3838 312C 2061 6E64" /* 0, -mc68881, and */
$"202D 6420 656C 656D 7338 3831 3D74 7275" /* -d elems881=tru */
$"6520 6F70 7469 6F6E 7320 746F 2050 6173" /* e options to Pas */
$"6361 6C20 636F 6D70 696C 6572 2E29 0000" /* cal compiler.).. */
};
data 'vers' (1) {
$"0322 8000 0000 0533 2E32 2E32 2A33 2E32" /* .".....3.2.2*3.2 */
$"2E32 2C20 A920 4170 706C 6520 436F 6D70" /* .2, . Apple Comp */
$"7574 6572 2C20 496E 632E 2020 2031 3938" /* uter, Inc. 198 */
$"352D 3139 3932 2E" /* 5-1992. */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};

View File

@ -0,0 +1,43 @@
# DirectoryMenu - create the Directory menu
#
# Usage:
# DirectoryMenu directory…
#
# DirectoryMenu creates the menu shown below. The directory… parameter
# specifies the initial list of directories that appear in the menu.
#
# Directory
#
# Show Directory
# Set Directory…
# ----------------
# <directory…>
#
#
# Copyright Apple Computer, Inc. 1987 - 1990
# All rights reserved.
Set Exit 0
DeleteMenu Directory ≥ Dev:Null
AddMenu Directory 'Show Directory' ∂
'(Echo "The default directory is ∂n"; Directory) | Alert -s'
AddMenu Directory 'Set Directory…' ∂
'SetDirectory `GetFileName -d || Directory` > "{ShellDirectory}"MPW.Errors ≥ Dev:StdOut ∂
|| Alert < "{ShellDirectory}"MPW.Errors'
AddMenu Directory '(-' ''
For directory in {"Parameters"}
Set directory "`Files -i -f -q "{directory}" ≥ Dev:Null || Echo "{directory}"`"
if !`Evaluate "{directory}" =~ /?«0,64»/` # longer that 64 bytes?
Unset ®1 ; Unset ®2
(Evaluate "{directory}" =~ /([¬':']*)®1≈':'([¬':']+)®2':'/ ) ∑ dev:null
Set menuname "{®1}"':…:'"{®2}"
else
Set menuname "{directory}"
end
AddMenu Directory "{menuname}" ∂
'Directory "'"{directory}"'" > "{ShellDirectory}"MPW.Errors ≥ Dev:StdOut ∂
|| Alert < "{ShellDirectory}"MPW.Errors'
End
Exit 0

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,24 @@
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 0019 FC18 FC19 FC19" /* ..Monaco........ */
$"0016 0009 0016 01C6 0197 0009 0197 01C6" /* ................ */
$"0000 0006 0004 002A 0003 0142 01E3 002A" /* .......*...B...* */
$"0003 0142 01E3 A431 E940 0000 0000 0000" /* ...B...1.@...... */
$"0000 0000 0000 0100" /* ........ */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0000 0000 0000 0000 0000 0000" /* .............. */
};
data 'vers' (1, purgeable) {
$"0320 8000 0000 0333 2E32 2333 2E32 2C20" /* . .....3.2#3.2, */
$"A920 4170 706C 6520 436F 6D70 7574 6572" /* . Apple Computer */
$"2C20 496E 632E 2031 3938 352D 3931" /* , Inc. 1985-91 */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};

186
BootableMPW/Scripts/DoIt Normal file
View File

@ -0,0 +1,186 @@
#
# NAME:
# DoIt
#
# SYNTAX:
# DoIt (CommandFile [-echo] [-dump]) | [-selection]
#
# SYNOPSIS:
# DoIt will execute a series of shell commands hilighting each command
# as it is executed. The commands can be in either a file or the
# current selection. If a CommandFile is passed to doit the file is
# opened (as the active window) and each line (multiple lines if a "∂"
# is present at the end of a line) is executed. The window
# is closed when all the commands have been processed.
#
# OPTIONS:
# -e[cho] Each command is echo to the Worksheet before execution.
# -d[ump] If an error occurs in one of the commands all the
# remaining commands (including the command that failed)
# are written to the Worksheet and marked by "ToDo".
# -s[election] Execute the commands in the current selection.
#
# SPECIAL NOTE:
# The initial overhead is fairly substantial (on a MacPlus) when executing
# commands from the current selection. For a 10 line selection it takes
# 26 seconds of "pre-processing" before DoIt starts to execute the
# first command. If the same 10 lines were in a file the overhead is
# only 11 seconds. Once execution begins the overhead is small in either
# case.
#
# This script does not work correctly on structured commands.
#
# AUTHOR:
# Peter J. Potrebic
# Copyright Apple Computer, Inc. 1988-1990
# All Rights Reserved.
#
Unset ErrFile
Unset CommandFile
Unset EchoCmds
Unset DumpCmds
Unset CurSel
Set OldExit {Exit}
Set Cmd "{0}"
Set Syntax "(CommandFile [-echo] [-dump]) | [-selection]"
Set Error 0
For Arg In {"Parameters"} # Parse the command line
# Checking for the echo option - echo commands before they are executed
If "{Arg}" == "-e" || "{Arg}" == "-echo"
If {EchoCmds} == 0
Set EchoCmds 1
Else
Echo "### {Cmd} - option ∂"{Arg}∂" multiply defined"
Set Error 1
End
# Checking for the dump option - echo unexecuted commands after error
Else If "{Arg}" == "-d" || "{Arg}" == "-dump"
If {DumpCmds} == 0
Set DumpCmds 1
Else
Echo "### {Cmd} - option ∂"{Arg}∂" multiply defined"
Set Error 1
End
# Checking for the selection option - commands are in the current selection
Else If "{Arg}" == "-s" || "{Arg}" == "-selection"
If {CurSel} == 0
Set CurSel 1
Else
Echo "### {Cmd} - option ∂"{Arg}∂" multiply defined"
Set Error 1
End
# Found unknown option
Else If "{Arg}" =~ /-≈/ || "{Arg}" == -
Echo "### {Cmd} - ∂"{Arg}∂" is not an option"
Set Error 1
# Found the command file
Else
If "{CommandFile}" == 0
Set CommandFile "{Arg}"
Else
Echo "### {Cmd} - Too many parameters were specified."
Set Error 1
End
End
End > Dev:StdErr
If {CurSel} && ({DumpCmds} || {EchoCmds})
Echo "### {Cmd} - conflicting options were specified"
Set Error 1
End > Dev:StdErr
If ("{CommandFile}" == "" && !{CurSel})
Echo "### {Cmd} - No command file specified"
Set Error 1
End > Dev:StdErr
If {Error} # Were there any syntax errors?
Echo "# Usage - {Cmd} {Syntax}"
Exit {Error} # Exiting (because of syntax error)
End > Dev:StdErr
Set Exit 0 # well handle the errors, thank you
#
# EXECUTING THE CURRENT SELECTION...
#
If {CurSel}
Set MyActive "{Active}"
Mark -y § DoIt "{MyActive}" # mark all the commands to be executed
Set NumCmds `Count -l "{MyActive}".§`
If {NumCmds} > 0
Set NumEscapes `Search -q /≈∂∂∞/ "{MyActive}".§ ≥ Dev:Null | Count -l`
Evaluate NumCmds = {NumCmds} - {NumEscapes}
Find ∆DoIt "{MyActive}" # Goto top of Commands to be executed
Set cCmd 0 # Initialize command counter
Loop
Find /•/ "{MyActive}" # Find beginning of next line
Find §:/[¬∂∂]∞/ "{MyActive}" # Find from § to end of command
Evaluate cCmd += 1 # Increment command counter
Execute "{MyActive}".§ # Execute the command
Set commandStatus {Status}
If {commandStatus} ≠ 0
Set Error {commandStatus} # Capture and save status
End
Break If (({OldExit} && {Error} ≠ 0) || {cCmd} == {NumCmds})
End
Find §!1 "{MyActive}" # go to line after last command
End
UnMark DoIt "{MyActive}"
#
# EXECUTING FROM A FILE...
#
Else
Set ToDo "#### Still ToDo… ####"
Set FullCommandFile "`Files -i -f "{CommandFile}"`"
Set WasOpen `Evaluate "∂`Windows∂`" =~ /≈{FullCommandFile}≈/`
Open "{CommandFile}" # Open command file
Exit {Status} If {Status} ≠ 0
Find • "{CommandFile}" # Goto top of File to be executed
Loop # Loop through all commands
Find /•/ "{CommandFile}" # Find beginning of next line
Break If {Status} ≠ 0 # At end of file
Find §:/[¬∂∂]∞/ "{CommandFile}" # Find from § to end of command
Break If {Status} ≠ 0 # At end of file
If {EchoCmds}
Begin
Catenate "{CommandFile}".§ # Write command to Standard Output
Echo # Echo a newline after the command
End >> "{Worksheet}".§
End
Execute "{CommandFile}".§ # Execute the command
Set commandStatus {Status}
If {commandStatus} ≠ 0
Set Error {commandStatus} # Capture and save status
End
If {Error} ≠ 0 # There was an error
If {DumpCmds} # List the commands left to execute
Begin
Echo "{ToDo}" # List includes the command that failed
Find §:∞ "{CommandFile}" # Select the unexecuted commands
Catenate "{CommandFile}".§ # Write commands to Standard Output
Echo
End >> "{Worksheet}".§
Mark -y § ToDo "{Worksheet}" # Mark the commands that weren't executed
End
Break If {OldExit}
End
End
If ¬{WasOpen}
Close "{CommandFile}" ≥ Dev:Null # Close the command file
End
End
Exit "{Error}" # return with proper status

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,75 @@
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 0000 0000 0000 0000" /* ..Monaco........ */
$"0000 0040 0000 0000 0000 0000 0000 0000" /* ...@............ */
$"0000 0006 0003 002A 0003 0142 01E3 002A" /* .......*...B...* */
$"0003 0142 01E3 A431 E940 0000 0000 0000" /* ...B...1.@...... */
$"0000 0000 0000 0100" /* ........ */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0000 0000 0000 0000 0000 0000" /* .............. */
};
data 'cmdo' (128, "DoIt") {
$"0008 0001 0104 4578 6563 7574 6573 2074" /* ......Executes t */
$"6865 2063 6F6D 6D61 6E64 7320 696E 2074" /* he commands in t */
$"6865 2067 6976 656E 2066 696C 652C 206F" /* he given file, o */
$"7220 7468 6520 6375 7272 656E 7420 7365" /* r the current se */
$"6C65 6374 696F 6E2C 2068 6967 686C 6967" /* lection, highlig */
$"6874 696E 6720 6561 6368 2063 6F6D 6D61" /* hting each comma */
$"6E64 2061 7320 6974 2069 7320 6578 6563" /* nd as it is exec */
$"7574 6564 2E00 000A 0101 FFFE 0000 0001" /* uted............ */
$"0019 002D 002D 00DC 436F 6D6D 616E 6420" /* ...-.-..Command */
$"4669 6C65 0000 5365 6C65 6374 2074 6865" /* File..Select the */
$"2066 696C 6520 746F 2062 6520 6578 6563" /* file to be exec */
$"7574 6564 2E20 2054 6865 2066 696C 6520" /* uted. The file */
$"7769 6C6C 2062 6520 6F70 656E 616E 6420" /* will be openand */
$"6561 6368 2063 6F6D 6D61 6E64 2077 696C" /* each command wil */
$"6C20 6265 2068 6967 686C 6967 6874 6564" /* l be highlighted */
$"2061 7320 6974 2069 7320 7072 6F63 6573" /* as it is proces */
$"7365 642E 0000 0000 0000 0100 5445 5854" /* sed.........TEXT */
$"0101 FFFF 0200 0025 013B 0048 01B8 4578" /* .......%.;.H..Ex */
$"6563 7574 6520 6375 7272 656E 740D 2020" /* ecute current. */
$"2020 2020 7365 6C65 6374 696F 6E00 2D73" /* selection.-s */
$"656C 6563 7469 6F6E 0045 7865 6375 7465" /* election.Execute */
$"2074 6865 2063 7572 7265 6E74 2073 656C" /* the current sel */
$"6563 7469 6F6E 2069 6E20 7468 6520 6163" /* ection in the ac */
$"7469 7665 2077 696E 646F 772C 2068 6967" /* tive window, hig */
$"686C 6967 6874 696E 6720 7468 6520 636F" /* hlighting the co */
$"6D6D 616E 6473 2061 7320 7468 6579 2061" /* mmands as they a */
$"7265 2070 726F 6365 7373 6564 2E00 0101" /* re processed.... */
$"FFFE 0200 0032 003C 0041 00B9 4563 686F" /* .....2.<.A..Echo */
$"2063 6F6D 6D61 6E64 7300 2D65 6368 6F00" /* commands.-echo. */
$"4563 686F 2074 6865 2063 6F6D 6D61 6E64" /* Echo the command */
$"7320 746F 2074 6865 2057 6F72 6B53 6865" /* s to the WorkShe */
$"6574 2061 7320 7468 6579 2061 7265 2065" /* et as they are e */
$"7865 6375 7465 642E 0000 0101 FFFE 0200" /* xecuted......... */
$"0046 003C 0055 00FA 4475 6D70 2063 6F6D" /* .F.<.U..Dump com */
$"6D61 6E64 7320 6F6E 2065 7272 6F72 002D" /* mands on error.- */
$"6475 6D70 0049 6E20 6361 7365 206F 6620" /* dump.In case of */
$"6572 726F 7220 7468 6520 636F 6D6D 616E" /* error the comman */
$"6473 2074 6861 7420 6861 7665 206E 6F74" /* ds that have not */
$"2062 6565 6E20 6578 6563 7574 6564 2077" /* been executed w */
$"696C 6C20 6265 2077 7269 7474 656E 2074" /* ill be written t */
$"6F20 7468 6520 576F 726B 5368 6565 7420" /* o the WorkSheet */
$"616E 6420 6D61 726B 6564 2077 6974 6820" /* and marked with */
$"6120 6D61 726B 6572 2063 616C 6C65 6420" /* a marker called */
$"D254 6F44 6FD3 2E00 0000 0601 0014 0014" /* .ToDo........... */
$"005A 01C7 0000 0601 0019 0127 0032 0128" /* .Z.........'.2.( */
$"0000 0701 0039 0118 003A 0119 4F72 0000" /* .....9...:..Or.. */
$"0000 0601 0041 0127 0055 0128 0000 0B00" /* .....A.'.U.(.... */
$"0064 0050 0000 0B01 0064 0118" /* .d.P.....d.. */
};
data 'vers' (1, purgeable) {
$"0320 8000 0000 0333 2E32 2333 2E32 2C20" /* . .....3.2#3.2, */
$"A920 4170 706C 6520 436F 6D70 7574 6572" /* . Apple Computer */
$"2C20 496E 632E 2031 3938 352D 3931" /* , Inc. 1985-91 */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};

15
BootableMPW/Scripts/Line Normal file
View File

@ -0,0 +1,15 @@
# Line - find line number
#
# Usage:
# Line n
#
# Line finds line n in the target window.
# The target window becomes the active (topmost) window.
#
# Copyright Apple Computer, Inc. 1986 - 1990
# All rights reserved.
Find "{1}" "{Target}" > Dev:StdErr
Open "{Target}" > Dev:StdErr

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,44 @@
data 'cmdo' (128, "Line") {
$"0008 0001 00BB 4669 6E64 2074 6865 2073" /* ......Find the s */
$"7065 6369 6669 6564 206C 696E 6520 696E" /* pecified line in */
$"2074 6865 2074 6172 6765 7420 7769 6E64" /* the target wind */
$"6F77 2E20 204D 616B 6520 7468 6520 7461" /* ow. Make the ta */
$"7267 6574 2077 696E 646F 7720 7468 6520" /* rget window the */
$"6163 7469 7665 2028 746F 706D 6F73 7429" /* active (topmost) */
$"2077 696E 646F 772E 0000 0003 0000 044C" /* window........L */
$"696E 6520 4E75 6D62 6572 0000 0018 001E" /* ine Number...... */
$"0028 0082 002B 0021 003B 0055 0001 0045" /* .(...+.!.;.U...E */
$"6E74 6572 2074 6865 206C 696E 6520 6E75" /* nter the line nu */
$"6D62 6572 206F 6620 7468 6520 6C69 6E65" /* mber of the line */
$"2074 6F20 6265 2073 656C 6563 7465 6420" /* to be selected */
$"696E 2074 6865 2074 6172 6765 7420 7769" /* in the target wi */
$"6E64 6F77 2E20 2028 5468 6973 2070 6172" /* ndow. (This par */
$"616D 6574 6572 2069 7320 7265 7175 6972" /* ameter is requir */
$"6564 2E29 0000 0101 0001 1100 0000 0B01" /* ed.)............ */
$"0018 0154" /* ...T */
};
data 'vers' (1, purgeable) {
$"0310 8000 0000 0333 2E31 2433 2E31 2C20" /* .......3.1$3.1, */
$"A920 4170 706C 6520 436F 6D70 7574 6572" /* . Apple Computer */
$"2C20 496E 632E 2C20 3139 3835 2D39 30" /* , Inc., 1985-90 */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 0009 0909 0031 01EA" /* ..Monaco.....1.. */
$"0149 000A 0149 01EA 01AF 007A 01AF 0218" /* .I...I.....z.... */
$"01B0 0006 0004 002A 0003 0142 01E3 002A" /* .......*...B...* */
$"0003 0142 01E3 A431 E940 0000 0000 0000" /* ...B...1.@...... */
$"0000 0000 0000 0100" /* ........ */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0000 0000 0000 0000 0000 0000" /* .............. */
};

View File

@ -0,0 +1,162 @@
#
# MergeBranch - Merge a branch revision onto the trunk.
#
# Usage: MergeBranch file
#
# MergeBranch renames the branch revision "file" to "file",branch and
# checks out the latest revision on the revision trunk for modification.
#
# If there are no trunk revisions newer than the branch, then the branch
# is checked in as the latest trunk revision.
#
# Otherwise MergeBranch brings up both revisions on the screen and
# puts them side by side. A menu is appended to the menu bar to assist
# the user in the merge process. Checkin the new trunk revision "file"
# when you finish merging the changes in "file",branch into "file".
#
# To add MergeBranch to a menu, execute the following command:
#
# AddMenu Project 'MergeBranch' 'MergeBranch "{Active}" ∑∑ "{WorkSheet}"'
#
# This script creates three temporary files which are deleted on exit or abort.
# {ShellDirectory}Compare_File, {ShellDirectory}Compare_State and file,<rev>,
#
# MergeBranch calls the script CompareFiles.
#
# © Apple Computer, Inc. 1988 - 1990
# All rights reserved.
Set Exit 0
Begin
# Check parameters.
If {#} ≠ 1
Echo "### Usage - {0} file"
Exit 0
End
# Make sure the file exists
If "" == "`Exists -f "{1}"`"
Echo "### {0} - File ∂"{1}∂" not found"
Exit 4
End
# Break apart the pathname.
Set f "{1}"
If "{f}" =~ /(≈)®1:(≈)®2/
Set dir "{®1}:"
Set f "{®2}"
Else
Set dir `directory`
If "{dir}" =~ /(≈)®1:/
Set dir "{®1}:"
End
End
Set path "{dir}{f}"
# Get project information on the file.
Set info1 "`projectinfo -comments "{path}"`"
If "{info1}" =~ /[∂']*(≈)®1,([¬ ∂']+)®2[∂']* ≈Project: (≈∫)®3≈ Task: (≈)®4[ ]«5»Comment: (≈)®5/
Set file "{®1}"
Set rev "{®2}"
Set proj "{®3}"
Set task "{®4}"
Set comment "Merged from branch {rev}. {®5}"
End
# Make sure the file is a branch revision.
If "{rev}" !~ /≈[a-z]≈/
Alert "File ∂"{f}∂" is not on a branch."
Exit 4
End
# If the branch rev is checked out for modification, check it in
# and call projectinfo again to get the branch's new revision number.
If "{rev}" =~ /≈∂+/ OR "{rev}" =~ /≈∂*/
CheckIn -y "{path}" ≥dev:null
Set info1 "`projectinfo "{path}"`"
If "{info1}" =~ /[∂']*(≈)®1,([¬ ∂']+)®2[∂']* ≈Project: (≈∫)®3≈/
Set file "{®1}"
Set rev "{®2}"
Set proj "{®3}"
End
End
# Get projectinfo on the file's latest trunk revision.
Set info2 "`projectinfo -latest -s -project "{proj}" "{f}" ≥ dev:null`"
If "{info2}" == ""
Alert "Project ∂"{proj}∂" is not mounted."
Exit 4
End
If "{info2}" =~ /[∂']*(≈)®1,([¬ ∂']+)®2[∂']*/
Set file2 "{®1}"
Set rev2 "{®2}"
Else
Alert "Latest rev of File ∂"{f}∂" is checked out for modification. Cannot merge at this time."
Exit 4
End
# Is the file open as a window?
Set wind 0
For i in `Windows`
If "{path}" == "{i}"
Set wind 1
Break
End
End
# Rename the branch revision and checkout the trunk revision for modification.
Set branchf "{path},{rev}"
Rename -y "{path}" "{branchf}"
CheckOut "{path}" -m -t "{task}" -cs "{comment}" -project "{proj}"
# If the revisions on the trunk are older than the branch rev then
# checkin the branch on the trunk (we don't need to merge).
# Otherwise call comparefiles and let the user do the merge and checkin.
If "{rev}" =~ /{rev2}≈/
Echo "Include ∂"{path}∂" 'ckid';" | Rez -m -a -o "{branchf}"
Rename -y "{branchf}" "{path}"
If "{wind}"
Close "{path}"
Open "{path}"
End
CheckIn "{path}"
Else
Open "{path}"
CompareFiles "{branchf}" "{path}"
If {Status} == 2
Echo Close ∂""{branchf}"∂" >> "{ShellDirectory}Compare_State"
Echo Delete ∂""{branchf}"∂" >> "{ShellDirectory}Compare_State"
Exit 0
Else If {Status} == 0
If "{wind}"
Close "{branchf}"
End
Delete "{branchf}"
CheckOut -cancel -y "{path}"
End
End
End

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,34 @@
data 'MPSR' (1005) {
$"000A 436F 7572 6965 7200 616E 0000 0044" /* ..Courier.an...D */
$"0000 0000 0000 0000 0000 0000 0000 0000" /* ................ */
$"0000 0006 0004 002A 0003 0142 01E3 002A" /* .......*...B...* */
$"0003 0142 01E3 A431 E940 0000 0000 0000" /* ...B...1.@...... */
$"0000 0000 0000 0100" /* ........ */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0000 0000 0000 0000 0000 0000" /* .............. */
};
data 'cmdo' (323, "MergeBranch") {
$"0008 0001 00AF 4D65 7267 6520 6120 6272" /* ......Merge a br */
$"616E 6368 2072 6576 6973 696F 6E20 6F6E" /* anch revision on */
$"746F 2074 6865 2074 7275 6E6B 2E00 0001" /* to the trunk.... */
$"0000 0000 0001 001E 00A1 0032 0141 4669" /* ...........2.AFi */
$"6C65 2074 6F20 4D65 7267 6500 0046 696C" /* le to Merge..Fil */
$"6520 746F 206D 6572 6765 2E00 0000 0000" /* e to merge...... */
$"0001 5445 5854" /* ..TEXT */
};
data 'vers' (1, purgeable) {
$"0320 8000 0000 0333 2E32 2333 2E32 2C20" /* . .....3.2#3.2, */
$"A920 4170 706C 6520 436F 6D70 7574 6572" /* . Apple Computer */
$"2C20 496E 632E 2031 3938 352D 3931" /* , Inc. 1985-91 */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};

View File

@ -0,0 +1,51 @@
# OrphanFiles - Remove the ckid resource from a list of files.
#
# Usage: OrphanFile files…
#
# OrphanFile removes the ckid resource (if it exists) from a
# list of files.
#
# © Apple Computer, Inc. 1988 - 1990
# All rights reserved.
Set Exit 0
# Check the parameters
If {#} == 0
Echo "### Usage - {0} files…" > dev:stderr
Exit 1
End
For name in {"parameters"}
Begin
If "`Exists -f "{name}"`" != ""
Set path `Files -f "{name}"`
Set wind 0
For i in `Windows`
If "{path}" =~ /"{i}"/ ## Make NOT case-sensitive
Set wind 1
Break
End
End
Echo "Delete 'ckid';" | Rez -a -m -o "{name}"
If {wind}
If "{path}" =~ /"{active}"/
Close "{name}"
Open "{name}"
Else
Close "{name}"
Target "{name}"
End
End
Else
If "`Exists -d "{name}"`" == ""
Echo "### {0}" - File "'{name}'" does not exist. >> dev:stderr
Exit 2
Else
Echo "### {0}" - File "'{name}'" is a folder and was ignored. >> dev:stderr
End
End
End
End

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,55 @@
data 'MPSR' (1006) {
$"0003 0000 0048 0048 0000 0000 03CE 02E0" /* .....H.H........ */
$"FFD7 FFD8 03F7 0308 0347 0528 03FC 0002" /* .........G.(.... */
$"0000 0048 0048 0000 0000 03CE 02E0 0001" /* ...H.H.......... */
$"0000 004B 0000 0001 0001 0101 0000 0001" /* ...K............ */
$"270F 0001 0001 0000 0000 0000 0000 0000" /* '............... */
$"0000 0002 0019 0190 0000 0000 0040 0000" /* .............@.. */
$"0000 0000 0000 0001 0000 0000 0000 0000" /* ................ */
$"0000 0000 0000 0000" /* ........ */
};
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 0029 0009 0000 0044" /* ..Monaco.).....D */
$"0000 0000 0000 0000 0000 0000 0000 0000" /* ................ */
$"0000 0006 0004 002A 0003 0142 01E3 002A" /* .......*...B...* */
$"0003 0142 01E3 A431 E940 0000 0000 0000" /* ...B...1.@...... */
$"0000 0000 0000 0100" /* ........ */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0000 0000 0000 0000 0000 0000" /* .............. */
};
data 'vers' (1, purgeable) {
$"0310 8000 0000 0333 2E31 2433 2E31 2C20" /* .......3.1$3.1, */
$"A920 4170 706C 6520 436F 6D70 7574 6572" /* . Apple Computer */
$"2C20 496E 632E 2C20 3139 3835 2D39 30" /* , Inc., 1985-90 */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};
data 'cmdo' (323, "OrphanFiles") {
$"0008 0001 00AF 4469 7361 7373 6F63 6961" /* ......Disassocia */
$"7465 2061 2066 696C 6520 616E 6420 7072" /* te a file and pr */
$"6F6A 6563 7420 6279 2064 656C 6574 696E" /* oject by deletin */
$"6720 7468 6520 636B 6964 206F 6620 7468" /* g the ckid of th */
$"6520 6669 6C65 2E54 6865 2063 6F6E 7465" /* e file.The conte */
$"6E74 206F 6620 7468 6520 7072 6F6A 6563" /* nt of the projec */
$"7420 6973 2075 6E61 6666 6563 7465 642E" /* t is unaffected. */
$"0000 0001 0000 0146 696C 6573 2074 6F20" /* .......Files to */
$"4F72 7068 616E C900 5468 6973 2062 7574" /* Orphan..This but */
$"746F 6E20 6272 696E 6773 2075 7020 6120" /* ton brings up a */
$"6469 616C 6F67 2061 6C6C 6F77 696E 6720" /* dialog allowing */
$"7365 6C65 6374 696F 6E20 6F66 2066 696C" /* selection of fil */
$"6573 2074 6F20 6F72 7068 616E 2E00 001E" /* es to orphan.... */
$"00A1 0032 0141 4669 6C65 7320 746F 206F" /* ...2.AFiles to o */
$"7270 6861 6E3A 0000 0001 5445 5854 3A00" /* rphan:....TEXT:. */
$"4F6E 6C79 2054 4558 5420 6669 6C65 7300" /* Only TEXT files. */
$"416C 6C20 4669 6C65 7300" /* All Files. */
};

View File

@ -0,0 +1,36 @@
# SetDirectory - set the default directory
#
# Usage:
# SetDirectory directory
#
# SetDirectory sets the default directory and adds the new default
# directory to the Directory menu if it is not already present.
#
#
# Copyright Apple Computer, Inc. 1987 - 1990
# All rights reserved.
Set Exit 0
If {#} != 1 OR "{1}" == ""
Echo "### {0} - A directory must be specified." > Dev:StdErr
Echo "# Usage - {0} directory" > Dev:StdErr
Exit 1
Else
Directory "{1}"
If {Status} != 0
Exit 2
End
Set directory `Directory`
if !`Evaluate "{directory}" =~ /?«0,64»/` # longer that 64 bytes?
Unset ®1 ; Unset ®2
(Evaluate "{directory}" =~ /([¬':']*)®1≈':'([¬':']+)®2':'/ ) ∑ dev:null
Set menuname "{®1}"':…:'"{®2}"
else
Set menuname "{directory}"
end
AddMenu Directory "{menuname}" ∂
'Directory "'"{directory}"'" > "{ShellDirectory}"MPW.Errors ≥ Dev:StdOut ∂
|| Alert < "{ShellDirectory}"MPW.Errors'
End

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,24 @@
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 0019 FC18 FC19 FC19" /* ..Monaco........ */
$"0016 0009 0016 01C6 0197 0009 0197 01C6" /* ................ */
$"0000 0006 0004 002A 0003 0142 01E3 002A" /* .......*...B...* */
$"0003 0142 01E3 A431 E940 0000 0000 0000" /* ...B...1.@...... */
$"0000 0000 0000 0100" /* ........ */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0000 0000 0000 0000 0000 0000" /* .............. */
};
data 'vers' (1, purgeable) {
$"0320 8000 0000 0333 2E32 2333 2E32 2C20" /* . .....3.2#3.2, */
$"A920 4170 706C 6520 436F 6D70 7574 6572" /* . Apple Computer */
$"2C20 496E 632E 2031 3938 352D 3931" /* , Inc. 1985-91 */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};

View File

@ -0,0 +1,37 @@
# TransferCkid - Move the ckid resource from fromFile to toFile.
#
# Usage: TransferCKID fromFile toFile
#
# TransferCKID moves the ckid resource (if it exists) from the
# first file to the second file.
#
# © Apple Computer, Inc. 1988 - 1990
# All rights reserved.
Set Exit 0
# Check the parameters
If {#} ≠ 2
Echo "### Usage - {0} fromFile toFile" > dev:stderr
Exit 1
End
# Check if files exist
For name in "{1}" "{2}"
If "`Exists -f "{name}"`"==""
Echo "### {0}" - File "'{name}'" does not exist. > dev:stderr
Exit 2
End
End
Begin
# Transfer the ckid
Echo "Include ∂"{1}∂" 'ckid';" | Rez -m -a -o "{2}"
If {Status} == 0
Echo "Delete 'ckid';" | Rez -a -o "{1}"
End
End

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,51 @@
data 'cmdo' (256, "TransferCkid") {
$"0008 0001 00D2 5472 616E 7366 6572 436B" /* ......TransferCk */
$"6964 2077 696C 6C20 6D6F 7665 2074 6865" /* id will move the */
$"2063 6B69 6420 7265 736F 7572 6365 2066" /* ckid resource f */
$"726F 6D20 7468 6520 736F 7572 6365 2066" /* rom the source f */
$"696C 6520 746F 2074 6865 2064 6573 7469" /* ile to the desti */
$"6E61 7469 6F6E 2066 696C 6500 0003 0000" /* nation file..... */
$"0000 0001 0028 0068 003C 00CC 536F 7572" /* .....(.h.<..Sour */
$"6365 2046 696C 65C9 0000 5365 6C65 6374" /* ce File...Select */
$"2074 6865 2066 696C 6520 6672 6F6D 2077" /* the file from w */
$"6869 6368 2074 6865 2063 6B69 6420 6265" /* hich the ckid be */
$"2074 616B 656E 2E20 5468 6520 636B 6964" /* taken. The ckid */
$"2077 696C 6C20 6265 2064 656C 6574 6564" /* will be deleted */
$"2066 726F 6D20 7468 6973 2066 696C 6520" /* from this file */
$"6166 7465 7220 7468 6520 636B 6964 2068" /* after the ckid h */
$"6173 2062 6565 6E20 7472 616E 7366 6572" /* as been transfer */
$"6564 2074 6F20 7468 6520 6465 7374 696E" /* ed to the destin */
$"6174 696F 6E20 6669 6C65 2E20 0000 0000" /* ation file. .... */
$"0000 0100 5445 5854 0000 0000 0001 0028" /* ....TEXT.......( */
$"00DC 003C 015E 4465 7374 696E 6174 696F" /* ...<.^Destinatio */
$"6E20 4669 6C65 C900 0053 656C 6563 7420" /* n File...Select */
$"7468 6520 6669 6C65 2074 6F20 7768 6963" /* the file to whic */
$"6820 7468 6520 636B 6964 2077 696C 6C20" /* h the ckid will */
$"6265 2061 6464 6564 2E00 0000 0000 0001" /* be added........ */
$"5445 5854 0202 0001 0002 1100" /* TEXT........ */
};
data 'vers' (1, purgeable) {
$"0310 8000 0000 0333 2E31 2433 2E31 2C20" /* .......3.1$3.1, */
$"A920 4170 706C 6520 436F 6D70 7574 6572" /* . Apple Computer */
$"2C20 496E 632E 2C20 3139 3835 2D39 30" /* , Inc., 1985-90 */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 000A 01EA 7FFF 01AF" /* ..Monaco........ */
$"007A 0218 7FFF 01B0 0219 0228 7FFF 01BF" /* .z.........(.... */
$"007A 0006 0004 002A 0003 0142 01E3 002A" /* .z.....*...B...* */
$"0003 0142 01E3 A431 E940 0000 0000 0000" /* ...B...1.@...... */
$"0000 0000 0000 0100" /* ........ */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0000 0000 0000 0000 0000 0000" /* .............. */
};

View File

@ -0,0 +1,6 @@
# This script is used only to launch Commando to create Set commands for user variables.
# © Apple Computer, Inc. 1988 - 1990
# All rights reserved.
Set Exit 0
Commando {0}
Set Status 0

View File

@ -0,0 +1 @@
TEXTMPS

View File

@ -0,0 +1,708 @@
data 'ICON' (17000) {
$"FFFB FFE0 800A 0020 800A 0020 800A 0020" /* ....... ... ... */
$"800A 0020 800A 0020 800A 0020 800A 0020" /* ... ... ... ... */
$"800A 0020 800A 0020 800A 0020 800A 0020" /* ... ... ... ... */
$"FFFB FFE0 0000 0000 FFFB FFE0 800A 0020" /* ............... */
$"800A 0020 800A 0020 800A 0020 800A 0020" /* ... ... ... ... */
$"800A 0020 800A 0020 800A 0020 800A 0020" /* ... ... ... ... */
$"800A 0020 800A 0020 FFFB FFE0 0000 0000" /* ... ... ........ */
$"0000 0000 0000 0000 0000 0000 0000 0000" /* ................ */
};
data 'ICON' (17001) {
$"FFFF FFE0 8000 0020 8000 0020 8000 0020" /* ....... ... ... */
$"8000 0020 FFFF FFE0 0000 0000 FFFF FFE0" /* ... ............ */
$"8000 0020 8000 0020 8000 0020 8000 0020" /* ... ... ... ... */
$"FFFF FFE0 0000 0000 FFFF FFE0 8000 0020" /* ............... */
$"8000 0020 8000 0020 8000 0020 FFFF FFE0" /* ... ... ... .... */
$"0000 0000 FFFF FFE0 8000 0020 8000 0020" /* ........... ... */
$"8000 0020 8000 0020 FFFF FFE0 0000 0000" /* ... ... ........ */
$"0000 0000 0000 0000 0000 0000 0000 0000" /* ................ */
};
data 'ICON' (17002) {
$"FDFB F7E0 850A 1420 850A 1420 850A 1420" /* ....... ... ... */
$"850A 1420 850A 1420 850A 1420 850A 1420" /* ... ... ... ... */
$"850A 1420 850A 1420 850A 1420 850A 1420" /* ... ... ... ... */
$"850A 1420 850A 1420 850A 1420 850A 1420" /* ... ... ... ... */
$"850A 1420 850A 1420 850A 1420 850A 1420" /* ... ... ... ... */
$"850A 1420 850A 1420 850A 1420 850A 1420" /* ... ... ... ... */
$"850A 1420 850A 1420 850A 1420 FDFB F7E0" /* ... ... ... .... */
$"0000 0000 0000 0000 0000 0000 0000 0000" /* ................ */
};
data 'cmdo' (495, "UserVariables") {
$"0008 0007 0127 5573 6520 7468 6973 2064" /* .....'Use this d */
$"6961 6C6F 6720 746F 2063 7265 6174 6520" /* ialog to create */
$"7365 7420 636F 6D6D 616E 6473 2066 6F72" /* set commands for */
$"2075 7365 7220 7661 7269 6162 6C65 732E" /* user variables. */
$"0000 0006 0000 0902 001E 002C 0037 00BD" /* ...........,.7.. */
$"436F 6E74 726F 6C20 5661 7269 6162 6C65" /* Control Variable */
$"73C9 0043 6C69 636B 2074 6869 7320 6275" /* s..Click this bu */
$"7474 6F6E 2074 6F20 6F70 656E 2061 2064" /* tton to open a d */
$"6961 6C6F 6720 746F 2073 6574 2063 6F6E" /* ialog to set con */
$"7472 6F6C 2076 6172 6961 626C 6573 2E00" /* trol variables.. */
$"0000 0903 0052 002C 006B 00BD 5365 6172" /* .....R.,.k..Sear */
$"6368 2056 6172 6961 626C 6573 C900 436C" /* ch Variables..Cl */
$"6963 6B20 7468 6973 2062 7574 746F 6E20" /* ick this button */
$"746F 206F 7065 6E20 6120 6469 616C 6F67" /* to open a dialog */
$"2074 6F20 7365 7420 7365 6172 6368 2076" /* to set search v */
$"6172 6961 626C 6573 2E00 0000 0904 0087" /* ariables........ */
$"0118 00A0 01A9 5769 6E64 6F77 2056 6172" /* ......Window Var */
$"6961 626C 6573 C900 436C 6963 6B20 7468" /* iables..Click th */
$"6973 2062 7574 746F 6E20 746F 206F 7065" /* is button to ope */
$"6E20 6120 6469 616C 6F67 2074 6F20 7365" /* n a dialog to se */
$"7420 7769 6E64 6F77 2076 6172 6961 626C" /* t window variabl */
$"6573 2E00 0000 0905 001E 0118 0037 01A9" /* es...........7.. */
$"5769 6E64 6F77 2053 7461 636B 696E 67C9" /* Window Stacking. */
$"0043 6C69 636B 2074 6869 7320 6275 7474" /* .Click this butt */
$"6F6E 2074 6F20 6F70 656E 2061 2064 6961" /* on to open a dia */
$"6C6F 6720 746F 2073 6574 2077 696E 646F" /* log to set windo */
$"7720 7374 6163 6B69 6E67 206F 7074 696F" /* w stacking optio */
$"6E73 2E00 0000 0906 0052 0118 006B 01A9" /* ns.......R...k.. */
$"5769 6E64 6F77 2054 696C 696E 67C9 0043" /* Window Tiling..C */
$"6C69 636B 2074 6869 7320 6275 7474 6F6E" /* lick this button */
$"2074 6F20 6F70 656E 2061 2064 6961 6C6F" /* to open a dialo */
$"6720 746F 2073 6574 2077 696E 646F 7720" /* g to set window */
$"7469 6C69 6E67 206F 7074 696F 6E73 2E00" /* tiling options.. */
$"0000 0907 0087 002C 00A0 00BD 5072 696E" /* .......,....Prin */
$"7420 4F70 7469 6F6E 73C9 0043 6C69 636B" /* t Options..Click */
$"2074 6869 7320 6275 7474 6F6E 2074 6F20" /* this button to */
$"6F70 656E 2061 2064 6961 6C6F 6720 746F" /* open a dialog to */
$"2073 6574 2070 7269 6E74 206F 7074 696F" /* set print optio */
$"6E73 2E00 0113 436F 6E74 726F 6C20 7661" /* ns....Control va */
$"7269 6162 6C65 7300 0008 0000 0303 001E" /* riables......... */
$"0028 002E 0082 4465 6661 756C 7400 3B20" /* .(....Default.; */
$"5365 7420 4563 686F 2030 0001 446F 6E27" /* Set Echo 0..Don' */
$"7420 6563 686F 2063 6F6D 6D61 6E64 732E" /* t echo commands. */
$"2044 6566 6175 6C74 2076 616C 7565 2E00" /* Default value.. */
$"002E 0028 003E 0082 4F66 6600 3B20 5365" /* ...(.>..Off.; Se */
$"7420 4563 686F 2030 0000 446F 6E27 7420" /* t Echo 0..Don't */
$"6563 686F 2063 6F6D 6D61 6E64 732E 0000" /* echo commands... */
$"003E 0028 004E 0082 4F6E 003B 2053 6574" /* .>.(.N..On.; Set */
$"2045 6368 6F20 3100 0057 7269 7465 2063" /* Echo 1..Write c */
$"6F6D 6D61 6E64 7320 746F 2064 6961 676E" /* ommands to diagn */
$"6F73 7469 6320 6F75 7470 7574 2061 6674" /* ostic output aft */
$"6572 2061 6C69 6173 696E 672C 2076 6172" /* er aliasing, var */
$"6961 626C 6520 7375 6273 7469 7475 7469" /* iable substituti */
$"6F6E 2C20 636F 6D6D 616E 6420 7375 6273" /* on, command subs */
$"7469 7475 7469 6F6E 2C20 6669 6C65 6E61" /* titution, filena */
$"6D65 2067 656E 6572 6174 696F 6E2C 2061" /* me generation, a */
$"6E64 206A 7573 7420 6265 666F 7265 2065" /* nd just before e */
$"7865 6375 7469 6F6E 2E00 0000 0701 0019" /* xecution........ */
$"0020 0052 00C8 436F 6D6D 616E 6420 4563" /* . .R..Command Ec */
$"686F 0000 0000 0303 0069 0028 0079 0082" /* ho.......i.(.y.. */
$"4465 6661 756C 7400 3B20 5365 7420 4578" /* Default.; Set Ex */
$"6974 2031 0001 5465 726D 696E 6174 6520" /* it 1..Terminate */
$"7363 7269 7074 7320 7768 656E 6576 6572" /* scripts whenever */
$"2061 2063 6F6D 6D61 6E64 2072 6574 7572" /* a command retur */
$"6E73 2061 206E 6F6E 7A65 726F 2073 7461" /* ns a nonzero sta */
$"7475 732E 2044 6566 6175 6C74 2076 616C" /* tus. Default val */
$"7565 2E00 0079 0028 0089 0082 4F66 6600" /* ue...y.(....Off. */
$"3B20 5365 7420 4578 6974 2031 0000 5465" /* ; Set Exit 1..Te */
$"726D 696E 6174 6520 7363 7269 7074 7320" /* rminate scripts */
$"7768 656E 6576 6572 2061 2063 6F6D 6D61" /* whenever a comma */
$"6E64 2072 6574 7572 6E73 2061 206E 6F6E" /* nd returns a non */
$"7A65 726F 2073 7461 7475 732E 0000 0089" /* zero status..... */
$"0028 0099 0082 4F6E 003B 2053 6574 2045" /* .(....On.; Set E */
$"7869 7420 3000 0044 6F6E 2774 2074 6572" /* xit 0..Don't ter */
$"6D69 6E61 7465 2073 6372 6970 7473 2077" /* minate scripts w */
$"6865 6E65 7665 7220 6120 636F 6D6D 616E" /* henever a comman */
$"6420 7265 7475 726E 7320 6120 6E6F 6E7A" /* d returns a nonz */
$"6572 6F20 7374 6174 7573 2E00 0000 0701" /* ero status...... */
$"0064 0023 009E 00BE 5363 7269 7074 2054" /* .d.#....Script T */
$"6572 6D69 6E61 7469 6F6E 0000 0000 0303" /* ermination...... */
$"001E 0118 002E 0172 4465 6661 756C 7400" /* .......rDefault. */
$"3B20 5365 7420 4967 6E6F 7265 436D 6450" /* ; Set IgnoreCmdP */
$"6572 696F 6420 3000 0152 6573 706F 6E64" /* eriod 0..Respond */
$"2074 6F20 436F 6D6D 616E 642D 2E20 2E20" /* to Command-. . */
$"5468 6973 2069 7320 7468 6520 6465 6661" /* This is the defa */
$"756C 7420 6265 6861 7669 6F75 7220 616C" /* ult behaviour al */
$"7468 6F75 6768 2049 676E 6F72 6543 6D64" /* though IgnoreCmd */
$"5065 7269 6F64 2069 7320 756E 6465 6669" /* Period is undefi */
$"6E65 6420 6F6E 2073 7461 7274 7570 2E00" /* ned on startup.. */
$"002E 0118 003E 0172 4F66 6600 3B20 5365" /* .....>.rOff.; Se */
$"7420 4967 6E6F 7265 436D 6450 6572 696F" /* t IgnoreCmdPerio */
$"6420 3000 0052 6573 706F 6E64 2074 6F20" /* d 0..Respond to */
$"436F 6D6D 616E 642D 2E20 2E00 003E 0118" /* Command-. ...>.. */
$"0050 0172 4F6E 003B 2053 6574 2049 676E" /* .P.rOn.; Set Ign */
$"6F72 6543 6D64 5065 7269 6F64 2031 0000" /* oreCmdPeriod 1.. */
$"4967 6E6F 7265 2043 6F6D 6D61 6E64 2D2E" /* Ignore Command-. */
$"202E 2057 4152 4E49 4E47 2069 6620 4967" /* . WARNING if Ig */
$"6E6F 7265 436D 6450 6572 696F 6420 6973" /* noreCmdPeriod is */
$"2073 6574 2074 6865 206F 6E6C 7977 6179" /* set the onlyway */
$"2074 6F20 7374 6F70 2065 7865 6375 7469" /* to stop executi */
$"6F6E 2069 7320 746F 2072 6562 6F6F 742E" /* on is to reboot. */
$"0000 0000 0701 0019 0113 0052 01AE 436F" /* ...........R..Co */
$"6D6D 616E 642D 2E00 0000 0303 0069 0118" /* mmand-.......i.. */
$"0079 0172 4465 6661 756C 7400 3B20 5365" /* .y.rDefault.; Se */
$"7420 5465 7374 2030 0001 416C 6C6F 7720" /* t Test 0..Allow */
$"6578 6563 7574 696F 6E20 6F66 2062 7569" /* execution of bui */
$"6C74 2D69 6E20 636F 6D6D 616E 6473 2C20" /* lt-in commands, */
$"7363 7269 7074 732C 2074 6F6F 6C73 2061" /* scripts, tools a */
$"6E64 2061 7070 6C69 6361 7469 6F6E 732E" /* nd applications. */
$"2044 6566 6175 6C74 2073 6574 7469 6E67" /* Default setting */
$"2E49 676E 6F72 6543 6D64 5065 7269 6F64" /* .IgnoreCmdPeriod */
$"2069 7320 756E 6465 6669 6E65 6420 6F6E" /* is undefined on */
$"2073 7461 7274 7570 2E00 0079 0118 0089" /* startup...y.... */
$"0172 4F66 6600 3B20 5365 7420 5465 7374" /* .rOff.; Set Test */
$"2030 0000 416C 6C6F 7720 6578 6563 7574" /* 0..Allow execut */
$"696F 6E20 6F66 2062 7569 6C74 2D69 6E20" /* ion of built-in */
$"636F 6D6D 616E 6473 2C20 7363 7269 7074" /* commands, script */
$"732C 2074 6F6F 6C73 2061 6E64 2061 7070" /* s, tools and app */
$"6C69 6361 7469 6F6E 732E 2000 0089 0118" /* lications. ..... */
$"0099 0172 4F6E 003B 2053 6574 2054 6573" /* ...rOn.; Set Tes */
$"7420 3100 0041 6C6C 6F77 2065 7865 6375" /* t 1..Allow execu */
$"7469 6F6E 206F 6620 6275 696C 742D 696E" /* tion of built-in */
$"2063 6F6D 6D61 6E64 7320 616E 6420 7363" /* commands and sc */
$"7269 7074 7320 6275 7420 6E6F 7420 746F" /* ripts but not to */
$"6F6C 7320 616E 6420 6170 706C 6963 6174" /* ols and applicat */
$"696F 6E73 2E55 7365 6675 6C20 666F 7220" /* ions.Useful for */
$"6368 6563 6B69 6E67 2063 6F6E 7472 6F6C" /* checking control */
$"2066 6C6F 7720 696E 2063 6F6D 6D61 6E64" /* flow in command */
$"2066 696C 6573 2E00 0000 0701 0064 0113" /* files.......d.. */
$"009E 01AE 546F 6F6C 2045 7865 6375 7469" /* ....Tool Executi */
$"6F6E 0000 0113 5365 6172 6368 2076 6172" /* on....Search var */
$"6961 626C 6573 0000 000A 0000 0457 6F72" /* iables.......Wor */
$"6400 0083 0014 0093 003C 0083 0045 0093" /* d........<...E.. */
$"0133 612D 7A41 2D5A 302D 395F 0001 3B20" /* .3a-zA-Z0-9_..; */
$"5365 7420 576F 7264 5365 7420 0054 6865" /* Set WordSet .The */
$"2073 6574 206F 6620 6368 6172 6163 7465" /* set of characte */
$"7273 2074 6861 7420 636F 6E73 7469 7475" /* rs that constitu */
$"7465 2061 2077 6F72 6420 746F 2074 6865" /* te a word to the */
$"2065 6469 746F 722E 2042 7920 6465 6661" /* editor. By defa */
$"756C 7420 7B57 6F72 6453 6574 7D20 6973" /* ult {WordSet} is */
$"2073 6574 2074 6F20 2761 2D7A 412D 5A30" /* set to 'a-zA-Z0 */
$"2D39 5F27 202E 0000 0000 0701 0071 000F" /* -9_' ........q.. */
$"00A2 0140 576F 7264 2053 6574 0000 0000" /* ...@Word Set.... */
$"0303 002B 00CD 003B 0122 4465 6661 756C" /* ...+...;."Defaul */
$"7400 3B20 5365 7420 4361 7365 5365 6E73" /* t.; Set CaseSens */
$"6974 6976 6520 3000 0153 6561 7263 6869" /* itive 0..Searchi */
$"6E67 2069 7320 6E6F 7420 6361 7365 2073" /* ng is not case s */
$"656E 7369 7469 7665 2E20 4465 6661 756C" /* ensitive. Defaul */
$"7420 7661 6C75 652E 0000 003B 00CD 004B" /* t value....;...K */
$"0122 4F66 6600 3B20 5365 7420 4361 7365" /* ."Off.; Set Case */
$"5365 6E73 6974 6976 6520 3000 0053 6561" /* Sensitive 0..Sea */
$"7263 6869 6E67 2069 7320 6E6F 7420 6361" /* rching is not ca */
$"7365 2073 656E 7369 7469 7665 2E00 004B" /* se sensitive...K */
$"00CD 005B 0122 4F6E 003B 2053 6574 2043" /* ...[."On.; Set C */
$"6173 6553 656E 7369 7469 7665 2031 0000" /* aseSensitive 1.. */
$"5365 6172 6368 696E 6720 6973 2063 6173" /* Searching is cas */
$"6520 7365 6E73 6974 6976 652E 0000 0000" /* e sensitive..... */
$"0701 0026 00C8 0060 0140 4361 7365 2053" /* ...&...`.@Case S */
$"656E 7369 7469 7665 0000 0000 0303 002B" /* ensitive.......+ */
$"0150 003B 01A4 4465 6661 756C 7400 3B20" /* .P.;..Default.; */
$"5365 7420 5365 6172 6368 4261 636B 7761" /* Set SearchBackwa */
$"7264 2030 0001 5365 6172 6368 2066 6F72" /* rd 0..Search for */
$"7761 7264 2E20 4465 6661 756C 7420 7661" /* ward. Default va */
$"6C75 652E 0000 003B 0150 004B 01A4 4F66" /* lue....;.P.K..Of */
$"6600 3B20 5365 7420 5365 6172 6368 4261" /* f.; Set SearchBa */
$"636B 7761 7264 2030 0000 5365 6172 6368" /* ckward 0..Search */
$"2066 6F72 7761 7264 2E00 004B 0150 005B" /* forward...K.P.[ */
$"01A4 4F6E 003B 2053 6574 2053 6561 7263" /* ..On.; Set Searc */
$"6842 6163 6B77 6172 6420 3100 0053 6561" /* hBackward 1..Sea */
$"7263 6820 6261 636B 7761 7264 2E00 0000" /* rch backward.... */
$"0701 0026 014A 0060 01D6 5365 6172 6368" /* ...&.J.`..Search */
$"2042 6163 6B77 6172 6400 0000 0304 0020" /* Backward...... */
$"0019 0030 00AA 4465 6661 756C 7400 3B20" /* ...0..Default.; */
$"5365 7420 5365 6172 6368 5479 7065 2030" /* Set SearchType 0 */
$"0001 4669 6E64 2074 6865 2073 7065 6369" /* ..Find the speci */
$"6669 6564 206C 6974 6572 616C 2073 7472" /* fied literal str */
$"696E 6700 0030 0019 0040 00AA 4C69 7465" /* ing..0...@..Lite */
$"7261 6C20 7374 7269 6E67 003B 2053 6574" /* ral string.; Set */
$"2053 6561 7263 6854 7970 6520 3000 0046" /* SearchType 0..F */
$"696E 6420 7468 6520 7370 6563 6966 6965" /* ind the specifie */
$"6420 6C69 7465 7261 6C20 7374 7269 6E67" /* d literal string */
$"0000 0040 0019 0050 00AA 576F 7264 7320" /* ...@...P..Words */
$"6F6E 6C79 003B 2053 6574 2053 6561 7263" /* only.; Set Searc */
$"6854 7970 6520 3100 0057 6F72 6473 206F" /* hType 1..Words o */
$"6E6C 7920 7769 6C6C 2062 6520 7365 6172" /* nly will be sear */
$"6368 6564 2E00 0050 0019 0060 00AA 5265" /* ched...P...`..Re */
$"6775 6C61 7220 6578 7072 6573 7369 6F6E" /* gular expression */
$"7300 3B20 5365 7420 5365 6172 6368 5479" /* s.; Set SearchTy */
$"7065 2032 0000 5265 6775 6C61 7220 6578" /* pe 2..Regular ex */
$"7072 6573 7369 6F6E 7320 7769 6C6C 2062" /* pressions will b */
$"6520 7365 6172 6368 6564 2E00 0000 0701" /* e searched...... */
$"0017 0012 0064 00BE 5365 6172 6368 2054" /* .....d..Search T */
$"7970 6500 0000 0303 0071 0151 0081 01A4" /* ype......q.Q.... */
$"4465 6661 756C 7400 3B20 5365 7420 5365" /* Default.; Set Se */
$"6172 6368 5772 6170 2030 0001 5365 6172" /* archWrap 0..Sear */
$"6368 2064 6F65 7320 6E6F 7420 7772 6170" /* ch does not wrap */
$"2061 726F 756E 642E 2044 6566 6175 6C74" /* around. Default */
$"2073 6574 7469 6E67 2E00 0081 0151 0091" /* setting.....Q.. */
$"01A4 4F66 6600 3B20 5365 7420 5365 6172" /* ..Off.; Set Sear */
$"6368 5772 6170 2030 0000 5365 6172 6368" /* chWrap 0..Search */
$"2064 6F65 7320 6E6F 7420 7772 6170 2061" /* does not wrap a */
$"726F 756E 642E 0000 0091 0151 009D 01A4" /* round......Q.... */
$"4F6E 003B 2053 6574 2053 6561 7263 6857" /* On.; Set SearchW */
$"7261 7020 3100 0053 6561 7263 6820 7772" /* rap 1..Search wr */
$"6170 7320 6172 6F75 6E64 2E00 0000 0701" /* aps around...... */
$"006C 014A 00A2 01D6 5365 6172 6368 2057" /* .l.J....Search W */
$"7261 7000 0113 5769 6E64 6F77 2076 6172" /* rap...Window var */
$"6961 626C 6573 0000 0009 0000 0457 696E" /* iables.......Win */
$"646F 7720 5265 6374 0000 0032 001A 0042" /* dow Rect...2...B */
$"0076 0032 0081 0042 0122 0001 3B20 5365" /* .v.2...B."..; Se */
$"7420 4E65 7757 696E 646F 7752 6563 7420" /* t NewWindowRect */
$"0054 6865 2077 696E 646F 7720 7369 7A65" /* .The window size */
$"206F 6620 6120 6E65 776C 7920 6372 6561" /* of a newly crea */
$"7465 6420 7769 6E64 6F77 2E20 5468 6520" /* ted window. The */
$"666F 7572 2063 6F6F 7264 696E 6174 6573" /* four coordinates */
$"2061 7265 2069 6E20 7468 6520 6F72 6465" /* are in the orde */
$"7220 746F 702C 206C 6566 742C 2062 6F74" /* r top, left, bot */
$"746F 6D2C 2072 6967 6874 2E20 2052 6563" /* tom, right. Rec */
$"7461 6E67 6C65 7320 6E6F 7420 636F 6D70" /* tangles not comp */
$"6C65 7465 6C79 206F 6E20 7468 6520 7363" /* letely on the sc */
$"7265 656E 2077 696C 6C20 6265 2063 6C69" /* reen will be cli */
$"7070 6564 2E00 0000 0701 0024 000E 0050" /* pped.......$...P */
$"012C 4E65 7720 5769 6E64 6F77 2052 6563" /* .,New Window Rec */
$"7400 0000 0457 696E 646F 7720 5265 6374" /* t....Window Rect */
$"0000 0080 001A 0090 0076 0080 0081 0090" /* .........v...... */
$"0122 0001 3B20 5365 7420 5A6F 6F6D 5769" /* ."..; Set ZoomWi */
$"6E64 6F77 5265 6374 2000 5468 6520 7769" /* ndowRect .The wi */
$"6E64 6F77 2073 697A 6520 6F66 2061 207A" /* ndow size of a z */
$"6F6F 6D65 6420 7769 6E64 6F77 2E20 5468" /* oomed window. Th */
$"6520 666F 7572 2063 6F6F 7264 696E 6174" /* e four coordinat */
$"6573 2061 7265 2069 6E20 7468 6520 6F72" /* es are in the or */
$"6465 7220 746F 702C 206C 6566 742C 2062" /* der top, left, b */
$"6F74 746F 6D2C 2072 6967 6874 2E20 2052" /* ottom, right. R */
$"6563 7461 6E67 6C65 7320 6E6F 7420 636F" /* ectangles not co */
$"6D70 6C65 7465 6C79 206F 6E20 7468 6520" /* mpletely on the */
$"7363 7265 656E 2077 696C 6C20 6265 2063" /* screen will be c */
$"6C69 7070 6564 2E00 0000 0701 0072 000E" /* lipped.......r.. */
$"009E 012C 5A6F 6F6D 2057 696E 646F 7720" /* ...,Zoom Window */
$"5265 6374 0000 0000 0802 0019 014C 0029" /* Rect.........L.) */
$"016D 0018 016E 002B 01C9 466F 6E74 003B" /* .m...n.+..Font.; */
$"2053 6574 2046 6F6E 7420 0053 7065 6369" /* Set Font .Speci */
$"6669 6573 2074 6865 2066 6F6E 7420 666F" /* fies the font fo */
$"7220 6120 6E65 7720 7769 6E64 6F77 2E20" /* r a new window. */
$"5468 6520 6465 6661 756C 7420 666F 6E74" /* The default font */
$"2069 7320 4D6F 6E61 636F 0001 0000 0446" /* is Monaco.....F */
$"6F6E 7453 697A 6500 0034 014E 0044 0188" /* ontSize..4.N.D.. */
$"0034 0195 0044 01C3 3900 013B 2053 6574" /* .4...D..9..; Set */
$"2046 6F6E 7453 697A 6520 0053 7065 6369" /* FontSize .Speci */
$"6669 6573 2074 6865 2066 6F6E 7420 7369" /* fies the font si */
$"7A65 2066 6F72 2061 206E 6577 2077 696E" /* ze for a new win */
$"646F 772E 2054 6865 2064 6566 6175 6C74" /* dow. The default */
$"2073 697A 6520 6973 2039 2E00 0000 0454" /* size is 9.....T */
$"6162 0000 0093 014D 00A3 0167 0093 016B" /* ab.....M...g...k */
$"00A3 018F 3400 013B 2053 6574 2054 6162" /* ....4..; Set Tab */
$"2000 5370 6563 6966 6965 7320 7468 6520" /* .Specifies the */
$"7461 6220 7365 7474 696E 6720 666F 7220" /* tab setting for */
$"6120 6E65 7720 7769 6E64 6F77 2E20 5468" /* a new window. Th */
$"6520 6465 6661 756C 7420 7461 6220 6973" /* e default tab is */
$"2034 2E00 0000 0303 005A 014F 006A 01A2" /* 4.......Z.O.j.. */
$"4465 6661 756C 7400 3B20 5365 7420 4175" /* Default.; Set Au */
$"746F 496E 6465 6E74 2031 0001 4175 746F" /* toIndent 1..Auto */
$"2069 6E64 656E 7420 6973 206F 6E2E 2044" /* indent is on. D */
$"6566 6175 6C74 2073 6574 7469 6E67 2E00" /* efault setting.. */
$"006A 014F 007A 01A2 4F6E 003B 2053 6574" /* .j.O.z..On.; Set */
$"2041 7574 6F49 6E64 656E 7420 3100 0045" /* AutoIndent 1..E */
$"6E61 626C 6520 6175 746F 2069 6E64 656E" /* nable auto inden */
$"742E 0000 007A 014F 008A 01A2 4F66 6600" /* t....z.O....Off. */
$"3B20 5365 7420 4175 746F 496E 6465 6E74" /* ; Set AutoIndent */
$"2030 0000 4469 7361 626C 6520 6175 746F" /* 0..Disable auto */
$"2069 6E64 656E 742E 0000 0000 0701 0054" /* indent........T */
$"0148 008C 01D4 4175 746F 2049 6E64 656E" /* .H....Auto Inden */
$"7400 0127 4175 746F 6D61 7469 6361 6C6C" /* t..'Automaticall */
$"7920 7369 7A65 7320 616E 6420 6D6F 7665" /* y sizes and move */
$"7320 616C 6C20 6F66 2074 6865 206F 7065" /* s all of the ope */
$"6E20 7368 656C 6C20 7769 6E64 6F77 7320" /* n shell windows */
$"696E 746F 2061 2073 7461 636B 6564 2066" /* into a stacked f */
$"6F72 6D61 742E 0000 000A 0107 0002 0003" /* ormat........... */
$"0004 0005 0006 0008 0009 0301 FF9C FF9C" /* ................ */
$"FF9C FF9C 003B 2053 6574 2053 7461 636B" /* .....; Set Stack */
$"4F70 7469 6F6E 7320 2200 0000 0203 FFFA" /* Options "....... */
$"FFF8 FFF7 0200 0019 0014 002D 00AA 496E" /* ...........-..In */
$"636C 7564 6520 576F 726B 7368 6565 7400" /* clude Worksheet. */
$"2D69 0049 6E63 6C75 6465 2074 6865 2077" /* -i.Include the w */
$"6F72 6B73 6865 6574 2069 6E20 7374 6163" /* orksheet in stac */
$"6B69 6E67 2E00 0000 0448 6F72 697A 6F6E" /* king.....Horizon */
$"7461 6C00 0041 0014 0055 005A 0041 006E" /* tal..A...U.Z.A.n */
$"0050 0096 0000 2D68 0054 6869 7320 7370" /* .P....-h.This sp */
$"6563 6966 6965 7320 7468 6520 6E75 6D62" /* ecifies the numb */
$"6572 206F 6620 7069 7865 6C73 2074 6F20" /* er of pixels to */
$"7370 6163 6520 7468 6520 7769 6E64 6F77" /* space the window */
$"7320 686F 7269 7A6F 6E74 616C 6C79 2077" /* s horizontally w */
$"6865 6E20 7374 6163 6B69 6E67 2E20 2054" /* hen stacking. T */
$"6865 2064 6566 6175 6C74 2069 7320 3130" /* he default is 10 */
$"2070 6978 656C 7320 7769 6465 2E00 0000" /* pixels wide.... */
$"0456 6572 7469 6361 6C00 005F 0014 0073" /* .Vertical.._...s */
$"005A 005F 006E 006E 0096 0000 2D76 0054" /* .Z._.n.n....-v.T */
$"6869 7320 7370 6563 6966 6965 7320 7468" /* his specifies th */
$"6520 6E75 6D62 6572 206F 6620 7069 7865" /* e number of pixe */
$"6C73 2074 6F20 7370 6163 6520 7468 6520" /* ls to space the */
$"7769 6E64 6F77 7320 7665 7274 6963 616C" /* windows vertical */
$"6C79 2077 6865 6E20 7374 6163 6B69 6E67" /* ly when stacking */
$"2E20 2054 6865 2064 6566 6175 6C74 2069" /* . The default i */
$"7320 3230 2070 6978 656C 7320 6869 6768" /* s 20 pixels high */
$"2E00 0000 0452 6563 7461 6E67 6C65 0000" /* .....Rectangle.. */
$"007D 0014 0091 0064 0091 0014 00A0 0096" /* .}.....d........ */
$"0000 2D72 0053 7065 6369 6679 2061 2072" /* ..-r.Specify a r */
$"6563 7461 6E67 6C65 2069 6E20 7768 6963" /* ectangle in whic */
$"6820 746F 2073 7461 636B 2074 6865 2077" /* h to stack the w */
$"696E 646F 7773 2E20 2053 6570 6172 6174" /* indows. Separat */
$"6520 7468 6520 636F 6F72 6469 6E61 7465" /* e the coordinate */
$"7320 7769 7468 2063 6F6D 6D61 732E 2020" /* s with commas. */
$"5468 6520 6F72 6465 7220 6973 3A20 746F" /* The order is: to */
$"702C 206C 6566 742C 2062 6F74 746F 6D2C" /* p, left, bottom, */
$"2072 6967 6874 0000 0201 FFFE 0E02 0057" /* right.........W */
$"696E 646F 7773 0000 0019 00D7 0028 013B" /* indows.......(.; */
$"002D 00D7 008D 01C7 4279 2064 6566 6175" /* .-......By defau */
$"6C74 2061 6C6C 206F 6620 7468 6520 7368" /* lt all of the sh */
$"656C 6C20 7769 6E64 6F77 7320 7769 6C6C" /* ell windows will */
$"2062 6520 7374 6163 6B65 642E 2020 4279" /* be stacked. By */
$"2073 656C 6563 7469 6E67 2066 726F 6D20" /* selecting from */
$"7468 6973 206C 6973 7420 796F 7520 6361" /* this list you ca */
$"6E20 7370 6563 6966 7920 6120 7375 6273" /* n specify a subs */
$"6574 206F 6620 7769 6E64 6F77 7320 746F" /* et of windows to */
$"2062 6520 7374 6163 6B65 642E 0000 0000" /* be stacked..... */
$"0601 0019 00B9 00AA 00BA 0201 FFFE 0200" /* ................ */
$"009A 00D7 00AB 014F 496E 636C 7564 6520" /* .......OInclude */
$"4163 7469 7665 0020 B622 7B41 6374 6976" /* Active. ."{Activ */
$"657D B622 0049 6E63 6C75 6465 2074 6865" /* e}.".Include the */
$"2077 6F72 6B73 6865 6574 2069 6E20 7374" /* worksheet in st */
$"6163 6B69 6E67 2E00 0201 FFFE 0200 009A" /* acking.......... */
$"0154 00AB 01C8 496E 636C 7564 6520 5461" /* .T....Include Ta */
$"7267 6574 0020 B622 7B54 6172 6765 747D" /* rget. ."{Target} */
$"B622 0049 6E63 6C75 6465 2074 6865 2077" /* .".Include the w */
$"6F72 6B73 6865 6574 2069 6E20 7374 6163" /* orksheet in stac */
$"6B69 6E67 2E00 0107 0002 0003 0004 0005" /* king............ */
$"0006 0008 0009 0301 FF9C FF9C FF9C FF9C" /* ................ */
$"0022 0000 0000 0127 4175 746F 6D61 7469" /* .".....'Automati */
$"6361 6C6C 7920 6D6F 7665 7320 616E 6420" /* cally moves and */
$"7369 7A65 7320 616C 6C20 6F66 2074 6865" /* sizes all of the */
$"206F 7065 6E20 7368 656C 6C20 7769 6E64" /* open shell wind */
$"6F77 7320 7375 6368 2074 6861 7420 7468" /* ows such that th */
$"6579 2061 7265 2061 6C6C 2076 6973 6962" /* ey are all visib */
$"6C65 206F 6E20 7468 6520 7363 7265 656E" /* le on the screen */
$"2061 7420 6F6E 6365 2E00 000D 0107 0002" /* at once........ */
$"2003 3003 0005 0006 0008 0009 0301 FF9C" /* .0............. */
$"FF9C FF9C FF9C 003B 2053 6574 2054 696C" /* .......; Set Til */
$"654F 7074 696F 6E73 2022 0000 0000 0203" /* eOptions "...... */
$"FFFA FFF8 FFF7 0200 000F 0014 0023 00AA" /* .............#.. */
$"496E 636C 7564 6520 576F 726B 7368 6565" /* Include Workshee */
$"7400 2D69 0049 6E63 6C75 6465 2074 6865" /* t.-i.Include the */
$"2077 6F72 6B73 6865 6574 2069 6E20 7469" /* worksheet in ti */
$"6C69 6E67 2E00 0000 0303 0027 0019 0046" /* ling.......'...F */
$"009A 5265 6775 6C61 7200 0001 5469 6C65" /* ..Regular...Tile */
$"2077 696E 646F 7773 2061 7070 726F 7072" /* windows appropr */
$"6961 7465 6C79 2E20 4465 6661 756C 7420" /* iately. Default */
$"7365 7474 696E 672E 0000 004D 0019 006B" /* setting....M...k */
$"009A 486F 7269 7A6F 6E74 616C 002D 6800" /* ..Horizontal.-h. */
$"0054 696C 6520 7769 6E64 6F77 7320 686F" /* .Tile windows ho */
$"7269 7A6F 6E74 616C 6C79 2E00 0072 0019" /* rizontally...r.. */
$"008F 009A 5665 7274 6963 616C 002D 7600" /* ....Vertical.-v. */
$"0054 696C 6520 7769 6E64 6F77 7320 7665" /* .Tile windows ve */
$"7274 6963 616C 6C79 2E00 0000 0601 0024" /* rtically.......$ */
$"0014 0095 009D 0000 0452 6563 7461 6E67" /* .........Rectang */
$"6C65 0000 0095 0014 00A9 0064 00A9 0014" /* le.........d.... */
$"00B8 0096 0000 2D72 0053 7065 6369 6679" /* ......-r.Specify */
$"2061 2072 6563 7461 6E67 6C65 2069 6E20" /* a rectangle in */
$"7768 6963 6820 746F 2074 696C 6520 7468" /* which to tile th */
$"6520 7769 6E64 6F77 732E 2020 5365 7061" /* e windows. Sepa */
$"7261 7465 2074 6865 2063 6F6F 7264 696E" /* rate the coordin */
$"6174 6573 2077 6974 6820 636F 6D6D 6173" /* ates with commas */
$"2E20 2054 6865 206F 7264 6572 2069 733A" /* . The order is: */
$"2074 6F70 2C20 6C65 6674 2C20 626F 7474" /* top, left, bott */
$"6F6D 2C20 7269 6768 7400 0201 FFFE 0E02" /* om, right....... */
$"0057 696E 646F 7773 0000 0019 00D7 0028" /* .Windows.......( */
$"013B 002D 00D7 008D 01C7 4279 2064 6566" /* .;.-......By def */
$"6175 6C74 2061 6C6C 206F 6620 7468 6520" /* ault all of the */
$"7368 656C 6C20 7769 6E64 6F77 7320 7769" /* shell windows wi */
$"6C6C 2062 6520 7469 6C65 642E 2020 4279" /* ll be tiled. By */
$"2073 656C 6563 7469 6E67 2066 726F 6D20" /* selecting from */
$"7468 6973 206C 6973 7420 796F 7520 6361" /* this list you ca */
$"6E20 7370 6563 6966 7920 6120 7375 6273" /* n specify a subs */
$"6574 206F 6620 7769 6E64 6F77 7320 746F" /* et of windows to */
$"2062 6520 7469 6C65 642E 0000 0000 0601" /* be tiled....... */
$"0019 00B9 00AA 00BA 0201 FFFE 0200 009A" /* ................ */
$"00D7 00AB 014F 496E 636C 7564 6520 4163" /* .....OInclude Ac */
$"7469 7665 0020 B622 7B41 6374 6976 657D" /* tive. ."{Active} */
$"B622 0049 6E63 6C75 6465 2074 6865 2077" /* .".Include the w */
$"6F72 6B73 6865 6574 2069 6E20 7374 6163" /* orksheet in stac */
$"6B69 6E67 2E00 0201 FFFE 0200 009A 0154" /* king...........T */
$"00AB 01C8 496E 636C 7564 6520 5461 7267" /* ....Include Targ */
$"6574 0020 B622 7B54 6172 6765 747D B622" /* et. ."{Target}." */
$"0049 6E63 6C75 6465 2074 6865 2077 6F72" /* .Include the wor */
$"6B73 6865 6574 2069 6E20 7374 6163 6B69" /* ksheet in stacki */
$"6E67 2E00 0107 0002 2003 3003 0005 0006" /* ng...... .0..... */
$"0008 0009 0301 FF9C FF9C FF9C FF9C 0022" /* ..............." */
$"0000 0000 0000 0F00 4268 0027 007A 0047" /* ........Bh.'.z.G */
$"009A 0000 0F00 4269 004D 007A 006D 009A" /* ......Bi.M.z.m.. */
$"0000 0F00 426A 0071 0079 0091 0099 0127" /* ....Bj.q.y.....' */
$"5365 7420 7570 2073 7461 6E64 6172 6420" /* Set up standard */
$"7072 696E 7420 6F70 7469 6F6E 732E 0000" /* print options... */
$"0022 0118 2002 3002 0004 0005 0006 0007" /* .".. .0......... */
$"0008 000A 000B 000C 000D 000E 000F 0010" /* ................ */
$"0012 0013 0014 0015 0017 0018 0019 001B" /* ................ */
$"001C 001F 0301 FF9C FF9C FF9C FF9C 003B" /* ...............; */
$"2053 6574 2050 7269 6E74 4F70 7469 6F6E" /* Set PrintOption */
$"7320 2700 0000 0000 0303 008B 0180 009B" /* s '............. */
$"01B3 4E6F 6E65 0000 0144 6F20 6E6F 7420" /* ..None...Do not */
$"7072 696E 7420 6120 6120 626F 7264 6572" /* print a a border */
$"2061 726F 756E 6420 6561 6368 2070 6167" /* around each pag */
$"652E 0000 009A 0180 00AA 01B9 5369 6E67" /* e...........Sing */
$"6C65 002D 6232 0000 5072 696E 7420 6120" /* le.-b2..Print a */
$"626F 7264 6572 2061 726F 756E 6420 7468" /* border around th */
$"6520 6564 6765 206F 6620 6561 6368 2070" /* e edge of each p */
$"6167 652E 2020 5468 6520 6865 6164 6572" /* age. The header */
$"2C20 6966 2073 7065 6369 6669 6564 2C20" /* , if specified, */
$"7265 6D61 696E 7320 6F75 7473 6964 6520" /* remains outside */
$"7468 6520 626F 7264 6572 2E00 00A9 0180" /* the border...... */
$"00B9 01BE 446F 7562 6C65 002D 6200 0050" /* ....Double.-b..P */
$"7269 6E74 2061 2062 6F72 6465 7220 6172" /* rint a border ar */
$"6F75 6E64 2074 6865 2065 6467 6520 6F66" /* ound the edge of */
$"2065 6163 6820 7061 6765 2E20 2054 6865" /* each page. The */
$"2068 6561 6465 722C 2069 6620 7370 6563" /* header, if spec */
$"6966 6965 642C 2069 7320 756E 6465 726C" /* ified, is underl */
$"696E 6564 2061 6E64 2069 6E63 6C75 6465" /* ined and include */
$"6420 7769 7468 696E 2074 6865 2062 6F72" /* d within the bor */
$"6465 722E 0000 0000 0701 0084 017A 00BB" /* der..........z.. */
$"01D7 426F 7264 6572 0000 0000 0200 001E" /* ..Border........ */
$"0010 002E 007D 5072 696E 7420 4865 6164" /* .....}Print Head */
$"6572 002D 6800 4368 6563 6B20 7468 6973" /* er.-h.Check this */
$"2062 6F78 2074 6F20 7072 696E 7420 7061" /* box to print pa */
$"6765 2068 6561 6465 7273 2061 7420 7468" /* ge headers at th */
$"6520 746F 7020 6F66 2065 6163 6820 7061" /* e top of each pa */
$"6765 2E00 0101 0004 0200 002E 0010 003E" /* ge.............> */
$"0081 5573 6520 4D6F 642E 2044 6174 6500" /* ..Use Mod. Date. */
$"2D6D 6400 4368 6563 6B20 7468 6973 2062" /* -md.Check this b */
$"6F78 2074 6F20 7573 6520 7468 6520 6669" /* ox to use the fi */
$"6C65 2773 206C 6173 742D 6D6F 6469 6669" /* le's last-modifi */
$"6564 2064 6174 6520 696E 2074 6865 2070" /* ed date in the p */
$"6167 6520 6865 6164 6572 2069 6E73 7465" /* age header inste */
$"6164 206F 6620 7468 6520 6375 7272 656E" /* ad of the curren */
$"7420 6461 7465 2E00 0101 0004 0454 6974" /* t date.......Tit */
$"6C65 0000 0046 0010 0056 0030 0046 0034" /* le...F...V.0.F.4 */
$"0056 0080 0000 2D74 6974 6C65 0057 6865" /* .V....-title.Whe */
$"6E20 7072 696E 7469 6E67 2070 6167 6520" /* n printing page */
$"6865 6164 6572 7320 7573 6520 7468 6973" /* headers use this */
$"2066 6965 6C64 2061 7320 7468 6520 7469" /* field as the ti */
$"746C 6520 696E 7374 6561 6420 6F66 2074" /* tle instead of t */
$"6865 2066 696C 656E 616D 652E 0000 0101" /* he filename..... */
$"0004 0802 005E 0014 006E 0034 005D 0039" /* .....^...n.4.].9 */
$"0070 0083 466F 6E74 002D 6866 6F6E 7400" /* .p..Font.-hfont. */
$"5370 6563 6966 7920 7468 6520 666F 6E74" /* Specify the font */
$"2066 6F72 2074 6865 2070 6167 6520 6865" /* for the page he */
$"6164 6572 2E20 2054 6865 2064 6566 6175" /* ader. The defau */
$"6C74 2069 7320 7468 6520 7361 6D65 2066" /* lt is the same f */
$"6F6E 7420 6173 2069 6E20 7468 6520 626F" /* ont as in the bo */
$"6479 206F 6620 7468 6520 6669 6C65 2E00" /* dy of the file.. */
$"0100 0101 0007 0C02 0074 0014 0084 0053" /* .........t.....S */
$"0073 0059 0086 0085 466F 6E74 2053 697A" /* .s.Y....Font Siz */
$"6500 2D68 7369 7A65 0054 7970 6520 696E" /* e.-hsize.Type in */
$"2074 6865 2066 6F6E 7420 7369 7A65 2066" /* the font size f */
$"6F72 2074 6865 2070 6167 6520 6865 6164" /* or the page head */
$"6572 2E20 2054 6865 2064 6566 6175 6C74" /* er. The default */
$"2069 7320 7468 6520 7361 6D65 2066 6F6E" /* is the same fon */
$"7420 7369 7A65 2061 7320 696E 2074 6865" /* t size as in the */
$"2062 6F64 7920 6F66 2074 6865 2066 696C" /* body of the fil */
$"652E 0053 7065 6369 6679 2074 6865 2066" /* e..Specify the f */
$"6F6E 7420 7369 7A65 2066 6F72 2074 6865" /* ont size for the */
$"2070 6167 6520 6865 6164 6572 2E20 2054" /* page header. T */
$"6865 2064 6566 6175 6C74 2069 7320 7468" /* he default is th */
$"6520 7361 6D65 2066 6F6E 7420 7369 7A65" /* e same font size */
$"2061 7320 696E 2074 6865 2062 6F64 7920" /* as in the body */
$"6F66 2074 6865 2066 696C 652E 0000 0000" /* of the file..... */
$"0701 0012 000B 008B 0087 4865 6164 6572" /* ..........Header */
$"0000 0000 0200 0093 000E 00A3 0080 5368" /* ..............Sh */
$"6F77 2050 726F 6772 6573 7300 2D70 0057" /* ow Progress.-p.W */
$"7269 7465 2070 726F 6772 6573 7320 696E" /* rite progress in */
$"666F 726D 6174 696F 6E20 746F 2064 6961" /* formation to dia */
$"676E 6F73 7469 6320 6F75 7470 7574 2C20" /* gnostic output, */
$"696E 6469 6361 7469 6E67 2077 6869 6368" /* indicating which */
$"2066 696C 6573 2061 7265 2070 7269 6E74" /* files are print */
$"696E 6720 616E 6420 7468 6520 6E75 6D62" /* ing and the numb */
$"6572 206F 6620 6C69 6E65 7320 616E 6420" /* er of lines and */
$"7061 6765 7320 7072 696E 7465 6400 0000" /* pages printed... */
$"0200 00A5 000E 00B5 0081 5265 7665 7273" /* ..........Revers */
$"6520 5061 6765 7300 2D72 004F 7574 7075" /* e Pages.-r.Outpu */
$"7420 7061 6765 7320 746F 2074 6865 2070" /* t pages to the p */
$"7269 6E74 6572 2069 6E20 7265 7665 7273" /* rinter in revers */
$"6520 6F72 6465 722E 2020 5468 6973 2065" /* e order. This e */
$"6C69 6D69 6E61 7465 7320 7468 6520 6E65" /* liminates the ne */
$"6564 2074 6F20 7265 6F72 6465 7220 7061" /* ed to reorder pa */
$"6765 7320 6F6E 2074 6865 204C 6173 6572" /* ges on the Laser */
$"5772 6974 6572 2E00 0000 0454 6162 2053" /* Writer.....Tab S */
$"6574 7469 6E67 0000 001B 008E 002B 00E2" /* etting.......+.. */
$"001B 00EB 002B 0102 0000 2D74 6162 7300" /* .....+....-tabs. */
$"4578 7061 6E64 2074 6162 732C 2075 7369" /* Expand tabs, usi */
$"6E67 2074 6865 2069 6E64 6963 6174 6564" /* ng the indicated */
$"2074 6162 2073 6574 7469 6E67 2E20 2054" /* tab setting. T */
$"6865 2064 6566 6175 6C74 2069 7320 746F" /* he default is to */
$"2075 7365 2074 6865 2074 6162 2073 6574" /* use the tab set */
$"7469 6E67 2069 6E20 7468 6520 7265 736F" /* ting in the reso */
$"7572 6365 2066 6F72 6B20 6F66 2074 6865" /* urce fork of the */
$"2066 696C 652E 0000 0101 FFF2 044C 696E" /* file........Lin */
$"6573 2F50 6167 6500 0032 008E 0042 00DA" /* es/Page..2...B.. */
$"0032 00EB 0042 0102 0000 2D6C 696E 6573" /* .2...B....-lines */
$"0050 7269 6E74 2061 7420 6D6F 7374 2027" /* .Print at most ' */
$"6E27 206C 696E 6573 2070 6572 2070 6167" /* n' lines per pag */
$"652E 2020 4C69 6E65 7320 7769 6C6C 2062" /* e. Lines will b */
$"6520 7370 6163 6564 2074 6F20 7573 6520" /* e spaced to use */
$"7468 6520 6675 6C6C 2070 6167 652E 0000" /* the full page... */
$"0101 FFF3 044C 696E 6520 5370 6163 696E" /* .....Line Spacin */
$"6700 0049 008E 0059 00E2 0049 00EB 0059" /* g..I...Y...I...Y */
$"0102 0000 2D6C 7300 5365 7420 6C69 6E65" /* ....-ls.Set line */
$"2073 7061 6369 6E67 2E20 2041 2076 616C" /* spacing. A val */
$"7565 206F 6620 3120 696E 6469 6361 7465" /* ue of 1 indicate */
$"7320 7369 6E67 6C65 2073 7061 6369 6E67" /* s single spacing */
$"2028 7468 6520 6465 6661 756C 7429 2C20" /* (the default), */
$"2032 2069 6E64 6963 6174 6573 2064 6F75" /* 2 indicates dou */
$"626C 652D 7370 6163 696E 672C 2061 6E64" /* ble-spacing, and */
$"2073 6F20 6F6E 2E00 0000 0802 0060 0095" /* so on.......`.. */
$"0070 00B5 005F 00BA 0072 0106 466F 6E74" /* .p..._...r..Font */
$"002D 666F 6E74 0053 656C 6563 7420 7468" /* .-font.Select th */
$"6520 666F 6E74 2074 6F20 7072 696E 7420" /* e font to print */
$"7769 7468 2E20 2054 6865 2064 6566 6175" /* with. The defau */
$"6C74 2069 7320 7468 6520 666F 6E74 2073" /* lt is the font s */
$"7065 6369 6669 6564 2069 6E20 7468 6520" /* pecified in the */
$"6669 6C65 2773 2072 6573 6F75 7263 6520" /* file's resource */
$"666F 726B 2C20 6966 2070 7265 7365 6E74" /* fork, if present */
$"2C20 6F74 6865 7277 6973 6520 4D6F 6E61" /* , otherwise Mona */
$"636F 2E00 0100 0101 000F 0C02 0074 0095" /* co...........t.. */
$"0084 00D3 0073 00DC 0086 0108 466F 6E74" /* .....s......Font */
$"2053 697A 6500 2D73 697A 6500 5479 7065" /* Size.-size.Type */
$"2069 6E20 7468 6520 666F 6E74 2073 697A" /* in the font siz */
$"652E 2020 5468 6520 6465 6661 756C 7420" /* e. The default */
$"6973 2074 6865 2073 697A 6520 7370 6563" /* is the size spec */
$"6966 6965 6420 696E 2074 6865 2066 696C" /* ified in the fil */
$"6527 7320 7265 736F 7572 6365 2066 6F72" /* e's resource for */
$"6B2C 2069 6620 7072 6573 656E 742C 206F" /* k, if present, o */
$"7468 6572 7769 7365 2039 2E00 5365 6C65" /* therwise 9..Sele */
$"6374 2074 6865 2066 6F6E 7420 7369 7A65" /* ct the font size */
$"2E20 2054 6865 2064 6566 6175 6C74 2069" /* . The default i */
$"7320 7468 6520 7369 7A65 2073 7065 6369" /* s the size speci */
$"6669 6564 2069 6E20 7468 6520 6669 6C65" /* fied in the file */
$"2773 2072 6573 6F75 7263 6520 666F 726B" /* 's resource fork */
$"2C20 6966 2070 7265 7365 6E74 2C20 6F74" /* , if present, ot */
$"6865 7277 6973 6520 392E 0000 0000 0701" /* herwise 9....... */
$"0012 0089 008B 010A 466F 726D 6174 0000" /* ........Format.. */
$"0000 0454 6F70 0000 001D 0183 002D 019F" /* ...Top.......-.. */
$"001D 01A2 002D 01D0 0000 2D74 6D00 5365" /* .....-....-tm.Se */
$"7420 7468 6520 746F 7020 6D61 7267 696E" /* t the top margin */
$"2E20 2054 6865 2064 6566 6175 6C74 2069" /* . The default i */
$"7320 3020 696E 6368 6573 2E00 0000 044C" /* s 0 inches.....L */
$"6674 0000 004D 0183 005D 019F 004D 01A2" /* ft...M...]...M.. */
$"005D 01D0 0000 2D6C 6D00 5365 7420 7468" /* .]....-lm.Set th */
$"6520 6C65 6674 206D 6172 6769 6E2E 2020" /* e left margin. */
$"5468 6520 6465 6661 756C 7420 6973 2030" /* The default is 0 */
$"2E32 3737 3820 696E 6368 6573 2C20 666F" /* .2778 inches, fo */
$"7220 332D 686F 6C65 2070 756E 6368 6564" /* r 3-hole punched */
$"2070 6167 6573 2E00 0000 0452 6774 0000" /* pages.....Rgt.. */
$"0035 0183 0045 019F 0035 01A2 0045 01D0" /* .5...E...5...E.. */
$"0000 2D72 6D00 5365 7420 7468 6520 7269" /* ..-rm.Set the ri */
$"6768 7420 6D61 7267 696E 2E20 2054 6865" /* ght margin. The */
$"2064 6566 6175 6C74 2069 7320 3020 696E" /* default is 0 in */
$"6368 6573 2E00 0000 0442 746D 0000 0065" /* ches.....Btm...e */
$"0183 0075 019F 0065 01A2 0075 01D0 0000" /* ...u...e...u.... */
$"2D62 6D00 5365 7420 7468 6520 626F 7474" /* -bm.Set the bott */
$"6F6D 206D 6172 6769 6E2E 2020 5468 6520" /* om margin. The */
$"6465 6661 756C 7420 6973 2030 2069 6E63" /* default is 0 inc */
$"6865 732E 0000 0000 0701 0012 0179 007B" /* hes..........y.{ */
$"01D6 4D61 7267 696E 7300 0000 0443 6F70" /* ..Margins....Cop */
$"6965 7300 001A 0118 002B 0147 001A 014A" /* ies......+.G...J */
$"002A 016E 0000 2D63 6F70 6965 7300 4D61" /* .*.n..-copies.Ma */
$"6B65 2027 6E27 2063 6F70 6965 7320 6F66" /* ke 'n' copies of */
$"2074 6865 2066 696C 6528 7329 2074 6F20" /* the file(s) to */
$"6265 2070 7269 6E74 6564 2E00 0000 0446" /* be printed.....F */
$"726F 6D00 0032 0124 0041 0145 0032 014B" /* rom..2.$.A.E.2.K */
$"0042 016E 0000 2D66 726F 6D00 5072 696E" /* .B.n..-from.Prin */
$"7420 7061 6765 7320 7374 6172 7469 6E67" /* t pages starting */
$"2066 726F 6D20 7061 6765 206E 756D 6265" /* from page numbe */
$"7220 276E 272E 2020 5468 6520 6465 6661" /* r 'n'. The defa */
$"756C 7420 6973 2074 6865 2066 6972 7374" /* ult is the first */
$"2070 6167 6520 6F66 2074 6865 2066 696C" /* page of the fil */
$"652E 0000 0000 0454 6F00 0049 0132 005B" /* e......To..I.2.[ */
$"0146 004A 014B 0059 016E 0000 2D74 6F00" /* .F.J.K.Y.n..-to. */
$"5072 696E 7420 7061 6765 7320 7570 2074" /* Print pages up t */
$"6F20 616E 6420 696E 636C 7564 696E 6720" /* o and including */
$"7061 6765 2027 6E27 2E20 2054 6865 2064" /* page 'n'. The d */
$"6566 6175 6C74 2069 7320 746F 2070 7269" /* efault is to pri */
$"6E74 2075 7020 746F 2061 6E64 2069 6E63" /* nt up to and inc */
$"6C75 6469 6E67 2074 6865 206C 6173 7420" /* luding the last */
$"7061 6765 206F 6620 7468 6520 6669 6C65" /* page of the file */
$"2E00 0000 0701 0012 010F 005F 0174 5061" /* ..........._.tPa */
$"6765 7300 0000 0446 4600 0067 0113 0077" /* ges....FF..g...w */
$"012A 0065 012D 0075 0171 0000 2D66 6600" /* .*.e.-.u.q..-ff. */
$"5370 6563 6966 7920 6120 6368 6172 6163" /* Specify a charac */
$"7465 7220 7365 7175 656E 6365 2077 6869" /* ter sequence whi */
$"6368 2C20 6966 2065 6E63 6F75 6E74 6572" /* ch, if encounter */
$"6564 2061 7420 7468 6520 6265 6769 6E6E" /* ed at the beginn */
$"696E 6720 6F66 2061 206C 696E 652C 2077" /* ing of a line, w */
$"696C 6C20 6265 2074 7265 6174 6564 2061" /* ill be treated a */
$"7320 6120 666F 726D 6665 6564 2063 6861" /* s a formfeed cha */
$"7261 6374 6572 2E00 0000 0200 0093 0093" /* racter.......... */
$"00A4 0101 4C69 6E65 204E 756D 6265 7273" /* ....Line Numbers */
$"002D 6E00 4E75 6D62 6572 2065 6163 6820" /* .-n.Number each */
$"6C69 6E65 2E20 204C 696E 6520 6E75 6D62" /* line. Line numb */
$"6572 7320 7769 6C6C 2061 7070 6561 7220" /* ers will appear */
$"746F 2074 6865 206C 6566 7420 6F66 2074" /* to the left of t */
$"6865 2070 7269 6E74 6564 2074 6578 742E" /* he printed text. */
$"0000 0101 001C 0446 6965 6C64 2057 6964" /* .......Field Wid */
$"7468 0000 00A5 0095 00B5 00DF 00A6 00E8" /* th.............. */
$"00B5 00FA 0000 2D6E 7700 5370 6563 6966" /* ......-nw.Specif */
$"7920 7468 6520 7769 6474 6820 6F66 2074" /* y the width of t */
$"6865 206C 696E 6520 6E75 6D62 6572 2069" /* he line number i */
$"6E20 6368 6172 6163 7465 7273 2E20 2054" /* n characters. T */
$"6865 2064 6566 6175 6C74 2069 7320 352E" /* he default is 5. */
$"2020 4E65 6761 7469 7665 2076 616C 7565" /* Negative value */
$"7320 6361 7573 6520 7A65 726F 2D70 6164" /* s cause zero-pad */
$"6469 6E67 2E00 0000 0601 008D 008C 00BB" /* ding............ */
$"0109 0000 0200 0089 0111 0098 0123 5365" /* .............#Se */
$"7420 7175 616C 6974 793A 0000 436C 6963" /* t quality:..Clic */
$"6B20 746F 2073 6574 2070 7269 6E74 2071" /* k to set print q */
$"7561 6C69 7479 206F 7074 696F 6E73 2E20" /* uality options. */
$"204F 6E6C 7920 6566 6665 6374 6976 6520" /* Only effective */
$"666F 7220 496D 6167 6557 7269 7465 7220" /* for ImageWriter */
$"7072 696E 7465 7273 2E00 0101 001F 0303" /* printers........ */
$"0099 0124 00A9 0175 5374 616E 6461 7264" /* ...$...uStandard */
$"002D 7120 7374 616E 6461 7264 0000 5365" /* .-q standard..Se */
$"7420 7072 696E 7420 7175 616C 6974 7920" /* t print quality */
$"746F 2053 7461 6E64 6172 642E 2020 4F6E" /* to Standard. On */
$"6C79 2065 6666 6563 7469 7665 2066 6F72" /* ly effective for */
$"2049 6D61 6765 5772 6974 6572 2070 7269" /* ImageWriter pri */
$"6E74 6572 732E 0000 0089 0124 0098 0157" /* nters......$...W */
$"4869 6768 002D 7120 6869 6768 0000 5365" /* High.-q high..Se */
$"7420 7072 696E 7420 7175 616C 6974 7920" /* t print quality */
$"746F 2048 6967 682E 2020 4F6E 6C79 2065" /* to High. Only e */
$"6666 6563 7469 7665 2066 6F72 2049 6D61" /* ffective for Ima */
$"6765 5772 6974 6572 2070 7269 6E74 6572" /* geWriter printer */
$"732E 0000 00A8 0125 00B7 015C 4472 6166" /* s......%...\Draf */
$"7400 2D71 2064 7261 6674 0000 5365 7420" /* t.-q draft..Set */
$"7072 696E 7420 7175 616C 6974 7920 746F" /* print quality to */
$"2044 7261 6674 2E20 204F 6E6C 7920 6566" /* Draft. Only ef */
$"6665 6374 6976 6520 666F 7220 496D 6167" /* fective for Imag */
$"6557 7269 7465 7220 7072 696E 7465 7273" /* eWriter printers */
$"2E00 0000 0701 0081 010D 00BB 0176 5175" /* .............vQu */
$"616C 6974 7900 0118 2002 3002 0004 0005" /* ality... .0..... */
$"0006 0007 0008 000A 000B 000C 000D 000E" /* ................ */
$"000F 0010 0012 0013 0014 0015 0017 0018" /* ................ */
$"0019 001B 001C 001F 0301 FF9C FF9C FF9C" /* ................ */
$"FF9C 0027 0000 0000" /* ...'.... */
};
data 'vers' (1, purgeable) {
$"0310 8000 0000 0333 2E31 2433 2E31 2C20" /* .......3.1$3.1, */
$"A920 4170 706C 6520 436F 6D70 7574 6572" /* . Apple Computer */
$"2C20 496E 632E 2C20 3139 3835 2D39 30" /* , Inc., 1985-90 */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 006C 6F73 6500 4D50" /* ..Monaco.lose.MP */
$"5720 5363 7269 7074 733A 5573 6572 5661" /* W Scripts:UserVa */
$"7269 0006 0004 002A 0003 0142 01E3 002A" /* ri.....*...B...* */
$"0003 0142 01E3 A431 E940 0000 0000 0000" /* ...B...1.@...... */
$"0000 0000 0000 0100" /* ........ */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0000 0000 0000 0000 0000 0000" /* .............. */
};

154
BootableMPW/Startup Normal file
View File

@ -0,0 +1,154 @@
# Startup - MPW Shell Startup File
#
# Copyright Apple Computer, Inc. 1985-1992
# All Rights Reserved.
# {Boot} - The boot disk. (Predefined.)
Export Boot
# {SystemFolder} - The directory that contains System & Finder. (Predefined.)
Export SystemFolder
# {ShellDirectory} - The directory that contains MPW Shell. (Predefined.)
Export ShellDirectory
# {Active} - The active (topmost) window. (Predefined.)
Export Active
# {Target} - The target (previously active) window. (Predefined.)
Export Target
# {Worksheet} - The name of the Worksheet window. (Predefined.)
Export Worksheet
# {Status} - The result of the last command executed. (Predefined.)
Export Status
# {User} - Automatically defined to the name the appears in the Chooser.
Export User
# {MPW} - The volume or folder containing the Macintosh Programmer's Workshop.
# If you put the MPW Shell out on the desktop, redefine this variable
# to be {Boot}MPW:
Set MPW "{ShellDirectory}"
Export MPW
# {Commands} - Directories to search for commands.
Set Commands ":,{MPW}Tools:,{MPW}Scripts:"
Export Commands
# {AIncludes} - Directories to search for assembly language include files.
Set AIncludes "{MPW}Interfaces:AIncludes:"
Export AIncludes
# {Libraries} - Directory that contains shared libraries.
Set Libraries "{MPW}Libraries:Libraries:"
Export Libraries
# {CIncludes} - Directories to search for C include files.
Set CIncludes "{MPW}Interfaces:CIncludes:"
Export CIncludes
# {CLibraries} - Directory that contains C libraries.
Set CLibraries "{MPW}Libraries:CLibraries:"
Export CLibraries
# {PInterfaces} - Directories to search for Pascal interface files.
Set PInterfaces "{MPW}Interfaces:PInterfaces:"
Export PInterfaces
# {PLibraries} - Directory that contains Pascal libraries.
Set PLibraries "{MPW}Libraries:PLibraries:"
Export PLibraries
# {RIncludes} - Directory that contains Rez include files.
Set RIncludes "{MPW}Interfaces:RIncludes:"
Export RIncludes
# {CaseSensitive} - If non-zero, pattern matching is case sensitive.
Set CaseSensitive 0
Export CaseSensitive
# {SearchBackward} - If non-zero, search will go backwards.
Set SearchBackward 0
Export SearchBackward
# {SearchWrap} - If non-zero, search will wrap.
Set SearchWrap 0
Export SearchWrap
# {SearchType} - Specifies the default searching type. (0/literal,
# 1/word, 2/regular expression)
Set SearchType 0
Export SearchType
# {Tab} - Default tab setting for new windows.
Set Tab 4
Export Tab
# {Font} - Default Font for new windows.
Set Font Monaco
Export Font
# {FontSize} - Default font size for new windows.
Set FontSize 9
Export FontSize
# {AutoIndent} - If non-zero, auto indentation will be the default for
# new windows.
Set AutoIndent 1
Export AutoIndent
# {WordSet} - Character set that defines words for searches and double-clicks.
Set WordSet 'a-zA-Z_0-9'
Export WordSet
# {PrintOptions} - Options used by the Print Window and Print Selection menus.
Set PrintOptions '-h'
Export PrintOptions
# {Exit} - If non-zero, command files terminate after the first error.
Set Exit 1
Export Exit
# {Echo} - If non-zero, commands are echoed before execution.
Set Echo 0
Export Echo
# {Test} - If non-zero, tools and applications are not executed.
Set Test 0
Export Test
# {MarkAlphabetical} - If non-zero, marks will be listed alphabetically in the menu
# by default.
Set MarkAlphabetical 0
Export MarkAlphabetical
# Commando Support
Export Windows
Export Aliases
Set Commando Commando
Export Commando
# Aliases
Alias File Target
# The file UserStartup can be used to override definitions made in Startup,
# or to define additional variables, exports, and aliases. UserStartup may
# also be used to define menu items, open windows, etc. The file should be
# located in the directory containing the MPW Shell.
Execute "{ShellDirectory}UserStartup"
# Since UserStartup is distributed with MPW, you may want to have other
# startup files that will not be overwritten with a new release.
# Other personalized startup files may be named UserStartup•≈ - such as
# "UserStartup•John" or "UserStartup•Tom" (• is option-8).
# These files should be located in the directory containing the MPW Shell.
For __Startup__i in `(Files "{ShellDirectory}"UserStartup•≈ || Set Status 0) ≥ dev:null`
Execute "{__Startup__i}"
End
Unset __Startup__i

View File

@ -0,0 +1 @@
TEXTMPS

25
BootableMPW/Startup.rdump Normal file
View File

@ -0,0 +1,25 @@
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 007D 7D7D 7D7D 7D7D" /* ..Monaco.}}}}}}} */
$"7D7D 7D7D 7D7D 7D7D 7D7D 7D7D 7D7D 7D7D" /* }}}}}}}}}}}}}}}} */
$"7D7D 0006 0004 002A 0003 0142 01E3 002A" /* }}.....*...B...* */
$"0003 0142 01E3 A659 36CF 0000 0000 0000" /* ...B...Y6....... */
$"0000 0000 0000 0100" /* ........ */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0000 0000 0000 0000 0000 0000" /* .............. */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};
data 'vers' (1) {
$"0323 8000 0000 0533 2E32 2E33 2833 2E32" /* .#.....3.2.3(3.2 */
$"2E33 2C20 A920 4170 706C 6520 436F 6D70" /* .3, . Apple Comp */
$"7574 6572 2C20 496E 632E 2031 3938 352D" /* uter, Inc. 1985- */
$"3139 3932 2E" /* 1992. */
};

37
BootableMPW/Suspend Normal file
View File

@ -0,0 +1,37 @@
# Suspend - MPW Shell Suspend File
#
# Copyright Apple Computer, Inc. 1986-1989
# All Rights Reserved.
Begin
# Save all variables, exports, aliases, and menus.
Set
Export
Alias
AddMenu
# Save the current directory.
Quote Directory `Directory`
# Save the windows.
Windows -o
# Save projector state.
Echo Set Exit 0
mountProject
(checkoutdir -r -m || set status 0) ≥ dev:null
Echo "Project " "`Project -q`"
Echo Set Exit 1
# Write it all to a temporary file.
End > "{ShellDirectory}MPW.SuspendState"
# User tasks.
Save "{Worksheet}"

View File

@ -0,0 +1 @@
TEXTMPS

25
BootableMPW/Suspend.rdump Normal file
View File

@ -0,0 +1,25 @@
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 00D7 01E9 7FFF 01AC" /* ..Monaco........ */
$"0000 01D7 7FFF 01B4 0000 022B 7FFF 7FFF" /* ...........+.... */
$"7FFF 0006 0004 002A 0003 0142 01E3 002A" /* .......*...B...* */
$"0003 0142 01E3 A431 E940 0000 0000 0000" /* ...B...1.@...... */
$"0000 0000 025A 0100" /* .....Z.. */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 025A 0000 0000 0000 0000 0000" /* ...Z.......... */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};
data 'vers' (1) {
$"0320 8000 0000 0333 2E32 2633 2E32 2C20" /* . .....3.2&3.2, */
$"A920 4170 706C 6520 436F 6D70 7574 6572" /* . Apple Computer */
$"2C20 496E 632E 2031 3938 352D 3139 3931" /* , Inc. 1985-1991 */
$"2E" /* . */
};

BIN
BootableMPW/SysErrs.err Normal file

Binary file not shown.

Binary file not shown.

View File

@ -0,0 +1,25 @@
data 'vers' (1) {
$"0320 8000 0000 0333 2E32 2633 2E32 2C20" /* . .....3.2&3.2, */
$"A920 4170 706C 6520 436F 6D70 7574 6572" /* . Apple Computer */
$"2C20 496E 632E 2031 3938 352D 3139 3931" /* , Inc. 1985-1991 */
$"2E" /* . */
};
data 'vers' (2, purgeable) {
$"0323 8000 0000 0533 2E32 2E33 094D 5057" /* .#.....3.2.3.MPW */
$"2033 2E32 2E33" /* 3.2.3 */
};
data 'MPSR' (1005) {
$"0009 4D6F 6E61 636F 0050 572E 4572 726F" /* ..Monaco.PW.Erro */
$"7273 20B3 2044 6576 3A53 7464 4F75 7420" /* rs . Dev:StdOut */
$"0909 0006 0004 002A 0003 0142 01E3 002A" /* .......*...B...* */
$"0003 0142 01E3 A431 E940 0000 0000 0000" /* ...B...1.@...... */
$"0000 0000 0000 0100" /* ........ */
};
data 'MPSR' (1008) {
$"002A 0003 0142 01E3 002A 0003 0142 01E3" /* .*...B...*...B.. */
$"0000 0000 0000 0000 0000 0000 0000" /* .............. */
};

BIN
BootableMPW/System Normal file

Binary file not shown.

1
BootableMPW/System.idump Normal file
View File

@ -0,0 +1 @@
ZSYSMACS

22881
BootableMPW/System.rdump Normal file

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1 @@
MPSTMPS

File diff suppressed because it is too large Load Diff

Some files were not shown because too many files have changed in this diff Show More