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;
7 f08fdedc 2003-11-23 devnull * delete all the GLOB marks from s, in place
9 f08fdedc 2003-11-23 devnull void deglob(char *s)
11 f08fdedc 2003-11-23 devnull char *t=s;
13 f08fdedc 2003-11-23 devnull if(*t==GLOB) t++;
15 f08fdedc 2003-11-23 devnull }while(*t++);
17 f08fdedc 2003-11-23 devnull int globcmp(const void *s, const void *t)
19 f08fdedc 2003-11-23 devnull return strcmp(*(char**)s, *(char**)t);
21 f08fdedc 2003-11-23 devnull void globsort(word *left, word *right)
23 f08fdedc 2003-11-23 devnull char **list;
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);
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.
37 f08fdedc 2003-11-23 devnull void globdir(char *p, char *namep)
39 f08fdedc 2003-11-23 devnull char *t, *newp;
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);
48 f08fdedc 2003-11-23 devnull while(*newp){
49 f08fdedc 2003-11-23 devnull if(*newp==GLOB)
51 f08fdedc 2003-11-23 devnull *t=*newp++;
52 f08fdedc 2003-11-23 devnull if(*t++=='/'){
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'){
60 f08fdedc 2003-11-23 devnull if(access(globname, 0)==0)
61 f08fdedc 2003-11-23 devnull globv=newword(globname, globv);
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);
74 f08fdedc 2003-11-23 devnull Closedir(f);
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.
80 f08fdedc 2003-11-23 devnull void glob(char *p)
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);
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);
98 f08fdedc 2003-11-23 devnull globsort(globv, svglobv);
101 f08fdedc 2003-11-23 devnull * Do p and q point at equal utf codes
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];
111 f08fdedc 2003-11-23 devnull return 1;
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!
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;
123 f08fdedc 2003-11-23 devnull * Convert the utf code at *p to a unicode value
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;
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
138 f08fdedc 2003-11-23 devnull int matchfn(char *s, char *p)
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, '/');
144 f08fdedc 2003-11-23 devnull int match(char *s, char *p, int stop)
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;
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;
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);
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;
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);
169 f08fdedc 2003-11-23 devnull compl=*p=='~';
170 f08fdedc 2003-11-23 devnull if(compl) p++;
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;
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; }
184 f08fdedc 2003-11-23 devnull if(lo<=c && c<=hi) hit=1;
186 f08fdedc 2003-11-23 devnull if(compl) hit=!hit;
187 f08fdedc 2003-11-23 devnull if(!hit) return 0;
191 f08fdedc 2003-11-23 devnull return *s=='\0';
193 f08fdedc 2003-11-23 devnull void globlist1(word *gl)
196 f08fdedc 2003-11-23 devnull globlist1(gl->next);
197 f08fdedc 2003-11-23 devnull glob(gl->word);
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;