RoseTranslate.mesa

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.