DataMuseum.dk

top - download

    Length: 3131 (0xc3b)
    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;

with System;
with Message_Queues;

package Ipc_Dummy is

    subtype Buffer_Address is System.Address;

    subtype Parameter_Address is System.Address;

    type Message_Slot_Data is new Integer;


    procedure Handle_Protocol (Buffer         : in out Buffer_Address;
                               Slot_Data      : Message_Slot_Data;
                               Queue_Data     : Message_Queues.Associated_Data;
                               Parameters     : out Parameter_Address;
                               Ignore_Message : out Boolean);
    -- Handle protocol and any other message processing for an
    -- IPC message.
    --
    pragma Suppress (Elaboration_Check, Handle_Protocol);
    pragma Export_Procedure (Handle_Protocol, "__IPC_HANDLE_PROTOCOL");


    procedure Release_Buffer (The_Buffer : Buffer_Address);
    -- Release the storage for a buffer constructed by Handle_Protocol.
    --
    pragma Suppress (Elaboration_Check, Release_Buffer);
    pragma Export_Procedure (Release_Buffer, "__IPC_RELEASE_BUFFER");


    procedure Evacuate_Queue (The_Queue  : Message_Queues.Id;
                              Queue_Data : Message_Queues.Associated_Data);
    -- Clear all IPC messages from an IPC queue.
    --
    pragma Suppress (Elaboration_Check, Evacuate_Queue);
    pragma Export_Procedure (Evacuate_Queue, "__IPC_EVACUATE_QUEUE");

private

    -- The initialization routines of PEAB supplied packages.
    --

    procedure Peab_Init_Msq_Table;
    pragma Suppress (Elaboration_Check, Peab_Init_Msq_Table);
    pragma Export_Procedure (Peab_Init_Msq_Table, "_PEAB_INIT_MSQ_TABLE");

    procedure Peab_Hsi_Spec_Elab;
    pragma Suppress (Elaboration_Check, Peab_Hsi_Spec_Elab);
    pragma Export_Procedure (Peab_Hsi_Spec_Elab, "_PEAB_HSI_SPEC_ELAB");

    procedure Peab_Message_Queue_Spec_Elab;
    pragma Suppress (Elaboration_Check, Peab_Message_Queue_Spec_Elab);
    pragma Export_Procedure (Peab_Message_Queue_Spec_Elab,
                             "_PEAB_MESSAGE_QUEUE_SPEC_ELAB");

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