DataMuseum.dk

top - download

    Length: 2452 (0x994)
    Types: TextFile
    Names: »B«

└─⟦afbc8121e⟧ Bits:30000532 8mm tape, Rational 1000, MC68020_OS2000 7_2_2
    └─ ⟦77aa8350c⟧ »DATA« 
        └─⟦f794ecd1d⟧ 
            └─⟦4c85d69e2⟧ 
                └─⟦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.
--
--

separate (Os_Dependent_Io)

package body User is

    procedure Get_Unique_Task_Key (Value1 : out Integer;
                                   Value2 : out Integer;
                                   Value3 : out Integer);
    pragma Interface (Asm, Get_Unique_Task_Key);
    pragma Suppress (Elaboration_Check, Get_Unique_Task_Key);
    pragma Import_Procedure (Get_Unique_Task_Key, "__GET_UNIQUE_TASK_KEY",
                             Mechanism => (Value, Value, Value));

    function Get_Current_Key return Id is
        The_Id : Id;
    begin
        Get_Unique_Task_Key (Value1 => The_Id.Value1,
                             Value2 => The_Id.Value2,
                             Value3 => The_Id.Value3);
        -- Trace ("Got Task_Key " & Image (The_Id));
        return The_Id;
    end Get_Current_Key;

    function Not_Current (Key : Id) return Boolean is
        Value1 : Integer;
        Value2 : Integer;
        Value3 : Integer;
    begin
        Get_Unique_Task_Key
           (Value1 => Value1, Value2 => Value2, Value3 => Value3);
        if Value1 /= Key.Value1 or else
           Value2 /= Key.Value2 or else Value3 /= Key.Value3 then
            return True;
        else
            return False;
        end if;
    end Not_Current;

    function Less_Than (X, Y : Id) return Boolean is
    begin
        return X.Value1 < Y.Value1;
    end Less_Than;

    function Image (Key : Id) return String is
    begin
        return Integer'Image (Key.Value1) & Integer'Image (Key.Value2) &
                  Integer'Image (Key.Value3);
    end Image;

end User;