<> <> <> <> DIRECTORY BasicTime, Core, MakeDo, Rope, RoseBindPrivate; RoseTranslate: CEDAR DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; TypeString: TYPE = ROPE; Gend: TYPE = {Defs, Private}; GendPgmPostfixes: ARRAY Gend OF ROPE; translatorTime: BasicTime.GMT; translatorVersion: ROPE; EnumerateGeneratedStamps: PROC [mr: RoseBindPrivate.ModuleRoot, g: Gend, to: PROC [behaviorClassName: ROPE, typeString: TypeString]] RETURNS [translatorStamp: ROPE _ NIL]; TypeStringFromClass: PROC [bc: RoseBindPrivate.BehaviorClass] RETURNS [ts: TypeString]; CompareTypeStrings: PROC [a, b: TypeString] RETURNS [differenceReport: ROPE--NIL means equal--]; GetTranslateCommand: PROC [moduleNameRoot: ROPE] RETURNS [cmd: ROPE]; END.