Edited by Teitelman on March 5, 1983 12:11 pm
DIRECTORY
Spell USING [SpellingList, AbortProc, ConfirmProc, InformProc, Modes, extensionList],
Rope USING [ROPE]
;
SpellExtras: CEDAR DEFINITIONS IMPORTS Spell =
BEGIN OPEN Spell;
file extensions
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.