freebsd-dev/gnu/libexec/uucp/libunix/wldcrd.c
1995-08-19 21:30:30 +00:00

214 lines
4.4 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.

/* wldcrd.c
Expand wildcards.
Copyright (C) 1991, 1992, 1993 Ian Lance Taylor
This file is part of the Taylor UUCP package.
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License as
published by the Free Software Foundation; either version 2 of the
License, or (at your option) any later version.
This program 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
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
The author of the program may be contacted at ian@airs.com or
c/o Cygnus Support, 48 Grove Street, Somerville, MA 02144.
*/
#include "uucp.h"
#include "uudefs.h"
#include "sysdep.h"
#include "system.h"
#include <ctype.h>
#include <errno.h>
#if HAVE_GLOB && ! HAVE_GLOB_H
#undef HAVE_GLOB
#define HAVE_GLOB 0
#endif
#if HAVE_GLOB
#include <glob.h>
#endif
/* Local variables to hold the wildcard in progress. */
#if HAVE_GLOB
static glob_t sSglob;
static int iSglob;
#else
static char *zSwildcard_alloc;
static char *zSwildcard;
#endif
/* Start getting a wildcarded file spec. Use the glob function if it
is available, and otherwise use the shell. */
boolean
fsysdep_wildcard_start (zfile)
const char *zfile;
{
#if HAVE_GLOB
#if DEBUG > 0
if (*zfile != '/')
ulog (LOG_FATAL, "fsysdep_wildcard: %s: Can't happen", zfile);
#endif
if (glob (zfile, 0, (int (*) ()) NULL, &sSglob) != 0)
sSglob.gl_pathc = 0;
iSglob = 0;
return TRUE;
#else /* ! HAVE_GLOB */
char *zcmd, *zto;
const char *zfrom;
size_t c;
const char *azargs[4];
FILE *e;
pid_t ipid;
#if DEBUG > 0
if (*zfile != '/')
ulog (LOG_FATAL, "fsysdep_wildcard: %s: Can't happen", zfile);
#endif
zSwildcard_alloc = NULL;
zSwildcard = NULL;
zcmd = zbufalc (sizeof ECHO_PROGRAM + sizeof " " + 2 * strlen (zfile));
memcpy (zcmd, ECHO_PROGRAM, sizeof ECHO_PROGRAM - 1);
zto = zcmd + sizeof ECHO_PROGRAM - 1;
*zto++ = ' ';
zfrom = zfile;
while (*zfrom != '\0')
{
/* To avoid shell trickery, we quote all characters except
letters, digits, and wildcard specifiers. We don't quote '/'
to avoid an Ultrix sh bug. */
if (! isalnum (*zfrom)
&& *zfrom != '*'
&& *zfrom != '?'
&& *zfrom != '['
&& *zfrom != ']'
&& *zfrom != '/')
*zto++ = '\\';
*zto++ = *zfrom++;
}
*zto = '\0';
azargs[0] = "/bin/sh";
azargs[1] = "-c";
azargs[2] = zcmd;
azargs[3] = NULL;
e = espopen (azargs, TRUE, &ipid);
ubuffree (zcmd);
if (e == NULL)
{
ulog (LOG_ERROR, "espopen: %s", strerror (errno));
return FALSE;
}
zSwildcard_alloc = NULL;
c = 0;
if (getline (&zSwildcard_alloc, &c, e) <= 0)
{
xfree ((pointer) zSwildcard_alloc);
zSwildcard_alloc = NULL;
}
if (ixswait ((unsigned long) ipid, ECHO_PROGRAM) != 0)
{
xfree ((pointer) zSwildcard_alloc);
return FALSE;
}
if (zSwildcard_alloc == NULL)
return FALSE;
DEBUG_MESSAGE1 (DEBUG_EXECUTE,
"fsysdep_wildcard_start: got \"%s\"",
zSwildcard_alloc);
zSwildcard = zSwildcard_alloc;
return TRUE;
#endif /* ! HAVE_GLOB */
}
/* Get the next wildcard spec. */
/*ARGSUSED*/
char *
zsysdep_wildcard (zfile)
const char *zfile;
{
#if HAVE_GLOB
char *zret;
if (iSglob >= sSglob.gl_pathc)
return NULL;
zret = zbufcpy (sSglob.gl_pathv[iSglob]);
++iSglob;
return zret;
#else /* ! HAVE_GLOB */
char *zret;
if (zSwildcard_alloc == NULL || zSwildcard == NULL)
return NULL;
zret = zSwildcard;
while (*zSwildcard != '\0' && ! isspace (BUCHAR (*zSwildcard)))
++zSwildcard;
if (*zSwildcard != '\0')
{
*zSwildcard = '\0';
++zSwildcard;
while (*zSwildcard != '\0' && isspace (BUCHAR (*zSwildcard)))
++zSwildcard;
}
if (*zSwildcard == '\0')
zSwildcard = NULL;
return zbufcpy (zret);
#endif /* ! HAVE_GLOB */
}
/* Finish up getting wildcard specs. */
boolean
fsysdep_wildcard_end ()
{
#if HAVE_GLOB
globfree (&sSglob);
return TRUE;
#else /* ! HAVE_GLOB */
xfree ((pointer) zSwildcard_alloc);
zSwildcard_alloc = NULL;
zSwildcard = NULL;
return TRUE;
#endif /* ! HAVE_GLOB */
}