IconsImpl.mesa;
Edited by McGregor on October 20, 1982 4:28 pm
Last Edited by: Maxwell, January 3, 1983 12:53 pm
Last Edited by: Plass, April 20, 1983 10:00 am
DIRECTORY
CIFS USING [Close, ConnectionErrors, Error, GetFC, Open, OpenFile, read],
Environment USING [wordsPerPage],
File USING [Capability, GetSize],
Graphics USING [ClipBox, Context, DrawRope, FontRef, RopeWidth, SetColor, SetCP, white],
GraphicsOps USING [BitmapRep, DrawBitmap],
Icons,
Rope USING [Concat, Fetch, Length, Map, ROPE, Substr],
SafeStorage USING [NewZone],
Space USING [Create, Delete, Handle, LongPointer, Map, PageCount, virtualMemory],
VFonts USING [EstablishFont, Font, FontAscent, GraphicsFont];
IconsImpl: CEDAR MONITOR
IMPORTS CIFS, File, Graphics, GraphicsOps, Rope, SafeStorage, Space, VFonts
EXPORTS Icons =
BEGIN OPEN Icons;
iZ: ZONE ← SafeStorage.NewZone[quantized];
DrawIcon:
PUBLIC
ENTRY DrawIconProc =
BEGIN
leading: INTEGER = 3;
iconInfo: IconRef ← icons[LOOPHOLE[flavor]];
prefix: Rope.ROPE ← NIL;
IF iconInfo.proc=
NIL
THEN
BEGIN
iconBitmap.base ← iconInfo; -- bits guaranteed first in record!!!
Graphics.SetCP[context, x, y+iconH];
GraphicsOps.DrawBitmap[context, iconBitmap, iconW, iconH];
IF iconInfo.label
THEN
BEGIN
iconFont: Graphics.FontRef;
fontHeight: INTEGER;
iy: INTEGER ← y+iconInfo.ly+iconInfo.lh;
segments: LIST OF Rope.ROPE;
IF Graphics.RopeWidth[bigIconFont, label].xw <= iconInfo.lw
THEN
BEGIN
iconFont ← bigIconFont;
fontHeight ← bigFontHeight;
segments ← LIST[label];
END
ELSE
BEGIN
iconFont ← smallIconFont;
fontHeight ← smallFontHeight;
segments ← Decompose[label, iconInfo.lw, iconFont];
END;
Graphics.ClipBox[context, [x+iconInfo.lx, y+iconInfo.ly,
x+iconInfo.lx+iconInfo.lw, iy]];
IF iconInfo.invertLabel THEN Graphics.SetColor[context, Graphics.white];
WHILE segments#
NIL
DO
segment: Rope.ROPE ← segments.first;
suffix: Rope.
ROPE ←
IF segments.rest=
NIL
OR
segment.Fetch[segment.Length[]-1]='\040
OR
segments.rest.first.Fetch[0]='. THEN NIL ELSE "-";
iy ← iy-fontHeight;
Graphics.SetCP[context, x+iconInfo.lx, iy];
iy ← iy - leading;
Graphics.DrawRope[self: context, font: iconFont,
rope: prefix.Concat[segment.Concat[suffix]]];
prefix ← " ";
segments ← segments.rest;
ENDLOOP;
END;
END
ELSE iconInfo.proc[flavor, context, x, y, label];
END;
GetFonts:
ENTRY
PROC =
BEGIN
bigFont: VFonts.Font ← VFonts.EstablishFont["Helvetica", 8];
smallFont: VFonts.Font ← VFonts.EstablishFont["Helvetica", 7];
bigFontHeight ← VFonts.FontAscent[bigFont];
smallFontHeight ← VFonts.FontAscent[smallFont];
bigIconFont ← VFonts.GraphicsFont[bigFont];
smallIconFont ← VFonts.GraphicsFont[smallFont];
END;
bigIconFont: Graphics.FontRef;
bigFontHeight: INTEGER;
smallIconFont: Graphics.FontRef;
smallFontHeight: INTEGER;
wSlop: INTEGER = 5;
Decompose:
PROC [name: Rope.
ROPE, width:
REAL, font: Graphics.FontRef]
RETURNS [segments:
LIST
OF Rope.
ROPE ←
NIL] =
BEGIN
candidate, useMe: Rope.ROPE ← NIL;
end: INT ← 0;
len: INT ← Rope.Length[name];
haveExtension, inWord: BOOL ← FALSE;
SkipToNextWord:
PROC [c:
CHAR]
RETURNS [
BOOL] =
CHECKED {
IF c IN ['A..'Z] OR c = '/ OR c IN ['0..'9] THEN { IF inWord THEN RETURN[TRUE] }
ELSE inWord ← TRUE;
IF c='. THEN RETURN[haveExtension ← TRUE];
end ← end+1; RETURN[FALSE]; };
Build:
PROC[start:
INT]
RETURNS [
LIST
OF Rope.
ROPE] = {
IF start>=len THEN RETURN[NIL];
end ← start+1;
inWord ← FALSE;
IF haveExtension THEN end ← len
ELSE [] ← Rope.Map[base: name, start: end, action: SkipToNextWord];
RETURN[CONS[name.Substr[start, end-start], Build[end]]]; };
Coalesce:
PROC[segs:
LIST
OF Rope.
ROPE]
RETURNS [
LIST
OF Rope.
ROPE] = {
c: Rope.ROPE;
IF segs=NIL OR segs.rest=NIL THEN RETURN[segs];
IF segs.rest.first.Fetch[0]#'.
AND
Graphics.RopeWidth[font, c ← segs.first.Concat[segs.rest.first]].xw<=width
THEN RETURN[Coalesce[CONS[c, segs.rest.rest]]];
RETURN[CONS[segs.first, Coalesce[segs.rest]]]; };
width ← width+wSlop; -- allow small amount of clipping.
RETURN[Coalesce[Build[0]]];
END;
iconBitmap: REF GraphicsOps.BitmapRep ← NEW[GraphicsOps.BitmapRep ← [NIL, iconW/16, iconW, iconH]];
maxIcons: CARDINAL = 64;
icons: ARRAY [0..maxIcons) OF IconRef ;
nextFlavor: IconFlavor ← document;
NewFlavor:
ENTRY
PROC
RETURNS [newFlavor: IconFlavor] =
BEGIN
newFlavor ← nextFlavor;
nextFlavor ← SUCC[newFlavor];
IF LOOPHOLE[nextFlavor, CARDINAL] >= maxIcons THEN ERROR;
END;
NewIcon:
PUBLIC
PROC [info: IconRef]
RETURNS [newFlavor: IconFlavor] =
BEGIN
newFlavor ← NewFlavor[];
icons[LOOPHOLE[newFlavor]] ← info;
END;
IconsFromFile:
PROC [file: Rope.
ROPE]
RETURNS [first: IconFlavor, nRead:
INTEGER] =
TRUSTED BEGIN
iconBase: LONG POINTER TO IconFileFormat;
fh: CIFS.OpenFile;
fileC: File.Capability;
size: Space.PageCount;
space: Space.Handle;
fileC ← CIFS.GetFC[fh ← CIFS.Open[file, CIFS.read]];
size ← File.GetSize[fileC];
space ← Space.Create[size: size, parent: Space.virtualMemory];
Space.Map[space: space, window: [file: fileC, base: 1]]; -- first page is 1!
iconBase ← Space.LongPointer[space];
first ← nextFlavor;
nRead ← size/(SIZE[IconFileFormat]/Environment.wordsPerPage);
FOR n:
INTEGER
IN [0..nRead)
DO
[] ← NewIcon[iZ.
NEW[IconRep ← [iconBase.bits, iconBase.label, iconBase.invertLabel,
0--filler--, iconBase.lx, iconBase.ly, iconBase.lw, iconBase.lh]]];
iconBase ← iconBase+SIZE[IconFileFormat];
ENDLOOP;
Space.Delete[space];
CIFS.Close[fh];
END;
NewIconFromFile:
PUBLIC
PROC [file: Rope.
ROPE, n:
CARDINAL]
RETURNS [newFlavor: IconFlavor] =
TRUSTED BEGIN
iconBase: LONG POINTER TO IconFileFormat;
fh: CIFS.OpenFile;
fileC: File.Capability;
space: Space.Handle;
fileC ← CIFS.GetFC[fh ← CIFS.Open[file, CIFS.read]];
space ← Space.Create[size: File.GetSize[fileC], parent: Space.virtualMemory];
Space.Map[space: space, window: [file: fileC, base: 1]]; -- first page is 1!
iconBase ← Space.LongPointer[space] + (n*SIZE[IconFileFormat]);
newFlavor ← NewIcon[iZ.
NEW[IconRep ← [iconBase.bits, iconBase.label, iconBase.invertLabel,
0--filler--, iconBase.lx, iconBase.ly, iconBase.lw, iconBase.lh]]];
Space.Delete[space];
CIFS.Close[fh];
END;
iconFile: Rope.ROPE ← "Standard.icons";
GetFonts[];
[] ← IconsFromFile[iconFile !
CIFS.Error =>
CHECKED {
IF code
IN
CIFS.ConnectionErrors
OR code = noSuchFile
THEN
{iconFile ← "/Ivy/CedarViewers/Viewers/Standard.icons"; RETRY}}];
END.