PWtest.mesa
Copyright © 1984 by Xerox Corporation. All rights reversed.
Created by: Serlet, February 28, 1985 10:27:03 am PST
DIRECTORY
PW;
PWtest: CEDAR PROGRAM
IMPORTS PW =
BEGIN OPEN PW;
MyProc: UserProc =
BEGIN
ab, cd: InstName;
ab ← AbutY["bar","bar"];
ab ← AbutY[ab,ab];
cd ← AbutX["foo","foo"];
ab ← Array [AbutX[cd, ab, ab], 1 , 8, 0, 255];
ab ← Inst["fou", LIST["FilRouge"], TRUE];
cd ← Inst["fou", LIST["FilRouge"], FALSE];
ab ← AbutY["machin:store2B", NIL, "truc:store2B"];
cd ← AbutX[ab, ab];
RETURN [AbutY["fooo:store2B", ReName["store2B", "machin"]]];
END;
Register[MyProc, "PWTest"];
END.