1 f08fdedc 2003-11-23 devnull #include "rc.h"
  2 f08fdedc 2003-11-23 devnull #include "exec.h"
  3 f08fdedc 2003-11-23 devnull #include "fns.h"
  4 f08fdedc 2003-11-23 devnull char *globname;
  5 f08fdedc 2003-11-23 devnull struct word *globv;
  6 f08fdedc 2003-11-23 devnull /*
  7 f08fdedc 2003-11-23 devnull  * delete all the GLOB marks from s, in place
  8 f08fdedc 2003-11-23 devnull  */
  9 f08fdedc 2003-11-23 devnull void deglob(char *s)
 10 f08fdedc 2003-11-23 devnull {
 11 f08fdedc 2003-11-23 devnull 	char *t=s;
 12 f08fdedc 2003-11-23 devnull 	do{
 13 f08fdedc 2003-11-23 devnull 		if(*t==GLOB) t++;
 14 f08fdedc 2003-11-23 devnull 		*s++=*t;
 15 f08fdedc 2003-11-23 devnull 	}while(*t++);
 16 f08fdedc 2003-11-23 devnull }
 17 f08fdedc 2003-11-23 devnull int globcmp(const void *s, const void *t)
 18 f08fdedc 2003-11-23 devnull {
 19 f08fdedc 2003-11-23 devnull 	return strcmp(*(char**)s, *(char**)t);
 20 f08fdedc 2003-11-23 devnull }
 21 f08fdedc 2003-11-23 devnull void globsort(word *left, word *right)
 22 f08fdedc 2003-11-23 devnull {
 23 f08fdedc 2003-11-23 devnull 	char **list;
 24 f08fdedc 2003-11-23 devnull 	word *a;
 25 f08fdedc 2003-11-23 devnull 	int n=0;
 26 f08fdedc 2003-11-23 devnull 	for(a=left;a!=right;a=a->next) n++;
 27 f08fdedc 2003-11-23 devnull 	list=(char **)emalloc(n*sizeof(char *));
 28 f08fdedc 2003-11-23 devnull 	for(a=left,n=0;a!=right;a=a->next,n++) list[n]=a->word;
 29 f08fdedc 2003-11-23 devnull 	qsort((char *)list, n, sizeof(char *), globcmp);
 30 f08fdedc 2003-11-23 devnull 	for(a=left,n=0;a!=right;a=a->next,n++) a->word=list[n];
 31 f08fdedc 2003-11-23 devnull 	efree((char *)list);
 32 f08fdedc 2003-11-23 devnull }
 33 f08fdedc 2003-11-23 devnull /*
 34 f08fdedc 2003-11-23 devnull  * Push names prefixed by globname and suffixed by a match of p onto the astack.
 35 f08fdedc 2003-11-23 devnull  * namep points to the end of the prefix in globname.
 36 f08fdedc 2003-11-23 devnull  */
 37 f08fdedc 2003-11-23 devnull void globdir(char *p, char *namep)
 38 f08fdedc 2003-11-23 devnull {
 39 f08fdedc 2003-11-23 devnull 	char *t, *newp;
 40 f08fdedc 2003-11-23 devnull 	int f;
 41 f08fdedc 2003-11-23 devnull 	/* scan the pattern looking for a component with a metacharacter in it */
 42 f08fdedc 2003-11-23 devnull 	if(*p=='\0'){
 43 f08fdedc 2003-11-23 devnull 		globv=newword(globname, globv);
 44 f08fdedc 2003-11-23 devnull 		return;
 45 f08fdedc 2003-11-23 devnull 	}
 46 f08fdedc 2003-11-23 devnull 	t=namep;
 47 f08fdedc 2003-11-23 devnull 	newp=p;
 48 f08fdedc 2003-11-23 devnull 	while(*newp){
 49 f08fdedc 2003-11-23 devnull 		if(*newp==GLOB)
 50 f08fdedc 2003-11-23 devnull 			break;
 51 f08fdedc 2003-11-23 devnull 		*t=*newp++;
 52 f08fdedc 2003-11-23 devnull 		if(*t++=='/'){
 53 f08fdedc 2003-11-23 devnull 			namep=t;
 54 f08fdedc 2003-11-23 devnull 			p=newp;
 55 f08fdedc 2003-11-23 devnull 		}
 56 f08fdedc 2003-11-23 devnull 	}
 57 f08fdedc 2003-11-23 devnull 	/* If we ran out of pattern, append the name if accessible */
 58 f08fdedc 2003-11-23 devnull 	if(*newp=='\0'){
 59 f08fdedc 2003-11-23 devnull 		*t='\0';
 60 f08fdedc 2003-11-23 devnull 		if(access(globname, 0)==0)
 61 f08fdedc 2003-11-23 devnull 			globv=newword(globname, globv);
 62 f08fdedc 2003-11-23 devnull 		return;
 63 f08fdedc 2003-11-23 devnull 	}
 64 f08fdedc 2003-11-23 devnull 	/* read the directory and recur for any entry that matches */
 65 f08fdedc 2003-11-23 devnull 	*namep='\0';
 66 f08fdedc 2003-11-23 devnull 	if((f=Opendir(globname[0]?globname:"."))<0) return;
 67 f08fdedc 2003-11-23 devnull 	while(*newp!='/' && *newp!='\0') newp++;
 68 f08fdedc 2003-11-23 devnull 	while(Readdir(f, namep)){
 69 f08fdedc 2003-11-23 devnull 		if(matchfn(namep, p)){
 70 f08fdedc 2003-11-23 devnull 			for(t=namep;*t;t++);
 71 f08fdedc 2003-11-23 devnull 			globdir(newp, t);
 72 f08fdedc 2003-11-23 devnull 		}
 73 f08fdedc 2003-11-23 devnull 	}
 74 f08fdedc 2003-11-23 devnull 	Closedir(f);
 75 f08fdedc 2003-11-23 devnull }
 76 f08fdedc 2003-11-23 devnull /*
 77 f08fdedc 2003-11-23 devnull  * Push all file names matched by p on the current thread's stack.
 78 f08fdedc 2003-11-23 devnull  * If there are no matches, the list consists of p.
 79 f08fdedc 2003-11-23 devnull  */
 80 f08fdedc 2003-11-23 devnull void glob(char *p)
 81 f08fdedc 2003-11-23 devnull {
 82 f08fdedc 2003-11-23 devnull 	word *svglobv=globv;
 83 f08fdedc 2003-11-23 devnull 	int globlen=Globsize(p);
 84 f08fdedc 2003-11-23 devnull 	if(!globlen){
 85 f08fdedc 2003-11-23 devnull 		deglob(p);
 86 f08fdedc 2003-11-23 devnull 		globv=newword(p, globv);
 87 f08fdedc 2003-11-23 devnull 		return;
 88 f08fdedc 2003-11-23 devnull 	}
 89 f08fdedc 2003-11-23 devnull 	globname=emalloc(globlen);
 90 f08fdedc 2003-11-23 devnull 	globname[0]='\0';
 91 f08fdedc 2003-11-23 devnull 	globdir(p, globname);
 92 f08fdedc 2003-11-23 devnull 	efree(globname);
 93 f08fdedc 2003-11-23 devnull 	if(svglobv==globv){
 94 f08fdedc 2003-11-23 devnull 		deglob(p);
 95 f08fdedc 2003-11-23 devnull 		globv=newword(p, globv);
 96 f08fdedc 2003-11-23 devnull 	}
 97 f08fdedc 2003-11-23 devnull 	else
 98 f08fdedc 2003-11-23 devnull 		globsort(globv, svglobv);
 99 f08fdedc 2003-11-23 devnull }
100 f08fdedc 2003-11-23 devnull /*
101 f08fdedc 2003-11-23 devnull  * Do p and q point at equal utf codes
102 f08fdedc 2003-11-23 devnull  */
103 f08fdedc 2003-11-23 devnull int equtf(char *p, char *q){
104 f08fdedc 2003-11-23 devnull 	if(*p!=*q) return 0;
105 f08fdedc 2003-11-23 devnull 	if(twobyte(*p)) return p[1]==q[1];
106 f08fdedc 2003-11-23 devnull 	if(threebyte(*p)){
107 f08fdedc 2003-11-23 devnull 		if(p[1]!=q[1]) return 0;
108 f08fdedc 2003-11-23 devnull 		if(p[1]=='\0') return 1;	/* broken code at end of string! */
109 f08fdedc 2003-11-23 devnull 		return p[2]==q[2];
110 f08fdedc 2003-11-23 devnull 	}
111 f08fdedc 2003-11-23 devnull 	return 1;
112 f08fdedc 2003-11-23 devnull }
113 f08fdedc 2003-11-23 devnull /*
114 f08fdedc 2003-11-23 devnull  * Return a pointer to the next utf code in the string,
115 f08fdedc 2003-11-23 devnull  * not jumping past nuls in broken utf codes!
116 f08fdedc 2003-11-23 devnull  */
117 f08fdedc 2003-11-23 devnull char *nextutf(char *p){
118 f08fdedc 2003-11-23 devnull 	if(twobyte(*p)) return p[1]=='\0'?p+1:p+2;
119 f08fdedc 2003-11-23 devnull 	if(threebyte(*p)) return p[1]=='\0'?p+1:p[2]=='\0'?p+2:p+3;
120 f08fdedc 2003-11-23 devnull 	return p+1;
121 f08fdedc 2003-11-23 devnull }
122 f08fdedc 2003-11-23 devnull /*
123 f08fdedc 2003-11-23 devnull  * Convert the utf code at *p to a unicode value
124 f08fdedc 2003-11-23 devnull  */
125 f08fdedc 2003-11-23 devnull int unicode(char *p){
126 f08fdedc 2003-11-23 devnull 	int u=*p&0xff;
127 f08fdedc 2003-11-23 devnull 	if(twobyte(u)) return ((u&0x1f)<<6)|(p[1]&0x3f);
128 f08fdedc 2003-11-23 devnull 	if(threebyte(u)) return (u<<12)|((p[1]&0x3f)<<6)|(p[2]&0x3f);
129 f08fdedc 2003-11-23 devnull 	return u;
130 f08fdedc 2003-11-23 devnull }
131 f08fdedc 2003-11-23 devnull /*
132 f08fdedc 2003-11-23 devnull  * Does the string s match the pattern p
133 f08fdedc 2003-11-23 devnull  * . and .. are only matched by patterns starting with .
134 f08fdedc 2003-11-23 devnull  * * matches any sequence of characters
135 f08fdedc 2003-11-23 devnull  * ? matches any single character
136 f08fdedc 2003-11-23 devnull  * [...] matches the enclosed list of characters
137 f08fdedc 2003-11-23 devnull  */
138 f08fdedc 2003-11-23 devnull int matchfn(char *s, char *p)
139 f08fdedc 2003-11-23 devnull {
140 f08fdedc 2003-11-23 devnull 	if(s[0]=='.' && (s[1]=='\0' || s[1]=='.' && s[2]=='\0') && p[0]!='.')
141 f08fdedc 2003-11-23 devnull 		return 0;
142 f08fdedc 2003-11-23 devnull 	return match(s, p, '/');
143 f08fdedc 2003-11-23 devnull }
144 f08fdedc 2003-11-23 devnull int match(char *s, char *p, int stop)
145 f08fdedc 2003-11-23 devnull {
146 f08fdedc 2003-11-23 devnull 	int compl, hit, lo, hi, t, c;
147 f08fdedc 2003-11-23 devnull 	for(;*p!=stop && *p!='\0';s=nextutf(s),p=nextutf(p)){
148 f08fdedc 2003-11-23 devnull 		if(*p!=GLOB){
149 f08fdedc 2003-11-23 devnull 			if(!equtf(p, s)) return 0;
150 f08fdedc 2003-11-23 devnull 		}
151 f08fdedc 2003-11-23 devnull 		else switch(*++p){
152 f08fdedc 2003-11-23 devnull 		case GLOB:
153 f08fdedc 2003-11-23 devnull 			if(*s!=GLOB) return 0;
154 f08fdedc 2003-11-23 devnull 			break;
155 f08fdedc 2003-11-23 devnull 		case '*':
156 f08fdedc 2003-11-23 devnull 			for(;;){
157 f08fdedc 2003-11-23 devnull 				if(match(s, nextutf(p), stop)) return 1;
158 f08fdedc 2003-11-23 devnull 				if(!*s) break;
159 f08fdedc 2003-11-23 devnull 				s=nextutf(s);
160 f08fdedc 2003-11-23 devnull 			}
161 f08fdedc 2003-11-23 devnull 			return 0;
162 f08fdedc 2003-11-23 devnull 		case '?':
163 f08fdedc 2003-11-23 devnull 			if(*s=='\0') return 0;
164 f08fdedc 2003-11-23 devnull 			break;
165 f08fdedc 2003-11-23 devnull 		case '[':
166 f08fdedc 2003-11-23 devnull 			if(*s=='\0') return 0;
167 f08fdedc 2003-11-23 devnull 			c=unicode(s);
168 f08fdedc 2003-11-23 devnull 			p++;
169 f08fdedc 2003-11-23 devnull 			compl=*p=='~';
170 f08fdedc 2003-11-23 devnull 			if(compl) p++;
171 f08fdedc 2003-11-23 devnull 			hit=0;
172 f08fdedc 2003-11-23 devnull 			while(*p!=']'){
173 f08fdedc 2003-11-23 devnull 				if(*p=='\0') return 0;		/* syntax error */
174 f08fdedc 2003-11-23 devnull 				lo=unicode(p);
175 f08fdedc 2003-11-23 devnull 				p=nextutf(p);
176 f08fdedc 2003-11-23 devnull 				if(*p!='-') hi=lo;
177 f08fdedc 2003-11-23 devnull 				else{
178 f08fdedc 2003-11-23 devnull 					p++;
179 f08fdedc 2003-11-23 devnull 					if(*p=='\0') return 0;	/* syntax error */
180 f08fdedc 2003-11-23 devnull 					hi=unicode(p);
181 f08fdedc 2003-11-23 devnull 					p=nextutf(p);
182 f08fdedc 2003-11-23 devnull 					if(hi<lo){ t=lo; lo=hi; hi=t; }
183 f08fdedc 2003-11-23 devnull 				}
184 f08fdedc 2003-11-23 devnull 				if(lo<=c && c<=hi) hit=1;
185 f08fdedc 2003-11-23 devnull 			}
186 f08fdedc 2003-11-23 devnull 			if(compl) hit=!hit;
187 f08fdedc 2003-11-23 devnull 			if(!hit) return 0;
188 f08fdedc 2003-11-23 devnull 			break;
189 f08fdedc 2003-11-23 devnull 		}
190 f08fdedc 2003-11-23 devnull 	}
191 f08fdedc 2003-11-23 devnull 	return *s=='\0';
192 f08fdedc 2003-11-23 devnull }
193 f08fdedc 2003-11-23 devnull void globlist1(word *gl)
194 f08fdedc 2003-11-23 devnull {
195 f08fdedc 2003-11-23 devnull 	if(gl){
196 f08fdedc 2003-11-23 devnull 		globlist1(gl->next);
197 f08fdedc 2003-11-23 devnull 		glob(gl->word);
198 f08fdedc 2003-11-23 devnull 	}
199 f08fdedc 2003-11-23 devnull }
200 f08fdedc 2003-11-23 devnull void globlist(void){
201 f08fdedc 2003-11-23 devnull 	word *a;
202 f08fdedc 2003-11-23 devnull 	globv=0;
203 f08fdedc 2003-11-23 devnull 	globlist1(runq->argv->words);
204 f08fdedc 2003-11-23 devnull 	poplist();
205 f08fdedc 2003-11-23 devnull 	pushlist();
206 f08fdedc 2003-11-23 devnull 	if(globv){
207 f08fdedc 2003-11-23 devnull 		for(a=globv;a->next;a=a->next);
208 f08fdedc 2003-11-23 devnull 		a->next=runq->argv->words;
209 f08fdedc 2003-11-23 devnull 		runq->argv->words=globv;
210 f08fdedc 2003-11-23 devnull 	}
211 f08fdedc 2003-11-23 devnull }