Stop using TRUE and FALSE for exit status.
[oweals/busybox.git] / coreutils / ls.c
1 /* vi: set sw=4 ts=4: */
2 /*
3  * tiny-ls.c version 0.1.0: A minimalist 'ls'
4  * Copyright (C) 1996 Brian Candler <B.Candler@pobox.com>
5  *
6  *  This program is free software; you can redistribute it and/or modify
7  *  it under the terms of the GNU General Public License as published by
8  *  the Free Software Foundation; either version 2 of the License, or
9  *  (at your option) any later version.
10  *
11  *  This program is distributed in the hope that it will be useful,
12  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
13  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  *  GNU General Public License for more details.
15  *
16  *  You should have received a copy of the GNU General Public License
17  *  along with this program; if not, write to the Free Software
18  *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
19  */
20
21 /*
22  * To achieve a small memory footprint, this version of 'ls' doesn't do any
23  * file sorting, and only has the most essential command line switches
24  * (i.e. the ones I couldn't live without :-) All features which involve
25  * linking in substantial chunks of libc can be disabled.
26  *
27  * Although I don't really want to add new features to this program to
28  * keep it small, I *am* interested to receive bug fixes and ways to make
29  * it more portable.
30  *
31  * KNOWN BUGS:
32  * 1. ls -l of a directory doesn't give "total <blocks>" header
33  * 2. ls of a symlink to a directory doesn't list directory contents
34  * 3. hidden files can make column width too large
35  *
36  * NON-OPTIMAL BEHAVIOUR:
37  * 1. autowidth reads directories twice
38  * 2. if you do a short directory listing without filetype characters
39  *    appended, there's no need to stat each one
40  * PORTABILITY:
41  * 1. requires lstat (BSD) - how do you do it without?
42  */
43
44 #define TERMINAL_WIDTH  80              /* use 79 if your terminal has linefold bug */
45 #define COLUMN_WIDTH    14              /* default if AUTOWIDTH not defined */
46 #define COLUMN_GAP      2                       /* includes the file type char, if present */
47
48 /************************************************************************/
49
50 #include "busybox.h"
51 #include <sys/types.h>
52 #include <sys/stat.h>
53 #include <stdio.h>
54 #include <unistd.h>
55 #include <dirent.h>
56 #include <errno.h>
57 #include <stdio.h>
58 #ifdef BB_FEATURE_LS_TIMESTAMPS
59 #include <time.h>
60 #endif
61 #include <string.h>
62
63 #ifndef NAJOR
64 #define MAJOR(dev) (((dev)>>8)&0xff)
65 #define MINOR(dev) ((dev)&0xff)
66 #endif
67
68 /* what is the overall style of the listing */
69 #define STYLE_AUTO              0
70 #define STYLE_LONG              1               /* one record per line, extended info */
71 #define STYLE_SINGLE    2               /* one record per line */
72 #define STYLE_COLUMNS   3               /* fill columns */
73
74 /* 51306 lrwxrwxrwx  1 root     root         2 May 11 01:43 /bin/view -> vi* */
75 /* what file information will be listed */
76 #define LIST_INO                (1<<0)
77 #define LIST_BLOCKS             (1<<1)
78 #define LIST_MODEBITS   (1<<2)
79 #define LIST_NLINKS             (1<<3)
80 #define LIST_ID_NAME    (1<<4)
81 #define LIST_ID_NUMERIC (1<<5)
82 #define LIST_SIZE               (1<<6)
83 #define LIST_DEV                (1<<7)
84 #define LIST_DATE_TIME  (1<<8)
85 #define LIST_FULLTIME   (1<<9)
86 #define LIST_FILENAME   (1<<10)
87 #define LIST_SYMLINK    (1<<11)
88 #define LIST_FILETYPE   (1<<12)
89 #define LIST_EXEC               (1<<13)
90
91 /* what files will be displayed */
92 #define DISP_NORMAL             (0)             /* show normal filenames */
93 #define DISP_DIRNAME    (1<<0)  /* 2 or more items? label directories */
94 #define DISP_HIDDEN             (1<<1)  /* show filenames starting with .  */
95 #define DISP_DOT                (1<<2)  /* show . and .. */
96 #define DISP_NOLIST             (1<<3)  /* show directory as itself, not contents */
97 #define DISP_RECURSIVE  (1<<4)  /* show directory and everything below it */
98 #define DISP_ROWS               (1<<5)  /* print across rows */
99
100 #ifdef BB_FEATURE_LS_SORTFILES
101 /* how will the files be sorted */
102 #define SORT_FORWARD    0               /* sort in reverse order */
103 #define SORT_REVERSE    1               /* sort in reverse order */
104 #define SORT_NAME               2               /* sort by file name */
105 #define SORT_SIZE               3               /* sort by file size */
106 #define SORT_ATIME              4               /* sort by last access time */
107 #define SORT_CTIME              5               /* sort by last change time */
108 #define SORT_MTIME              6               /* sort by last modification time */
109 #define SORT_VERSION    7               /* sort by version */
110 #define SORT_EXT                8               /* sort by file name extension */
111 #define SORT_DIR                9               /* sort by file or directory */
112 #endif
113
114 #ifdef BB_FEATURE_LS_TIMESTAMPS
115 /* which of the three times will be used */
116 #define TIME_MOD    0
117 #define TIME_CHANGE 1
118 #define TIME_ACCESS 2
119 #endif
120
121 #define LIST_SHORT              (LIST_FILENAME)
122 #define LIST_ISHORT             (LIST_INO | LIST_FILENAME)
123 #define LIST_LONG               (LIST_MODEBITS | LIST_NLINKS | LIST_ID_NAME | \
124                                                 LIST_SIZE | LIST_DATE_TIME | LIST_FILENAME | \
125                                                 LIST_SYMLINK)
126 #define LIST_ILONG              (LIST_INO | LIST_LONG)
127
128 #define SPLIT_DIR               0
129 #define SPLIT_FILE              1
130 #define SPLIT_SUBDIR    2
131
132 #define TYPEINDEX(mode) (((mode) >> 12) & 0x0f)
133 #define TYPECHAR(mode)  ("0pcCd?bB-?l?s???" [TYPEINDEX(mode)])
134 #ifdef BB_FEATURE_LS_FILETYPES
135 #define APPCHAR(mode)   ("\0|\0\0/\0\0\0\0\0@\0=\0\0\0" [TYPEINDEX(mode)])
136 #endif
137
138 /*
139  * a directory entry and its stat info are stored here
140  */
141 struct dnode {                          /* the basic node */
142     char *name;                         /* the dir entry name */
143     char *fullname;                     /* the dir entry name */
144     struct stat dstat;          /* the file stat info */
145     struct dnode *next;         /* point at the next node */
146 };
147 typedef struct dnode dnode_t;
148
149 struct dnode **list_dir(char *);
150 struct dnode **dnalloc(int);
151 int list_single(struct dnode *);
152
153 static unsigned int disp_opts=  DISP_NORMAL;
154 static unsigned int style_fmt=  STYLE_AUTO ;
155 static unsigned int list_fmt=   LIST_SHORT ;
156 #ifdef BB_FEATURE_LS_SORTFILES
157 static unsigned int sort_opts=  SORT_FORWARD;
158 static unsigned int sort_order= SORT_FORWARD;
159 #endif
160 #ifdef BB_FEATURE_LS_TIMESTAMPS
161 static unsigned int time_fmt=   TIME_MOD;
162 #endif
163 #ifdef BB_FEATURE_LS_FOLLOWLINKS
164 static unsigned int follow_links=FALSE;
165 #endif
166
167 static unsigned short column = 0;
168 #ifdef BB_FEATURE_AUTOWIDTH
169 static unsigned short terminal_width = TERMINAL_WIDTH;
170 static unsigned short column_width = COLUMN_WIDTH;
171 static unsigned short tabstops = 8;
172 #else
173 #define terminal_width  TERMINAL_WIDTH
174 #define column_width    COLUMN_WIDTH
175 #endif
176
177 static int status = EXIT_SUCCESS;
178
179 static int my_stat(struct dnode *cur)
180 {
181 #ifdef BB_FEATURE_LS_FOLLOWLINKS
182         if (follow_links == TRUE) {
183                 if (stat(cur->fullname, &cur->dstat)) {
184                         errorMsg("%s: %s\n", cur->fullname, strerror(errno));
185                         status = EXIT_FAILURE;
186                         free(cur->fullname);
187                         free(cur);
188                         return -1;
189                 }
190         } else
191 #endif
192         if (lstat(cur->fullname, &cur->dstat)) {
193                 errorMsg("%s: %s\n", cur->fullname, strerror(errno));
194                 status = EXIT_FAILURE;
195                 free(cur->fullname);
196                 free(cur);
197                 return -1;
198         }
199         return 0;
200 }
201
202 static void newline(void)
203 {
204     if (column > 0) {
205         fprintf(stdout, "\n");
206         column = 0;
207     }
208 }
209
210 /*----------------------------------------------------------------------*/
211 #ifdef BB_FEATURE_LS_FILETYPES
212 static char append_char(mode_t mode)
213 {
214         if ( !(list_fmt & LIST_FILETYPE))
215                 return '\0';
216         if ((list_fmt & LIST_EXEC) && S_ISREG(mode)
217             && (mode & (S_IXUSR | S_IXGRP | S_IXOTH))) return '*';
218                 return APPCHAR(mode);
219 }
220 #endif
221
222 /*----------------------------------------------------------------------*/
223 static void nexttabstop( void )
224 {
225         static short nexttab= 0;
226         int n=0;
227
228         if (column > 0) {
229                 n= nexttab - column;
230                 if (n < 1) n= 1;
231                 while (n--) {
232                         fprintf(stdout, " ");
233                         column++;
234                 }
235         }
236         nexttab= column + column_width + COLUMN_GAP ;
237 }
238
239 /*----------------------------------------------------------------------*/
240 static int is_subdir(struct dnode *dn)
241 {
242         return (S_ISDIR(dn->dstat.st_mode) && strcmp(dn->name, ".") != 0 &&
243                         strcmp(dn->name, "..") != 0);
244 }
245
246 int countdirs(struct dnode **dn, int nfiles)
247 {
248         int i, dirs;
249
250         if (dn==NULL || nfiles < 1) return(0);
251         dirs= 0;
252         for (i=0; i<nfiles; i++) {
253                 if (S_ISDIR(dn[i]->dstat.st_mode)) dirs++;
254         }
255         return(dirs);
256 }
257
258 int countsubdirs(struct dnode **dn, int nfiles)
259 {
260         int i, subdirs;
261
262         if (dn == NULL || nfiles < 1) return 0;
263         subdirs = 0;
264         for (i = 0; i < nfiles; i++)
265                 if (is_subdir(dn[i]))
266                         subdirs++;
267         return subdirs;
268 }
269
270 int countfiles(struct dnode **dnp)
271 {
272         int nfiles;
273         struct dnode *cur;
274
275         if (dnp == NULL) return(0);
276         nfiles= 0;
277         for (cur= dnp[0];  cur->next != NULL ; cur= cur->next) nfiles++;
278         nfiles++;
279         return(nfiles);
280 }
281
282 /* get memory to hold an array of pointers */
283 struct dnode **dnalloc(int num)
284 {
285         struct dnode **p;
286
287         if (num < 1) return(NULL);
288
289         p= (struct dnode **)xcalloc((size_t)num, (size_t)(sizeof(struct dnode *)));
290         return(p);
291 }
292
293 void dfree(struct dnode **dnp)
294 {
295         struct dnode *cur, *next;
296
297         if(dnp == NULL) return;
298
299         cur=dnp[0];
300         while (cur != NULL) {
301                 if (cur->fullname != NULL) free(cur->fullname); /* free the filename */
302                 next= cur->next;
303                 free(cur);                              /* free the dnode */
304                 cur= next;
305         }
306         free(dnp);      /* free the array holding the dnode pointers */
307 }
308
309 struct dnode **splitdnarray(struct dnode **dn, int nfiles, int which)
310 {
311         int dncnt, i, d;
312         struct dnode **dnp;
313
314         if (dn==NULL || nfiles < 1) return(NULL);
315
316         /* count how many dirs and regular files there are */
317         if (which == SPLIT_SUBDIR)
318                 dncnt = countsubdirs(dn, nfiles);
319         else {
320                 dncnt= countdirs(dn, nfiles); /* assume we are looking for dirs */
321                 if (which == SPLIT_FILE)
322                         dncnt= nfiles - dncnt;  /* looking for files */
323         }
324
325         /* allocate a file array and a dir array */
326         dnp= dnalloc(dncnt);
327
328         /* copy the entrys into the file or dir array */
329         for (d= i=0; i<nfiles; i++) {
330                 if (which == SPLIT_DIR) {
331                         if (S_ISDIR(dn[i]->dstat.st_mode)) {
332                                 dnp[d++]= dn[i];
333                         }  /* else skip the file */
334                 } else if (which == SPLIT_SUBDIR) {
335                         if (is_subdir(dn[i])) {
336                                 dnp[d++]= dn[i];
337                         }  /* else skip the file or dir */
338                 } else {
339                         if (!(S_ISDIR(dn[i]->dstat.st_mode))) {
340                                 dnp[d++]= dn[i];
341                         }  /* else skip the dir */
342                 }
343         }
344         return(dnp);
345 }
346
347 /*----------------------------------------------------------------------*/
348 #ifdef BB_FEATURE_LS_SORTFILES
349 int sortcmp(struct dnode *d1, struct dnode *d2)
350 {
351         int cmp, dif;
352
353         cmp= 0;
354         if (sort_opts == SORT_SIZE) {
355                 dif= (int)(d1->dstat.st_size - d2->dstat.st_size);
356         } else if (sort_opts == SORT_ATIME) {
357                 dif= (int)(d1->dstat.st_atime - d2->dstat.st_atime);
358         } else if (sort_opts == SORT_CTIME) {
359                 dif= (int)(d1->dstat.st_ctime - d2->dstat.st_ctime);
360         } else if (sort_opts == SORT_MTIME) {
361                 dif= (int)(d1->dstat.st_mtime - d2->dstat.st_mtime);
362         } else if (sort_opts == SORT_DIR) {
363                 dif= S_ISDIR(d1->dstat.st_mode) - S_ISDIR(d2->dstat.st_mode);
364         /* } else if (sort_opts == SORT_VERSION) { */
365         /* } else if (sort_opts == SORT_EXT) { */
366         } else {    /* assume SORT_NAME */
367                 dif= 0;
368         }
369
370         if (dif > 0) cmp= -1;
371         if (dif < 0) cmp=  1;
372         if (dif == 0) {
373                 /* sort by name- may be a tie_breaker for time or size cmp */
374                 dif= strcmp(d1->name, d2->name);
375                 if (dif > 0) cmp=  1;
376                 if (dif < 0) cmp= -1;
377         }
378
379         if (sort_order == SORT_REVERSE) {
380                 cmp=  -1 * cmp;
381         }
382         return(cmp);
383 }
384
385 /*----------------------------------------------------------------------*/
386 void shellsort(struct dnode **dn, int size)
387 {
388         struct dnode *temp;
389         int gap, i, j;
390
391         /* shell short the array */
392         if(dn==NULL || size < 2) return;
393
394         for (gap= size/2; gap>0; gap /=2) {
395                 for (i=gap; i<size; i++) {
396                         for (j= i-gap; j>=0; j-=gap) {
397                                 if (sortcmp(dn[j], dn[j+gap]) <= 0)
398                                         break;
399                                 /* they are out of order, swap them */
400                                 temp= dn[j];
401                                 dn[j]= dn[j+gap];
402                                 dn[j+gap]= temp;
403                         }
404                 }
405         }
406 }
407 #endif
408
409 /*----------------------------------------------------------------------*/
410 void showfiles(struct dnode **dn, int nfiles)
411 {
412         int i, ncols, nrows, row, nc;
413 #ifdef BB_FEATURE_AUTOWIDTH
414         int len;
415 #endif
416
417         if(dn==NULL || nfiles < 1) return;
418
419 #ifdef BB_FEATURE_AUTOWIDTH
420         /* find the longest file name-  use that as the column width */
421         column_width= 0;
422         for (i=0; i<nfiles; i++) {
423                 len= strlen(dn[i]->name) +
424                         ((list_fmt & LIST_INO) ? 8 : 0) +
425                         ((list_fmt & LIST_BLOCKS) ? 5 : 0)
426                         ;
427                 if (column_width < len) column_width= len;
428         }
429 #endif
430         ncols= (int)(terminal_width / (column_width + COLUMN_GAP));
431         switch (style_fmt) {
432                 case STYLE_LONG:        /* one record per line, extended info */
433                 case STYLE_SINGLE:      /* one record per line */
434                         ncols= 1;
435                         break;
436         }
437
438         nrows= nfiles / ncols;
439         if ((nrows * ncols) < nfiles) nrows++; /* round up fractionals */
440
441         if (nrows > nfiles) nrows= nfiles;
442         for (row=0; row<nrows; row++) {
443                 for (nc=0; nc<ncols; nc++) {
444                         /* reach into the array based on the column and row */
445                         i= (nc * nrows) + row;          /* assume display by column */
446                         if (disp_opts & DISP_ROWS)
447                                 i= (row * ncols) + nc;  /* display across row */
448                         if (i < nfiles) {
449                                 nexttabstop();
450                                 list_single(dn[i]);
451                         }
452                 }
453                 newline();
454         }
455 }
456
457 /*----------------------------------------------------------------------*/
458 void showdirs(struct dnode **dn, int ndirs)
459 {
460         int i, nfiles;
461         struct dnode **subdnp;
462 #ifdef BB_FEATURE_LS_RECURSIVE
463         int dndirs;
464         struct dnode **dnd;
465 #endif
466
467         if (dn==NULL || ndirs < 1) return;
468
469         for (i=0; i<ndirs; i++) {
470                 if (disp_opts & (DISP_DIRNAME | DISP_RECURSIVE)) {
471                         fprintf(stdout, "\n%s:\n", dn[i]->fullname);
472                 }
473                 subdnp= list_dir(dn[i]->fullname);
474                 nfiles= countfiles(subdnp);
475                 if (nfiles > 0) {
476                         /* list all files at this level */
477 #ifdef BB_FEATURE_LS_SORTFILES
478                         shellsort(subdnp, nfiles);
479 #endif
480                         showfiles(subdnp, nfiles);
481 #ifdef BB_FEATURE_LS_RECURSIVE
482                         if (disp_opts & DISP_RECURSIVE) {
483                                 /* recursive- list the sub-dirs */
484                                 dnd= splitdnarray(subdnp, nfiles, SPLIT_SUBDIR);
485                                 dndirs= countsubdirs(subdnp, nfiles);
486                                 if (dndirs > 0) {
487 #ifdef BB_FEATURE_LS_SORTFILES
488                                         shellsort(dnd, dndirs);
489 #endif
490                                         showdirs(dnd, dndirs);
491                                         free(dnd);  /* free the array of dnode pointers to the dirs */
492                                 }
493                         }
494                         dfree(subdnp);  /* free the dnodes and the fullname mem */
495 #endif
496                 }
497         }
498 }
499
500 /*----------------------------------------------------------------------*/
501 struct dnode **list_dir(char *path)
502 {
503         struct dnode *dn, *cur, **dnp;
504         struct dirent *entry;
505         DIR *dir;
506         int i, nfiles;
507
508         if (path==NULL) return(NULL);
509
510         dn= NULL;
511         nfiles= 0;
512         dir = opendir(path);
513         if (dir == NULL) {
514                 errorMsg("%s: %s\n", path, strerror(errno));
515                 status = EXIT_FAILURE;
516                 return(NULL);   /* could not open the dir */
517         }
518         while ((entry = readdir(dir)) != NULL) {
519                 /* are we going to list the file- it may be . or .. or a hidden file */
520                 if ((strcmp(entry->d_name, ".")==0) && !(disp_opts & DISP_DOT)) continue;
521                 if ((strcmp(entry->d_name, "..")==0) && !(disp_opts & DISP_DOT)) continue;
522                 if ((entry->d_name[0] ==  '.') && !(disp_opts & DISP_HIDDEN)) continue;
523                 cur= (struct dnode *)xmalloc(sizeof(struct dnode));
524                 cur->fullname = xmalloc(strlen(path)+1+strlen(entry->d_name)+1);
525                 strcpy(cur->fullname, path);
526                 if (cur->fullname[strlen(cur->fullname)-1] != '/')
527                         strcat(cur->fullname, "/");
528                 cur->name= cur->fullname + strlen(cur->fullname);
529                 strcat(cur->fullname, entry->d_name);
530                 if (my_stat(cur))
531                         continue;
532                 cur->next= dn;
533                 dn= cur;
534                 nfiles++;
535         }
536         closedir(dir);
537
538         /* now that we know how many files there are
539         ** allocate memory for an array to hold dnode pointers
540         */
541         if (nfiles < 1) return(NULL);
542         dnp= dnalloc(nfiles);
543         for (i=0, cur=dn; i<nfiles; i++) {
544                 dnp[i]= cur;   /* save pointer to node in array */
545                 cur= cur->next;
546         }
547
548         return(dnp);
549 }
550
551 /*----------------------------------------------------------------------*/
552 int list_single(struct dnode *dn)
553 {
554         int i, len;
555         char scratch[BUFSIZ + 1];
556 #ifdef BB_FEATURE_LS_TIMESTAMPS
557         char *filetime;
558         time_t ttime, age;
559 #endif
560 #if defined (BB_FEATURE_LS_FILETYPES)
561         struct stat info;
562 #endif
563 #ifdef BB_FEATURE_LS_FILETYPES
564         char append;
565 #endif
566
567         if (dn==NULL || dn->fullname==NULL) return(0);
568
569 #ifdef BB_FEATURE_LS_TIMESTAMPS
570         ttime= dn->dstat.st_mtime;      /* the default time */
571         if (time_fmt & TIME_ACCESS) ttime= dn->dstat.st_atime;
572         if (time_fmt & TIME_CHANGE) ttime= dn->dstat.st_ctime;
573         filetime= ctime(&ttime);
574 #endif
575 #ifdef BB_FEATURE_LS_FILETYPES
576         append = append_char(dn->dstat.st_mode);
577 #endif
578
579         for (i=0; i<=31; i++) {
580                 switch (list_fmt & (1<<i)) {
581                         case LIST_INO:
582                                 fprintf(stdout, "%7ld ", dn->dstat.st_ino);
583                                 column += 8;
584                                 break;
585                         case LIST_BLOCKS:
586 #if _FILE_OFFSET_BITS == 64
587                                 fprintf(stdout, "%4lld ", dn->dstat.st_blocks>>1);
588 #else
589                                 fprintf(stdout, "%4ld ", dn->dstat.st_blocks>>1);
590 #endif
591                                 column += 5;
592                                 break;
593                         case LIST_MODEBITS:
594                                 fprintf(stdout, "%10s", (char *)modeString(dn->dstat.st_mode));
595                                 column += 10;
596                                 break;
597                         case LIST_NLINKS:
598                                 fprintf(stdout, "%4d ", dn->dstat.st_nlink);
599                                 column += 10;
600                                 break;
601                         case LIST_ID_NAME:
602 #ifdef BB_FEATURE_LS_USERNAME
603                                 memset(scratch, 0, sizeof(scratch));
604                                 my_getpwuid(scratch, dn->dstat.st_uid);
605                                 if (*scratch)
606                                         fprintf(stdout, "%-8.8s ", scratch);
607                                 else
608                                         fprintf(stdout, "%-8d ", dn->dstat.st_uid);
609                                 memset(scratch, 0, sizeof(scratch));
610                                 my_getgrgid(scratch, dn->dstat.st_gid);
611                                 if (*scratch)
612                                         fprintf(stdout, "%-8.8s", scratch);
613                                 else
614                                         fprintf(stdout, "%-8d", dn->dstat.st_gid);
615                                 column += 17;
616                                 break;
617 #endif
618                         case LIST_ID_NUMERIC:
619                                 fprintf(stdout, "%-8d %-8d", dn->dstat.st_uid, dn->dstat.st_gid);
620                                 column += 17;
621                                 break;
622                         case LIST_SIZE:
623                         case LIST_DEV:
624                                 if (S_ISBLK(dn->dstat.st_mode) || S_ISCHR(dn->dstat.st_mode)) {
625                                         fprintf(stdout, "%4d, %3d ", (int)MAJOR(dn->dstat.st_rdev), (int)MINOR(dn->dstat.st_rdev));
626                                 } else {
627 #if _FILE_OFFSET_BITS == 64
628                                         fprintf(stdout, "%9lld ", dn->dstat.st_size);
629 #else
630                                         fprintf(stdout, "%9ld ", dn->dstat.st_size);
631 #endif
632                                 }
633                                 column += 10;
634                                 break;
635 #ifdef BB_FEATURE_LS_TIMESTAMPS
636                         case LIST_FULLTIME:
637                         case LIST_DATE_TIME:
638                                 if (list_fmt & LIST_FULLTIME) {
639                                         fprintf(stdout, "%24.24s ", filetime);
640                                         column += 25;
641                                         break;
642                                 }
643                                 age = time(NULL) - ttime;
644                                 fprintf(stdout, "%6.6s ", filetime+4);
645                                 if (age < 3600L * 24 * 365 / 2 && age > -15 * 60) {
646                                         /* hh:mm if less than 6 months old */
647                                         fprintf(stdout, "%5.5s ", filetime+11);
648                                 } else {
649                                         fprintf(stdout, " %4.4s ", filetime+20);
650                                 }
651                                 column += 13;
652                                 break;
653 #endif
654                         case LIST_FILENAME:
655                                 fprintf(stdout, "%s", dn->name);
656                                 column += strlen(dn->name);
657                                 break;
658                         case LIST_SYMLINK:
659                                 if (S_ISLNK(dn->dstat.st_mode)) {
660                                         len= readlink(dn->fullname, scratch, (sizeof scratch)-1);
661                                         if (len > 0) {
662                                                 scratch[len]= '\0';
663                                                 fprintf(stdout, " -> %s", scratch);
664 #ifdef BB_FEATURE_LS_FILETYPES
665                                                 if (!stat(dn->fullname, &info)) {
666                                                         append = append_char(info.st_mode);
667                                                 }
668 #endif
669                                                 column += len+4;
670                                         }
671                                 }
672                                 break;
673 #ifdef BB_FEATURE_LS_FILETYPES
674                         case LIST_FILETYPE:
675                                 if (append != '\0') {
676                                         fprintf(stdout, "%1c", append);
677                                         column++;
678                                 }
679                                 break;
680 #endif
681                 }
682         }
683
684         return(0);
685 }
686
687 /*----------------------------------------------------------------------*/
688 extern int ls_main(int argc, char **argv)
689 {
690         struct dnode **dnf, **dnd;
691         int dnfiles, dndirs;
692         struct dnode *dn, *cur, **dnp;
693         int i, nfiles;
694         int opt;
695         int oi, ac;
696         char **av;
697
698         disp_opts= DISP_NORMAL;
699         style_fmt= STYLE_AUTO;
700         list_fmt=  LIST_SHORT;
701 #ifdef BB_FEATURE_LS_SORTFILES
702         sort_opts= SORT_NAME;
703 #endif
704 #ifdef BB_FEATURE_LS_TIMESTAMPS
705         time_fmt= TIME_MOD;
706 #endif
707         nfiles=0;
708
709         /* process options */
710         while ((opt = getopt(argc, argv, "1AaCdgilnsx"
711 #ifdef BB_FEATURE_AUTOWIDTH
712 "T:w:"
713 #endif
714 #ifdef BB_FEATURE_LS_FILETYPES
715 "Fp"
716 #endif
717 #ifdef BB_FEATURE_LS_RECURSIVE
718 "R"
719 #endif
720 #ifdef BB_FEATURE_LS_SORTFILES
721 "rSvX"
722 #endif
723 #ifdef BB_FEATURE_LS_TIMESTAMPS
724 "cetu"
725 #endif
726 #ifdef BB_FEATURE_LS_FOLLOWLINKS
727 "L"
728 #endif
729         )) > 0) {
730                 switch (opt) {
731                         case '1': style_fmt = STYLE_SINGLE; break;
732                         case 'A': disp_opts |= DISP_HIDDEN; break;
733                         case 'a': disp_opts |= DISP_HIDDEN | DISP_DOT; break;
734                         case 'C': style_fmt = STYLE_COLUMNS; break;
735                         case 'd': disp_opts |= DISP_NOLIST; break;
736                         case 'g': /* ignore -- for ftp servers */ break;
737                         case 'i': list_fmt |= LIST_INO; break;
738                         case 'l': style_fmt = STYLE_LONG; list_fmt |= LIST_LONG; break;
739                         case 'n': list_fmt |= LIST_ID_NUMERIC; break;
740                         case 's': list_fmt |= LIST_BLOCKS; break;
741                         case 'x': disp_opts = DISP_ROWS; break;
742 #ifdef BB_FEATURE_LS_FILETYPES
743                         case 'F': list_fmt |= LIST_FILETYPE | LIST_EXEC; break;
744                         case 'p': list_fmt |= LIST_FILETYPE; break;
745 #endif
746 #ifdef BB_FEATURE_LS_RECURSIVE
747                         case 'R': disp_opts |= DISP_RECURSIVE; break;
748 #endif
749 #ifdef BB_FEATURE_LS_SORTFILES
750                         case 'r': sort_order |= SORT_REVERSE; break;
751                         case 'S': sort_opts= SORT_SIZE; break;
752                         case 'v': sort_opts= SORT_VERSION; break;
753                         case 'X': sort_opts= SORT_EXT; break;
754 #endif
755 #ifdef BB_FEATURE_LS_TIMESTAMPS
756                         case 'e': list_fmt |= LIST_FULLTIME; break;
757                         case 'c':
758                                 time_fmt = TIME_CHANGE;
759 #ifdef BB_FEATURE_LS_SORTFILES
760                                 sort_opts= SORT_CTIME;
761 #endif
762                                 break;
763                         case 'u':
764                                 time_fmt = TIME_ACCESS;
765 #ifdef BB_FEATURE_LS_SORTFILES
766                                 sort_opts= SORT_ATIME;
767 #endif
768                                 break;
769                         case 't':
770 #ifdef BB_FEATURE_LS_SORTFILES
771                                 sort_opts= SORT_MTIME;
772 #endif
773                                 break;
774 #endif
775 #ifdef BB_FEATURE_LS_FOLLOWLINKS
776                         case 'L': follow_links= TRUE; break;
777 #endif
778 #ifdef BB_FEATURE_AUTOWIDTH
779                         case 'T': tabstops= atoi(optarg); break;
780                         case 'w': terminal_width= atoi(optarg); break;
781 #endif
782                         default:
783                                 goto print_usage_message;
784                 }
785         }
786
787         /* sort out which command line options take precedence */
788 #ifdef BB_FEATURE_LS_RECURSIVE
789         if (disp_opts & DISP_NOLIST)
790                 disp_opts &= ~DISP_RECURSIVE;   /* no recurse if listing only dir */
791 #endif
792 #if defined (BB_FEATURE_LS_TIMESTAMPS) && defined (BB_FEATURE_LS_SORTFILES)
793         if (time_fmt & TIME_CHANGE) sort_opts= SORT_CTIME;
794         if (time_fmt & TIME_ACCESS) sort_opts= SORT_ATIME;
795 #endif
796         if (style_fmt != STYLE_LONG)
797                         list_fmt &= ~LIST_ID_NUMERIC;  /* numeric uid only for long list */
798 #ifdef BB_FEATURE_LS_USERNAME
799         if (style_fmt == STYLE_LONG && (list_fmt & LIST_ID_NUMERIC))
800                         list_fmt &= ~LIST_ID_NAME;  /* don't list names if numeric uid */
801 #endif
802
803         /* choose a display format */
804         if (style_fmt == STYLE_AUTO)
805                 style_fmt = isatty(fileno(stdout)) ? STYLE_COLUMNS : STYLE_SINGLE;
806
807         /*
808          * when there are no cmd line args we have to supply a default "." arg.
809          * we will create a second argv array, "av" that will hold either
810          * our created "." arg, or the real cmd line args.  The av array
811          * just holds the pointers- we don't move the date the pointers
812          * point to.
813          */
814         ac= argc - optind;   /* how many cmd line args are left */
815         if (ac < 1) {
816                 av= (char **)xcalloc((size_t)1, (size_t)(sizeof(char *)));
817                 av[0]= xstrdup(".");
818                 ac=1;
819         } else {
820                 av= (char **)xcalloc((size_t)ac, (size_t)(sizeof(char *)));
821                 for (oi=0 ; oi < ac; oi++) {
822                         av[oi]= argv[optind++];  /* copy pointer to real cmd line arg */
823                 }
824         }
825
826         /* now, everything is in the av array */
827         if (ac > 1)
828                 disp_opts |= DISP_DIRNAME;   /* 2 or more items? label directories */
829
830         /* stuff the command line file names into an dnode array */
831         dn=NULL;
832         for (oi=0 ; oi < ac; oi++) {
833                 cur= (struct dnode *)xmalloc(sizeof(struct dnode));
834                 cur->fullname= xstrdup(av[oi]);
835                 cur->name= cur->fullname;
836                 if (my_stat(cur))
837                         continue;
838                 cur->next= dn;
839                 dn= cur;
840                 nfiles++;
841         }
842
843         /* now that we know how many files there are
844         ** allocate memory for an array to hold dnode pointers
845         */
846         dnp= dnalloc(nfiles);
847         for (i=0, cur=dn; i<nfiles; i++) {
848                 dnp[i]= cur;   /* save pointer to node in array */
849                 cur= cur->next;
850         }
851
852
853         if (disp_opts & DISP_NOLIST) {
854 #ifdef BB_FEATURE_LS_SORTFILES
855                 shellsort(dnp, nfiles);
856 #endif
857                 if (nfiles > 0) showfiles(dnp, nfiles);
858         } else {
859                 dnd= splitdnarray(dnp, nfiles, SPLIT_DIR);
860                 dnf= splitdnarray(dnp, nfiles, SPLIT_FILE);
861                 dndirs= countdirs(dnp, nfiles);
862                 dnfiles= nfiles - dndirs;
863                 if (dnfiles > 0) {
864 #ifdef BB_FEATURE_LS_SORTFILES
865                         shellsort(dnf, dnfiles);
866 #endif
867                         showfiles(dnf, dnfiles);
868                 }
869                 if (dndirs > 0) {
870 #ifdef BB_FEATURE_LS_SORTFILES
871                         shellsort(dnd, dndirs);
872 #endif
873                         showdirs(dnd, dndirs);
874                 }
875         }
876
877         return(status);
878
879   print_usage_message:
880         usage(ls_usage);
881 }