#ifndef NO_IDENT
static char *Id = "$Id: wildcard.c,v 1.1 2004/05/03 13:12:10 tom Exp $";
#endif
#include "system.h"
#if HAVE_STDLIB_H
# include <stdlib.h>
#endif
#if HAVE_STRING_H
# include <string.h>
#endif
#if SYS_MSDOS || SYS_OS2
# if SYS_MSDOS
# include <dos.h>
# include <dir.h>
# define FILENAME_MAX MAXPATH
# endif
# define DeclareFind(p) struct find_t p
# define DirEntryStr(p) p.name
# define DirFindFirst(path,p) (!_dos_findfirst(path, 0, &p))
# define DirFindNext(p) (!_dos_findnext(&p))
#endif
#if SYS_VMS
#include <starlet.h>
#include <stdio.h>
#include <rms.h>
#include <descrip.h>
#endif
int
has_wildcard(char *path)
{
#if SYS_VMS
return (strstr(path, "...") != 0
|| strchr(path, '*') != 0
|| strchr(path, '?') != 0);
#else
return (strchr(path, '*') != 0
|| strchr(path, '?') != 0);
#endif
}
int
expand_wildcard(char *path, int initiate)
{
#if SYS_MSDOS || SYS_OS2
static DeclareFind(p);
static char temp[FILENAME_MAX + 1];
register char *leaf;
if ((leaf = strchr(path, '/')) == 0
&& (leaf = strchr(path, '\\')) == 0)
leaf = path;
else
leaf++;
if ((initiate && DirFindFirst(strcpy(temp, path), p))
|| DirFindNext(p)) {
(void) strcpy(leaf, DirEntryStr(p));
return TRUE;
}
#endif
#if SYS_VMS
static struct FAB zfab;
static struct NAM znam;
static char my_esa[NAM$C_MAXRSS];
static char my_rsa[NAM$C_MAXRSS];
if (initiate) {
zfab = cc$rms_fab;
zfab.fab$l_fop = FAB$M_NAM;
zfab.fab$l_nam = &znam;
zfab.fab$l_dna = "*.*;";
zfab.fab$b_dns = strlen(zfab.fab$l_dna);
zfab.fab$l_fna = path;
zfab.fab$b_fns = strlen(path);
znam = cc$rms_nam;
znam.nam$b_ess = sizeof(my_esa);
znam.nam$l_esa = my_esa;
znam.nam$b_rss = sizeof(my_rsa);
znam.nam$l_rsa = my_rsa;
if (sys$parse(&zfab) != RMS$_NORMAL) {
perror(path);
exit(EXIT_FAILURE);
}
}
if (sys$search(&zfab) == RMS$_NORMAL) {
strncpy(path, my_rsa, znam.nam$b_rsl)[znam.nam$b_rsl] = '\0';
return (TRUE);
}
#endif
#if SYS_MSDOS
#endif
return FALSE;
}