File: wildcard.c

package info (click to toggle)
diffstat 1.39-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 532 kB
  • ctags: 120
  • sloc: sh: 2,769; ansic: 1,102; makefile: 130
file content (109 lines) | stat: -rw-r--r-- 2,379 bytes parent folder | download | duplicates (9)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
#ifndef NO_IDENT
static char *Id = "$Id: wildcard.c,v 1.1 2004/05/03 13:12:10 tom Exp $";
#endif

/*
 * wildcard.c - perform wildcard expansion for non-UNIX configurations
 */

#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>		/* defines MAXPATH */
#  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>		/* DEC-C (e.g., sys$parse) */
#include <stdio.h>		/* perror */

#include <rms.h>
#include <descrip.h>

#endif /* SYS_VMS */

int
has_wildcard(char *path)
{
#if SYS_VMS
    return (strstr(path, "...") != 0
	    || strchr(path, '*') != 0
	    || strchr(path, '?') != 0);
#else /* SYS_MSDOS, SYS_OS2 */
    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 /* SYS_MSDOS || SYS_OS2 */
#if SYS_VMS
    static struct FAB zfab;
    static struct NAM znam;
    static char my_esa[NAM$C_MAXRSS];	/* expanded: SYS$PARSE */
    static char my_rsa[NAM$C_MAXRSS];	/* expanded: SYS$SEARCH */

    if (initiate) {
	zfab = cc$rms_fab;
	zfab.fab$l_fop = FAB$M_NAM;
	zfab.fab$l_nam = &znam;	/* FAB => NAM block     */
	zfab.fab$l_dna = "*.*;";	/* Default-selection    */
	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 /* SYS_VMS */
#if SYS_MSDOS
#endif
    return FALSE;
}