------------------------------------------------------------------ -- -- NAME: INQ_GKS_STATE_LIST_MC - BODY -- DISCREPANCY REPORTS: -- ------------------------------------------------------------------ -- file: inq_gks_st_lst_mc_b.ada -- level: mc, 0c, 1c, 2c with CGI_SUBTYPES_B_C; with WSM; with GKS_ERRORS; with GKS_OPERATING_STATE_LIST; use CGI_SUBTYPES_B_C; use WSM; use GKS_ERRORS; use GKS_OPERATING_STATE_LIST; package body INQ_GKS_STATE_LIST_MC is -- This package contains the procedures for inquiring the -- GKS_STATE_LIST at level mc. procedure INQ_MORE_SIMULTANEOUS_EVENTS (ERROR_INDICATOR : out ERROR_NUMBER; EVENTS : out MORE_EVENTS) is -- ERROR_INDICATOR - Numeric value used to represent the type of -- error, if any, that occurred. -- EVENTS - Indicates if more events are contained in the input -- event queue. GKS_INSTR : CGI_INQ_MORE_SIMULTANEOUS_EVENTS; begin -- Initialize the out parameters. ERROR_INDICATOR := SUCCESSFUL; EVENTS := MORE_EVENTS'FIRST; -- The following if structure inquires the GKS_OPERATING -- _STATE_LIST to see if GKS is in the proper state. -- If it is in the proper state, the WS_MANAGER is called -- for the inquiry. if (CURRENT_OPERATING_STATE = GKCL) or (CURRENT_OPERATING_STATE = GKOP) then ERROR_INDICATOR := NOT_WSOP_WSAC_SGOP; -- Error 7 else WS_MANAGER (GKS_INSTR); EVENTS := GKS_INSTR.SIMULT_EVENTS_INQ; end if; end INQ_MORE_SIMULTANEOUS_EVENTS; end INQ_GKS_STATE_LIST_MC;