DIRECTORY Atom, Commander, CommanderOps, Convert, Dictionary, IO, IOTioga, RefTab, Rope, Rosary, TextEdit, TextLooks, Tioga; DictionaryCommandImpl: CEDAR PROGRAM IMPORTS Atom, Commander, CommanderOps, Convert, Dictionary, IO, IOTioga, RefTab, Rope, Rosary, TextEdit, TextLooks ~ BEGIN ROPE: TYPE ~ Rope.ROPE; initialized: BOOL м FALSE; looksTranslator: RefTab.Ref м RefTab.Create[]; dOrigin: INT м -1; -- add this to dictionary's origin to get Cedar's origin unknownLooks: REF TextLooks.Looks м NEW [TextLooks.Looks м TextLooks.RopeToLooks["z"]]; usage: ROPE м "Dictionary print definition of word to CommandTool"; Eq: PROC [r1, r2: ROPE] RETURNS [b: BOOL] ~ {b м Rope.Equal[r1, r2, FALSE]}; Initialize: PROC [out: IO.STREAM] ~TRUSTED { ENABLE { UNWIND => NULL; Dictionary.Error => {IO.PutRope[out, explanation]; CONTINUE}; }; RefTab.Erase[looksTranslator]; FOR l: LIST OF LIST OF ATOM м Dictionary.GetLooks[$AmericanHeritage], l.rest WHILE l # NIL DO dictLook: ATOM м l.first.first; looks: REF TextLooks.Looks м NEW[TextLooks.Looks м TextLooks.noLooks]; FOR pairs: LIST OF ATOM м l.first.rest, pairs.rest.rest WHILE pairs # NIL DO value: ATOM м pairs.rest.first; SELECT pairs.first -- attribute -- FROM $FAMILY => SELECT value FROM $TIMESROMAN => NULL; $HELVETICA => looks['o] м TRUE; $HIPPO => looks['g] м TRUE; ENDCASE => looks['z] м TRUE; -- error $SIZE => { size: INT = Convert.IntFromRope[Atom.GetPName[value]]; SELECT size FROM <10 => looks['s] м TRUE; =10 => NULL; >12 => looks['x] м TRUE; ENDCASE => looks['l] м TRUE; }; $FACE => SELECT value FROM $STANDARD => NULL; $BOLD => looks['b] м TRUE; $ITALIC => looks['i] м TRUE; $BOLDITALIC => looks['b] м looks['i] м TRUE; ENDCASE => looks['z] м TRUE; -- error $SUPERSCRIPT => looks['u] м TRUE; $SUBSCRIPT => looks['d] м TRUE; ENDCASE => looks['z] м TRUE; -- error ENDLOOP; IF looks['d] OR looks['u] THEN looks['s] м FALSE; IF NOT RefTab.Store[looksTranslator, dictLook, looks] THEN ERROR; ENDLOOP; }; DictionaryCmd: Commander.CommandProc ~ { node: Tioga.Node; definitions: Dictionary.Definition м NIL; args: CommanderOps.ArgumentVector м CommanderOps.Parse[cmd]; IF args.argc # 2 THEN RETURN[$Failure, usage]; IF NOT initialized THEN {Initialize[cmd.out]; initialized м TRUE}; IF Rope.Length[args[1]] = 0 THEN RETURN[$Failure, "no word given"]; definitions м Dictionary.GetDefinition[args[1], $AmericanHeritage ! Dictionary.Error => CONTINUE]; IF definitions = NIL THEN RETURN[$Failure, "word not found"]; node м TextEdit.FromRope[definitions.definition]; FOR drs: Dictionary.RunList м definitions.looks, drs.rest WHILE drs # NIL DO dr: Dictionary.RunPointer м drs.first; looks: REF TextLooks.Looks м NARROW[RefTab.Fetch[looksTranslator, dr.font].val]; IF dr.length = 0 THEN LOOP; IF looks = NIL THEN looks м unknownLooks; TextEdit.ChangeLooks[node, node,, looksн, dr.start+dOrigin, dr.length]; ENDLOOP; PutNode[cmd.out, node]; IO.PutRope[cmd.out, "\n"]; }; PutNode: PROC [stream: IO.STREAM, node: Tioga.Node, start: INT м 0, len: INT м INT.LAST] ~ { saveLooks: Tioga.Looks ~ IOTioga.GetLooks[stream]; IF node.runs = NIL THEN { IOTioga.SetLooks[stream, Tioga.noLooks]; IO.PutRope[stream, node.rope, start, len]; } ELSE { index: INT м start; action: Rosary.RunActionType ~ { looks: Tioga.Looks ~ TextEdit.LooksFromItem[item]; IOTioga.SetLooks[stream, looks]; IO.PutRope[stream, node.rope, index, repeat]; index м index+repeat; }; [] м Rosary.MapRuns[[node.runs, start, len], action]; }; IOTioga.SetLooks[stream, saveLooks]; }; Commander.Register["Dictionary", DictionaryCmd, usage]; END. О DictionaryCommandImpl.mesa Copyright ╙ 1992 by Xerox Corporation. All rights reserved. Jules Bloomenthal August 31, 1992 3:33 pm PDT Э╩0Ц(cedarcode) styleХNewlineDelimiter ЩЦ "Cedar" styleЩJЦ "Cedar" styleЪЬ ╧eЬ1Щ