DataMuseum.dk

top - download

    Length: 2932 (0xb74)
    Types: TextFile
    Names: »V«

└─⟦afbc8121e⟧ Bits:30000532 8mm tape, Rational 1000, MC68020_OS2000 7_2_2
    └─ ⟦77aa8350c⟧ »DATA« 
        └─⟦f794ecd1d⟧ 
            └─⟦24d1ddd49⟧ 
                └─⟦this⟧ 

TextFile

--    The use of this system is subject to the software license terms and
--    conditions agreed upon between Rational and the Customer.
--
--                Copyright 1988 by Rational.
--
--                          RESTRICTED RIGHTS LEGEND
--
--    Use, duplication, or disclosure by the Government is subject to
--    restrictions as set forth in subdivision (b)(3)(ii) of the Rights in
--    Technical Data and Computer Software clause at 52.227-7013.
--
--
--                Rational
--                3320 Scott Boulevard
--                Santa Clara, California 95054-3197
--
--   PROPRIETARY AND CONFIDENTIAL INFORMATION OF RATIONAL;
--   USE OR COPYING WITHOUT EXPRESS WRITTEN AUTHORIZATION
--   IS STRICTLY PROHIBITED.  THIS MATERIAL IS PROTECTED AS
--   AN UNPUBLISHED WORK UNDER THE U.S. COPYRIGHT ACT OF
--   1976.  CREATED 1988.  ALL RIGHTS RESERVED.
--
--

with Runtime_Ids;

package Attribute_Definitions is

    type Positive_Byte is range 0 .. 255;

    type Short_String is new String (1 .. 256); -- Actual bounds will be ignored
    pragma Suppress (Index_Check, On => Short_String);

    type Ref_String is access Short_String;
    for Ref_String'Storage_Size use 0;

    subtype Value_16 is Integer range 0 .. 2 ** 16 - 1;

    type Offset_Table is array (Value_16 range <>) of Value_16;
    pragma Pack (Offset_Table);
    pragma Suppress (Index_Check, On => Offset_Table);

    type Enum_Image_Table is
        record
            Count   : Value_16;               -- N - 1 for N element enum type
            Offsets : Offset_Table (0 .. 0);  -- Actual bounds 0 .. N for
                                              --      N element enum type
        end record;

    for Enum_Image_Table use
        record at mod 4;
            Count   at 0 range 0 .. 15;
            Offsets at 2 range 0 .. 15;
        end record;

    -- This is the internal format of a String's descriptor.
    type String_Descriptor is
        record
            Size  : Integer;
            Lower : Integer;
            Upper : Integer;
        end record;

    for String_Descriptor use
        record at mod 4;
            Size  at 0 range 0 .. 31;
            Lower at 4 range 0 .. 31;
            Upper at 8 range 0 .. 31;
        end record;

    type Integer_Table is array (Natural range <>) of Integer;
    pragma Suppress (Index_Check, On => Integer_Table);

    type Enum_Rep_Table is
        record
            N_Items : Natural;
            Value   : Integer_Table (0 .. 0); -- Actual bounds will be ignored
        end record;

    for Enum_Rep_Table use
        record at mod 4;
            N_Items at 0 range 0 .. 31;
            Value   at 4 range 0 .. 31;
        end record;

end Attribute_Definitions;
pragma Export_Elaboration_Procedure ("__ATTRIBUTE_DEFS_SPEC_ELAB");
pragma Runtime_Unit (Unit_Number         => Runtime_Ids.Runtime_Compunit,
                     Elab_Routine_Number => Runtime_Ids.Internal);