#ifndef lint
static char *rcsid = "$Header: /afs/.athena/contrib/watchmaker/src/RCS/stat.c,v 1.1 1994/12/07 16:03:05 ghudson Exp $";
#endif lint

#define SINCE
#define TIME_BACKWARDS
/*
 * $Log: stat.c,v $
 * Revision 1.1  1994/12/07  16:03:05  ghudson
 * Initial revision
 *
 * Revision 1.1  1994/12/07  16:03:05  ghudson
 * Initial revision
 *
 * Revision 1.6  87/09/16  09:40:22  jtkohl
 * get rid of 'time backwards' problem
 * 
 * Revision 1.5  87/02/06  15:03:38  jtkohl
 * change getpwuid/getgrid failures not to fail but to be handled intelligently
 * 
 * Revision 1.4  87/01/12  21:37:10  jtkohl
 * latest version from purdue
 * 
 * Revision 1.4  86/08/27  12:49:35  doc
 * Backported from PDP's
 * 
 * Revision 1.4  86/08/15  20:38:38  aii
 * Fixed for BSD2_9
 * Michael MacKenzie
 * 
 * Revision 1.3  86/05/13  21:56:26  rsk
 * Now uses single "-" as flag to indicate one-per-line format.
 * Some minor cosmetic changes in one-per-line output appearance.
 * 
 * Revision 1.2  86/04/09  16:15:19  rsk
 * Changes to support "-1" flag, which causes all output to be
 * one datum per line.  Note that this introduces a pseudo-bug,
 * in that a file named "-1" is going to confuse stat.
 * 
 * Revision 1.1  86/04/09  12:31:38  rsk
 * Initial revision
 * 
*/

/*
 *	Stat.c		Dump out inode info in nice form.
 *			Original version by someone at Purdue in the days of v6;
 *			this one by Rsk for modern times. (4.2, V)
 *
 *			Bug fix for setuid bit misplacement, and modifications
 *			for System V by Bill Stoll, whuxlm!wws.
 *
 *			Masscomp (and system V) mods by Stan Barber, neuro1!sob.
 *
 *			Bug fix for setuid bit and flag mods, and for
 *			misplaced include of time.h, okstate!zap.
 *			Note: I left SINCE as a compile-time option; it
 *			probably shouldn't even be there. ---Rsk
 *
 *			(void)'s added to make lint happy, Rsk.
 *
 *			Use of major() and minor() to clarify device numbers,
 *			William J. Bogstad, bogstad@hopkins-eecs-bravo.arpa
 *
 *			Still doesn't run under 2.9; to be fixed soon.
 *
 *			Now Runs under 2.9
 *			#defined out printing of st_block and S_IFSOCK   mm.
 *
 *	Vanilla version is for 4.2bsd.
 * 	Define SYSV for system V version.
 *	Define SINCE for "elapsed time" since inode times.
 *	Define MASSCOMP for those machines; this implies system V.
 *	Define BSD2_9 for PDP11/70's
 */

#ifdef MASSCOMP
#define SYSV
#endif MASSCOMP

#include <stdio.h>
#include <sys/time.h>
#include <sys/types.h>
#include <ctype.h>
#include <sys/stat.h>
#include <pwd.h>
#include <grp.h>

#define	FAIL	-1		/* Failure return code from call */	
#define OKAY	0		/* Success return code from call */

struct 	stat	Sbuf;		/* for return values from stat() call */
char	*ctime();		/* Time conversion	*/
struct	passwd	*getpwuid();	/* User entry */
struct	passwd	*pwent;		/* User structure */
struct	group	*getgrgid();	/* Group entry */
struct	group	*grent;		/* Group structure */

char	Mode[10];	/* File protection mode */

#define	LBUFSIZ	256	/* Length for symbolic link translation buffer */
char	Lbuf[LBUFSIZ];	/* Symbolic link translation buffer */

int	oneperline = 0;	/* If set, only one datum per line of output */

int
main(argc, argv)
int argc;
char *argv[];
{
	register int i;

	i = 1;

	if(argc == 1) {
		(void) fprintf(stderr,"Usage: stat file1 [file2 ...]\n");
		exit(1);
	}

	do {
		if( strcmp (argv[i],"-") == 0)
			oneperline = 1;
		else {
			(void) stat_it(argv[i]);

			if(  (argc > 1) && (i < (argc-1)) )
				(void) printf("\n");
		}
	}
	while(++i < argc);

	exit(0);
}

/*
 * stat_it() - Actually stat and format results from file.
 *		exit -    OKAY if no problems encountered
 *			  FAIL if couldn't open or other nastiness
 *
 */
stat_it(filename)
char	*filename;
{
	register int count;

#ifdef SYSV | BSD2.9
	if( stat(filename,&Sbuf) == FAIL) {
		(void) fprintf(stderr,"Can't stat %s\n",filename); 
		return(FAIL);
	}
#else SYSV
	if( lstat(filename,&Sbuf) == FAIL) {
		(void) fprintf(stderr,"Can't lstat %s\n",filename); 
		return(FAIL);
	}
#endif SYSV

#ifndef SYSV
	if( (Sbuf.st_mode & S_IFMT) == S_IFLNK) {
		if( (count = readlink(filename,Lbuf,LBUFSIZ)) == FAIL) {
			(void) fprintf(stderr,"Can't readlink %s\n", filename);
			return(FAIL);
		}
		if( count < LBUFSIZ)
			Lbuf[count] = '\0';
		if(oneperline)
			(void) printf("File: \"%s\" -> \"%s\"\n",filename,Lbuf);
		else
			(void) printf("  File: \"%s\" -> \"%s\"\n",filename,Lbuf);
	} else {
#endif SYSV
		if(oneperline)
			(void) printf("File: \"%s\"\n", filename);
		else
			(void) printf("  File: \"%s\"\n", filename);

		if(oneperline)
			(void) printf("Size: %-10ld\n", Sbuf.st_size);
		else
			(void) printf("  Size: %-10ld", Sbuf.st_size);

#ifndef SYSV
#ifndef BSD2_9
		if(oneperline)
			(void) printf("Allocated Blocks: %-10ld\n", Sbuf.st_blocks);
		else
			(void) printf("   Allocated Blocks: %-10ld", Sbuf.st_blocks);
#endif BSD2_9
#endif SYSV
	}

	if(oneperline)
		(void) printf("Filetype: ");
	else
		(void) printf("   Filetype: ");
	switch( Sbuf.st_mode & S_IFMT) {
	case	S_IFDIR:	
		(void) printf("Directory\n");
		break;
	case	S_IFCHR:	
		(void) printf("Character Device\n");
		break;
	case	S_IFBLK:	
		(void) printf("Block Device\n");
		break;
	case	S_IFREG:	
		(void) printf("Regular File\n");
		break;
#ifndef SYSV
	case	S_IFLNK:	
		(void) printf("Symbolic Link\n");
		break;
#ifndef BSD2_9
	case	S_IFSOCK:	
		(void) printf("Socket\n");
		break;
#endif BSD2_9
#else SYSV
	case	S_IFIFO:	
		(void) printf("Fifo File\n");
		break;
#endif SYSV
#ifdef MASSCOMP
	case	S_IFCTG:	
		(void) printf("Contiguous File\n");
		break;
#endif MASSCOMP
	default		:	
		(void) printf("Unknown\n");
	}

	(void) strcpy(Mode,"----------");
	if(Sbuf.st_mode & (S_IEXEC>>6))		/* Other execute */
		Mode[9] = 'x';
	if(Sbuf.st_mode & (S_IWRITE>>6))	/* Other write */
		Mode[8] = 'w';
	if(Sbuf.st_mode & (S_IREAD>>6))		/* Other read */
		Mode[7] = 'r';
	if(Sbuf.st_mode & (S_IEXEC>>3))		/* Group execute */
		Mode[6] = 'x';
	if(Sbuf.st_mode & (S_IWRITE>>3))	/* Group write */
		Mode[5] = 'w';
	if(Sbuf.st_mode & (S_IREAD>>3))		/* Group read */
		Mode[4] = 'r';
	if(Sbuf.st_mode & S_IEXEC)		/* User execute */
		Mode[3] = 'x';
	if(Sbuf.st_mode & S_IWRITE)		/* User write */
		Mode[2] = 'w';
	if(Sbuf.st_mode & S_IREAD)		/* User read */
		Mode[1] = 'r';
	if(Sbuf.st_mode & S_ISVTX)		/* Sticky bit */
		Mode[9] = 't';
	if(Sbuf.st_mode & S_ISGID)		/* Set group id */
		Mode[6] = 's';
	if(Sbuf.st_mode & S_ISUID)		/* Set user id */
		Mode[3] = 's';
	switch( Sbuf.st_mode & S_IFMT) {
	case	S_IFDIR:	
		Mode[0] = 'd';
		break;
	case	S_IFCHR:	
		Mode[0] = 'c';
		break;
	case	S_IFBLK:	
		Mode[0] = 'b';
		break;
	case	S_IFREG:	
		Mode[0] = '-';
		break;
#ifndef SYSV
	case	S_IFLNK:	
		Mode[0] = 'l';
		break;
#ifndef BSD2_9
	case	S_IFSOCK:	
		Mode[0] = 's';
		break;
#endif BSD2_9
#else SYSV
	case	S_IFIFO:	
		Mode[0] = 'f';
		break;
#endif SYSV
#ifdef MASSCOMP
	case	S_IFCTG:	
		Mode[0] = 'C';
		break;
#endif MASSCOMP
	default		:	
		Mode[0] = '?';
	}
	if(oneperline)
		(void) printf("Mode: (%04o/%s)\n", Sbuf.st_mode&07777,Mode);
	else
		(void) printf("  Mode: (%04o/%s)", Sbuf.st_mode&07777,Mode);

	(void) setpwent();
	pwent = getpwuid(Sbuf.st_uid);
	if(oneperline)
		(void) printf("Uid: (%d/%s)\n", Sbuf.st_uid, pwent ? pwent->pw_name : "???");

	else
		(void) printf("         Uid: (%5d/%8s)", Sbuf.st_uid, pwent ? pwent->pw_name : "???");

	(void) setgrent();
	grent = getgrgid(Sbuf.st_gid);
	if(oneperline)
		(void) printf("Gid: (%d/%s)\n", Sbuf.st_gid, grent ? grent->gr_name : "???");
	else
		(void) printf("  Gid: (%5d/%8s)\n", Sbuf.st_gid, grent ? grent->gr_name : "???");


	(void) printf("Device: %2d,%-2d", major(Sbuf.st_dev), minor(Sbuf.st_dev));
	if(oneperline)
		(void) printf("\n");
	if(oneperline)
		(void) printf("Inode: %-10d\n", Sbuf.st_ino);
	else
		(void) printf("  Inode: %-10d", Sbuf.st_ino);
	(void) printf("Links: %-5d", Sbuf.st_nlink);

	/* Only meaningful if file is device */

	if(  ( (Sbuf.st_mode & S_IFMT) == S_IFCHR)
	    || ( (Sbuf.st_mode & S_IFMT) == S_IFBLK) ) {
		if(oneperline)
			(void) printf("\nDevice type: %2d,%-2d\n",
				major(Sbuf.st_rdev), minor(Sbuf.st_rdev));
		else
			(void) printf("     Device type: %2d,%-2d\n",
				major(Sbuf.st_rdev), minor(Sbuf.st_rdev));
	} else {
		(void) printf("\n");
	}

	/* The %.24s strips the newline from the ctime() string */

#ifdef SINCE
	(void) printf("Access: %.24s",ctime(&Sbuf.st_atime));
	(void) tsince(Sbuf.st_atime);
	(void) printf("Modify: %.24s",ctime(&Sbuf.st_mtime));
	(void) tsince(Sbuf.st_mtime);
	(void) printf("Change: %.24s",ctime(&Sbuf.st_ctime));
	(void) tsince(Sbuf.st_ctime);
#else SINCE
	(void) printf("Access: %s",ctime(&Sbuf.st_atime));
	(void) printf("Modify: %s",ctime(&Sbuf.st_mtime));
	(void) printf("Change: %s",ctime(&Sbuf.st_ctime));
#endif SINCE

	/*
	* 	Should I put this in somewhere?  No.
	*
	* 	printf("Optimal Blocksize: %ld\n", Sbuf.st_blksize);
	*/

	return(OKAY);
}

#ifdef SINCE
tsince(time_sec)
long	time_sec;
{
	long	time_buf;
	long	d_since;	/* days elapsed since time */
	long	h_since;	/* hours elapsed since time */
	long	m_since;	/* minutes elapsed since time */
	long	s_since;	/* seconds elapsed since time */
#ifdef TIME_BACKWARDS
	int backflag = 0;
#endif

	(void) time(&time_buf);

#ifdef TIME_BACKWARDS
	if(time_sec > time_buf) {
		s_since = time_sec - time_buf;		
		backflag = 1;
	} else
		s_since = time_buf - time_sec;
#else
	if(time_sec > time_buf) {
		(void) fprintf(stderr,"Time going backwards\n");
		exit(1);
	}
	s_since = time_buf - time_sec;
#endif
	d_since = s_since / 86400l ;
	s_since -= d_since * 86400l ;
	h_since = s_since / 3600l ;
	s_since -= h_since * 3600l ;
	m_since = s_since / 60l ;
	s_since -= m_since * 60l ;

#ifdef TIME_BACKWARDS
	(void) printf("(%c%05ld.%02ld:%02ld:%02ld)\n", backflag ? '-' : ' ',
		      d_since,h_since,m_since,s_since);
#else
	(void) printf("(%05ld.%02ld:%02ld:%02ld)\n",d_since,h_since,m_since,s_since);
#endif

	return(OKAY);
}
#endif SINCE