home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume10 / lc < prev    next >
Text File  |  1987-07-14  |  11KB  |  545 lines
  1. Path: uunet!rs
  2. From: rs@uunet.UU.NET (Rich Salz)
  3. Newsgroups: comp.sources.unix
  4. Subject: v10i055:  An "ls" program
  5. Message-ID: <646@uunet.UU.NET>
  6. Date: 16 Jul 87 00:12:10 GMT
  7. Organization: UUNET Communications Services, Arlington, VA
  8. Lines: 534
  9. Approved: rs@uunet.UU.NET
  10.  
  11. Submitted-by: Guy Middleton <gamiddleton%orchid.waterloo.edu@relay.cs.net>
  12. Posting-Number: Volume 10, Issue 55
  13. Archive-name: lc
  14.  
  15. [  It's nice to get a public ls-type program out on to the net.
  16.   Please send your 52 patches that implement options [a-zA-Z]
  17.   on to Guy so that he can incorporate them.  --r$ ]
  18.  
  19. # This is a shell archive.  Remove anything before this line,
  20. # then unpack it by saving it in a file and typing "sh file".
  21. #
  22. # Wrapped by orchid!root on Sat May 16 18:53:36 EDT 1987
  23. # Contents:  Makefile README lc.1 lc.c
  24.  
  25. echo x - Makefile
  26. sed 's/^@//' > "Makefile" <<'@//E*O*F Makefile//'
  27. DESTDIR =
  28. CFLAGS    = -O
  29.  
  30. lc:    lc.c
  31.     ${CC} ${CFLAGS} -o lc lc.c
  32.  
  33. install:    lc
  34.     install -s lc $(DESTDIR)/usr/bin/lc
  35.  
  36. clean:
  37.     rm -f lc a.out core *.o *.bak
  38. @//E*O*F Makefile//
  39. chmod u=rw,g=r,o=r Makefile
  40.  
  41. echo x - README
  42. sed 's/^@//' > "README" <<'@//E*O*F README//'
  43.     This is 'lc', the program that everybody here uses instead of ls.
  44. It may not seem like a big deal, but whenever somebody moves away, they
  45. realise that lc isn't part of standard Unix, and call back to get a copy.
  46.  
  47. This is known to work on 4.2, 4.3, and Ultrix 1.2.  We don't have any
  48. SysV machines here, so it may not work there.
  49. @//E*O*F README//
  50. chmod u=rw,g=r,o=r README
  51.  
  52. echo x - lc.1
  53. sed 's/^@//' > "lc.1" <<'@//E*O*F lc.1//'
  54. @.TH LC 1 UW
  55. @.SH NAME
  56. lc \- list directory and file names in columns
  57. @.SH SYNOPSIS
  58. @.B lc
  59. [
  60. @.B \-fdbcspan1
  61. ]
  62. [ directory ... ]
  63. @.SH DESCRIPTION
  64. @.I Lc
  65. lists the elements of the given directories.
  66. The elements are
  67. divided into the five basic types (files, directories, character
  68. special files, block special files, and pipes)
  69. and are printed in alphabetical order.
  70. They are normally printed 5 to a line,
  71. preceeded by a title indicating the type,
  72. but the
  73. @.B \-1
  74. option can be used to force single-column untitled output.
  75. @.PP
  76. If the argument list contains more than one name, the contents of the
  77. directories named in the list are displayed and all other names
  78. are ignored.
  79. If no directory is specified the current working directory is listed
  80. by default.
  81. The special entries ``.'' and ``..''
  82. are normally not listed;
  83. the
  84. @.B \-a
  85. option causes them to be listed as well.
  86. @.PP
  87. The
  88. @.B \-n
  89. option turns off all output; this is useful when only the exit status is
  90. wanted.
  91. (The exit status is 0 if something would have been printed,
  92. 1 otherwise.)
  93. @.PP
  94. If any of the following option arguments are given,
  95. @.I lc
  96. lists only those types of entries;
  97. otherwise, all entries are listed.
  98. The options and their meanings are:
  99. @.PP
  100. @.RS 5n
  101. @.TP
  102. @.B f
  103. list ordinary files
  104. @.TP
  105. @.B d
  106. list directories
  107. @.TP
  108. @.B b
  109. list block special files
  110. @.TP
  111. @.B c
  112. list character special files
  113. @.TP
  114. @.B s
  115. list all special files
  116. @.TP
  117. @.B p
  118. list permanent pipes
  119. @.RE
  120. @.PP
  121. @.I Lc
  122. may be used with the substitution features of the Shell
  123. to select particular kinds of files (eg, directories) to
  124. take part in some processing,
  125. for example:
  126. @.PP
  127. @.RS
  128. @.B "ls \-l \`lc -1d\`"
  129. @.RE
  130. @.PP
  131. This lists the contents of all sub-directories of the current directory.
  132. @.SH DIAGNOSTICS
  133. Symbolic links are normally followed, and each prints under the category
  134. of the type of thing to which it is linked.
  135. If the symbolic link points to a nonexistent pathname, or if you do
  136. not have permission to resolve the pathname,
  137. @.I lc
  138. will list the link under the category
  139. @.IR "Unresolved Symbolic Links" .
  140. @//E*O*F lc.1//
  141. chmod u=rwx,g=rx,o=rx lc.1
  142.  
  143. echo x - lc.c
  144. sed 's/^@//' > "lc.c" <<'@//E*O*F lc.c//'
  145. #ifndef lint
  146. static char *copyright =
  147.     "LC - Copyright University of Waterloo, 1978,1985,1987";
  148. #endif lint
  149. /*
  150.  * lc [directory ...]
  151.  */
  152.  
  153. #include <stdio.h>
  154. #include <strings.h>
  155. #include <sys/param.h>
  156. #include <sys/stat.h>
  157. #include <sys/dir.h>
  158. #include <errno.h>
  159.  
  160. #ifndef MAXPATHLEN
  161. #define    MAXPATHLEN    1024            /* For older systems */
  162. #endif
  163.  
  164.         /* this assumes that S_IFMT is a mask of contiguous 1s */
  165. #define    IFMT_OFFSET    12            /* may be system-dependent */
  166. #define    IFMT        (S_IFMT >> IFMT_OFFSET)
  167.  
  168. #define    MODEX(m)    (((m)>>IFMT_OFFSET)&IFMT) /* IFMT to table index */
  169.  
  170. extern int errno,sys_nerr;
  171. extern char *strcpy(),*strncpy();
  172. extern char *sys_errlist[];
  173. int pstrcmp();
  174.  
  175. #define    NMALLOC        100        /* how much to malloc in growlist() */
  176. #define COLUMNWIDTH    15        /* number of characters in a column */
  177. #define INDENT        "    "        /* blanks at beginning of a column */
  178.  
  179. struct filelist {
  180.     char **names;        /* pointer to array of names */
  181.     int size;        /* how many elements */
  182.     int end;        /* next element to use */
  183.     int flag;
  184.     char *title;
  185. }
  186.     dlist = {(char **) NULL, 0, 0, 0, "Directories"},
  187.     flist = {(char **) NULL, 0, 0, 0, "Files"},
  188.     plist = {(char **) NULL, 0, 0, 0, "Pipes"},
  189.     blist = {(char **) NULL, 0, 0, 0, "Block Spec. Files"},
  190.     clist = {(char **) NULL, 0, 0, 0, "Char. Spec. Files"},
  191.     mpclist = {(char **) NULL, 0, 0, 0, "MPX Char. Files"},
  192.     mpblist = {(char **) NULL, 0, 0, 0, "MPX Block Files"},
  193.     symlist = {(char **) NULL, 0, 0, 0, "Unsatisfied Symbolic Links"},
  194.     soclist = {(char **) NULL, 0, 0, 0, "Sockets"},
  195.                 /* flag is always on for this list */
  196.     goklist = {(char **) NULL, 0, 0, 1, "**GOK"};
  197.  
  198. struct filelist *printlist[] = {
  199.     &dlist, &flist, &plist, &blist, &clist, &mpclist, &mpblist, &symlist,
  200.     &soclist, &goklist, 0
  201. };
  202.  
  203. struct filelist *listtype[IFMT-1];
  204.  
  205. struct xinit {
  206.     int    x_flag;
  207.     struct    filelist    *x_list;
  208. } xinit[] ={
  209. #ifdef S_IPIPE
  210.     S_IPIPE,    &plist,
  211. #endif
  212. #ifdef S_IFPIP
  213.     S_IFPIP,    &plist,
  214. #endif
  215.     S_IFREG,    &flist,
  216.     S_IFDIR,    &dlist,
  217.     S_IFCHR,    &clist,
  218.     S_IFBLK,    &blist,
  219. #ifdef S_IFMPC
  220.     S_IFMPC,    &mpclist,
  221. #endif
  222. #ifdef S_IFMPB
  223.     S_IFMPB,    &mpblist,
  224. #endif
  225. #ifdef S_IFLNK
  226.     S_IFLNK,    &symlist,
  227. #endif
  228. #ifdef S_IFSOCK
  229.     S_IFSOCK,    &soclist,
  230. #endif
  231.     -1,
  232. };
  233.  
  234. int nfl;        /* flag; this is not the first line of output */
  235. int errcall;        /* flag; last line of output was error message */
  236. int notfirst;        /* flag; means not the first thing in this directory */
  237. int nflg;        /* flag; no output - just want exit status */
  238. int ncols = 5;        /* number of columns */
  239. int linewidth;
  240. int manyflg;
  241. int anyfound;
  242. int all  = 1;
  243. char pathbuf[MAXPATHLEN];
  244. char *fnptr = pathbuf;
  245. int aflg;
  246.  
  247. main(argc, argv)
  248.     char *argv[];
  249. {
  250.     register char *path, *p, *q;
  251.     struct xinit *xp;
  252.     int i;
  253.  
  254.     for (i = 0 ; i < IFMT ; i++)
  255.         listtype[i] = &goklist;
  256.     for (xp = xinit; xp->x_flag != -1; xp++)
  257.         listtype[MODEX(xp->x_flag)] = xp->x_list;
  258.     if(argc >= 2 && argv[1][0] == '-') {
  259.         argv++;
  260.         argc--;
  261.         for(p = &argv[0][1]; *p; p++)
  262.             switch(*p) {
  263.             case 'a':
  264.                 aflg++;
  265.                 break;
  266.  
  267.             case 'n':
  268.                 nflg++;
  269.                 break;
  270.  
  271.             case '1':
  272.                 ncols=1;
  273.                 break;
  274.  
  275.             default:
  276.                 switch(*p) {
  277.                 case 'f':
  278.                     flist.flag++;
  279.                     break;
  280.  
  281.                 case 'd':
  282.                     dlist.flag++;
  283.                     break;
  284.  
  285.                 case 'b':
  286.                     blist.flag++;
  287.                     break;
  288.  
  289.                 case 'c':
  290.                     clist.flag++;
  291.                     break;
  292.  
  293.                 case 'B':
  294.                     mpblist.flag++;
  295.                     break;
  296.  
  297.                 case 'C':
  298.                     mpclist.flag++;
  299.                     break;
  300.  
  301.                 case 's':
  302.                     blist.flag++;
  303.                     clist.flag++;
  304.                     mpblist.flag++;
  305.                     mpclist.flag++;
  306.                     break;
  307.  
  308.                 case 'p':
  309.                     plist.flag++;
  310.                     break;
  311.  
  312.                 default:
  313.                     fprintf(stderr, "Unknown flag: %c\n",
  314.                         *p);
  315.                     continue;
  316.                 }
  317.                 all = 0;
  318.             }
  319.     }
  320.  
  321.     if (all)
  322.         flist.flag = dlist.flag = blist.flag = clist.flag
  323.             = mpblist.flag = mpclist.flag
  324.             = symlist.flag = soclist.flag
  325.             = plist.flag = 1;
  326.  
  327.     linewidth = ncols * COLUMNWIDTH;
  328.  
  329.     if(argc < 3) {
  330.         path = argc == 1 ? "." : argv[1];
  331.         listdir(path);
  332.     } else {
  333.         manyflg++;
  334.         while(--argc) {
  335.             path = p = *++argv;
  336.             if(strlen(path) >= MAXPATHLEN) {/* = for '/' */
  337.                 errno=ENAMETOOLONG;
  338.                 warn(path);
  339.                 continue;
  340.             }
  341.             q = pathbuf;
  342.             while(*q++ = *p++);
  343.             q[-1] = '/';
  344.             fnptr = q;
  345.             listdir(path);
  346.         }
  347.     }
  348.     exit(anyfound==0);
  349. }
  350.  
  351. listdir(path)
  352.     char *path;
  353. {
  354.     register char *p;
  355.     struct direct *d;
  356.     struct filelist **pr;
  357.     DIR *u;
  358.     struct stat ibuf;
  359.  
  360.     if(stat(path, &ibuf) < 0) {
  361.         warn(path);
  362.         return;
  363.     }
  364.     if((ibuf.st_mode&S_IFMT) != S_IFDIR) {
  365.         if(!manyflg){
  366.             errno=ENOTDIR;
  367.             warn(path);
  368.         }
  369.         return;
  370.     }
  371.     if((u = opendir(path)) == NULL) {
  372.         warn(path);
  373.         return;
  374.     }
  375.     if(manyflg) {
  376.         if(nfl++)
  377.             putchar('\n');
  378.         printf("%s:\n", path);
  379.     } else
  380.         chdir(path);
  381.     while((d = readdir(u)) != NULL) {
  382.         if(fnptr + d->d_namlen >= &pathbuf[MAXPATHLEN]) {
  383.             errno=ENAMETOOLONG;
  384.             warn(pathbuf);
  385. /*
  386.             err("%s: Component `%s' makes pathname > %d bytes.\n",
  387.                 pathbuf, d->d_name, MAXPATHLEN);
  388. */
  389.             continue;
  390.         }
  391.         (void)strcpy(fnptr, d->d_name);
  392.         if(stat(pathbuf, &ibuf) < 0 && lstat(pathbuf, &ibuf) < 0) {
  393.             warn(pathbuf);
  394.             continue;
  395.         }
  396.         /*
  397.          * ignore "." and ".."
  398.          */
  399.         if((ibuf.st_mode&S_IFMT) == S_IFDIR && aflg == 0) {
  400.             p = d->d_name;
  401.             if(*p++ == '.' && (*p == '\0'
  402.                 || *p++ == '.' && *p == '\0'))
  403.                 continue;
  404.         }
  405.  
  406.         build(listtype[MODEX(ibuf.st_mode)], d->d_name);
  407.     }
  408.  
  409.     closedir(u);
  410.     notfirst = 0;
  411.     for(pr = printlist; *pr; pr++)
  412.         if((*pr)->names && (*pr)->end != 0) {
  413.             qsort( (*pr)->names, (*pr)->end,
  414.                     sizeof (char *), pstrcmp );
  415.             print(*pr);
  416.         }
  417.     fflush(stdout);
  418. }
  419.  
  420. warn(name)
  421.     char *name;
  422. {
  423.     if(nfl && !errcall)
  424.         putchar('\n');
  425.     if((errno>=0)&&(errno<sys_nerr))
  426.         fprintf(stdout,"%s:  %s\n", name,sys_errlist[errno]);
  427.     else
  428.         fprintf(stdout,"%s:  unknown error (%d).\n", name,errno);
  429.     fflush(stdout);
  430.     errcall=nfl=1;
  431.     errno=0;
  432. }
  433.  
  434. print(list)
  435.     struct filelist *list;
  436. {
  437.     register int cursor, i;
  438.     register char **p;
  439.  
  440.     if(notfirst++)
  441.         putchar('\n');
  442.     if(ncols!=1) {
  443.         if (manyflg)
  444.             fputs(INDENT, stdout);
  445.         printf("%s:\n", list->title);
  446.     }
  447.     cursor = 0;
  448.     for(p = list->names, i = 0; i < list->end; i++) {
  449.         int len;
  450.         int posused;    /* positions used by blanks and filename */
  451.         register char *fname;
  452.  
  453.         fname = p[i];
  454.         len = strlen(fname);
  455.         posused = len + ((cursor == 0) ? 0 : COLUMNWIDTH - cursor%COLUMNWIDTH);
  456.         if ((cursor + posused) > linewidth) {
  457.             printf("\n");
  458.             cursor = 0;
  459.             posused = len;
  460.         }
  461.         if (manyflg && (cursor == 0)) fputs(INDENT, stdout); 
  462.         printf("%*s", posused, fname);
  463.         cursor += posused;
  464.     }
  465.     if(cursor != 0)
  466.          printf("\n");
  467.     errcall = 0;
  468.     if (manyflg)
  469.         release(list);
  470. }
  471.  
  472. build(list, name)
  473.     struct filelist *list;
  474.     char *name;
  475. {
  476.     register int n;
  477.  
  478.     if(list->flag == 0)
  479.         return;
  480.     anyfound++;
  481.     if(nflg)
  482.         return;
  483.     if (list->end >= list->size)
  484.         growlist(list);
  485.     n = strlen( name ) + 1;
  486.     
  487.     (list->names)[list->end++] = strncpy( malloc( n ), name, n );
  488. }
  489.  
  490. growlist( list )
  491.     struct filelist *list;
  492. {
  493.     register int oldsize, newsize;
  494.     register char **newlist;
  495.  
  496.     oldsize = list->size * sizeof (char *);
  497.     newsize = oldsize + (NMALLOC * sizeof (char *));
  498.  
  499.     newlist = (char **) malloc( newsize );
  500.  
  501.     if (oldsize != 0) {
  502.         bcopy( list->names, newlist, oldsize );
  503.         free( list->names );
  504.     }
  505.  
  506.     list->names = newlist;
  507.     list->size += NMALLOC;
  508. }
  509.  
  510. release( list )
  511.     struct filelist *list;
  512. {
  513.     register char **p;
  514.     register int i;
  515.  
  516.     for (p = list->names, i = 0; i < list->end; i++)
  517.         free( p[i] );
  518.  
  519.     list->end = 0;
  520. }
  521.  
  522. pstrcmp( a, b )
  523.     char **a, **b;
  524. {
  525.     return (strcmp( *a, *b ));
  526. }
  527. @//E*O*F lc.c//
  528. chmod u=rwx,g=rx,o=rx lc.c
  529.  
  530. exit 0
  531. __
  532.  -Guy Middleton, University of Waterloo MFCF/ICR, gamiddleton@watmath
  533.  
  534.  
  535. -- 
  536.  
  537. Rich $alz            "Anger is an energy"
  538. Cronus Project, BBN Labs    rsalz@bbn.com
  539. Moderator, comp.sources.unix    sources@uunet.uu.net
  540. -- 
  541.  
  542. Rich $alz            "Anger is an energy"
  543. Cronus Project, BBN Labs    rsalz@bbn.com
  544. Moderator, comp.sources.unix    sources@uunet.uu.net
  545.