1-- C390A020.A 2-- 3-- Grant of Unlimited Rights 4-- 5-- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, 6-- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained 7-- unlimited rights in the software and documentation contained herein. 8-- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making 9-- this public release, the Government intends to confer upon all 10-- recipients unlimited rights equal to those held by the Government. 11-- These rights include rights to use, duplicate, release or disclose the 12-- released technical data and computer software in whole or in part, in 13-- any manner and for any purpose whatsoever, and to have or permit others 14-- to do so. 15-- 16-- DISCLAIMER 17-- 18-- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR 19-- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED 20-- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE 21-- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE 22-- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A 23-- PARTICULAR PURPOSE OF SAID MATERIAL. 24--* 25-- 26-- OBJECTIVE: 27-- See C390A022.AM. 28-- 29-- TEST DESCRIPTION: 30-- See C390A022.AM. 31-- 32-- TEST FILES: 33-- This test consists of the following files: 34-- 35-- F390A00.A 36-- => C390A020.A 37-- C390A021.A 38-- C390A022.AM 39-- 40-- 41-- CHANGE HISTORY: 42-- 06 Dec 94 SAIC ACVC 2.0 43-- 04 Jun 96 SAIC ACVC 2.1: Modified prologue. 44-- 45--! 46 47with F390A00; -- Alert system abstraction. 48package C390A020 is 49 50 51 type Low_Alert_Type is new F390A00.Alert_Type with record 52 Level : Integer := 0; -- Record extension of 53 end record; -- root tagged type. 54 55 -- Inherits procedure Display from Alert_Type. 56 57 procedure Handle (LA : in out Low_Alert_Type); -- Override parent's 58 -- primitive subprog. 59 60 function Level_Of (LA : in Low_Alert_Type) -- To be inherited by 61 return Integer; -- all derivatives. 62 63 64end C390A020; 65 66 67 --==================================================================-- 68 69 70package body C390A020 is 71 72 use F390A00; -- Alert system abstraction. 73 74 75 function Level_Of (LA : in Low_Alert_Type) return Integer is 76 begin 77 return (LA.Level + 1); 78 end Level_Of; 79 80 81 procedure Handle (LA : in out Low_Alert_Type) is 82 begin 83 Handle (Alert_Type (LA)); -- Call parent's oper. (type conversion). 84 LA.Level := Level_Of (LA); -- Call newly declared operation. 85 LA.Display_On := Teletype; 86 Display (LA); -- Call inherited operation. 87 end Handle; 88 89 90end C390A020; 91