XMesaCmplr11c.mesa 20-Aug-87 9:50:12
Jim Foote January 20, 1988 10:03:03 am PST
<< Creates string variable message strings to be used in place of string literals to work around the restrictions of INLINE procedures in XMesaCmplr10Defs2. The strings will be assigned literals within ModD. >>
DIRECTORY
RunRegressions,
OSOps,
XMesaCmplr10Defs2;
XMesaCmplr11c:
PROGRAM
IMPORTS RunRegressions, OSOps
EXPORTS XMesaCmplr10Defs2 =
BEGIN
header200, header300, dc, u, iget, ur, ua, done: PUBLIC LONG STRING;
z: UNCOUNTED ZONE ¬ OSOps.GetSystemUZone[];
MakeString:
PROCEDURE [z:
UNCOUNTED
ZONE, maxlength:
CARDINAL]
RETURNS [LONG STRING] = INLINE {RETURN[z.NEW[StringBody [maxlength]]]};
XMesaCall11c:
PROCEDURE = {
header200 ¬ MakeString[z,30];
header300 ¬ MakeString[z,30];
dc ¬ MakeString[z,30];
u ¬ MakeString[z,30];
iget ¬ MakeString[z,30];
ur ¬ MakeString[z,30];
ua ¬ MakeString[z,30];
done ¬ MakeString[z,10];
};
mainline
RunRegressions.RegisterTest[XMesaCall11c, "test11c"];
END.