Copyright © 1985 by Xerox Corporation. All rights reserved.

This file contains the top level procedures for the functioning of Sil. There are global initialization procedures, an init procedure that happens once per sil instance, some procedures which manage sil carets, and SilMain - the procedure that keeps a sil instance painting and accepting commands.

BiScrollers USING

Commander USING

CommandTool USING

Cursors USING

FileNames USING

Geom2D USING [Rect, Vec, ExtremaOfRect, Transform, id],

ImagerTransformation USING

Process USING

Real USING

Rope USING

ViewerOps USING

TIPUser USING

ViewerClasses USING

SilBiScrollers,

SilFile,

SilDisplay,

SilDisplayUtils,

SilKernel,

SilUserInput

;

IMPORTS BiScrollers, Cursors, Commander, CommandTool, FileNames, Geom2D, ImagerTransformation, Process, SilFile, ViewerOps, Real, Rope, SilBiScrollers, SilDisplay, SilKernel, SilUserInput, SilDisplayUtils, TIPUser

EXPORTS SilKernel = BEGIN

keep the number of instances so we know when to fire up a cursor blinking process (see StartSilInstance, below).

A global condition variable for the blinking of the carets

Initialize background datastructures which will be used by all Sil instances.

Prepare for the eventual creation of Sil viewers:

MakeSilClass[];

Initialize All the Sil Library data structures:

SilFile.InitSil[];

SilDisplay.InitSil[];

};

Initialize everything that will be needed to start a bare Sil open on fileName (the fileName may be an empty rope).

data: SilData ← NEW[SilKernel.SilDataObject];

viewer: ViewerClasses.Viewer ← SilDisplay.InitSilDisplayInstance[data, fileName, maxInstances ! SilKernel.SilError => GOTO NotFound];

ViewerOps.PaintViewer[viewer, all]; -- InitSilDisplayInstance paints viewer immediately before

silDatas ← CONS[data, silDatas]; -- save models for repainting if fonts change

TRUSTED {Process.Detach [FORK SilMain[data, viewer] ]};

IF numberOfSilInstances = 0 THEN

numberOfSilInstances ← numberOfSilInstances + 1;

maxInstances ← maxInstances + 1;

EXITS

};

This routine is called after swapping fonts between display and printing fonts. Since there is only one font set for all Sil viewers, all viewers are erased, their string bounding boxes recalculated, and then they are repainted with the new fonts.

fudge: REAL = 10.0; -- fudge factor for EraseArea needed to catch all descenders in fonts

xMin, yMin, xMax, yMax: INTEGER ← 0;

rect: Geom2D.Rect ← [0.0, 0.0, 0.0, 0.0];

FOR d: SilDataList ← silDatas, d.rest UNTIL d=NIL DO

now fix up the selection bounds as well

SilFile.EvaluateSelection[];

};

the PaintProc actually processes the user input !! viewer is the ButtonedContainer which contains the BiScroller; viewer.parent is the Abutter which contains everything

WHILE NOT data.mainProcessShouldStop DO

ENDLOOP;

};

Set information which will cause the carets (the mark and the origin) to blink appropriately until the destroy proc tells us that we neednt do it anymore.

quarterSec: INTEGER = 250; --(msecs)

SetCaretBlinkInterval[quarterSec];

WHILE numberOfSilInstances > 0 DO

};

Make it so the carets will blink every msecs milliseconds.

ENABLE UNWIND => NULL;

};

Pause for the appropriate time so that the carets will blink pleasingly.

ENABLE UNWIND => NULL;

};

[self: Viewer]

SilEntryDestroy[self: self];

};

Perform the correct actions upon destruction of a Sil instance. Called when viewer

is destroyed.

data: SilData ← NARROW[BiScrollers.QuaBiScroller[self].ClientDataOf[]];

data.mainProcessShouldStop ← TRUE;

SilUserInput.DestroyUserInput[data.uiData];

numberOfSilInstances ← numberOfSilInstances - 1;

};

This proc is required by BiScrollers to return the extremes of the displayed data in this model

data: SilData ← NARROW[clientData];

area: Geom2D.Rect;

area ← SilDisplayUtils.BoundingBoxOfModel[dData: data.displayData, model: data.model, mapArea: TRUE];

[min, max] ← Geom2D.ExtremaOfRect[r: area, n: direction];

};

iv: ViewerClasses.Viewer ← bs.style.QuaViewer[bs: bs, inner: TRUE];

t ← Geom2D.id.PostTranslate[[0, iv.ch]];

};

Set up things so Viewers will know which procedures to call after interesting event.

myCursorBits: Cursors.CursorArray = [177700B, 177600B, 177400B, 177000B, 177400B, 177600B, 177700B, 167740B, 143760B, 101770B, 774B, 376B, 177B, 76B, 34B, 10B];

myCursor: Cursors.CursorType ← Cursors.NewCursor[myCursorBits];

tipTable: TIPUser.TIPTable ← TIPUser.InstantiateNewTIPTable["Sil.tip"];

SilUserInput.InitTipTable[tipTable];

SilBiScrollers.silClass ←

};

[cmd: Handle]

argv: CommandTool.ArgumentVector;

name, dir: Rope.ROPE;

CommandTool.StarExpansion[cmd];

argv ← CommandTool.Parse[cmd ! CommandTool.Failed => CONTINUE; ];

IF argv = NIL THEN RETURN[$Failure, "Sil initialization procedure is confused"];

IF argv.argc < 2 THEN { --Sil called with no file name given.

FOR i: NAT IN [1..argv.argc) DO --open a sil window on each file given

};

doc: "Create a Window Sil Instance" ];