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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
|
/*
* SCCS: @(#)getlist.c 1.15 (98/08/28)
*
* UniSoft Ltd., London, England
*
* (C) Copyright 1992 X/Open Company Limited
*
* All rights reserved. No part of this source code may be reproduced,
* stored in a retrieval system, or transmitted, in any form or by any
* means, electronic, mechanical, photocopying, recording or otherwise,
* except as stated in the end-user licence agreement, without the prior
* permission of the copyright owners.
*
* X/Open and the 'X' symbol are trademarks of X/Open Company Limited in
* the UK and other countries.
*/
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
#ifndef lint
static char sccsid[] = "@(#)getlist.c 1.15 (98/08/28) TET3 release 3.3";
#endif
/************************************************************************
SCCS: @(#)getlist.c 1.15 98/08/28 TETware release 3.3
NAME: getlist.c
PRODUCT: TETware
AUTHOR: Andrew Dingwall, UniSoft Ltd.
DATE CREATED: April 1992
SYNOPSIS:
#include "tet_api.h"
int tet_remgetlist(int **sysnames);
DESCRIPTION:
DTET API function
Return the number of other systems in a distributed test case,
or -1 on error.
If successful, a pointer to a list of the (numeric) system
names is returned indirectly through *sysnames.
A zero terminator is added to the list for
backwards compatibility.
The TETware-Lite version always returns zero and sets (*sysnames)
to point to an empty list.
MODIFICATIONS:
Denis McConalogue, UniSoft Limited, September 1993
terminate the list of system names returned with integer
zero (0) (not included in the count).
Andrew Dingwall, UniSoft Ltd., December 1993
changed dapi.h to dtet2/tet_api.h
Geoff Clare, UniSoft Ltd., July 1996
Changes for TETWare.
Geoff Clare, UniSoft Ltd., Sept 1996
Changes for TETWare-Lite.
Andrew Dingwall, June 1997
Fixed a bug whereby the number of systems returned always
included sysid 0 even when that system is not participating
in a distributed test;
the system list is always zero-terminated but the zero is only
included in the count if sysid 0 is one of the participating
systems.
Andrew Dingwall, UniSoft Ltd., July 1998
Added support for shared API libraries.
************************************************************************/
#include <stdio.h>
#include "dtmac.h"
#include "dtthr.h"
#include "globals.h"
#include "tet_api.h"
#include "apilib.h"
#include "dtetlib.h"
#ifndef TET_LITE /* -START-LITE-CUT- */
#ifdef NEEDsrcFile
static char srcFile[] = __FILE__; /* file name for error reporting */
#endif
TET_IMPORT int tet_remgetlist(sysnames)
int **sysnames;
{
register int n, nsys, *ip1, *ip2;
static int *snames;
static int slen;
static int nsname = -1;
API_LOCK;
/*
** initialise the systems list first time through -
**
** the list is always terminated by a 0
**
** the return value (i.e., the number of systems in the list)
** includes the terminating 0 if sysid 0 is in the list;
** otherwise the return value excludes the terminating 0
*/
if (nsname < 0) {
nsys = 0;
for (n = 0, ip1 = tet_snames; n < tet_Nsname; n++, ip1++)
if (*ip1 != tet_mysysid)
nsys++;
n = (nsys + 1) * sizeof *snames;
if (BUFCHK((char **) &snames, &slen, n) < 0)
{
tet_errno = TET_ER_ERR;
API_UNLOCK;
return(-1);
}
ip2 = snames;
for (n = 0, ip1 = tet_snames; n < tet_Nsname; n++, ip1++)
if (*ip1 > 0 && *ip1 != tet_mysysid)
*ip2++ = *ip1;
*ip2 = 0;
nsname = nsys;
}
if (sysnames)
*sysnames = snames;
API_UNLOCK;
return(nsname);
}
#else /* -END-LITE-CUT- */
TET_IMPORT int tet_remgetlist(sysnames)
int **sysnames;
{
static int snames[1] = { 0 };
if (sysnames)
*sysnames = snames;
return 0;
}
#endif /* -LITE-CUT-LINE- */
|
