DIRECTORY
AMEvents USING [Debugging, Debugged],
Booting USING [CheckpointProc, RegisterProcs, RollbackProc],
FS USING [Error, StreamOpen],
Convert USING [RopeFromInt],
IO USING [GetCard, GetLineRope, EndOfStream, Close, CR, GetChar, GetIndex, int, PeekChar, PutF, RIS, rope, STREAM, time, TAB, SP, GetTokenRope, SkipWhitespace, TokenProc, BreakProc],
IOClasses USING [CreateCommentFilterStream],
IconRegistry USING [Failure],
Icons USING [NewIconFromFile, IconFlavor],
MessageWindow USING [Append, Blink],
Process USING [Detach],
Rope USING [Cat, Equal, IsEmpty, ROPE],
UserProfile USING [CallWhenProfileChanges, ProfileChangedProc, Token],
ViewerClasses USING [Viewer],
ViewerEvents USING [EventProc, RegisterEventProc],
ViewerOps USING [FindViewer, RestoreViewer],
VM USING [AddressFault];

IconRegistryImpl: CEDAR MONITOR
IMPORTS AMEvents, Booting, Convert, FS, IO, IOClasses, MessageWindow, Process, Rope, Icons, UserProfile, ViewerEvents, ViewerOps, VM  
EXPORTS IconRegistry 
= BEGIN 
IconList: TYPE = LIST OF IconEntry;
IconEntry: TYPE = REF IconRecord;
IconRecord: TYPE = RECORD[
iconName: Rope.ROPE _ NIL,
fileName: Rope.ROPE _ NIL,
index: CARDINAL _ LAST[CARDINAL],
flavor: Icons.IconFlavor _ unInit,
position: INT _ -1  -- in catalogue
];
Failed: PUBLIC ERROR [why: IconRegistry.Failure, reason: Rope.ROPE] = CODE;
RegisterIcon: PUBLIC ENTRY PROC [iconName: Rope.ROPE, fileName: Rope.ROPE,
index: CARDINAL, saveInCatalogue: BOOL _ FALSE] = {  
ENABLE UNWIND => NULL;
entry: IconEntry;
FOR l: IconList _ iconList, l.rest UNTIL l = NIL DO
IF Rope.Equal[l.first.iconName, iconName, FALSE] THEN {
IF Rope.Equal[l.first.fileName, fileName, FALSE] THEN {
IF l.first.index = index OR NOT saveInCatalogue THEN RETURN[];  -- need way to specify whether or not this definition is to redefine. currently overloading on saveInCatalogue. Idea is that program can register and if user has already registered, then user's takes precedence 
entry _ l.first;
EXIT;
};
LOOP;
};
REPEAT
FINISHED => TRUSTED {
entry _ NEW[IconRecord _ []];
iconList _ CONS[entry, iconList];
};
ENDLOOP;
entry^ _ [iconName: iconName, fileName: fileName, index: index, flavor: unInit, position: -1];  
IF saveInCatalogue THEN WriteEntry[entry];
}; 

GetIcon: PUBLIC ENTRY PROC [iconName: Rope.ROPE, default: Icons.IconFlavor _ unInit] RETURNS [Icons.IconFlavor] = {
ENABLE UNWIND => NULL;
FOR l: IconList _ iconList, l.rest UNTIL l = NIL DO
IF Rope.Equal[l.first.iconName, iconName, FALSE] THEN {
IF l.first.flavor = unInit THEN l.first.flavor _ Icons.NewIconFromFile[l.first.fileName, l.first.index !
FS.Error =>
IF default # unInit THEN GOTO Default
ELSE ERROR Failed[fileNotFound, l.first.fileName];
VM.AddressFault =>
IF default # unInit THEN GOTO Default
ELSE ERROR Failed[invalidIndex, Convert.RopeFromInt[l.first.index]];
]; -- NewIconFromFile raises this if given badindex.
RETURN[l.first.flavor];
};
ENDLOOP;
IF default # unInit THEN GOTO Default;
ERROR Failed[noSuchIcon, iconName];
EXITS
Default => RETURN[default];
};

IsRegistered: PUBLIC ENTRY PROC[iconName: Rope.ROPE _ NIL, fileName: Rope.ROPE _ NIL, index: CARDINAL _ LAST[CARDINAL]]
RETURNS[name: Rope.ROPE, file: Rope.ROPE, i: CARDINAL] = {
FOR l: IconList _ iconList, l.rest UNTIL l = NIL DO
IF
(IF iconName # NIL THEN Rope.Equal[l.first.iconName, iconName, FALSE]
ELSE Rope.Equal[l.first.fileName, fileName, FALSE] AND l.first.index = index) THEN RETURN[l.first.iconName, l.first.fileName, l.first.index];
ENDLOOP;
RETURN[NIL, NIL, 0]; 
};

Lookup: PROC[iconName: Rope.ROPE] RETURNS[IconEntry] = {
FOR l: IconList _ iconList, l.rest UNTIL l = NIL DO
IF Rope.Equal[l.first.iconName, iconName, FALSE] THEN RETURN[l.first];
ENDLOOP;
RETURN[NIL];
};

InvalidateCache: PUBLIC PROC [iconName: Rope.ROPE _ NIL] = {
FOR l: IconList _ iconList, l.rest UNTIL l = NIL DO
IF iconName = NIL OR Rope.Equal[l.first.iconName, iconName, FALSE] THEN l.first.flavor _ unInit;
ENDLOOP;
};
iconList: IconList _ NIL;
catalogueName: Rope.ROPE _ "RegisteredIcons.Catalogue";

ParseCatalogue: ENTRY PROCEDURE  = {
stream: IO.STREAM;
stream _ IOClasses.CreateCommentFilterStream[FS.StreamOpen[fileName: catalogueName,
accessOptions: read ! FS.Error => CONTINUE]];  -- change interface not to explain that it doesn't raise an error if no catalogue.
IF stream # NIL THEN {
ReadIcons[stream];
stream.Close[];
};
IF errorLog  # NIL THEN {
MessageWindow.Append["problems encountered, see IconRegistry.log."];
MessageWindow.Blink[];
errorLog.Close[];
errorLog _ NIL;
};
};

ReadIcons:  PROCEDURE [stream: IO.STREAM]  = {
OPEN IO;
ris: IO.STREAM;
{
ENABLE { 
Failed => REJECT;
IO.EndOfStream => GOTO Out;
};
DO
tokenProc: IO.BreakProc = {
RETURN[SELECT char FROM
IO.SP, IO.TAB, ', => sepr,
IO.CR => break,
ENDCASE => other
];
};
entry: IconEntry;
iconName, fileName: Rope.ROPE;
index: CARDINAL;
position: INT;
[] _ IO.SkipWhitespace[stream];
position _ stream.GetIndex[];
iconName _ IO.GetTokenRope[stream].token;
IF stream.PeekChar[] # ': THEN {
Report1[msg: Rope.Cat["missing : at [", Convert.RopeFromInt[position], "]"]];
[] _ IO.GetLineRope[stream];
LOOP;
};
[] _ stream.GetChar[];  -- the :
ris _ IO.RIS[IO.GetLineRope[stream], ris];  -- read to CR, make this a stream. Reason is to bound the scope of the GetTokenRope, GetCards below.
fileName _ IO.GetTokenRope[ris, tokenProc].token;
IF Rope.IsEmpty[fileName] THEN {
Report1[msg: Rope.Cat["missing fileName at [", Convert.RopeFromInt[position], "]"]];
LOOP;
};
index _ IO.GetCard[ris];
entry _ Lookup[iconName];
IF entry # NIL THEN {
entry.position _ position; -- comments may have changed.
IF NOT (Rope.Equal[entry.fileName, fileName, FALSE] AND index = entry.index) THEN {
entry.fileName _ fileName;
entry.index _ index;
entry.flavor _ unInit;
};
}  
ELSE iconList _ CONS[NEW[IconRecord _ [iconName: iconName, fileName: fileName, index: index, position: position]], iconList];
ENDLOOP;
EXITS
Out => NULL;
};
};

WriteEntry: INTERNAL PROC [entry: IconEntry] = {
OPEN IO;
viewer: ViewerClasses.Viewer;
stream: STREAM = FS.StreamOpen[fileName: catalogueName, accessOptions: append];
WriteOne[entry, stream];
stream.Close[];
IF (viewer _ ViewerOps.FindViewer[catalogueName]) # NIL THEN ViewerOps.RestoreViewer[viewer];
};

WriteOne: INTERNAL PROC [entry: IconEntry, stream: IO.STREAM] = {
OPEN IO;
entry.position _ stream.GetIndex[];
stream.PutF["\n%g: %g %d", rope[entry.iconName], rope[entry.fileName], int[entry.index]];
};

WriteCatalogue: PUBLIC ENTRY PROC [] = {
OPEN IO;
viewer: ViewerClasses.Viewer;
stream: STREAM;
lst: IconList;
FOR l: IconList _ iconList, l.rest UNTIL l = NIL DO
IF l.first.position = -1 THEN lst _ CONS[l.first, lst];  -- need to write them out in reverse order seen on lst, i.e. first one seen gets written out last
ENDLOOP;
IF lst = NIL THEN RETURN;
FOR l: IconList _ lst, l.rest UNTIL l = NIL DO
WriteOne[l.first, stream];
ENDLOOP;
stream _ FS.StreamOpen[fileName: catalogueName, accessOptions: append];
stream.Close[];
IF (viewer _ ViewerOps.FindViewer[catalogueName]) # NIL THEN ViewerOps.RestoreViewer[viewer];
};
Report1: PROCEDURE [entry: IconEntry _ NIL, msg: Rope.ROPE] = {
OPEN IO;
ENABLE {
UNWIND, AMEvents.Debugging, AMEvents.Debugged => NULL;
ANY => CONTINUE;
};
IF errorLog = NIL THEN {
errorLog _ FS.StreamOpen[fileName: "IconRegistry.log", accessOptions: append];
errorLog.PutF["Processing catalogue/profile at %t", time[]];
};
errorLog.PutF["\n\n%g", rope[msg]]; 
IF entry # NIL THEN errorLog.PutF[", at %g [%d]", rope[entry.iconName], int[entry.position]]; 
};

errorLog: IO.STREAM _ NIL;
NoticeChanges: Booting.RollbackProc = {ParseCatalogue[]};

WasCatalogueEdited: ViewerEvents.EventProc = {
IF Rope.Equal[viewer.name, catalogueName, FALSE] THEN
TRUSTED {Process.Detach[FORK ParseCatalogue[]]};
};

IconsFromProfile: UserProfile.ProfileChangedProc = {
r: Rope.ROPE _ UserProfile.Token["RegisteredIcons"];
IF r # NIL THEN ReadIcons[IO.RIS[r]]; 
IF errorLog  # NIL THEN {
MessageWindow.Append["problems encountered, see IconRegistry.log."];
MessageWindow.Blink[];
errorLog.Close[];
errorLog _ NIL;
};
};

[] _ ViewerEvents.RegisterEventProc[proc: WasCatalogueEdited, event: save, before: FALSE];
ParseCatalogue[];
UserProfile.CallWhenProfileChanges[IconsFromProfile];
TRUSTED { Booting.RegisterProcs[c: NIL, r: NoticeChanges]; };



END.

rIconRegistryImpl.mesa;
Copyright c 1985 by Xerox Corporation.  All rights reserved.
Edited by Teitelman on May 10, 1983 12:41 pm
Converted by: Maxwell, January 6, 1984 9:57 am
Rick Beach, April 4, 1985 8:56:14 am PST

Types
Accessing Icon Registry
Changes RegisteredIcons.Catalogue to reflect the indicated association. This definition will replace any previous definition. comments are for inclusion in the catalogue to help the user figure out what the icon looks like. 
IF iconList = NIL AND saveInCatalogue THEN Initialize[];  -- first time. The saveInCatalogue check is so that if a program registers an icon, and the user has redefined it in his catalogue or profile, then his will take precedence.
Obtain an icon flavor for the icon associated with iconName. Create a new icon flavor if one has not previously been created.
If for some reason it could not obtain the icon, and default # unInit, returns the default. Otherwise, raises Error (defined below) with appropriate parameters.
IF iconList = NIL THEN Parse[! Failed => IF default # unInit THEN GOTO Default];  -- first time
IF code # noSuchFile THEN REJECT ELSE 
for use by iconeditor, so that it can force creation of a new flavor when an icon that has been registered was edited, obtain name of icon when selected, etc. Can be called with either iconName, or fileName and index.
IF iconList = NIL THEN Parse[! Failed => GOTO Out];  -- first time
for use by iconeditor, so that it can force creation of a new flavor when an icon that has been registered was edited.
If an iconFlavor was previous created for this icon, discard the flavor, i.e. the next call to GetIcon will create a new flavor. If iconName = NIL, do this for all registered icons. For use by iconeditor. 
Parsing Icon Catalogue
whiteSpace: IO.BreakProc = {
RETURN[IF char = CR THEN break ELSE IO.WhiteSpace[char]]
};
isACR: IO.BreakProc = {
RETURN[IF char = CR THEN break ELSE other]
};
-- see if key is followed by a :
IO.SkipOver[stream, whiteSpace];  -- skips over spaces, tabs, but stops at CR
entry.endPosition _ endPosition; 
Reporting errors
Noticing changes 
PROC [viewer: ViewerClasses.Viewer, event: ViewerEvent]
Initialization
Change Log:
Edited on May 10, 1983 12:41 pm, by Teitelman
added facility to get icons from userprofile, and to enable icons registered by programs not to take precedence over those in the user's profile/catalogue, even if registered later, e.g. by a program that is loaded later.
does not raise error if no regsiteredicoons.catalogue.
deimplemented multiple registration idea. To get same effect, call GetIcon[name, GetIcon[otherName]];
changes to: RegisterIcon (do not parse on first call if saveInCatalogue is FALSE so that if program registers an icon, and there is also one specified by the user, his will take precedence)., GetIcon, IsRegistered, ParseCatalogue, ReadIcons, WriteEntry, Report1, NoticeChanges, WasCatalogueEdited, IconsFromProfile, UserProfile, TRUSTED, DIRECTORY, IMPORTS, UserProfile, RegisterIcon, RegisterIcon

Edited on January 6, 1984 9:38 am, by Maxwell
changes to: DIRECTORY, IMPORTS, GetIcon, ParseCatalogue, ReadIcons, WriteEntry, WriteCatalogue, Report1, NoticeChanges, TRUSTED
Κΰ–

"Cedar" style˜
codeš
Οc™Kšœ
Οm
œ1™<Kšœ™,K™.K™(—K™š
Οk	˜	Kšœ	Ÿœ˜%KšœŸœ/˜<KšŸœ
Ÿœ˜KšœŸœ˜KšŸœ
Ÿœ,Ÿœ*ŸœŸœŸœŸœ6˜Ά
Kšœ
Ÿœ˜,Kšœ
Ÿœ˜KšœŸœ˜*KšœŸœ˜$KšœŸœ
˜KšœŸœŸœ˜'KšœŸœ5˜FKšœŸœ
˜Kšœ
Ÿœ ˜2Kšœ
Ÿœ˜,KšŸœ
Ÿœ˜—K˜KšΠblœŸœ
Ÿ˜KšŸœŸœŸœXŸœ˜†
KšŸœ˜Kšœ
Ÿœ
˜
headš
œ™Kšœ
ŸœŸœ
Ÿœ˜#KšœŸœŸœ˜!šœŸœŸœ
˜KšœŸœŸœ
˜KšœŸœŸœ
˜KšœŸœŸœ
Ÿœ˜!Kš
œ"˜"Kšœ
Ÿœ˜#Kš
œ˜—Kš	œŸœ
Ÿœ*ŸœŸœ
˜K—™šΟnœŸœ
Ÿœ
ŸœŸœŸœ	ŸœŸœŸœ˜€
K™ΰ
Kš
Ÿ˜K˜KšŸœŸœŸœ­
™η
šŸœ ŸœŸœ
Ÿ˜3šŸœ(ŸœŸœ˜7šŸœ(ŸœŸ˜7Kš
ŸœŸœ
ŸœŸœ
ŸœΠbcΟ

˜“K˜KšŸœ
˜K˜—Kš
Ÿ˜Kš
Ÿ˜—Kš
Ÿ˜šŸœŸœ˜KšœŸœ˜KšœŸœ˜!K˜—Kš
Ÿ˜—Kšœ_
˜`KšŸœŸœ˜*K˜—K˜š‘œŸœŸœ$Ÿœ˜sKš
}™}K™ 
Kš
Ÿ˜Kš
ŸœŸœ
ŸœŸœŸœ
Ÿœ
™_šŸœ ŸœŸœ
Ÿ˜3šŸœ(ŸœŸœ˜7šŸœŸœI˜hšŸœ	˜KšŸœŸœ
Ÿœ
™&KšŸœŸœ
Ÿœ˜%KšŸœ
Ÿœ(˜2—šŸœ˜KšŸœŸœ
Ÿœ˜%KšŸœ
Ÿœ:˜D—Kšœ1˜4—KšŸœ˜K˜—Kš
Ÿ˜—KšŸœŸœ
Ÿœ	˜&KšŸœ˜#š
Ÿ˜KšœŸœ
˜—K˜K˜—š‘œŸœ
Ÿœ
ŸœŸœŸœŸœŸœ	ŸœŸœ
ŸœŸœŸœ
ŸœŸœ˜²
K™Ω
Kš	ŸœŸœ
ŸœŸœ
™BšŸœ ŸœŸœ
Ÿ˜3š
Ÿ˜Kš	œ
ŸœŸœ
Ÿœ(Ÿœ
˜EKš
Ÿœ(ŸœŸœŸœ
Ÿœ4˜
—Kš
Ÿ˜—KšŸœ
Ÿœ˜Kš
Ÿ˜K˜—š‘œŸœŸœŸœ˜8K™všŸœ ŸœŸœ
Ÿ˜3KšŸœ(ŸœŸœ
Ÿœ
˜FKš
Ÿ˜—KšŸœ
Ÿœ˜Kš
œ˜K˜—š‘œŸœŸ
œ˜<K™Ν
šŸœ ŸœŸœ
Ÿ˜3Kš
ŸœŸœ
Ÿœ(ŸœŸœ˜`Kš
Ÿ˜—K˜——™KšœŸœ
˜KšœŸœ˜7K˜š‘œŸœ˜$KšœŸœ
Ÿœ
˜šœ-Ÿœ$˜SKšœŸœ
Ÿœ’N
˜
—šŸœ
Ÿœ
Ÿœ˜K˜Kš
œ˜K˜—šŸœ
Ÿœ
Ÿ˜Kš
œD˜DKš
œ˜Kš
œ˜KšœŸœ
˜K˜—Kš
œ˜K˜—š‘	œŸ	œ
Ÿœ
Ÿœ˜.Kš
Ÿ˜KšœŸœ
Ÿœ
˜š
Ÿ
˜
šŸœ
˜	Kšœ
Ÿœ
˜KšŸœŸœ˜K˜—š
Ÿ˜š‘	œ˜šŸœ
ŸœŸ˜KšŸœŸœ
˜KšŸœ
˜KšŸœ	˜K˜—Kš
œ˜—š‘
œ™Kš
Ÿœ
ŸœŸœ
ŸœŸœ™8K™—š‘œ™Kš
Ÿœ
ŸœŸœ
ŸœŸœ™*K™—K˜KšœŸœ
˜KšœŸœ
˜Kšœ
Ÿœ
˜KšœŸœ˜Kš
œ˜Kš
œ)˜)Kš
œ ™ Kšœ"+™MšŸœŸ˜ Kš
œM˜MKšœŸœ˜KšŸœ
˜Kš
œ˜—Kšœ˜ Kš
œŸœ
Ÿœ
ŸœGœ˜
KšœŸœ$˜1šŸœŸœ˜ Kš
œT˜TKšŸœ
˜K˜—KšœŸœ˜K˜šŸœ	Ÿœ
Ÿ˜Kšœ˜8Kš
œ!™!š
Ÿœ
Ÿœ'ŸœŸœŸœ˜SK˜K˜Kš
œ˜Kš
œ˜—Kš
œ˜—KšŸœŸœ
Ÿœe˜}Kš
Ÿ˜—š
Ÿ˜KšœŸœ
˜—K˜—Kš
œ˜K˜—š‘
œŸœ
Ÿœ˜0KšŸœ
Ÿœ
˜K˜KšœŸœŸœ<˜OKš
œ˜K˜KšŸœ2Ÿœ
Ÿœ!˜]K˜—K˜š
‘œŸœ
ŸœŸœ
Ÿœ˜AKšŸœ
Ÿœ
˜K˜#Kš
œY˜YK˜—K˜š‘œŸœ
Ÿ
œ˜(KšŸœ
Ÿœ
˜K˜KšœŸœ
˜Kš
œ˜šŸœ ŸœŸœ
Ÿ˜3KšŸœŸœŸœa˜š
Kš
Ÿ˜—KšŸœŸœ
Ÿœ
Ÿœ
˜šŸœŸœŸœ
Ÿ˜.KšœŸ
˜Kš
Ÿ˜—Kšœ	Ÿœ<˜GK˜KšŸœ2Ÿœ
Ÿœ!˜]K˜——™š‘œŸ	œŸœŸœ˜?Kš
Ÿ˜š
Ÿ˜KšŸœ'Ÿ	˜6Kš
Ÿ˜K˜—šŸœŸœ
Ÿ˜KšœŸœA˜NK˜<K˜—Kš
œ$˜$KšŸœ	Ÿœ
ŸœK˜^Kš
œ˜—K˜Kšœ
Ÿœ
ŸœŸœ
˜—š
œ™Kš‘
œ,˜9K˜š‘œ˜.KšŸœ2
™7šŸœ(ŸœŸ˜5KšŸœŸœ˜0—K˜K˜—š‘œ$˜4KšœŸœ(˜4Kš
ŸœŸœ
ŸœŸœ
Ÿœ˜&šŸœ
Ÿœ
Ÿ˜Kš
œD˜DKš
œ˜Kš
œ˜KšœŸœ
˜K˜—K˜K˜——š
œ™KšœSŸœ˜ZKš
œ˜Kš
œ5˜5KšŸœŸœ˜=K˜K˜K˜—KšŸœ
˜K˜™š
-™-Kš
ϊ™ϊKšœΟrœ¦
£Ο
™—K™š
-™-Kšœ£s™———…— >8