------------------------------------------------------------------ -- -- NAME: CGI_SEGMENT_ATTRIBUTES_1B -- DISCREPANCY REPORTS: -- ------------------------------------------------------------------ -- file: CGI_SEG_ATTR_1B.ADA -- level: 1b,2b,1c,2c with GKS_TYPES; with SEGMENT_STATE_LIST_TYPES; use GKS_TYPES; package CGI_SEGMENT_ATTRIBUTES_1B is -- SEGMENT_LIST is declared in SEGMENT_STATE_LIST_TYPES, -- Types used are declared in GKS_TYPES. -- Each procedure gets the segment state list from -- the list of segment state lists specified, and -- sets the specified attribute. procedure SET_SEGMENT_DETECTABILITY (SEGMENT_LIST : in out SEGMENT_STATE_LIST_TYPES .LIST_OF_SEGMENT_STATE_LISTS; SEGMENT : in SEGMENT_NAME; DETECT : in SEGMENT_DETECTABILITY; ERROR_INDICATOR: out ERROR_NUMBER); end CGI_SEGMENT_ATTRIBUTES_1B;