1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
/* $Id: pvmfdelinfo.m4,v 1.1 1997/04/01 20:14:53 pvmsrc Exp $ */
#include "pvm3.h"
#include "pvm_consts.h"
void
FUNCTION(pvmfdelinfo) ARGS(`STRING_ARG(name), mbx_index, flags, info')
STRING_ARG_DECL(name);
int *mbx_index, *flags, *info;
{
char tname[MAX_MBOX_NAME + 1];
/*
* Copy the mailbox name to make sure there is
* a NUL at the end.
*/
if (ftocstr(tname, sizeof(tname), STRING_PTR(name), STRING_LEN(name))) {
*info = PvmBadParam;
return;
}
*info = pvm_delinfo(tname, *mbx_index, *flags);
}
|
