CedarSupportImpl.Mesa
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Bill Jackson (bj) April 14, 1987 7:30:38 pm PDT
DIRECTORY
IO USING [PutFR],
Loader USING [BCDBuildTime],
Rope USING [ROPE],
CedarSupport;
CedarSupportImpl:
CEDAR
PROGRAM
IMPORTS IO, Loader
EXPORTS CedarSupport ~ {
ErrorSignal: PUBLIC ERROR ~ CODE;
Version: PUBLIC Rope.ROPE;
Init:
PROC ~ {
Version ← IO.PutFR["Saffron [1.0] of %t.\n",
[time[Loader.BCDBuildTime[Init]]] -- the ultimate incest!
];
};
Init[];
}...