kent@sparky.imd.sterling.com (Kent Landfield) (02/04/91)
Submitted-by: kent@sparky.imd.sterling.com (Kent Landfield) Posting-number: Volume 16, Issue 93 Archive-name: lc/patch2 Patch-To: lc: Volume 14, Issue 82-83 This is the second patch to lc. This patch contains modifications so that lc will compile on Apollo systems. -Kent+ ------- #! /bin/sh # This is a shell archive. Remove anything before this line, then feed it # into a shell via "sh file" or similar. To overwrite existing files, # type "sh file -c". # The tool that generated this appeared in the comp.sources.unix newsgroup; # send mail to comp-sources-unix@uunet.uu.net if you want that tool. # If this archive is complete, you will see the following message at the end: # "End of shell archive." # Contents: lc.patch2 # Wrapped by kent@sparky on Sun Feb 3 22:47:20 1991 PATH=/bin:/usr/bin:/usr/ucb ; export PATH if test -f 'lc.patch2' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'lc.patch2'\" else echo shar: Extracting \"'lc.patch2'\" \(7138 characters\) sed "s/^X//" >'lc.patch2' <<'END_OF_FILE' Xdiff -c ../lc.old/README ./README X*** ../lc.old/README Sun Feb 3 22:20:06 1991 X--- ./README Sun Feb 3 22:25:46 1991 X*************** X*** 1,7 **** X X LC X X! "@(#)README 1.4 1/8/91 Kent Landfield" X X This directory contains the source to lc. lc is much like the ls X command except it separates the types of files into groups and then X--- 1,7 ---- X X LC X X! "@(#)README 1.5 2/3/91 Kent Landfield" X X This directory contains the source to lc. lc is much like the ls X command except it separates the types of files into groups and then X*************** X*** 113,118 **** X--- 113,127 ---- X INTERNET: kent@sparky.IMD.Sterling.COM or UUCP: uunet!sparky!kent X X so that I can continue to improve the functionality and portability of lc. X+ X+ Just a note for historical interest: David Tanguay of Software Development X+ Group, University of Waterloo informs me that LC stands for "list catalog". X+ GCOS TSS on the Honeywell used the term "catalog", meaning (roughly) the X+ same thing as a Unix directory. The GCOS file system maintenance program X+ was called ACCE (short for access), a Swiss Army knife type program, and X+ one of its sub-functions was LC, which gave the usual baroque display. X+ A separate LC program was written to give the more commonly wanted structure X+ info, and CLIS (for catalog listing) to give a more "ls -l" type of display. X X -Kent+ X Xdiff -c ../lc.old/lc.c ./lc.c X*** ../lc.old/lc.c Sun Feb 3 22:20:07 1991 X--- ./lc.c Sun Feb 3 22:25:53 1991 X*************** X*** 1,7 **** X /* X ** This software is X ** X! ** Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989, 1990 by Kent Landfield. X ** X ** Permission is hereby granted to copy, distribute or otherwise X ** use any part of this package as long as you do not try to make X--- 1,8 ---- X /* X ** This software is X ** X! ** Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989, 1990, X! ** 1991 by Kent Landfield. X ** X ** Permission is hereby granted to copy, distribute or otherwise X ** use any part of this package as long as you do not try to make X*************** X*** 54,60 **** X ** on your system ? Options -s, -L or -l won't be available..) X ** X ** History: X! ** Initially designed on an IBM-XT running Coherent in 1984. X ** Ported to XENIX on an IBM-AT in 1984. X ** Ported to System V on AT&T 3Bs in 1985. X ** Ported to DEC Vax 11/750 running System V in 1986. X--- 55,62 ---- X ** on your system ? Options -s, -L or -l won't be available..) X ** X ** History: X! ** This implementation initially designed on an X! ** IBM-XT running Coherent in 1984. X ** Ported to XENIX on an IBM-AT in 1984. X ** Ported to System V on AT&T 3Bs in 1985. X ** Ported to DEC Vax 11/750 running System V in 1986. X*************** X*** 70,80 **** X ** Tested with AmigaDOS 1.3 on an Amiga 1000 in 1989. X ** Tested with SunOS 4.0.3 on a Sparkstation 1 in 1989. X ** Tested with AIX 3.+ on a Risc System/6000 in 1990. X! ** Ivan Fris added the ability to combine "only" options. X ** X */ X #ifndef lint X! static char *sccsid = "@(#)lc.c 1.25 1/2/91 Kent Landfield"; X #endif X X #include <stdio.h> X--- 72,83 ---- X ** Tested with AmigaDOS 1.3 on an Amiga 1000 in 1989. X ** Tested with SunOS 4.0.3 on a Sparkstation 1 in 1989. X ** Tested with AIX 3.+ on a Risc System/6000 in 1990. X! ** Ivan Fris added the ability to combine "only" options in 1990. X! ** Mike Peterson ported it to the Apollo Domain/OS SR10.2 in 1990. X ** X */ X #ifndef lint X! static char *sccsid = "@(#)lc.c 1.26 2/3/91 Kent Landfield"; X #endif X X #include <stdio.h> X*************** X*** 152,159 **** X #ifdef S_IFBLK X # define BLOCK_ONLY 1<<4 X #endif X! #ifdef S_IFIFO X # define FIFO_ONLY 1<<5 X #endif X #ifdef S_IFLNK X # define LNK_ONLY 1<<6 X--- 155,164 ---- X #ifdef S_IFBLK X # define BLOCK_ONLY 1<<4 X #endif X! #ifndef apollo X! # ifdef S_IFIFO X # define FIFO_ONLY 1<<5 X+ # endif X #endif X #ifdef S_IFLNK X # define LNK_ONLY 1<<6 X*************** X*** 194,202 **** X--- 199,209 ---- X struct list Dirs = { 0, 0, (char **) NULL, 0 }; X struct list Fls = { 0, 0, (char **) NULL, 0 }; X X+ #ifndef apollo X #ifdef S_IFIFO X struct list Fifos = { 0, 0, (char **) NULL, 0 }; X #endif X+ #endif X X #ifdef S_IFLNK X struct list Lnks = { 0, 0, (char **) NULL, 0 }; X*************** X*** 225,233 **** X--- 232,242 ---- X struct list Dirs = { 0, 0, (char **) NULL }; X struct list Fls = { 0, 0, (char **) NULL }; X X+ #ifndef apollo X #ifdef S_IFIFO X struct list Fifos = { 0, 0, (char **) NULL }; X #endif X+ #endif X X #ifdef S_IFLNK X struct list Lnks = { 0, 0, (char **) NULL }; X*************** X*** 602,610 **** X flag = pr_info("Shared Data Files: ", &Sds, flag, Sort_wanted); X #endif X X! #ifdef S_IFIFO X if (Fifos.num > 0 && (Only == 0 || Only & FIFO_ONLY)) X flag = pr_info("Fifo Files: ", &Fifos, flag, Sort_wanted); X #endif X X #ifdef S_IFCHR X--- 611,621 ---- X flag = pr_info("Shared Data Files: ", &Sds, flag, Sort_wanted); X #endif X X! #ifndef apollo X! # ifdef S_IFIFO X if (Fifos.num > 0 && (Only == 0 || Only & FIFO_ONLY)) X flag = pr_info("Fifo Files: ", &Fifos, flag, Sort_wanted); X+ # endif X #endif X X #ifdef S_IFCHR X*************** X*** 795,800 **** X--- 806,812 ---- X break; X #endif X X+ #ifndef apollo X #ifdef S_IFIFO X case S_IFIFO: X if (!Allfiles && sav_str[0] == '.') X*************** X*** 806,811 **** X--- 818,824 ---- X #endif X break; X #endif X+ #endif X X #ifdef S_IFLNK X case S_IFLNK: X*************** X*** 890,895 **** X--- 903,909 ---- X break; X #endif X X+ #ifndef apollo X #ifdef S_IFIFO X case S_IFIFO: X add_to_list(&Fifos, sav_str); X*************** X*** 899,904 **** X--- 913,919 ---- X #endif X break; X #endif X+ #endif X X #ifdef S_IFSOCK X case S_IFSOCK : X*************** X*** 1007,1016 **** X Sort_wanted = FALSE; X break; X X! #ifdef S_IFIFO X case 'F': X Only |= FIFO_ONLY; X break; X #endif X X case '1': X--- 1022,1033 ---- X Sort_wanted = FALSE; X break; X X! #ifndef apollo X! # ifdef S_IFIFO X case 'F': X Only |= FIFO_ONLY; X break; X+ # endif X #endif X X case '1': X*************** X*** 1407,1412 **** X--- 1424,1430 ---- X break; X #endif X X+ #ifndef apollo X #ifdef S_IFIFO X case S_IFIFO: X if (Display_single) X*************** X*** 1413,1418 **** X--- 1431,1437 ---- X (void) printf("%s: fifo file\n", buf); X break; X #endif X+ #endif X X #ifdef S_IFSOCK X case S_IFSOCK: X*************** X*** 1468,1477 **** X--- 1487,1498 ---- X Dirs.maxlen = Fls.maxlen = 0; X #endif X X+ #ifndef apollo X #ifdef S_IFIFO X Fifos.num = 0; X #ifdef LENS X Fifos.maxlen = 0; X+ #endif X #endif X #endif X END_OF_FILE if test 7138 -ne `wc -c <'lc.patch2'`; then echo shar: \"'lc.patch2'\" unpacked with wrong size! fi # end of 'lc.patch2' fi echo shar: End of shell archive. exit 0 exit 0 # Just in case... -- Kent Landfield INTERNET: kent@sparky.IMD.Sterling.COM Sterling Software, IMD UUCP: uunet!sparky!kent Phone: (402) 291-8300 FAX: (402) 291-4362 Please send comp.sources.misc-related mail to kent@uunet.uu.net.