<> DIRECTORY Spell USING [SpellingList, AbortProc, ConfirmProc, InformProc, Modes, extensionList], Rope USING [ROPE] ; SpellExtras: CEDAR DEFINITIONS IMPORTS Spell = BEGIN OPEN Spell; <> GetFileExtension: PROC [ unknown: Rope.ROPE, spellingList: Spell.SpellingList _ Spell.extensionList, abort: AbortProc _ NIL, confirm: ConfirmProc _ NIL, inform: InformProc _ NIL, modes: Modes _ NIL ] RETURNS [correct: Rope.ROPE]; -- Uses extensionList. knows about $'s, i.e. if unknown = mesa$$ then will return mesa$$ without doing any correction. END.