/*	$Id: ls.c,v 1.2 2000/08/22 22:20:23 amai Exp $	*/

/*	$NetBSD: ls.c,v 1.18 1996/07/09 09:16:29 mycroft Exp $	*/

//

//

/*

 * Copyright (c) 1989, 1993, 1994

 *	The Regents of the University of California.  All rights reserved.

 *

 * This code is derived from software contributed to Berkeley by

 * Michael Fischbein.

 *

 * Redistribution and use in source and binary forms, with or without

 * modification, are permitted provided that the following conditions

 * are met:

 * 1. Redistributions of source code must retain the above copyright

 *    notice, this list of conditions and the following disclaimer.

 * 2. Redistributions in binary form must reproduce the above copyright

 *    notice, this list of conditions and the following disclaimer in the

 *    documentation and/or other materials provided with the distribution.

 * 3. All advertising materials mentioning features or use of this software

 *    must display the following acknowledgement:

 *	This product includes software developed by the University of

 *	California, Berkeley and its contributors.

 * 4. Neither the name of the University nor the names of its contributors

 *    may be used to endorse or promote products derived from this software

 *    without specific prior written permission.

 *

 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND

 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE

 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE

 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE

 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL

 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS

 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)

 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT

 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY

 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF

 * SUCH DAMAGE.

 */

#ifndef lint

static char copyright[] =

"@(#) Copyright (c) 1989, 1993, 1994\n\

	The Regents of the University of California.  All rights reserved.\n";

#endif /* not lint */

#ifndef lint

#if 0

static char sccsid[] = "@(#)ls.c	8.7 (Berkeley) 8/5/94";

#else

static char rcsid[] = "$OpenBSD: ls.c,v 1.13 1999/05/01 23:54:47 deraadt Exp $";

#endif

#endif /* not lint */

#include <sys/types.h>

#include <sys/stat.h>

#include <sys/ioctl.h>

#include <dirent.h>

#include <err.h>

#include <errno.h>

#include "fts.h"

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <unistd.h>

#include <sys/cdefs.h>

#include "ls.h"

char	*group_from_gid __P((u_int, int));

char	*user_from_uid __P((u_int, int));

static void	 display __P((FTSENT *, FTSENT *));

static int	 mastercmp __P((const FTSENT **, const FTSENT **));

static void	 traverse __P((int, char **, int));

static void (*printfcn) __P((DISPLAY *));

static int (*sortfcn) __P((const FTSENT *, const FTSENT *));

#define	BY_NAME 0

#define	BY_SIZE 1

#define	BY_TIME	2

#ifdef __SYMBIAN32__

#ifdef __ARMCC__

// Turn off the 'extended constant initialiser used' warning

#pragma diag_remark 1294

#endif

#endif

long blocksize;			/* block size units */

int termwidth = 80;		/* default terminal width */

int sortkey = BY_NAME;

/* flags */

int f_accesstime;		/* use time of last access */

int f_column;			/* columnated format */

int f_columnacross;		/* columnated format, sorted across */

int f_flags;			/* show flags associated with a file */

int f_inode;			/* print inode */

int f_listdir;			/* list actual directory, not contents */

int f_listdot;			/* list files beginning with . */

int f_longform;			/* long listing format */

int f_newline;			/* if precede with newline */

int f_nonprint;			/* show unprintables as ? */

int f_nosort;			/* don't sort output */

int f_numericonly;		/* don't expand uid to symbolic name */

int f_recursive;		/* ls subdirectories also */

int f_reversesort;		/* reverse whatever sort is used */

int f_sectime;			/* print the real time for all files */

int f_singlecol;		/* use single column output */

int f_size;			/* list size in short listing */

int f_statustime;		/* use time of last mode change */

int f_stream;			/* stream format */

int f_dirname;			/* if precede with directory name */

int f_type;			/* add type character for non-regular files */

int f_typedir;			/* add type character for directories */

int f_whiteout;			/* show whiteout entries */

int kflag;

unsigned char supress_error;

static int rval;

int ls_main(int argc, char **argv);

extern char *

getbsize(int *headerlenp, long *blocksizep);

int ls_internal(int,char**);

int

ls_internal(argc, argv)

	int argc;

	char **argv;

{

#ifndef __SYMBIAN32__

	__progname = argv[0];

	_wildcard(&argc, &argv);

#endif

	return ls_main(argc, argv);

}

#ifdef __SYMBIAN32__

static

void reset_globals()

{

	f_accesstime=f_column=f_columnacross=\

	f_flags=f_inode=f_listdir=f_listdot=f_longform=\

	f_newline=f_nonprint=f_nosort=f_numericonly=\

	f_recursive=f_reversesort=f_sectime=f_size=f_statustime=\

	f_stream=f_dirname=f_type=f_typedir=f_whiteout=kflag=0;

	supress_error = 0;

}

#endif

int

ls_main(argc, argv)

	int argc;

	char *argv[];

{

	static char dot[] = ".", *dotav[] = { dot, NULL };

	struct winsize win;

	int ch, fts_options, notused;

	char *p;

#ifdef __SYMBIAN32__

	reset_globals();	

#endif	

	/* Terminal defaults to -Cq, non-terminal defaults to -1. */

	if (isatty(STDOUT_FILENO)) {

		if ((p = getenv("COLUMNS")) != NULL)

			termwidth = atoi(p);

		else if (ioctl(STDOUT_FILENO, TIOCGWINSZ, &win) == 0 &&

		    win.ws_col > 0)

			termwidth = win.ws_col;

		f_column = f_nonprint = 1;

	} else

		f_singlecol = 1;

	/* Root is -A automatically. */

	if (!getuid())

		f_listdot = 1;

	optind=1;

	fts_options = FTS_PHYSICAL;

	while ((ch = getopt(argc, argv, "1ACFLRSTWacdfgiklmnopqrstux")) != -1) {

		switch (ch) {

		/*

		 * The -1, -C and -l, -m and -x options all override each

		 * other so shell aliasing works right.

		 */

		case '1':

			f_singlecol = 1;

			f_column = f_columnacross = f_longform = f_stream = 0;

			break;

		case 'C':

			f_column = 1;

			f_longform = f_columnacross = f_singlecol = f_stream = 0;

			break;

		case 'l':

			f_longform = 1;

			f_numericonly = 0;

			f_column = f_columnacross = f_singlecol = f_stream = 0;

			break;

		case 'm':

			f_stream = 1;

			f_column = f_columnacross = f_singlecol = 0;

			f_singlecol = 0;

			break;

		case 'x':

			f_columnacross = 1;

			f_column = f_longform = f_singlecol = f_stream = 0;

			break;

		case 'n':

			f_longform = 1;

			f_numericonly = 1;

			f_column = f_singlecol = 0;

			break;

		/* The -c and -u options override each other. */

		case 'c':

			f_statustime = 1;

			f_accesstime = 0;

			break;

		case 'u':

			f_accesstime = 1;

			f_statustime = 0;

			break;

		case 'F':

			f_type = 1;

			break;

		case 'L':

			fts_options &= ~FTS_PHYSICAL;

			fts_options |= FTS_LOGICAL;

			break;

		case 'R':

			f_recursive = 1;

			break;

		case 'a':

			fts_options |= FTS_SEEDOT;

			/* FALLTHROUGH */

		case 'A':

			f_listdot = 1;

			break;

		/* The -d option turns off the -R option. */

		case 'd':

			f_listdir = 1;

			f_recursive = 0;

			break;

		case 'f':

			f_nosort = 1;

			break;

		case 'g':		/* Compatibility with 4.3BSD. */

			break;

		case 'i':

			f_inode = 1;

			break;

		case 'k':

			blocksize = 1024;

			kflag = 1;

			break;

		case 'o':

			f_flags = 1;

			break;

		case 'p':

			f_typedir = 1;

			break;

		case 'q':

			f_nonprint = 1;

			break;

		case 'r':

			f_reversesort = 1;

			break;

		case 'S':

			sortkey = BY_SIZE;

			break;

		case 's':

			f_size = 1;

			break;

		case 'T':

			f_sectime = 1;

			break;

		case 't':

			sortkey = BY_TIME;

			break;

		case 'W':

			f_whiteout = 1;

			break;

		default:

			usage();

			return 1;

		}

	}

	argc -= optind;

	argv += optind;

	/*

	 * If not -F, -i, -l, -p, -S, -s or -t options, don't require stat

	 * information.

	 */

	if (!f_longform && !f_inode && !f_size && !f_type && !f_typedir &&

	    sortkey == BY_NAME)

		fts_options |= FTS_NOSTAT;

	/*

	 * If not -F, -d or -l options, follow any symbolic links listed on

	 * the command line.

	 */

	if (!f_longform && !f_listdir && !f_type)

		fts_options |= FTS_COMFOLLOW;

	/*

	 * If -W, show whiteout entries

	 */

#ifdef FTS_WHITEOUT

	if (f_whiteout)

		fts_options |= FTS_WHITEOUT;

#endif

	/* If -l or -s, figure out block size. */

	if (f_longform || f_size) {

		if (!kflag)

			(void)getbsize(&notused, &blocksize);

		blocksize /= 512;

	}

	if (!argc)

		supress_error = 1;

	/* Select a sort function. */

	if (f_reversesort) {

		switch (sortkey) {

		case BY_NAME:

			sortfcn = revnamecmp;

			break;

		case BY_SIZE:

			sortfcn = revsizecmp;

			break;

		case BY_TIME:

			if (f_accesstime)

				sortfcn = revacccmp;

			else if (f_statustime)

				sortfcn = revstatcmp;

			else /* Use modification time. */

				sortfcn = revmodcmp;

			break;

		}

	} else {

		switch (sortkey) {

		case BY_NAME:

			sortfcn = namecmp;

			break;

		case BY_SIZE:

			sortfcn = sizecmp;

			break;

		case BY_TIME:

			if (f_accesstime)

				sortfcn = acccmp;

			else if (f_statustime)

				sortfcn = statcmp;

			else /* Use modification time. */

				sortfcn = modcmp;

			break;

		}

	}

	/* Select a print function. */

	if (f_singlecol)

		printfcn = printscol;

	else if (f_columnacross)

		printfcn = printacol;

	else if (f_longform)

		printfcn = printlong;

	else if (f_stream)

		printfcn = printstream;

	else

		printfcn = printcol;

	if (argc)

		traverse(argc, argv, fts_options);

	else

		traverse(1, dotav, fts_options);

	return (rval);

}

static int output;			/* If anything output. */

/*

 * Traverse() walks the logical directory structure specified by the argv list

 * in the order specified by the mastercmp() comparison function.  During the

 * traversal it passes linked lists of structures to display() which represent

 * a superset (may be exact set) of the files to be displayed.

 */

static void

traverse(argc, argv, options)

	int argc, options;

	char *argv[];

{

	FTS *ftsp;

	FTSENT *p, *chp;

	int ch_options;

	if ((ftsp =

	    fts_open(argv, options, f_nosort ? NULL : mastercmp)) == NULL)

		{

		printf("ls: ");

		err(1, NULL);			

		}

	display(NULL, fts_children(ftsp, 0));

	if (f_listdir)

		{	

		fts_close(ftsp);

		return;

		}

	/*

	 * If not recursing down this tree and don't need stat info, just get

	 * the names.

	 */

	ch_options = !f_recursive && options & FTS_NOSTAT ? FTS_NAMEONLY : 0;

	while ((p = fts_read(ftsp)) != NULL)

		switch (p->fts_info) {

		case FTS_D:

			if (p->fts_name[0] == '.' &&

			    p->fts_level != FTS_ROOTLEVEL && !f_listdot)

				break;

			/*

			 * If already output something, put out a newline as

			 * a separator.  If multiple arguments, precede each

			 * directory with its name.

			 */

			if (output && strcmp(p->fts_path, "."))

				(void)printf("\n%s:\n", p->fts_path);

			if (argc > 1) {

				(void)printf("%s:\n", p->fts_path);

				output = 1;

			}

			chp = fts_children(ftsp, ch_options);

			display(p, chp);

			if (!f_recursive && chp != NULL)

				(void)fts_set(ftsp, p, FTS_SKIP);

			break;

		case FTS_DC:

			printf("ls: ");

			warnx("%s: directory causes a cycle", p->fts_name);

			break;

		case FTS_DNR:

		case FTS_ERR:

			printf("ls: ");

			warnx("%s: %s", p->fts_name, strerror(p->fts_errno));

			rval = 1;

			break;

		}

	if (errno)

		{

		printf("ls: ");

		err(1, "fts_read");

		}

	fts_close(ftsp);    

	return;    

}

/*

 * Display() takes a linked list of FTSENT structures and passes the list

 * along with any other necessary information to the print function.  P

 * points to the parent directory of the display list.

 */

static void

display(p, list)

	FTSENT *p, *list;

{

	struct stat *sp;

	DISPLAY d;

	FTSENT *cur;

	NAMES *np;

	u_quad_t maxsize;

	u_long btotal, maxblock, maxinode, maxlen, maxnlink;

	int bcfile=0, flen=0, glen=0, ulen=0, maxflags=0, maxgroup=0, maxuser=0;

	int entries, needstats;

	char /**user, *group,*/ buf[20];	/* 32 bits == 10 digits */

	char nuser[12], ngroup[12];

	char *flags = NULL;

	/*

	 * If list is NULL there are two possibilities: that the parent

	 * directory p has no children, or that fts_children() returned an

	 * error.  We ignore the error case since it will be replicated

	 * on the next call to fts_read() on the post-order visit to the

	 * directory p, and will be signalled in traverse().

	 */

	if (list == NULL)

		return;

	needstats = f_inode || f_longform || f_size;

	flen = 0;

	btotal = maxblock = maxinode = maxlen = maxnlink = 0;

	bcfile = 0;

	maxuser = maxgroup = maxflags = 0;

	maxsize = 0;

	for (cur = list, entries = 0; cur; cur = cur->fts_link) {

		if (cur->fts_info == FTS_ERR || cur->fts_info == FTS_NS) {

			cur->fts_number = NO_PRINT;