17 static int is_literal(const char *p, int useesc)
31 if (bracket) return 0;
38 static int append(struct match **tail, const char *name, size_t len, int mark)
40 struct match *new = malloc(sizeof(struct match) + len + 2);
44 memcpy(new->name, name, len+1);
53 static int match_in_dir(const char *d, const char *p, int flags, int (*errfunc)(const char *path, int err), struct match **tail)
56 struct dirent de_buf, *de;
57 char pat[strlen(p)+1];
61 int fnm_flags= ((flags & GLOB_NOESCAPE) ? FNM_NOESCAPE : 0)
62 | ((!(flags & GLOB_PERIOD)) ? FNM_PERIOD : 0);
65 if ((p2 = strchr(p, '/'))) {
68 for (; *p2 == '/'; p2++);
71 literal = is_literal(p, !(flags & GLOB_NOESCAPE));
72 if (*d == '/' && !*(d+1)) l = 0;
74 /* rely on opendir failing for nondirectory objects */
75 dir = opendir(*d ? d : ".");
78 /* this is not an error -- we let opendir call stat for us */
79 if (error == ENOTDIR) return 0;
80 if (error == EACCES && !*p) {
82 if (!stat(d, &st) && S_ISDIR(st.st_mode)) {
83 if (append(tail, d, l, l))
88 if (errfunc(d, error) || (flags & GLOB_ERR))
93 error = append(tail, d, l, l) ? GLOB_NOSPACE : 0;
97 while (!(error = readdir_r(dir, &de_buf, &de)) && de) {
98 char namebuf[l+de->d_reclen+2], *name = namebuf;
99 if (!literal && fnmatch(p, de->d_name, fnm_flags))
101 if (literal && strcmp(p, de->d_name))
103 if (p2 && de->d_type && !S_ISDIR(de->d_type<<12) && !S_ISLNK(de->d_type<<12))
105 /* With GLOB_PERIOD, don't allow matching . or .. unless
106 * fnmatch would match them with FNM_PERIOD rules in effect. */
107 if (p2 && (flags & GLOB_PERIOD) && de->d_name[0]=='.'
108 && (!de->d_name[1] || de->d_name[1]=='.' && !de->d_name[2])
109 && fnmatch(p, de->d_name, fnm_flags | FNM_PERIOD))
114 strcpy(name+l+1, de->d_name);
119 if ((error = match_in_dir(name, p2, flags, errfunc, tail))) {
125 if (flags & GLOB_MARK) {
126 if (de->d_type && !S_ISLNK(de->d_type<<12))
127 mark = S_ISDIR(de->d_type<<12);
131 mark = S_ISDIR(st.st_mode);
134 if (append(tail, name, l+de->d_reclen+1, mark)) {
141 if (error && (errfunc(d, error) || (flags & GLOB_ERR)))
146 static int ignore_err(const char *path, int err)
151 static void freelist(struct match *head)
153 struct match *match, *next;
154 for (match=head->next; match; match=next) {
160 static int sort(const void *a, const void *b)
162 return strcmp(*(const char **)a, *(const char **)b);
165 int glob(const char *restrict pat, int flags, int (*errfunc)(const char *path, int err), glob_t *restrict g)
167 const char *p=pat, *d;
168 struct match head = { .next = NULL }, *tail = &head;
170 size_t offs = (flags & GLOB_DOOFFS) ? g->gl_offs : 0;
174 for (; *p == '/'; p++);
180 if (!errfunc) errfunc = ignore_err;
182 if (!(flags & GLOB_APPEND)) {
188 if (strnlen(p, PATH_MAX+1) > PATH_MAX) return GLOB_NOSPACE;
190 if (*pat) error = match_in_dir(d, p, flags, errfunc, &tail);
191 if (error == GLOB_NOSPACE) {
196 for (cnt=0, tail=head.next; tail; tail=tail->next, cnt++);
198 if (flags & GLOB_NOCHECK) {
200 if (append(&tail, pat, strlen(pat), 0))
207 if (flags & GLOB_APPEND) {
208 char **pathv = realloc(g->gl_pathv, (offs + g->gl_pathc + cnt + 1) * sizeof(char *));
216 g->gl_pathv = malloc((offs + cnt + 1) * sizeof(char *));
221 for (i=0; i<offs; i++)
222 g->gl_pathv[i] = NULL;
224 for (i=0, tail=head.next; i<cnt; tail=tail->next, i++)
225 g->gl_pathv[offs + i] = tail->name;
226 g->gl_pathv[offs + i] = NULL;
229 if (!(flags & GLOB_NOSORT))
230 qsort(g->gl_pathv+offs, cnt, sizeof(char *), sort);
235 void globfree(glob_t *g)
238 for (i=0; i<g->gl_pathc; i++)
239 free(g->gl_pathv[g->gl_offs + i] - offsetof(struct match, name));
245 weak_alias(glob, glob64);
246 weak_alias(globfree, globfree64);