-- Copyright (C) 1983  by Xerox Corporation. All rights reserved. 
-- Indirect.mesa, HGM, 13-Mar-83  9:17:54

DIRECTORY
  CmFile USING [Handle],
  StringLookUp USING [TableDesc];
  
Indirect: DEFINITIONS =
  BEGIN
  
  GetParmFileName: PROCEDURE RETURNS [LONG STRING];

  OpenSection: PROCEDURE [section: LONG STRING] RETURNS [CmFile.Handle];
  -- RETURNs NIL if anything goes wrong
  
  NextValue: PROCEDURE [h: CmFile.Handle, table: StringLookUp.TableDesc]
    RETURNS [index: CARDINAL];

  Close: PROCEDURE [CmFile.Handle];

  END.