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
|
/*
* SCCS: @(#)sysent.c 1.9 (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
/************************************************************************
SCCS: @(#)sysent.c 1.9 98/08/28 TETware release 3.3
NAME: sysent.c
PRODUCT: TETware
AUTHOR: Andrew Dingwall, UniSoft Ltd.
DATE CREATED: April 1992
DESCRIPTION:
systems file search function
MODIFICATIONS:
Denis McConalogue, DTET Development, May 1993
XTI support - allow TCCD XTI addresses to be included in
the systems file.
Andrew Dingwall, UniSoft Ltd., July 1997
added support the MT DLL version of the C runtime support library
on Win32 systems
Andrew Dingwall, UniSoft Ltd., July 1998
Added support for shared API libraries.
Aaron Plattner, April 2010
Fixed warnings when compiled with GCC's -Wall option.
************************************************************************/
#ifndef TET_LITE /* -START-LITE-CUT- */
#include <stdio.h>
#include <stdlib.h>
#include <errno.h>
#include "dtmac.h"
#include "sysent.h"
#include "error.h"
#include "globals.h"
#include "dtetlib.h"
static FILE *sfp = NULL; /* systems file stream pointer */
/*
** tet_libgetsysent() - get an entry from the systems file
** and return a pointer thereto
**
** return (struct sysent *) 0 on error
**
** warning: the string pointed to by sy.sy_name is stored in the static
** buffer owned by fgetargs() so, if it is needed, it should be copied
** to somewhere less exposed soon after a call to tet_libgetsysent()
*/
struct sysent *tet_libgetsysent()
{
static struct sysent sysent;
char *args[3];
register int rc;
if (sfp == NULL && tet_libsetsysent() < 0)
return((struct sysent *) 0);
rc = 0;
while (rc < 2)
if ((rc = tet_fgetargs(sfp, args, 3)) == EOF)
return((struct sysent *) 0);
sysent.sy_sysid = atoi(args[0]);
sysent.sy_name = args[1];
if (rc > 2)
sysent.sy_tccd = args[2];
else
sysent.sy_tccd = (char *)0;
return(&sysent);
}
/*
** tet_libsetsysent() - rewind to the start of the systems file,
** opening it if necessary
**
** return 0 if successful or -1 on error
*/
int tet_libsetsysent()
{
static char file[] = "systems";
char path[MAXPATH + 1];
if (sfp != NULL) {
rewind(sfp);
return(0);
}
ASSERT(tet_root[0]);
(void) sprintf(path, "%.*s/%s",
(int) sizeof path - (int) sizeof file - 1, tet_root, file);
if ((sfp = fopen(path, "r")) == NULL) {
error(errno, "can't open", path);
return(-1);
}
(void) tet_fioclex(FILENO(sfp));
return(0);
}
/*
** tet_libendsysent() - close the systems file
*/
void tet_libendsysent()
{
if (sfp != NULL) {
(void) fclose(sfp);
sfp = NULL;
}
}
#else /* -END-LITE-CUT- */
int tet_sysent_c_not_empty;
#endif /* !TET_LITE */ /* -LITE-CUT-LINE- */
|
