![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to hsnams.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / g / usr / lib / uucp / tay104 / uuconf|
Return to hsnams.c CVS log | Up to [MW Coherent from dump] / coherent / g / usr / lib / uucp / tay104 / uuconf |
1.1 root 1: /* hsnams.c
2: Get all known system names from the HDB configuration files.
3:
4: Copyright (C) 1992 Ian Lance Taylor
5:
6: This file is part of the Taylor UUCP uuconf library.
7:
8: This library is free software; you can redistribute it and/or
9: modify it under the terms of the GNU Library General Public License
10: as published by the Free Software Foundation; either version 2 of
11: the License, or (at your option) any later version.
12:
13: This library is distributed in the hope that it will be useful, but
14: WITHOUT ANY WARRANTY; without even the implied warranty of
15: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16: Library General Public License for more details.
17:
18: You should have received a copy of the GNU Library General Public
19: License along with this library; if not, write to the Free Software
20: Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
21:
22: The author of the program may be contacted at [email protected] or
23: c/o Infinity Development Systems, P.O. Box 520, Waltham, MA 02254.
24: */
25:
26: #include "uucnfi.h"
27:
28: #if USE_RCS_ID
29: const char _uuconf_hsnams_rcsid[] = "$Id: hsnams.c,v 1.1 93/07/30 08:07:19 bin Exp Locker: bin $";
30: #endif
31:
32: #include <errno.h>
33: #include <ctype.h>
34:
35: /* Get all the system names from the HDB Systems file. We have to
36: read the Permissions file in order to support aliases. */
37:
38: int
39: uuconf_hdb_system_names (pglobal, ppzsystems, falias)
40: pointer pglobal;
41: char ***ppzsystems;
42: int falias;
43: {
44: struct sglobal *qglobal = (struct sglobal *) pglobal;
45: int iret;
46: char *zline;
47: size_t cline;
48: char **pz;
49:
50: *ppzsystems = NULL;
51:
52: iret = UUCONF_SUCCESS;
53:
54: zline = NULL;
55: cline = 0;
56:
57: for (pz = qglobal->qprocess->pzhdb_systems; *pz != NULL; pz++)
58: {
59: FILE *e;
60:
61: e = fopen (*pz, "r");
62: if (e == NULL)
63: {
64: if (FNO_SUCH_FILE ())
65: continue;
66: qglobal->ierrno = errno;
67: iret = UUCONF_FOPEN_FAILED | UUCONF_ERROR_ERRNO;
68: break;
69: }
70:
71: qglobal->ilineno = 0;
72:
73: while (_uuconf_getline (qglobal, &zline, &cline, e) > 0)
74: {
75: ++qglobal->ilineno;
76:
77: /* Lines beginning with whitespace are treated as comments.
78: No system name can contain a '#', which is another
79: comment character, so eliminating the first '#' does no
80: harm and catches comments. */
81: zline[strcspn (zline, " \t#\n")] = '\0';
82: if (*zline == '\0')
83: continue;
84:
85: iret = _uuconf_iadd_string (qglobal, zline, TRUE, TRUE,
86: ppzsystems, (pointer) NULL);
87: if (iret != UUCONF_SUCCESS)
88: {
89: iret |= UUCONF_ERROR_LINENO;
90: break;
91: }
92: }
93:
94: (void) fclose (e);
95: }
96:
97: if (zline != NULL)
98: free ((pointer) zline);
99:
100: if (iret != UUCONF_SUCCESS)
101: {
102: qglobal->zfilename = *pz;
103: return iret | UUCONF_ERROR_FILENAME;
104: }
105:
106: /* If we are supposed to return aliases, we must read the
107: Permissions file. */
108: if (falias)
109: {
110: struct shpermissions *q;
111:
112: if (! qglobal->qprocess->fhdb_read_permissions)
113: {
114: iret = _uuconf_ihread_permissions (qglobal);
115: if (iret != UUCONF_SUCCESS)
116: return iret;
117: }
118:
119: for (q = qglobal->qprocess->qhdb_permissions;
120: q != NULL;
121: q = q->qnext)
122: {
123: pz = q->pzalias;
124: if (pz == NULL || pz == (char **) &_uuconf_unset)
125: continue;
126:
127: for (; *pz != NULL; pz++)
128: {
129: iret = _uuconf_iadd_string (qglobal, *pz, TRUE, TRUE,
130: ppzsystems, (pointer) NULL);
131: if (iret != UUCONF_SUCCESS)
132: return iret;
133: }
134: }
135: }
136:
137: if (*ppzsystems == NULL)
138: iret = _uuconf_iadd_string (qglobal, (char *) NULL, FALSE, FALSE,
139: ppzsystems, (pointer) NULL);
140:
141: return iret;
142: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.