NetBSD/gnu/libexec/uucp/libuuconf/hinit.c

296 lines
7.9 KiB
C
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/* hinit.c
Initialize for reading HDB configuration files.
Copyright (C) 1992 Ian Lance Taylor
This file is part of the Taylor UUCP uuconf library.
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public License
as published by the Free Software Foundation; either version 2 of
the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
The author of the program may be contacted at ian@airs.com or
c/o Infinity Development Systems, P.O. Box 520, Waltham, MA 02254.
*/
#include "uucnfi.h"
#if USE_RCS_ID
const char _uuconf_hinit_rcsid[] = "$Id: hinit.c,v 1.1 1993/08/04 19:34:17 jtc Exp $";
#endif
#include <errno.h>
#include <ctype.h>
/* Avoid replicating OLDCONFIGLIB several times if not necessary. */
static const char abHoldconfiglib[] = OLDCONFIGLIB;
/* Initialize the routines which read HDB configuration files. */
int
uuconf_hdb_init (ppglobal, zprogram)
pointer *ppglobal;
const char *zprogram;
{
struct sglobal **pqglobal = (struct sglobal **) ppglobal;
int iret;
struct sglobal *qglobal;
pointer pblock;
char abdialcodes[sizeof OLDCONFIGLIB + sizeof HDB_DIALCODES - 1];
char *zsys;
FILE *e;
if (*pqglobal == NULL)
{
iret = _uuconf_iinit_global (pqglobal);
if (iret != UUCONF_SUCCESS)
return iret;
}
qglobal = *pqglobal;
pblock = qglobal->pblock;
if (zprogram == NULL
|| strcmp (zprogram, "uucp") == 0)
zprogram = "uucico";
/* Add the Dialcodes file to the global list. */
memcpy ((pointer) abdialcodes, (pointer) abHoldconfiglib,
sizeof OLDCONFIGLIB - 1);
memcpy ((pointer) (abdialcodes + sizeof OLDCONFIGLIB - 1),
(pointer) HDB_DIALCODES, sizeof HDB_DIALCODES);
iret = _uuconf_iadd_string (qglobal, abdialcodes, TRUE, FALSE,
&qglobal->qprocess->pzdialcodefiles,
pblock);
if (iret != UUCONF_SUCCESS)
return iret;
/* Read the Sysfiles file. We allocate the name on the heap rather
than the stack so that we can return it in
qerr->uuconf_zfilename. */
zsys = uuconf_malloc (pblock,
sizeof OLDCONFIGLIB + sizeof HDB_SYSFILES - 1);
if (zsys == NULL)
{
qglobal->ierrno = errno;
return UUCONF_MALLOC_FAILED | UUCONF_ERROR_ERRNO;
}
memcpy ((pointer) zsys, (pointer) abHoldconfiglib, sizeof OLDCONFIGLIB - 1);
memcpy ((pointer) (zsys + sizeof OLDCONFIGLIB - 1), (pointer) HDB_SYSFILES,
sizeof HDB_SYSFILES);
iret = UUCONF_SUCCESS;
e = fopen (zsys, "r");
if (e == NULL)
uuconf_free (pblock, zsys);
else
{
char *zline;
size_t cline;
char **pzargs;
size_t cargs;
char **pzcolon;
size_t ccolon;
int cchars;
zline = NULL;
cline = 0;
pzargs = NULL;
cargs = 0;
pzcolon = NULL;
ccolon = 0;
qglobal->ilineno = 0;
while (iret == UUCONF_SUCCESS
&& (cchars = _uuconf_getline (qglobal, &zline, &cline, e)) > 0)
{
int ctypes, cnames;
int i;
++qglobal->ilineno;
--cchars;
if (zline[cchars] == '\n')
zline[cchars] = '\0';
if (isspace (BUCHAR (zline[0])) || zline[0] == '#')
continue;
ctypes = _uuconf_istrsplit (zline, '\0', &pzargs, &cargs);
if (ctypes < 0)
{
qglobal->ierrno = errno;
iret = UUCONF_MALLOC_FAILED | UUCONF_ERROR_ERRNO;
break;
}
if (ctypes == 0)
continue;
if (strncmp (pzargs[0], "service=", sizeof "service=" - 1) != 0)
{
iret = UUCONF_SYNTAX_ERROR;
break;
}
pzargs[0] += sizeof "service=" - 1;
cnames = _uuconf_istrsplit (pzargs[0], ':', &pzcolon, &ccolon);
if (cnames < 0)
{
qglobal->ierrno = errno;
iret = UUCONF_MALLOC_FAILED | UUCONF_ERROR_ERRNO;
break;
}
for (i = 0; i < cnames; i++)
if (strcmp (zprogram, pzcolon[i]) == 0)
break;
if (i >= cnames)
continue;
for (i = 1; i < ctypes && iret == UUCONF_SUCCESS; i++)
{
char ***ppz;
int cfiles, ifile;
if (strncmp (pzargs[i], "systems=", sizeof "systems=" - 1)
== 0)
{
ppz = &qglobal->qprocess->pzhdb_systems;
pzargs[i] += sizeof "systems=" - 1;
}
else if (strncmp (pzargs[i], "devices=", sizeof "devices=" - 1)
== 0)
{
ppz = &qglobal->qprocess->pzhdb_devices;
pzargs[i] += sizeof "devices=" - 1;
}
else if (strncmp (pzargs[i], "dialers=", sizeof "dialers=" - 1)
== 0)
{
ppz = &qglobal->qprocess->pzhdb_dialers;
pzargs[i] += sizeof "dialers=" - 1;
}
else
{
iret = UUCONF_SYNTAX_ERROR;
break;
}
cfiles = _uuconf_istrsplit (pzargs[i], ':', &pzcolon, &ccolon);
if (cfiles < 0)
{
qglobal->ierrno = errno;
iret = UUCONF_MALLOC_FAILED | UUCONF_ERROR_ERRNO;
break;
}
for (ifile = 0;
ifile < cfiles && iret == UUCONF_SUCCESS;
ifile++)
{
/* Looking for a leading '/' is Unix dependent, and
should probably be changed. */
if (pzcolon[ifile][0] == '/')
iret = _uuconf_iadd_string (qglobal, pzcolon[ifile], TRUE,
FALSE, ppz, pblock);
else
{
char *zdir;
size_t clen;
clen = strlen (pzcolon[ifile]);
zdir = (char *) uuconf_malloc (pblock,
(sizeof OLDCONFIGLIB
+ sizeof HDB_SEPARATOR
+ clen
- 1));
if (zdir == NULL)
{
qglobal->ierrno = errno;
iret = UUCONF_MALLOC_FAILED | UUCONF_ERROR_ERRNO;
break;
}
memcpy ((pointer) zdir, (pointer) abHoldconfiglib,
sizeof OLDCONFIGLIB - 1);
memcpy ((pointer) (zdir + sizeof OLDCONFIGLIB - 1),
HDB_SEPARATOR, sizeof HDB_SEPARATOR - 1);
memcpy ((pointer) (zdir
+ sizeof OLDCONFIGLIB - 1
+ sizeof HDB_SEPARATOR - 1),
(pointer) pzcolon[ifile], clen + 1);
iret = _uuconf_iadd_string (qglobal, zdir, FALSE, FALSE,
ppz, pblock);
}
}
}
}
(void) fclose (e);
if (zline != NULL)
free ((pointer) zline);
if (pzargs != NULL)
free ((pointer) pzargs);
if (pzcolon != NULL)
free ((pointer) pzcolon);
if (iret != UUCONF_SUCCESS)
{
qglobal->zfilename = zsys;
return iret | UUCONF_ERROR_FILENAME | UUCONF_ERROR_LINENO;
}
}
if (qglobal->qprocess->pzhdb_systems == NULL)
{
char ab[sizeof OLDCONFIGLIB + sizeof HDB_SYSTEMS - 1];
memcpy ((pointer) ab, (pointer) abHoldconfiglib,
sizeof OLDCONFIGLIB - 1);
memcpy ((pointer) (ab + sizeof OLDCONFIGLIB - 1),
(pointer) HDB_SYSTEMS, sizeof HDB_SYSTEMS);
iret = _uuconf_iadd_string (qglobal, ab, TRUE, FALSE,
&qglobal->qprocess->pzhdb_systems,
pblock);
}
if (qglobal->qprocess->pzhdb_devices == NULL && iret == UUCONF_SUCCESS)
{
char ab[sizeof OLDCONFIGLIB + sizeof HDB_DEVICES - 1];
memcpy ((pointer) ab, (pointer) abHoldconfiglib,
sizeof OLDCONFIGLIB - 1);
memcpy ((pointer) (ab + sizeof OLDCONFIGLIB - 1),
(pointer) HDB_DEVICES, sizeof HDB_DEVICES);
iret = _uuconf_iadd_string (qglobal, ab, TRUE, FALSE,
&qglobal->qprocess->pzhdb_devices,
pblock);
}
if (qglobal->qprocess->pzhdb_dialers == NULL && iret == UUCONF_SUCCESS)
{
char ab[sizeof OLDCONFIGLIB + sizeof HDB_DIALERS - 1];
memcpy ((pointer) ab, (pointer) abHoldconfiglib,
sizeof OLDCONFIGLIB - 1);
memcpy ((pointer) (ab + sizeof OLDCONFIGLIB - 1),
(pointer) HDB_DIALERS, sizeof HDB_DIALERS);
iret = _uuconf_iadd_string (qglobal, ab, TRUE, FALSE,
&qglobal->qprocess->pzhdb_dialers,
pblock);
}
return iret;
}