/* $TOG: checktree.c /main/8 1998/02/06 11:23:04 kaleb $ */

/*

 * Motif

 *

 * Copyright (c) 1987-2012, The Open Group. All rights reserved.

 *

 * These libraries and programs are free software; you can

 * redistribute them and/or modify them under the terms of the GNU

 * Lesser General Public License as published by the Free Software

 * Foundation; either version 2 of the License, or (at your option)

 * any later version.

 *

 * These libraries and programs are distributed in the hope that

 * they will be useful, but WITHOUT ANY WARRANTY; without even the

 * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR

 * PURPOSE. See the GNU Lesser General Public License for more

 * details.

 *

 * You should have received a copy of the GNU Lesser General Public

 * License along with these librararies and programs; if not, write

 * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth

 * Floor, Boston, MA 02110-1301 USA

*/

#ifdef HAVE_CONFIG_H

#include <config.h>

#endif

#include <X11/Xos.h>

#include <stdio.h>

#include <sys/stat.h>

#include <sys/param.h>

#include <errno.h>

#ifndef X_NOT_POSIX

#include <dirent.h>

#else

#ifdef SYSV

#include <dirent.h>

#else

#ifdef USG

#include <dirent.h>

#else

#include <sys/dir.h>

#ifndef dirent

#define dirent direct

#endif

#endif

#endif

#endif

#ifdef S_IFLNK

#define Stat lstat

#else

#define Stat stat

#endif

#define CHARSALLOWED \

"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789-_."

#define fmode_bits_minset 0444

#define fmode_bits_maxset 0777

#define fmode_bits_write  0222

#define dmode_bits_minset 0775

#ifdef X_NOT_STDC_ENV

extern int errno;

#endif

int dorcs = 1;			/* check RCS file */

int do83 = 1;			/* check for 8+3 clash */

int doro = 1;			/* disallow writable (checked out) files */

int dodot = 1;			/* disallow .files */

int dotwiddle = 1;		/* disallow file~ */

int dontcare(fn)

    char *fn;

{

    char *cp;

    if (fn[strlen(fn) - 1] == '~')

	return 1;

    cp = strrchr(fn, '.');

    return cp && (!strcmp(cp + 1, "Z") || !strcmp(cp + 1, "PS"));

}

checkfile(fullname, fn, fs)

    char *fullname, *fn;

    struct stat *fs;

{

    char *cp;

    int maxlen = 12;

    int len, mode;

    if (dodot && fn[0] == '.') {

	printf("dot file: %s\n", fullname);

	return;

    }

    for (len = 0, cp = fn; *cp; len++, cp++) {

	if (!strchr(CHARSALLOWED, *cp)) {

	    if (dotwiddle || *cp != '~' || cp[1])

		printf ("bad character: %s\n", fullname);

	    break;

	}

    }

    if (len > maxlen && !dontcare(fn))

	printf("too long (%d): %s\n", len, fullname);

#ifdef S_IFLNK

    if ((fs->st_mode & S_IFLNK) == S_IFLNK) {

	printf("symbolic link: %s\n", fullname);

	return;

    }

#endif

    mode = fs->st_mode & (~S_IFMT);

    if ((fs->st_mode & S_IFDIR) == S_IFDIR) {

	maxlen = 14;

	if ((mode & dmode_bits_minset) != dmode_bits_minset)

	    printf("directory mode 0%o not minimum 0%o: %s\n",

		   mode, dmode_bits_minset, fullname);

    } else if ((fs->st_mode & S_IFREG) != S_IFREG)

	printf("not a regular file: %s\n", fullname);

    else {

	if ((mode & fmode_bits_minset) != fmode_bits_minset)

	    printf("file mode 0%o not minimum 0%o: %s\n",

		   fs->st_mode, fmode_bits_minset, fullname);

	if (fs->st_nlink != 1)

	    printf("%d links instead of 1: %s\n", fs->st_nlink, fullname);

	if (doro && (mode & fmode_bits_write) && !dontcare(fn))

	    printf("writable: %s\n", fullname);

    }

    if ((mode & ~fmode_bits_maxset) != 0)

	printf("mode 0%o outside maximum set 0%o: %s\n",

	       mode, fmode_bits_maxset, fullname);

}

void

checkrcs(dir, p)

    char *dir;

    char *p;

{

    DIR *df;

    struct dirent *dp;

    struct stat fs;

    int i;

    if (!(df = opendir(dir))) {

	fprintf(stderr, "cannot open: %s\n", dir);

	return;

    }

    while (dp = readdir(df)) {

	i = strlen(dp->d_name);

	if (dp->d_name[i - 1] == 'v' && dp->d_name[i - 2] == ',') {

	    strcpy(p, dp->d_name);

	    p[i - 2] = '\0';

	    if (Stat(dir, &fs) < 0) {

		strcpy(p, "RCS/");

		strcat(p, dp->d_name);

		printf("not used: %s\n", dir);

	    }

	}

    }

    closedir(df);

}

int

Strncmp(cp1, cp2, n)

    char *cp1, *cp2;

    int n;

{

    char c1, c2;

    for (; --n >= 0 && *cp1 && *cp2; cp1++, cp2++) {

	if (*cp1 != *cp2) {

	    c1 = *cp1;

	    c2 = *cp2;

	    if (c1 >= 'A' && c1 <= 'Z')

		c1 += 'a' - 'A';

	    else if (c1 == '-')

		c1 = '_';

	    if (c2 >= 'A' && c2 <= 'Z')

		c2 += 'a' - 'A';

	    else if (c2 == '-')

		c2 = '_';

	    if (c1 != c2)

		return (int)c1 - (int)c2;

	}

    }

    if (n < 0)

	return 0;

    return (int)*cp1 - (int)*cp2;

}

int

fncomp(n1, n2)

    char **n1, **n2;

{

    int i, res;

    char *cp1, *cp2;

    char c1, c2;

    i = Strncmp(*n1, *n2, 8);

    if (!i) {

	cp1 = strrchr(*n1, '.');

	cp2 = strrchr(*n2, '.');

	if (cp1 || cp2) {

	    if (!cp1)

		return -1;

	    if (!cp2)

		return 1;

	    i = Strncmp(cp1 + 1, cp2 + 1, 3);

	}

    }

    return i;

}

void

checkdir(dir)

    char *dir;

{

    DIR *df;

    struct dirent *dp;

    char *p;

    struct stat fs;

    char *s, **names;

    int i, max;

    if (!(df = opendir(dir))) {

	fprintf(stderr, "cannot open: %s\n", dir);

	return;

    }

    p = dir + strlen(dir);

    if (p[-1] != '/')

	*p++ = '/';

    i = 0;

    max = 0;

    names = NULL;

    while (dp = readdir(df)) {

	strcpy(p, dp->d_name);

	if (Stat(dir, &fs) < 0) {

	    perror(dir);

	    continue;

	}

	if ((fs.st_mode & S_IFDIR) == S_IFDIR) {

	    if (dp->d_name[0] == '.' &&

		(dp->d_name[1] == '\0' || (dp->d_name[1] == '.' &&

					   dp->d_name[2] == '\0')))

		continue;

	    if (!strcmp (dp->d_name, "RCS")) {

		if (dorcs)

		    checkrcs(dir, p);

		continue;

	    }

	    if (!strcmp (dp->d_name, "SCCS"))

		continue;

	    if (!strcmp (dp->d_name, "CVS.adm"))

		continue;

	    checkfile(dir, p, &fs);

	    checkdir(dir);

	    continue;

	}

	checkfile(dir, p, &fs);

	if (dorcs && !dontcare(dp->d_name)) {

	    strcpy(p, "RCS/");

	    strcat(p, dp->d_name);

	    strcat(p, ",v");

	    if (Stat(dir, &fs) < 0) {

		strcpy(p, dp->d_name);

		printf("no RCS: %s\n", dir);

	    }

	}

	if (do83) {

	    s = (char *)malloc(strlen(dp->d_name) + 1);

	    strcpy(s, dp->d_name);

	    if (i >= max) {

		max += 25;

		if (names)

		    names = (char **)realloc((char *)names,

					     (max + 1) * sizeof(char *));

		else

		    names = (char **)malloc((max + 1) * sizeof(char *));

	    }

	    names[i++] = s;

	}

    }

    closedir(df);

    if (do83) {

	qsort((char *)names, i, sizeof(char *), fncomp);

	max = i - 1;

	*p = '\0';

	for (i = 0; i < max; i++) {

	    if (!fncomp(&names[i], &names[i + 1]))

		printf("8+3 clash: %s%s and %s\n",

		       dir, names[i], names[i + 1]);

	    free(names[i]);

	}

	if (names) {

	    free(names[i]);

	    free((char *)names);

	}

    }

}

main(argc, argv)

    int argc;

    char **argv;

{

    char buf[2048];

    argc--;

    argv++;

    while (argc > 0) {

	if (!strcmp(*argv, "-rcs")) {

	    dorcs = 0;

	    argc--;

	    argv++;

	} else if (!strcmp(*argv, "-83")) {

	    do83 = 0;

	    argc--;

	    argv++;

	} else if (!strcmp(*argv, "-ro")) {

	    doro = 0;

	    argc--;

	    argv++;

	} else if (!strcmp(*argv, "-dot")) {

	    dodot = 0;

	    argc--;

	    argv++;

	} else if (!strcmp(*argv, "-twiddle")) {

	    dotwiddle = 0;

	    argc--;

	    argv++;

	} else

	    break;

    }

    if (!argc) {

	strcpy(buf, ".");

	checkdir(buf);

    } else

	while (--argc >= 0) {

	    strcpy(buf, *argv++);

	    checkdir(buf);

	}

}