File Manager

003 File Manager

Current Path: /usr/src/contrib/tcsh

📁 ..
📄 FAQ(12.47 KB)
📄 FREEBSD-Xlist(107 B)
📄 FREEBSD-upgrade(312 B)
📄 Fixes(94.98 KB)
📄 Imakefile(13.63 KB)
📄 MAKEDIFFS(928 B)
📄 MAKESHAR(2.08 KB)
📄 Makefile.in(22.77 KB)
📄 Makefile.std(19.75 KB)
📄 Makefile.vms(18.47 KB)
📄 NewThings(6.37 KB)
📄 Ported(23.67 KB)
📄 README.md(664 B)
📄 WishList(10.86 KB)
📄 Y2K(555 B)
📄 complete.tcsh(53.67 KB)
📁 config
📄 config.guess(42.41 KB)
📄 config.h.in(7.43 KB)
📄 config.rpath(14.52 KB)
📄 config.sub(34.69 KB)
📄 config_f.h(5.45 KB)
📄 configure(224.09 KB)
📄 csh-mode.el(29.15 KB)
📄 dotlock.c(4.47 KB)
📄 dotlock.h(1.55 KB)
📄 ed.chared.c(74.68 KB)
📄 ed.decls.h(9.6 KB)
📄 ed.defns.c(50.56 KB)
📄 ed.h(9.09 KB)
📄 ed.init.c(19.51 KB)
📄 ed.inputl.c(22.96 KB)
📄 ed.refresh.c(33.56 KB)
📄 ed.screen.c(39.44 KB)
📄 ed.term.c(26.61 KB)
📄 ed.term.h(11.71 KB)
📄 ed.xmap.c(17.13 KB)
📄 eight-bit.me(4.31 KB)
📄 gethost.c(9.03 KB)
📄 glob.3(11.14 KB)
📄 glob.c(19.62 KB)
📄 glob.h(4.1 KB)
📄 host.defs(30.42 KB)
📄 imake.config(2 KB)
📄 install-sh(13.34 KB)
📄 ma.setp.c(13.76 KB)
📄 mi.termios.c(10.85 KB)
📄 mi.varargs.h(306 B)
📄 mi.wait.h(1.41 KB)
📁 nls
📄 patchlevel.h(215 B)
📄 pathnames.h(5.08 KB)
📄 sh.c(61.95 KB)
📄 sh.char.c(41.56 KB)
📄 sh.char.h(12.01 KB)
📄 sh.decls.h(14.66 KB)
📄 sh.dir.c(32.37 KB)
📄 sh.dir.h(2.3 KB)
📄 sh.dol.c(23.6 KB)
📄 sh.err.c(19.62 KB)
📄 sh.exec.c(28.26 KB)
📄 sh.exp.c(21.67 KB)
📄 sh.file.c(18.11 KB)
📄 sh.func.c(58.03 KB)
📄 sh.glob.c(20.96 KB)
📄 sh.h(37.71 KB)
📄 sh.hist.c(37.78 KB)
📄 sh.init.c(27.5 KB)
📄 sh.lex.c(37.45 KB)
📄 sh.misc.c(12.35 KB)
📄 sh.parse.c(13.14 KB)
📄 sh.print.c(6.37 KB)
📄 sh.proc.c(50.09 KB)
📄 sh.proc.h(5.16 KB)
📄 sh.sem.c(25.39 KB)
📄 sh.set.c(28.51 KB)
📄 sh.time.c(18.67 KB)
📄 sh.types.h(8.1 KB)
📄 snames.h(2.68 KB)
📄 src.desc(2.89 KB)
📄 svn(743 B)
📄 tc.alloc.c(17.09 KB)
📄 tc.bind.c(12.03 KB)
📄 tc.const.c(24.16 KB)
📄 tc.decls.h(10.49 KB)
📄 tc.disc.c(5.09 KB)
📄 tc.func.c(49.15 KB)
📄 tc.h(2.64 KB)
📄 tc.nls.c(4.29 KB)
📄 tc.nls.h(2.18 KB)
📄 tc.os.c(36.71 KB)
📄 tc.os.h(15.6 KB)
📄 tc.printf.c(9.99 KB)
📄 tc.prompt.c(16.47 KB)
📄 tc.sched.c(6.76 KB)
📄 tc.sig.c(3.53 KB)
📄 tc.sig.h(5.53 KB)
📄 tc.str.c(14.67 KB)
📄 tc.vers.c(4.29 KB)
📄 tc.wait.h(4.63 KB)
📄 tc.who.c(16.47 KB)
📄 tcsh.man(202.17 KB)
📄 tcsh.man.new(199.97 KB)
📄 tcsh.man2html(21.72 KB)
📄 termcap.vms(1.53 KB)
📄 tw.color.c(12.45 KB)
📄 tw.comp.c(14.38 KB)
📄 tw.decls.h(4.84 KB)
📄 tw.h(3.26 KB)
📄 tw.help.c(5.85 KB)
📄 tw.init.c(22.13 KB)
📄 tw.parse.c(56.96 KB)
📄 tw.spell.c(5.04 KB)
📄 vms.termcap.c(8.07 KB)

Editing: MAKESHAR

#!/bin/sh
#
# MAKESHAR.sh: Make a shar file for the sources
#

AWK=/usr/bin/nawk	# Must be nawk or gawk cause of 2D arrays
WC=/usr/ucb/wc		
GREP=/usr/bin/egrep
SORT=/usr/bin/sort
SH=/bin/sh

dirs=
name=kit
files=
verbose=0
size=45000

for i 
do
    case $i in
    -n)	
	name=;;
    -v)
	verbose=1;;
    -d)
	SH=/bin/cat;;
    -s)
	size=$1;;
    *)
	if [ -z "$name" ]
	then
	    name=$i
	elif [ -d $i ]
	then
	    dirs="$dirs $i"
	elif [ -f $i ]
	then
	    files="$files $i"
	else
	    echo "$0: File `$i' not found." 1>&2
	    exit 1
	fi;;
    esac
done
	
if [ $ -z "$files" $ -a $ -z "$dirs" $ ]
then
    echo "Usage: $0 [-n name] [-s size] [-vd] <files>."	1>&2
    exit 1
fi

$WC $files | $GREP -v total | $SORT +2 | $AWK '
    BEGIN {
	i = 0;
	seq = 1;
	size = 0;
	name = 1;
	used = 2;
	verbose='"$verbose"';
	tty = "/dev/tty";
	maxsize = '"$size"';
	dirs = "'"$dirs"'";
    };
    {
	a[i, size] = $3;
	a[i, name] = $4;
	a[i, used] = 0;
	i++;
    };
    END {
	for (maxi = i--; i >= 0; i--) {
	    idx = 0;
	    if (a[i, used] == 0) {
		if (verbose && a[i, size] > maxsize) 
		    printf("Warning: File %s is %d > %d\n",
			   a[i, name], a[i, size], maxsize) > tty;
		s = a[i, size];
		a[i, used] = 1;
		kit[seq, idx++] = i; 
		j = 0;
		while (j < maxi) {
		    # Find the greatest file we can add
		    j = maxi;
		    for (k = 0; k < maxi; k++)
			if (a[k, used] == 0 && a[k, size] + s < maxsize)
			    j = k;
		    if (j < maxi) {
			s += a[j, size];
			a[j, used] = 1;
			kit[seq, idx++] = j; 
		    }
		}
		sizes[seq] = s;
		kit[seq++, idx] = -1; 
	    }
	}
	for (i = 1; i < seq; i++) {
	    printf("shar -n%d -e%d %s ", i, seq - 1, dirs);
	    if (verbose) {
		printf("%3d of %3d: ", i, seq - 1) > tty;
		len = 12;
	    }
	    for (j = 0; kit[i, j] != -1; j++) {
		s = a[kit[i, j], name];
		if (verbose) {
		    clen = length(s) + 1;
		    len += clen;
		    if (len > 70) {
			printf("\n            ") > tty;
			len = 12 + clen;
		    }
		    printf("%s ", s) > tty;
		}
		printf("%s ", s);
	    }
	    printf("> '"$name"'-%d.shar;", i);
	    if (verbose)
		printf("= %5d\n", sizes[i]) > tty;
	}
    }' | $SH

003 File Manager

Editing: MAKESHAR

Upload File

Create Folder