MapCache.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Douady, December 20, 1986 4:24:42 pm PST
Initialization of MapCache design
DIRECTORY
Sisyph USING [Store, Context];
MapCache: CEDAR PROGRAM
IMPORTS Sisyph
~ BEGIN
Initialization
Init: PUBLIC PROC [cx: Sisyph.Context] ~ {
Various inializations
Sisyph.Store[cx,"lAId",NEW[INT�]];
Sisyph.Store[cx,"lVP",NEW[INT�]];
Sisyph.Store[cx,"lRP",NEW[INT�]];
Sisyph.Store[cx,"lFlags",NEW[INT𡤄]];
Sisyph.Store[cx,"lDummyFlags",NEW[INT𡤆]];
Sisyph.Store[cx,"lResult",NEW[INT�]];
Sisyph.Store[cx,"jvVP",NEW[INT𡤀]];
Sisyph.Store[cx,"jRP",NEW[INT𡤀]];
Sisyph.Store[cx,"jDummyFlags",NEW[INT�]];
Sisyph.Store[cx,"jFlags",NEW[INT�]];
Sisyph.Store[cx,"lArguments",NEW[INT�]];
Sisyph.Store[cx,"iVP",NEW[INT�]];
Sisyph.Store[cx,"ivVP",NEW[INT�]];
Sisyph.Store[cx,"iAId",NEW[INT�]];
};
END.