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

104 lines
2.5 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.

/* cmdfil.c
Read and parse commands from a file.
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_cmdfil_rcsid[] = "$Id: cmdfil.c,v 1.1 1993/08/04 19:33:51 jtc Exp $";
#endif
#include <errno.h>
/* Read and parse commands from a file, updating uuconf_lineno as
appropriate. */
int
uuconf_cmd_file (pglobal, e, qtab, pinfo, pfiunknown, iflags, pblock)
pointer pglobal;
FILE *e;
const struct uuconf_cmdtab *qtab;
pointer pinfo;
int (*pfiunknown) P((pointer, int, char **, pointer, pointer));
int iflags;
pointer pblock;
{
struct sglobal *qglobal = (struct sglobal *) pglobal;
boolean fcont;
char *zline;
size_t cline;
int iret;
fcont = (iflags & UUCONF_CMDTABFLAG_BACKSLASH) != 0;
zline = NULL;
cline = 0;
iret = UUCONF_SUCCESS;
qglobal->ilineno = 0;
while ((fcont
? _uuconf_getline (qglobal, &zline, &cline, e)
: getline (&zline, &cline, e)) > 0)
{
++qglobal->ilineno;
iret = uuconf_cmd_line (pglobal, zline, qtab, pinfo, pfiunknown,
iflags, pblock);
if ((iret & UUCONF_CMDTABRET_KEEP) != 0)
{
iret &=~ UUCONF_CMDTABRET_KEEP;
if (pblock != NULL)
{
if (uuconf_add_block (pblock, zline) != 0)
{
qglobal->ierrno = errno;
iret = (UUCONF_MALLOC_FAILED
| UUCONF_ERROR_ERRNO
| UUCONF_ERROR_LINENO);
break;
}
}
zline = NULL;
cline = 0;
}
if ((iret & UUCONF_CMDTABRET_EXIT) != 0)
{
iret &=~ UUCONF_CMDTABRET_EXIT;
if (iret != UUCONF_SUCCESS)
iret |= UUCONF_ERROR_LINENO;
break;
}
iret = UUCONF_SUCCESS;
}
return iret;
}