------------------------------------------------------------------ -- -- NAME: GKSM_GEN_WSD_OPERATIONS -- DISCREPANCY REPORTS: -- ------------------------------------------------------------------ -- file: GKSM_GEN_WSD_OPS.ADA -- level: 0a,1a,2a,0b,1b,2b,0c,1c,2c with GKS_TYPES; with OUTPUT_ATTRIBUTES_TYPE; with WS_STATE_LIST_TYPES; with METAFILE_WS_TABLES; with GKSM_GENERATOR; with CGI; use GKS_TYPES; use CGI; package GKSM_GEN_WSD_OPERATIONS is -- This package contains procedures named for the workstation -- control functions within GKS. Each of these perform necessary -- workstation housekeeping activities, such as adding or deleting -- the workstation state list to the list of active state lists. -- These procedures also handle the opening and closing of the -- actual physical metafile. package GENERATOR_TABLES is new METAFILE_WS_TABLES (FILE_TYPE => GKSM_GENERATOR.GKSM_FILE_TYPE); procedure OPEN_WS (WS : in WS_ID; CONNECTION : in ACCESS_CONNECTION_ID_TYPE; TYPE_OF_WS : in WS_TYPE; ATTRIBUTES : in out OUTPUT_ATTRIBUTES_TYPE.OUTPUT_ATTRIBUTES; ERROR_INDICATOR : in out ERROR_NUMBER); procedure CLOSE_WS (WS_STATE_LIST : in out WS_STATE_LIST_TYPES.WS_STATE_LIST_PTR; METAFILE_SL : in out GENERATOR_TABLES. METAFILE_STATE_LIST_PTR); procedure UPDATE_ATTRIBUTES (METAFILE_SL : in GENERATOR_TABLES. METAFILE_STATE_LIST_PTR; ATTRIBUTES_TO_UPDATE : in OUTPUT_ATTRIBUTES_TYPE. OUTPUT_ATTRIBUTES); end GKSM_GEN_WSD_OPERATIONS;