1/* BEGIN LICENSE BLOCK
2 * Version: CMPL 1.1
3 *
4 * The contents of this file are subject to the Cisco-style Mozilla Public
5 * License Version 1.1 (the "License"); you may not use this file except
6 * in compliance with the License.  You may obtain a copy of the License
7 * at www.eclipse-clp.org/license.
8 *
9 * Software distributed under the License is distributed on an "AS IS"
10 * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied.  See
11 * the License for the specific language governing rights and limitations
12 * under the License.
13 *
14 * The Original Code is  The ECLiPSe Constraint Logic Programming System.
15 * The Initial Developer of the Original Code is  Cisco Systems, Inc.
16 * Portions created by the Initial Developer are
17 * Copyright (C) 1994-2006 Cisco Systems, Inc.  All Rights Reserved.
18 *
19 * Contributor(s): Kees Schuerman, ECRC
20 *
21 * END LICENSE BLOCK */
22/**********************************************************************
23**      System: Parallel Distributed System
24**        File: lbmsg.c
25**      Author: Kees Schuerman
26**      SccsId: "@(#)lbmsg.c	1.11 4/6/95"
27** Description: Message Passing System: Base Layer Interface
28***********************************************************************/
29
30/* LINTLIBRARY */
31
32#include <pds.h>
33
34
35/*
36** Port Primitives
37*/
38
39bmsg_ret_t
40bport_familiar(port_id, familiar)
41    bport_id_t port_id;
42    bmsg_bool_t * familiar;
43{
44    return(BMSG_OK);
45}
46
47bmsg_ret_t
48bport_port(port_id, bport)
49    bport_id_t port_id;
50    bport_t * bport;
51{
52    return(BMSG_OK);
53}
54
55bmsg_ret_t
56bport_open(bport)
57    bport_t * bport;
58{
59    return(BMSG_OK);
60}
61
62bmsg_ret_t
63bport_close(port_id)
64    bport_id_t port_id;
65{
66    return(BMSG_OK);
67}
68
69bmsg_ret_t
70bport_flush(port_id)
71    bport_id_t port_id;
72{
73    return(BMSG_OK);
74}
75
76bmsg_ret_t
77bport_block(port_id)
78    bport_id_t port_id;
79{
80    return(BMSG_OK);
81}
82
83bmsg_ret_t
84bport_unblock(port_id)
85    bport_id_t port_id;
86{
87    return(BMSG_OK);
88}
89
90void
91bport_ack(port_id,port_primitive,ret)
92    bport_id_t port_id;
93    bport_primitive_t port_primitive;
94    bmsg_ret_t ret;
95{
96}
97
98void
99bport_notify(port_id,port_primitive)
100    bport_id_t port_id;
101    bport_primitive_t port_primitive;
102{
103}
104
105
106/*
107** Message Primitives
108*/
109
110bmsg_ret_t
111bmsg_alloc(size,data,msg)
112    bmsg_size_t size;
113    bmsg_data_t * * data;
114    bmsg_t * msg;
115{
116    return(BMSG_OK);
117}
118
119bmsg_ret_t
120bmsg_free(msg)
121    bmsg_t msg;
122{
123    return(BMSG_OK);
124}
125
126bmsg_size_t
127bmsg_size(msg)
128    bmsg_t msg;
129{
130    return((bmsg_size_t) 0);
131}
132
133bmsg_data_t *
134bmsg_data(bmsg_t msg)
135    bmsg_t msg;
136{
137    return((bmsg_data_t *) 0);
138}
139
140bmsg_size_t
141bmsg_scratch_size()
142{
143    return(0);
144}
145
146bmsg_ret_t
147bmsg_send(port_id,msg,size)
148    bport_id_t port_id;
149    bmsg_t msg;
150    bmsg_size_t size;
151{
152    return(BMSG_OK);
153}
154
155bmsg_ret_t
156bmsg_receive(msg,data,size,port_id,familiar)
157    bmsg_t * msg;
158    bmsg_data_t * * data;
159    bmsg_size_t * size;
160    bport_id_t * port_id;
161    bmsg_bool_t * familiar;
162{
163    return(BMSG_OK);
164}
165
166bmsg_ret_t
167bmsg_peek(msg,data,size,port_id,familiar)
168    bmsg_t * msg;
169    bmsg_data_t * * data;
170    bmsg_size_t * size;
171    bport_id_t * port_id;
172    bmsg_bool_t * familiar;
173{
174    return(BMSG_OK);
175}
176
177void
178bmsg_notify()
179{
180}
181
182
183/*
184** Memory Primitives
185*/
186
187void bmem_cpy(mem_dst_address,mem_src_address,mem_data_size)
188    bmem_address_t mem_dst_address;
189    bmem_address_t mem_src_address;
190    bmem_size_t mem_data_size;
191{
192    return;
193}
194
195bmsg_ret_t
196bmem_put(port_id,mem_id,mem_src_address,mem_dst_address,mem_data_size)
197    bport_id_t port_id;
198    bmem_id_t * mem_id;
199    bmem_address_t mem_src_address;
200    bmem_address_t mem_dst_address;
201    bmem_size_t mem_data_size;
202{
203    return(BMSG_OK);
204}
205
206bmsg_ret_t
207bmem_get(port_id,mem_id,mem_src_address,mem_dst_address,mem_data_size)
208    bport_id_t port_id;
209    bmem_id_t * mem_id;
210    bmem_address_t mem_src_address;
211    bmem_address_t mem_dst_address;
212    bmem_size_t mem_data_size;
213{
214    return(BMSG_OK);
215}
216
217void
218bmem_ack(mem_id,mem_primitive,ret)
219    bmem_id_t mem_id;
220    bmem_primitive_t mem_primitive;
221    bmsg_ret_t ret;
222{
223}
224
225void
226bmem_notify(port_id,mem_primitive,mem_address,mem_data_size)
227    bport_id_t port_id;
228    bmem_primitive_t mem_primitive;
229    bmem_address_t mem_address;
230    bmem_size_t mem_data_size;
231{
232}
233
234
235/*
236** Miscellaneous Primitives
237*/
238
239bmsg_ret_t
240bmsg_init(port_id,domain,option)
241    bport_id_t port_id;
242    bdomain_t * domain;
243    bmsg_option_t option;
244{
245    return(BMSG_OK);
246}
247
248void
249bmsg_exit()
250{
251}
252
253bmsg_ret_t
254bmsg_set_option(optname,optval)
255    bmsg_optname_t optname;
256    bmsg_optval_t optval;
257{
258    return(BMSG_OK);
259}
260
261bmsg_ret_t
262bmsg_get_option(optname,optval)
263    bmsg_optname_t optname;
264    bmsg_optval_t * optval;
265{
266    return(BMSG_OK);
267}
268
269bmsg_ret_t
270bmsg_trigger(option)
271    bmsg_option_t option;
272{
273    return(BMSG_OK);
274}
275
276void
277bproc_trigger(port)
278    bport_t * port;
279{
280}
281
282void
283bmsg_warn(msg_warn,culprit)
284    bmsg_warn_t msg_warn;
285    bport_id_t culprit;
286{
287}
288
289void
290bmsg_error(msg_error,culprit)
291    bmsg_error_t msg_error;
292    bport_id_t culprit;
293{
294}
295
296void
297bmsg_panic(msg_panic,culprit)
298    bmsg_panic_t msg_panic;
299    bport_id_t culprit;
300{
301}
302
303bmsg_ret_t
304bmsg_info(msg_info)
305    bmsg_info_t * msg_info;
306{
307    return(BMSG_OK);
308}
309
310bmsg_ret_t
311bmem_info(mem_info)
312    bmem_info_t * mem_info;
313{
314    return(BMSG_OK);
315}
316
317bmsg_ret_t
318bport_info(port_id,port_info)
319    bport_id_t port_id;
320    bport_info_t * port_info;
321{
322    return(BMSG_OK);
323}
324
325
326bmsg_ret_t
327bmem_address(msg_address,mem_address)
328    bmsg_address_t msg_address;
329    bmem_address_t * mem_address;
330{
331    return(BMSG_OK);
332}
333
334void
335bmsg_address(mem_address,msg_address)
336    bmem_address_t mem_address;
337    bmsg_address_t * msg_address;
338{
339    return;
340}
341
342
343