#include "rc.h"#include "exec.h"#include "fns.h"char *globname;struct word *globv;/* * delete all the GLOB marks from s, in place */ voiddeglob(void *as){	char *s = as;	char *t = s;	do{		if(*t==GLOB)			t++;		*s++=*t;	}while(*t++);} intglobcmp(const void *s, const void *t){	return strcmp(*(char**)s, *(char**)t);} voidglobsort(word *left, word *right){	char **list;	word *a;	int n = 0;	for(a = left;a!=right;a = a->next) n++;	list = (char **)emalloc(n*sizeof(char *));	for(a = left,n = 0;a!=right;a = a->next,n++) list[n] = a->word;	qsort((void *)list, n, sizeof(void *), globcmp);	for(a = left,n = 0;a!=right;a = a->next,n++) a->word = list[n];	efree((char *)list);}/* * Push names prefixed by globname and suffixed by a match of p onto the astack. * namep points to the end of the prefix in globname. */ voidglobdir(uchar *p, uchar *namep){	uchar *t, *newp;	int f;	/* scan the pattern looking for a component with a metacharacter in it */	if(*p=='\0'){		globv = newword(globname, globv);		return;	}	t = namep;	newp = p;	while(*newp){		if(*newp==GLOB)			break;		*t=*newp++;		if(*t++=='/'){			namep = t;			p = newp;		}	}	/* If we ran out of pattern, append the name if accessible */	if(*newp=='\0'){		*t='\0';		if(access(globname, 0)==0)			globv = newword(globname, globv);		return;	}	/* read the directory and recur for any entry that matches */	*namep='\0';	if((f = Opendir(globname[0]?globname:"."))<0) return;	while(*newp!='/' && *newp!='\0') newp++;	while(Readdir(f, namep, *newp=='/')){		if(matchfn(namep, p)){			for(t = namep;*t;t++);			globdir(newp, t);		}	}	Closedir(f);}/* * Push all file names matched by p on the current thread's stack. * If there are no matches, the list consists of p. */ voidglob(void *ap){	uchar *p = ap;	word *svglobv = globv;	int globlen = Globsize(ap); 	if(!globlen){		deglob(p);		globv = newword((char *)p, globv);		return;	}	globname = emalloc(globlen);	globname[0]='\0';	globdir(p, (uchar *)globname);	efree(globname);	if(svglobv==globv){		deglob(p);		globv = newword((char *)p, globv);	}	else		globsort(globv, svglobv);}/* * Do p and q point at equal utf codes */ intequtf(char *p, char *q){	Rune a, b;	if(*p!=*q)		return 0;	chartorune(&a, p);	chartorune(&b, q);	return a==b;}/* * Does the string s match the pattern p * . and .. are only matched by patterns starting with . * * matches any sequence of characters * ? matches any single character * [...] matches the enclosed list of characters */ intmatchfn(void *as, void *ap){	uchar *s = as, *p = ap; 	if(s[0]=='.' && (s[1]=='\0' || s[1]=='.' && s[2]=='\0') && p[0]!='.')		return 0;	return match(s, p, '/');} intmatch(void *as, void *ap, int stop){	int compl, hit;	Rune c, lo, hi, t;	char *s = as, *p = ap, *q; 	for(; *p!=stop && *p!='\0'; s += chartorune(&t, s), p += chartorune(&t, p)){		if(*p!=GLOB){			if(!equtf(p, s)) return 0;		}		else switch(*++p){		case GLOB:			if(*s!=GLOB)				return 0;			break;		case '*':			q = p + chartorune(&t, p);			for(;;){				if(match(s, q, stop)) return 1;				if(!*s)					break;				s += chartorune(&t, s);			}			return 0;		case '?':			if(*s=='\0')				return 0;			break;		case '[':			if(*s=='\0')				return 0;			chartorune(&c, s);			p++;			compl=*p=='~';			if(compl)				p++;			hit = 0;			while(*p!=']'){				if(*p=='\0')					return 0;		/* syntax error */				p += chartorune(&lo, p);				if(*p!='-')					hi = lo;				else{					p++;					if(*p=='\0')						return 0;	/* syntax error */					p += chartorune(&hi, p);					if(hi<lo){ t = lo; lo = hi; hi = t; }				}				if(lo<=c && c<=hi)					hit = 1;			}			if(compl)				hit=!hit;			if(!hit)				return 0;			break;		}	}	return *s=='\0';} voidgloblist1(word *gl){	if(gl){		globlist1(gl->next);		glob(gl->word);	}} voidgloblist(void){	word *a;	globv = 0;	globlist1(runq->argv->words);	poplist();	pushlist();	if(globv){		for(a = globv;a->next;a = a->next);		a->next = runq->argv->words;		runq->argv->words = globv;	}}