------------------------------------------------------------------ -- -- NAME: GKS_DESCRIPTION_TABLE - BODY -- DISCREPANCY REPORTS: ------------------------------------------------------------------ -- file: gks_dscr_tlb_0a_b.ada -- level: 0a with AVAILABLE_WS_TYPES; with GKS_CONSTANTS; package body GKS_DESCRIPTION_TABLE is -- This package body initializes the LIST_OF_AVAILABLE_WS_TYPES -- variable listed in the specification part of the package. WS_TYPE_ARRAY : WS_TYPES.LIST_VALUES(1..4); -- This object is used to store the available workstation types -- prior to their input into the LIST_OF_AVAILABLE_WS_TYPES. MAX_NUMBER_OPEN_WS : constant := 100; MAX_NUMBER_ACTIVE_WS : constant := 100; begin WS_TYPE_ARRAY := (WS_TYPE(AVAILABLE_WS_TYPES.GKSM_MO), WS_TYPE(AVAILABLE_WS_TYPES.GKSM_MI), WS_TYPE(AVAILABLE_WS_TYPES.CGM_MO), WS_TYPE(AVAILABLE_WS_TYPES.TEK_OUTPUT_TYPE)); LIST_OF_AVAILABLE_WS_TYPES := WS_TYPES.LIST (WS_TYPE_ARRAY); MAX_OPEN_WS := MAX_NUMBER_OPEN_WS; MAX_ACTIVE_WS := MAX_NUMBER_ACTIVE_WS; MAX_NORMALIZATION_TRANSFORMATION_NUMBER := GKS_CONSTANTS. MAX_NORMALIZATION_TRANSFORMATION_NUMBER; end GKS_DESCRIPTION_TABLE;