<< 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]; }; RunRegressions.RegisterTest[XMesaCall11c, "test11c"]; END. h XMesaCmplr11c.mesa 20-Aug-87 9:50:12 Jim Foote January 20, 1988 10:03:03 am PST mainline Ê•NewlineDelimiter ™J˜J™,J™*J˜J˜ÓJ˜šÏk ˜ J˜J˜J˜J˜—šÏn œ˜Jšœ˜Jšœ˜—š˜Jšœ1œœœ˜DJšœ œœ˜+š ž œ œ œœ œ˜>Jš œœœœœœ˜GJ˜—šž œ œ˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J™—J˜5J˜—Jšœ˜J˜J˜—…—„