-- SampleTool.mesa; Written by Scott McGregor on June 9, 1982 9:51 am
-- Last edited by Mitchell on August 16, 1982 4:16 pm
-- Last edited by McGregor on October 4, 1982 11:01 am
DIRECTORY
Buttons USING [Button, ButtonProc, Create],
Containers USING [ChildXBound, Container, Create],
Convert USING [IntFromRope, ValueToRope],
Graphics USING [Context, DrawBox, SetStipple],
Labels USING [Create, Label, Set],
Menus USING [AppendMenuEntry, CreateEntry, CreateMenu, Menu, MenuProc],
MessageWindow USING [Append, Blink],
Process USING [Detach, Pause, SecondsToTicks, Ticks],
Rope USING [Cat, ROPE, Length],
Rules USING [Create, Rule],
SafeStorage USING [NarrowFault, NWordsAllocated],
ShowTime USING [GetMark, Microseconds],
UserExec USING [CommandProc, GetExecHandle, RegisterCommand],
VFonts USING [CharWidth, StringWidth],
ViewerClasses USING [PaintProc, Viewer, ViewerClass, ViewerClassRec],
ViewerOps USING [CreateViewer, PaintViewer, RegisterViewerClass, SetOpenHeight],
ViewerTools USING [MakeNewTextViewer, GetContents, SetSelection];
SampleTool: CEDAR PROGRAM					       --(note 3.0)
IMPORTS Buttons, Containers, Convert, Graphics, Labels, Menus, MessageWindow, Process, Rope, Rules, SafeStorage, ShowTime, UserExec, VFonts, ViewerOps, ViewerTools =
BEGIN
-- The Containers interface is used to create an outer envelope or "container" for the different sections below.  For uniformity, we define some standard distances between entries in the tool.
entryHeight: CARDINAL = 15;	-- how tall to make each line of items
entryVSpace: CARDINAL = 8; 	-- vertical leading space between lines
entryHSpace: CARDINAL = 10; 	-- horizontal space between items in a line
Handle: TYPE = REF SampleToolRec;	-- a REF to the data for a particular instance of the sample tool; multiple instances can be created.
SampleToolRec: TYPE = RECORD [	-- the data for a particular tool instance
outer: Containers.Container _ NIL,	-- handle for the enclosing container
height: CARDINAL _ 0,		-- height measured from the top of the container
fact: FactorialViewer,		-- the factorial viewer's state
graph: GraphViewer ];		-- the bar graph viewer's state
MakeSampleTool: UserExec.CommandProc = TRUSTED BEGIN
my: Handle _ NEW[SampleToolRec];
myMenu: Menus.Menu _ Menus.CreateMenu[];
Menus.AppendMenuEntry[	-- add our command to the menu
menu: myMenu,
entry: Menus.CreateEntry[
name: "MyMenuEntry",	-- name of the command
proc: MyMenuProc			-- proc associated with command
]
];
my.outer _ Containers.Create[[-- construct the outer container		(note 3.1)
name: "Sample Tool",	-- name displayed in the caption
iconic: TRUE,			-- so tool will be iconic (small) when first created
column: left,				-- initially in the left column
menu: myMenu,		-- displaying our menu command
scrollable: FALSE ]];		-- inhibit user from scrolling contents
MakeFactorial[my];		-- build each (sub)viewer in turn
MakeGraph[my];
ViewerOps.SetOpenHeight[my.outer, my.height];	-- hint our desired height
ViewerOps.PaintViewer[my.outer, all];				-- reflect above change
END;
MyMenuProc: Menus.MenuProc = TRUSTED BEGIN
MessageWindow.Append[
message: "You just invoked the sample menu item with the ",
clearFirst: TRUE];
IF control THEN MessageWindow.Append[
message: "Control-",
clearFirst: FALSE];
IF shift THEN MessageWindow.Append[
message: "Shift-",
clearFirst: FALSE];
MessageWindow.Append[
message: SELECT mouseButton FROM
red		=> "Red",
yellow	=> "Yellow",
ENDCASE	=> "Blue",
clearFirst: FALSE];
MessageWindow.Append[message: " mouse button.", clearFirst: FALSE];
MessageWindow.Blink[ ];
END;

FactorialViewer: TYPE = RECORD [
input: ViewerClasses.Viewer _ NIL,	-- the Text Box for user input
result: Labels.Label _ NIL ];	-- result of the computation
MakeFactorial: PROC [handle: Handle] = TRUSTED BEGIN			 --(note 3.2)
promptButton, computeButton: Buttons.Button;
initialData: Rope.ROPE = "5";
initialResult: Rope.ROPE = "120";
handle.height _ handle.height + entryVSpace;	-- space down from the top of the viewer
promptButton _ Buttons.Create[
info: [
name: "Type a number:", 
wy: handle.height,
-- default the width so that it will be computed for us --
wh: entryHeight,	-- specify rather than defaulting so line is uniform
parent: handle.outer,
border: FALSE ],
proc: Prompt,
clientData: handle];	-- this will be passed to our button proc
handle.fact.input _ ViewerTools.MakeNewTextViewer[ [
parent: handle.outer,
wx: promptButton.wx + promptButton.ww + entryHSpace,
wy: handle.height+2,
ww: 5*VFonts.CharWidth['0],	-- five digits worth of width
wh: entryHeight,
data: initialData,	-- initial contents
scrollable: FALSE,
border: FALSE]];
computeButton _ Buttons.Create[
info: [
name: "Compute Factorial",
wx: handle.fact.input.wx + handle.fact.input.ww + entryHSpace,
wy: handle.height,
ww:,	-- default the width so that it will be computed for us      (note 3.3)
wh: entryHeight,	-- specify rather than defaulting so line is uniform
parent: handle.outer,
border: TRUE],
clientData: handle,	-- this will be passed to our button proc
proc: ComputeFactorial];
handle.fact.result _ Labels.Create[ [
name: initialResult,	-- initial contents
wx: computeButton.wx + computeButton.ww + entryHSpace,
wy: handle.height,
ww: 20*VFonts.CharWidth['0],	-- 20 digits worth of width
wh: entryHeight,
parent: handle.outer,
border: FALSE]];
handle.height _ handle.height + entryHeight + entryVSpace;	-- interline spacing
END;
Prompt: Buttons.ButtonProc = TRUSTED BEGIN
-- force the selection into the user input field
handle: Handle _ NARROW[clientData];	-- get our data
ViewerTools.SetSelection[handle.fact.input];		-- force the selection
END;
ComputeFactorial: Buttons.ButtonProc = TRUSTED BEGIN
handle: Handle _ NARROW[clientData];	-- get our data
contents: Rope.ROPE _ ViewerTools.GetContents[handle.fact.input];
inputNumber: INT;
resultNumber: REAL _ 1.0;
IF Rope.Length[contents]=0 THEN inputNumber _ 0
ELSE inputNumber _ Convert.IntFromRope[contents
! SafeStorage.NarrowFault => {inputNumber_-1; CONTINUE}];        --(note 3.4)
IF inputNumber NOT IN [0..34] THEN {
MessageWindow.Append[
message: "I can't compute factorial for that input",
clearFirst: TRUE ];
MessageWindow.Blink[ ] }
ELSE FOR n: INT IN [2..inputNumber] DO
resultNumber _ resultNumber*n;
ENDLOOP;
Labels.Set[handle.fact.result, Convert.ValueToRope[[real[resultNumber]]]];
END;
-- the bar graph reflecting collector activity
GraphViewer: TYPE = RECORD [viewer: ViewerClasses.Viewer _ NIL];
MakeGraph: PROC [handle: Handle] = TRUSTED BEGIN			 --(note 3.6)
xIncr: INTEGER;		-- temporarily used for labelling graph below
xTab: INTEGER = 10;
label: Rope.ROPE _ "1";		-- used to place labels on the graph
rule: Rules.Rule _ Rules.Create[ [	-- create a bar to separate sections 1 and 2
parent: handle.outer,
wy: handle.height,
ww: handle.outer.cw,
wh: 2]];
Containers.ChildXBound[handle.outer, rule];	-- constrain rule to be width of parent
handle.height _ handle.height + entryVSpace;	-- spacing after rule
[ ] _ Labels.Create[[
name: "Words Allocated Per Second", parent: handle.outer,
wx: xTab, wy: handle.height, border: FALSE ]];
handle.height _ handle.height + entryHeight + 2;	-- interline spacing
handle.graph.viewer _ CreateBarGraph[
parent: handle.outer,
x: xTab, y: handle.height, w: 550, h: entryHeight,
fullScale: 5.0 ];	-- orders of magnitude
handle.height _ handle.height + entryHeight + 2;	-- interline spacing
xIncr _ handle.graph.viewer.ww/5;	-- so we can space labels at equal fifths
FOR i: INTEGER IN [0..5) DO	-- place the labels, 1, 10, 100, 1000, 10000 along the graph
[ ] _ Labels.Create[[name: label, parent: handle.outer,
wx: xTab+i*xIncr - VFonts.StringWidth[label]/2,
wy: handle.height, border: FALSE ]];
label _ label.Cat["0"];			-- concatenate another zero each time
ENDLOOP;
handle.height _ handle.height + entryHeight + entryVSpace;	-- extra space at end
TRUSTED {Process.Detach[FORK MeasureProcess[handle]]};	-- start the update process
END;
MeasureProcess: PROC [handle: Handle] = TRUSTED BEGIN			 --(note 3.7)
-- Forked as a separate process.  Updates the bar graph at periodic intervals.
updateInterval: Process.Ticks = Process.SecondsToTicks[1];
mark, nextMark: ShowTime.Microseconds;
words, nextWords, deltaWords, deltaTime: REAL;
mark _ ShowTime.GetMark[ ];
words _ SafeStorage.NWordsAllocated[ ];
UNTIL handle.graph.viewer.destroyed DO
nextMark _ ShowTime.GetMark[ ];
deltaTime _ (nextMark - mark) * 1.0E-6;
nextWords _ SafeStorage.NWordsAllocated[ ];
deltaWords _ nextWords - words;
SetBarGraphValue[handle.graph.viewer, deltaWords/deltaTime];
words _ nextWords; 
mark _ nextMark; 
Process.Pause[updateInterval];
ENDLOOP;
END;
--  this section creates the viewer class for a logarithmic bar graph. 
-- private data structure for instances of BarChart viewers
GraphData: TYPE = REF GraphDataRec; 
GraphDataRec: TYPE = RECORD [
value: REAL _ 0,	-- current value being displayed (normalized)
scale: REAL ];		-- "full scale"
PaintGraph: ViewerClasses.PaintProc = TRUSTED BEGIN			 --(note 3.8)
myGray: CARDINAL = 122645B;	-- every other bit
data: GraphData _ NARROW[self.data];
Graphics.SetStipple[context, myGray];
Graphics.DrawBox[context, [0, 0, data.value, self.ch]]; 

END;
CreateBarGraph: PROC [x, y, w, h: INTEGER, parent: ViewerClasses.Viewer,
	fullScale: REAL]
RETURNS [barGraph: ViewerClasses.Viewer] = TRUSTED BEGIN		 --(note 3.9)
instanceData: GraphData _ NEW[GraphDataRec];
instanceData.scale _ fullScale;
barGraph _ ViewerOps.CreateViewer[
flavor: $BarGraph,	-- the class of viewer registered in the start code below
info: [
parent: parent,
wx: x, wy: y, ww: w, wh:h,
data: instanceData,
scrollable: FALSE]
];
END;
-- use this routine to set the bar graph to new values
SetBarGraphValue: PROC [barGraph: ViewerClasses.Viewer, newValue: REAL] = BEGIN
my: GraphData _ NARROW[barGraph.data];
Log10: --Fast-- PROC [x: REAL] RETURNS [lx: REAL] = BEGIN
-- truncated for values of [1..inf), 3-4 good digits
-- algorithm from Abramowitz: Handbook of Math Functions, p. 68
sqrt10: REAL = 3.162278; 
t: REAL;
lx _ 0; 
WHILE x > 10 DO x _ x/10; lx _ lx+1 ENDLOOP;	-- scale to [1..10]
IF x > sqrt10 THEN {x _ x/sqrt10; lx _ lx+0.5};	-- scale to [1..1/sqrt10]
t _ (x-1)/(x+1);
lx _ lx + 0.86304*t + 0.36415*(t*t*t)	-- magic cubic approximation
END;
my.value _ Log10[1+newValue] * barGraph.cw / my.scale; 
TRUSTED {ViewerOps.PaintViewer[viewer: barGraph, hint: client, clearClient: TRUE]};
END; 
-- graphClass is a record containing the procedures and data common to all BarGraph viewer instances (class record).
graphClass: ViewerClasses.ViewerClass _ 			--[3.1]
NEW[ViewerClasses.ViewerClassRec _ [paint: PaintGraph]];
-- Register a command with the UserExec that will create an instance of this tool.
UserExec.RegisterCommand[name: "SampleTool", proc: MakeSampleTool,
briefDoc: "Create a sample viewers tool" ];
-- Register the BarGraph class of viewer with the Window Manager
TRUSTED {ViewerOps.RegisterViewerClass[$BarGraph, graphClass]};
[ ] _ MakeSampleTool[UserExec.GetExecHandle[ ]];	-- and create an instance
END.

lthis procedure is called whenever the user clicks the entry labelled "MyMenuEntry" in the tool menu.
Κ
–

"Cedar" style˜Iproc–

"Cedar" styleš
ΟcE˜EKš
5˜5Kš
6˜6
unitš
Οk	˜	Jšœžœ˜+Jšœžœ"˜2Jšœžœ˜)Jšœ	žœ ˜.Jšœžœ˜"Jšœžœ<˜GJšœžœ˜$Jšœžœ(˜5Jšœžœ˜Jšœžœ˜Jšœžœ ˜1Jšœ	žœ˜'Jšœ	žœ/˜=Jšœžœ˜&Jšœžœ2˜EJšœ
žœA˜PJšœžœ0˜A—šœžœΟa
˜1Jšžœž
˜₯
—Lš
ž˜Jš
ΐ
˜ΐ
Jšœ
žœ&˜BJšœ
žœ'˜CJšœ
žœ+˜HLšœžœžœΠck]˜‡
šœžœžœ+˜IJšœžœ%˜HJšœžœ0˜GJšœ˜7Jšœ˜6—šΟnœž˜4Jšœ
žœ˜ Iemphasisš
œ(˜(šœ˜5Jš
œ
˜
š
œ˜Jšœ˜+Jšœ˜2Jš
œ
˜
—Jš
œ˜—šœœŸ
˜JJšœ ˜5Jšœžœ4˜DJšœ˜0Jšœ˜-Jšœžœž
œ'˜>—Jšœ!˜5Jš
œ˜Jšœ.˜HJšœ)˜@Jšžœ
˜—Lšœžœ
ž˜*š
d™dš
œ˜Jš
œ;˜;Jšœžœ˜—šžœ	žœ˜%Jš
œ˜Jšœžœ˜—šžœžœ˜#Jš
œ˜Jšœžœ˜—š
œ˜šœ	žœ
ž˜ Jš
œ˜Jš
œ˜Jšžœ˜—Jšœžœ˜—Jšœ<žœ˜CJš
œ˜Jšžœ
˜—K˜šœžœžœ˜ Jšœžœ˜AJšœžœ˜:—š‘
œžœž
œŸ
˜DJš
œ,˜,Jšœžœ˜Jšœžœ	˜!Jšœ-(˜Uš
œ˜š
œ˜Jš
œ˜Jš
œ˜Jš
:˜:Jšœ4˜EJš
œ˜Jšœžœ˜—Jš
œ
˜
Jšœ)˜>—š
œ4˜4Jš
œ˜Jš
œ4˜4Jš
œ˜Jšœ˜9Jš
œ˜Jšœ˜&Jšœžœ
˜Jšœžœ˜—š
œ˜š
œ˜Jš
œ˜Jš
œ>˜>Jš
œ˜Jšœ=Ÿ
˜LJšœ4˜EJš
œ˜Jšœžœ˜—Jšœ)˜=Jš
œ˜—š
œ%˜%Jš
œ(˜(Jš
œ6˜6Jš
œ˜Jšœ˜8Jš
œ˜Jš
œ˜Jšœžœ˜—Jšœ;˜OJšžœ
˜—Lš‘œž
˜*š
0˜0Jšœžœ˜4Jšœ.˜DJšžœ
˜—š‘œž
˜4Jšœžœ˜4Jšœžœ.˜AJšœ
žœ
˜Jšœžœ˜Jšžœžœžœ
˜/JšžœžœKžœ
Ÿ
˜}šžœ
žœ	žœ
ž
˜$š
œ˜Jš
œ4˜4Jšœžœ˜—Jš
œ˜—š	žœ
žœžœ
žœž˜&Jš
œ˜Jšžœ
˜—Jš
œJ˜JJšžœ
˜—Lš
.˜.Jšœ
žœžœ!žœ˜@š‘	œžœž
œŸ
˜@Mšœžœ-˜>Jšœžœ˜Jšœžœ	$˜=šœ#,˜OJš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜—Lšœ,'˜SJšœ-˜Bš
œ˜Jš
œ9˜9Jšœ%žœ˜.—Jšœ1˜Eš
œ%˜%Jš
œ˜Jš
œ2˜2Jšœ˜(—Jšœ1˜EJšœ")˜Kšžœž
œž<˜Xš
œ7˜7Jš
œ/˜/Jšœžœ˜$—Jšœ%˜?Jšžœ
˜—Jšœ;˜PJšž	œžœ˜RJšžœ
˜—Lš‘œžœž
œŸ
˜Eš
N˜NJš
œ:˜:Jš
œ&˜&Jšœ)žœ
˜.Mš
œ˜Jš
œ'˜'šžœž˜&Jš
œ˜Jš
œ'˜'Jš
œ+˜+Jš
œ˜Jš
œ<˜<Jš
œ˜Jš
œ˜Jš
œ˜Jšžœ
˜—Jšžœ
˜—Lš
G˜GMš
;˜;Jšœžœžœ˜$šœžœžœ˜Jšœžœ-˜>Jšœžœ˜—š‘
œž
œŸ
˜CKš
œ.˜.Kšœžœ˜$Kš
œ%˜%Kš
œ9˜9Jšžœ
˜—Lš‘œžœžœ,žœ
˜Zšžœ$ž
œŸ
˜GJšœžœ˜,Jš
œ˜š
œ"˜"Jšœ9˜L
codeš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jšœžœ
˜—Jš
œ˜—Jšžœ
˜—Lš
6˜6š‘œžœ,žœž˜OJšœžœ˜&Lš
‘œœ
žœžœžœžœž˜9Jš
4˜4š
?˜?Jšœžœ
˜Jšœžœ
˜Jš
œ˜Jšžœžœžœ˜@Jšžœžœ˜IJš
œ˜Jšœ&˜BJšžœ
˜—Lš
œ7˜7JšžœEžœ˜SJšžœ˜—Lš
t˜tšœ-Ÿ˜2Jšžœ5˜8—Kš
R˜Rš
œB˜BJš
œ+˜+—Mš
@˜@Jšžœ7˜?Mšœ1˜JI	modheaderšžœ
˜J˜—…—*Φ5J