------------------------------------------------------------------
--
--  NAME: METAFILE_WS_TABLES
--  DISCREPANCY REPORTS:
--
------------------------------------------------------------------
-- file : METAFILE_WS_TBLS.ADA
-- level: 0a,1a,2a,0b,1b,2b,0c,1c,2c

with GKS_TYPES;

use  GKS_TYPES;

generic

   type FILE_TYPE is limited private;

package METAFILE_WS_TABLES is

-- This package contains the types for the metafile state list and
-- its pointer to the metafile state list.
-- This package contains the list of metafile state lists.  Also a
-- function for retrieving a pointer to a METAFILE_STATE_LIST from the
-- list is declared with two procedures, one that initializes a
-- metafile state list and adds it to the list, and a procedure that
-- takes a metafile state list from the list.

   type METAFILE_STATE_LST is record

      WORKSTATION_ID : GKS_TYPES.WS_ID;

      METAFILE_ID    : FILE_TYPE;

   end record;

   type METAFILE_STATE_LIST_PTR is access METAFILE_STATE_LST;

   function GET_METAFILE_STATE_LIST_PTR
      (WS_ID : in GKS_TYPES.WS_ID ) return
       METAFILE_STATE_LIST_PTR;

   procedure ADD_METAFILE_STATE_LIST
      (WS_ID : in GKS_TYPES.WS_ID;
       ERROR_INDICATOR    : out ERROR_NUMBER);

   procedure DELETE_METAFILE_STATE_LIST
      (WS_ID : in GKS_TYPES.WS_ID);

end METAFILE_WS_TABLES;