------------------------------------------------------------------ -- -- NAME: SEGMENTS -- DISCREPANCY REPORTS: -- ------------------------------------------------------------------ -- file: SEGS.ADA -- level: 1a, 2a with GKS_TYPES; use GKS_TYPES; package SEGMENTS is -- The package SEGMENTS contains procedures that perform various -- operations on segments. procedure CREATE_SEGMENT (SEGMENT : in SEGMENT_NAME); procedure CLOSE_SEGMENT; procedure RENAME_SEGMENT (OLD_NAME : in SEGMENT_NAME; NEW_NAME : in SEGMENT_NAME); procedure DELETE_SEGMENT (SEGMENT : in SEGMENT_NAME); procedure DELETE_SEGMENT_FROM_WS (WS : in WS_ID; SEGMENT : in SEGMENT_NAME); end SEGMENTS;