-- SaffronModuleHeaderImpl.mesa
 -- Copyright س 1987 by Xerox Corporation.  All rights reserved.
 -- Generated by Rauen.pa at September 1, 1988 2:55:55 pm PDT
 --  using ThreeCasabaFour [1.2] of June 1, 1987 6:00:00 pm PDT

DIRECTORY
	SaffronAG9Def,
	ThreeC4Support,
	SaffronBaseDef,
	SaffronATDef;

SaffronModuleHeaderImpl: CEDAR PROGRAM IMPORTS ThreeC4Support EXPORTS SaffronAG9Def= 
BEGIN
OPEN SaffronAG9Def, ThreeC4Support, SaffronBaseDef, SaffronATDef;
DefHeadProdGetAccessVal:	PUBLIC PROC[ref: REF ANY, default: AccessValNode] RETURNS[temp0: AccessValNode] =
BEGIN
tree:	DefHeadNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	DefHeadProdData _ NARROW[tree.data];
temp0 _ treeData.Access.procs.GetAccessVal[treeData.Access, default];
END
END;

ProgHeadProdGetAccessVal:	PUBLIC PROC[ref: REF ANY, default: AccessValNode] RETURNS[temp0: AccessValNode] =
BEGIN
tree:	ProgHeadNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ProgHeadProdData _ NARROW[tree.data];
temp0 _ treeData.Access.procs.GetAccessVal[treeData.Access, default];
END
END;

END..