buffer: REF Block ← NEW[Block];

unsafeBlock: IO.UnsafeBlock;

ReadABlock: UNSAFE PROCEDURE = {

lengthInBytes: INT;

stream: IO.STREAM;

documentDirectory: LONG POINTER TO PressFormat.DDV;

documentDirectory ← unsafeBlock.base ← LOOPHOLE[buffer];

unsafeBlock.startIndex ← 0;

unsafeBlock.stopIndexPlusOne ← bytesPerPressRecord;

stream ← FileIO.Open[fileName, read !

lengthInBytes ← stream.GetLength[];

IF lengthInBytes > 22 AND stream.GetChar = LOOPHOLE[0AAH, CHAR] AND stream.GetChar = LOOPHOLE[0AAH, CHAR] THEN RETURN[TRUE]; -- it looks like a PD file

IF lengthInBytes = 0 OR (lengthInBytes MOD bytesPerPressRecord # 0)
THEN { stream.Close[]; RETURN};

stream.SetIndex[lengthInBytes-bytesPerPressRecord];

ReadABlock[];

IF documentDirectory.Passwd # PressFormat.PressPasswd
THEN { stream.Close[]; RETURN };

IF documentDirectory.nRecs # lengthInBytes/bytesPerPressRecord THEN
{ stream.Close[]; RETURN };

stream.Close[]; RETURN[TRUE];

EXITS Quit => {}

};

CreateToolViewer: PUBLIC Nut.CreateProc =
BEGIN
error: ROPE ← "";
tool: Entity;
{ module: Entity;
instructions: ROPE;
v ← ViewerOps.FindViewer[eName];
IF v # NIL THEN {Open[v]; RETURN[NIL]};
-- load the module (cross your fingers!!)
tool ← DeclareEntity[d: Whiteboard.ToolViewer, name: eName, version: OldOnly];
IF tool = NIL THEN RETURN[NIL];
MessageWindow.Append[Rope.Cat["Trying to start ", eName, ". . ."], TRUE];
module ← V2E[GetP[tool, Whiteboard.implementor]];
IF module # NIL AND ~Loaded[GetName[module]] THEN {
MessageWindow.Append[Rope.Cat["Running ", GetName[module], ". . ."], TRUE];
 UserExec.DoIt[Rope.Cat["Run ", GetName[module]] !
  ANY => {error ← "UNCAUGHT SIGNAL"; GOTO Bad}];
 v ← ViewerOps.FindViewer[eName]; IF v # NIL THEN { Open[v]; RETURN[NIL] } };
-- now try to invoke the command given in the instructions
-- Note: module can be NIL if implementation in the boot file
instructions ← V2S[ GetP[ tool, Whiteboard.comment ] ];
IF NOT Rope.Equal[instructions,""] THEN
UserExec.DoIt[instructions ! ANY => {error ← "Bad instructions"; GOTO Bad}]
ELSE IF module = NIL THEN
{ error ← "No implementor defined"; GOTO Bad };
  -- try to find a viewer that might have been created
  v ← ViewerOps.FindViewer[eName];
  IF v # NIL THEN Open[v];
  RETURN[v]
  EXITS
  Bad => {
  -- if you get to here, then something went wrong, eg., couldn't load, bad instructions
MessageWindow.Append[Rope.Cat[eName, " failed: ", error], TRUE];
RETURN[NIL] } };
END;

Loaded: PUBLIC PROCEDURE[module: ROPE] RETURNS[loaded: BOOLEAN] = TRUSTED
BEGIN
OPEN PilotLoadStateOps;
temp: STRING ← [30];
modName: STRING ← [30];
EachConfig: PROC[ci: ConfigIndex] RETURNS [BOOLEAN] = TRUSTED
BEGIN
FindModule: PROC [mth: BcdOps.MTHandle, mti: BcdDefs.MTIndex]
RETURNS [BOOLEAN] = TRUSTED
{ GetNameString[bcdns, mth.name, temp];
loaded ← String.EquivalentString[modName, temp];
RETURN[loaded]};
FindConfig: PROC [cth: BcdOps.CTHandle, cti: BcdDefs.CTIndex]
RETURNS [BOOLEAN] = TRUSTED
{ GetNameString[bcdns, cth.name, temp];
loaded ← String.EquivalentString[modName, temp];
RETURN[loaded]};
bcd: BcdOps.BcdBase ← AcquireBcd[ci];
bcdns: BcdOps.NameString ← LOOPHOLE[bcd + bcd.ssOffset];
[] ← BcdOps.ProcessModules[bcd, FindModule];
IF ~loaded THEN [] ← BcdOps.ProcessConfigs[bcd, FindConfig];
ReleaseBcd[bcd];
RETURN[loaded];
END;
-- main code
loaded ← FALSE;
FOR i: INT IN [0..MIN[30, Rope.Length[module]]) DO
String.AppendChar[modName, Rope.Fetch[base: module, index: i]] ENDLOOP;
[] ← InputLoadState[];
[] ← EnumerateBcds[recentfirst, EachConfig]; -- sets 'loaded'
ReleaseLoadState[];
END;

GetNameString: PROC[ssb: BcdOps.NameString, n: BcdDefs.NameRecord, name: STRING] = TRUSTED
BEGIN
ssd: Strings.SubStringDescriptor;
ssd ← [base: @ssb.string, offset: n, length: MIN[ssb.size[n], 100]];
name.length ← 0;
Strings.AppendSubString[name, @ssd];
END;

ExtractName: PUBLIC PROCEDURE[name: ROPE] RETURNS[ROPE] =
BEGIN
pos: INTEGER;
pos ← Rope.Find[name, ": "];
IF pos < 0 THEN pos ← 0 ELSE pos ← pos + 2;
RETURN[Rope.Substr[name, pos, Rope.Length[name]-pos-11]]; -- remove the " (Squirrel)" too
END;

Open: PROCEDURE[viewer: Viewer] =
INLINE BEGIN
IF viewer.iconic
THEN ViewerOps.OpenIcon[viewer]
ELSE ViewerOps.PaintViewer[viewer, all];
END;

END.

Change Log

Cattell August 11, 1982 12:23 pm: Removed StartTrap call, want to selectively start up whiteboards. Also make GetIconInfo recover gracefully if icon relation has been deleted or not initialized.

Cattell October 11, 1982 9:29 pm: GetIcon must catch MultipleMatch on GetEntityByName, because there may be more than one sub-type of the domain; in this case just use nut icon.