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

228 lines
6.0 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.

/* tdial.c
Find a dialer in the Taylor UUCP 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 Cygnus Support, Building 200, 1 Kendall Square, Cambridge, MA 02139.
*/
#include "uucnfi.h"
#if USE_RCS_ID
const char _uuconf_tdial_rcsid[] = "$Id: tdial.c,v 1.2 1994/10/24 22:24:53 jtc Exp $";
#endif
#include <errno.h>
static int iddialer P((pointer pglobal, int argc, char **argv, pointer pvar,
pointer pinfo));
static int idunknown P((pointer pglobal, int argc, char **argv, pointer pvar,
pointer pinfo));
/* Find a dialer in the Taylor UUCP configuration files by name. */
int
uuconf_taylor_dialer_info (pglobal, zname, qdialer)
pointer pglobal;
const char *zname;
struct uuconf_dialer *qdialer;
{
struct sglobal *qglobal = (struct sglobal *) pglobal;
FILE *e;
pointer pblock;
int iret;
char **pz;
e = NULL;
pblock = NULL;
iret = UUCONF_NOT_FOUND;
for (pz = qglobal->qprocess->pzdialfiles; *pz != NULL; pz++)
{
struct uuconf_cmdtab as[2];
char *zdialer;
struct uuconf_dialer sdefault;
int ilineno;
e = fopen (*pz, "r");
if (e == NULL)
{
if (FNO_SUCH_FILE ())
continue;
qglobal->ierrno = errno;
iret = UUCONF_FOPEN_FAILED | UUCONF_ERROR_ERRNO;
break;
}
qglobal->ilineno = 0;
/* Gather the default information from the top of the file. We
do this by handling the "dialer" command ourselves and
passing every other command to _uuconf_idialer_cmd via
idunknown. The value of zdialer will be an malloc block. */
as[0].uuconf_zcmd = "dialer";
as[0].uuconf_itype = UUCONF_CMDTABTYPE_FN | 2;
as[0].uuconf_pvar = (pointer) &zdialer;
as[0].uuconf_pifn = iddialer;
as[1].uuconf_zcmd = NULL;
pblock = uuconf_malloc_block ();
if (pblock == NULL)
{
qglobal->ierrno = errno;
iret = UUCONF_MALLOC_FAILED | UUCONF_ERROR_ERRNO;
break;
}
_uuconf_uclear_dialer (&sdefault);
sdefault.uuconf_palloc = pblock;
zdialer = NULL;
iret = uuconf_cmd_file (pglobal, e, as, (pointer) &sdefault,
idunknown, UUCONF_CMDTABFLAG_BACKSLASH,
pblock);
/* Now skip until we find a dialer with a matching name. */
while (iret == UUCONF_SUCCESS
&& zdialer != NULL
&& strcmp (zname, zdialer) != 0)
{
free ((pointer) zdialer);
zdialer = NULL;
ilineno = qglobal->ilineno;
iret = uuconf_cmd_file (pglobal, e, as, (pointer) NULL,
(uuconf_cmdtabfn) NULL,
UUCONF_CMDTABFLAG_BACKSLASH,
pblock);
qglobal->ilineno += ilineno;
}
if (iret != UUCONF_SUCCESS)
{
if (zdialer != NULL)
free ((pointer) zdialer);
break;
}
if (zdialer != NULL)
{
size_t csize;
/* We've found the dialer we're looking for. Read the rest
of the commands for it. */
as[0].uuconf_pvar = NULL;
*qdialer = sdefault;
csize = strlen (zdialer) + 1;
qdialer->uuconf_zname = uuconf_malloc (pblock, csize);
if (qdialer->uuconf_zname == NULL)
{
qglobal->ierrno = errno;
free ((pointer) zdialer);
iret = UUCONF_MALLOC_FAILED | UUCONF_ERROR_ERRNO;
break;
}
memcpy ((pointer) qdialer->uuconf_zname, (pointer) zdialer,
csize);
free ((pointer) zdialer);
ilineno = qglobal->ilineno;
iret = uuconf_cmd_file (pglobal, e, as, qdialer, idunknown,
UUCONF_CMDTABFLAG_BACKSLASH, pblock);
qglobal->ilineno += ilineno;
break;
}
(void) fclose (e);
e = NULL;
uuconf_free_block (pblock);
pblock = NULL;
iret = UUCONF_NOT_FOUND;
}
if (e != NULL)
(void) fclose (e);
if (iret != UUCONF_SUCCESS && pblock != NULL)
uuconf_free_block (pblock);
if (iret != UUCONF_SUCCESS && iret != UUCONF_NOT_FOUND)
{
qglobal->zfilename = *pz;
iret |= UUCONF_ERROR_FILENAME;
}
return iret;
}
/* Handle a "dialer" command. This copies the string onto the heap
and returns the pointer in *pvar, unless pvar is NULL. It returns
UUCONF_CMDTABRET_EXIT to force _uuconf_icmd_file_internal to stop
reading and return to the code above, which will then check the
dialer name just read to see if it matches. */
/*ARGSUSED*/
static int
iddialer (pglobal, argc, argv, pvar, pinfo)
pointer pglobal;
int argc;
char **argv;
pointer pvar;
pointer pinfo;
{
struct sglobal *qglobal = (struct sglobal *) pglobal;
char **pz = (char **) pvar;
if (pz != NULL)
{
size_t csize;
csize = strlen (argv[1]) + 1;
*pz = malloc (csize);
if (*pz == NULL)
{
qglobal->ierrno = errno;
return (UUCONF_MALLOC_FAILED
| UUCONF_ERROR_ERRNO
| UUCONF_CMDTABRET_EXIT);
}
memcpy ((pointer) *pz, (pointer) argv[1], csize);
}
return UUCONF_CMDTABRET_EXIT;
}
/* Handle an unknown command by passing it on to _uuconf_idialer_cmd,
which will parse it into the dialer structure. */
/*ARGSUSED*/
static int
idunknown (pglobal, argc, argv, pvar, pinfo)
pointer pglobal;
int argc;
char **argv;
pointer pvar;
pointer pinfo;
{
struct sglobal *qglobal = (struct sglobal *) pglobal;
struct uuconf_dialer *qdialer = (struct uuconf_dialer *) pinfo;
return _uuconf_idialer_cmd (qglobal, argc, argv, qdialer);
}