
DIRECTORY
MobDefs USING [EXPLink, Link],
Symbols USING [CSEIndex, ISEIndex, MDIndex, Name],
TypeStrings USING [TypeString];
Pass4ToPass5: DEFINITIONS = BEGIN

Reset: PROC;
VisitImports: PROC [visitor: ImportsVisitor];
ImportsVisitor: TYPE = PROC [
mdi: Symbols.MDIndex,
formal: Symbols.Name,
irSei: Symbols.ISEIndex,
irType: Symbols.CSEIndex,
sei: Symbols.ISEIndex,
link: MobDefs.Link
];

VisitExports: PROC [visitor: ExportsVisitor];
ExportsVisitor: TYPE = PROC [
mdi: Symbols.MDIndex,
formal: Symbols.Name,
irSei: Symbols.ISEIndex,
irType: Symbols.CSEIndex,
ts: TypeStrings.TypeString,
sei: Symbols.ISEIndex,
link: MobDefs.EXPLink
];

END.

  æ  
Pass4ToPass5.mesa
Copyright Ó 1987, 1988, 1989, 1991 by Xerox Corporation.  All rights reserved.
Russ Atkinson (RRA) May 21, 1989 3:27:13 pm PDT
Flushes all storage associated with the imports & exports for this module.

Enumerates all of the current imports, calling visitor with the information so painfully extracted in Pass4B.AssignImports.
The module index for the interface being imported
The ISEIndex for the formal interface
The ISEIndex for the interface type
The type for the interface
The ISEIndex for the variable receiving the import (locally relative)
link for imported item
Enumerates all of the current exports, calling visitor with the information so painfully extracted in Pass4B.ExportItem.
The module index for the interface being exported
The ISEIndex for the formal interface
The ISEIndex for the interface type
The type for the interface
The type string for an exported type
The ISEIndex for the variable sending the export (locally relative)
The link for the export
 ÊÉ  •NewlineDelimiter
–(cedarcode) style™ code™Kšœ
ÏeœC™NK™/—˜ šÏk	˜	Kšœžœ˜Kšœžœ%˜2Kšœžœ˜——IheadšÏnœžœž˜!K˜ šŸœžœ˜K™JK™ —šŸœžœ˜-Kšœ/ÏzœE™{šœžœžœ˜šœ˜K™1—šœ˜Kšœ%™%—šœ˜Kšœ#™#—šœ˜K™—šœ˜KšœE™E—šœ˜K™—K˜K˜ ——šŸœžœ˜-Kšœ/ œB™xšœžœžœ˜šœ˜K™1—šœ˜Kšœ%™%—šœ˜Kšœ#™#—šœ˜K™—šœ˜Kšœ$™$—šœ˜KšœC™C—šœ˜K™—K˜——K˜ Kšžœ˜K˜ — …—    „  3  