1-- CA110050.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 CA110051.AM 28-- 29-- TEST DESCRIPTION: 30-- See CA110051.AM 31-- 32-- TEST FILES: 33-- The test consists of the following files: 34-- 35-- => CA110050.A 36-- CA110051.AM 37-- 38-- CHANGE HISTORY: 39-- 06 Dec 94 SAIC ACVC 2.0 40-- 21 Dec 94 SAIC Modified discriminant type 41-- 26 Apr 96 SAIC ACVC 2.1: Modified prologue; Added pragma 42-- Elaborate_Body. 43-- 44--! 45 46package CA110050_0 is -- Package Messages. 47 pragma Elaborate_Body (CA110050_0); 48 49 type Descriptor is new Integer; 50 51 Null_Descriptor_Value : constant Descriptor := 0; 52 Null_Message_Descriptor : constant Descriptor := 0; 53 54 type Message_Type is tagged 55 record 56 Number : Descriptor := Null_Message_Descriptor; 57 end record; 58 59 function Next_Available_Message return Descriptor; 60 61end CA110050_0; -- Package Messages. 62 63 --=================================================================-- 64 65package body CA110050_0 is -- Package body Messages. 66 67 Message_Count : Integer := 0; 68 69 function Next_Available_Message return Descriptor is 70 begin 71 Message_Count := Message_Count + 5; 72 return (Descriptor(Message_Count)); 73 end Next_Available_Message; 74 75end CA110050_0; -- Package body Messages. 76 77 --=================================================================-- 78 79package CA110050_0.CA110050_1 is -- Child package Messages.Text 80 81 subtype Default_Length is Natural range 0 .. 80; 82 83 type Text_Type (Max_Length : Default_Length := 0) is 84 record 85 Length : Default_Length := Max_Length; 86 Text_Field : String (1 .. Max_Length); 87 end record; 88 89 type Text_Message_Type is new Message_Type with 90 record 91 Text : Text_Type; 92 end record; 93 94 Null_Text : Text_Type (0); -- Null range for 95 -- Text_Field component. 96 97end CA110050_0.CA110050_1; -- Child package Messages.Text 98-- 99-- No package body needed for this specification. 100