1 c9ed5273 2014-11-17 rsc #include <u.h>
2 c9ed5273 2014-11-17 rsc #include <libc.h>
3 c9ed5273 2014-11-17 rsc #include <bio.h>
5 c9ed5273 2014-11-17 rsc #define dirbuf p9dirbuf /* avoid conflict on sun */
7 c9ed5273 2014-11-17 rsc typedef struct NDir NDir;
11 c9ed5273 2014-11-17 rsc char *prefix;
14 c9ed5273 2014-11-17 rsc int errs = 0;
29 c9ed5273 2014-11-17 rsc NDir* dirbuf;
30 c9ed5273 2014-11-17 rsc int ls(char*, int);
31 c9ed5273 2014-11-17 rsc int compar(NDir*, NDir*);
32 c9ed5273 2014-11-17 rsc char* asciitime(long);
33 c9ed5273 2014-11-17 rsc char* darwx(long);
34 c9ed5273 2014-11-17 rsc void rwx(long, char*);
35 c9ed5273 2014-11-17 rsc void growto(long);
36 c9ed5273 2014-11-17 rsc void dowidths(Dir*);
37 c9ed5273 2014-11-17 rsc void format(Dir*, char*);
38 c9ed5273 2014-11-17 rsc void output(void);
40 c9ed5273 2014-11-17 rsc int swidth; /* max width of -s size */
41 c9ed5273 2014-11-17 rsc int qwidth; /* max width of -q version */
42 c9ed5273 2014-11-17 rsc int vwidth; /* max width of dev */
43 c9ed5273 2014-11-17 rsc int uwidth; /* max width of userid */
44 c9ed5273 2014-11-17 rsc int mwidth; /* max width of muid */
45 c9ed5273 2014-11-17 rsc int glwidth; /* max width of groupid and length */
49 c9ed5273 2014-11-17 rsc main(int argc, char *argv[])
53 c9ed5273 2014-11-17 rsc Binit(&bin, 1, OWRITE);
55 c9ed5273 2014-11-17 rsc case 'F': Fflag++; break;
56 c9ed5273 2014-11-17 rsc case 'd': dflag++; break;
57 c9ed5273 2014-11-17 rsc case 'l': lflag++; break;
58 c9ed5273 2014-11-17 rsc case 'm': mflag++; break;
59 c9ed5273 2014-11-17 rsc case 'n': nflag++; break;
60 c9ed5273 2014-11-17 rsc case 'p': pflag++; break;
61 c9ed5273 2014-11-17 rsc case 'q': qflag++; break;
62 c9ed5273 2014-11-17 rsc case 'Q': Qflag++; break;
63 c9ed5273 2014-11-17 rsc case 'r': rflag++; break;
64 c9ed5273 2014-11-17 rsc case 's': sflag++; break;
65 c9ed5273 2014-11-17 rsc case 't': tflag++; break;
66 c9ed5273 2014-11-17 rsc case 'u': uflag++; break;
67 c9ed5273 2014-11-17 rsc default: fprint(2, "usage: ls [-dlmnpqrstuFQ] [file ...]\n");
68 c9ed5273 2014-11-17 rsc exits("usage");
71 c9ed5273 2014-11-17 rsc doquote = needsrcquote;
72 c9ed5273 2014-11-17 rsc quotefmtinstall();
73 c9ed5273 2014-11-17 rsc fmtinstall('M', dirmodefmt);
76 c9ed5273 2014-11-17 rsc clk = time(0);
77 c9ed5273 2014-11-17 rsc if(argc == 0)
78 c9ed5273 2014-11-17 rsc errs = ls(".", 0);
79 c9ed5273 2014-11-17 rsc else for(i=0; i<argc; i++)
80 c9ed5273 2014-11-17 rsc errs |= ls(argv[i], 1);
82 c9ed5273 2014-11-17 rsc exits(errs? "errors" : 0);
86 c9ed5273 2014-11-17 rsc ls(char *s, int multi)
94 c9ed5273 2014-11-17 rsc p = utfrrune(s, '/');
95 c9ed5273 2014-11-17 rsc if(p == 0 || p[1] != 0 || p == s)
99 c9ed5273 2014-11-17 rsc db = dirstat(s);
100 c9ed5273 2014-11-17 rsc if(db == nil){
102 c9ed5273 2014-11-17 rsc fprint(2, "ls: %s: %r\n", s);
105 c9ed5273 2014-11-17 rsc if(db->qid.type&QTDIR && dflag==0){
109 c9ed5273 2014-11-17 rsc fd = open(s, OREAD);
110 c9ed5273 2014-11-17 rsc if(fd == -1)
112 c9ed5273 2014-11-17 rsc n = dirreadall(fd, &db);
115 c9ed5273 2014-11-17 rsc growto(ndir+n);
116 c9ed5273 2014-11-17 rsc for(i=0; i<n; i++){
117 c9ed5273 2014-11-17 rsc dirbuf[ndir+i].d = db+i;
118 c9ed5273 2014-11-17 rsc dirbuf[ndir+i].prefix = multi? s : 0;
124 c9ed5273 2014-11-17 rsc growto(ndir+1);
125 c9ed5273 2014-11-17 rsc dirbuf[ndir].d = db;
126 c9ed5273 2014-11-17 rsc dirbuf[ndir].prefix = 0;
127 c9ed5273 2014-11-17 rsc p = utfrrune(s, '/');
129 c9ed5273 2014-11-17 rsc dirbuf[ndir].prefix = s;
131 c9ed5273 2014-11-17 rsc /* restore original name; don't use result of stat */
132 c9ed5273 2014-11-17 rsc dirbuf[ndir].d->name = strdup(p+1);
140 c9ed5273 2014-11-17 rsc output(void)
143 c9ed5273 2014-11-17 rsc char buf[4096];
146 8cd46ae7 2020-01-02 0intro if(!nflag && dirbuf!=0)
147 c9ed5273 2014-11-17 rsc qsort(dirbuf, ndir, sizeof dirbuf[0], (int (*)(const void*, const void*))compar);
148 c9ed5273 2014-11-17 rsc for(i=0; i<ndir; i++)
149 c9ed5273 2014-11-17 rsc dowidths(dirbuf[i].d);
150 c9ed5273 2014-11-17 rsc for(i=0; i<ndir; i++) {
151 c9ed5273 2014-11-17 rsc if(!pflag && (s = dirbuf[i].prefix)) {
152 c9ed5273 2014-11-17 rsc if(strcmp(s, "/") ==0) /* / is a special case */
154 c9ed5273 2014-11-17 rsc sprint(buf, "%s/%s", s, dirbuf[i].d->name);
155 c9ed5273 2014-11-17 rsc format(dirbuf[i].d, buf);
157 c9ed5273 2014-11-17 rsc format(dirbuf[i].d, dirbuf[i].d->name);
160 c9ed5273 2014-11-17 rsc Bflush(&bin);
164 c9ed5273 2014-11-17 rsc dowidths(Dir *db)
166 c9ed5273 2014-11-17 rsc char buf[256];
170 c9ed5273 2014-11-17 rsc n = sprint(buf, "%llud", (db->length+1023)/1024);
171 c9ed5273 2014-11-17 rsc if(n > swidth)
175 c9ed5273 2014-11-17 rsc n = sprint(buf, "%lud", db->qid.vers);
176 c9ed5273 2014-11-17 rsc if(n > qwidth)
180 c9ed5273 2014-11-17 rsc n = snprint(buf, sizeof buf, "[%s]", db->muid);
181 c9ed5273 2014-11-17 rsc if(n > mwidth)
185 c9ed5273 2014-11-17 rsc n = sprint(buf, "%ud", db->dev);
186 c9ed5273 2014-11-17 rsc if(n > vwidth)
188 c9ed5273 2014-11-17 rsc n = strlen(db->uid);
189 c9ed5273 2014-11-17 rsc if(n > uwidth)
191 c9ed5273 2014-11-17 rsc n = sprint(buf, "%llud", db->length);
192 c9ed5273 2014-11-17 rsc n += strlen(db->gid);
193 c9ed5273 2014-11-17 rsc if(n > glwidth)
194 c9ed5273 2014-11-17 rsc glwidth = n;
199 c9ed5273 2014-11-17 rsc fileflag(Dir *db)
201 c9ed5273 2014-11-17 rsc if(Fflag == 0)
203 c9ed5273 2014-11-17 rsc if(QTDIR & db->qid.type)
205 c9ed5273 2014-11-17 rsc if(0111 & db->mode)
211 c9ed5273 2014-11-17 rsc format(Dir *db, char *name)
216 c9ed5273 2014-11-17 rsc Bprint(&bin, "%*llud ",
217 c9ed5273 2014-11-17 rsc swidth, (db->length+1023)/1024);
219 c9ed5273 2014-11-17 rsc Bprint(&bin, "[%s] ", db->muid);
220 c9ed5273 2014-11-17 rsc for(i=2+strlen(db->muid); i<mwidth; i++)
221 c9ed5273 2014-11-17 rsc Bprint(&bin, " ");
224 c9ed5273 2014-11-17 rsc Bprint(&bin, "(%.16llux %*lud %.2ux) ",
225 c9ed5273 2014-11-17 rsc db->qid.path,
226 c9ed5273 2014-11-17 rsc qwidth, db->qid.vers,
227 c9ed5273 2014-11-17 rsc db->qid.type);
229 c9ed5273 2014-11-17 rsc Bprint(&bin,
230 c9ed5273 2014-11-17 rsc "%M %C %*ud %*s %s %*llud %s ",
231 c9ed5273 2014-11-17 rsc db->mode, db->type,
232 c9ed5273 2014-11-17 rsc vwidth, db->dev,
233 c9ed5273 2014-11-17 rsc -uwidth, db->uid,
235 c9ed5273 2014-11-17 rsc (int)(glwidth-strlen(db->gid)), db->length,
236 c9ed5273 2014-11-17 rsc asciitime(uflag? db->atime : db->mtime));
237 c9ed5273 2014-11-17 rsc Bprint(&bin,
238 c9ed5273 2014-11-17 rsc Qflag? "%s%s\n" : "%q%s\n",
239 c9ed5273 2014-11-17 rsc name, fileflag(db));
243 c9ed5273 2014-11-17 rsc growto(long n)
245 c9ed5273 2014-11-17 rsc if(n <= ndirbuf)
247 c9ed5273 2014-11-17 rsc ndirbuf = n;
248 c9ed5273 2014-11-17 rsc dirbuf=(NDir *)realloc(dirbuf, ndirbuf*sizeof(NDir));
249 c9ed5273 2014-11-17 rsc if(dirbuf == 0){
250 c9ed5273 2014-11-17 rsc fprint(2, "ls: malloc fail\n");
251 c9ed5273 2014-11-17 rsc exits("malloc fail");
256 c9ed5273 2014-11-17 rsc compar(NDir *a, NDir *b)
259 c9ed5273 2014-11-17 rsc Dir *ad, *bd;
266 c9ed5273 2014-11-17 rsc i = bd->atime-ad->atime;
268 c9ed5273 2014-11-17 rsc i = bd->mtime-ad->mtime;
270 c9ed5273 2014-11-17 rsc if(a->prefix && b->prefix){
271 c9ed5273 2014-11-17 rsc i = strcmp(a->prefix, b->prefix);
273 c9ed5273 2014-11-17 rsc i = strcmp(ad->name, bd->name);
274 c9ed5273 2014-11-17 rsc }else if(a->prefix){
275 c9ed5273 2014-11-17 rsc i = strcmp(a->prefix, bd->name);
277 c9ed5273 2014-11-17 rsc i = 1; /* a is longer than b */
278 c9ed5273 2014-11-17 rsc }else if(b->prefix){
279 c9ed5273 2014-11-17 rsc i = strcmp(ad->name, b->prefix);
281 c9ed5273 2014-11-17 rsc i = -1; /* b is longer than a */
283 c9ed5273 2014-11-17 rsc i = strcmp(ad->name, bd->name);
286 c9ed5273 2014-11-17 rsc i = (ad<bd? -1 : 1);
293 c9ed5273 2014-11-17 rsc asciitime(long l)
295 c9ed5273 2014-11-17 rsc static char buf[32];
298 c9ed5273 2014-11-17 rsc t = ctime(l);
299 c9ed5273 2014-11-17 rsc /* 6 months in the past or a day in the future */
300 c9ed5273 2014-11-17 rsc if(l<clk-180L*24*60*60 || clk+24L*60*60<l){
301 c9ed5273 2014-11-17 rsc memmove(buf, t+4, 7); /* month and day */
302 c9ed5273 2014-11-17 rsc memmove(buf+7, t+23, 5); /* year */
304 c9ed5273 2014-11-17 rsc memmove(buf, t+4, 12); /* skip day of week */
305 c9ed5273 2014-11-17 rsc buf[12] = 0;