1------------------------------------------------------------------------------ 2-- -- 3-- GNAT COMPILER COMPONENTS -- 4-- -- 5-- S Y S T E M . R P C -- 6-- -- 7-- B o d y -- 8-- -- 9-- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- 10-- -- 11-- GNAT is free software; you can redistribute it and/or modify it under -- 12-- terms of the GNU General Public License as published by the Free Soft- -- 13-- ware Foundation; either version 2, or (at your option) any later ver- -- 14-- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- 15-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- 16-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- 17-- for more details. You should have received a copy of the GNU General -- 18-- Public License distributed with GNAT; see file COPYING. If not, write -- 19-- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, -- 20-- MA 02111-1307, USA. -- 21-- -- 22-- As a special exception, if other files instantiate generics from this -- 23-- unit, or you link this unit with other files to produce an executable, -- 24-- this unit does not by itself cause the resulting executable to be -- 25-- covered by the GNU General Public License. This exception does not -- 26-- however invalidate any other reasons why the executable file might be -- 27-- covered by the GNU Public License. -- 28-- -- 29-- GNAT was originally developed by the GNAT team at New York University. -- 30-- Extensive contributions were provided by Ada Core Technologies Inc. -- 31-- -- 32------------------------------------------------------------------------------ 33 34-- Note: this is a dummy implementation which does not support distribution. 35-- All the bodies but one therefore raise an exception as defined below. 36-- Establish_RPC_Receiver is callable, so that the ACVC scripts can simulate 37-- the presence of a master partition to run a test which is otherwise not 38-- distributed. 39 40-- The GLADE distribution package includes a replacement for this file. 41 42with Ada.Exceptions; use Ada.Exceptions; 43 44package body System.RPC is 45 46 GNAT : constant Boolean := True; 47 pragma Unreferenced (GNAT); 48 -- This dummy entity allows the compiler to recognize that this is the 49 -- version of this package that is supplied by GNAT, not by the user. 50 -- This is used to cause a compile time error if an attempt is made to 51 -- use features in System.RPC that are only available from a true PCS. 52 53 CRLF : constant String := ASCII.CR & ASCII.LF; 54 55 Msg : constant String := 56 CRLF & "Distribution support not installed in your environment" & 57 CRLF & "For information on GLADE, contact Ada Core Technologies"; 58 59 pragma Warnings (Off); 60 -- Kill messages about out parameters not set 61 62 ---------- 63 -- Read -- 64 ---------- 65 66 procedure Read 67 (Stream : in out Params_Stream_Type; 68 Item : out Ada.Streams.Stream_Element_Array; 69 Last : out Ada.Streams.Stream_Element_Offset) 70 is 71 begin 72 Raise_Exception (Program_Error'Identity, Msg); 73 end Read; 74 75 ----------- 76 -- Write -- 77 ----------- 78 79 procedure Write 80 (Stream : in out Params_Stream_Type; 81 Item : in Ada.Streams.Stream_Element_Array) 82 is 83 begin 84 Raise_Exception (Program_Error'Identity, Msg); 85 end Write; 86 87 ------------ 88 -- Do_RPC -- 89 ------------ 90 91 procedure Do_RPC 92 (Partition : in Partition_ID; 93 Params : access Params_Stream_Type; 94 Result : access Params_Stream_Type) 95 is 96 begin 97 Raise_Exception (Program_Error'Identity, Msg); 98 end Do_RPC; 99 100 ------------ 101 -- Do_APC -- 102 ------------ 103 104 procedure Do_APC 105 (Partition : in Partition_ID; 106 Params : access Params_Stream_Type) 107 is 108 begin 109 Raise_Exception (Program_Error'Identity, Msg); 110 end Do_APC; 111 112 ---------------------------- 113 -- Establish_RPC_Receiver -- 114 ---------------------------- 115 116 procedure Establish_RPC_Receiver 117 (Partition : in Partition_ID; 118 Receiver : in RPC_Receiver) 119 is 120 begin 121 null; 122 end Establish_RPC_Receiver; 123 124end System.RPC; 125