utree/0407550013110001060000000000005255652775010563 5 0hanssgenIRAS 1 0 utree/BUGS1006440013110001060000000335205255652736007035 0 0 1 0 BUGS, bugs, bug fixes and extensions for utree 3.03-um, klin ============================================================================== patchlevel a: utree 3.03a-um, klin, Sun Mar 15 19:08:25 1992 ------------------------------------------------------------------------------ Bug: Window resizing has no effect for utree Fix: Handling of 8 bit characters changed (keys.h, term.c, bind.c) Bug: Bad video attributes after clearing to end of line or display on some terminal types Fix: Handle ms/msgr attribute (term.c) Bug: No visible cursor if entering a key to bind. Fix: Turned on cursor before getchar() (bind.c) Bug: If defining a filetype command the definition is regarded if no comment is given. Fix: Handle empty comment (vars.c) Bug: If creating a new directory at bottom of the tree window a following change to this directory is out of tree window. Fix: Check in gotree() if cdlist is on tree window (tree.c) Bug: No graphic characters on AIX 3.2. Fix: Used f1 for as and f0 for ae (term.c, utree.prlist.c) ------------------------------------------------------------------------------ Ext: Search in history list by number (!num) or string (!string) (hist.c) ============================================================================== patchlevel b: utree 3.03b-um, klin, Thu Mar 19 10:58:09 1992 ------------------------------------------------------------------------------ Bug: Core dump when entering C-u in line editor Fix: Catch unhandled key symbols K_UP, K_STR, K_INV in editline() (edit.c) Bug: Utree hangs if defining a not pre-defined command variable Fix: Don't free empty strings (vars.c) ------------------------------------------------------------------------------ utree/README1006440013110001060000002661305255652737007240 0 0 1 0 UTREE - screen oriented filesystem utility README, klin, Mon Feb 24 20:02:52 1992 ------------------------------------------------------------------------------ Utree is a screen oriented filesystem utility for navigation thru fileystems and doing some default and user defined commands on directories and files. For usage and documentation see the manual pages utree and utree.prlist. For copyright notice, warranty and distribution conditions see COPYRIGHT. ------------------------------------------------------------------------------ Utree is first implemented and tested on a PCS CADMUS 9230 (Motorola MC68010) running MUNIX V.2/07 (System V.2) and then ported to, compiled and tested on some others machines running UNIX System V.3, BSD4.2 and BSD4.3 or look alikes. The release utree 3.03-um is developed on a MIPS RC3230 running RISC/os 4.51. + MIPS RC3230, RISC/os 4.51 (System V.3, MIPS R3000) + PCS Cadmus 9600, MUNIX V.3M3.2 (System V.3, MC68020) + PCS Cadmus 9900, MUNIX V.3R3.2 (RISC/os 4.0 like System V.3, MIPS R[23]000) + SUN SPARCstation2, SunOS 4.1.1 (BSD4.3, SPARC) + Silicon Graphics 4D, IRIX V.3.2.2 (System V.3, MIPS R[23]000) + IBM 520, AIX 3.1 (System V.3, RS/6000) + HP Vectra, SCO UNIX/386 V.3.2 (System V.3, i486) + NoName-AT386, SCO XENIX SysV 2.3.2 386 GT (by Rolf Gebhardt) + Sequent Symmetrie, Dynix i386 2.0v2 (BSD 4.2, 10 x i386) + Convex C120, ConvexOS 8.1 (BSD 4.2) + Nixdorf TARGON/35, TOS 3.2-03 (BSD 4.2) + DEC Decstation 5000/200, Ultrix-32 1.3 (Rev. 54) (BSD 4.3, MIPS R3000) + DEC Vaxstation 3100, Ultrix-32 1.3 (Rev. 9) (BSD 4.3, VAX) + Apollo Domain DN4500, DomainIX 9.5 (BSD4.2 and System V) + DEC VAX/750, 4.3 BSD UNIX Other known ports are done to a lot of other boxes and UNIXes. ------------------------------------------------------------------------------ If you wish to install utree on your system do the following steps: 1 CHECK if you have all source files. The file MANIFEST contains a list of all distributed files with a short description. 2 CHECK AND CHANGE Makefile AND src/Makefile FOR YOUR SYSTEM IF NEEDED. The Makefiles should be self explanatory enough for changes you have to do. There are some example Makefiles for different systems contained in the directory sys. For a complete list of defines and some hints see below. [ for comp.sources.unix, there is no default Makefile. you must select one from sys/Makefile.* and either copy or link it to src/Makefile. the author's Makefile is shipped as sys/Makefile.SCO. --vix ] 3 CHECK AND CHANGE src/conf.h FOR YOUR SYSTEM IF NEEDED. See below for the meaning of some defines in conf.h you may have to change for your system. There are some example configuration files conf.h for different systems contained in the directory sys. If your system doesn't support vsprintf(3) for formatted output to a string with variable number of arguments (most BSD systems don't) and you wish to use this function look at directory sup containing a public domain version of vsprintf(3) and vfprintf(3). Copy vsprintf.c to directory src and change your Makefile for compiling vsprintf and linking vsprintf into utree. For a complete list of defines in conf.h and some hints see below. [ for comp.sources.unix, there is no default conf.h. you must select one from sys/conf.h.* and either copy or link it to src/conf.h. the author's conf.h is shipped as sys/conf.h.SCO. --vix ] 4 Call 'make all' or 'make' to compile and link utree and utree.prlist. 5 Call 'bin/utree .' for testing utree. 6 Check and edit bin/utree.backup if you wish to allow filesystem or directory backups from within utree. Check and edit bin/utree.mklist for creating directory tree lists from without utree (this is normally not needed). 7 See the example startup file lib/utree.startup and the example key binding file lib/utree.binding for usage of startup files and key binding files. 8 Call 'make install' to install the utree executables into a public bin directory defined in the Makefile. May be you have to login as root before. 9 Have fun and enjoy. ------------------------------------------------------------------------------ Currently distributed Makefiles and configuration files conf.h in sys are sys/*.286 - UNIX V/286/386 compatibility mode (MSC under SCO) sys/*.AIX - AIX 3.1 (IBM 520, RS/6000) sys/*.APP - DomainIX 9.5 (Apollo Domain DN4500) sys/*.BSD - Generic BSD4.2 and BSD4.3 sys/*.CON - ConvexOS 8.1 (Convex C120) sys/*.M16 - MUNIX V2/07 (PCS Cadmus 9230, MC68010) sys/*.M32 - MUNIX V3.2 (PCS Cadmus 9600, MC68020) sys/*.MIPS - RISC/os 4.51 (MIPS RC3230, R3000) sys/*.RCU - MUNIX V3.2 (PCS Cadmus 99xx, MIPS R2000/3000) sys/*.SCO - SCO UNIX System V/386 3.2 (HP Vectra) sys/*.SEQ - Dynix i386 (Sequent Symmetrie, 10xi386) sys/*.SGI - IRIX V.3.2 (Silicon Graphics 4D, MIPS R3000) sys/*.SUN - SunOS 4.1.1 (SUN4, SPARC) sys/*.ULT - Ultrix-32 3.1 (DECstation, VAXstation) sys/*.V.2 - Generic System V.2 sys/*.V.3 - Generic System V.3 sys/*.VAX - 4.3 BSD UNIX (DEC VAX/750) sys/*.X23 - SCO XENIX SysV 2.3.2 386GT (NoName-AT386) ------------------------------------------------------------------------------ Utree is written in standard K&R C, not in ANSI C. If you are using an ANSI C compiler check and set the appropiate compiler option for accepting standard C code. The other compile and link options in the Makefile are CFLAGS normal compiler flags and defines (for utree and utree.prlist) MFLAGS floating point compiler flag (for utree.prlist) LFLAGS loader flags (for utree and utree.prlist) LIBS needed libraries (for utree and utree.prlist) MLIBS floating point library (for utree.prlist) LLIBS local libraries (i.e. shared libraries) CC the C compiler command SRCS list of utree source files OBJS list of utree object files If your system is BSD or BSD-like and doesn't support the getopt(3) commandline parser function, copy getopt.c from directory sup to the source directory sys and add getopt.c and getopt.o to the SRCS and OBJS variables in src/Makefile. See sys/Makefile.BSD for and example. The tree list program utree.prlist also uses getopt(). Possible defines in the makefile src/Makefile define BSD for BSD systems (default: SYSV) define AIX for IBMs UNIX version AIX define XENIX for XENIX system define APOLLO for adding some special stuff for APOLLO networks define VOID=int if your compiler doen't support void define UTLIB=libdir if not defined in conf.h (see below) ------------------------------------------------------------------------------ Meaning of some defines in the system configuration file conf.h: #define HASVPRINTF if your system is BSD or BSD-like and supports the varargs vsprintf(3) function. Some BSD systems need additional libraries at link time for vsprintf(). The directory sup contains a public domain version of vsprintf() which you can compile and link into utree. If you want to use this function copy vsprintf.c from directory sup to src and change the makefile to include vsprintf.c and vsprintf.o in SRCS and OBJS. But you should test vsprintf before because usage vsprintf may not work or result in core dumps! SYSV needs not to define HASVPRINTF. #define HASFIONREAD if your system is SYSV and supports the FIONREAD call to ioctl(2) to get the number of characters to read i.e. for typeahead(). Check if ioctl(0, FIONREAD, &n) sets n to the correct number of characters already typed in. My own system (MUNIX V.2/07) i.e. fails, but most SYSV, especially those which support sockets, return the correct result in n. The directory tst contains a simple test program fionread.c for testing the ioctl-call. BSD needs not to define HASFIONREAD. #define HASVFORK if your system is SYSV and supports the vfork(2) systemcall. My own system i.e. supports the vfork(2) systemcall. AIX otherwise supports vfork(2) when linking in the BSD compatibility library libbsd.a (-lbsd) but in this case the signal handling is also BSD-like and resizing the screen may not work correctly. BSD needs not to define HASVFORK. #define NODIRENT if your system is SYSV or another older system and doesn't support the directory type struct dirent and the directory access functions opendir(3), closedir(3) and readdir(3). Check the include file /usr/sys/dirent.h for struct dirent or the manual pages for the directory access functions. If your system doesn't support struct dirent utree assumes a standard UNIX filesystem with struct direct and filename length of at least 14 characters and emulates the directory functions with file access functions. BSD needs not to define NODIRENT. #undefine NOWINCHG to permit resizing of the screen at runtime, i.e. after resizing a xterm under X. Your system has to support the signal SIGWINCH after resizing the screen and the ioctl(2) call TIOCGWINSZ to get the new screen size in a record winsize. Not all systems defining SIGWINCH and TIOCGWINSZ fill the winsize record in a correct manner, i.e. SCO UNIX V.3.2/386. Check the include files /usr/signal.h or /usr/sys/signal.h for SIGWINCH and /usr/include/sys/ioctl.h, /usr/include/termio.h or /usr/include/sys/termio.h for TIOCGWINSZ and struct winsize. The directory tst contains a simple test program winsize.c for testing resizing and properly signal and winsize handling. #define STRUCTCOPY(from, to) to an appropiate memory copy function if your compiler doesn't support assignments of a struct variables like struct_variable_to = struct_variable_from. On SYSV define as memcpy(to, from, sizeof(from)), on BSD as bcopy(from, to, sizeof(from)). (See conf.h). #define UTCLOCK to allow clock display/update every second. #define UTLIB as a directory containing utree startup files for global definitions (utree), key bindings (utree-$TERM) and the tree help pages (utree.help). The default name of this global library directory is defined as /usr/local/lib. But this directory may also be set in the environment variable $UTLIB. Last but not least check the pre-defined system commands defined in cmds.h and change them to your preferred commands, for example the editor, pager or hexdumper. But all these commands may also be set in the global startup file $UTLIB/utree or in user's startupfile $HOME/.utree. ------------------------------------------------------------------------------ If you find bugs (there are some bugs - i'm sure) or make changes to utree please send me bug reports (and bug fixes) and/or your changes. The file TODO denotes some extensions to utree which should be done in the next time. If you have questions about utree feel free to send me your questions. I hope I have the time to answer to you. My address: Peter Klingebiel Busdorfwall 18 D-4790 Paderborn Internet: klin@iat.uni-paderborn.de ------------------------------------------------------------------------------ 2, 10 x i386) + Convex C120, ConvexOS 8.1 (BSD 4.2) + Nixdorf TARGON/35, TOS 3.2-03 (BSD 4.2) + DEC Decstutree/TODO1006440013110001060000000144405255652737007043 0 0 1 0 UTREE - screen oriented filesystem utility TODO, klin, Mon Feb 24 20:05:49 1992 -> The system configuration file conf.h and the Makefiles could be configured automatically! -> Instead of really removing files use save-remove with possibility to restore so save-removed files, i.e. 'mv filename .#filename' (instead of 'rm filename') 'rm .#filename' before exiting utree -> Extend file patterns, i.e. file mode ... -> More sophisticated removing of subtrees -> More sophisticated menu handling -> Use colors instead of video attributes on color terminals -> Use of the curses library for screen dependent functions instead of own coded functions (???) -> Port to X11/Motif (???) files conf.h for different systems contained in the directory sys. If your system doesn't support vsprintf(3) for formatted output to a string with variable number of arguments (most BSD systems don't)utree/bin/0407550013110001060000000000005255652746007123 5 0 1 0 utree/bin/qtree1007550013110001060000000053105255652737010776 037777777777 1 0 : # # QTREE.SH # Quick startup utree # 3.03-um klin, Sun Feb 16 16:07:25 1992 # Usage: like utree # Options: like utree # Directory: /usr/local/bin # # SCCSID = @(#) utree 3.03-um (klin) Feb 16 1992 bin/qtree.sh # USAGE = @(#) Usage: qtree [utree_options] exec utree -q $@ stributed Makefiles and configuration files conf.h in sys are sys/*.286 - UNIX V/286/386 compatibility mode (MSC under SCO) sys/*.AIX - AIX 3.1 (IBM 520, RSutree/bin/utree.backup1007550013110001060000000245105255652740012243 037777777777 1 0 : # # UTREE.BACKUP.SH # UTREE backup directories and/or filesystems # 3.03-um klin, Sun Feb 16 16:07:46 1992 # Usage: utree.backup backup_listfile # Directory: /usr/local/bin # Version: CADMUS MUNIX V.xx and RISC/os 4.xx # # Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. # For copying and distribution information see the file COPYRIGHT. # # SCCSID = @(#) utree 3.03-um (klin) Feb 16 1992 bin/utree.backup.sh # USAGE = @(#) Usage: utree.backup backup_listfile if test -w /dev/ris0 # Backup device on MUNIX V.3 then DEVICE=/dev/ris0 OPTION=DS isctrl -i isctrl -N elif test -w /dev/rst1 # Backup device on SunOs 4.x.x then DEVICE=/dev/rst1 OPTION= elif test -w /dev/rst0 # Backup device on MUNIX V.2 then DEVICE=/dev/rst0 OPTION=DS elif test -w /dev/rmt/ctape0 # Backup device on RISC/os 4.xx then DEVICE=/dev/rmt/ctape0 OPTION= else echo "utree.backup: No tape device found" exit 1 fi if test $# -eq 1 then LIST=$1 else echo "Usage: utree.backup backup_listfile" exit 1 fi echo echo "UTREE.BACKUP from file $LIST to $DEVICE" echo <$DEVICE # Rewind if [ $? -ne 0 ] then exit 1 fi cpio -ov$OPTION >$DEVICE <$LIST # Backup exit $? variables in src/Makefile. See sys/Makefile.BSD for and example. The tree list program utree.prlist also uses getopt(). Possible defines in the makefile src/Makefile define BSD for BSD systems (defaultutree/bin/utree.mklist1007550013110001060000000223005255652740012274 037777777777 1 0 : # # UTREE.MKLIST.SH # UTREE create tree directory list for quicker startup # 3.03-um klin, Sun Feb 16 16:08:03 1992 # Usage: utree.mklist [-a] [root_directory list_file] # Options: -a Read in all (including hidden) directories # Directory: /usr/local/bin # # Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. # For copying and distribution information see the file COPYRIGHT. # # SCCSID = @(#) utree 3.03-um (klin) Feb 16 1992 bin/utree.mklist.sh # USAGE = @(#) Usage: utree.mklist [-a] [root_directory list_file] if test $# -ne 0 -a "$1" = "-a" # Option given ? then AFLAG=-a shift else AFLAG= fi if test $# -eq 2 # Rootdirectory given ? then ROOT=$1 LIST=$2 elif test $# -eq 0 # Rootdirectory is homedirectory then ROOT=$HOME LIST=$HOME/.utreelist else echo "Usage: utree.mklist [-a] [root_directory list_file]" exit 1 fi echo "# UTREE tree list created at `date`" >$LIST if test "$AFLAG" = "-a" then find $ROOT -type d -print | sort >>$LIST else find $ROOT -type d -print | grep -v "/\." | sort >>$LIST fi exit 0 supports the vfork(2) systemcall. AIX otherwise supports vfork(2) when linking in the BSD compatibility library libbsd.a (-lbsd) but in this case the signal handling is also BSD-like and resizing the screen may not work correctly. BSD needs not to define HASVFORK. #define NODIRENT if your system is SYSV or another older system utree/bin/xtree1007550013110001060000000074605255652740011007 037777777777 1 0 : # # XTREE.SH # Start utree on x terminal if possible # 3.03-um klin, Sun Feb 16 16:08:16 1992 # Usage: like utree # Options: like utree # Directory: /usr/local/bin # # SCCSID = @(#) utree 3.03-um (klin) Feb 16 1992 bin/xtree.sh # USAGE = @(#) Usage: xtree [utree_options] if test ! -z "$DISPLAY" -a -x /usr/bin/X11/xterm then exec /usr/bin/X11/xterm -g 80x24 -bw 2 -n "utree" -e utree $@ & else exec utree $@ fi sr/sys/signal.h for SIGWINutree/bin/utree.mklist21007550013110001060000000502405255652746012370 037777777777 1 0 : # UTREE.MKLIST.SH # UTREE create tree directory list for quicker startup # 3.00-um klin, Sat Apr 20 11:27:17 1991 # Usage: utree.mklist [-a] # Options: -a Read in all (including hidden) directories # Directory: /usr/local/bin # # Copyright (c) 1991 by Peter Klingebiel & UNIX Magazin Muenchen. # For copying and distribution information see the file COPYRIGHT. # # SCCSID=@(#) utree.mklist.sh (utree 3.00-um) Apr 20 1991 # # # Introduction of sort fields by Rolf Gebhardt # # avoids funny sort orders, e.g. # # /u/user/utree/utree.um # /u/user/utree/utree.um.1 # /u/user/utree/utree.um.1/bin # /u/user/utree/utree.um.1/doc # /u/user/utree/utree.um/bin # /u/user/utree/utree.um/doc # # the right sort order, which represents the directory-tree, is # # /u/user/utree/utree.um # /u/user/utree/utree.um/bin # /u/user/utree/utree.um/doc # /u/user/utree/utree.um.1 # /u/user/utree/utree.um.1/bin # /u/user/utree/utree.um.1/doc # # # LIST=$HOME/.utreelist # List file FIELDS="" # Sort Field List generated below # dependent on number of directory levels if test $# -eq 0 # Check option then AFLAG= elif test $# -eq 1 -a "$1" = "-a" then AFLAG=-a else echo "Usage: utree.mklist [-a]" exit 1 fi # count the number of directory levels # (to do it with 'awk' would be more elegant, but the method # used here is faster than 'awk') # # e.g. for '/u/user/wrk/bin/xxx' we get 5 slashes plus one \n, # so 'wc' returns 6 # the number of fields to sort is 5 # sort field 0 is always empty nofields=`find $HOME -type d -print | tr -cd "\012/" |\ sort -r | head -1 | wc -c | tr -d "\040\011"` nofields=`expr $nofields - 1` # (debug statement) # echo "nofields = $nofields" # # generate the sort-fields parameter for 'sort' # while [ $nofields -gt 1 ] do FIELDS="-$nofields +$nofields $FIELDS" nofields=`expr $nofields - 1` done FIELDS="+1 $FIELDS" # (debug statements) # echo "fields: $FIELDS" # exit echo "# utree tree list created at `date`" >$LIST if test "$AFLAG" = "-a" then find $HOME -type d -print | sort -t/ $FIELDS >>$LIST else find $HOME -type d -print | grep -v "/\." | sort -t/ $FIELDS >>$LIST fi exit 0 moving of subtrees -> More sophisticated menu handling -> Use colors instead of video attributes on color terminals -> Use of the curses library for screen dependent functions instead of own coded functions (???) -> Port to X11/Motif (???) files conf.h for different systems contained in the directory sys. If your system doesn't support vsprintf(3) for formatted output to a string with variable number of arguments (most BSD systems don't)utree/doc/0407550013110001060000000000005255652763007117 5 0 1 0 utree/doc/utree.prlist.11006440013110001060000000440405255652740012444 037777777777 1 0 '''\" '''\" utree.prlist.man '''\" klin, Fri Mar 6 11:21:41 1992 '''\" '''\" [x]roff -man utree.prlist.man '''\" groff -man [-Tdevice] utree.prlist.man '''\" '''\" SCCSID = @(#) utree.prlist..man 3.03-um Mar 6 1992 '''\" .TH UTREE.PRLIST 1L "UTREE Version 3.03-um" "March 6 1992" .SH NAME .LP \fButree.prlist\fR \- Filter \fButree\fR tree list files .SH SYNOPSIS .LP utree.prlist [options] listfile .SH DESCRIPTION .LP \fButree.prlist\fR reads a formatted directory tree list file \fBlistfile\fR previously created from within \fButree\fR on the \fItree screen\fR with the out-command (\fBo\fR) and the list-option (\fBl\fR). The tree list can be converted to various output formats for different output devices and printers (see below). The converted tree list is written to stdout. .SH OPTIONS .LP The following command line options are interpreted by \fButree.prlist\fR: .sp .TP 16 \fB-T dev\fR Create output for device \fBdev\fR. Currently supported devices see below. .TP \fB-V\fR Display program version and exit. .TP \fB-d dev\fR Create output for device \fBdev\fR. Currently supported devices see below. .TP \fB-f fnt\fR Use font \fBfnt\fR. This option is meaningful only for postscript (default: Courier-Bold). .TP \fB-h\fR Display some help about usage and options. .TP \fB-i ind\fR Set tree indention to \fBind\fR columns (3 .. 9, default: 6). .TP \fB-s siz\fR Use font size \fBsiz\fR. This option is meaningful only for postscript (default: 10). .SH OUTPUT FORMATS .LP Currently supported output formats or devices are: .sp .TP 16 \fBascii\fR ASCII using graphical meta characters (-|+). .TP \fB850\fR Printers supporting the IBM international character set PC850. .TP \fBps\fR ADOBE POSTSCRIPT printers or previewers. .TP \fBterm\fR Terminals using graphical characters if defined (default). .PP .SH SEE ALSO .LP utree(1L) .SH AUTHOR .LP Peter Klingebiel .SH COPYRIGHT .LP \(co 1991/92 Peter Klingebiel & UNIX Magazin Munich .sp Permission is granted to copy and distribute \fButree\fR in modified or unmodified form, for noncommercial use, provided (a) this copyright notice is preserved, (b) no attempt is made to restrict redistribution of this file, and (c) this file is not distributed as part of any collection whose redistribution is restricted by a compilation copyright. ON >$DEVICE <$LIST # Backup exit $? variables in src/Makefile. See sys/Makefile.BSD for and example. The tree list program utree.prlist also uses getopt(). Possible defines in the makefile src/Makefile define BSD for BSD systems (defaultutree/doc/utree.11006440013110001060000012504205255652763010326 0 0 1 0 '''\" '''\" utree.man, utree 3.03-um manual page '''\" klin, Fri Mar 6 11:31:02 1992 '''\" '''\" [x]roff -man utree.man '''\" groff -man [-Tdevice] utree.man '''\" '''\" SCCSID = @(#) utree.man 3.03-um Mar 6 1992 '''\" .TH UTREE 1L "UTREE Version 3.03-um" "March 6 1992" .SH NAME .LP \fButree\fR \- Screen oriented filesystem browser and utility .SH SYNOPSIS .LP utree [options] [rootdirectory] .SH DESCRIPTION .LP The screen oriented filesystem browser and utility \fButree\fR descends the directory hierarchy rooted in your home directory, defined in a tree list file if given, or rooted in \fBrootdirectory\fR if given, and displays the directory tree on the so called \fItree screen\fR. On the \fItree screen\fR \fButree\fR lets you walk thru the tree, execute some default and user defined commands on it and change to any directory in the tree. .br If you have changed to a directory \fButree\fR displays all files in this directory on the so called \fIfile screen\fR. On the \fIfile screen\fR \fButree\fR lets you walk thru the file list and execute some default and user defined commands on files. .SH OPTIONS .LP The following command line options are interpreted by \fButree\fR: .sp .TP 16 \fB-L\fR Follow symbolic links to directories .TP \fB-S\fR Ignore default minimal screen size of 80 columns and 24 lines .TP \fB-V\fR Display \fButree\fR version and copyright notice .TP \fB-a\fR Read in all directories, including those that begin with a dot (.), which are normally skipped .TP \fB-b\fR Suppress ringing of the bell (useful for visual bells) .TP \fB-c\fR Don't display and update a clock every second .TP \fB-d var=[val]\fR Set the variable \fBvar\fR to value \fBval\fR or unset the variable \fBvar\fR .TP \fB-d typ:[cmd]\fR Define the command \fBcmd\fR for the filetype \fBtyp\fR or undefine any command for the filetype \fBtyp\fR .TP \fB-f lst\fR Build directory tree from list file \fBlst\fR .TP \fB-g\fR Don't use graphical characters .TP \fB-h\fR Display usage and some help about options .TP \fB-i ind\fR Set the tree level indention to \fBind\fR columns (3..9) .TP \fB-n\fR Avoid scanning the tree for changes i.e. after shell escape .TP \fB-l lev\fR Build the tree up to level \fBlev\fR for quicker startup .TP \fB-o\fR Omit saving changes in variables and filetype command definitions, command history and key bindings .TP \fB-p lin\fR Use \fBlin\fR lines for displaying filenames of the current directory on the \fItree screen\fR (default: 3) .TP \fB-q\fR Build the tree up to level 2 (like -l 2) .TP \fB-r\fR Build the tree scanning and reading the file system instead of reading a tree list file .TP \fB-s\fR Don't use hardware scrolling .TP \fB-u\fR Read and update all file lists after building the tree from a tree list file .TP \fB-v mod\fR Set using video attributes to mode \fBmod\fR. \fBmod\fR may be \fB2\fR for all possible, \fB1\fR for bold and underline and \fB0\fR for none video attributes. .TP \fB-w\fR Suppress warnings about unreadable directories .TP \fB-x cmd\fR Use and execute the string \fBcmd\fR as initial input at startup. The string \fBcmd\fR is a simple sequence of \fButree\fR commands .PP The boolean options \fBbcgnosw\fR and the numerical options \fBipv\fR may also be pre-set in the environment variable \fBUTREE\fR. E.g. if you want to suppress ringing of the bell and displaying and updating the clock and if you prefer a tree indention of 4 columns set the environment variable \fBUTREE\fR to '\fBbci4\fR' for this reason. .br Most of the options correspond to \fButree\fR variables and therefore they may also be set or unset with the variable command (\fB=\fR). See the sections \fIglobal commands\fR and \fIvariables\fR below. .SH UTREE STARTUP .LP If \fButree\fR is called without the optional command line parameter \fBrootdirectory\fR or this directory is rooted in your home directory \fButree\fR tries to build up the directory tree reading a file \fB.utreelist\fR in your home directory, which contains a list of your directory tree created by a previous \fButree\fR session or by the additional shell script \fButree.mklist\fR called before. If the command line option \fB-f lst\fR is given \fButree\fR builds up the tree from this list file \fBlst\fR which may be created with the denoted shell script \fButree.mklist\fR or a command like \fBfind\fR. Entries in such list files have to start with the directory separator / (slash) in the first column of the line. All other entries are ignored and skipped. .sp If building the tree from a list file the file lists of directories are created and read in on demand only, which means when a directory becomes the current directory by moving the cursor to this directory. This speeds up the start of \fButree\fR because there is no need for scanning and reading the filesystem for subdirectories what may take some time for larger filesystems. .sp In all others cases, if no list file is given with the command line option \fB-f lst\fR, \fBrootdirectory\fR is rooted in your home directory and the file \fB.utreelist\fR is not found, or the command line option \fB-r\fR is given \fButree\fR builds up the tree by scanning and reading the filesystem recursively. You can speed up the start with the commandline option \fB-l lev\fR which causes \fButree\fR to build the initial directory tree only up to level \fBlev\fR similar to the option \fB-l\fR of the well known \fBfind\fR command. At runtime some commands let you expand the directory tree later and inspect directories and subtrees not visible at startup (see below). .SH SCREEN LAYOUT .LP The screen is divided into three regions. The top screen line, the so called \fIecho line\fR is for displaying messages and entering input. The second screen line, the so called \fIhelp line\fR is for displaying help messages and the \fButree\fR default or user defined menu lines. .br The rest of the screen forms a window on the directory tree on the \fItree screen\fR or on the file list of the current directory on the \fIfile screen\fR. Or he is used for displaying variable or filetype commands settings, for displaying help pages and displaying command outputs. .SH UTREE SCREENS AND MENUS .LP \fBUtree\fR knows the following screens and menus: .sp .TP 20 \fBtree screen\fR This is the initial screen displayed when \fButree\fR is started and has built up the directory tree. The \fItree screen\fR forms a window on the directory tree. The current directory on which most commands are working is highlighted and the last screen lines are used to display the first files of the file list of the current directory. You may move the window over the directory tree, enlarge or shrink the directory tree window or walk thru the directory tree and execute default and user defined commands on directories and subtrees. On the help line the most important commands available for directories or subtrees on the \fItree screen\fR are shown in the default \fItree menu\fR. The tree menu shows the names of the the \fItree screen\fR commands, the keystrokes to invoke a command are marked with uppercase letters. You may switch the menu to a user defined menu line displaying user defined commands for the \fItree screen\fR. For further information about all \fItree screen\fR commands see the sections \fIglobal commands\fR, \fItree screen commands\fR and \fIvariables\fR of this manual page. .sp .TP \fBfile screen\fR The \fIfile screen\fR forms a window on all files of the current directory. The current file on which most commands are working is highlighted. Yoy may move the window over the file list or walk thru the file list and execute default and user defined commands on files. On the help line the most important commands for files available on the \fIfile screen\fR are shown in the default \fIfile menu\fR. The file menu displays the names of the the \fIfile screen\fR commands, the keystrokes to invoke a command are marked with uppercase letters. You may switch the menu to a user define menu line displaying user defined commands for the \fIfile screen\fR. For further information about all \fIfile screen\fR commands see the sections \fIglobal commands\fR, \fIfile screen commands\fR and \fIvariables\fR of this manual page. .sp .TP \fBhelp screen\fR If you have switched to the \fIhelp screen\fR with the help command (\fBh\fR) on the help line the \fIhelp menu\fR is displayed and you may select help about interesting topics. The help menu displays the names of all available help topics, the keystrokes to select help about a topic are marked with uppercase letters. For more information see the section \fIhelp pages\fR below. .sp .TP \fBvariables screen\fR If you have switched to the \fIvariables\fR screen with the variables command (\fB=\fR) all variables and their settings are displayed and you may set or unset any of the variables. On the help line is shown how to set or unset a variable in a short form. All changes in variables definitions are saved to the file \fB.utree\fR in your home directory if the variable \fBAUTOSAVE\fR is set. For more information see the section \fIvariables\fR below. .sp .TP \fBcommands screen\fR If you have switched to the filetype \fIcommands screen\fR with the filetype commands command (\fB:\fR) all filetype commands and their settings are displayed and you may set or unset any of the filetype commands. On the help line is shown how to set or unset a filetype command in a short form. All changes in filetype command definitions are saved to the file \fB.utree\fR in your home directory if the variable \fBAUTOSAVE\fR is set. For more information see the section \fIfiletype commands\fR below. .sp .TP \fBshell screen\fR If you have switched to the \fIshell screen\fR with the shell command (\fB!\fR) for executing commands not supported directly by \fButree\fR all previously entered commands saved in a so called history list are displayed on the \fIshell screen\fR. You may get any command from the history list into the line editor for editing and execution or enter and execute a new command. All commands up to a maximal number defined in the variable \fBHISTSIZE\fR are saved in the history list. Before leaving \fButree\fR all saved commands in the history list are saved to a history file \fB.utreehist\fR in your home directory if the variable \fBAUTOSAVE\fR is set. At startup this file is searched for and read in if found. For more information see also the section \fIvariables\fR below. .sp .TP \fBbindings screen\fR If you have switched to the \fIbindings screen\fR with the bindings command (\fB|\fR) all currently defined key bindings and their meaning are displayed and you may bind any key to an appropriate utree command or to insert a string into the input buffer. At startup a file \fB.utree-TERM\fR in your home directory or a file \fButree-TERM\fR in a global startup directory is read in if found containing key bindings for the terminal type defined in the environment variable \fBTERM\fR. All changes in key bindings you have done on the \fIbindings screen\fR at runtime are saved to \fB.utree-TERM\fR if the variable \fBAUTOSAVE\fR is set. For more information see also the section \fBkey bindings\fR below. .sp .TP \fBstatus screen\fR The status command (\fBs\fR) displays all information available about a file or directory on the \fIstatus screen\fR. Here you may change the ownership, group membership or access rights of a file or directory. On BSD systems not all of the denoted changes may be allowed for normal users. .SH KEY NAMING CONVENTIONS AND DEFAULT KEY BINDINGS .LP All \fButree\fR commands are simple single letter commands or control sequences. The default or user defined commands therefore are invoked with a single keystroke or a combination of the <\fICONTROL\fR> key with another key. The naming conventions in the following manual sections for \fButree\fR commands invoked by a keystroke are: .sp .TP 20 \fBkey\fR means hit this <\fIkey\fR> only .TP \fBC-key\fR means hold down the <\fICONTROL\fR>-key and hit <\fIkey\fR> .PP To permit rebinding of pre-defined keys or binding functions keys to \fButree\fR commands all control sequences have special names. All key or functions names and their default bindings are list in the table below .TP 20 \fBSELECT\fR CR, NL .TP \fBFORWARD\fR C-f .TP \fBBACKWARD\fR C-b .TP \fBNEXT\fR C-n .TP \fBPREVIOUS\fR C-p .TP \fBNEXTPAGE\fR C-v .TP \fBPREVPAGE\fR C-w .TP \fBBEGIN\fR C-a .TP \fBEND\fR C-e .TP \fBUP\fR C-u .TP \fBDOWN\fR C-d .TP \fBINSERT\fR C-o .TP \fBDELETE\fR BS .TP \fBKILL\fR C-k .TP \fBSETMARK\fR C-@ .TP \fBGOTOMARK\fR C-g .TP \fBGOTOTAG\fR C-t,TAB .TP \fBHELP\fR C-r .TP \fBREFRESH\fR C-l .TP \fBCANCEL\fR C-x .TP \fBBREAK\fR C-c,C-y .TP \fBEXIT\fR C-z .PP In the following sections of this manual page the default key bindings are used instead of the names or functions. .PP Some function keys are supported by \fButree\fR, i.e. the four arrow or cursor keys, and are bound to appropriate functions. See the sections \fIkey bindings\fR and \fIfunction keys\fR below for more details. .SH HELP PAGES .LP If the \fButree\fR help pages contained in the file \fButree.help\fR are accessible in a directory defined at compile time or defined in the environment variable \fBUTLIB\fR you can get help on all screens or from within the line editor with the help command (\fBh\fR or \fB?\fR) or the help key (\fBC-r\fR). After displaying help about your current context, i.e. help about tree commands if you are on the \fItree screen\fR, you can switch to the help menu and select help about all topics with a single keystroke. All \fIhelp screen\fR commmands and the menu items of the help menu displayed on the help line are: .sp .TP 16 \fBh\fR (Help) About the help pages and the help menu .TP \fBa\fR (About) Information about \fButree\fR and key naming conventions .TP \fBu\fR (Usage) Description of \fButree\fR usage and commandline options .TP \fBg\fR (Global) Global commands common for the \fItree\fR and the \fIfile screen\fR .TP \fBt\fR (Tree) Commands for the \fItree screen\fR .TP \fBf\fR (File) Commands for the \fIfile screen\fR .TP \fBe\fR (Edit) Commands of the builtin line editor .TP \fBv\fR (Vars) \fBUtree\fR variables and variable definition .TP \fBc\fR (Cmds) Filetype commands and filetype command definition .TP \fBl\fR (Line) Line format for user defined tree, file and filetype commands. .TP \fBk\fR (Keys) Function keys used by \fButree\fR .TP \fBp\fR (Patterns) File pattern matching, filename, modification time and file size patterns .TP \fBq\fR (Quit) Leave \fIhelp screen\fR .PP The help pages contain in short form most information given in the sections of this manual page. .SH GLOBAL COMMANDS .LP The following commands are common for the \fItree\fR and \fIfile screen\fR They can be given in lowercase or uppercase letters: .sp .TP 20 \fBC-z\fR Exit \fButree\fR from all screens .TP \fBC-c,C-y\fR Cancel or break current command or input .TP \fBC-l\fR Redisplay the current screen or the input line .TP \fBTAB,C-t\fR Move to the next tagged file or the next directory containing tagged files .TP \fBh,?,C-r\fR Display help pages and switch to the \fIhelp screen\fR and the help menu .TP \fB@,C-@\fR Mark the current directory or file .TP \fB#,C-g\fR Goto to a previously marked directory or file .TP \fBa\fR Display \fButree\fR version and copyright notice .TP \fBd\fR Display current date and time .TP \fBj\fR Move to the next directory or file (for vi fans) .TP \fBk\fR Move to the previous directory or file (for vi fans) .TP \fBn\fR Change sort criteria from lexical order to modification time order or vice versa and resort files in the file list .TP \fBt\fR Tag files matching a file pattern for further processing .TP \fBu\fR Untag files .TP \fBw\fR Display full pathname of the current directory .TP \fBz\fR Zoom files from filelist matching a file pattern .TP \fB=\fR Switch to the \fIvariables screen\fR, display and set or unset variables .TP \fB:\fR Switch to the \fIcommands screen\fR, display and set or unset filetype commands .TP \fB|\fR Switch to the \fIbindings screen\fR, display all key bindings and bind or rebind keys .TP \fB!\fR Switch to the \fIshell screen\fR, display all commands from the shell command history list, enter and execute commands not supported directly from \fButree\fR. Before a given command is executed the command line is searched for some sprintf like format characters lead in by a percent sign (%) which are expanded. See the section \fIline formats\fR for more information .TP \fB$\fR Escape to an interactive shell .SH TREE SCREEN COMMANDS .LP All commands on the \fItree screen\fR can be given in lowercase or uppercase letters with the meaning denoted below. Commands given in lowercase letters affect the current directory only. Commands given in uppercase letters indicated by an uppercase letter in the table below affect the subtree rooted in the current directory or all tagged files in the subtree rooted in the current directory. The \fItree screen\fR commmands and the menu items of the default tree menu displayed on the help line are: .sp .TP 20 \fB>,CR,NL,SP,>\fR Change to the \fIfile screen\fR of the current directory .TP \fB<\fR Change to the \fIfile screen\fR of the parent directory .TP \fBC-n\fR Move to the next directory .TP \fBC-p\fR Move to the previous directory .TP \fBC-f\fR Move to the next directory on same level as the current directory .TP \fBC-b\fR Move to the previous directory on same level as the current directory .TP \fBC-v\fR Move one page forward .TP \fBC-w\fR Move one page backward .TP \fBC-a\fR Move to the beginning of the directory tree .TP \fBC-e\fR Move to the end of the directory tree .TP \fBTAB,C-t\fR Move to next the directory containing tagged files .TP \fBC-u\fR Scroll up one line the directory tree .TP \fBC-d\fR Scroll down one line the directory tree .TP \fB@,C-@\fR Mark the current directory .TP \fB#,C-g\fR Move to a previously marked directory .TP \fBh,?\fR (Help) Help about \fItree screen\fR commands .TP \fBb,B\fR (Backup) Backup the current directory or tree or backup all tagged files in the subtree .TP \fBc,C\fR (Chdir) Move to a directory or copy all tagged files in the subtree. Before you move to a directory you are requested for the name of this directory before. Instead entering a name you can select a directory from the tree with C-n and C-p. Instead of entering a name of a directory where to copy the tagged files you can select a directory from the tree with C-n and C-p or directly from \fItree screen\fR using CR. .TP \fBf,F\fR (Find) Find files in the current directory or subtree matching a file pattern you have to enter before. If a file matching the given pattern is found you may tag this file, change to the directory containing the found file or continue find .TP \fBg,G\fR (Grep) Search for pattern in files in the current directory or subtree. You are requested for a file and a search pattern. If a file matching the search pattern is found you may tag this file, change to the directory containing the found file or continue search .TP \fBi\fR (Info) Display some short information about the current directory. Displayed are access rights, modification time and the disk usage of the current directory or subtree .TP \fBl,L\fR (List) List files in the current directory or subtree matching a file pattern you are requested before or list all tagged files in the subtree .TP \fBm,M\fR (Mkdir) Create a new directory rooted in the current directory or move all tagged files to a destination directory. Instead of entering the directory name you can select this name from the directory tree with C-n and C-p or directly from \fItree screen\fR using CR. .TP \fBn,N\fR Change the sort criteria from lexical order to modification time order or vice versa and resort the file list of the current directory or subtree .TP \fBo\fR (Out) Write a list of directories, files, tagged files, files matching a file pattern or a formatted tree list to a list file. A formatted tree list file can later be displayed on the screen or send to a printer using the additional filter command \fButree.prlist\fR .TP \fBq\fR (Quit) Leave the \fItree screen\fR and exit \fButree\fR .TP \fBr,R\fR (Rmdir) Remove the current directory or all tagged files in the subtree. A directory to be removed may not contain any subdirectories. .TP \fBs\fR (Stat) Switch to the \fIstatus screen\fR, display all status information of the current directory and change owner, group and access rights of the current directory .TP \fBt,T\fR (Tag) Tag files in the current directory or subtree matching a file pattern you are requested before .TP \fBu,U\fR (Untag) Untag files in the current directory or subtree .TP \fBz,Z\fR Zoom files matching a file pattern in the current directory or subtree. Zooming means that only those files mating the file pattern are displayed and visible for further processing. .TP \fB+\fR Enlarge the tree window, shrink the file window one line .TP \fB-\fR Shrink the tree window, enlage the file window one line .TP \fB/\fR Scan the current directory or tree and rebuild directories if they need rebuilding (i.e. if they are not yet read in or have changed) .TP \fB\e\fR Scan the current directory for subdirectories and build up and insert the subtree into the directory tree. You are requested for the maximal tree level to build up before .TP \fB0\fR Switch the tree menuline from the default to the user defined tree commands or vice versa .TP \fB1..9\fR Execute the user defined tree command 1 .. 9 .PP For further information about file patterns for the commands find, grep, list, tag and untag see the section \fIfile patterns\fR below. For user defined tree commands see the section \fIvariables\fR. .SH FILE SCREEN COMMANDS .LP All commands on the \fIfile screen\fR can be given in lowercase or uppercase letters with the meaning denoted below. Commands given in lowercase letters affect the current file only. Commands given in uppercase letters indicated by an uppercase letter in the table below affect all tagged (selected) files if files are tagged or the current file if no files are tagged. The file \fIscreen commmands\fR and the menu items of the default file menu displayed on the help line are: .sp .TP 20 \fBq,CR,NL,SP\fR (Quit) Leave the \fIfile screen\fR and change back to the \fItree screen\fR .TP \fBC-f\fR Move to the next file .TP \fBC-b\fR Move to the previous file .TP \fBC-n\fR Move to the file on the next line .TP \fBC-p\fR Move to the file on the previous line .TP \fBC-v\fR Move one page forward .TP \fBC-w\fR Move one page backward .TP \fBC-a\fR Move to the beginning of the file list .TP \fBC-e\fR Move to the end of the file list .TP \fBTAB,C-t\fR Move to the next tagged file .TP \fBC-u\fR Scroll up one line the \fIfile screen\fR .TP \fBC-d\fR Scroll down one line the \fIfile screen\fR .TP \fB@,C-@\fR Mark the current file .TP \fB#,C-g\fR Move to a previously marked file .TP \fBh,?\fR (Help) Help about \fIfile screen\fR commands and switch to the \fIhelp screen\fR .TP \fBc,C\fR (Copy) Copy the current file or tagged files. You are requested for a destination file or directory where to copy the file or tagged files. Instead of entering a directory name you can select a destination directory using C-n and C-p or select directly on the \fItree screen\fR with CR .TP \fBe,E\fR (Edit) Edit the current file or tagged files .TP \fBf\fR (Find) Find files matching a file pattern you are requested before .TP \fBg,G\fR (Grep) Search for a pattern in the current file or tagged files. Before search you are requested for a file pattern and the search pattern to search for .TP \fBi,I\fR Display some short information about the current file or tagged files. Displayed are the access rights, the size and the modification time of the current file or tagged files .TP \fBl,L\fR (List) List files matching a file pattern you are requested before or all tagged files .TP \fBm,M\fR (Move) Move or rename the current file or tagged files. You are requested for the new file name or a destination directory where to move the current file or tagged files Instead of entering the name of a destination directory you can select a directory using C-n and C-p or directly on the \fItree screen\fR with CR .TP \fBn\fR Change the sort criteria from lexical order to modification time order or vice versa and resort the file list .TP \fBp,P\fR (Print) Print out the current file or tagged files .TP \fBr,R\fR (Remove) Remove the current file or tagged files. Before removing you are asked if you really want to remove the current file or tagged files .TP \fBs,S\fR (Stat) Switch to the \fIstatus screen\fR display all status information of the current or tagged files and change owner, group and access rights of the current file or tagged files .TP \fBt,T\fR (Tag) Tag the current file or files matching a file pattern you are requested before for further processing .TP \fBu,U\fR (Untag) Untag the current file or files matching a file pattern you are requested before .TP \fBv,V\fR (View) View the current file or tagged files .TP \fBx,X\fR Execute the current file or tagged files. If a filetype command is defined for this file you can execute this filetype command, otherwise you are requested for a command or for parameters to execute .TP \fBz\fR Zoom files matching a file pattern .TP \fB>\fR If the current file is a directory change to the \fIfile screen\fR of this directory .TP \fB<\fR Change back to the \fIfile screen\fR of the parent directory .TP \fB/\fR Rebuild the file list (i.e. after shell escape) .TP \fB0\fR Switch the menuline from the default to the user defined file commands or vice versa .TP \fB1..9\fR Execute the user defined file commands 1 .. 9 .PP For further information about file patterns for the commands find, grep, list, tag and untag see the section \fIfile patterns\fR below. For user defined file commands see the section \fIvariables\fR. For filetype command execution invoked with the command \fBx\fR see the section \fIfiletype commands\fR below. .SH LINE EDITOR COMMANDS .LP Many \fButree\fR commands need some user input for further processing which is done with a builtin simple line editor. Many commands pre-set the input buffer with a default input line if this default is known. For some commands you can use the keys C-n and C-p to scroll in already existing input lists and select an input line for editing or processing without entering the line completely. The line editor knows about the following functions: .sp .TP 20 \fBCR,NL\fR Accept and send the input line .TP \fBC-c,C-y\fR Cancel input and leave the line editor .TP \fBC-o\fR Switch from overwrite-mode to insert-mode or vice versa .TP \fBC-l\fR Redisplay the input line .TP \fBC-f\fR Move the cursor one character forward .TP \fBC-b\fR Move the cursor one character backward .TP \fBC-a\fR Move the cursor to the beginning of the input line .TP \fBC-e\fR Move the cursor to the end of the input line .TP \fBC-v\fR Scroll horizontally forward the input line .TP \fBC-w\fR Scroll horizontally backward the input line .TP \fBC-d\fR Delete one character under the cursor .TP \fBC-h,DEL\fR Delete one character left from the cursor .TP \fBC-x\fR Delete the input line completely .TP \fBC-k\fR Delete the input line from the cursor position to the end .TP \fBC-t\fR Transpose two characters under and left from the cursor .TP \fBC-r\fR Display help pages and switch to the \fIhelp screen\fR .TP \fBC-@\fR Set a mark at the current cursor position .TP \fBC-g\fR Move the cursor to the previously marked position .TP \fBC-n\fR Get the next entry into the line editor .TP \fBC-p\fR Get the previous entry into the line editor .PP All other printable characters are appended at the end of input line, inserted in insert-mode or overwrite the character under the cursor in overwrite-mode. The current mode is displayed at the end of the help line. Most line editor commands are also available with function keys, see the section \fIfunction keys\fR below. .SH VARIABLES .LP Utree knows about and uses the following variables which may be set or unset at startup in the startupfile \fB$HOME/.utree\fR, with some commandline options (see \fIoptions\fR above), or the variables command (\fB=\fR) on the \fIvariables screen\fR: .sp .TP 20 \fBBELL\fR or \fBBL\fR: Allow ringing of the bell if set .TP \fBCLOCK\fR or \fBCL\fR: Show and update clock every second if set .TP \fBGRAPHCHARS\fR or \fBGC\fR: Use the graphical character set if set. Not all terminal database termcap or terminfo definitions of the graphical character set are correct .TP \fBTERMSCROLL\fR or \fBTS\fR: Use hardware terminal scrolling if set. On some terminals (i.e. on the X terminal emulator xterm) redrawing the screen may be faster than scrolling .TP \fBSCANTREE\fR or \fBST\fR: Allow scanning the tree for changes if set. Many commands scan the directory tree after execution what may take some time. Prohibiting tree scanning therefore may speed up \fButree\fR a little bit .TP \fBWARNDIRS\fR or \fBWD\fR: Allow warnings and requests about unreadable directories if set .TP \fBLEXSORT\fR or \fBLS\fR: Sort filenames in lexical order if set, in order of modification times if not set. .TP \fBAUTOSAVE\fR or \fBAS\fR: Save changes in variables or filetype commands definitions, key bindings and history list to appropriate files in the home directory .TP \fBTREEINDENT\fR or \fBTI\fR: Set the tree level indention column (3 .. 9) if possible. Normally the tree level indention column is calculated dependent on the number of screen columns and the maximal filesystem depth automatically .TP \fBVIDEOMODE\fR or \fBVM\fR: Set using of video attributes. 2 means use all possible attributes and their combinations. 1 means use the attributes reverse and underline only. 0 means don't use any video attribute. .TP \fBFILELINES\fR or \fBFL\fR: Number of lines of the file window on the \fItree screen\fR (1 .. 9, default 3) .TP \fBHISTSIZE\fR or \fBHS\fR: Maximal number of shell commands which are hold in the shell commands history list (6 .. 99, default: 22) .TP \fBEDITOR\fR or \fBED\fR: Program for editing files. When redefining the editor variable don't forget to check and set or unset the editopts variable for editor options .TP \fBEDITOPTS\fR or \fBEO\fR: File editor options .TP \fBPAGER\fR or \fBPG\fR: Program for viewing files. When redefining the pager variable don't forget to check and set or unset the pageopts variable for pager options .TP \fBPAGEOPTS\fR or \fBPO\fR: File pager options .TP \fBXDUMPER\fR or \fBXD\fR: Program for hexdumping files. When redefining the hexdumper variable don't forget to check and set or unset the xdumpopts variable for hexdumper options .TP \fBXDUMPOPTS\fR or \fBXO\fR: File hexdumper options .TP \fBLPRINTER\fR or \fBLP\fR: Program for printing files or sending files to the printer spooling system. When redefining the lineprinter variable don't forget to check and set or unset the lprintopts variable for lineprinter options .TP \fBLPRINTOPTS\fR or \fBLO\fR: Printer options .TP \fBBACKUP\fR or \fBBK\fR: Program or shell script for backing up a directory or tree .TP \fBBACKUPOPTS\fR or \fBBO\fR: Backup options .TP \fBSHELL\fR or \fBSH\fR: Interactive shell for shell escape .TP \fBTREECMD1..9\fR or \fBT1..9\fR: User defined \fItree screen\fR commands 1 .. 9 .TP \fBFILECMD1..9\fR or \fBF1..9\fR: User defined \fIfile screen\fR commands 1 .. 9 .PP Variables are set with a line '\fBvariable=value\fR' or '\fBshorthand=value\fR' (i.e. '\fBtreecmd1=ps -ef\fR' or '\fBt1=ps -ef\fR') and unset with a line '\fBvariable=\fR' or '\fBshorthand=\fR' (i.e. '\fBt1=\fR'). When defining user tree or file commands some sprintf like format characters lead in by a percent sign (\fB%\fR) have a special meaning and are expanded before the command is executed. For further information about the command line format see the section \fIline formats\fR below. .br The last sharp sign (\fB#\fR) in a variable definition is used as leadin for a menu item of the defined user file or tree command. Example: the variable definition '\fBfc1=wc -l %F #Count\fR' for the user defined file command 1 is expanded to '\fBwc -l filename\fR' and in the user command file menu '\fBCount\fR' is displayed behind menu item 1. .SH FILETYPE COMMANDS .LP On \fIfile screen\fR you can execute a file or a command on it with the \fButree\fR execute command (\fBx\fR). You are requested for parameters if the current file is executable, for a command to execute on the current file if it is not executable. For a type of file you can define so called \fIfiletype commands\fR which are called if the current file matches a given file pattern. .br Filetype commands can be set and unset at startup in the startupfile \fB$HOME/.utree\fR, with the commandline option \fB-d\fR or the filetype command (\fB:\fR) similar to setting and unsetting variables. Filetype commands are set with a line like '\fBfiletype:command\fR' (i.e. '\fB*.c:cc -c -O\fR'). The command (i.e. '\fBcc -c -O\fR') is then executed if the current file matches the given file pattern (i.e. '\fB*.c\fR' for a C source file ending with '\fB.c\fR'). Filetype commands are unset with a line '\fBfiletype:\fR' (i.e. '\fB*.c:\fR'). .br When defining filetype commands some sprintf like format characters lead in by a percent sign (\fB%\fR) have a special meaning and are expanded before the command is executed. For further information about file patterns and the format line characters and her meaning see the sections \fIfile patterns\fR and \fIline formats\fR below. .SH LINE FORMATS .LP When defining a user tree or file command or a filetype command some sprintf like format line characters are known and expanded before the command is executed. These format line characters and their meaning are: .sp .TP 20 \fB%B\fR or \fB%b\fR is expanded to the basename (filename without extension) of the current file or directory .TP \fB%D\fR or \fB%d\fR is expanded to the full pathname of the current directory .TP \fB%F\fR or \fB%f\fR is expanded to the filename of the current file or directory .TP \fB%H\fR or \fB%h\fR is expanded to the pathname of your home directory .TP \fB%P\fR or \fB%p\fR is expanded to the full pathname of the current file or directory .TP \fB%R\fR or \fB%r\fR is expanded to the pathname of the root directory from where \fButree\fR was started .TP \fB%S\fR or \fB%s\fR is expanded to additional parameter(s) for a command which are requested before the command is executed .PP The command line '\fBcommand %s %f >%b.out\fR' i.e. is expanded before execution to '\fBcommand parameters filename >basename.out\fR' with filename of the current file or directory (\fB%f\fR), basename.out of the current file or directory (\fB%b.out\fR) and additional parameters (\fB%s\fR) which are requested before command execution. .br For further information about tree, file and filetype commands see the sections \fIvariables\fR and \fIfiletype commands\fR. .SH FILE PATTERNS .LP Some commands (list, find, grep, tag or untag) require file patterns for matching files using some special (or meta) characters. .br Shell like filename pattern matching interprets the following meta characters: .sp .TP 20 \fB*\fR matches all characters in a filename .TP \fB?\fR matches one character in a filename .TP \fB[class]\fR matches one character from a character class. A character class includes all characters enclosed between the opening and closing brackets (\fB[\fR and \fB]\fR). If in a class definition a minus sign (\fB-\fR) is found between two other characters this means the range from the character before and the character behind the minus sign. If the first character of a class definition is a exclamation mark (\fB!\fR) this means matching of all characters excluded those defined in the class, i.e. .TP [abc] matches the characters 'a', 'b' and 'c' .TP [a-z_] matches the characters from 'a' to 'z' and '_' .TP [!a-z_] matches all characters except 'a' to 'z' and '_' .PP File size pattern matching interprets the following meta characters: .sp .TP 20 \fB=size\fR matches all files of size \fBsize\fR .TP \fB!size\fR matches all files not of size \fBsize\fR .TP \fB>size\fR matches all files larger than \fBsize\fR .TP \fB2k\fR' matches all files larger than 2 kilo bytes or 2048 bytes. .sp .PP The additional file time pattern matching interprets the following meta characters: .sp .TP 20 \fB)time\fR matches all files modified within \fBtime\fR .TP \fB(time\fR matches all files not modified within \fBtime\fR .PP Time may be specified in minutes (\fBm\fR), hours (\fBh\fR, default), days (\fBd\fR) or weeks (\fBw\fR), i.e. '\fB)2d\fR' matches all files modified within last 2 days. .sp To combine shell like filename patterns and/or additional file size and modification time patterns use .sp .TP 20 \fB&\fR for \fBAND\fRing of patterns .TP \fB|\fR for \fBOR\fRing of patterns .PP If a character is preceeded by a backslash or enclosed in quotes his interpretation is suppressed and he is used as he is. .SH KEY BINDINGS .LP All defaults key bindings are listed in the section \fIkey naming conventions and default key bindings\fR above. All supported function keys if defined in the termcap or terminfo terminal database and their default bindings are listed in the next section. Rebindings of default keys or additional bindings of other keys may be done in terminal dependent startupfiles \fButree-TERM\fR in a global directory containing \fButree\fR startupfiles or in files \fB.utree-TERM\fR in your home directory where \fBTERM\fR denotes the terminal type as defined in the environment variable \fBTERM\fR. These startup files are built from lines like \fB'key_sequence=utree_key'\fR or \fB'key_sequence="string"'\fR. Key_sequence describes the function key string, utree_key the \fButree\fR key or function name, a string enclosed in braces a string to insert into the input buffer. A comment lead in by a sharp sign (#) should contain the name of the bound key. For defining key sequences of function keys control keys are defined with a leading caret (^, i.e. ^x, ^? means DEL) and some other special characters may be defined lead in by a backslash (\e). These escaped characters and their meaning are: b backspace (^h), f formfeed (^l), n newline (^j), r return (^m), t tab (^i), e or E escape (^[ or ESC) and s space. If a backslash is followed from up to three digits this defines an octal given character. I.e. the definition '\ee^O\e003=END' binds the keystring to the \fButree\fR key or function END. .PP The simplest way to define keys is to switch to the \fIbindings screen\fR and there to do all bindings. You have only to hit the key to bind and terminate the key sequence with CR or NL. Therefore CR or NL or key sequences containing CR or NL cannot be bound on the \fIbindings screen\fR. Then you have to enter the \fButree\fR name where the key is to bind to. You can use C-n and C-p to select the wanted name. At last you should give a short comment to the bound key(i.e. the key name) for documentation. If you want to bind a key for insertion of a string (and so to bind function keys to simple letter commands) you have to enter the string enclosed in braces. I.e. the binding \fB'\eeh="h"'\fR binds the key to the string and the so called help. Any bindings you have done on the \fIbindings screen\fR are saved to a file \fB.utree-TERM\fR into your home directory if the variable AUTOSAVE is set. .SH FUNCTION KEYS .LP The following function keys are supported by \fButree\fR and pre-bound at startup to appropriate functions if they are defined in your system's termcap or terminfo database: .sp .TP 20 \fBCursorRight\fR Move forward (FORWARD, \fBC-f\fR) .TP \fBCursorLeft\fR Move backward (BACKWARD, \fBC-b\fR) .TP \fBCursorUp\fR Move up (PREVIOUS, \fBC-p\fR) .TP \fBCursorDown\fR Move down (NEXT, \fBC-n\fR) .TP \fBHome/Begin\fR Move to beginning (BEGIN, \fBC-a\fR) .TP \fBEnd\fR Move to end (END, \fBC-e\fR) .TP \fBNextPage/PageDown\fR Move one page down (NEXTPAGE, \fBC-v\fR) .TP \fBPrevPage/PageUp\fR Move one page up (PREVPAGE, \fBC-w\fR) .TP \fBScrollUp\fR Scroll one line up (UP, \fBC-u\fR) .TP \fBScrollDown\fR Scroll one line down or delecte character (DOWN, \fBC-d\fR) .TP \fBInsert\fR Change to directory (\fB>\fR) or switch insert/overwrite mode (INSERT, \fBC-o\fR) .TP \fBDelete\fR Change to parent directory (\fB<\fR) or delete character under cursor like (DELETE, \fBC-h\fR) .TP \fBClear\fR Refresh screen or input line (REFRESH, \fBC-l\fR) .TP \fBHelp\fR Call the help menu (HELP, \fBC-r\fR) .TP \fBSelect\fR Select and/or accept (SELECT, \fBCR,NL\fR) .TP \fBDo/Command\fR Select and/or accept (SELECT, \fBCR,NL\fR) .TP \fBMark\fR Set a mark (SETMARK, \fBC-@\fR) .TP \fBEnter\fR Select and/or accept (SELECT, \fBCR,NL\fR) .PP This function keys may be rebound or other function keys may be bound on the \fIbindings screen\fR. For more information about key bindings see the section \fBkey bindings\fR above. .SH ENVIRONMENT .LP .TP 20 \fBUTREE\fR Some boolean and numerical settings for \fButree\fR .TP \fBUTLIB\fR Directory for \fButree\fR help pages and startup files .TP \fBHOME\fR User's home directory .TP \fBTERM\fR Terminal type .TP \fBEDITOR\fR File editor .TP \fBPAGER\fR File pager/viewer .TP \fBSHELL\fR Interactive shell for shell escape .PP .SH FILES .LP .TP 20 \fBHOME/.utreelist\fR Tree list file of user's filesystem .TP \fBHOME/.utreehist\fR History list of shell commands .TP \fBHOME/.utree\fR User's \fButree\fR startup file containing variables and filetype commands definitions .TP \fBUTLIB/utree\fR Global \fButree\fR startup file containing variables and filetype commands definitions .TP \fBUTLIB/utree-TERM\fR Global key bindings for terminal type TERM .TP \fBHOME/.utree-TERM\fR User's key bindings for terminal type TERM .TP \fBUTLIB/utree.help\fR \fBUtree\fR help pages .TP \fBBIN/utree.backup\fR Backup shell script or program .TP \fBBIN/utree.mklist\fR Create directory tree list shell script .TP \fBBIN/utree.prlist\fR Display or print a formatted tree list file .PP \fBUTLIB\fR can be a system default directory containing library files (i.e. /usr/local/lib) defined at compile time or a directory defined in the environment variable \fBUTLIB\fR. \fBBIN\fR is a public directory containing executable files (i.e. /usr/local/bin) and should be included in the command search path environment variable \fBPATH\fR. .SH SEE ALSO .LP utree.prlist(1L) .br cp(1) grep(1) ls(1) mv(1) rm(1) .br du(1) mkdir(1) rmdir(1) .br find(1) sh(1) .SH BUGS .LP Changes in filesystem after shell escape or editor session are not always detected. .br Directory tree depth >32 may be confusing. .br Screen sizes smaller than 80x24 may be confusing. .br Symbolic links to directories may be confusing. .br On most BSD systems changing owner and/or group of files for normal users is not allowed. .SH AUTHOR .LP Peter Klingebiel .SH COPYRIGHT .LP \(co 1991/1992 Peter Klingebiel & UNIX Magazin Munich .sp Permission is granted to copy and distribute \fButree\fR in modified or unmodified form, for noncommercial use, provided (a) this copyright notice is preserved, (b) no attempt is made to restrict redistribution of this file, and (c) this file is not distributed as part of any collection whose redistribution is restricted by a compilation copyright. ead in by a percent sign (\fB%\fR) have a special meaning and are expanded before the command is executed. For further information about file patterns and the format line characters and her meaning see the sections \fIfile patterns\fR and \fIline formats\fR below. .SH LINE FORMATS .LP When defining a user tree or file command or a filetype command some sprintf like format line characters are known and expanded before the command is executed. These format line characters andutree/lib/0407550013110001060000000000005255652756007122 5 0 1 0 utree/lib/utree.binding1006440013110001060000000204705255652740012404 037777777777 1 0 # # $HOME/.utree-$TERM or $UTLIB/utree-$TERM # Example keybinding file for terminal type $TERM=xterm # klin, Sun Feb 23 23:31:11 1992 # Directory: user's home directory ($HOME) # or a library directory ($UTLIB) # # SCCSID = @(#) utree 3.03-um (klin) Feb 23 1992 lib/utree.binding # # Key bindings: key_sequence=utree_key_name #Keyname # key_sequence="string_to_insert" #Keyname # Example bindings for keypad keys (xterm) \eOp=DOWN #Keypad-0 \eOn=INSERT #Keypad-. \eOo=PREVPAGE #Keypad-/ \eOx=NEXTPAGE #Keypad-8 \eOj=UP #Keypad-* \eOy=DOWN #Keypad-9 # Example bindings for functions keys (xterm) \e[21~=EXIT #FunctionKey 10 # Example bindings for inserting strings (xterm) \e[11~="/y" #FunctionKey 1 \e[12~="!ps -ef|more\n" #FunctionKey 2 P [a-z_] matches the characters from 'a' to 'z' and '_' .TP [!a-z_] matches all characters except 'a' to 'z' and '_' .PP File size pattern matching interprets the following meta characters: .sp .TP 20 \fB=size\fR matches all files of size \fBsize\fR .TP \fB!size\fR matches all files not of size \fBsize\fR .TP \fB>size\fR matches all files larger than \fBsize\fR .TP \fB-key and hit , 'key' means a single keystroke on the key . For many commands on tree and file screen case is significant. Commands given in lowercase letters work on the current directory or file, commands given in uppercase letters work on the current subtree or on tagged files in current subtree or directory. Many function keys are supported by utree, i.e the four cursor keys, the begin and end key and some others. For more information about default key bindings and user definable keybindings see the keys help page. #@ #@Usage u: About utree usage and command line options Usage: utree [-LSVabcghnrqstuw] [-d var=[val]] [-d typ:[cmd]] [-f lst] [-i ind] [-l lev] [-p lin] [-v mod] [-x cmd] [rootdir] The meaning of the command line options is: -L Follow symbolic links. -S Ignore default minimal screen size. -V Display program version. -a Read in all (including hidden) directories. -b Suppress ringing of the bell. -c Don't display and update a clock in echoline. -d var=[val] Define/undefine variable var. -d typ:[cmd] Set/unset type command for filetype typ. -f lst Build tree from list file lst. -g Don't use graphic characters. -h Display usage and meaning of command line options. -i ind Set maximal tree indention to ind -l lev Build tree up to level lev. -n Don't scan tree for changes in tree. -o Omit saving changes in history/definitions/bindings. -p lin Set file window to lin lines (1..9) -q Build tree up to level 2 (like -l 2). -r Recreate tree list (always scan disk). -s Don't use hardware scrolling. -t Sort files by modification times. -u Update file lists in tree. -v mod Set video attribute setting (0,1,2) -w Suppress warnings about unreadable directories. -x cmd Use string cmd as initial command input. The boolean options bcgnosw and the numerical options ipv may also be pre-set in the environment variable UTREE. #@ #@Global g: About global commands for tree and file screen The following commands are common for tree and file screen: C-z Terminate and leave utree. C-c,C-y Cancel command or input. C-l Refresh/redisplay screen. Tab,C-t Move to next tagged directory or file. h,?.C-r Change to help screen for displaying help pages. @,C-@ Mark current directory or file. #,C-g Move to previously marked directory/file or position. a Display utree version. d Display current date and time. j Next directory or file (for vi fans). k Previous directory or file (for vi fans). w Display full pathname of current directory. = Change to variables screen for setting variables. : Change to commands screen for setting filetype commands. | Change to bindings screen for binding keys. ! Change to shell screen for execution of shell commands. $ Escape to an interactive shell session. #@ #@Tree t: About utree directory tree screen commands All tree commands can be given in lowercase or uppercase letters For some commands a lowercase letter hits the current directory only, an uppercase letter hits a complete subtree or all tagged files in subtree. >,CR,NL,SP Change to file screen of current directory. < Change to file screen of parent directory. C-n Move to next directory. C-p Move to previous directory. C-f Move to next directory on same level. C-b Move to previous directory on same level. C-v Move one page forward. C-w Move one page backward. C-a Move to begin of directory tree. C-e Move to end of directory tree. TAB,C-t Move to next directory containing tagged files. C-u Scroll up directory tree. C-d, Scroll down directory tree. @,C-@ Mark current directory. #,C-g Goto previously marked directory. b,B Backup all files/tagged files in subtree. c,C Change to a directory/Copy tagged files. f,F Find files in current directory/subtree. g,G Search for pattern in files in directory/subtree. i Show some directory information. l,L List files/tagged files in current subtree. m,M Make a new directory/Move tagged files. n,N Change sort criteria, sort files in directory/subtree. o Write a list of directories, files or tagged files. q Exit utree. r,R Remove current directory/Remove tagged files. s Show/change status of current directory. t,T Tag files in current directory/subtree. u,U Untag files in current directory/subtree. z,Z Zoom files in current directory/subtree. + Enlarge tree window if possible. - Shrink tree window if possible. / Scan tree and rebuild directories if needed. \ Scan directory for subdirectories and insert subtree. 0 Switch tree/user commands menuline. 1..9 Execute user defined tree command. For further information about filename patterns for the commands find, grep, list, tag, untag and zoom see the pattern help page. #@ #@File f: About utree file screen commands All file commands can be given in lower or upper case letters. For most commands a lowercase letter hits the current file only, an uppercase letter hits all selected (tagged) files. q,CR,NL,SP Change back to tree screen. C-f Move to next file. C-b Move to previous file. C-n Move to file on next line. C-p Move to file on previous line. C-v Move one page forward. C-w Move one page backward. C-a Move to first file. C-e Move to last file. TAB,C-t Move to next tagged file. C-u Scroll up file screen. C-d Scroll down file screen. @,C-@ Mark current file. #,C-g Goto previously marked file. c,C Copy file/tagged files. e,E Edit file/tagged files. f Find files matching a pattern. g,G Search for pattern in file/tagged files. i,I Show some information about file/tagged files. l,L List files matching a pattern/tagged files. m,M Rename/move file/tagged files. n Change sort criteria and resort file list. p,P Send file/tagged files to printer spooler. r,R Remove file/tagged files. s,S Show/change status of file/tagged files. t,T Tag/select files for further processing. u,U Untag file/tagged files. v,V View file/tagged files. x Execute current file or call a command for it. z Zoom files in file list. > If current file is a directory, change to. < Change back to parent directory. / Rebuild file list (i.e. after shell escape). 0 Switch file/user commands menuline. 1..9 Execute user defined file command. For further information about filename patterns for the commands find, grep, list, tag, untag and zoom see the pattern help page. #@ #@Edit e: About utree line editor commands The builtin utree line editor knows the following functions: (Function keys are supported if known by termcap/terminfo) CR,NL Accept and send input line. C-c,C-y Cancel input line and line editor. C-o Switch insert/overwrite mode. C-l Redisplay input line. C-f Move cursor one character forward. C-b Move cursor one character backward. C-a Move cursor to beginning of line. C-b Move cursor to end of line. C-v Scroll forward line. C-w, Scroll backward line. C-d Delete character under cursor. C-h,DEL Delete character left from cursor. C-x Delete line. C-k Delete from cursor position to end of line. C-t Transpose characters under and left from cursor. C-r Display help menu and pages. C-@ Set mark at current position. C-g Move cursor to previously set mark. C-p Get previous list entry into line editor. C-n Get next list entry into line editor. #@ #@Vars v: About utree variables Utree knows about and uses the following variables which may be set/unset at startup in the startupfile '$HOME/.utree', with the commandline option '-d' or the variables command '=': BL BELL Allow ringing of the bell. CL CLOCK Show and update clock every second. GC GRAPHCHARS Use graphical character set. TS TERMSCROLL Use hardware terminal scrolling. ST SCANTREE Allow scanning the filesystem for changes. WD WARNDIRS Make warnings about unreadable directories. LS LEXSORT Sort filenames in file lists in lexical order. AS AUTOSAVE Save changes in history, variables and command definitions and key bindings. TI TREEINDENT Maximal tree indention on tree screen (3..9). VM VIDEOMODE Using of video attributes (0=none,1,2=all). FL FILELINES Maximal file lines on tree screen (1..9). HS HISTSIZE Size of history list (Settable at startup only). SH SHELL Interactive shell. ED EDITOR Editor. EO EDITOPTS Editor options. PG PAGER File pager/viewer. PO PAGEOPTS Pager options. XD XDUMPER File hexdumper. XO XDUMPOPTS Dumper options. LP LPRINTER Printer spooler command. LO LPRINTOPTS Printer options. BK BACKUP Backup program. BO BACKUPOPTS Backup options. T1..9 TREECMD1..9 User defined commands 1..9 for tree screen. F1..9 FILECMD1..9 User defined commands 1..9 for file screen. Variables are set with a line 'shorthand=value' or 'variable=value' (i.e. 't1=ps -ef'), unset with a line 'shorthand=' or 'variable=' (i.e. 't1='). When defining user tree or file commands some sprintf like format characters lead in by a percent sign ('%') have a special meaning and are expanded before the command is executed (See also the help page line). A sharp sign (#) in a variable definition is used as leadin for a menu item of the defined user file or tree command or as comment. E.g.: the variable definition 'fc1=wc -l %F # Count' for user defined file command 1 is expanded to 'wc -l filename' and in the user command file menu 'Count' is displayed behind menu item 1. #@ #@Cmds c: About filetype dependent commands On file screen you can execute a file or a command on it with the utree command execute ('x'). You are requested for parameters if the current file is executable, for a command to execute on the current file if the current file is not executable. For a type of file you can define so called filetype commands which are called if the current file matches this filetype (or extension). Filetype commands can be set/unset at startup in the startupfile '$HOME/.utree', with the commandline option '-d' or the filetype command ':' similar to setting/unsetting variables. Filetype commands are set with a line like 'filetype:command' (e.g. '*.c:cc -c -O'). The command ('cc -c -O') is then executed if the current file matches the filetype pattern (e.g. '*.c' for 'foo.c'). Filetype commands are unset with a line 'filetype:' (i.e. '*.c:'). When defining filetype commands some sprintf like format characters lead in by a percent sign ('%') have a special meaning and are expanded before the command is executed. For further information about filename patterns and the format characters and her meaning see the pattern and line help pages. #@ #@Line l: About line format for tree, file and filetype commands When defining a user defined tree or file command or a filetype command or when entering a shell command some sprintf like format characters are known and expanded before the command is executed. These format characters and their meaning are: %B,%b Basename of current file or directory. %D,%d Full pathname of current directory. %F,%f Filename of current file or directory. %H,%h Full pathname of home directory. %R,%r Full pathname of root directory. %P,%p Full pathname of current file or directory. %S,%s Additional parameter(s) for a command which are requested before the command is executed. E.g. the command line 'command %s %f >%b.out' is expanded before execution to 'command parameters filename basename.out' with filename and basename.out ('%f', '%b.out') of the current file or directory and parameters ('%s') which are requested before the command is executed. For further information about tree/file and filetype commands see the vars and defs help pages. #@ #@Keys k: About default and user definable key bindings The following list denotes the names of all utree keys, their default key bindings and their meanings on tree and file screen or in the line editor (See also the help pages global, tree, file and edit). SELECT (CR,NL) Select directory/file or accept input line. FORWARD (C-f) Move forward directory/file or character. BACKWARD (C-b) Move back directory/file or character. NEXT (C-n) Move to next directory or file or get next list entry into the line editor. PREVIOUS (C-p) Move to previous directory or file or get previous list entry into the line editor. NEXTPAGE (C-v) Next page/Scroll forward input line. PREVPAGE (C-w) Previous page/Scroll backward input line. BEGIN (C-a) Move to beginning of directories/files or input line. END (C-e) Move to end of directories/files or input line. UP (C-u) Scroll down up one line directories or files. DOWN (C-d) Scroll down one line directories or files (on screens) or delete character under the cursor (in line editor). INSERT (C-o) Toggle insert/overwrite mode flag (in line editor) or change to current directory (on screens). DELETE (BS) Delete character left from cursor (in editor) or change to parent directory (on screens). KILL (C-k) Delete from cursor position to end of input line. SETMARK (C-@) Set a mark on current directory/file or at cursor position. GOTOMARK (C-g) Move to previously marked directory/file or character. GOTOTAG (TAB) Move to tagged directory or file (on screens) or transpose characters (in line editor). HELP (C-r) Get help pages and change to help screen. REFRESH (C-l) Refresh and redraw screen or input line. CANCEL (C-x) Delete whole input line and leave line editor. BREAK (C-c) Break current command or line editor. EXIT (C-z) Terminate and leave utree. The following function keys are bound at startup if they are defined in your system's termcap or terminfo database: CursorRight FORWARD CursorLeft BACKWARD CursorUp PREVIOUS CursorDown NEXT Home/Begin BEGIN End END NextPage NEXTPAGE PreviousPage PREVPAGE ScrollUp UP ScrollDown DOWN Insert INSERT Delete DELETE Clear REFRESH Help HELP Select SELECT Do/Command SELECT Mark SETMARK Enter SELECT You may bind any key to the denoted utree key symbols or to string on the binding screen or in terminal startup files with the name '.utree-term' in your home directory ('term' is the terminal type from $TERM). This files contain lines built like 'key_sequence=key_name' or 'keysequence="string"' for string insertion bindings. E.g. the line '\eh=HELP' binds the key to HELP and and the line '\ei="insert"' binds to insertion of the string 'insert' into the input buffer for further reading and interpretation. #@ #@Patterns p: About pattern matching Some commands (list, find, grep, tag or untag) require filename patterns for matching files using some special (meta) characters. File NAME pattern matching interprets the following meta chars: * matches all characters in a filename. ? matches one character in a filename. [class] matches all characters enclosed in brackets '[' and ']' where '!' and '-' have a special meaning, i.e. [abc] matches the characters 'a', 'b' and 'c'. [a-z_] matches the characters from 'a' to 'z' and '_'. [!a-z_] matches all characters except 'a' to 'z' and '_'. File SIZE pattern matching interprets the following meta chars: =size matches all files equate size !size matches all files not equate size >size matches all files larger than size 2k' matches all files larger than 2 kb or 2048 bytes. File TIME pattern matching interprets the following meta chars: )time matches all files modified within time. (time matches all files not modified within time. You may specify time in minutes (m), hours (h, default), days (d) or weeks (w), i.e. ')2d' matches all files modified within last 2 days. To combine file name, size and time patterns use & for ANDing of name/size/time patterns | for ORing of name/size/time patterns. If a character is preceeded by a backslash (\) or enclosed in quotes his interpretation is suppressed and he is used as he is. #@ with the commandline option '-d' or the variables command '=': BL BELL Allow ringing of the bell. CL utree/src/0407550013110001060000000000005255652765007143 5 0 1 0 utree/src/help.h1006440013110001060000000370105255652741011045 037777777777 1 0 /* * HELP.H * UTREE help definitions. * 3.01-um klin, Sat Apr 20 11:02:33 1991 * 3.03-um klin, Sat Feb 15 18:33:14 1992, Minor changes * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. */ #if defined(_MAIN_) && !defined(lint) static char sccsid_help[] = "@(#) utree 3.03-um (klin) Feb 15 1992 help.h"; #endif /* _MAIN_ && !lint */ /* Max length of a menu item in the help menuline */ #define ITEMLEN 16 /* * Utree help pages are hold in a dynamically linked list of the * following data structure _hlist which is built up at runtime. * The record contains information about help items from a help * file, i.e. a menu title or item, the starting position of a help * page about this item in the help file and the number of lines * of this help page. Displaying a help page about an item is * therefore searching this item in the help page list, positioning * to the starting position in the help file and putting as many * lines from the helpfile to screen as this help page has. */ typedef struct _hlist { char item[ITEMLEN]; /* Menu line item */ char hotkey; /* Menu hot key */ int nlines; /* Number of lines in help file */ long position; /* Start position in help file */ struct _hlist *next; /* Pointer to next help page */ } hlist; #define HNULL ((hlist *) 0) /* The hlist NIL pointer */ /* * Access to items of hlist record is done with macros * to hide this record and for abbreviation. */ #define HITEM(p) ((p)->item) #define HHKEY(p) ((p)->hotkey) #define HNLIN(p) ((p)->nlines) #define HSPOS(p) ((p)->position) #define HNEXT(p) ((p)->next) h a line like 'filetype:command' (e.g. '*.c:cc -c -O'). utree/src/hist.h1006440013110001060000000251005255652741011061 037777777777 1 0 /* * HIST.H * UTREE history list definitions. * 3.03-um klin, Tue Feb 11 22:35:29 1992, Shell command history added * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. */ #if defined(_MAIN_) && !defined(lint) static char sccsid_hist[] = "@(#) utree 3.03-um (klin) Feb 11 1992 hist.h"; #endif /* _MAIN_ && !lint */ /* * Shell commands are hold in a dynamically lined list of * struct _clist. */ typedef struct _clist { glist list; /* Containing command and pointers */ int length; /* Length of current command */ int number; /* Event number */ int counter; /* Event counter */ } clist; #define CHNULL ((clist *) 0) /* The clist NIL pointer */ /* * Access to entries in the command history list is done * with macros to hide this record and for abbreviation. */ #define CHLST(p) (&(p)->list) #define CHCMD(p) ((p)->list.string) #define CHPRV(p) ((p)->list.prev) #define CHNXT(p) ((p)->list.next) #define CHLEN(p) ((p)->length) #define CHNUM(p) ((p)->number) #define CHCNT(p) ((p)->counter) their default key bindings and their meanings on tree and file screen or in the line editor (See also the help pages global, tree, file and edit). SELECT (CR,Nutree/src/patchlevel.h1006440013110001060000000003605255652741012242 037777777777 1 0 #define PATCHLEVEL "3.03b-um" ward input line. BEGIN (C-a) Move to beginning of directories/files or input line. END (C-e) Move to end of directories/files or input line. UP (C-u) Scroll down up one line directories or files. DOWN (C-d) Scroll down one line directories or files (on screens) or delete character under the cursor (in line editor). INSERT (C-o) Toggle insert/overwrite mode flag (in line editor) utree/src/cmds.h1006440013110001060000000506205255652746011052 037777777777 1 0 /* * CMDS.H * UTREE system command and filename definitions. * 3.03-um klin, Tue Feb 11 19:23:58 1992, Splitted from conf.h * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. */ #if defined(_MAIN_) && !defined(lint) static char sccsid_cmds[] = "@(#) utree 3.03-um (klin) Feb 11 1992 cmds.h"; #endif /* _MAIN_ && !lint */ /* * SOME DEFAULT SYSTEM COMMANDS. */ /* May be overriden by environment or utree variables. */ #ifdef BSD # define SHELL "csh" /* Default shell. See csh(1) */ # define EDITPRG "vi" /* Default editor. See vi(1) */ # define PAGEPRG "more" /* Default pager. See more(1) */ # define DUMPPRG "od" /* Default dumper. See od(1) */ # define PRINTPRG "lpr" /* Default printer. See lpr(1) */ #else /* SYSV */ # define SHELL "sh" /* Default shell. See sh(1) */ # define EDITPRG "ed" /* Default editor. See ed(1) */ # define PAGEPRG "pg" /* Default pager. See pg(1) */ # define DUMPPRG "od" /* Default dumper. See od(1) */ # define PRINTPRG "lp" /* Default printer. See lp(1) */ #endif /* BSD */ #define CPFILE "cp" /* Copy files. See cp(1) */ #define MVFILE "mv" /* Move files. See mv(1) */ #define LSFILE "ls" /* List files. See ls(1) */ #define RMFILE "rm" /* Remove files. See rm(1) */ #define RMOPTS "-rf" /* Remove all option */ #define MKDIR "mkdir" /* Create directory. See mkdir(1) */ #define RMDIR "rmdir" /* Remove directory. See rmdir(1) */ #define DUDIR "du -s" /* Directory disk usage. See du(1) */ #define GRFILE "grep" /* Search in files. See grep(1) */ #define GROPTS "-c" /* Print count only option */ /* * FILENAMES USED BY UTREE. */ #define UTBCKUP "utree.backup" /* Utree backup shell script */ #define UTBACK "utree.bak" /* Utree backup file list */ #define UTHELP "utree.help" /* Utree help pages */ #define UTSTART "utree" /* Utree startup file in home or libdir */ #define UTLIST ".utreelist" /* Utree tree list file in $HOME */ #define UTHIST ".utreehist" /* Utree command history file in $HOME */ aller than size You may specify the file size in bytes (b, default), kilo bytes (k) or mega bytes (m), i.e. '>2k' matches all files larger than 2 kb or 2048 bytes. File TIME pattern matching interprets the following meta chars: )time matches all files modified within time. (time matches all files not modified within time. You may specify time in minutes (m), hours (h, default), days (d) or weeks (wutree/src/help.c1006440013110001060000001305405255652747011050 037777777777 1 0 /* * HELP.C * UTREE help routines. * 3.01-um klin, Sat Apr 20 11:02:33 1991 * 3.03-um klin, Sat Feb 15 18:34:27 1992, Minor changes * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. */ #ifndef lint static char sccsid[] = "@(#) utree 3.03-um (klin) Feb 15 1992 help.c"; #endif /* !lint */ #include "defs.h" /* ---- Local variables and definitions ------------------------------- */ LOCAL hlist *hroot = HNULL; /* Root of help pages */ LOCAL char *helpmenu = NULL; /* Help menuline */ LOCAL char helpfile[NAMELEN]; /* Help file name */ #define LINELEN 128 /* Max line length for help pages */ /* ---- External variables and functions ------------------------------ */ EXTRN long ftell(); /* ---- Functions and procedures -------------------------------------- */ /* * INTERNAL USED ROUTINES */ /* Insert a help page for topic s into help page list for file fp */ LOCAL VOID inserthelp(s, fp) register char *s; register FILE *fp; { char buf[LINELEN]; register hlist *hp, *np; register char *i, k; register long p; register int n; p = ftell(fp); /* Get position of topic in help file */ i = s; /* and menu line item */ while(*s && !(*s == ' ' || *s == '\t' || *s == '\n')) ++s; *s = '\0'; /* Count number of lines for this help page */ for(n = 0; fgets(buf, sizeof(buf), fp); n++) if(buf[0] == '#' && buf[1] == '@') break; if(*i && p > 0 && n > 0) { /* Get the hotkey for help menu topic */ s = i; k = *i; while(*s) { if(*s >= 'A' && *s <= 'Z') { k = *s; break; } ++s; } /* Get space for help page, fill up data and insert into list */ hp = (hlist *) ualloc(1, sizeof(hlist)); (void) strncpy(HITEM(hp), i, ITEMLEN-1); HHKEY(hp) = isupper(k) ? tolower(k) : k; HSPOS(hp) = p; HNLIN(hp) = n; HNEXT(hp) = HNULL; if(hroot == HNULL) hroot = hp; else { for(np = hroot; HNEXT(np); np = HNEXT(np)) ; HNEXT(np) = hp; } } } /* inserthelp() */ /* Show help page hp from help file fp */ LOCAL int showhelppage(hp, fp) register hlist *hp; register FILE *fp; { char buf[LINELEN]; register int n, l, c; puthelp("%s: About %s (Q:quit ELSE:helpmenu)", who, HITEM(hp)); clearwindow(firstline, lastline); flushout(); c = RV_OK; for(n = 0, l = firstline; n < HNLIN(hp); ) { if(fgets(buf, sizeof(buf), fp)) (void) putsxy(0, l, buf); else break; ++n; ++l; if(l > lastfline && n < HNLIN(hp)) { puthelp("%s: About %s (CR:continue Q:quit ELSE:helpmenu)", who, HITEM(hp)); c = hitakey("Help:", echoline, DA_NONE); puthelp("%s: About %s (Q:quit ELSE:help)", who, HITEM(hp)); if( !(c == ' ' || c == '\n')) break; l = firstline; clearwindow(firstline, lastline); flushout(); } } if(c == 'q' || c < RV_NUL) return(c); puthelp("%s: About %s %s", who, HITEM(hp), hitkey); (void) putecho("Help about %s done", HITEM(hp)); return(hitakey(NULL)); } /* showhelppage() */ /* Utree help pages are contained in a help file. Each help page is */ /* enclosed in a pair of lines '#@item' and '#@' which signal start and */ /* end of the help page to topic 'item'. This item is also copied into */ /* the help menuline and the first character or the first upper case */ /* character from item if found is used as hot key for selecting the */ /* help page to this topic. The initialization routine scans the help */ /* file and builds up a list of available help pages from this file. */ GLOBL VOID inithelp() { char buf[NAMELEN]; register FILE *fp; register hlist *hp; register int l, i; #ifdef UTHELP if(startup(buf, UTHELP) && (fp = fopen(buf, "r"))) { (void) strcpy(helpfile, buf); /* First read help file and insert help pages into list */ while(fgets(buf, sizeof(buf), fp)) if(buf[0] == '#' && buf[1] == '@' && buf[2]) inserthelp(&buf[2], fp); /* Second build from help items the help menu line */ l = columns - 4; helpmenu = ualloc((unsigned) l, sizeof(char)); for(hp = hroot, i = 0; hp; hp = HNEXT(hp)) { i += strlen(HITEM(hp)) + 1; if(i >= l) break; (void) strcat(helpmenu, " "); (void) strcat(helpmenu, HITEM(hp)); } (void) fclose(fp); if((i + 5) < l) (void) strcat(helpmenu, " Quit"); } #endif } /* inithelp() */ /* Display help menu and help pages */ GLOBL int showhelp(k) register int k; { register FILE *fp; register hlist *hp; register int c; who = "HELP"; if(hroot == HNULL || !(fp = fopen(helpfile, "r"))) { puthelp("%s %s", who, hitkey); return(errequest("Help", "Not available")); } /* Help menu loop */ do { if(k) { c = k; k = 0; } else { if( !keypressed()) { putmenu("HELP:", helpmenu); (void) putecho("Help about which topic:"); } if((c = hitakey(NULL)) == 'q' || c < RV_NUL) break; else if(isupper(c)) c = tolower(c); } for(hp = hroot; hp && HHKEY(hp) != c; hp = HNEXT(hp)) ; if(hp == HNULL || fseek(fp, HSPOS(hp), 0)) break; c = showhelppage(hp, fp); treeflag = fileflag = SF_FULL; } while(c != 'q' && c > RV_NUL); /* Close help file and return */ (void) fclose(fp); if(c == 'q' || c < RV_NUL) return(c); return(putversion(echoline, "HELP: Done")); } /* showhelp() */ e. BEGIN (C-a) Move to beginning of directories/files or input line. END (C-e) Move to end of directories/files or input line. UP (C-u) Scroll down up one line directories or files. DOWN (C-d) Scroll down one line directories or files (on screens) or delete character under the cursor (in line editor). INSERT (C-o) Toggle insert/overwrite mode flag (in line editor) utree/src/term.h1006440013110001060000001031405255652747011070 037777777777 1 0 /* * TERM.H * UTREE terminal and screen definitions. * 3.01-um klin, Wed May 1 14:34:34 1991 * klin, Sat Oct 26 15:27:00 1991, Some additions * 3.02-um klin, Fri Nov 1 10:44:45 1991, Screen layout changed * klin, Sun Nov 24 15:12:48 1991, Video attributes changed * 3.03-um klin, Tue Feb 11 19:39:09 1992, Video attributes changed * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. */ #if defined(_MAIN_) && !defined(lint) static char sccsid_term[] = "@(#) utree 3.03-um (klin) Feb 11 1992 term.h"; #endif /* _MAIN_ && !lint */ #define MINCOLS 80 /* Min number of screen columns needed */ #define MINLINS 24 /* Min number of screen lines needed */ /* Return values from getline() */ #define EMPTY 0 /* Input is empty */ #define DONE 1 /* Input not empty and ok */ /* Video attribute flags */ #define VA_NORMAL 0x00 /* Reset all video attributes */ #define VA_REVERSE 0x01 /* Video reverse attribute */ #define VA_BLINK 0x02 /* Video blink attribute */ #define VA_HALF 0x04 /* Half bright attribute */ #define VA_BOLD 0x08 /* Video bold attribute */ #define VA_UNDERLINE 0x10 /* Video underline attribute */ /* Cursor functions */ #define CF_VISIBLE 0x01 /* Cursor visible */ #define CF_INVISIBLE 0x02 /* Cursor invisible */ #define CF_SAVE 0x04 /* Save cursor position */ #define CF_RESTORE 0x08 /* Restore cursor position */ /* Keypad functions */ #define KP_NORMAL 0x00 /* Switch keypad to normal mode */ #define KP_XMIT 0x01 /* Switch keypad to transmit mode */ /* Graphical charset functions */ #define GC_OFF 0x00 /* Turn off graph charset */ #define GC_ON 0x01 /* Turn on graph charset */ /* The graph charset is accessed and hidden by the following macros */ #define GC_HB _graphset[0] /* Horizontal bar */ #define GC_VB _graphset[1] /* Vertical bar */ #define GC_LT _graphset[2] /* Left tee */ #define GC_RT _graphset[3] /* Right tree */ #define GC_TT _graphset[4] /* Top tee */ #define GC_BT _graphset[5] /* Bottom tee */ #define GC_UL _graphset[6] /* Upper left corner */ #define GC_LL _graphset[7] /* Lower left corner */ #define GC_UR _graphset[8] /* Upper right corner */ #define GC_LR _graphset[9] /* Lower right corner */ #define GC_TG _graphset[10] /* Tag sign (diamond or plus) */ #define NGRAPH 11 /* Max number of graphic characters */ #ifdef _MAIN_ int columns, lines; /* Number of screen columns and lines */ int glitchcap; /* Standout mode/underline glitch flag */ int scrollcap; /* Window/scrolling capabilities flag */ int cursorcap; /* Cursor capabilities */ int videocap; /* Video capabilities flag */ int graphcap; /* Graphic character set flag */ char _graphset[NGRAPH]; /* Graphic character set */ #else /* !_MAIN_ */ extern int columns, lines; extern int glitchcap, scrollcap, cursorcap, videocap, graphcap; extern char _graphset[]; #endif /* _MAIN_ */ #ifdef putchar /* Don't use stdio.h's putchar macro */ # undef putchar #endif #ifdef getchar /* Don't use stdio.h's getchar macro */ # undef getchar #endif */ #define LINELEN 128 /* Max line length for help pages */ /* ---- External variables and functions ------------------------------ */ EXTRN long ftell(); /* ---- Functions and procedures -------------------------------------- */ /* * INTERNAL USED ROUTINES */ utree/src/vers.c1006440013110001060000001150705255652747011100 037777777777 1 0 /* * VERS.C * UTREE version and history. * 1.00 klin, Jul 12 1988 -- Initial version * 1.01 klin, Jul 17 1988 -- Remove filesystems completely * 1.02 klin, Feb 5 1990 -- Ported to BSD * Filesystem independent directory handling * Screen handling extracted from screen lib * 2.00 klin, Nov 10 1990 -- Changes and extensions * 2.01 klin, Jan 26 1991 -- Some bug fixes * 2.02 klin, Mar 23 1991 -- User defined commands * File type commands * Some minor changes and bug fixes * Apr 7 1991 -- File pattern extended * 3.00-um klin, Apr 20 1991 -- Bug fixes * May 5 1991 -- Some more extensions * 3.01-um klin, Jun 4 1991 -- File zooming added * Oct 7 1991 -- File size patterns added * Bug in putchar() deleted * Oct 15 1991 -- Handling of symlinks changed * Option -L added * Oct 26 1991 -- Marking directories changed * Sorting and zooming filelists changed * Print tree list added * writedlist() changed * Copying and moving files changed * Select directory added * 3.02-um klin, Nov 1 1991 -- Screen layout changed * Goto parent directory added * Marking files changed * Option -u changed to -n * Option -u (update tree) added * klin, Nov 10 1991 -- buildlist() changed * Function key handling changed * klin, Nov 24 1991 -- Some error fixes and extensions for XENIX * reported and done by Rolf Gebhardt (Nov 22 1991) * Video attributes changed * Cd to current directory before executing * some commands * 3.03-um klin, Feb 11 1992 -- Shell screen put into module hist.[ch] * Shell command history added * Status screen put into module stat.c * Generic list type glist added * Line editor extended, getline() and * editline() changed * Handling of variables and filetype * commands changed * Minor changes in screen layout * klin, Feb 15 1992 -- Video handling changed, display attributes * and video mode flag added * Partitioning of directory and file window on * tree screen changed and option -p added * klin, Feb 22 1992 -- Many commands on tree screen changed * klin, Feb 23 1992 -- Key handling and key bindings changed * User customizable key bindings added * Variables added * klin, Mar 6 1992 -- Minor changes before distribution * a klin, Mar 15 1992 -- Bug fixes and minor changes * b klin, Mar 19 1992 -- Bug fixes in setvariable() and editline() * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. */ #ifndef lint static char sccsid[] = "@(#) utree 3.03-um (klin) Feb 15 1992 vers.c"; #endif /* !lint */ static char version[] = "@(#) UTREE 3.03b-um"; static char copyright[] = "@(#) (C) 1991/92 P. Klingebiel & UNIX Magazin"; static char release[] = "@(#) Release: Mar 19 1992"; #define VERS &version[5] #define COPY ©right[5] #define DATE &release[5] #include "defs.h" /* ---- Functions and procedures -------------------------------------- */ /* Write version string to echoline or helpline */ GLOBL int putversion(l, s) register int l; register char *s; { if(l == helpline) { puthelp(" %s %s (%s)", VERS, COPY, DATE); return(RV_OK); } else if(s) { puthelp("%s %s", s, hitkey); (void) putecho("%s %s (%s)", VERS, COPY, DATE); return(hitakey(NULL)); } } /* putversion() */ /* Print version string */ GLOBL VOID utreeversion() { (void) fprintf(stdout, "%s %s (%s)\n", VERS, COPY, DATE); } /* utreeversion() */ /* Return utree version */ GLOBL char *getversion() { return(VERS); } /* getversion() */ 1 0 utree/src/defs.h1006440013110001060000002565305255652751011051 037777777777 1 0 /* * DEFS.H * UTREE global definitions. * 3.01-um klin, Tue Jun 4 14:16:55 1991 * klin, Tue Oct 15 14:01:57 1991, Handling of symlinks changed * klin, Sat Oct 26 15:27:40 1991, Some additions * 3.02-um klin, Fri Nov 1 10:43:31 1991, Screen layout changed * klin, Sun Nov 24 19:30:43 1991, Cd to current directory before * executing some commands * 3.03-um klin, Sat Jan 11 19:53:57 1992, Generic list glist added * List definitions to list.h * Line editor extended * klin, Sat Feb 15 19:18:06 1992, Display attributes added * Partinioning of directory and * file windows on tree screen * changed * klin, Sun Feb 23 18:16:24 1992, Key handlings and key bindings * changed * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. */ #if defined(_MAIN_) && !defined(lint) static char sccsid_defs[] = "@(#) utree 3.03-um (klin) Feb 23 1992 defs.h"; #endif /* _MAIN_ && !lint */ /* * Global and local include files. */ #include "conf.h" /* Configurable definitions */ #include "cmds.h" /* System commands definitions */ #include #include #include #include #include #include #include #include #include #include #ifdef BSD # include # include #else /* SYSV */ # include # include # ifdef NODIRENT # include # else /* !NODIRENT */ # include # endif /* NODIRENT */ #endif /* BSD */ #include #include #include #include #ifdef NULL /* Reset the standard NULL definition */ # undef NULL #endif /* NULL */ #define NULL ((char *) 0) /* The string NIL pointer */ #ifdef NOWINCHG # undef SIGWINCH # undef TIOCGWINSZ #endif /* NOWINCHG */ /* * Definitions for utree which should not be changed. */ /* Buffer size definitions to avoid too often alloc() and free() */ #define NBUFSZ 1024 /* Filename buffer size */ #define NFILES 64 /* Filename vector size (= NBUFSZ/16) */ #define NBUFINC 512 /* Filename buffer increment */ #define NFILINC 32 /* Filename vector incr (= NBUFINC/16) */ /* Other global definitions */ #ifndef MAXPATHLEN # define NAMELEN 256 /* Max length of pathnames */ #else /* !MAXPATHLEN */ # define NAMELEN MAXPATHLEN #endif /* MAXPATHLEN */ #define FILELEN 256 /* Max input length of filenames */ #define INPLEN 256 /* Often used input buffer length */ #define PATLEN 256 /* Search pattern length */ #define FNAMSZ 16 /* Max filename length on screen */ #define FWINSZ 20 /* Filename width in window */ #define USERCMD 10 /* # of user defined commands */ #define MININD 3 /* Minimal tree indention */ #define MAXIND 9 /* Maximal tree indention */ #define MINFIL 1 /* Minimal number of file lines */ #define MAXFIL 9 /* Maximal number of file lines */ #define DEFFIL 3 /* Default number of file lines */ #define VMODE0 0 /* Minimal video mode: no attributes */ #define VMODE1 1 /* Middle video mode: reverse+underline */ #define VMODE2 2 /* Maximal video mode: all attributes */ #define HLEVEL 9999 /* Huge number for tree level */ #define EXECLEN (2*NAMELEN) /* Command buffer length */ #define HLMIN 6 /* Minimal size of history list */ #define HLMAX 99 /* Maximal size of history list */ #define HLDEF 22 /* Default size of history list */ /* Return values for many functions */ #define RV_OK IN_OK /* Work is done (See keys.h) */ #define RV_NUL IN_NUL /* No input (See keys.h) */ #define RV_INT IN_INT /* Break (See keys.h) */ #define RV_END IN_EOF /* EOF (See keys.h) */ #define RV_HLP IN_HLP /* Help requested (See keys.h) */ #define RV_NXT IN_NXT /* Next requested (See keys.h) */ #define RV_PRV IN_PRV /* Prev requested (See keys.h) */ #define RV_SIZ IN_SIZ /* Screen size changed (See keys.h) */ #define RV_DIR -11 /* Change directory */ #define RV_RET -12 /* Return from file menu */ #define RV_ERR -13 /* Memory error */ /* * Generic list type for scrolling in lists. * Is a component in many other list types. */ typedef struct _glist { char *string; /* General used string */ struct _glist *prev; /* Previous element in list */ struct _glist *next; /* Next element in list */ } glist; #define GNULL ((glist *) 0) /* The glist NIL pointer */ /* * Access to items of glist record is done with macros * to hide this record and for abbreviation. */ #define GNAME(p) ((p)->string) #define GPREV(p) ((p)->prev) #define GNEXT(p) ((p)->next) #include "list.h" /* Directory/file list definitions */ #include "hist.h" /* History list definitons */ #include "vars.h" /* Variable/command definitions */ #include "help.h" /* Help page definitions */ #include "term.h" /* Terminal/screen definitions */ #include "keys.h" /* Key definitions */ /* * Screen update flags. */ #define SF_TREE 0x0001 /* Update tree/file window */ #define SF_LIST 0x0002 /* Update current list entry */ #define SF_LAST 0x0004 /* Update last list entry */ #define SF_SEPL 0x0008 /* Update separator line */ #define SF_HELP 0x0010 /* Update help line */ #define SF_ECHO 0x0020 /* Update echo line */ #define SF_MOVE 0x0040 /* Update cursor position */ #define SF_FILE 0x0080 /* Update file window on tree screen */ #define SF_PBAR 0x0100 /* Update position bar */ #define SF_FULL 0xffff /* Full update */ /* * Display attribute flags. */ #define DA_NONE 0 /* No attributes */ #define DA_NORMAL 0 /* Reset to normal state */ #define DA_REVERSE 1 /* Reverse */ #define DA_BOLD 2 /* Highlight */ #define DA_HALF 3 /* Hide */ #define DA_ERROR 4 /* Error */ #define DA_MARK 5 /* Special mark in menu line */ #define DA_BOLDREV 6 /* Reverse highlight */ #define DA_HALFREV 7 /* Reverse hide */ #define DA_BLINKREV 8 /* Reverse blink */ /* * Some other useful definitions and macros. */ #define GLOBL #define LOCAL static #define EXTRN extern #ifdef lint /* Don't disturb lint ! */ # define VOID int #else /* !lint */ # define VOID void #endif /* lint */ #define EQU(s1, s2) (strcmp(s1, s2) == 0) #define CMP(s1, s2) (strcmp(s1, s2)) /* Get type of file pointed to by struct stat s */ #define STFMT(s) ((s)->st_mode & S_IFMT) /* Check if file f is a directory */ #define ISDIR(f, s) ((*statfun)(f, &s) == 0 && STFMT(&s) == S_IFDIR) /* Check if file f is a block special file */ #define ISBLK(f, s) ((*statfun)(f, &s) == 0 && STFMT(&s) == S_IFBLK) /* Line is not empty and not a comment */ #define VALID(c) ( !(c=='\0' || c=='\n' || c=='#' || c==' ' || c=='\t')) /* Can we change to directory p? */ #define CANCD(p) (access(p, 01) == 0) /* Can we scroll a window and are we allowed to do this? */ #define CANSCROLL (scrollcap && VARSET(V_TS)) /* * External system variables. */ EXTRN int errno; /* System error code number */ /* * Global variables declared in main.c. */ #ifndef _MAIN_ EXTRN char *prgname, *home; EXTRN int helpline, echoline; EXTRN int firstdline, lastdline, ndlines; EXTRN int firstfline, lastfline, nflines, maxnflines; EXTRN int firstline, lastline; EXTRN int indent, maxindent; EXTRN int videomode, videoattr, graphattr; EXTRN int maxlevel; EXTRN int filecount, dircount; EXTRN int treeflag, fileflag; EXTRN int buildflag, writeflag; EXTRN int sortbytime; EXTRN int hiddendirs; EXTRN int sizechange; EXTRN dlist *droot, *cdlist, *cwlist; EXTRN int fperpage, fperline; EXTRN char rootdir[]; EXTRN char fpattern[], gpattern[], tpattern[]; EXTRN char utreemenu[], ufilemenu[]; EXTRN int (*statfun)(); # ifdef BSD EXTRN jmp_buf winchjump; EXTRN int atread; # endif /* BSD */ EXTRN char *who, *hitkey; #endif /* !_MAIN_ */ /* * Declaration of library and internal utree functions. */ #ifdef S_IFLNK EXTRN int stat(), lstat(); #else /* ! S_IFLNK */ # define lstat stat EXTRN int stat(); #endif /* S_IFLNK */ #ifdef BSD # define getcwd(p, n) getwd(p) # define strchr(s, c) index(s, c) # define strrchr(s, c) rindex(s, c) # define memset(s, c, n) bzero(s, n) EXTRN char *index(), *rindex(); EXTRN DIR *opendir(); EXTRN struct direct *readdir(); #else /* SYSV */ # ifdef NODIRENT # define DIR FILE # define opendir(n) fopen(n, "r") # define closedir(p) fclose(p) # define rewinddir(p) rewind(p) # else /* !NODIRENT */ EXTRN DIR *opendir(); EXTRN struct dirent *readdir(); # endif /* NODIRENT */ EXTRN char *strchr(), *strrchr(); #endif /* BSD */ EXTRN char *strcpy(), *getenv(), *fgets(), *ctime(); EXTRN time_t time(); EXTRN dlist *newdlist(); EXTRN char *ualloc(), *basename(), *pathname(), *fileaccess(), *strsav(); changed * klin, Sun Feb 23 18:16:24 1992, Key handlings anutree/src/echo.c1006440013110001060000002354605255652751011040 037777777777 1 0 /* * ECHO.C * UTREE input and output routines. * 3.01-um klin, Wed May 1 15:37:35 1991 * klin, Sat Oct 26 15:30:11 1991, putfile() changed * 3.02-um klin, Fri Nov 1 13:40:54 1991, putfile() changed * klin, Sun Nov 24 15:30:35 1991, Video attributes changed * 3.03-um klin, Tue Feb 11 19:39:09 1992, Generic list glist added * getline() and putfxy() changed * printf() no more needed * klin, Sun Feb 23 17:14:20 1992, Key handling and key bindings * changed * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. */ #ifndef lint static char sccsid[] = "@(#) utree 3.03-um (klin) Feb 23 1992 echo.c"; #endif /* !lint */ #include "defs.h" /* ---- Local variables and definitions ------------------------------- */ #ifdef BUFSIZ # define FBUFLEN BUFSIZ /* Format buffer length */ #else /* !BUFSIZ */ # define FBUFLEN 512 #endif /* BUFSIZ */ LOCAL char helpbuf[FBUFLEN]; /* Help line buffer */ LOCAL char echobuf[FBUFLEN]; /* Echo line buffer */ /* ---- Functions and procedures -------------------------------------- */ /* Switch graphical character on/off */ GLOBL int setgraphic(f) register int f; { if(graphcap && VARSET(V_GC)) { graphattr = f; return(1); } return(0); } /* setgraphic() */ /* Set video attributes from display attribute f */ GLOBL VOID setvideo(f) register int f; { if(videomode > 0) { switch(f) { case DA_NORMAL: /* Reset attributes */ videoattr = VA_NORMAL; break; case DA_REVERSE: /* Invert */ videoattr = VA_REVERSE; break; case DA_BOLD: /* Highlight */ if(videomode > 1) videoattr = VA_BOLD; break; case DA_HALF: /* Hide */ if(videomode > 1) videoattr = VA_HALF; break; case DA_ERROR: /* Error */ if(videomode > 1) videoattr = VA_BOLD|VA_BLINK; break; case DA_MARK: /* Menu mark */ videoattr = videomode > 1 ? VA_BOLD|VA_REVERSE : VA_UNDERLINE|VA_REVERSE; break; case DA_BOLDREV: /* Reverse hightlight */ videoattr = videomode > 1 ? VA_BOLD|VA_REVERSE : VA_REVERSE; break; case DA_HALFREV: /* Reverse hide */ videoattr = videomode > 1 ? VA_HALF|VA_REVERSE : VA_REVERSE; break; case DA_BLINKREV: /* Reverse blink */ videoattr = videomode > 1 ? VA_BLINK|VA_REVERSE : VA_REVERSE; break; default: break; } } else videoattr = VA_NORMAL; } /* setvideo() */ /* Write character c to column x at line y */ GLOBL VOID putcxy(x, y, c) register int x, y, c; { if(cursorxy(x, y)) (void) putchar(c); } /* putcxy() */ /* Write string s to column x at line y. Return new column position */ GLOBL int putsxy(x, y, s) int x, y; register char *s; { (void) cursorxy(x, y); while(*s && *s != '\n' && putchar(*s)) ++s; cursorpos(&x, &y); return(x); } /* putsxy() */ /* Write formatted to column x at line y */ #if !defined(BSD) || defined(HASVSPRINTF) /*VARARGS3*/ GLOBL int putfxy(x, y, c, va_alist) register int x, y, c; va_dcl { va_list ap; char buf[FBUFLEN]; register char *fmt; register int n; va_start(ap); fmt = va_arg(ap, char *); (void) vsprintf(buf, fmt, ap); va_end(ap); #else /* BSD && !HASVSPRINTF */ /*VARARGS4*/ GLOBL int putfxy(x, y, c, fmt, p1, p2, p3, p4, p5, p6) int x, y, c; char *fmt, *p1, *p2, *p3, *p4, *p5, *p6; { char buf[FBUFLEN]; register int n; (void) sprintf(buf, fmt, p1, p2, p3, p4, p5, p6); #endif /* !BSD || HASVSPRINTF */ n = putsxy(x, y, buf); if(n < columns && c) clearline(); return(n); } /* putfxy() */ /* Write formatted to echoline, return new column position */ #if !defined(BSD) || defined(HASVSPRINTF) /*VARARGS0*/ GLOBL int putecho(va_alist) va_dcl { va_list ap; register char *fmt; register int n; va_start(ap); fmt = va_arg(ap, char *); (void) vsprintf(echobuf, fmt, ap); va_end(ap); #else /* BSD && !HASVSPRINTF */ /*VARARGS1*/ GLOBL int putecho(fmt, p1, p2, p3, p4, p5, p6) char *fmt, *p1, *p2, *p3, *p4, *p5, *p6; { register int n; (void) sprintf(echobuf, fmt, p1, p2, p3, p4, p5, p6); #endif /* !BSD || HASVSPRINTF */ if((n = putsxy(0, echoline, echobuf)) < columns) { (void) putchar(' '); ++n; clearline(); } treeflag |= SF_ECHO; fileflag |= SF_ECHO; return(n); } /* putecho() */ /* Write formatted to helpline */ #if !defined(BSD) || defined(HASVSPRINTF) /*VARARGS0*/ GLOBL VOID puthelp(va_alist) va_dcl { va_list ap; register char *fmt; va_start(ap); fmt = va_arg(ap, char *); (void) vsprintf(helpbuf, fmt, ap); va_end(ap); #else /* BSD && !HASVSPRINTF */ /*VARARGS1*/ GLOBL VOID puthelp(fmt, p1, p2, p3, p4, p5, p6) char *fmt, *p1, *p2, *p3, *p4, *p5, *p6; { (void) sprintf(helpbuf, fmt, p1, p2, p3, p4, p5, p6); #endif /* !BSD || HASVSPRINTF */ setvideo(DA_REVERSE); (void) putsxy(0, helpline, helpbuf); while(putchar(' ')) ; setvideo(DA_NORMAL); treeflag |= SF_HELP; fileflag |= SF_HELP; } /* puthelp() */ /* Write menu title t and commands line s to help line */ GLOBL VOID putmenu(t, s) register char *t, *s; { (void) cursorxy(0, helpline); setvideo(DA_REVERSE); while(*t && putchar(*t)) /* Title */ ++t; while(*s && putchar(*s)) { /* Menu line */ if(*s == ' ' && *(s+1) && *(s+1) != ' ') { setvideo(DA_MARK); (void) putchar(*++s); setvideo(DA_REVERSE); } ++s; } while(putchar(' ')) ; setvideo(DA_NORMAL); treeflag |= SF_HELP; fileflag |= SF_HELP; } /* putmenu() */ /* Write filename and mode or tag flag */ GLOBL VOID putfile(dp, f, fs) register dlist *dp; register int f, fs; { register char *s; register int i; /* File on file screen? */ if(fs && FFROW(dp, f) >= firstline && FFROW(dp, f) <= lastline) (void) cursorxy(FFCOL(dp, f), FFROW(dp, f)); /* Or file window on tree screen? */ else if( !fs && FTROW(f) >= firstfline && FTROW(f) <= lastfline) (void) cursorxy(FTCOL(f), FTROW(f)); /* Out of bounds */ else return; if(DNFIL(dp) > 0 && DFVEC(dp)) { if(ISTAG(dp, f) && setgraphic(GC_ON)) { (void) putchar(GC_TG); (void) setgraphic(GC_OFF); } else (void) putchar(FITAG(dp, f)); /* Mark tagged or current file */ if(fs) { if(fs == FF_MARK) setvideo(DA_BLINKREV); else if(f == DFCUR(dp)) setvideo(DA_BOLDREV); } /* Write file mode and filename */ (void) putchar(FMODE(dp, f)); for(s = FFNAM(dp, f), i = 0; i < FNAMSZ && s[i]; i++) (void) putchar(s[i]); /* Cut off too long filenames */ if(s[i]) (void) putchar(s[i+1] ? '>' : s[i]); else while(i++ <= FNAMSZ && putchar(' ')) ; if(fs) setvideo(DA_NORMAL); } } /* putfile() */ /* Write message s to line l with videoattr v and get a key */ /*VARARGS1*/ GLOBL int hitakey(s, l, v) register char *s; register int l, v; { register int c; if(s) { if(v) setvideo(v); if(l == echoline) { (void) putfxy(0, l, 1, "%s ", s); treeflag |= SF_ECHO; fileflag |= SF_ECHO; } else (void) putfxy(0, l, 1, " %s ", s); if(v) setvideo(DA_NORMAL); } cursorset(CF_VISIBLE); c = getkey(); cursorset(CF_INVISIBLE); flushout(); switch(c) { case K_BRK: /* Interrupt */ case K_CANC: return(RV_INT); case K_SIZE: /* Screen size changed */ return(RV_SIZ); case K_EOF: /* EOF */ return(RV_END); case K_SEL: /* CR or NL */ return(K_SEL); default: /* Return lower character */ return(isupper(c) ? tolower(c) : c); } } /* hitakey() */ /* Write error message to echo line and get a key */ GLOBL int errequest(fn, s) register char *fn, *s; { bell(1); setvideo(DA_ERROR); (void) putecho("!! %s: %s", fn, s); setvideo(DA_NORMAL); return(hitakey(NULL)); } /* errequest() */ /* Read and edit a line */ GLOBL int getline(buf, max, cur, hk, pre, rp, f) char *buf, *pre; register int max, cur, hk, f; glist *rp; { char help[FBUFLEN], echo[FBUFLEN]; int xmin, xpos; register int c; (void) strcpy(help, helpbuf); /* Save current help and echo lines */ (void) strcpy(echo, echobuf); xmin = xpos = 0; /* Setup input buffer variables */ if(pre) (void) strcpy(buf, pre); else buf[0] = '\0'; while(1) { /* Edit line loop */ cursorset(CF_VISIBLE); c = editline(buf, max, cur, &xmin, &xpos); cursorset(CF_INVISIBLE); flushout(); switch(c) { case RV_HLP: /* Help requested */ if((c = showhelp(hk)) == RV_END) return(c); puthelp("%s", help); (void) putecho("%s", echo); break; case RV_PRV: /* Previous in list */ if(rp) { if(f) f = 0; else if(GPREV(rp)) rp = GPREV(rp); else { while(GNEXT(rp)) rp = GNEXT(rp); bell(1); } (void) strcpy(buf, GNAME(rp)); } else bell(1); break; case RV_NXT: /* Next in list */ if(rp) { if(f) f = 0; else if(GNEXT(rp)) rp = GNEXT(rp); else { while(GPREV(rp)) rp = GPREV(rp); bell(1); } (void) strcpy(buf, GNAME(rp)); } else bell(1); break; default: /* Others: return */ return(c); } } /*NEVER REACHED*/ } /* getline() */ utree/src/edit.c1006440013110001060000002110105255652752011031 037777777777 1 0 /* * EDIT.C * UTREE simple line editor. * 3.01-um klin, Wed May 1 16:13:20 1991 * 3.02-um klin, Sun Nov 24 15:28:27 1991, Video attributes changed * 3.03-um klin, Tue Feb 11 19:39:09 1992, Line editor changed * klin, Sun Feb 23 17:15:13 1992, Key handling and key bindings * changed * b klin, Thu Mar 19 10:34:41 1992, Bug in editline() fixed * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. */ #ifndef lint static char sccsid[] = "@(#) utree 3.03b-um (klin) Mar 19 1992 edit.c"; #endif /* !lint */ #include "defs.h" /* ---- Local variables and definitions ------------------------------- */ LOCAL char *line; /* Line buffer */ LOCAL int pos, len, xpos; /* Lines position and length */ LOCAL int size, xmin, xmax, xdiff; /* Window variables */ LOCAL int omode = 1; /* Insert/overwrite mode flag */ /* ---- Local/global functions and procedures ------------------------- */ /* * INTERNAL USED ROUTINES */ /* Update/show line */ LOCAL VOID putline(from, to, clear) register int from, to, clear; { register int i; for(i = from; line[i] && i < to && i <= xmax; i++) (void) putchar(line[i]); if(clear && i < xmax) clearline(); (void) cursorxy(xpos + pos - xmin, echoline); } /* putline() */ /* Scroll forward line */ LOCAL VOID scrollforw(to) register int to; { xmin += xdiff; xmax += xdiff; if(to) { (void) cursorxy(xpos, echoline); putline(xmin, to, 1); } } /* scrollforw() */ /* Scroll backward line */ LOCAL VOID scrollback(to) register int to; { xmin -= xdiff; xmax -= xdiff; if(to) { (void) cursorxy(xpos, echoline); putline(xmin, to, 0); } } /* scrollback() */ /* Move cursor one character forward */ LOCAL VOID charforw() { if(xmax < len && pos == xmax) scrollforw(len); (void) putchar(line[pos++]); } /* charforw() */ /* Move cursor one character backward */ LOCAL VOID charback() { if(xmin > 0 && pos == xmin) scrollback(len); --pos; backspace(); } /* charback() */ /* Show insert/overwrite mode setting at end of helpline */ LOCAL VOID showmode() { setvideo(DA_REVERSE); (void) putsxy(-11, helpline, omode ? "[OVERWRITE]" : " [INSERT]"); setvideo(DA_NORMAL); (void) cursorxy(xpos + pos - xmin, echoline); } /* showmode() */ /* * LINE EDITOR */ /* Read and edit a line */ GLOBL int editline(buf, max, cur, xm, xp) char *buf; register int max, cur; register int *xm, *xp; { register int rv, maxc, mark, c, oc, i, j; /* Adjust to at least 32 columns window size */ if((columns - cur) < 32) { xpos = columns - 32; (void) cursorxy(xpos-2, echoline); clearline(); (void) putchar(':'); (void) putchar(' '); flushout(); } else xpos = cur; /* Calculate window sizes for scrolling */ maxc = columns - xpos; size = max < maxc ? max : maxc; --max; --size; /* Calculate scrolling sizes */ xdiff = size / 4; xmin = *xm; xmax = xmin + size; /* Setup input buffer variables */ line = buf; pos = *xp; len = strlen(buf); mark = 0; rv = IN_OK + 99; /* Set up mode string */ showmode(); /* Display input buffer if not empty */ if(len > 0) { (void) cursorxy(xpos, echoline); putline(xmin, xmax, 1); } /* Line editor loop */ do { switch(c = getkey()){ case K_EOF: /* EOF */ line[0] = '\0'; rv = IN_EOF; break; case K_BRK: /* Interrupt */ line[0] = '\0'; rv = IN_INT; break; case K_SIZE: /* Screen size changed */ line[0] = '\0'; rv = IN_SIZ; break; case K_HELP: /* Help */ line[len] = '\0'; rv = IN_HLP; break; case K_PREV: /* Previous */ line[len] = '\0'; rv = IN_PRV; break; case K_NEXT: /* Next */ line[len] = '\0'; rv = IN_NXT; break; case K_SEL: /* End edit and accept line */ while(len > 0 && line[len-1] <= ' ') line[--len] = '\0'; if(line[0] == ' ') { for(i = 0; line[i] && line[i] == ' '; i++) --len; for(j = 0; j <= len; j++, i++) line[j] = line[i]; } rv = len > 0 ? IN_OK : IN_NUL; break; case K_INS: /* Switch insert/overwrite mode */ omode = !omode; showmode(); break; case K_CANC: /* Cancel line */ len = pos = 0; line[len] = '\0'; xmin = 0; xmax = size; mark = 0; case K_REFR: /* Refresh line */ (void) cursorxy(xpos, echoline); putline(xmin, xmax, 1); break; case K_KILL: /* Kill rest of line */ line[len = pos] = '\0'; clearline(); mark = 0; break; case K_MARK: /* Set mark */ mark = pos; break; case K_GOTO: /* Goto mark */ i = mark; mark = pos; if(pos < i) while(pos < len && pos < i) charforw(); else if(pos > i) while(pos > 0 && pos > i) charback(); break; case K_TAG: /* Transpose characters */ if(pos > 0 && pos < len) { oc = buf[pos]; buf[pos] = buf[pos-1]; buf[pos-1] = oc; charback(); charforw(); charforw(); } break; case K_FORW: /* Cursor forward */ if(pos < len) charforw(); break; case K_BACK: /* Cursor backward */ if(pos > 0) charback(); break; case K_HOME: /* Cursor to beginning of line */ mark = pos; if(pos > 0) { pos = 0; (void) cursorxy(xpos, echoline); if(xmin > 0) { xmin = 0; xmax = size; putline(pos, len, 1); } } break; case K_END: /* Cursor to end of line */ mark = pos; if(pos < len) { pos = len; if(xmax > len) (void) cursorxy(xpos + pos - xmin, echoline); else { do { xmin += xdiff; xmax += xdiff; } while(xmax < len); (void) cursorxy(xpos, echoline); putline(xmin, len, 1); } } break; case K_NPAG: /* Scroll line forward */ if(xmax < len) { if((pos - xdiff) < (xmin + xdiff)) pos += xdiff; scrollforw(len); } else for(i = 0; pos < len && i < xdiff; i++) charforw(); break; case K_PPAG: /* Scroll line backward */ if(xmin > 0) { if((pos + xdiff) > (xmax - xdiff)) pos -= xdiff; scrollback(len); } else for(i = 0; pos > 0 && i < xdiff; i++) charback(); break; case K_DEL: /* Delete char left from cursor */ if(pos <= 0) break; --pos; if(xmin > 0 && pos == xmin) scrollback(pos); else backspace(); case K_DOWN: /* Delete character under cursor */ if(pos == len || len == 0) break; --len; for(i = pos; i < len; i++) line[i] = line[i+1]; line[len] = '\0'; if(xmax < len || !deletechar()) putline(pos, len, 1); break; case K_UP: /* Not handled symbols */ case K_STR: case K_INV: bell(1); break; default: /* Insert character */ if( !(len < max && isprint(c))) { bell(1); break; } if(pos == len || omode) { if(pos == xmax) scrollforw(len); line[pos] = c; (void) putchar(c); if(pos == len) buf[++len] = '\0'; ++pos; } else { for(i = pos; i <= len; i++) { oc = line[i]; line[i] = c; c = oc; } line[++len] = '\0'; if(pos == xmax) { scrollforw(len); (void) putchar(line[pos++]); } else if(insertchar()) (void) putchar(line[pos++]); else { (void) putchar(line[pos++]); putline(pos, len, 1); } } break; } } while(rv > IN_OK); *xm = xmin; *xp = pos; return(rv); } /* editline() */ /* Previous in list */ if(rp) { if(f) f = 0; else if(GPREV(rp)) rp = GPREV(rp); else { while(GNEXT(rp)) rp = GNEXT(rp); bell(1); } (void) strcpy(buf, GNAME(rp)); } else bell(1); break; case RV_NXT: /* Next in list */ if(rp) { if(f) f = 0; else iutree/src/hist.c1006440013110001060000002711505255652752011066 037777777777 1 0 /* * HIST.C * UTREE shell escape, shell execution and command history. * 3.03-um klin, Tue Feb 11 22:35:55 1992, Derived from comm.c and * shell command history added * klin, Sat Feb 15 14:44:52 1992, Video handling changed * klin, Sun Feb 23 18:45:19 1992, Keybindings and variable * AUTOSAVE added * klin, Fri Mar 6 07:24:57 1992, Minor changes * a klin, Sun Mar 15 19:08:25 1992, Search in history list added * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. */ #ifndef lint static char sccsid[] = "@(#) utree 3.03a-um (klin) Mar 15 1992 hist.c"; #endif /* !lint */ #include "defs.h" /* ---- Local variables and definitions ------------------------------- */ LOCAL jmp_buf intrjump; /* Buffer for longjump */ LOCAL clist *chcurr = CHNULL; /* Current entry in history list */ LOCAL int chsiz = 0; /* Size of history list */ LOCAL int chmax = HLDEF; /* Max size of history list */ LOCAL int chnum = 0; /* Event number */ LOCAL int hlchg = 0; /* History list changed */ /* ---- External variables and functions ------------------------------ */ EXTRN char *getversion(); /* ---- Functions and procedures -------------------------------------- */ /* * INTERNAL USED ROUTINES */ /* Catch signals SIGINT and SIGQUIT */ LOCAL int oninterrupt() { (void) signal(SIGINT, SIG_IGN); (void) signal(SIGQUIT, SIG_IGN); longjmp(intrjump, RV_INT); /*NOTREACHED*/ } /* oninterrupt() */ /* Insert command cmd into history list */ LOCAL clist *inserthistory(cmd, f) register char *cmd; register int f; { register clist *cp, *p; /* Check if command is already in history list */ if(cp = chcurr) { do { if(EQU(cmd, CHCMD(cp))) { ++CHCNT(cp); if(cp != chcurr) { p = (clist *) CHPRV(cp); CHNXT(p) = CHNXT(cp); p = (clist *) CHNXT(cp); CHPRV(p) = CHPRV(cp); p = (clist *) CHNXT(chcurr); CHPRV(p) = CHNXT(chcurr) = (glist *) cp; CHPRV(cp) = (glist *) chcurr; CHNXT(cp) = (glist *) p; chcurr = cp; } return(cp); } cp = (clist *) CHNXT(cp); } while(cp != chcurr); } /* Create root of history list */ if(chsiz == 0) { chcurr = (clist *) ualloc(1, sizeof(clist)); CHCMD(chcurr) = strsav(cmd); CHLEN(chcurr) = strlen(cmd); CHPRV(chcurr) = CHNXT(chcurr) = (glist *) chcurr; CHNUM(chcurr) = ++chnum; CHCNT(chcurr) = f ? 1 : 0; ++chsiz; } /* Create new entry in history list */ else if(chsiz < chmax) { cp = (clist *) ualloc(1, sizeof(clist)); CHCMD(cp) = strsav(cmd); CHLEN(cp) = strlen(cmd); CHNUM(cp) = ++chnum; CHCNT(cp) = f ? 1 : 0; CHPRV(cp) = (glist *) chcurr; CHNXT(cp) = CHNXT(chcurr); p = (clist *) CHNXT(chcurr); CHPRV(p) = (glist *) cp; CHNXT(chcurr) = (glist *) cp; chcurr = cp; ++chsiz; } /* Overwrite existing entry = the next in the chain */ else { chcurr = (clist *) CHNXT(chcurr); if(CHLEN(chcurr) < strlen(cmd)) { ufree(CHCMD(chcurr)); CHCMD(chcurr) = strsav(cmd); CHLEN(chcurr) = strlen(cmd); } else (void) strcpy(CHCMD(chcurr), cmd); CHNUM(chcurr) = ++chnum; CHCNT(chcurr) = f ? 1 : 0; } /* Update changed flag and return */ if(f) hlchg = 1; return(chcurr); } /* inserthistory() */ /* Display history list */ LOCAL int showhistory() { register clist *cp; register int l, c, n; l = firstline; c = RV_OK; clearwindow(firstline, lastline); cp = chcurr; do { n = putfxy(0, l, 0, "%-6d %s", CHNUM(cp), CHCMD(cp)); (void) putfxy(n > columns/2 ? n : columns/2, l, 0, "#%d", CHCNT(cp)); cp = (clist *) CHNXT(cp); if(++l > lastline && cp != chcurr) { puthelp("COMMAND HISTORY (CR:continue Q:quit ELSE:give command)"); c = hitakey("More commands ?", echoline, DA_NONE); if( !(c == ' ' || c == '\n')) break; clearwindow(firstline, lastline); l = firstline; } } while(cp != chcurr); treeflag = fileflag = SF_FULL; return(c); } /* showhistory() */ /* Execute a shell command */ LOCAL int callcommand(w) register int w; { char buf[EXECLEN]; register clist *cp; register int c, rv, f; who = "SHELL"; if(chcurr) puthelp("%s: Give command line or select from history (CR:quit)", who); else puthelp("%s: Give command line (CR:quit)", who); /* Get command loop. Handle command given by history number */ f = 1; buf[0] = '\0'; while(1) { c = putecho("Command:"); c = getline(buf, sizeof(buf), c, 'l', buf, chcurr ? CHLST(chcurr) : GNULL, f); if(c == RV_OK && buf[0] == '!') { if(cp = chcurr) { if(buf[1] == '!' && chcurr) { /* Recall last command */ (void) strcpy(buf, CHCMD(chcurr)); continue; } else if(buf[1] >= '1' && buf[1] <= '9') { /* Search for number */ c = atoi(&buf[1]); do { if(CHNUM(cp) == c) { /* Found */ (void) strcpy(buf, CHCMD(cp)); chcurr = cp; f = 0; break; } cp = (clist *) CHNXT(cp); } while(cp != chcurr); continue; } else { /* Search for string */ (void) strcat(buf, "*"); do { if(match(CHCMD(cp), &buf[1])) { /* Found */ (void) strcpy(buf, CHCMD(cp)); chcurr = cp; f = 0; break; } cp = (clist *) CHNXT(cp); } while(cp != chcurr); continue; } } continue; } else break; } /* Command given: insert into history list and execute */ if(c == RV_OK) { cp = inserthistory(buf, 1); if(strchr(buf, '%')) { c = userformat(buf, CHCMD(cp), w, "SHELL"); if(c == RV_NUL) { puthelp("%s %s", who, hitkey); return(errequest("SHELL", "Bad format")); } else if(c != RV_OK) return(c); } puthelp("%s: %s", who, buf); rv = callsystem(buf, 1, 0); treeflag = fileflag = SF_FULL; } else return(c); if(rv == RV_INT) return(errequest("Shell escape", "Interrupted")); return(hitakey("Return from shell (Hit a key)", lines-1, DA_REVERSE)); } /* callcommand() */ /* Call shell interactively */ LOCAL int callshell() { register int pid, rpid; int status; /* Ignore signals SIGINT and SIGQUIT */ (void) signal(SIGINT, SIG_IGN); (void) signal(SIGQUIT, SIG_IGN); /* Clear screen and reset terminal to cooked mode */ clearscreen(); setvideo(DA_REVERSE); #define LINE \ "SHELL ESCAPE: Hit \'EOF character\' or \'exit\' to return to utree" bell(VARSET(V_BL)); (void) putsxy(0, 0, LINE); while(putchar(' ')) ; #undef LINE setvideo(DA_NORMAL); cursorset(CF_VISIBLE); terminalreset(0); /* Fork child process */ #if defined(BSD) || defined(HASVFORK) if((pid = vfork()) < 0) { #else /* SYSV && !HASVFORK */ if((pid = fork()) < 0) { #endif /* BSD || HASVFORK */ (void) errequest(prgname, "Cannot fork"); status = 0; } /* Start the shell in child process */ else if(pid == 0) { /* Reset signal interrupt and quit */ (void) signal(SIGINT, SIG_DFL); (void) signal(SIGQUIT, SIG_DFL); /* Execute interactive shell */ (void) execlp(VARVAL(V_SH), VARVAL(V_SH), "-i", NULL); _exit(1); } /* Parent: wait for return from shell */ else { while((rpid = wait(&status)) != -1 && rpid != pid) ; status >>= 8; } /* Reset terminal to raw mode und set screen flags */ cursorset(CF_INVISIBLE); terminalraw(0); treeflag = fileflag = SF_FULL; return(status); } /* callshell() */ /* * COMMON USED COMMAND EXECUTION */ /* Execute a command, return exit code */ GLOBL int callsystem(cmd, c, s) register char *cmd; register int c, s; { register int pid, rpid, rv; int status; if(c) { /* Reset terminal to cooked mode */ if(s) clearscreen(); else clearwindow(helpline + 1, lines - 1); cursorset(CF_VISIBLE); terminalreset(0); } else /* Turn on signal handling */ enablesignals(); flushout(); /* Fork child process */ #if defined(BSD) || defined(HASVFORK) if((pid = vfork()) < 0) { #else /* SYSV && !HASVFORK */ if((pid = fork()) < 0) { #endif /* BSD || HASVFORK */ (void) errequest(prgname, "Cannot fork"); status = 0; } /* Child process */ else if(pid == 0) { /* Reset signals interrupt and quit for child */ (void) signal(SIGINT, SIG_DFL); (void) signal(SIGQUIT, SIG_DFL); if( !c) { (void) close(0); /* Close stdin */ (void) close(1); /* stdout */ (void) close(2); /* and stderr */ } /* Let the shell execute the command line */ (void) execlp(SHELL, SHELL, "-c", cmd, NULL); _exit(1); } /* Parent: wait for termination of child */ else { /* Set up here if an interrupt was catched */ if( !(rv = setjmp(intrjump))) { /* Catch signals interrupt and quit */ (void) signal(SIGINT, oninterrupt); (void) signal(SIGQUIT, oninterrupt); } while((rpid = wait(&status)) != -1 && rpid != pid) ; if(rv != RV_INT) rv = status >> 8 ? RV_NUL : RV_OK; } if(c) { /* Set terminal to raw mode and set screen flags */ terminalraw(0); treeflag = fileflag = SF_FULL; } else /* Turn off signal handling */ disablesignals(); cursorset(CF_INVISIBLE); flushout(); return(rv); } /* callsystem() */ /* * COMMAND HISTORY */ /* Set size of history list */ GLOBL int sethistorysize(n) register int n; { static char buf[4]; if(n < HLMIN || n > HLMAX) return(1); chmax = n; (void) sprintf(buf, "%d", n); VARDEF(V_HS) = VARVAL(V_HS) = buf; return(0); } /* sethistorysize() */ /* Init history list */ GLOBL VOID inithistory() { #ifdef UTHIST char name[NAMELEN], cmd[INPLEN]; register FILE *fp; register int l; (void) strcpy(name, pathname(UTHIST, home)); if(fp = fopen(name, "r")) { while(fgets(cmd, sizeof(cmd), fp)) { if(VALID(cmd[0])) { l = strlen(cmd) - 1; if(cmd[l] == '\n') cmd[l] = '\0'; (void) inserthistory(cmd, 0); } } (void) fclose(fp); } #endif /* UTHIST */ } /* inithistory() */ /* Save history list to history file in $HOME */ GLOBL VOID savehistory() { #ifdef UTHIST char name[NAMELEN]; register FILE *fp; register clist *cp; time_t t; if(VARVAL(V_AS) && chcurr && hlchg) { (void) strcpy(name, pathname(UTHIST, home)); if(fp = fopen(name, "w")) { t = time((time_t *) 0); (void) fprintf(fp, "# %s: ~/%s, %s", getversion(), UTHIST, ctime(&t)); cp = (clist *) CHNXT(chcurr); do { (void) fprintf(fp, "%s\n", CHCMD(cp)); cp = (clist *) CHNXT(cp); } while(cp != (clist *) CHNXT(chcurr)); (void) fclose(fp); } } #endif /* UTHIST */ } /* savehistory() */ /* Display history list, execute shell or command */ GLOBL int history(c, w) register int c, w; { if(c == '$') /* Execute interactive shell */ return(callshell()); do { /* Sehll command loop */ if(chcurr) { /* Display history list */ if((c = showhistory()) < RV_NUL || c == 'q') break; } c = callcommand(w); /* Execute command */ } while(c > RV_NUL); return(c); } /* history() */ gnals SIGINT and SIGQUIT */ LOCAL int oninterrupt() { (void) signal(SIGINT, SIG_IGN); (void) signal(SIGQUIT, SIG_IGN); longjmp(intrjump, RV_INT); /*NOTREACHED*/ } /* oninterrupt() */ /* Insert command cmd into history list */ LOCAL clist *inserthistory(cmd, f) register char *cmd; register int f; { register clist *cp, *p; /* Check if command is already in history list */ if(cp = chcurr) { do { if(EQU(utree/src/keys.h1006440013110001060000001701405255652752011074 037777777777 1 0 /* * KEYS.H * UTREE key definitions. * 3.01-um klin, Sat Apr 20 11:02:33 1991 * 3.02-um klin, Sun Nov 10 19:46:21 1991, Function key handling changed * klin, Sun Nov 24 12:12:13 1991, Extensions for XENIX reported * by Rolf Gebhardt (RG 11/22/91) * 3.03-um klin, Sat Feb 11 19:52:04 1992, Line editor extended * klin, Sun Feb 23 17:34:01 1992, Key handling and key bindings * a klin, Sun Mar 15 19:08:25 1992, Bug fix in handling 8 bit chars * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. */ #if defined(_MAIN_) && !defined(lint) static char sccsid_keys[] = "@(#) utree 3.03a-um (klin) Mar 15 1992 keys.h"; #endif /* _MAIN_ && !lint */ /* * Return values from getline() and editline() */ #define IN_OK 1 /* Input not empty and ok */ #define IN_NUL 0 /* Input empty */ #define IN_INT -1 /* Interrupt on input */ #define IN_EOF -2 /* EOF on input */ #define IN_HLP -3 /* Help key on input */ #define IN_NXT -4 /* Next key on input */ #define IN_PRV -5 /* Previous key on input */ #define IN_SIZ -6 /* Screen size changed */ /* * Key symbols and initial bindings = return values from getkey() */ #define K_SEL 0x000a /* Select/accept line = NEWLINE */ #define K_FORW 0xff10 /* Forward character/file/directory */ #define K_BACK 0xff11 /* Backward character/file/directory */ #define K_NEXT 0xff12 /* Next listentry/file/directory */ #define K_PREV 0xff13 /* Previous listentry/file/directory */ #define K_NPAG 0xff14 /* Next page */ #define K_PPAG 0xff15 /* Previous page */ #define K_HOME 0xff16 /* Beginning line/files/directories */ #define K_END 0xff17 /* End line/files/directories */ #define K_UP 0xff18 /* Scroll up files/directories */ #define K_DOWN 0xff19 /* Scroll down or delete character */ #define K_INS 0xff20 /* Change to dir/toggle insert mode */ #define K_DEL 0xff21 /* Change to parent/delete char back */ #define K_KILL 0xff22 /* Kill line */ #define K_MARK 0xff23 /* Set mark on line/file/directory */ #define K_GOTO 0xff24 /* Goto mark on line/file/directory */ #define K_TAG 0xff25 /* Goto tagged dir/file or transpose */ #define K_HELP 0xff26 /* Help */ #define K_REFR 0xff27 /* Refresh */ #define K_CANC 0xff28 /* Cancel line */ #define K_BRK 0xff29 /* Break command/line */ #define K_EOF 0xff30 /* EOF */ #define K_STR 0xffe0 /* Insert string */ #define K_INV 0xffff /* Invalid symbol */ #define K_SIZE 0xff /* Screen size changed */ /* * All key symbol definitions are hold in an array of record type * struct _kname to permit dynamic key bindings. */ typedef unsigned short ksym; /* Type of key symbol */ typedef unsigned char kchar; /* Type of key strings */ #define UNULL ((kchar *) 0) /* The kchar NIL pointer */ typedef struct _kname { glist list; /* Contains key name and pointers */ ksym symbol; /* Key symbol (See definitions above) */ char *comment; /* Meaning of key */ } kname; #ifdef _MAIN_ kname keynames[] = { { { "SELECT", GNULL, GNULL }, K_SEL, "Select/accept line" }, { { "FORWARD", GNULL, GNULL }, K_FORW, "Forward character/file/directory" }, { { "BACKWARD", GNULL, GNULL }, K_BACK, "Backward character/file/directory" }, { { "NEXT", GNULL, GNULL }, K_NEXT, "Next string/file/directory" }, { { "PREVIOUS", GNULL, GNULL }, K_PREV, "Previous string/file/directory" }, { { "NEXTPAGE", GNULL, GNULL }, K_NPAG, "Next page/scroll forward line" }, { { "PREVPAGE", GNULL, GNULL }, K_PPAG, "Previous page/scroll backward line" }, { { "BEGIN", GNULL, GNULL }, K_HOME, "Beginning of line/files/directories" }, { { "END", GNULL, GNULL }, K_END, "End of line/files/directories" }, { { "UP", GNULL, GNULL }, K_UP, "Scroll up files/directories" }, { { "DOWN", GNULL, GNULL }, K_DOWN, "Scroll down or delete character" }, { { "INSERT", GNULL, GNULL }, K_INS, "Change to dir/toggle insert mode" }, { { "DELETE", GNULL, GNULL }, K_DEL, "Change to parent/delete char backward" }, { { "KILL", GNULL, GNULL }, K_KILL, "Kill input line", }, { { "SETMARK", GNULL, GNULL }, K_MARK, "Set mark on line/file/directory" }, { { "GOTOMARK", GNULL, GNULL }, K_GOTO, "Goto mark on line/file/directory" }, { { "GOTOTAG", GNULL, GNULL }, K_TAG, "Goto tagged dir/file or transpose" }, { { "HELP", GNULL, GNULL }, K_HELP, "Help" }, { { "REFRESH", GNULL, GNULL }, K_REFR, "Refresh screen/input line" }, { { "CANCEL", GNULL, GNULL }, K_CANC, "Delete input line" }, { { "BREAK", GNULL, GNULL }, K_BRK, "Break command/line" }, { { "EXIT", GNULL, GNULL }, K_EOF, "Exit" }, { { "\"", GNULL, GNULL }, K_STR, "Insert string" }, { { NULL } } /* End of entries */ }; #else /* ! _MAIN_ */ extern kname keynames[]; #endif /* _MAIN_ */ /* * Access to entries in the keyname list is done with macros * to hide this record and for abbreviation. */ #define KNLST(n) (&keynames[n].list) #define KNNAM(n) (keynames[n].list.string) #define KNPRV(n) (keynames[n].list.prev) #define KNNXT(n) (keynames[n].list.next) #define KNSYM(n) (keynames[n].symbol) #define KNCOM(n) (keynames[n].comment) /* * Key bindings are hold in a dynamically linked list of * record type klist. The key binding and translation list * is built up at startup time from default bindings and * user defined bindings. */ typedef struct _klist { glist list; /* Contains key name and pointers */ kchar *string; /* Key string */ ksym symbol; /* Key symbol (See defines above) */ char *insert; /* String to insert */ int userdefined; /* User defined binding */ } klist; #define KNULL ((klist *) 0) /* The klist NIL pointer */ /* * Acces to items of klist record is done with macros * to hide this record and for abbreviation. */ #define KBNAM(p) ((p)->list.string) #define KBPRV(p) ((p)->list.prev) #define KBNXT(p) ((p)->list.next) #define KBSYM(p) ((p)->symbol) #define KBSTR(p) ((p)->string) #define KBINS(p) ((p)->insert) #define KBUSR(p) ((p)->userdefined) /* Special macro for key string comparison character per character */ #define KBCHR(p, n) ((p)->string[n]) #ifdef _MAIN_ klist *kroot = KNULL; #else extern klist *kroot; #endif /* _MAIN_ */ LOBL VOID inithistory() { #ifdef UTHIST char name[NAMELEN], cmd[INPLEN]; register FILE *fp; register int l; (void) strcpy(name, pathname(UTHIST, home)); if(fp = fopen(name, "r")) { while(fgets(cmd, sizeof(cmd), fp)) { if(VALID(cmd[0])) { l = strlen(cmd) - 1; if(cmd[l] == '\n') cmd[l] = '\0'; (void) inserthistory(cmd, 0); } } (void) fclose(fp); } #endif /* UTHIST */ } /* inithistory() */ /* Save history list to history file inutree/src/list.h1006440013110001060000001645705255652752011106 037777777777 1 0 /* * LIST.H * UTREE tree and file list definitions. * 3.03-um klin, Sat Jan 11 19:53:57 1992, Splitted from defs.h * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. */ #if defined(_MAIN_) && !defined(lint) static char sccsid_list[] = "@(#) utree 3.03-um (klin) Feb 11 1992 list.h"; #endif /* _MAIN_ && !lint */ /* * Files in a directory are hold in dynamically allocated array * of a record type flist which is linked into directory type dlist. */ typedef struct _flist { char *filename; /* File name */ time_t modtime; /* Modification time */ off_t filesize; /* File size */ char istagged; /* File is tagged */ char filemode; /* File modes */ } flist; #define FNULL ((flist *) 0) /* The flist NIL pointer */ /* * Directories are hold in a double linked list of a record type * dlist which is built up at startup time or later at runtime. */ typedef struct _dlist { glist list; /* Containing pathname and pointers */ char *filename; /* Directory basename */ flist *filevec; /* Pointer to flist entries */ char *zoompattern; /* File zooming pattern */ char *filebuf; /* Buffer of filenames */ unsigned bufsize; /* Size of filename buffer */ int number; /* Directory number */ int level; /* Subdirectory level */ unsigned long treeinfo; /* Tree information flag */ int nfils; /* Number of files */ int ndirs; /* Number of subdirectories */ int ntags; /* Number of tagged files */ int curfile; /* Current file in file list */ int topfile; /* First file on screen in file list */ char cancd; /* Can change to this directory */ char flag; /* Filelist flag */ char sort; /* Sort criteria flag */ time_t modtime; /* Modification time of directory */ time_t chgtime; /* Status change time of directory */ } dlist; #define DNULL ((dlist *) 0) /* The dlist NIL pointer */ /* * Access to items of dlist record is done with macros * to hide this record and for abbreviation. */ #define DLIST(p) (&(p)->list) #define DPNAM(p) ((p)->list.string) #define DPREV(p) ((p)->list.prev) #define DNEXT(p) ((p)->list.next) #define DFNAM(p) ((p)->filename) #define DFVEC(p) ((p)->filevec) #define DZOOM(p) ((p)->zoompattern) #define DFBUF(p) ((p)->filebuf) #define DBSIZ(p) ((p)->bufsize) #define DDNUM(p) ((p)->number) #define DLEVL(p) ((p)->level) #define DINFO(p) ((p)->treeinfo) #define DNFIL(p) ((p)->nfils) #define DNDIR(p) ((p)->ndirs) #define DNTAG(p) ((p)->ntags) #define DFCUR(p) ((p)->curfile) #define DFTOP(p) ((p)->topfile) #define DCANC(p) ((p)->cancd) #define DFLAG(p) ((p)->flag) #define DSORT(p) ((p)->sort) #define DMTIM(p) ((p)->modtime) #define DCTIM(p) ((p)->chgtime) /* * The same access macros as above for current directory entry. */ #define CLIST (&cdlist->list) #define CPNAM (cdlist->list.string) #define CPREV (cdlist->list.prev) #define CNEXT (cdlist->list.next) #define CFNAM (cdlist->filename) #define CFVEC (cdlist->filevec) #define CZOOM (cdlist->zoompattern) #define CFBUF (cdlist->filebuf) #define CBSIZ (cdlist->bufsize) #define CDNUM (cdlist->number) #define CLEVL (cdlist->level) #define CINFO (cdlist->treeinfo) #define CNFIL (cdlist->nfils) #define CNDIR (cdlist->ndirs) #define CNTAG (cdlist->ntags) #define CFCUR (cdlist->curfile) #define CFTOP (cdlist->topfile) #define CCANC (cdlist->cancd) #define CFLAG (cdlist->flag) #define CSORT (cdlist->sort) #define CMTIM (cdlist->modtime) #define CCTIM (cdlist->chgtime) /* Compare modification and change time from dlist p with status s */ #define CHKTIM(p, s) ((p)->modtimechgtimelevel*indent) #define DTROW(p) ((p)->number-tdlist->number+firstdline) /* * Access to items of flist record is done with macros * to hide this record and for abbreviation. */ /* Access macros to flist items pointed to by flist ptr f */ #define FPFIL(f) (f->filename) #define FPTIM(f) (f->modtime) #define FPSIZ(f) (f->filesize) #define FPTAG(f) (f->istagged) #define FPMOD(f) (f->filemode) /* Access macros to flist items in flist vector v with index n */ #define FVFIL(v, n) (v[n].filename) #define FVTIM(v, n) (v[n].modtime) #define FVSIZ(v, n) (v[n].filesize) #define FVTAG(v, n) (v[n].istagged) #define FVMOD(v, n) (v[n].filemode) /* Access macros to flist with index n from directory pointed to by p */ #define FLIST(p, n) (p->filevec[n]) #define FFNAM(p, n) (p->filevec[n].filename) #define FMTIM(p, n) (p->filevec[n].modtime) #define FSIZE(p, n) (p->filevec[n].filesize) #define FITAG(p, n) (p->filevec[n].istagged) #define FMODE(p, n) (p->filevec[n].filemode) /* Column and row of file n from directory p */ #define FFCOL(p, n) (((n-p->topfile)%fperline)*FWINSZ) #define FFROW(p, n) ((n-p->topfile)/fperline+firstline) /* Column and row of file n in file window on tree screen */ #define FTCOL(n) ((n%fperline)*FWINSZ) #define FTROW(n) (n/fperline+firstfline) /* Values for directory list file list flag */ #define FL_NUL 0x00 /* File list not read in */ #define FL_CHG 0x01 /* File list changed */ #define FL_FIL 0x02 /* File list read in */ /* Values for file mode and flags */ #define FF_NONE ' ' /* Ordinary file */ #define FF_ERR '?' /* Can't stat file */ #define FF_EXEC '*' /* Executable */ #define FF_DIR '/' /* Directory */ #define FF_SLNK '@' /* Symbolic link */ #define FF_SOCK '=' /* Socket AF_UNIX */ #define FF_TAG '+' /* File is tagged */ #define FF_MARK '>' /* Mark on file */ #define ISTAG(p, n) (FITAG(p, n) == FF_TAG) e keynames[]; #endif /* _MAIN_ */ /* * Access to entries in the keyname list is done with macros * to hide this record and for abbreviation. */ #define KNLST(n) (&keynames[n].list) #defiutree/src/stat.c1006440013110001060000003020605255652753011066 037777777777 1 0 /* * STAT.C * UTREE file status functions. * 3.03-um klin, Tue Feb 11 22:47:06 1992, Splitted from comm.c * * Copyright (c) 1991/92 Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. */ #ifndef lint static char sccsid[] = "@(#) utree 3.03-um (klin) Feb 11 1992 stat.c"; #endif /* !lint */ #include "defs.h" /* ---- Local variables and definitions ------------------------------- */ #ifndef major /* Major number part of a device */ # define major(x) ((x >> 8) & 0377) #endif /* !major */ #ifndef minor /* Minor number part of a device */ # define minor(x) (x & 0377) #endif /* !minor */ /* ---- External variables and functions ------------------------------ */ EXTRN struct passwd *getpwuid(); EXTRN struct passwd *getpwnam(); EXTRN struct group *getgrgid(); EXTRN struct group *getgrnam(); EXTRN char *readdname(); /* ---- Functions and procedures -------------------------------------- */ /* * INTERNAL USED ROUTINES */ /* Return device name for device with device number r from /dev */ LOCAL char *devicename(r) dev_t r; { static char pn[NAMELEN]; struct stat st; register DIR *dp; register char *fn; if(dp = opendir("/dev")) { (void) strcpy(pn, "/dev/"); /* Read in all valid entries in /dev */ while(fn = readdname(dp)) { (void) strcpy(&pn[5], fn); if(ISBLK(pn, st) && st.st_rdev == r) { /* Match: return pathname of device */ closedir(dp); return(pn); } } closedir(dp); } return(NULL); } /* devicename() */ /* Get and return type of file from stat data st */ LOCAL char *filetype(st) register struct stat *st; { register int f; f = STFMT(st); if(f == S_IFDIR) /* Directory */ return("directory"); else if(f == S_IFBLK) /* Block special */ return("block special"); else if(f == S_IFCHR) /* Character special */ return("character special"); else if(f == S_IFREG) /* Regular file */ return("regular"); #ifdef S_IFSOCK else if(f == S_IFSOCK) /* Socket */ return("socket"); #endif #ifdef S_IFIFO else if(f == S_IFIFO) /* Named pipe */ return("fifo"); #endif #ifdef S_IFLAN else if(f == S_IFLAN) /* LAN special */ return("network lan special"); #endif #ifdef S_IFLNK else if(f == S_IFLNK) /* Symbolic link */ return("symbolic link"); #endif return("unkown"); /* Unknown type */ } /* filetype() */ /* Build string containing current permissions */ LOCAL char *currentperms(m) int m; { static char ps[4]; register char *p = ps; if(m & 04) *p++ = 'r'; if(m & 02) *p++ = 'w'; if(m & 01) *p++ = 'x'; *p = '\0'; return(ps); } /* currentperms() */ /* Parse permission string s */ LOCAL int parseperms(s) register char *s; { register int p; p = 0; while(*s) { switch(*s) { case '0': /* Permission are given octal */ case '1': case '2': case '3': case '4': case '5': case '6': case '7': return(*s - '0'); case 'r': /* Read */ p |= 004; break; case 'w': /* Write */ p |= 002; break; case 'x': /* Execute/change */ p |= 001; break; case '-': /* No permission */ p = 0; break; default: return(-1); } ++s; } return(p); } /* parseperms() */ /* Get and display status of file pn. Return status record */ LOCAL struct stat *filestatus(pn) register char *pn; { static struct stat st; char *uid = "???"; char *gid = "???"; register struct passwd *pw; register struct group *gr; register char *dev; register int isdir, isdev, l; #ifdef S_IFLNK char sym[NAMELEN]; struct stat lst; int n, issym = 0; #endif /* S_IFLNK */ if(lstat(pn, &st)) /* Get file status information */ return((struct stat *) 0); clearwindow(firstline, lastline); l = firstline; isdir = isdev = 0; /* Display type of file */ (void) putfxy(0, ++l, 0, "Path: %s", pn); (void) putfxy(0, ++l, 0, "Type: %s (octal %06o)", filetype(&st), STFMT(&st)); switch(STFMT(&st)) { case S_IFDIR: /* Directory */ ++isdir; break; case S_IFBLK: /* Block special */ case S_IFCHR: /* Character special */ #ifdef S_IFLAN case S_IFLAN: /* LAN special */ #endif ++isdev; break; #ifdef S_IFLNK case S_IFLNK: /* Symbolic link */ ++issym; break; #endif } /* Display device number if file is a device */ if(isdev) (void) putfxy(0, ++l, 0, "Device major no: %d, minor no %d", major(st.st_rdev), minor(st.st_rdev)); /* Display device the file resides on */ if( !(dev = devicename(st.st_dev))) dev = "???"; (void) putfxy(0, ++l, 0, "Resides on device: %s (major: %d, minor: %d)", dev, major(st.st_dev), minor(st.st_dev)); /* Display inode, # of links and size */ (void) putfxy(0, ++l, 0, "Inode: %d, Links: %d, Size: %ld bytes", st.st_ino, st.st_nlink, st.st_size); #ifdef BSD /* Display blocksize and allocated blocks */ (void) putfxy(0, ++l, 0, "Optimal IO blocksize: %ld, Allocated blocks: %ld", st.st_blksize, st.st_blocks); #endif /* BSD */ /* Display owner and group of file */ if(pw = getpwuid((int) st.st_uid)) uid = pw->pw_name; (void) putfxy(0, ++l, 0, "Owner: %s (uid: %d)", uid, st.st_uid); if(gr = getgrgid((int) st.st_gid)) gid = gr->gr_name; (void) putfxy(0, ++l, 0, "Group: %s (gid: %d)", gid, st.st_gid); /* Display file permissions for user, group and others */ (void) putfxy(0, ++l, 0, "Permissions for user:"); if(st.st_mode & 0400) (void) putfxy(24, l, 0, "read "); if(st.st_mode & 0200) (void) putfxy(29, l, 0, "write"); if(st.st_mode & 0100) (void) putfxy(35, l, 0, isdir ? "search" : "execute"); (void) putfxy(16, ++l, 0, "group:"); if(st.st_mode & 0040) (void) putfxy(24, l, 0, "read "); if(st.st_mode & 0020) (void) putfxy(29, l, 0, "write"); if(st.st_mode & 0010) (void) putfxy(35, l, 0, isdir ? "search" : "execute"); (void) putfxy(16, ++l, 0, "all:"); if(st.st_mode & 004) (void) putfxy(24, l, 0, "read "); if(st.st_mode & 0002) (void) putfxy(29, l, 0, "write"); if(st.st_mode & 0001) (void) putfxy(35, l, 0, isdir ? "search" : "execute"); /* Display special access rights */ if(st.st_mode & (S_ISUID|S_ISGID)) (void) putfxy(16, ++l, 0, "Set user and group ID (%s, %s) on execution", uid, gid); else if((st.st_mode & S_ISUID) == S_ISUID) (void) putfxy(16, ++l, 0, "Set user ID (%s) on execution", uid); else if((st.st_mode & S_ISGID) == S_ISGID) (void) putfxy(16, ++l, 0, "Set group ID (%s) on execution", gid); if((st.st_mode & S_ISVTX) == S_ISVTX) (void) putfxy(16, ++l, 0, "Save text image after execution"); (void) putfxy(16, ++l, 0, "Short form: %s (octal: %04o)", fileaccess(&st), st.st_mode & 07777); /* Display file dates */ (void) putfxy(0, ++l, 0, "Last access: %s", ctime(&st.st_atime)); (void) putfxy(0, ++l, 0, "Last modification: %s", ctime(&st.st_mtime)); (void) putfxy(0, ++l, 0, "Last status change: %s", ctime(&st.st_ctime)); #ifdef S_IFLNK /* Read and display symbolic link */ if(issym && (n = readlink(pn, sym, sizeof(sym))) > 0) { sym[n] = '\0'; (void) putfxy(0, ++l, 0, "Symbolic link to: %s", sym); if((*statfun)(sym, &lst)) (void) putfxy(0, ++l, 0, "Cannot stat type of file"); else (void) putfxy(0, ++l, 0, "Type: %s (octal %06o)", filetype(&lst), STFMT(&lst)); } #endif /* S_IFLNK */ return(&st); } /* filestatus() */ /* * FILE STATUS ROUTINES */ /* Get and return file access string (like ls -l) */ GLOBL char *fileaccess(st) register struct stat *st; { static char perm[12]; perm[0] = STFMT(st) == S_IFDIR ? 'd' : '-'; perm[1] = st->st_mode & 0400 ? 'r' : '-'; perm[2] = st->st_mode & 0200 ? 'w' : '-'; if(st->st_mode & S_ISUID) perm[3] = 's'; else perm[3] = st->st_mode & 0100 ? 'x' : '-'; perm[4] = st->st_mode & 0040 ? 'r' : '-'; perm[5] = st->st_mode & 0020 ? 'w' : '-'; if(st->st_mode & S_ISGID) perm[6] = 's'; else perm[6] = st->st_mode & 0010 ? 'x' : '-'; perm[7] = st->st_mode & 0004 ? 'r' : '-'; perm[8] = st->st_mode & 0002 ? 'w' : '-'; if(st->st_mode & S_ISVTX) perm[9] = 't'; else perm[9] = st->st_mode & 0001 ? 'x' : '-'; perm[10] = '\0'; return(perm); } /* fileaccess() */ /* Show all file status information for file fn */ /* Change owner and/or permissions if flag f is set */ GLOBL int statusfile(fn, f) register char *fn; register int f; { char pnbuf[NAMELEN], buf[INPLEN]; register struct passwd *pw; register struct group *gr; register struct stat *st; register char *pn, *ps; register int mode; register int c; /* Build full pathname if needed */ if(f) { (void) strcpy(pnbuf, pathname(fn, CPNAM)); pn = pnbuf; } else pn = fn; who = "STATUS"; /* File status loop */ do { /* Get and display file status information */ #ifdef BSD enablesignals(); #endif st = filestatus(pn); #ifdef BSD disablesignals(); #endif if( !st) { c = errequest(fn, "Cannot stat"); break; } flushout(); if(f && STFMT(st) == S_IFDIR) { /* Changes for directories from tree menu only */ puthelp("%s (CR:continue Q:quit)", who); (void) putecho("Status %s: ", fn); c = hitakey(NULL); break; } puthelp("%s (CR:continue P:permissions O:owner G:group ELSE:quit)", who); (void) putecho("Change status %s:", fn); c = hitakey(NULL); if(c == 'p') { /* Change permissions */ mode = 0; puthelp("CHANGE PERMISSIONS: Octal or string from \'rwx-\' (CR:quit))"); c = putecho("Set permissions for owner to:"); ps = currentperms((int) (st->st_mode & 0700) >> 6); if((c = getline(buf, sizeof(buf), c, 0, ps, GNULL, 0)) != RV_OK) break; else if((c = parseperms(buf)) < 0) { c = errequest(buf, "Bad permissions"); break; } mode = c << 6; c = putecho("Set permissions for group to:"); ps = currentperms((int) (st->st_mode & 0070) >> 3); if((c = getline(buf, sizeof(buf), c, 0, ps, GNULL, 0)) != RV_OK) break; else if((c = parseperms(buf)) < 0) { c = errequest(buf, "Bad permissions"); break; } mode |= c << 3; c = putecho("Set permissions for all to:"); ps = currentperms((int) (st->st_mode & 0007)); if((c = getline(buf, sizeof(buf), c, 0, ps, GNULL, 0)) != RV_OK) break; else if((c = parseperms(buf)) < 0) { c = errequest(buf, "Bad permissions"); break; } mode |= c; if(chmod(pn, mode) < 0) { c = errequest(fn, "Cannot change permissions"); break; } ++buildflag; c = 'p'; } else if(c == 'o') { /* Change owner */ puthelp("CHANGE OWNER: Give new owner name (CR:quit)"); c = putecho("Change owner of %s to:", fn); if((c = getline(buf, sizeof(buf), c, 0, NULL, GNULL, 0)) != RV_OK) break; if( !(pw = getpwnam(buf))) { c = errequest(buf, "Unknown user"); break; } else if(chown(pn, (int) pw->pw_uid, (int) st->st_gid) < 0) { c = errequest(fn, "Cannot change owner"); break; } ++buildflag; c = 'o'; } else if(c == 'g') { /* Change group */ puthelp("CHANGE GROUP: Give new group name (CR:quit)"); c = putecho("Change group of %s to:", fn); if((c = getline(buf, sizeof(buf), c, 0, NULL, GNULL, 0)) != RV_OK) break; if( !(gr = getgrnam(buf))) { c = errequest(buf, "Unknown group"); break; } else if(chown(pn, (int) st->st_uid, (int) gr->gr_gid) < 0) { c = errequest(fn, "Cannot change group"); break; } ++buildflag; c = 'g'; } } while(c == 'p' || c == 'o' || c == 'g'); /* Set screen flags and return */ treeflag = fileflag = SF_FULL; return(c); } /* statusfile() */ if #ifdef S_IFIFO else if(f == S_IFIFO) /* Named pipe */ return("fifo"); #endif #ifdef S_IFLAN else if(f == S_IFLAN) /* LAN special */ return("network lan special"); #endif #ifdef S_IFLNK else if(f == S_IFLNK) /* Symbolic link */ return("symbolic link"); #endif return("unkown"); /* Unknown type */ } /* filetype() */ utree/src/util.c1006440013110001060000001415305255652753011073 037777777777 1 0 /* * UTIL.C * UTREE utility functions. * 3.01-um klin, Sat Apr 20 11:02:33 1991 * klin, Tue Oct 15 14:02:37 1991, Handling of symlinks changed * 3.02-um klin, Fri Nov 1 10:46:14 1991, APOLLO stuff added * 3.03-um klin, Tue Feb 11 22:58:03 1992, statusfile() into stat.c * getopt() into sup/getopt.c * klin, Fri Mar 6 10:45:49 1992, strclean() added * * Copyright (c) 1991/92 Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. */ #ifndef lint static char sccsid[] = "@(#) utree 3.03-um (klin) Mar 6 1992 util.c"; #endif /* !lint */ #include "defs.h" /* ---- Local variables and definitions ------------------------------- */ #define TRASH(c) ((c) == ' ' || (c) == '\t' || (c) == '\n' || (c) == '#') /* ---- Functions and procedures -------------------------------------- */ /* * COMMON USED UTILITIY FUNCTIONS * */ /* !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! */ /* ! This function is a modified version of adjustname() `stolen' ! */ /* ! from the public domain editor MICRO GNU EMACS (mg) version 2a. ! */ /* !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! */ /* Return pathname of filename fn and current directory cwd */ GLOBL char *pathname(fn, cwd) register char *fn, *cwd; { static char pn[NAMELEN]; register char *cp; if(*fn == '/') { cp = pn; #ifdef APOLLO /* Stuff for APOLLO node names: //node */ if(fn[1] == '/') *cp++ = *fn++; #endif /* APOLLO */ while(fn[1] == '/') ++fn; #ifdef MUNET /* Stuff for MUNIX/NET: /../node */ if(fn[1] == '.' && fn[2] == '.') { *cp++ = *fn++; *cp++ = *fn++; } #endif /* MUNET */ *cp++ = *fn++; } else { (void) strcpy(pn, cwd); cp = pn + strlen(pn); } if(cp != pn && cp[-1] != '/') *cp++ = '/'; while(*fn) { switch(*fn) { case '.': switch(fn[1]) { case '\0': *--cp = '\0'; return(pn); case '/': fn += 2; continue; case '.': if(fn[2]=='/' || fn[2] == '\0') { --cp; while(cp > pn && *--cp != '/') ; ++cp; if(fn[2]=='\0') { *--cp = '\0'; return(pn); } fn += 3; continue; } break; default: break; } break; case '/': fn++; continue; default: break; } while(*fn && (*cp++ = *fn++) != '/') ; } #ifdef APOLLO if(cp != &pn[2] && cp[-1] == '/') #else /* !APOLLO */ if(cp != &pn[1] && cp[-1] == '/') #endif /* APOLLO */ --cp; *cp = '\0'; return(pn); } /* pathname() */ /* Return basename of filename s */ GLOBL char *basename(s) register char *s; { register char *sp; sp = s + strlen(s); while(sp >= s) if(*sp == '/') return(*(++sp) ? sp : s); else --sp; return(s); } /* basename() */ /* Save string s */ GLOBL char *strsav(s) register char *s; { register char *sp; if(sp = ualloc((unsigned) strlen(s) + 1, sizeof(char))) (void) strcpy(sp, s); return(sp); } /* strsav() */ /* Convert string from lower to upper case */ GLOBL VOID strupper(s) register char *s; { while(*s) { if(islower(*s)) *s = toupper(*s); ++s; } } /* strupper() */ /* Delete leading and trailing trash characters from s */ GLOBL char *strclean(s) register char *s; { register char *p; while(*s && TRASH(*s)) ++s; p = s + strlen(s); while(p > s && TRASH(*(p-1))) --p; *p = '\0'; return(s); } /* strclean() */ /* !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! */ /* ! This function is a modified and tuned version of a wild card ! */ /* ! pattern matcher written by Rich Salz (mirror!rs, Nov 26 1986) ! */ /* !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! */ /* Shell like pattern matching for meta characters *, ?, [class] */ /* Check string s against pattern p and return 1 on match 0 else */ GLOBL int match(s, p) register char *s, *p; { register int lc, ok, ex; for( ; *p; s++, p++) { switch(*p) { case '\\': /* Literal match next char */ ++p; /*FALLTHRU*/ default: /* Literal match char */ if(*s != *p) return(0); continue; case '?': /* Match any char */ if(*s == '\0') return(0); continue; case '*': /* Match any chars */ if(*++p == '\0') /* Matches all */ return(1); for( ; *s; s++) if(match(s, p)) return(1); return(0); case '[': /* Class */ if(ex = (p[1] == '^' || p[1] == '!')) ++p; for(lc = 0400, ok = 0; *++p && *p != ']'; lc = *p) if(*p == '-' ? *s <= *++p && *s >= lc : *s == *p) ok = 1; if(ok == ex) return(0); continue; } } return(*s == '\0'); } /* match() */ /* Get and return next valid filename entry from directory file d */ GLOBL char *readdname(dp) register DIR *dp; { #if defined(BSD) || !defined(NODIRENT) #ifdef BSD register struct direct *d; #else /* SYSV */ register struct dirent *d; #endif /* BSD */ register char *f; /* Get next valid directory entry and return filename */ while(d = readdir(dp)) { f = d->d_name; /* Skip "." and ".." */ if(f[0] == '.' && (f[1] == '\0' || (f[1] == '.' && f[2] == '\0'))) continue; return(f); #else /* SYSV && NODIRENT */ static char n[DIRSIZ+1]; struct direct d; register char *f; while(fread(&d, sizeof(struct direct), 1, dp) > 0) { f = d.d_name; /* Skip removed files, "." and ".." */ if(d.d_ino == 0 || (f[0] == '.' && (f[1] == '\0' || (f[1] == '.' && f[2] == '\0')))) continue; (void) strncpy(n, d.d_name, DIRSIZ); n[DIRSIZ] = '\0'; return(n); #endif /* BSD || !NODIRENT */ } return(NULL); } /* readdname() */ /* Get and display file status information */ #ifdef BSD enablesignals(); #endif st = filestatus(pn); #ifdef BSD disablesignals(); #endif if( !st) { c = errequest(fn, "Cannot stat"); break; } flushout(); if(f && STFMT(st) == S_IFDIR) { /* Changes for directories from tree menu only */ puthelp("%s (CR:continue Q:quit)", who); (void) putechutree/src/vars.h1006440013110001060000002616405255652753011103 037777777777 1 0 /* * VARS.H * UTREE variables definitions. * 3.01-um klin, Wed May 1 10:29:37 1991 * 3.03-um klin, Tue Feb 11 14:18:50 1992, Generic lists for variables * and file type commands * klin, Sat Feb 15 14:44:52 1992, Video handling and partinioning of * directory and file windows changed * klin, Sun Feb 23 18:45:19 1992, Keybindings and variable * AUTOSAVE added * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. */ #if defined(_MAIN_) && !defined(lint) static char sccsid_vars[] = "@(#) utree 3.03-um (klin) Feb 23 1992 vars.h"; #endif /* _MAIN_ && !lint */ /* * File type dependent commands are hold in a dynamically linked * list of struct _xlist. */ typedef struct _xlist { glist list; /* Contains filetype and pointers */ char *command; /* Command format to execute */ char *comment; /* Additional comment */ } xlist; #define XNULL ((xlist *) 0) /* The xlist NIL pointer */ /* * Access to entries in the file type command list is done * with macros to hide this record and for abbreviation. */ #define XLIST(p) (&(p)->list) #define XTYPE(p) ((p)->list.string) #define XPREV(p) ((p)->list.prev) #define XNEXT(p) ((p)->list.next) #define XCOMD(p) ((p)->command) #define XCOMM(p) ((p)->comment) #ifdef _MAIN_ xlist *xroot = XNULL; /* Root of file type command list */ #else /* !_MAIN_ */ extern xlist *xroot; #endif /* _MAIN_ */ /* * Variables are hold in a table of struct _vlist which is * initialized and linked at startup. All predefined variables * are accessed via index into this table. */ typedef struct _vlist { glist list; /* Contains variable name and pointers */ char *shortcut; /* Variable short cut */ int type; /* Type of variable */ int number; /* Variable number (see below) */ char *defval; /* Default value (if defined) */ char *value; /* Variable value */ char *comment; /* Additional comment */ } vlist; #define VNULL ((vlist *) 0) /* The vlist NIL pointer */ /* * Access to entries in the variable list is done with macros * to hide this record and for abbreviation. */ #define VARLST(n) (&vtable[n].list) #define VARNAM(n) (vtable[n].list.string) #define VARPRV(n) (vtable[n].list.prev) #define VARNXT(n) (vtable[n].list.next) #define VARCUT(n) (vtable[n].shortcut) #define VARTYP(n) (vtable[n].type) #define VARNUM(n) (vtable[n].number) #define VARDEF(n) (vtable[n].defval) #define VARVAL(n) (vtable[n].value) #define VARCOM(n) (vtable[n].comment) /* Assign vtable entry to vlist pointer. Check if variable is set */ #define VARTAB(n) (&vtable[n]) #define VARSET(n) (vtable[n].value) /* * The same macros for access via pointers. */ #define VLIST(p) (&(p)->list) #define VNAME(p) ((p)->list.string) #define VPREV(p) ((p)->list.prev) #define VNEXT(p) ((p)->list.next) #define VSCUT(p) ((p)->shortcut) #define VTYPE(p) ((p)->type) #define VNUMB(p) ((p)->number) #define VDFLT(p) ((p)->defval) #define VVALE(p) ((p)->value) #define VCOMM(p) ((p)->comment) /* Flag values for variables/commands settings */ #define VC_TST 0 /* Test only. Don't set */ #define VC_SET 1 /* Set but don't effect change flag */ #define VC_CHG 2 /* Set and affect change flag */ /* Types of variables */ #define VT_B 0 /* Boolean type */ #define VT_N 1 /* Numerical value */ #define VT_S 2 /* General string */ #define VT_U 3 /* User tree or file command string */ #define VT_O 4 /* Other user defined strings */ /* Values for boolean variables */ #define VB_ON ((char *) 1) #define VB_OFF ((char *) 0) /* Indices in variable table. See variable table below */ #define V_BL 0 /* Allow bell */ #define V_CL 1 /* Clock in echo line */ #define V_GC 2 /* Use graphic character set */ #define V_TS 3 /* Use terminal scroll funcs */ #define V_ST 4 /* Scan tree for changes */ #define V_WD 5 /* Warn about unreadable dirs */ #define V_LS 6 /* Lexical sort filelists */ #define V_AS 7 /* Save definition changes */ #define V_VM 8 /* Video attribute using */ #define V_TI 9 /* Tree indention */ #define V_FL 10 /* File lines on tree screen */ #define V_HS 11 /* Size of history list */ #define V_SH 12 /* Interaktive shell */ #define V_ED 13 /* File editor */ #define V_EDO 14 /* Editor options */ #define V_PG 15 /* File viewer/pager */ #define V_PGO 16 /* Viewer options */ #define V_XD 17 /* File hex dumper */ #define V_XDO 18 /* Hex dumper options */ #define V_LP 19 /* File printer */ #define V_LPO 20 /* Printer options */ #define V_BK 21 /* Directory backup */ #define V_BKO 22 /* Backup options */ #define V_TC0 22 /* Dummy: used for calculation only */ #define V_TC1 23 /* User defined tree commands */ #define V_TC2 24 #define V_TC3 25 #define V_TC4 26 #define V_TC5 27 #define V_TC6 28 #define V_TC7 29 #define V_TC8 30 #define V_TC9 31 #define V_FC0 31 /* Dummy: used for calculation only */ #define V_FC1 32 /* User defined file commands */ #define V_FC2 33 #define V_FC3 34 #define V_FC4 35 #define V_FC5 36 #define V_FC6 37 #define V_FC7 38 #define V_FC8 39 #define V_FC9 40 /* * Table defining default variable settings (See cmds.h). */ #ifdef _MAIN_ vlist vtable[] = { { { "BELL", GNULL, GNULL }, "BL", VT_B, V_BL, VB_ON, NULL, "Allow ringing of bell" }, #ifdef UTCLOCK { { "CLOCK", GNULL, GNULL }, "CL", VT_B, V_CL, VB_ON, NULL, "Display/update clock" }, #else /* !UTCLOCK */ { { "CLOCK", GNULL, GNULL }, "CL", VT_B, V_CL, VB_OFF, NULL, "Display/update clock" }, #endif /* UTCLOCK */ { { "GRAPHCHARS", GNULL, GNULL }, "GC", VT_B, V_GC, VB_ON, NULL, "Use graphic charset" }, { { "TERMSCROLL", GNULL, GNULL }, "TS", VT_B, V_TS, VB_ON, NULL, "Use terminal scrolling" }, { { "SCANTREE", GNULL, GNULL }, "ST", VT_B, V_ST, VB_ON, NULL, "Scan tree for changes" }, { { "WARNDIRS", GNULL, GNULL }, "WD", VT_B, V_WD, VB_ON, NULL, "Directory warnings" }, { { "LEXSORT", GNULL, GNULL }, "LS", VT_B, V_LS, VB_ON, NULL, "Lexical sort of filelists" }, { { "AUTOSAVE", GNULL, GNULL }, "AS", VT_B, V_AS, VB_ON, NULL, "Save definition/history changes" }, { { "VIDEOMODE", GNULL, GNULL }, "VM", VT_N, V_VM, "2", NULL, "Video mode setting (0..2)" }, { { "TREEINDENT", GNULL, GNULL }, "TI", VT_N, V_TI, "9", NULL, "Max tree indention (3..9)" }, { { "FILELINES", GNULL, GNULL }, "FL", VT_N, V_FL, "3", NULL, "Max file lines (1..9)" }, { { "HISTSIZE", GNULL, GNULL }, "HS", VT_N, V_HS, "22", NULL, "Size of history list (readonly)" }, { { "SHELL", GNULL, GNULL }, "SH", VT_S, V_SH, SHELL, NULL, "Shell" }, { { "EDITOR", GNULL, GNULL }, "ED", VT_S, V_ED, EDITPRG, NULL, "Text editor" }, { { "EDITOPTS", GNULL, GNULL }, "EO", VT_S, V_EDO, NULL, NULL, "Editor options" }, { { "PAGER", GNULL, GNULL }, "PG", VT_S, V_PG, PAGEPRG, NULL, "Text pager" }, { { "PAGEOPTS", GNULL, GNULL }, "PO", VT_S, V_PGO, NULL, NULL, "Pager options" }, { { "XDUMPER", GNULL, GNULL }, "XD", VT_S, V_XD, DUMPPRG, NULL, "Hex dumper" }, { { "XDUMPOPTS", GNULL, GNULL }, "XO", VT_S, V_XDO, NULL, NULL, "Dumper options" }, { { "LPRINTER", GNULL, GNULL }, "LP", VT_S, V_LP, PRINTPRG, NULL, "Printer command" }, { { "LPRINTOPTS", GNULL, GNULL }, "LO", VT_S, V_LPO, NULL, NULL, "Printer options" }, #ifdef UTBCKUP { { "BACKUP", GNULL, GNULL }, "BK", VT_S, V_BK, UTBCKUP, NULL, "Backup program" }, #else /* !UTBCKUP */ { { "BACKUP", GNULL, GNULL }, "BK", VT_S, V_BK, NULL, NULL, "Backup program" }, #endif /* UTBCKUP */ { { "BACKUPOPTS", GNULL, GNULL }, "BO", VT_S, V_BKO, NULL, NULL, "Backup options" }, { { "TREECMD1", GNULL, GNULL }, "T1", VT_U, V_TC1, NULL, NULL, NULL }, { { "TREECMD2", GNULL, GNULL }, "T2", VT_U, V_TC2, NULL, NULL, NULL }, { { "TREECMD3", GNULL, GNULL }, "T3", VT_U, V_TC3, NULL, NULL, NULL }, { { "TREECMD4", GNULL, GNULL }, "T4", VT_U, V_TC4, NULL, NULL, NULL }, { { "TREECMD5", GNULL, GNULL }, "T5", VT_U, V_TC5, NULL, NULL, NULL }, { { "TREECMD6", GNULL, GNULL }, "T6", VT_U, V_TC6, NULL, NULL, NULL }, { { "TREECMD7", GNULL, GNULL }, "T7", VT_U, V_TC7, NULL, NULL, NULL }, { { "TREECMD8", GNULL, GNULL }, "T8", VT_U, V_TC8, NULL, NULL, NULL }, { { "TREECMD9", GNULL, GNULL }, "T9", VT_U, V_TC9, NULL, NULL, NULL }, { { "FILECMD1", GNULL, GNULL }, "F1", VT_U, V_FC1, NULL, NULL, NULL }, { { "FILECMD2", GNULL, GNULL }, "F2", VT_U, V_FC2, NULL, NULL, NULL }, { { "FILECMD3", GNULL, GNULL }, "F3", VT_U, V_FC3, NULL, NULL, NULL }, { { "FILECMD4", GNULL, GNULL }, "F4", VT_U, V_FC4, NULL, NULL, NULL }, { { "FILECMD5", GNULL, GNULL }, "F5", VT_U, V_FC5, NULL, NULL, NULL }, { { "FILECMD6", GNULL, GNULL }, "F6", VT_U, V_FC6, NULL, NULL, NULL }, { { "FILECMD7", GNULL, GNULL }, "F7", VT_U, V_FC7, NULL, NULL, NULL }, { { "FILECMD8", GNULL, GNULL }, "F8", VT_U, V_FC8, NULL, NULL, NULL }, { { "FILECMD9", GNULL, GNULL }, "F9", VT_U, V_FC9, NULL, NULL, NULL }, { { NULL } } /* End of predefined variables */ }; /* Possible user defined variables may follow, but are not implemented */ #else extern vlist vtable[]; #endif /* _MAIN_ */ char *comment; /* Additional comment */ } xlist; #define XNULL ((xlist *) 0) /* The xlist NIL pointer */ /* * Access to entries in the file type command list is done * with macros to hide this record and for abbreviation. */ #define XLIST(p) (&(p)->list) #define XTYPE(p) ((p)->list.string) #define XPREV(p) utree/src/bind.c1006440013110001060000004235105255652754011034 037777777777 1 0 /* * BIND.C * UTREE key binding routines. * 3.03-um klin, Sun Feb 23 18:45:19 1992 * klin, Fri Mar 6 07:24:23 1992, Minor changes * a klin, Sun Mar 15 19:08:25 1992, Bug fixes in bindings() * and insertbinding() * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. */ #ifndef lint static char sccsid[] = "@(#) utree 3.03a-um (klin) Mar 15 1992 bind.c"; #endif #include "defs.h" /* ---- Local variables and definitions ------------------------------- */ /* * All default keys and some function keys are defined in static * arrays of type struct _ktable. The default keys are hold in the * array defkeys[] and bound at startup to the defined utree keys. * The function keys whose termcap names are stored in the array * are extracted from terminfo/termcap and bound to the default * utree keys if they are defined in the database. */ LOCAL struct { /* Default key bindings */ char *string; /* Key string */ ksym symbol; /* Key symbol known by utree */ } defkeys[] = { { "\200", K_MARK }, /* C-@: Set mark */ { "\001", K_HOME }, /* C-a: Beginning */ { "\002", K_BACK }, /* C-b: Backward */ { "\003", K_BRK }, /* C-c: Break */ { "\004", K_DOWN }, /* C-d: Scroll down/delete char */ { "\005", K_END }, /* C-e: End */ { "\006", K_FORW }, /* C-f: Forward */ { "\007", K_GOTO }, /* C-g: Goto mark */ { "\010", K_DEL }, /* C-h: Goto parent/delete char back */ { "\011", K_TAG }, /* C-i: Goto tag/transpose chars */ { "\012", K_SEL }, /* C-j: Select/accept line */ { "\013", K_KILL }, /* C-k: Kill line */ { "\014", K_REFR }, /* C-l: Refresh screen/line */ { "\015", K_SEL }, /* C-m: Select/accept line */ { "\016", K_NEXT }, /* C-n: Next */ { "\017", K_INS }, /* C-o: Change to/toggle insert mode */ { "\020", K_PREV }, /* C-p: Previous */ { "\022", K_HELP }, /* C-r: Help */ { "\024", K_TAG }, /* C-t: Goto tag/transpose characters */ { "\025", K_UP }, /* C-u: Scroll up */ { "\026", K_NPAG }, /* C-v: Next page/scroll forw line */ { "\027", K_PPAG }, /* C-w: Prev page/scroll back line */ { "\030", K_CANC }, /* C-x: Delete input line */ { "\031", K_BRK }, /* C-y: Break */ { "\032", K_EOF }, /* C-z: Exit */ { "\177", K_DEL }, /* C-?: Delete */ { NULL, K_INV }, /* End of default key table */ }; #define DTSTR(n) (defkeys[n].string) #define DTSYM(n) (defkeys[n].symbol) LOCAL struct { /* Function key table */ char *string; /* Termcap name */ ksym symbol; /* Key symbol known by utree */ char *name; /* Key name */ } funkeys[] = { { "ku", K_PREV, "CursorUp-Key" }, { "kd", K_NEXT, "CursorDown-Key" }, { "kl", K_BACK, "CursorBackward-Key" }, { "kr", K_FORW, "CursorForward-Key" }, { "kh", K_HOME, "Home-Key" }, #ifdef XENIX /* RG 11/22/91 */ { "HM", K_HOME, "Begin-Key" }, { "EN", K_END, "End-Key" }, { "PD", K_NPAG, "NextPage-Key" }, { "PU", K_PPAG, "PrevPage-Key" }, #else /* !XENIX */ { "@1", K_HOME, "Begin-Key" }, { "@7", K_END, "End-Key" }, { "kN", K_NPAG, "NextPage-Key" }, { "kP", K_PPAG, "PrevPage-Key" }, #endif /* XENIX */ { "kR", K_UP, "ScrollUp-Key" }, { "kF", K_DOWN, "ScrollDown-Key" }, { "kI", K_INS, "Insert-Key" }, { "kD", K_DOWN, "Delete-Key" }, { "kC", K_REFR, "Clear-Key" }, { "%1", K_HELP, "Help-Key" }, { "*6", K_SEL, "Select-Key" }, { "@4", K_SEL, "Do/Command-Key" }, { "%2", K_MARK, "Mark-Key" }, { "@8", K_SEL, "Enter-Key" }, { NULL, K_INV, NULL }, /* End function key table */ }; #define FTSTR(n) (funkeys[n].string) #define FTSYM(n) (funkeys[n].symbol) #define FTNAM(n) (funkeys[n].name) #define KEYLEN 32 /* Max length of key strings */ #define KCOL 12 #define EOL(c) (c==' ' || c=='\t' || c=='#' || c=='\n' || c=='\0') LOCAL int klchg = 0; /* Changes in key bindings list */ LOCAL char *unknown = "UNKNOWN"; /* ---- External variables and functions ------------------------------ */ EXTRN char *tgetstr(); EXTRN char *getversion(); EXTRN char *strclean(); /* ---- Functions and procedures -------------------------------------- */ /* * INTERNAL USED ROUTINES */ /* Insert keybinding from string str to symbol sym into binding list */ LOCAL int insertbinding(str, sym, nam, ins, usr) register kchar *str; register ksym sym; register char *nam, *ins; register int usr; { register klist *kp, *pp, *p; if(str == UNULL) return(0); /* Search for string in key binding list */ for(kp = kroot; kp; kp = (klist *) KBNXT(kp)) if(EQU(str, KBSTR(kp))) break; /* Replace an existing key binding */ if(kp) { if(KBSYM(kp) == K_STR && KBINS(kp)) ufree(KBINS(kp)); if(sym == K_STR && ins) KBINS(kp) = strsav(ins); else KBINS(kp) = NULL; KBSYM(kp) = sym; KBUSR(kp) = usr; return(1); } /* Create a new binding */ kp = (klist *) ualloc(1, sizeof(klist)); KBSTR(kp) = (kchar *) strsav((char *) str); KBINS(kp) = sym == K_STR && ins ? strsav(ins) : NULL; KBNAM(kp) = nam ? strsav(nam) : NULL; KBSYM(kp) = sym; KBUSR(kp) = usr; /* Insert the binding into key binding list in reverse lexical order */ if(kroot && CMP(str, KBSTR(kroot)) < 0) { for(pp = kroot; KBNXT(pp); pp = (klist *) KBNXT(pp)) { p = (klist *) KBNXT(pp); if(CMP((char *) str, KBSTR(p)) > 0) break; } KBPRV(kp) = (glist *) pp; KBNXT(kp) = KBNXT(pp); if(p = (klist *) KBNXT(pp)) KBPRV(p) = (glist *) kp; KBNXT(pp) = (glist *) kp; } else { if(kroot) KBPRV(kroot) = (glist *) kp; KBPRV(kp) = GNULL; KBNXT(kp) = (glist *) kroot; kroot = kp; } return(1); } /* insertbinding() */ /* Compare key name and return symbol */ LOCAL ksym getkeysymbol(s) register char *s; { register int i; if(*s == '\"') { /* Bind key to string to insert */ *s++ = '\0'; while(*s && *s != '\"') ++s; if(*s == '\"') { *s = '\0'; return(K_STR); } } else { /* Bind key to utree key */ strupper(s); for(i = 0; KNNAM(i); i++) if(EQU(s, KNNAM(i))) return(KNSYM(i)); } return(K_INV); } /* getkeysymbol() */ /* Create a key string from ascii string s */ LOCAL kchar *getkeystring(s) register char *s; { static kchar st[KEYLEN+2]; register int i, o; for(i = 0; !EOL(*s) && i < KEYLEN; i++) { if(*s == '\\') { ++s; if(EOL(*s)) return(UNULL); switch(*s) { default: /* As it is */ st[i] = *s; break; case 'e': /* Escape */ case 'E': st[i] = 0x1b; break; case 'n': /* Newline */ st[i] = '\n'; break; case 'r': /* Carriage return */ st[i] = '\r'; break; case 't': /* Tab */ st[i] = '\t'; break; case 's': /* Space */ st[i] = ' '; break; case 'f': /* Formfeed */ st[i] = '\f'; break; case 'b': /* Backspace */ st[i] = '\b'; break; case '0': /* Octal given value */ case '1': case '2': case '3': case '4': case '5': case '6': case '7': o = 0; do { if(o < 0377) { o <<= 3; o |= *s - '0'; } ++s; } while(*s && *s >= '0' && *s <= '7'); st[i] = (kchar) o; break; } } else if(*s == '^') { ++s; if(EOL(*s)) return(UNULL); if(*s == '?') /* DEL */ st[i] = 0x7f; else if(*s == '@') /* NUL */ st[i] = 0x80; else if(*s >= 'A' && *s <= '_') /* SOH .. US */ st[i] = *s - '@'; else if(*s >= 'a' && *s <= 'z') /* SOH .. SUB */ st[i] = *s - '`'; else return(UNULL); } else st[i] = *s; if(*s) ++s; } st[i] = '\0'; return(i > 0 ? st : UNULL); } /* getkeystring() */ /* Get and return ascii readable string from key string s */ LOCAL char *keystring(s, buf) register kchar *s; register char *buf; { if(*s == '\0') return("INVALID"); *buf = '\0'; while(*s) { switch(*s) { case 0x80: /* Terminfo: ASCII-NUL */ (void) strcat(buf, "^@"); break; case 0x1b: /* ESC */ (void) strcat(buf, "\\e"); break; case '\b': /* BS */ (void) strcat(buf, "\\b"); break; case 0x7f: /* DEL */ (void) strcat(buf, "^?"); break; case ' ': /* SP */ (void) strcat(buf, "\\s"); break; case '\n': /* NL */ (void) strcat(buf, "\\n"); break; case '\r': /* CR */ (void) strcat(buf, "\\r"); break; case '\t': /* TAB */ (void) strcat(buf, "\\t"); break; case '\f': /* FF */ (void) strcat(buf, "\\f"); break; default: /* Others */ if(*s < ' ') /* Control character */ (void) sprintf(buf, "%s^%c", buf, *s + '@'); else if(*s > 0x80) /* Most significant bit set */ (void) sprintf(buf, "%s\\%03o", buf, *s); else /* Printable character */ (void) sprintf(buf, "%s%c", buf, *s); break; } ++s; } return(buf); } /* keystring() */ /* Get and return name of symbol k */ LOCAL char *keysymbol(k) register ksym k; { register int i; for(i = 0; KNNAM(i); i++) if(KNSYM(i) == k) return(KNNAM(i)); return(unknown); } /* keysymbol() */ /* Get and return meaning of symbol k */ LOCAL char *keymeaning(k) register ksym k; { register int i; for(i = 0; KNNAM(i); i++) if(KNSYM(i) == k) return(KNCOM(i)); return(unknown); } /* keymeaning() */ /* Show all key bindings */ LOCAL int showbindings() { char str[INPLEN]; register klist *kp; register char *ks; register int l, c, kl; l = firstline; c = RV_OK; clearwindow(firstline, lastline); for(kp = kroot; KBNXT(kp); kp = (klist *) KBNXT(kp)) ; for(l = firstline; kp; kp = (klist *) KBPRV(kp)) { ks = keystring(KBSTR(kp), str); kl = strlen(ks); if(KBSYM(kp) == K_STR && KBINS(kp)) c = putfxy(kl < KCOL ? KCOL-kl : 0, l, 0, "%s=\"%s\"", ks, KBINS(kp)); else c = putfxy(kl < KCOL ? KCOL-kl : 0, l, 0, "%s=%s", ks, keysymbol(KBSYM(kp))); if(KBNAM(kp)) (void) putfxy(c > columns/2 ? c : columns/2, l, 0, "#%s", KBNAM(kp)); else (void) putfxy(c > columns/2 ? c : columns/2, l, 0, "#%s", keymeaning(KBSYM(kp))); if(++l > lastline && KBNXT(kp)) { puthelp("%s (CR:continue ELSE:quit)", who); c = hitakey("More key bindings ?", echoline, DA_NONE); if( !(c == ' ' || c == '\n')) return(c); clearwindow(firstline, lastline); l = firstline; } } return(c); } /* showbindings() */ /* Insert a key binding from a startup file line s. Ingore errors */ LOCAL int setbinding(s) register char *s; { register char *sp, *cp, *ep; register kchar *str; register ksym sym; /* First scan and clean keystring and keyname/string to insert */ if((sp = strchr(s, '=')) == NULL) return(0); *sp++ = '\0'; s = strclean(s); /* Get additional comment and clean binding/comment */ if(cp = strchr(sp, '#')) { *cp++ = '\0'; cp = strclean(cp); } sp = strclean(sp); /* Get key string from s and key symbol from sp */ if((str = getkeystring(s)) == UNULL || (sym = getkeysymbol(sp)) == K_INV) return(1); return(insertbinding(str, sym, cp && *cp ? cp : NULL, sym == K_STR ? ++sp : NULL, 1)); } /* setbinding() */ /* * KEY BINDING ROUTINES */ /* Initialize key bindings */ GLOBL VOID initbindings(term, cp) register char *term, **cp; { char buf[NAMELEN], bind[NAMELEN]; register FILE *fp; register kchar *k; register int i; /* First: Initialize and link keyname list */ KNNXT(0) = KNLST(1); for(i = 1; KNNAM(i+1); i++) { KNNXT(i) = KNLST(i+1); KNPRV(i) = KNLST(i-1); } KNPRV(i) = KNLST(i-1); /* Second: Get default keys and insert into list */ for(i = 0; DTSTR(i); i++) (void) insertbinding(DTSTR(i), DTSYM(i), NULL, NULL, 0); /* Third: Get default function keys from database and insert into list */ for(i = 0; FTSTR(i) ; i++) if(k = (kchar *) tgetstr(FTSTR(i), cp)) (void) insertbinding(k, FTSYM(i), FTNAM(i), NULL, 0); #ifdef UTSTART /* Last: Get global or user defined key bindings and insert into list */ (void) sprintf(bind, "%s-%s", UTSTART, term); if(startup(buf, bind) && (fp = fopen(buf, "r"))) { while(fgets(buf, sizeof(buf), fp)) if(VALID(buf[0])) (void) setbinding(buf); (void) fclose(fp); } #endif /* UTSTART */ } /* initbindings() */ /* Save user defined key bindings */ GLOBL VOID savebindings(term) register char *term; { #ifdef UTSTART char buf[NAMELEN]; register klist *kp; register FILE *fp; time_t t; if(VARVAL(V_AS) && klchg) { (void) sprintf(buf, ".%s-%s", UTSTART, term); (void) strcpy(buf, pathname(buf, home)); if(fp = fopen(buf, "w")) { t = time((time_t *) 0); (void) fprintf(fp, "# %s: ~/.%s-%s, %s", getversion(), UTSTART, term, ctime(&t)); for(kp = kroot; kp; kp = (klist *) KBNXT(kp)) if(KBUSR(kp)) { (void) fprintf(fp, "%s=", keystring(KBSTR(kp), buf)); if(KBSYM(kp) == K_STR && KBINS(kp)) (void) fprintf(fp, "\"%s\"", KBINS(kp)); else (void) fprintf(fp, "%s", keysymbol(KBSYM(kp))); if(KBNAM(kp)) (void) fprintf(fp, "\t#%s\n", KBNAM(kp)); else (void) fprintf(fp, "\n"); } (void) fclose(fp); } } #endif /* UTSTART */ } /* savebindings() */ /* Show all key bindings */ GLOBL int bindings() { char buf[INPLEN], key[KEYLEN], com[INPLEN], k[2]; register klist *kp; register char *kb; register int c, f; who = "KEY BINDINGS"; /* Key bindings loop */ f = 1; while(1) { if(f && ((c = showbindings()) < RV_NUL || c == 'q')) break; buf[0] = com[0] = k[1] = '\0'; /* Get key sequence terminated with CR */ puthelp("%s: Enter key to bind (NO EDIT! CR:quit)", who); (void) putecho("Bind:"); cursorset(CF_VISIBLE); k[0] = getchar(); if(k[0] == '\n' || k[0] == '\r') break; else if(k[0] == '\0') k[0] = '\200'; (void) strcat(buf, keystring(k ,key)); puthelp("%s: Enter key to bind (NO EDIT! CR:terminate string)", who); while(1){ (void) putecho("Bind: %s", buf); k[0] = getchar(); if(k[0] == '\n' || k[0] == '\r') break; else if(k[0] == '\0') k[0] = '\200'; (void) strcat(buf, keystring(k ,key)); } /* Get utree key to bind to */ for(kp = kroot; kp; kp = (klist *) KBNXT(kp)) if(EQU(KBSTR(kp), getkeystring(buf))) break; if(kp) { if(KBSYM(kp) == K_STR && KBINS(kp)) { (void) sprintf(key, "\"%s\"", KBINS(kp)); kb = key; } else kb = keysymbol(KBSYM(kp)); } else kb = NULL; puthelp("%s: Give utree keyname for binding (CR:quit)", who); c = putecho("Bind %s to:", buf); if((c = getline(key, sizeof(key), c, 'k', kb, KNLST(0), 1)) <= RV_NUL) break; /* Get additional comment */ (void) sprintf(buf, "%s=%s", buf, key); if(getkeysymbol(key) != K_INV) { puthelp("%s: Give comment for binding", who); c = putecho("Comment for key binding:"); if((c = getline(com, sizeof(com), c, 0, NULL, GNULL, 0)) < RV_NUL) break; if(com[0]) (void) sprintf(buf, "%s #%s", buf, com); /* Do the binding */ if(setbinding(buf)) { f = 1; klchg = 1; continue; } } f = 0; puthelp("%s %s", who, hitkey); if((c = errequest(buf, "Error in setting")) < RV_NUL) break; } cursorset(CF_INVISIBLE); treeflag = fileflag = SF_FULL; return(c); } /* bindings() */ /* Bind key to utree key */ strupper(s); for(i = 0; KNNAM(i); i++) if(EQU(s, KNNAM(i))) return(KNSYM(i)); } return(K_INV); } /* getkeysymbol() */ /* Create a key string from ascii string s */ LOCAL kchar *getkeystring(s) regisutree/src/comm.c1006440013110001060000003753505255652754011063 037777777777 1 0 /* * COMM.C * UTREE common tree and file commands. * 3.01-um klin, Tue Jun 4 14:16:30 1991 * klin, Mon Oct 7 15:16:22 1991, File size patterns added * klin, Sat Oct 26 15:07:06 1991, Sorting and zooming filelists changed * 3.02-um klin, Fri Nov 1 13:42:28 1991, Minor changes * klin, Sun Nov 24 19:30:43 1991, Cd to current directory before * executing some commands * 3.03-um klin, Tue Feb 11 19:40:06 1992, Status screen into stat.c * getline() changed * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. */ #ifndef lint static char sccsid[] = "@(#) utree 3.03-um (klin) Feb 11 1992 comm.c"; #endif /* !lint */ #include "defs.h" /* ---- Local variables and definitions ------------------------------- */ #define CCOLUMN -8 /* Column for clock */ /* Tokens for file pattern and time pattern matching */ #define TK_ERR 'F' /* Error */ #define TK_END 'E' /* End of pattern */ #define TK_WORD 'W' /* Word or file pattern matching */ #define TK_OR '|' /* ORing patterns */ #define TK_AND '&' /* ANDing pattern */ #define TK_SEQ '=' /* Filesize equate */ #define TK_SNE '!' /* Filesize unequate */ #define TK_SGT '>' /* Filesize bigger */ #define TK_SLT '<' /* Filesize smaller */ #define TK_MNE ')' /* File modified within (newer) */ #define TK_MOL '(' /* File not modified within (older) */ /* States from token() */ #define ST_NORM 0 /* Normal state */ #define ST_WORD 1 /* In word */ #define ST_QUOT 2 /* In quotes */ #define ST_BRCK 3 /* In brackets */ LOCAL int patpos; /* Current position in pattern */ LOCAL char patbuf[PATLEN]; /* Pattern buffer for internal use */ /* ---- External variables and functions ------------------------------ */ EXTRN struct tm *localtime(); /* ---- Functions and procedures -------------------------------------- */ /* * COMMON COMMANDS */ /* Display current date and time in echo line */ GLOBL int printdate() { time_t tloc; tloc = time((time_t *) 0); puthelp("DATE: Current date and time %s", hitkey); (void) putecho("%s", ctime(&tloc)); return(hitakey(NULL)); } /* printdate() */ /* Display current directory in echo line */ GLOBL int printcwd() { puthelp("WHERE: Pathname of current directory %s", hitkey); (void) putecho("%s", CPNAM); return(hitakey(NULL)); } /* printcwd() */ /* * CLOCK ROUTINES */ #ifdef UTCLOCK /* Turn on clock in echo line, update every second */ GLOBL VOID clockon() { time_t tloc; register struct tm *tm; /* Get and display current time in echo line */ tloc = time((time_t *) 0); tm = localtime(&tloc); if(cursorcap & CF_SAVE); cursorset(CF_SAVE); (void) putfxy(CCOLUMN, echoline, 0, "%02d:%02d:%02d", tm->tm_hour, tm->tm_min, tm->tm_sec); if(cursorcap & CF_RESTORE); cursorset(CF_RESTORE); flushout(); /* Set alarm for the next second and catch signal SIGALRM */ (void) alarm(1); (void) signal(SIGALRM, clockon); } /* clockon() */ /* Turn off clock in echo line */ GLOBL VOID clockoff() { (void) alarm(0); /* Suppress alarm */ } /* clockoff() */ #endif /* UTCLOCK */ /* * FILE AND TIME STAMP PATTERN MATCHING ROUTINES */ /* Get and return next token. If a word is found copy it to wp */ LOCAL int token(wp) register char *wp; { register int s; register char c, *w; s = ST_NORM; w = wp; /* Get token loop */ while(1) { c = patbuf[patpos++]; switch(s) { case ST_NORM: /* Normal state */ switch(c) { case '\n': case '\r': case '\0': c = TK_END; /*Fall thru*/ case TK_END: case TK_AND: case TK_OR: case TK_SEQ: case TK_SNE: case TK_SGT: case TK_SLT: case TK_MNE: case TK_MOL: return(c); case ' ': case '\t': continue; case '"': case '\'': s = ST_QUOT; continue; case '[': s = ST_BRCK; *w++ = c; continue; case '\\': if((c = patbuf[patpos++]) == '\0') return(TK_ERR); /*Fall thru*/ default: s = ST_WORD; *w++ = c; continue; } case ST_BRCK: /* In brackets */ switch(c) { case '\n': case '\r': case '\0': return(TK_ERR); case ']': s = ST_WORD; /*Fall thru*/ default: *w++ = c; continue; } case ST_QUOT: /* In quotes */ switch(c) { case '"': case '\'': *w = '\0'; return(TK_WORD); case '\\': if((c = patbuf[patpos++]) == '\0') return(TK_ERR); /*Fall thru*/ default: *w++ = c; continue; } case ST_WORD: /* In word */ switch(c) { case TK_AND: case TK_OR: case TK_SEQ: case TK_SNE: case TK_SGT: case TK_SLT: case TK_MNE: case TK_MOL: case '\n': case ' ': case '\t': case '\0': --patpos; *w = '\0'; return(TK_WORD); case '[': s = ST_BRCK; *w++ = c; continue; case '\\': if((c = patbuf[patpos++]) == '\0') return(TK_ERR); /*Fall thru*/ default: *w++ = c; continue; } } } /*NOT REACHED*/ } /* token() */ /* Token parsing and file/size/time pattern matching */ LOCAL int imatch(dp, f) register dlist *dp; register int f; { static int lt; char w[PATLEN]; register time_t ct; register off_t fs; register int t, i; /* Inner matching loop */ while(1) { switch(t = token(w)) { /* Get next token */ default: /* Unknown */ t = TK_ERR; /*Fall thru*/ case TK_ERR: /* Return as it is */ return(t); case TK_END: /* End of pattern */ case TK_OR: /* ORing patterns */ case TK_AND: /* ANDing patterns */ if(lt != TK_WORD) return(TK_ERR); return(lt = t); case TK_WORD: /* File pattern matching */ lt = t; if(dp) return(match(FFNAM(dp, f), w)); return(1); case TK_SEQ: /* Filesize equate */ case TK_SNE: /* Filesize unequate */ case TK_SGT: /* Filesize bigger */ case TK_SLT: /* Filesize smaller */ if((lt = token(w)) != TK_WORD || !isdigit(w[0])) return(TK_ERR); fs = (off_t) 0; for(i = 0; w[i] && isdigit(w[i]); i++) fs = fs * (off_t) 10 + (off_t) (w[i] - '0'); switch(w[i]) { default: /* Error */ return(TK_ERR); case 'm': /* Megabytes */ fs *= (off_t) 1024; /*Fall thru*/ case 'k': /* Kilobytes */ fs *= (off_t) 1024; /*Fall thru*/ case 'b': /* Bytes (default) */ case '\0': break; } if(dp) { switch(t) { case TK_SEQ: return(FSIZE(dp,f ) == fs); case TK_SNE: return(FSIZE(dp, f) != fs); case TK_SGT: return(FSIZE(dp, f) > fs); case TK_SLT: return(FSIZE(dp,f ) < fs); } } return(1); case TK_MNE: /* Modified within days/hours/minutes */ case TK_MOL: /* Not modified within days/hours/minutes */ if((lt = token(w)) != TK_WORD || !isdigit(w[0])) return(TK_ERR); ct = (time_t) 0; for(i = 0; w[i] && isdigit(w[i]); i++) ct = ct * (time_t) 10 + (time_t) (w[i] - '0'); switch(w[i]) { default: /* Error */ return(TK_ERR); case 'w': /* Weeks */ ct *= (time_t) 7; /*Fall thru*/ case 'd': /* Days */ ct *= (time_t) 24; /*Fall thru*/ case 'h': /* Hours (default) */ case '\0': ct *= (time_t) 60; /*Fall thru*/ case 'm': /* Minutes */ ct *= (time_t) 60; break; } if(ct == (time_t) 0) return(TK_ERR); else if(dp) { ct = time((time_t *) 0) - ct; return(t == TK_MNE ? FMTIM(dp, f) > ct : FMTIM(dp, f) <= ct); } return(1); } } /*NOT REACHED*/ } /* imatch() */ /* Do/combine file/size/time pattern matching */ GLOBL int umatch(dp, f, p) register dlist *dp; register int f; register char *p; { register int rv; (void) strcpy(patbuf, p); patpos = 0; rv = -1; /* Outer matching loop */ while(1) { switch(imatch(dp, f)) { case TK_END: /* End */ return(rv <= 0 ? 0 : 1); case 1: /* Match */ rv = 1; break; case 0: /* No match */ rv = 0; break; case TK_OR: /* ORing */ if(rv < 0) return(rv); else rv = (rv || imatch(dp, f) == 1) ? 1 : 0; if(dp && rv) return(rv); break; case TK_AND: /* ANDing */ if(rv < 0) return(rv); else rv = (rv && imatch(dp, f) == 1) ? 1 : 0; if(dp && rv == 0) return(rv); break; default: case TK_ERR: return(-1); } } /*NOT REACHED*/ } /* umatch() */ /* Get file/size/time pattern and test it */ GLOBL int getpattern(p, m) register char *p, *m; { register int c; /* Get/test pattern loop */ while(1) { c = putecho(m); c = getline(p, PATLEN, c, 'p', NULL, GNULL, 0); if(c == RV_OK && umatch(DNULL, 0, p) < 0) if((c = errequest(p, "Bad file pattern")) >= RV_NUL) continue; break; } return(c); } /* getpattern() */ /* * COMMON DIRECTORY AND FILE ROUTINES */ /* Change current working directory to directory list entry dp */ GLOBL int changelist(dp, who) register dlist *dp; { if(cwlist == dp) /* Is already cwd */ return(RV_OK); else if(DCANC(dp) && chdir(DPNAM(dp)) == 0) { cwlist = dp; return(RV_OK); } else if(who) { puthelp("%s: %s %s", who, CFNAM, hitkey); return(errequest(CFNAM, "Cannot change")); } return(RV_NUL); } /* changelist() */ /* Check if operation for file fn with mode m is allowed */ GLOBL int isallowed(fn, m) register char *fn; register int m; { #ifdef S_IFLNK struct stat st; #endif /* S_IFLNK */ register char *err; switch(m) { default: /* Others */ return(1); #ifdef S_IFLNK case FF_SLNK: /* Check symbolic link */ if( !ISDIR(fn, st)) return(1); /* Fall thru */ #endif /* S_IFLNK */ case FF_DIR: /* Is directory */ err = "Is a directory"; break; case FF_ERR: /* Error in stat */ err = "Cannot stat"; break; } setvideo(DA_ERROR); (void) putecho("!! %s: %s", fn, err); setvideo(DA_NORMAL); return(0); } /* isallowed() */ /* Set sort flag to f and sort/resort filelist */ GLOBL int sortlist(dp, f) register dlist *dp; register int f; { register char *n; if(DSORT(dp) != f) { DSORT(dp) = f; if(DNFIL(dp) > 0) { n = FFNAM(dp, DFCUR(dp)); sortflist(dp); DFTOP(dp) = DFCUR(dp) = 0; while(*n != *FFNAM(dp, DFCUR(dp)) || CMP(n, FFNAM(dp, DFCUR(dp)))) (void) gofile(dp, 1); } } return(DNFIL(dp) ? RV_OK : RV_NUL); } /* sortlist() */ /* Rebuild file list with new zoom pattern pat */ GLOBL int zoomlist(dp, pat) register dlist *dp; register char *pat; { register int n; if(DZOOM(dp)) { /* Free old pattern */ ufree(DZOOM(dp)); DZOOM(dp) = NULL; } if(pat && pat[0]) /* Save new pattern */ DZOOM(dp) = strsav(pat); n = DNFIL(dp); if(DFLAG(dp) != FL_NUL) { /* Rebuild filelist */ (void) newflist(dp); if(n != DNFIL(dp)); return(1); } return(0); } /* zoomlist() */ /* Search for pattern in file f from directory dp */ GLOBL int grepfile(dp, f) register dlist *dp; register int f; { char buf[EXECLEN]; register int rv; (void) sprintf(buf, "%s %s \"%s\" %s", GRFILE, GROPTS, gpattern, pathname(FFNAM(dp, f), DPNAM(dp))); if((rv = callsystem(buf, 0, 0)) == RV_INT) return(errequest("Grep", "Interrupted")); return(rv); } /* grepfile() */ /* Find file f in directory dp */ GLOBL int findfile(dp, f) dlist *dp; register int f; { if(f < DNFIL(dp) && umatch(dp, f, fpattern)) return(RV_OK); return(RV_NUL); } /* findfile() */ /* Remove file f from directory dp */ GLOBL int removefile(dp, f, req) register dlist *dp; register int f, req; { char name[NAMELEN], buf[EXECLEN]; register int c; /* Check if file can be removed */ if( !isallowed(FFNAM(dp, f), (int) FMODE(dp, f))) return(hitakey(NULL)); (void) strcpy(name, pathname(FFNAM(dp, f), DPNAM(dp))); if(req) { (void) putecho("Remove %s ?", FFNAM(dp, f)); if((c = hitakey(NULL)) != 'y') return(c); } else { (void) putecho("Removing %s", FFNAM(dp, f)); flushout(); } (void) sprintf(buf, "%s %s", RMFILE, name); if(callsystem(buf, 0, 0) != RV_OK) return(errequest(FFNAM(dp, f), "Cannot remove")); /* Preserve current file, delete flist and set flags */ if(f < DFCUR(dp)) (void) gofile(dp, -1); deleteflist(dp, f); ++buildflag; DFLAG(dp) = FL_CHG; return(RV_OK); } /* removefile() */ /* Copy file f from directory dp to directory/file to */ GLOBL int copyfile(dp, f, to, req) register dlist *dp; register int f, req; register char *to; { char from[NAMELEN], buf[EXECLEN]; register int c; /* Check if copying is allowed */ if( !isallowed(FFNAM(dp, f), (int) FMODE(dp, f))) return(hitakey(NULL)); (void) strcpy(from, pathname(FFNAM(dp, f), CPNAM)); if(req) { (void) putecho("Copy %s ?", FFNAM(dp, f)); if((c = hitakey(NULL)) != 'y') return(c); } (void) putecho("Copying %s to %s", FFNAM(dp, f), to); (void) sprintf(buf, "%s %s %s", CPFILE, from, to); if(callsystem(buf, 0, 0) != RV_OK) return(errequest(FFNAM(dp, f), "Error in copying")); return(RV_OK); } /* copyfile() */ /* Move file f from directory dp to directory/file to */ GLOBL int movefile(dp, f, to, req) register dlist *dp; register int f, req; register char *to; { char from[NAMELEN], buf[EXECLEN]; register int c; /* Check if moving is allowed */ if( !isallowed(FFNAM(dp, f), (int) FMODE(dp, f))) return(hitakey(NULL)); (void) strcpy(from, pathname(FFNAM(dp, f), CPNAM)); if(req) { (void) putecho("Move %s to %s ?", FFNAM(dp, f), to); if((c = hitakey(NULL)) != 'y') return(c); } (void) putecho("Moving %s to %s", FFNAM(dp, f), to); (void) sprintf(buf, "%s %s %s", MVFILE, from, to); if(callsystem(buf, 0, 0) != RV_OK) return(errequest(FFNAM(dp, f), "Error in moving")); return(RV_OK); } /* movefile() */ MOL: case '\n': case ' ': case '\t': case '\0': --patpos; *w = '\0'; return(TK_WORD); utree/src/main.c1006440013110001060000005234005255652755011044 037777777777 1 0 /* * MAIN.C * UTREE main routine. * 3.01-um klin, Sat May 4 15:45:02 1991 * klin, Tue Oct 15 12:26:53 1991, Option -L added * klin, Sat Oct 26 15:04:54 1991, writedlist() changed * 3.02-um klin, Fri Nov 1 10:46:14 1991, Option -u changed to -n * Option -u added * klin, Sun Nov 10 19:37:45 1991, buildlist() changed * klin, Sun Nov 24 19:30:43 1991, Cd to current directory before * executing some commands * 3.03-um klin, Tue Feb 11 22:35:55 1992, Shell command history added * klin, Sat Feb 15 19:18:30 1992, Video handling and option -v * changed * Partinioning of directory and * file windows changed and * option -p added * klin, Sun Feb 23 18:45:19 1992, Keybindings, variable AUTOSAVE * and option -o added * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. */ #ifndef lint static char sccsid[] = "@(#) utree 3.03-um (klin) Feb 23 1992 main.c"; #endif /* !lint */ /* * Usage: utree [-LSVabcghnoqrstuw] [-d var=[val]] [-d cmd:[typ]] [-f lst] * [-f lst] [-i ind] [-l lev] [-p lin] [-v mod] [-x cmd] * [rootdir] * * Options: -L Follow symbolic links * -S Ignore minimal screen size. * -V Display program version. * -a Read in all dirs including hidden. * -b No bell * -c No clock display/update in echoline. * -d var=[val] Define/undefine variable var. * -d typ:[cmd] Define/undefine command for type typ. * -f lst Build tree from list file lst. * -g No graphic characters. * -h Display some help about options. * -i ind Set tree indention to ind (3..9) * -l lev Build tree up to level lev. * -n No scan tree for changes. * -o Omit saving definition/history changes. * -p lin Set file window to lin lines (1..9) * -q Build tree up to level 2 (like -l 2). * -r Recreate tree list (always scan disk). * -s No hardware scrolling. * -t Sort files by modification times. * -u Update directory tree. * -v mod Set video attribute settings (0,1,2) * -w No warning about unreadable dirs. * -x cmd Use string cmd as initial input. * The options bcginopsvw may also be set in the environment * variable $UTREE. * * Directory: /usr/local/bin * * Environment: $EDITOR $HOME $PAGER $SHELL $TERM $UTREE $UTLIB * * Files: $UTLIB/utree.help - Utree help pages. * $UTLIB/utree - Global startup file. * $UTLIB/utree-$TERM - Global key bindings for $TERM * $HOME/.utree - User's startupfile. * $HOME/.utreelist - User's tree list file. * $HOME/.utreehist - Shell command history. * $HOME/.utree-$TERM - Users key bindings for $TERM * $PATH/utree.prlist - Tree display program * $PATH/utree.backup - Backup shell script. * $PATH/utree.mklist - Create tree list. * * Libraries: -lcurses (SYSV), -ltermcap or -ltermlib (BSD) * * Bugs: Changes in filesystem after shell or editor escape * are not always detected! * Directory tree depth > 32 may confuse utree! * Symbolic links to directories may confuse utree! * Chown() and chgrp() for normal users on some BSD * systems are not allowed! */ #define _MAIN_ /* Declare external variables */ #include "defs.h" /* defined in header files */ /* ---- Gobal variables and definitions ------------------------------- */ #define USES1 "[-LSVabcghnoqrstuw] [-d var=[val]] [-d cmd:[typ]] [-f lst]" #define USES2 "[-i ind] [-l lev] [-p lin] [-v mod] [-x cmd] [rootdir]" #define UOPTS "LSVabcd:f:ghi:nl:p:qrstuv:wx:" /* String for getopt() */ GLOBL int helpline, echoline; /* Help/echo lines */ GLOBL int firstline, lastline; /* First/last lines */ GLOBL int firstdline, lastdline; /* First/last tree lines */ GLOBL int ndlines; /* # dir lines on tree screen */ GLOBL int firstfline, lastfline; /* First/last file lines */ GLOBL int nflines; /* # file lines on tree screen */ GLOBL int maxnflines = DEFFIL; /* Max file lines */ GLOBL int fperpage, fperline; /* Files per page/line */ GLOBL int treeflag, fileflag; /* Screen update flags */ GLOBL int filecount, dircount; /* # of files/directories */ GLOBL int indent = -1; /* Tree indention: 2..9 */ GLOBL int videomode = VMODE2; /* Video mode: all attributes */ GLOBL int videoattr = VA_NORMAL; /* Video attribute */ GLOBL int graphattr = GC_OFF; /* Graphic character set flag */ GLOBL int maxindent = 0; /* User defined tree indention */ GLOBL int maxlevel; /* Current max tree level */ GLOBL int buildflag = 0; /* Rebuild directory flag */ GLOBL int writeflag = 0; /* Rewrite tree list file */ GLOBL int sortbytime = 0; /* Sort file by mod times */ GLOBL int hiddendirs = 0; /* Build up hidden directories */ GLOBL int sizechange = 0; /* Screen size changed */ GLOBL int (*statfun)() = lstat; /* Follow symbolic links */ GLOBL dlist *droot = DNULL; /* Root of directory list */ GLOBL dlist *cdlist = DNULL; /* Current directory list */ GLOBL dlist *cwlist = DNULL; /* Current working directory */ GLOBL char fpattern[PATLEN] = { '\0' }; /* Search pattern file search */ GLOBL char gpattern[PATLEN] = { '\0' }; /* Search pattern file grep */ GLOBL char tpattern[PATLEN] = { '\0' }; /* Tag pattern file tag */ GLOBL char rootdir[NAMELEN]; /* Root directory name */ GLOBL char utreemenu[MINCOLS]; /* User command tree menu line */ GLOBL char ufilemenu[MINCOLS]; /* User command file menu line */ GLOBL char *prgname; /* Program name/version */ GLOBL char *home; /* Home directory */ #ifdef BSD GLOBL jmp_buf winchjump; /* Global goto for SIGWINCH */ GLOBL int atread; /* Flag if we are in getchar() */ #endif GLOBL char *who; /* Name of current command */ GLOBL char *hitkey = "(Hit a key)"; /* ---- External variables and functions ------------------------------ */ EXTRN char *optarg; /* From getopt() */ EXTRN int optind; /* " " */ EXTRN char *initscreen(); EXTRN int exitscreen(); EXTRN char *calloc(); EXTRN char *writedlist(); /* ---- Functions and procedures -------------------------------------- */ /* * INTERNAL USED ROUTINES */ /* Display usage message and some help about options if flag f is set */ LOCAL VOID usage(f) register int f; { (void) fprintf(stderr, "Usage:\t%s\t%s\n\t\t%s\n", prgname, USES1, USES2); if(f) { (void) fprintf(stderr, "\t-L\t\tFollow symbolic links\n"); (void) fprintf(stderr, "\t-S\t\tIgnore minimal screen size\n"); (void) fprintf(stderr, "\t-V\t\tDisplay program version\n"); (void) fprintf(stderr, "\t-a\t\tRead in all (incl hidden) directories\n"); (void) fprintf(stderr, "\t-b\t\tSuppress ringing of the bell\n"); (void) fprintf(stderr, "\t-c\t\tDon't display and update a clock\n"); (void) fprintf(stderr, "\t-d var=[val]\tSet/unset variable\n"); (void) fprintf(stderr, "\t-d typ:[cmd]\tSet/unset filetype command\n"); (void) fprintf(stderr, "\t-f lst\t\tBuild tree from list file lst\n"); (void) fprintf(stderr, "\t-g\t\tDon't use graphic characters\n"); (void) fprintf(stderr, "\t-h\t\tDisplay some help about options\n"); (void) fprintf(stderr, "\t-i ind\t\tSet tree indention to ind (3..9)\n"); (void) fprintf(stderr, "\t-l lev\t\tBuild tree up to level lev\n"); (void) fprintf(stderr, "\t-n\t\tDon't scan tree for changes in tree\n"); (void) fprintf(stderr, "\t-o\t\tOmit saving definition/history changes\n"); (void) fprintf(stderr, "\t-p lin\t\tSet file lines on tree screen to lin (1..9)\n"); (void) fprintf(stderr, "\t-q\t\tBuild tree up to level 2 (like -l 2)\n"); (void) fprintf(stderr, "\t-r\t\tRecreate tree list (always scan disk)\n"); (void) fprintf(stderr, "\t-s\t\tDon't use hardware scrolling\n"); (void) fprintf(stderr, "\t-t\t\tSort files by modification times\n"); (void) fprintf(stderr, "\t-u\t\tUpdate file lists in directory tree\n"); (void) fprintf(stderr, "\t-v mod\t\tSet video attribute mode to mod (0, 1 or 2)\n"); (void) fprintf(stderr, "\t-w\t\tNo warning about unreadable directories\n"); (void) fprintf(stderr, "\t-x cmd\t\tUse string cmd as initial input\n"); } } /* usage() */ /* Exit utree on error */ LOCAL VOID uerror(err) register char *err; { (void) cursorxy(0, lines - 1); clearline(); flushout(); terminalreset(1); (void) fprintf(stderr, "%s: ", prgname); perror(err); exit(1); /*NOTREACHED*/ } /* uerror() */ /* * SETUP VARIABLES */ /* Set up terminal dependent variables */ LOCAL int setupscreen(sig) register int sig; { #if defined(SIGWINCH) && defined(TIOCGWINSZ) struct winsize ws; /* Signal SIGWINCH catched: get new screen size */ if(sig && ioctl(fileno(stdin), TIOCGWINSZ, (char *) &ws) == 0) { if(ws.ws_row > 0) lines = ws.ws_row; if(ws.ws_col > 0) columns = ws.ws_col; sizechange = 1; if(lines < MINLINS) bell(1); if(columns < MINCOLS) bell(1); flushout(); } /* Catch signal SIGWINCH for window changes */ (void) signal(SIGWINCH, setupscreen); #endif /* SIGWINCH && TIOCGWINSZ */ /* Set up some screen size dependent variables */ echoline = 0; helpline = 1; firstline = 2; lastline = lines-1; firstdline = firstline; lastfline = lastline; fperline = columns/FWINSZ; fperpage = (lines-2) * fperline; if(fperline <= 0) fperline = 1; /* Check some variables */ if(fperpage <= 0) fperpage = 1; checklines(1); (void) setvideomode(videomode); #if defined(BSD) && defined(SIGWINCH) && defined(TIOCGWINSZ) /* BSD: Because signal SIGWINCH doesn't interrupt the systemcall */ /* read use the global goto longjmp() to return to getchar */ if(sig && atread && sizechange) longjmp(winchjump, 1); #endif /* BSD && SIGWINCH && TIOCGWINSZ */ } /* setupscreen() */ /* * GET STARTUPFILES */ /* Build startupfile name from file f and copy it to buffer b */ GLOBL int startup(b, f) register char *b, *f; { register char *e; /* First: Try user's home directory */ (void) sprintf(b, ".%s", f); (void) strcpy(b, pathname(b, home)); if(access(b, 04) == 0) return(1); /* Second: Try libdir if defined in environment */ if(e = getenv("UTLIB")) { (void) strcpy(b, pathname(f, e)); if(access(b, 04) == 0) return(1); } /* Third: Try global libdir if defined */ #ifdef UTLIB (void) strcpy(b, pathname(f, UTLIB)); if(access(b, 04) == 0) return(1); #endif /* UTLIB */ return(0); } /* startup() */ /* * MEMORY ALLOCATION */ /* Allocate memory. Exit on error */ GLOBL char *ualloc(n, s) register unsigned n, s; { register char *p; if(p = calloc(n, s)) return(p); uerror("ualloc"); /*NOTREACHED*/ } /* ualloc() */ /* Free allocated memory */ GLOBL VOID ufree(p) register char *p; { if(p) free(p); } /* ufree() */ /* * MAIN ROUTINE */ GLOBL VOID main(argc, argv) int argc; char **argv; { char list[NAMELEN], name[NAMELEN], cwd[NAMELEN]; struct stat st; FILE *fp; char *lst = NULL; char *cp, *root, *term; int hard = 0, level = 0, siz = 1, update = 0; int opt, any, rval, i; /* Set up programs name and commandline variables */ prgname = basename(argv[0]); /* Get users home directory */ if((home = getenv("HOME")) == NULL) { (void) fprintf(stderr, "%s: Can't get your home directory\n", prgname); exit(1); } /* Check if utree is running from a terminal */ if( !isatty(fileno(stdin)) || !isatty(fileno(stdout))) { (void) fprintf(stderr, "%s: Not attached to a terminal\n", prgname); exit(1); } /* Init utree variables before parsing command line options */ initvariables(); /* Parse and check command line options */ while((opt = getopt(argc, argv, UOPTS)) != EOF) switch(opt) { default: /* Bad option or missing argument */ usage(0); exit(1); case 'L': /* Follow symbolic links */ statfun = stat; break; case 'S': /* Ignore minimal screen size */ siz = 0; break; case 'V': /* Show utree version */ utreeversion(); exit(0); case 'a': /* Build up all directories */ hiddendirs = 1; break; case 'b': /* No bell */ (void) setvariable("BL=", VC_SET); break; case 'c': /* No clock showing and update */ (void) setvariable("CL=", VC_SET); break; case 'd': /* Define or undefine variables */ if(strchr(optarg, '=')) { (void) setvariable(optarg, VC_SET); break; } else if(strchr(optarg, ':')) { (void) setcommand(optarg, VC_SET); break; } (void) fprintf(stderr, "%s: bad assignment -- %s\n", prgname, optarg); usage(0); exit(1); case 'f': /* Tree list file given */ lst = optarg; break; case 'g': /* No graphic characters */ (void) setvariable("GC=", VC_SET); break; case 'h': /* Display some help */ utreeversion(); usage(1); exit(0); case 'i': /* Tree level indention */ (void) sprintf(list, "TI=%s", optarg); if(setvariable(list, VC_SET) < 0) { (void) fprintf(stderr, "%s: bad tree indention (must be 3 .. 9) -- %s\n", prgname, optarg); usage(0); exit(1); } break; case 'l': /* Level to build up the tree */ if((level = atoi(optarg)) <= 0) { (void) fprintf(stderr, "%s: bad tree level (must be > 0) -- %s\n", prgname, optarg); usage(0); exit(1); } break; case 'n': /* No scan tree for changes */ (void) setvariable("ST=", VC_SET); break; case 'o': /* Omit saving definition changes */ (void) setvariable("AS=", VC_SET); break; case 'p': /* Number of file lines on tree screen */ (void) sprintf(list, "FL=%s", optarg); if(setvariable(list, VC_SET) < 0) { (void) fprintf(stderr, "%s: bad number of lines (must be 1 .. 9) -- %s\n", prgname, optarg); usage(0); exit(1); } break; case 'q': /* Build tree up to level 2 */ level = 2; break; case 'r': /* Hard build up the tree */ hard = writeflag = 1; break; case 's': /* No terminal scrolling */ (void) setvariable("TS=", VC_SET); break; case 't': /* Sort files by modification times */ (void) setvariable("LS=", VC_SET); break; case 'u': /* Update filelists in tree */ update = buildflag = 1; break; case 'v': /* Set video mode */ (void) sprintf(list, "VM=%s", optarg); if(setvariable(list, VC_SET) < 0) { (void) fprintf(stderr, "%s: bad mode (use 0, 1 or 2) -- %s\n", prgname, optarg); usage(0); exit(1); } break; case 'w': /* No warning about unreadable directories */ (void) setvariable("WD=", VC_SET); break; case 'x': /* Fill input buffer */ if(ungetstring(optarg)) { (void) fprintf(stderr, "%s: bad input string -- %s\n", prgname, optarg); usage(0); exit(1); } break; } /* Get current working directory */ (void) getcwd(cwd, NAMELEN-2); /* Check list file if given and setup rootdirectory */ if(lst) { if( !(fp = fopen(lst, "r"))) { (void) fprintf(stderr, "%s: Cannot open list file %s\n", prgname, lst); exit(1); } while(fgets(name, sizeof(name), fp)) { if(VALID(name[0]) && (name[0] == '/' || name[0] == '.')) { if(name[i = strlen(name) - 1] == '\n') name[i] = '\0'; (void) fclose(fp); goto OUT; } } (void) fclose(fp); (void) fprintf(stderr, "%s: No root found in list file %s\n", prgname, lst); exit(1); } OUT: /* Get root directory from where to build up the directory tree */ switch(argc - optind) { case 0: /* Root from list file */ if(lst) { (void) strcpy(list, pathname(lst, cwd)); root = pathname(name, cwd); } else { /* Root is users home directory */ (void) strcpy(list, pathname(UTLIST, home)); root = home; } break; case 1: /* Root is given in command line */ root = pathname(argv[optind], cwd); break; default: /* Too many arguments */ usage(0); exit(1); } /* Test and change to root directory */ if( !ISDIR(root, st)) { (void) fprintf(stderr, "%s: Root %s is not a directory\n", prgname, root); exit(1); } if(chdir(root)) { (void) fprintf(stderr, "%s: Can't change to root %s\n", prgname, root); exit(1); } (void) strcpy(rootdir, root); any = strncmp(root, home, strlen(home)); /* Init screen and check screen size */ term = getenv("TERM"); if(cp = initscreen(term)) { (void) fprintf(stderr, "%s: %s\n", prgname, cp); exit(1); } else if(siz && (columns < MINCOLS || lines < MINLINS)) { (void) fprintf(stderr, "%s: Screen too small, %dx%d instead of %dx%d\n", prgname, columns, lines, MINCOLS, MINLINS); exit(1); } (void) setupscreen(0); /* Init history list, help pages, key bindings and graphical character set */ inithistory(); inithelp(); initgraphics(VARSET(V_GC)); /* Catch signals and set terminal to raw mode. ATTENTION: */ /* SIGKILL cannot be caught. This leaves tty in raw state! */ terminalraw(1); (void) signal(SIGQUIT, exitscreen); (void) signal(SIGINT, exitscreen); (void) signal(SIGTERM, exitscreen); enablesignals(); /* Show initial screen */ clearscreen(); (void) putversion(helpline, NULL); flushout(); /* Build up directory tree and file lists */ if(lst) rval = buildlist(rootdir, cwd, list); else if(level) { update = 0; rval = buildread(rootdir, 1, level, 0); } else if(hard || any) { update = 0; rval = buildread(rootdir, 1, HLEVEL, 0); } else if((rval = buildlist(rootdir, cwd, list)) != RV_OK) { update = 0; writeflag = 1; rval = buildread(rootdir, 1, HLEVEL, 0); } /* Exit on error at building tree */ if(rval != RV_OK) uerror(rootdir); /* Disable/ignore signals */ disablesignals(); (void) signal(SIGQUIT, SIG_IGN); (void) signal(SIGINT, SIG_IGN); cursorset(CF_INVISIBLE); flushout(); /* Call the tree menu */ cwlist = droot; rval = treemenu(update); /* Write/rewrite tree and command history lists if needed */ if(EQU(rootdir, home)) { if(writeflag && !(level || any)) { (void) strcpy(list, pathname(UTLIST, home)); (void) writedlist(list, droot, "home", 'd'); } } /* Save history list, variables, commands and key bindings */ savehistory(); savevariables(); savebindings(term); /* Clear screen, reset terminal and exit */ clearscreen(); exitscreen(rval == RV_ERR ? 1 : 0); } /* main() */ lastfline = lastline; fperline = columns/FWINSZ; fperpage = (lines-2) * fperline; if(fperline <= 0) fperline = 1; /* Check some variables */ if(fperpage <= 0) fperpage = 1; checklines(1); (void) setvideomode(videomode); #if defined(BSD) && defined(SIGWIutree/src/utree.prlist.c1006440013110001060000003754305255652755012570 037777777777 1 0 /* * UTREE.PRLIST.C * Filter for utree 3.02-um tree list files for different devices. * 3.02-um klin, Sun Nov 10 13:13:35 1991 * klin, Sun Nov 24 12:07:16 1991, XENIX graphset handling * 3.03-um klin, Sun Feb 16 15:34:37 1992, Minor changes * a klin, Sun Mar 15 19:08:25 1992, Minor changes for AIX 3.2 * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. */ static char sccsid[] = "@(#) utree 3.03a-um (klin) Mrz 15 1992 utree.prlist.c"; /* * Usage: utree.prlist [-Vhr] [-d dev] [-f fnt] [i ind] [-s siz] listfile * Options: -V Display program version. * -T dev or * -d dev Output for device dev. * Supported devices are: * ascii ascii meta characters. * 850 printers with ibm pc850 charset. * ps postscript. * term terminal (default). * -f fnt Font to use (postscript only) * -h Display usage and help. * -i ind Set tree indention to ind. * -s siz Font size (postscript only) * Remarks: Formatted utree tree list files can be created * with the write-tree command (o) and option list (l) * from tree-screen. * Directory: /usr/local/bin * Environment: $TERM * Defines: AIX for IBM AIX systems * BSD for BSD systems * XENIX for XENIX systems * Libraries: -lm -lcurses (SYSV), -ltermcap or -ltermlib (BSD) */ static char usage[] = "@(#) Usage: utree.prlist [-Vr][-d dev][-f fnt][-i ind][-s siz] listfile"; static char pvers[] = "UTREE 3.03-um"; #include #include #define MAXLEN 512 /* Buffer length */ #define DEFIND 6 /* Default indention */ #define MININD 3 /* Minimal indention */ #define MAXIND 9 /* Maxinal indention */ #define OPTIONS "T:Vd:f:hi:rs:" /* Optionstring for getopt() */ #define UNULL ((unsigned char *) 0) static char *pname; static char *title = "Tree"; static char root[MAXLEN]; /* The generic graphical character set */ static unsigned char *grafset = UNULL; #define H grafset[0] /* Horizontal bar */ #define V grafset[1] /* Vertical bar */ #define U grafset[2] /* Upper left corner */ #define L grafset[3] /* Lower left corner */ #define T grafset[4] /* Left tee */ #define I grafset[5] /* Indention */ #define S grafset[6] /* Space */ /* The fix coded character sets for ascii, acsc, ibm and ps */ /* H V U L T I S */ static unsigned char asciiset[7] = { '-','|','+','+','|',' ',' ' }; static unsigned char acscset[7] = { '-','|','+','+','|',' ',' ' }; static unsigned char ibmset[7] = { 196,179,218,192,195,' ',' ' }; static unsigned char psset[7] = { 'H','V','U','L','T','I','S' }; static int indent = DEFIND; /* Indention */ static int rflag = 1; /* Print rootdirectory flag */ static int isps = 0; /* Postscript output */ static unsigned char *acsc = UNULL; /* Alternate char set */ static unsigned char *enacs = UNULL; /* Enable alt char set */ static unsigned char *smacs = UNULL; /* Alt char set on */ static unsigned char *rmacs = UNULL; /* Alt char set off */ #define ACSCON if(acsc && smacs) tputs(smacs, 1, putchar) #define ACSCOFF if(acsc && rmacs) tputs(rmacs, 1, putchar) #undef putchar /* Postscript definitions and variables */ #define PSFONT "Courier-Bold" /* Default postscript font */ #define PSSIZE 10.0 /* Default postscript font size */ #define PSMIN 50.0 /* Lower y position */ #define PSMAX 780.0 /* Upper y position */ #define PSIND 85.0 /* Most left x position */ #define PSWID 475.0 /* Page header width */ #define PSEOF (0x04) /* C-d: EOF for postscript */ static int psp = 0; /* Page counter */ static double psy; /* Current y position */ static double pps = PSSIZE; /* Font size */ static double pvs = PSSIZE+2; /* Vertical space */ static char *pft = PSFONT; /* Font */ extern double atof(); #ifdef BSD #define strrchr rindex extern char *rindex(); #else /* !BSD */ extern char *strrchr(); #endif /* BSD */ /* * Output one character */ static int putchar(c) int c; { putc((unsigned char) c, stdout); return(c); } /* putchar() */ /* * Catch signals SIGINT, SIGQUIT and SIGTERM */ static int catchsig(sig) int sig; { ACSCOFF; if(sig == SIGQUIT) abort(); exit(1); } /* catchsig() */ /* * Init terminal and graphical character set for terminal */ static void initterm(f) int f; { static char termbuf[1024]; char termcap[1024], *term; char *tp = termbuf; extern char *getenv(); extern unsigned char *tgetstr(); grafset = asciiset; /* Default character set */ if(f && !isatty(fileno(stdout))) return; else if((term = getenv("TERM")) && tgetent(termcap, term) > 0) { #ifdef AIX if(acsc = tgetstr("bx", &tp)) { grafset = acscset; if( !(smacs = tgetstr("as", &tp))) smacs = tgetstr("f1", &tp); /* AIX 3.2: font1 instead of smacs */ if( !(rmacs = tgetstr("ae", &tp))) rmacs = tgetstr("f0", &tp); /* AIX 3.2: font0 instead of rmacs */ U = acsc[0]; L = acsc[5]; H = acsc[1]; T = acsc[9]; V = acsc[3]; } #else /* !AIX */ if(acsc = tgetstr("ac", &tp)) { grafset = acscset; if(enacs = tgetstr("eA", &tp)) tputs(enacs, 1, putchar); smacs = tgetstr("as", &tp); rmacs = tgetstr("ae", &tp); do switch(*acsc) { default: /* Skip */ ++acsc; break; case 'l': /* Upper left corner */ U = *++acsc; break; case 'm': /* Lower left corner */ L = *++acsc; break; case 'q': /* Horizontal bar */ H = *++acsc; break; case 't': /* Left tee */ T = *++acsc; break; case 'x': /* Vertical bar */ V = *++acsc; break; } while(*acsc && *++acsc); } # ifdef XENIX else { unsigned char *gp; grafset = acscset; acsc = acscset; /* Use as flag */ smacs = tgetstr("GS", &tp); rmacs = tgetstr("GE", &tp); if(gp = tgetstr("G2", &tp)) U = *gp; /* Upper left corner */ if(gp = tgetstr("G3", &tp)) L = *gp; /* Lower left corner */ if(gp = tgetstr("GH", &tp)) H = *gp; /* Horizontal bar */ if(gp = tgetstr("GR", &tp)) T = *gp; /* Left tee */ if(gp = tgetstr("GV", &tp)) V = *gp; /* Vertical bar */ } # endif /* XENIX */ #endif /* AIX */ signal(SIGINT, catchsig); signal(SIGQUIT, catchsig); signal(SIGTERM, catchsig); } } /* initterm() */ /* * Select graphical character set for device d */ static int initgraf(d) char *d; { switch(*d) { default: /* Bad device */ return(0); case 'a': /* ASCII meta characters */ grafset = asciiset; break; case '8': /* IBM PC850 character set */ grafset = ibmset; break; case 'p': /* Postscript */ grafset = psset; ++isps; break; case 't': initterm(0); /* Terminal */ break; } return(1); } /* initgraf() */ /* * Write out graphic character c from current character set */ static void putgraf(c) int c; { switch(c) { case 'I': /* Indention */ putchar(I); break; case 'S': /* Space */ putchar(S); break; default: /* Graphical characters */ ACSCON; switch(c) { case 'H': /* Horizontal bar */ putchar(H); break; case 'L': /* Lower left corner */ putchar(L); break; case 'T': /* Left tee */ putchar(T); break; case 'U': /* Upper left corner */ putchar(U); break; case 'V': /* Vertical bar */ putchar(V); break; } ACSCOFF; break; } if(isps) putchar(' '); } /* putgraf() */ /* * Write header lines */ static void putheader() { if(isps) { printf("%%!PS-Adobe-2.0\n"); printf("%%%%Creator: %s\n", &sccsid[5]); printf("%%%%Title: %s: %s\n", title, root); printf("%%%%DocumentFont: %s\n", pft); printf("%%%%Pages: (atend)\n"); printf("%% Copyright (c) 1991 by Peter Klingebiel & UNIX Magazin Muenchen\n"); printf("%%%%EndComments\n"); printf("%% Variables for font, fontsize, vertical space and indentions\n"); printf("/ft /%s def\n", pft); printf("/ps %3.2lf def\n", pps); printf("/vs %3.2lf def\n", pvs); printf("/s1 %3.2lf def\n", pvs / 6.0); printf("/s2 %3.2lf def\n", pvs / 3.0); printf("/s3 %3.2lf def\n", pvs * 2.0 / 3.0); printf("%% Procedures for drawing and printing\n"); if(rflag) { printf("/Z { gsave 0.95 setgray\n"); printf(" 0 ps s3 add rlineto %3.2lf 0 rlineto\n", PSWID); printf(" 0 ps s3 add neg rlineto -%3.2lf 0 rlineto\n", PSWID); printf(" fill grestore s2 s2 rmoveto\n"); printf(" gsave show grestore %3.2lf setlinewidth } bind def\n", pps / 20.0); } else printf("/Z { %3.2lf setlinewidth } bind def\n", pps / 20.0); printf("/F { findfont exch scalefont setfont } bind def\n"); printf("/P { gsave s1 s1 rmoveto show grestore stroke } bind def\n"); printf("/G { moveto } bind def\n"); printf("/U { 0 s2 rlineto s2 0 rlineto 0 s2 neg rmoveto } bind def\n"); printf("/L { 0 vs rmoveto 0 s3 neg rlineto s2 0 rlineto 0 s2 neg rmoveto } bind def\n"); printf("/V { 0 vs rlineto s2 vs neg rmoveto } bind def\n"); printf("/T { 0 vs rlineto 0 s3 neg rmoveto s2 0 rlineto 0 s2 neg rmoveto } bind def\n"); printf("/S { s2 0 rmoveto } bind def\n"); printf("/I { s2 %d mul 0 rmoveto } bind def\n", indent); printf("/H { 0 s2 rmoveto s2 %d mul 0 rlineto 0 s2 neg rmoveto } bind def\n", indent-1); printf("%%%%EndProlog\n"); printf("ps ft F\n"); } else if(rflag) printf("\n%s %s: %s\n\n", pvers, title, root); } /* putheader() */ /* * Write trailing lines */ static void puttrailer() { if(isps) { printf("showpage\n"); printf("%%%%Trailer\n"); printf("%%%%Pages: %d\n", psp); putchar(PSEOF); } } /* puttrailer() */ /* * Scan one entry line and write out */ static void putentry(s) char *s; { int c, i; if(isps) { if(psp == 0 || psy < PSMIN) { if(psp) printf("showpage\n"); printf("%%%%Page %d\n", ++psp); if(rflag) { printf("%3.2lf %3.2lf G (%s %s Page %d) Z\n", PSIND, PSMAX, title, root, psp); psy = PSMAX - 2.0 * pvs; } else { printf("Z\n"); psy = PSMAX; } } printf("%3.2lf %3.2lf G ", PSIND, psy); psy -= pvs; } else putgraf(*s++); /* First column */ while(c = *s++) switch(c) { default: /* Bad format */ return; case 'H': /* Horizontal bar + file name */ if(isps) { putgraf(c); printf("(%s) P\n", s); } else { for(i = 1; i < indent; i++) putgraf(c); printf(" %s\n", s); } return; case 'I': /* Indention */ if(isps) putgraf(c); else for(i = 0; i < indent; i++) putgraf(c); break; case 'S': /* One space */ case 'L': /* Lower left corner */ case 'T': /* Left tee */ case 'U': /* Upper left corner */ case 'V': /* Vertical bar */ putgraf(c); break; } } /* putentry() */ /* * Main routine */ main(argc, argv) int argc; char **argv; { char line[MAXLEN], *list; FILE *fp; int c; extern char *optarg; /* From getopt() */ extern int optind; /* Get programs name */ if(pname = strrchr(argv[0], '/')) ++pname; else pname = argv[0]; /* Parse and check command line options */ while((c = getopt(argc, argv, OPTIONS)) != EOF) { switch(c) { default: /* Bad option */ fprintf(stderr, "%s\n", &sccsid[5]); exit(1); case 'V': /* Version */ fprintf(stderr, "%s\n", &sccsid[5]); exit(0); case 'h': /* Some help */ fprintf(stderr, "%s\n", &usage[5]); fprintf(stderr, "\t-T dev\t\tOutput for device dev\n"); fprintf(stderr, "\t-V\t\tDisplay program version\n"); fprintf(stderr, "\t-d dev\t\tOutput for device dev\n"); fprintf(stderr, "\t-f fnt\t\tUse font fnt (ps only, default: Courier-Bold)\n"); fprintf(stderr, "\t-h\t\tDisplay some help\n"); fprintf(stderr, "\t-i ind\t\tSet tree indention to ind (3..9)\n"); fprintf(stderr, "\t-s siz\t\tUse font size siz (ps only, default: 10)\n"); fprintf(stderr, "\t\t\tCurrently supported output devices are:\n"); fprintf(stderr, "\t\t\tascii\tAscii meta graphic characters\n"); fprintf(stderr, "\t\t\t850\tPrinters using IBM PC850 character set\n"); fprintf(stderr, "\t\t\tps\tPostscript\n"); fprintf(stderr, "\t\t\tterm\tTerminal (default)\n"); exit(0); case 'T': /* Device for graphical character set */ case 'd': if(initgraf(optarg)) break; fprintf(stderr, "%s: device not supported -- %s\n", pname, optarg); exit(1); case 'r': /* Suppress pathname of rootdirectory */ rflag = 0; break; case 'i': /* Indention */ if((indent = atoi(optarg)) < MININD || indent > MAXIND) { fprintf(stderr, "%s: bad indention -- %d\n", pname, indent); exit(1); } break; case 'f': /* Postscript font */ pft = optarg; break; case 's': /* Font size */ pps = atof(optarg); pvs = pps + 2.0; break; } } /* Get and tree list file name */ if((argc - optind) != 1) { fprintf(stderr, "%s\n", &usage[5]); exit(1); } else list = argv[optind]; /* Open directory tree list file */ if( !(fp = fopen(list, "r"))) { fprintf(stderr, "%s: Cannot open list file %s\n", pname, list); exit(1); } /* Init default graphical character set if needed */ if(grafset == UNULL) initterm(1); /* Read, scan and write tree list file line by line */ while(fgets(line, sizeof(line), fp)) { line[strlen(line)-1] = '\0'; switch(c = line[0]) { default: /* Ignore */ break; case 'R': /* Pathname of rootdirectory */ strncpy(root, &line[1], sizeof(root)); putheader(); break; case 'H': /* Valid tree list entry */ case 'L': case 'U': case 'V': putentry(line); break; } } fclose(fp); /* Write trailer and exit */ puttrailer(); exit(0); } /* main() */ cs */ if( !(rmacs = tgetstr("ae", &tp))) rmacs = tgetstr("f0", &tp); /* AIX 3.2: font0 instead of rmacs */ U = acsc[0]; L = acsc[5utree/src/list.c1006440013110001060000005303605255652757010267 0 0 1 0 /* * LIST.C * UTREE directory and file list handling routines. * 3.01-um klin, Tue Jun 4 14:17:17 1991 * klin, Tue Oct 15 14:02:37 1991, Handling of symlinks changed * klin, Sat Oct 26 15:07:06 1991, Print tree list added * writedlist() changed * 3.02-um klin, Fri Nov 1 13:41:58 1991, Minor changes * klin, Sun Nov 10 19:37:14 1991, buildlist() changed * klin, Sun Nov 24 11:44:49 1991, Some error fixes reported by * Rolf Gebhardt (RG 11/22/91) * 3.03-um klin, Sat Feb 15 20:09:09 1992, Minor changes * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. */ #ifndef lint static char sccsid[] = "@(#) utree 3.03-um (klin) Feb 15 1992 list.c"; #endif /* !lint */ #include "defs.h" /* ---- External variables and functions ------------------------------ */ EXTRN char *readdname(); EXTRN char *getversion(); /* ---- Local/global functions and procedures --------------------------*/ /* * INTERNAL USED ROUTINES */ /* Compare filenames from flist. Called by qsort() */ LOCAL int flistcmp(f1, f2) register flist *f1, *f2; { if(sortbytime) { if(FPTIM(f1) < FPTIM(f2)) return(99); else if(FPTIM(f1) > FPTIM(f2)) return(-99); } return(CMP(FPFIL(f1), FPFIL(f2))); } /* flistcmp() */ /* Compare filenames from directory name vector. Called by qsort() */ LOCAL int dlistcmp(d1, d2) register char **d1, **d2; { return(CMP(*d1, *d2)); } /* dlistcmp() */ /* Count directory level */ LOCAL int countlevl(name) register char *name; { register int n; if(*name == '/' && *(name+1) == '\0') return(0); n = 0; while(*name) if(*name++ == '/') ++n; return(n); } /* countlevl() */ /* Align buffer size to avoid too often alloc and free */ LOCAL unsigned alignbsiz(s, n) register unsigned s; register int n; { register unsigned ns; if(s == 0 || n == 0) ns = 0; else for(ns = NBUFSZ; ns < s; ns += NBUFINC) ; return(ns); } /* alignbsiz() */ /* Align filevector size to avoid too often alloc and free */ LOCAL int alignnfils(n) register int n; { register int nn; if(n == 0) nn = 0; else for(nn = NFILES; nn < n; nn += NFILINC) ; return(nn); } /* alignnfils() */ /* * FILE LIST ROUTINES */ /* Update file f in file list */ LOCAL VOID insertflist(dp, f) register dlist *dp; register int f; { struct stat st; register char *pn; /* Get mode flag for file */ pn = pathname(FFNAM(dp, f), DPNAM(dp)); if((*statfun)(pn, &st) == 0) { switch(STFMT(&st)) { #ifdef S_IFLNK case S_IFLNK: /* Symbolic link */ FMODE(dp, f) = FF_SLNK; break; #endif /* S_IFLNK */ #ifdef S_IFSOCK case S_IFSOCK: /* Socket */ FMODE(dp, f) = FF_SOCK; break; #endif case S_IFDIR: /* Directory */ FMODE(dp, f) = FF_DIR; ++DNDIR(dp); break; default: /* Executable or other file */ FMODE(dp, f) = (st.st_mode & 0111) ? FF_EXEC : FF_NONE; break; } FMTIM(dp, f) = st.st_mtime; FSIZE(dp, f) = st.st_size; } else { FMODE(dp, f) = FF_ERR; FMTIM(dp, f) = (time_t) 0; FSIZE(dp, f) = (off_t) 0; } FITAG(dp, f) = FF_NONE; } /* insertflist() */ /* Delete an entry from file list */ GLOBL VOID deleteflist(dp, f) register dlist *dp; register int f; { register int n; /* Do nothing and return if file list is not yet read in (RG 11/22/91) */ if(DFVEC(dp) == FNULL) return; /* Move up file name, tag and mode flag in file list */ n = f + 1; if(FITAG(dp, f) && DNTAG(dp) > 0) --DNTAG(dp); while(n < DNFIL(dp)) { FFNAM(dp, f) = FFNAM(dp, n); FITAG(dp, f) = FITAG(dp, n); FMODE(dp, f) = FMODE(dp, n); ++f; ++n; } /* Decrement counters */ --DNFIL(dp); --filecount; } /* deleteflist() */ /* Sort or resort file list from directory dp */ GLOBL VOID sortflist(dp) register dlist *dp; { register int f; f = sortbytime; sortbytime = DSORT(dp) ? 1 : 0; /* Set flag for comparing */ if(DNFIL(dp) > 0) /* Sort/resort file list */ qsort((char *) DFVEC(dp), (unsigned) DNFIL(dp), sizeof(flist), flistcmp); sortbytime = f; } /* sortflist() */ /* Zoom file list of directory dp */ GLOBL VOID zoomflist(dp) register dlist *dp; { register int f, n; if(DZOOM(dp)) { for(f = n = 0; f < DNFIL(dp); f++) if(umatch(dp, f, DZOOM(dp))) { if(n != f) FLIST(dp, n) = FLIST(dp, f); ++n; } DNFIL(dp) = n; } } /* zoomflist() */ /* Rebuild file list in some cases (i.e. cp, mv ..) */ GLOBL int newflist(dp) register dlist *dp; { char cfnam[NAMELEN]; struct stat st; register flist *fv; register char *fbp, *name, *fb; register int i, j, k, nfil, ntag; register unsigned size; register DIR *dirfp; (void) putecho("Building %s", DPNAM(dp)); flushout(); /* Set/reset counter */ nfil = DNFIL(dp); ntag = DNTAG(dp); filecount -= DNFIL(dp); DNFIL(dp) = DNDIR(dp) = DNTAG(dp) = 0; /* Get status of directory and read in */ if((*statfun)(DPNAM(dp), &st) == 0 && (dirfp = opendir(DPNAM(dp)))) { /* Save name of current file */ if(nfil > 0) { (void) strcpy(cfnam, FFNAM(dp, DFCUR(dp))); /* Save flist array and file buffer */ if(ntag > 0) { fb = DFBUF(dp); fv = DFVEC(dp); DFBUF(dp) = NULL; DBSIZ(dp) = 0; } } /* Count files */ for(i = 0; readdname(dirfp); i++) ; rewinddir(dirfp); /* Align file count and buffer size */ i = alignnfils(i); size = alignbsiz((unsigned) st.st_size, i); /* Release current file list and file name buffer if needed */ if(DFBUF(dp) && DBSIZ(dp) < size) { ufree(DFBUF(dp)); ufree((char *) DFVEC(dp)); DFBUF(dp) = NULL; DBSIZ(dp) = 0; } /* Get memory for file list and file name buffer if not yet done */ if(DFBUF(dp) == NULL && i > 0) { DFBUF(dp) = (char *) ualloc(size, sizeof(char)); /* RG 11/22/91 */ DFVEC(dp) = (flist *) ualloc((unsigned) i, sizeof(flist)); DBSIZ(dp) = size; } /* Fill up file list and file name buffer */ for(i = 0, fbp = DFBUF(dp); name = readdname(dirfp); i++) { FFNAM(dp, i) = strcpy(fbp, name); fbp += strlen(name) + 1; insertflist(dp, i); } closedir(dirfp); DNFIL(dp) = i; sortflist(dp); if(DZOOM(dp)) zoomflist(dp); /* Set up other directory data */ DFLAG(dp) = FL_FIL; DMTIM(dp) = st.st_mtime; DCTIM(dp) = st.st_ctime; DCANC(dp) = CANCD(DPNAM(dp)); /* Try to restore current file */ DFTOP(dp) = DFCUR(dp) = 0; if(nfil > 0) { for(i = 0; i < DNFIL(dp); i++) if(cfnam[0] != *FFNAM(dp, i) || CMP(cfnam, FFNAM(dp, i))) (void) gofile(dp, 1); else break; if(i >= DNFIL(dp)) while(gofile(dp, -1)) ; /* Try to restore tagged files */ if(ntag > 0) { i = j = 0; while(i < nfil) { if(FVTAG(fv, i) == FF_TAG) for(k = j; k < DNFIL(dp); k++) if(*FVFIL(fv,i) == *FFNAM(dp,k) && EQU(FVFIL(fv,i), FFNAM(dp,k))) { FITAG(dp, k) = FF_TAG; ++DNTAG(dp); j = k; break; } ++i; } } } filecount += DNFIL(dp); } /* Error in stat: use defaults */ else { ufree(DFBUF(dp)); ufree((char *) DFVEC(dp)); DFBUF(dp) = NULL; DFVEC(dp) = FNULL; DBSIZ(dp) = 0; DFLAG(dp) = FL_FIL; DMTIM(dp) = DCTIM(dp) = (time_t) -1; DCANC(dp) = 0; DFCUR(dp) = DFTOP(dp) = 0; fileflag |= SF_TREE; if(VARSET(V_WD)) { puthelp("BUILD %s (Y:exit ELSE:continue)", DPNAM(dp)); if(errequest(CFNAM, "Cannot read directory. Exit ?") == 'y') return(RV_END); } } /* Release saved flist array and file buffer */ if(ntag > 0) { ufree(fb); ufree((char *) fv); } /* Set screen flags */ treeflag |= SF_ECHO; fileflag |= SF_ECHO; return(RV_OK); } /* newflist() */ /* * DIRECTORY LIST ROUTINES */ /* Build and set tree info flag */ GLOBL VOID infodlist() { register dlist *dp, *np; register int i, j; /* For each dir in tree check if there are dirs on the same level */ for(dp = droot; dp; dp = (dlist *) DNEXT(dp)) { DINFO(dp) = 0; for(i = 1, j = DLEVL(dp) - 1; i < j; i++) { for(np = (dlist *) DNEXT(dp); np && DLEVL(np) > (i + 1); np = (dlist *) DNEXT(np)) ; if(np && DLEVL(np) == (i + 1)) DINFO(dp) |= 1 << (i - 1); } for(np = (dlist *) DNEXT(dp); np && DLEVL(np) > DLEVL(dp); np = (dlist *) DNEXT(np)) ; if(np && DLEVL(np) == DLEVL(dp)) DINFO(dp) |= 1 << (i - 1); } } /* infodlist() */ /* Insert directory dname into directory tree list */ LOCAL dlist *insertdlist(dname, nfils, fvec) register char *dname; register int nfils; register flist *fvec; { register dlist *dp, *rp; register char *np; register int f; /* Get memory and save directory name */ dp = (dlist *) ualloc(1, sizeof(dlist)); np = strsav(pathname(dname, "/")); /* Set up pathname/filename and file list */ DPNAM(dp) = np; DFNAM(dp) = basename(np); DZOOM(dp) = NULL; DNFIL(dp) = nfils; DFVEC(dp) = fvec; DNEXT(dp) = GNULL; DFCUR(dp) = DFTOP(dp) = 0; DNTAG(dp) = 0; /* For each file in file list create an entry */ for(f = 0; f < nfils; f++) insertflist(dp, f); /* Insert dlist into tree list */ if(droot == DNULL) { DPREV(dp) = GNULL; droot = dp; } else { for(rp = droot; DNEXT(rp); rp = (dlist *) DNEXT(rp)) ; DNEXT(rp) = (glist *) dp; DPREV(dp) = (glist *) rp; } /* Increment directory and file counters */ ++dircount; filecount += nfils; return(dp); } /* insertdlist() */ /* Rebuild directory list after creating a new directory */ GLOBL dlist *newdlist(name, flag) register char *name; register int flag; { struct stat st; register dlist *dp, *pdp, *ndp, *p; register char *np; register int levl; /* Allocate memory for new dlist entry and for pathname */ ndp = (dlist *) ualloc(1, sizeof(dlist)); np = strsav(pathname(name, CPNAM)); /* Insert dlist into directory tree */ levl = CLEVL + 1; for(pdp = cdlist, dp = (dlist *) CNEXT; dp && DLEVL(dp) >= levl; dp = (dlist *) DNEXT(dp)) { if(DLEVL(dp) == levl && CMP(np, DPNAM(dp)) < 0) break; pdp = dp; } if(DNEXT(ndp) = DNEXT(pdp)) { p = (dlist *) DNEXT(ndp); DPREV(p) = (glist *) ndp; } DNEXT(pdp) = (glist *) ndp; DPREV(ndp) = (glist *) pdp; /* Fill up dlist record data */ DPNAM(ndp) = np; DFNAM(ndp) = basename(np); DZOOM(ndp) = NULL; if((*statfun)(np, &st)) { /* Bad stat: use defaults */ DMTIM(ndp) = DCTIM(ndp) = (time_t) -1; DFLAG(ndp) = FL_FIL; DCANC(ndp) = 0; } else { DMTIM(ndp) = st.st_mtime; DCTIM(ndp) = st.st_ctime; DFLAG(ndp) = flag; DCANC(ndp) = CANCD(np); } DSORT(ndp) = sortbytime ? 1 : 0; DFBUF(ndp) = NULL; DFVEC(ndp) = FNULL; DBSIZ(ndp) = 0; DLEVL(ndp) = levl; if(DLEVL(ndp) > maxlevel) maxlevel = DLEVL(ndp); DNFIL(ndp) = DNDIR(ndp) = 0; DDNUM(ndp) = DDNUM(pdp) + 1; DFCUR(ndp) = DFTOP(ndp) = 0; DNTAG(ndp) = 0; /* Increment all following dlist entry numbers */ for(dp = (dlist *) DNEXT(ndp); dp; dp = (dlist *) DNEXT(dp)) ++DDNUM(dp); /* Update counter, flags and return */ ++CNDIR; ++dircount; writeflag = 1; checkindent(); infodlist(); return(ndp); } /* newdlist() */ /* Delete current entry from directory list */ GLOBL VOID deletedlist(rp) register dlist *rp; { register dlist *dp, *p; register int f; /* Search for parent directory of directory list entry dp */ for(dp = rp; dp && DLEVL(dp) >= DLEVL(rp); dp = (dlist *) DPREV(dp)) ; /* If found destroy file list entry in parent directory */ if(dp) { if(DFVEC(dp)) { /* RG 11/22/91 */ for(f = 0; f < DNFIL(dp); f++) if(EQU(FFNAM(dp, f), DFNAM(rp))) break; deleteflist(dp, f); } --DNDIR(dp); } /* Close the directory tree list chain */ if(DNEXT(rp)) { for(dp = (dlist *) DNEXT(rp); DNEXT(dp); dp = (dlist *) DNEXT(dp)) ; while(dp != rp) { p = (dlist *) DPREV(dp); DDNUM(dp) = DDNUM(p); dp = (dlist *) DPREV(dp); } p = (dlist *) DNEXT(rp); DPREV(p) = DPREV(rp); } if(p = (dlist *) DPREV(rp)) DNEXT(p) = DNEXT(rp); /* Release memory */ ufree(DPNAM(rp)); ufree(DFBUF(rp)); ufree((char *) DFVEC(rp)); if(DZOOM(rp)) ufree(DZOOM(rp)); ufree((char *) rp); /* Decrement directory counter and update tree info flag */ --dircount; infodlist(); } /* deletedlist() */ /* Write out directory list dependent on w to file name */ GLOBL char *writedlist(name, rp, what, w) register dlist *rp; register char *name, *what; register int w; { char list[NAMELEN]; register FILE *fp; register dlist *dp, *p; register unsigned long info; register int f, i, levl; time_t t; (void) strcpy(list, pathname(name, CPNAM)); if(fp = fopen(list, "w")) { t = time((time_t *) 0); if(w == 'm') (void) fprintf(fp, "# %s: file list (matching %s)", getversion(), what); else (void) fprintf(fp, "# %s: %s list", getversion(), what); (void) fprintf(fp, ", %s", ctime(&t)); dp = rp; do { if(w == 'd') (void) fprintf(fp, "%s\n", DPNAM(dp)); else if(w == 'l') { p = (dlist *) DNEXT(dp); f = p && DLEVL(p) > DLEVL(rp); if(dp == rp) { (void) fprintf(fp, "R%s\n", DPNAM(rp)); (void) fprintf(fp, "%cH%s\n", f ? 'U' : 'H', DFNAM(rp)); } else { levl = DLEVL(rp) - 1; info = DINFO(dp) >> levl; (void) fprintf(fp, "%c", f ? 'V' : 'L'); for(i = 1; i < (DLEVL(dp) - levl - 1); i++) (void) fprintf(fp, "I%c", info & (1 << (i-1)) ? 'V' : 'S'); (void) fprintf(fp, "I%cH%s\n", info & (1 << (i-1)) ? 'T' : 'L', DFNAM(dp)); } } else { for(f = 0; f < DNFIL(dp); f++) switch(w) { case 'm': if(umatch(dp, f, what)) goto WRITEFILE; break; case 't': if( !ISTAG(dp, f)) break; /*Fall thru*/ case 'f': WRITEFILE: (void) fprintf(fp, "%s\n", pathname(FFNAM(dp, f), DPNAM(dp))); break; } } dp = (dlist *) DNEXT(dp); } while(dp && DLEVL(dp) > DLEVL(rp)); (void) fclose(fp); return(list); } return(NULL); } /* writedlist() */ /* Check directory list after file changes in directory name */ GLOBL VOID checkdlist(name) register char *name; { char fname[NAMELEN]; struct stat st; register dlist *dp; register char *sp; if( !ISDIR(name, st)) { (void) strcpy(fname, name); name = fname; if(sp = strrchr(fname, '/')) *sp = '\0'; if((*statfun)(name, &st)) /* Bad stat: do nothing */ return; } for(dp = droot; dp; dp = (dlist *) DNEXT(dp)) { if(EQU(DPNAM(dp), name) && CHKTIM(dp, st)) { DFLAG(dp) = FL_CHG; ++buildflag; break; } } } /* checkdlist() */ /* Scan directory tree for changes in filesystem */ GLOBL int scandlist(rp) register dlist *rp; { register dlist *dp; dp = rp; do { if(keypressed() && hitakey(NULL) < RV_NUL) return(RV_INT); if(DFLAG(dp) == FL_FIL && changedlist(dp)) { DFLAG(dp) = FL_CHG; ++buildflag; } } while((dp = (dlist *) DNEXT(dp)) && DLEVL(dp) > DLEVL(rp)); return(RV_OK); } /* scandlist() */ /* Check if status of a directory has changed */ GLOBL int changedlist(dp) register dlist *dp; { struct stat st; return((*statfun)(DPNAM(dp), &st) == 0 && CHKTIM(dp, st)); } /* changedlist() */ /* Update directory list after changes in filesystem tree */ GLOBL int updatedlist() { register dlist *dp; register int c; c = RV_OK; for(dp = droot; dp; dp = (dlist *) DNEXT(dp)) { if(DFLAG(dp) == FL_CHG) { if((c = newflist(dp)) != RV_OK) break; if(dp == cdlist) fileflag |= SF_TREE; } } buildflag = 0; return(c); } /* updatedlist() */ /* * BUILD UP DIRECTORY TREE */ /* Build up directory tree and file lists recursively. Work is done hard. */ /* For each directory starting with directory pn up to level last a */ /* dlist entry is allocated, the dlist record is filled with all needed */ /* directory data, the directory file list and the file name buffer, and */ /* then inserted into the directory tree list. */ GLOBL int buildread(pn, levl, last, intr) register char *pn; register int levl, last, intr; { char name[NAMELEN]; static int dnum = 0; struct stat dst, fst; register DIR *fp; register dlist *dp; register flist *fvec; register char *fbuf, *fbufp, *fn; register char **dvec; register int nfils, ndirs, flag, i, rv; register unsigned bsiz; /* Is pn a directory? */ if( !ISDIR(pn, dst)) return(RV_ERR); /* Check for keyboard interrupt if interrupt is allowed */ if(intr && keypressed() && hitakey(NULL) < RV_NUL) return(RV_INT); /* Init variables */ ndirs = nfils = 0; fvec = FNULL; fbuf = NULL; bsiz = 0; flag = FL_NUL; /* Read in directory and build dlist entry */ if(levl < last && (fp = opendir(pn))) { /* Count files */ for(i = 0; readdname(fp); i++) ; rewinddir(fp); (void) putecho("Reading %s (%d files)", pn, i); flushout(); /* Align nfils and bsiz to avoid too often alloc and free */ i = alignnfils(i); bsiz = alignbsiz((unsigned) dst.st_size, i); if(i > 0) { /* Get memory for file buffer, file list and directory array */ fbuf = (char *) ualloc(bsiz, sizeof(char)); fvec = (flist *) ualloc((unsigned) i, sizeof(flist)); dvec = (char **) ualloc((unsigned) i, sizeof(char *)); } else { fbuf = NULL; fvec = FNULL; } /* Read in directory, fill up file list and directory array */ for(nfils = 0, fbufp = fbuf; fn = readdname(fp); nfils++) { FVFIL(fvec, nfils) = strcpy(fbufp, fn); fbufp += strlen(fn) + 1; (void) strcpy(name, pathname(fn, pn)); if((*statfun)(name, &fst)) { FVTIM(fvec, nfils) = (time_t) 0; FVSIZ(fvec, nfils) = (off_t) 0; } else { FVTIM(fvec, nfils) = fst.st_mtime; FVSIZ(fvec, nfils) = fst.st_size; if(STFMT(&fst) == S_IFDIR && (hiddendirs || *fn != '.')) dvec[ndirs++] = FVFIL(fvec, nfils); } } closedir(fp); /* Sort file list and directory array */ qsort((char *) fvec, (unsigned) nfils, sizeof(flist), flistcmp); qsort((char *) dvec, (unsigned) ndirs, sizeof(char *), dlistcmp); flag = FL_FIL; } /* Insert dlist into tree list and set up dlist record */ dp = insertdlist(pn, nfils, fvec); DFBUF(dp) = fbuf; DFVEC(dp) = fvec; DBSIZ(dp) = bsiz; DCANC(dp) = CANCD(pn); DMTIM(dp) = dst.st_mtime; DCTIM(dp) = dst.st_ctime; DFLAG(dp) = flag; DSORT(dp) = sortbytime ? 1 : 0; DLEVL(dp) = levl; if(DLEVL(dp) > maxlevel) maxlevel = DLEVL(dp); DNDIR(dp) = ndirs; DDNUM(dp) = dnum++; if(nfils > 0) { /* Build a dlist entry for each directory found in directory list */ for(i = 0; i < ndirs; i++) { (void) strcpy(name, pathname(dvec[i], pn)); ++levl; rv = buildread(name, levl, last, intr); --levl; if(intr && rv == RV_INT) break; } /* Release directory array */ ufree((char *) dvec); } /* Set up tree info flag and return */ infodlist(); return(intr && rv == RV_INT ? RV_INT : RV_OK); } /* buildread() */ /* Build up directory tree from tree list. File lists are built up later. */ /* For each directory starting with directory rn read in from tree list */ /* file lfn a dlist entry is allocated, the dlist record is filled with */ /* all needed directory data and inserted into the directory tree list. */ /* File list and file name buffer are initially unset and filled up later. */ GLOBL int buildlist(rn, cwd, lfn) register char *rn, *cwd, *lfn; { char name[NAMELEN]; struct stat st; register FILE *fp; register dlist *dp; register char *pn; register int dlen, dlev, dnum, i; /* Init variables */ dlen = strlen(rn); dlev = countlevl(rn); dnum = 0; /* Read in list file fn */ if(fp = fopen(lfn, "r")) { (void) putecho("Building tree from list %s ... ", lfn); flushout(); while(fgets(name, sizeof(name), fp)) { if(VALID(name[0])) { if(name[i = strlen(name) - 1] == '\n') name[i] = '\0'; pn = pathname(name, cwd); /* Skip bad entries in tree list */ if(strncmp(rn, pn, dlen) || stat(pn, &st) || STFMT(&st) != S_IFDIR) { writeflag = 1; continue; } /* Skip hidden directories if flag is not set */ if( !hiddendirs && *(basename(pn)) == '.') continue; /* Insert into tree list and file up record with directory */ /* data. File list and file name buffer are initially unset. */ dp = insertdlist(pn, 0, FNULL); DFBUF(dp) = NULL; DFVEC(dp) = FNULL; DBSIZ(dp) = 0; DCANC(dp) = CANCD(pn); DMTIM(dp) = st.st_mtime; DCTIM(dp) = st.st_ctime; DFLAG(dp) = FL_NUL; DSORT(dp) = sortbytime ? 1 : 0; DLEVL(dp) = countlevl(pn) - dlev + 1; if(DLEVL(dp) > maxlevel) maxlevel = DLEVL(dp); DNDIR(dp) = 0; DDNUM(dp) = dnum++; } } (void) fclose(fp); } /* Set up tree info flag and return */ if(dnum) { infodlist(); return(RV_OK); } return(RV_NUL); } /* buildlist() */ te current entry from directory list */ GLOBL VOID deletedlist(rp) register dlist *rp; { register dlist *dp, *p; register int f; /* Search for parent directory of directory list entry dp */ for(dp = rp; dp && DLEVL(dp) >= DLEVL(rp); dp = (dlist *) DPREV(dp)) ; /* If found destroy file list entry in parent directory */ if(dp) { if(DFVEC(dp)) { /* RG 11/22/91 */ for(f = 0; f < DNFIL(dp); f++) if(EQU(FFNAM(dp, f), DFNAM(rp))) utree/src/vars.c1006440013110001060000005330705255652760010262 0 0 1 0 /* * VARS.C * UTREE variable handling routines. * 3.01-um klin, Sun May 5 11:05:05 1991 * 3.02-um klin, Fri Nov 1 10:46:14 1991, Option -u changed to -n * klin, Sun Nov 24 15:26:19 1991, Video attributes changed * 3.03-um klin, Tue Feb 11 14:18:50 1992, Generic lists for variables * and file type commands * klin, Sat Feb 15 14:44:52 1992, Video handling and partinioning of * directory and file windows changed * klin, Sun Feb 23 18:45:19 1992, Keybindings and variable * AUTOSAVE added * klin, Fri Mar 6 09:34:43 1992, Release undefined commands * a klin, Sun Mar 15 19:08:25 1992, Accept command without comment * b klin, Thu Mar 19 10:23:54 1992, Don't free empty strings * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. */ #ifndef lint static char sccsid[] = "@(#) utree 3.03b-um (klin) Mar 19 1992 vars.c"; #endif /* !lint */ #include "defs.h" /* ---- Local variables and definitions ------------------------------- */ /* Format for user command menulines on tree and file screen */ #define UMENUFORM \ " 1: 2: 3: 4: 5: 6: 7: 8: 9: " #define FIRST 3 #define OFFSET 8 #define TITLE 5 #define XUNDEF ((xlist *) -1) /* Undefined or released xlist */ LOCAL int vcchg = 0; /* Variables/commands changed */ LOCAL char *novar = ""; /* Empty string variable */ GLOBL VOID checkindent(); GLOBL VOID checklines(); LOCAL VOID setsortflag(); /* ---- External variables and functions ------------------------------ */ EXTRN char *getversion(); EXTRN char *strclean(); /* ---- Functions and procedures -------------------------------------- */ /* * INTERNAL USED ROUTINES */ /* Show all variables */ LOCAL int showallvars() { register vlist *vp; register int l, c; l = firstline; c = RV_OK; clearwindow(firstline, lastline); for(vp = VARTAB(0), l = firstline; vp; vp = (vlist *) VNEXT(vp)) { (void) putfxy(0, l, 0, "%s %12s=", VSCUT(vp), VNAME(vp)); if(VTYPE(vp) == VT_B) c = putfxy(16, l, 0, "%s", VVALE(vp) == VB_ON ? "ON" : "OFF"); else c = putfxy(16, l, 0, "%s", VVALE(vp) ? VVALE(vp) : ""); if(VCOMM(vp)) (void) putfxy(c > columns/2 ? c : columns/2, l, 0, "#%s", VCOMM(vp)); if(++l > lastline && VNEXT(vp)) { puthelp("VARIABLES (CR:continue Q:quit ELSE:set/unset)"); c = hitakey("More variables ?", echoline, DA_NONE); if( !(c == ' ' || c == '\n')) break; clearwindow(firstline, lastline); l = firstline; } } treeflag = fileflag = SF_FULL; return(c); } /* showallvars() */ /* Display file type dependent commands */ LOCAL int showallcmds() { register xlist *xp; register int l, c; l = firstline; c = RV_OK; clearwindow(firstline, lastline); for(xp = xroot, l = firstline; xp; xp = (xlist *) XNEXT(xp)) { c = putfxy(0, l, 0, "%s:%s", XTYPE(xp), XCOMD(xp)); if(XCOMM(xp)) (void) putfxy(c > (columns/2) ? c+1 : columns/2, l, 0, "#%s", XCOMM(xp)); if(++l > lastline && XNEXT(xp)) { puthelp("FILETYPE COMMANDS (CR:continue Q:quit ELSE:set/unset)"); c = hitakey("More filetype commands ?", echoline, DA_NONE); if( !(c == ' ' || c == '\n')) break; clearwindow(firstline, lastline); l = firstline; } } treeflag = fileflag = SF_FULL; return(c); } /* showallcmds() */ /* Set sort criteria flag for file lists */ LOCAL VOID setsortflag(f) register int f; { register dlist *dp; sortbytime = f ? 0 : 1; for(dp = droot; dp; dp = (dlist *) DNEXT(dp)) (void) sortlist(dp, sortbytime); } /* setsortflag() */ /* Set tree indention variable */ LOCAL int setindent(i) register int i; { if(i < MININD || i > MAXIND) /* Out of range */ return(-1); maxindent = indent = i; /* Set indention variables */ checkindent(); return(0); } /* setindent() */ /* Set video mode variable */ GLOBL int setvideomode(i) register int i; { if(i < VMODE0 || i > VMODE2) /* Out of range */ return(-1); else if(glitchcap && i > VMODE1) /* Respect glitches */ i = VMODE1; videomode = i; /* Set video mode variables */ *VARVAL(V_VM) = videomode + '0'; return(0); } /* setvideomode() */ /* Set number of file lines on tree screen */ LOCAL int setfilelines(n) register int n; { if(n < MINFIL || n > MAXFIL) /* Out of range */ return(-1); maxnflines = n; checklines(1); return(0); } /* setfilelines() */ /* * USER COMMAND ROUTINES */ /* Build command line s from user command v with value p */ GLOBL int userformat(s, p, v, w) register char *s, *p, *w; register int v; { char buf[INPLEN]; register char *fp, *pp; register int c, n; pp = p; n = 0; while(*p) { /* Scan command format */ if(*p == '\\') { *s++ = *++p; if(*p) ++p; } else if(*p == '%') { switch(*++p) { case 's': /* Request for parameter */ case 'S': puthelp("%s: Parameter %d for %s", w, ++n, pp); c = putecho("Give Parameter %d:", n); if((c = getline(buf, sizeof(buf), c, 0, NULL, GNULL, 0)) < RV_NUL) return(c); fp = buf; goto DOCOPY; case 'B': /* Basename of directory or file */ case 'b': if(v > V_FC0) { if(CNFIL == 0) return(RV_NUL); (void) strcpy(buf, FFNAM(cdlist, CFCUR)); } else (void) strcpy(buf, CFNAM); if(fp = strrchr(buf, '.')) *fp = '\0'; fp = buf; goto DOCOPY; case 'F': /* Filename of directory or file */ case 'f': if(v > V_FC0) { if(CNFIL == 0) return(RV_NUL); fp = FFNAM(cdlist, CFCUR); } else fp = CFNAM; goto DOCOPY; case 'R': /* Root directory */ case 'r': fp = rootdir; goto DOCOPY; case 'H': /* Home directory */ case 'h': fp = home; goto DOCOPY; case 'P': /* Full pathname of directory or file */ case 'p': if(v > V_FC0) { if(CNFIL == 0) return(RV_NUL); fp = CPNAM; while(*fp) *s++ = *fp++; *s++ = '/'; fp = FFNAM(cdlist, CFCUR); goto DOCOPY; } /* Directory: fall thru */ case 'D': /* Current directory name */ case 'd': fp = CPNAM; DOCOPY: while(*fp) *s++ = *fp++; break; case '%': /* As it is */ *s++ = '%'; break; default: return(RV_NUL); /* Bad format */ } ++p; } else *s++ = *p++; } *s = '\0'; /* Terminate command line */ return(RV_OK); } /* userformat() */ /* Execute an user defined command v */ GLOBL int usercommand(v) register int v; { char buf[EXECLEN]; register int c; /* Check if usercommand is set */ if( !VARSET(v)) return(errequest("User command", "Not defined")); /* Build command line */ else { c = userformat(buf, VARVAL(v), v, VARNAM(v)); if(c == RV_NUL) return(errequest("User command", "Bad format")); else if(c < 0) return(c); } puthelp("USER COMMAND: %s", buf); c = callsystem(buf, 1, 0); checkdlist(CPNAM); if(c != RV_OK) return(errequest("User command", "Error in executing")); return(hitakey("Return from user command (Hit a key)", lines-1, DA_REVERSE)); } /* usercommand() */ /* * FILE TYPE COMMAND ROUTINES */ /* Set file type command */ GLOBL xlist *setcommand(type, f) register char *type; register int f; { register xlist *xp, *pp, *p; register char *comd, *comm; /* Search for filetype - command separator ':' */ if((comd = strchr(type, ':')) == NULL || comd == type) return(XNULL); else *comd++ = '\0'; /* Get additional comment lead in by '#' */ if(comm = strchr(comd, '#')) { *comm++ = '\0'; comm = strclean(comm); } comd = strclean(comd); /* Search for file type to set in command list */ for(xp = xroot; xp; xp = (xlist *) XNEXT(xp)) if(EQU(type, XTYPE(xp))) break; /* Replace or delete an existing file type command */ if(xp) { ufree(XCOMD(xp)); ufree(XCOMM(xp)); if(comd == NULL || *comd == '\0') { if(xroot && xp == xroot) { if(xroot = (xlist *) XNEXT(xp)) XPREV(xroot) = GNULL; else xroot = XNULL; } else { if(p = (xlist *) XPREV(xp)) XNEXT(p) = XNEXT(xp); if(p = (xlist *) XNEXT(xp)) XPREV(p) = XPREV(xp); } ufree(XTYPE(xp)); ufree(xp); xp = XUNDEF; } } /* Ignore invalid definition */ else if(comd == NULL || *comd == '\0') return(XUNDEF); /* Create and insert a new entry in file type command list */ else if(xp = (xlist *) ualloc(1, sizeof(xlist))) { XTYPE(xp) = strsav(type); if(xroot && CMP(type, XTYPE(xroot)) < 0) { for(pp = xroot; XNEXT(pp); pp = (xlist *) XNEXT(pp)) { p = (xlist *) XNEXT(pp); if(CMP(type, XTYPE(pp)) > 0) break; } XPREV(xp) = (glist *) pp; XNEXT(xp) = XNEXT(pp); if(p = (xlist *) XNEXT(pp)) XPREV(p) = (glist *) xp; XNEXT(pp) = (glist *) xp; } else { if(xroot) XPREV(xroot) = (glist *) xp; XPREV(xp) = GNULL; XNEXT(xp) = (glist *) xroot; xroot = xp; } } /* Insert command and comment and return */ if(comd && *comd) { XCOMD(xp) = strsav(comd); XCOMM(xp) = comm && *comm ? strsav(comm) : NULL; } if(xp) { if(f == VC_CHG) vcchg = 1; return(xp); } else return(XNULL); } /* setcommand() */ /* Show and set/unset filetype commands */ GLOBL int commands() { char buf[3*INPLEN], typ[INPLEN], cmd[INPLEN], cmt[INPLEN]; register xlist *xp = XUNDEF; register int c, f; who = "SET COMMAND"; f = 1; /* Filetype command loop */ while(1) { cmd[0] = cmt[0] = '\0'; if(f && ((c = showallcmds()) < RV_NUL || c == 'q')) break; f = 0; if(xp == XUNDEF || xp == XNULL) xp = xroot; puthelp("%s: Give filetype or type:command (CR:quit)", who); c = putecho("Set command:"); if((c = getline(typ, sizeof(typ), c, 'd', NULL, xp ? XLIST(xp) : GNULL, 1)) != RV_OK) break; if(strchr(typ, ':')) (void) strcpy(buf, typ); else { puthelp("%s: Give command for %s (CR:unset)", who, typ); c = putecho("Command for %s:", typ); for(xp = xroot; xp; xp = (xlist *) XNEXT(xp)) if(EQU(typ, XTYPE(xp))) break; if((c = getline(cmd, sizeof(cmd), c, 'd', xp ? XCOMD(xp) : NULL, GNULL, 1)) < RV_NUL) break; if(c == RV_NUL) (void) sprintf(buf, "%s:", typ); else if(strchr(cmd, '#')) (void) sprintf(buf, "%s:%s", typ, cmd); else { puthelp("%s: Give comment for %s", who, typ); c = putecho("Comment for %s:", typ); if((c = getline(cmt, sizeof(cmt), c, 'd', xp ? XCOMM(xp) : NULL, GNULL, 1)) < RV_NUL) break; else if(c == RV_OK) (void) sprintf(buf, "%s:%s#%s", typ, cmd, cmt); else (void) sprintf(buf, "%s:%s", typ, cmd); } } if((xp = setcommand(buf, VC_CHG)) == XNULL) { puthelp("%s %s", who, hitkey); if((c = errequest(buf, "Error in setting")) < RV_NUL) break; } else f = 1; } return(c); } /* commands() */ /* * VARIABLE ROUTINES */ /* Init variables */ GLOBL VOID initvariables() { char buf[NAMELEN]; register vlist *vp; register FILE *fp; register char *ep; register int i; /* Init user commands menu lines for tree and file screen */ (void) strcpy(utreemenu, UMENUFORM); (void) strcpy(ufilemenu, utreemenu); /* First: Get and set variables from environment */ if(ep = getenv("SHELL")) VARDEF(V_SH) = ep; if(ep = getenv("EDITOR")) VARDEF(V_ED) = ep; if(ep = getenv("PAGER")) VARDEF(V_PG) = ep; /* Second: Initialize and link variables table */ for(i = 0; VARNAM(i); i++) { if(VARDEF(i) == NULL) VARDEF(i) = novar; VARVAL(i) = VARDEF(i); } VARNXT(0) = VARLST(1); for(i = 1; VARNAM(i+1); i++) { VARNXT(i) = VARLST(i+1); VARPRV(i) = VARLST(i-1); } VARPRV(i) = VARLST(i-1); #ifdef UTSTART /* Third: Get and set variables from startup file */ if(startup(buf, UTSTART) && (fp = fopen(buf, "r"))) { while(fgets(buf, sizeof(buf), fp)) if(VALID(buf[0])) { i = strlen(buf) - 1; if(i > 0 && buf[i] == '\n') buf[i] = '\0'; if(strchr(buf, '=')) (void) setvariable(buf, VC_SET); else if(strchr(buf, ':')) (void) setcommand(buf, VC_SET); } (void) fclose(fp); } #endif /* UTSTART */ /* Last: Check environment variable UTREE */ if(ep = getenv("UTREE")) { for(i = 0; ep[i]; i++) switch(ep[i]) { default: /* Do nothing */ break; case 'b': /* No bell */ (void) setvariable("BL=", VC_SET); break; case 'c': /* No clock */ (void) setvariable("CL=", VC_SET); break; case 'g': /* No graphic chars */ (void) setvariable("GC=", VC_SET); break; case 'i': /* Tree indention */ if(isdigit(ep[i+1])) { ++i; (void) sprintf(buf, "TI=%c", ep[i]); (void) setvariable(buf, VC_SET); } break; case 'n': /* No tree scan for changes */ (void) setvariable("ST=", VC_SET); break; case 'o': /* Omit saving definition changes */ (void) setvariable("AS=", VC_SET); break; case 'p': /* File lines on tree screen */ if(isdigit(ep[i+1])) { ++i; (void) sprintf(buf, "FL=%c", ep[i]); (void) setvariable(buf, VC_SET); } break; case 's': /* No hardware scrolling */ (void) setvariable("TS=", VC_SET); break; case 'v': /* Set video mode */ if(isdigit(ep[i+1])) { ++i; (void) sprintf(buf, "VM=%c", ep[i]); (void) setvariable(buf, VC_SET); } break; case 'w': /* No warning about unreadable dirs */ (void) setvariable("WD=", VC_SET); break; } } } /* initvariables() */ /* Save current settings after changes */ GLOBL VOID savevariables() { #ifdef UTSTART char buf[NAMELEN]; register xlist *xp; register vlist *vp; register FILE *fp; time_t t; if(VARVAL(V_AS) && vcchg) { (void) sprintf(buf, ".%s", UTSTART); (void) strcpy(buf, pathname(buf, home)); if(fp = fopen(buf, "w")) { t = time((time_t *) 0); (void) fprintf(fp, "# %s: ~/.%s, %s", getversion(), UTSTART, ctime(&t)); /* Save variables */ (void) fprintf(fp, "# Variables\n"); for(vp = VARTAB(0); vp; vp = (vlist *) VNEXT(vp)) { (void) fprintf(fp, "%s=", VNAME(vp)); if(VVALE(vp)) (void) fprintf(fp, "%s", VTYPE(vp) == VT_B ? "ON" : VVALE(vp)); if(VCOMM(vp)) (void) fprintf(fp, "\t#%s\n", VCOMM(vp)); else (void) fprintf(fp, "\n"); } /* Save command settings */ (void) fprintf(fp, "# Commands\n"); for(xp = xroot; xp; xp = (xlist *) XNEXT(xp)) { (void) fprintf(fp, "%s:%s", XTYPE(xp), XCOMD(xp) ? XCOMD(xp) : ""); if(XCOMM(xp)) (void) fprintf(fp, "\t#%s\n", XCOMM(xp)); else (void) fprintf(fp, "\n"); } (void) fclose(fp); } } #endif /* UTSTART */ } /* savevariables() */ /* Check tree indention */ GLOBL VOID checkindent() { register int i; if(maxlevel > 0) /* Calculate max possible indention */ i = (columns - FNAMSZ - 6) / maxlevel; else i = indent; if(i < MININD) i = MININD; if(i > MAXIND) i = MAXIND; if(maxindent && i > maxindent) /* Check and set indention */ i = maxindent; indent = i; *VARVAL(V_TI) = indent + '0'; /* Set indention variable value */ treeflag = SF_TREE; } /* checkindent() */ /* Calculate max possible number of file lines on tree screen */ GLOBL int calculatelines() { register int l; if((l = (lines-3) / 2) > MAXFIL) l = MAXFIL; return(l); } /* calculatelines() */ /* Check line partitioning on tree screen */ GLOBL VOID checklines(f) register int f; { register int m, nf; if(f) { /* Calculate new line values */ nf = nflines; if(maxnflines < MINFIL) nflines = MINFIL; else { m = calculatelines(); nflines = maxnflines > m ? m : maxnflines; } firstfline = lastfline - nflines + 1; lastdline = firstfline - 2; ndlines = lastdline - firstdline; if(nf != nflines) /* Check directory window */ calculatetree(nf-nflines); treeflag = SF_TREE; } else /* Update after resizing */ maxnflines = nflines; *VARVAL(V_FL) = maxnflines + '0'; /* Set number of file lines */ } /* checklines() */ /* Set/unset or reset user defined variables */ GLOBL int setvariable(line, f) register char *line; register int f; { register vlist *vp; register char *value, *comm, *dp; register int n, i, j; /* Search for variable - value separator '=' */ if(f != VC_TST) { if(value = strchr(line, '=')) *value++ = '\0'; else return(-1); } line = strclean(line); strupper(line); /* Search for variable to set in variable list */ for(vp = VARTAB(0); vp; vp = (vlist *) VNEXT(vp)) if(*line == *VNAME(vp) && (EQU(line, VSCUT(vp)) || EQU(line, VNAME(vp)))) break; if(vp == VNULL) return(-1); else if(f == VC_TST) return(VNUMB(vp)); /* Ignore additional comment */ if(comm = strchr(value, '#')) { *comm++ = '\0'; comm = strclean(comm); } value = strclean(value); /* Set or unset variable */ n = VNUMB(vp); switch(VTYPE(vp)) { case VT_B: /* Booleans */ VVALE(vp) = *value ? VB_ON : VB_OFF; if(n == V_GC) initgraphics(VVALE(vp)); else if(n == V_LS) setsortflag(VVALE(vp)); break; case VT_N: /* Numbers */ if(n == V_TI && setindent(atoi(value))) n = -1; else if(n == V_VM && setvideomode(atoi(value))) n = -1; else if(n == V_FL && setfilelines(atoi(value))) n = -1; else if(n == V_HS && (f != VC_SET || sethistorysize(atoi(value)))) n = -1; break; case VT_S: /* General strings */ if(VVALE(vp) && VVALE(vp) != VDFLT(vp)) ufree(VVALE(vp)); if(*value && *value != '#' && (dp = strsav(value))) VVALE(vp) = dp; else if(VDFLT(vp)) VVALE(vp) = VDFLT(vp); else VVALE(vp) = NULL; break; case VT_U: /* Command strings */ if(VVALE(vp) && VVALE(vp) != VDFLT(vp)) ufree(VVALE(vp)); if(VCOMM(vp)) ufree(VCOMM(vp)); VVALE(vp) = VCOMM(vp) = NULL; dp = NULL; if(*value) { if(dp = strsav(value)) VVALE(vp) = dp; if(comm && *comm) VCOMM(vp) = strsav(comm); } /* Update user command menulines if needed */ if(n > V_FC0) for(i = (n - V_FC1) * OFFSET + FIRST, j = 0; j < TITLE; i++, j++) ufilemenu[i] = comm && *comm ? *comm++ : ' '; else for(i = (n - V_TC1) * OFFSET + FIRST, j = 0; j < TITLE; i++, j++) utreemenu[i] = comm && *comm ? *comm++ : ' '; break; case VT_O: /* User defined strings: not yet! */ default: /* ??? */ n = -1; } if(n >= 0 && f == VC_CHG) vcchg = 1; return(n); } /* setvariable() */ /* Show and set/unset common and user defined variables */ GLOBL int variables() { char buf[3*INPLEN], var[INPLEN], def[INPLEN], cmt[INPLEN]; register char *dp; register int f, c, n = -1; who = "SET VARIABLE"; /* Variable loop */ f = 1; while(1) { if(n < 0) n = 0; if(f && ((c = showallvars()) < RV_NUL || c == 'q')) return(c); f = 0; puthelp("%s: Give variable or variable=value (CR:quit)", who); c = putecho("Set variable:"); if((c = getline(var, sizeof(var), c, 'v', NULL, VARLST(n), 1)) != RV_OK) break; if(strchr(var, '=')) (void) strcpy(buf, var); else { if((n = setvariable(var, VC_TST)) < 0) { if((c = errequest(var, "Unknown")) < RV_NUL) break; else continue; } puthelp("%s: Give definition for %s (CR:unset)", who, var); c = putecho("Set %s to:", var); if(VARTYP(n) == VT_B) dp = VARSET(n) ? "ON" : ""; else dp = VARVAL(n); if((c = getline(def, sizeof(def), c, 'v', dp, GNULL, 0)) < RV_NUL) break; if(VARTYP(n) != VT_U || strchr(def, '#')) (void) sprintf(buf, "%s=%s", var, def); else { puthelp("%s: Give comment for user command %s", who, VARNAM(n)); c = putecho("Comment for %s:", VARNAM(n)); if((c = getline(cmt, sizeof(cmt), c, 'v', VARCOM(n), GNULL, 0)) < RV_NUL) break; (void) sprintf(buf, "%s=%s#%s", var, def, cmt); } } if(setvariable(buf, VC_CHG) < 0) { puthelp("%s %s", who, hitkey); if((c = errequest(buf, "Error in setting")) < RV_NUL) break; } else f = 1; } treeflag = fileflag = SF_FULL; return(c); } /* variables() */ ); } /* commands() */ /* * VARIABLE ROUTINES */ /* Init variables */ GLOBL VOID initvariables() { char buf[NAMELEN]; register vlist *vp; register FILE *fp; register char *ep; register int i; /* Init user commands menu lines for tree and file screen */ (void) strcpy(utreemenu, UMENUFORM);utree/src/file.c1006440013110001060000012101405255652761010216 0 0 1 0 /* * FILE.C * UTREE file menu routines. * 3.01-um klin, Tue Jun 4 14:20:31 1991 * klin, Tue Oct 15 14:02:37 1991, Handling of symlinks changed * klin, Sat Oct 26 15:07:06 1991, Copying and moving changed * Sorting and zooming changed * Select directories added * 3.02-um klin, Fri Nov 1 10:46:14 1991, Screen layout changed * Marking files changed * Bug in edit() deleted * klin, Sun Nov 24 19:30:43 1991, Cd to current directory before * executing some commands * Video attributes changed * 3.03-um klin, Tue Feb 11 19:39:09 1992, Screen layout changed, * Variables and filetype commands * changed * klin, Sun Feb 23 17:32:31 1992, Key handling and key bindings * changed * klin, Fri Mar 6 08:18:38 1992, Minor changes in execute() * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. */ #ifndef lint static char sccsid[] = "@(#) utree 3.03-um (klin) Mar 6 1992 file.c"; #endif /* !lint */ #include "defs.h" /* ---- Local variables and definitions ------------------------------- */ LOCAL int flast; /* Last current file */ LOCAL int fmark; /* Marked file */ LOCAL int nscroll; /* Lines to scroll */ /* Default file menu commands in help line */ LOCAL char *fmline = " Help Copy Edit Find Grep Move List Print Remove Stat Tag Untag View Quit"; LOCAL char *menuline = NULL; #define CUR(c) ((c) >= 'a') /* Command works on current file only */ /* ---- External variables and functions ------------------------------ */ EXTRN char *selectdir(); /* ---- Local/global functions and procedures ------------------------- */ /* * FILE SCREEN UPDATE AND REFRESH */ /* Show file list from file f to file t */ LOCAL VOID showfiles(f, t, c) register int f, t, c; { if(c) { /* Clear file window */ (void) cursorxy(0, firstline); clearwindow(firstline, lastline); } while(f < CNFIL && f < t && FFROW(cdlist, f) <= lastline) putfile(cdlist, f++, FF_TAG); } /* showfiles() */ /* Update file screen */ LOCAL VOID updatefiles() { if(fileflag == SF_FULL) /* Full update */ clearscreen(); if(fileflag & SF_ECHO) /* Echo line */ if(CZOOM) (void) putecho("%s/%s: %d file(s)", CPNAM, CZOOM, CNFIL); else (void) putecho("%s/*: %d file(s) %d dir(s)", CPNAM, CNFIL, CNDIR); if(fileflag & SF_HELP) /* Help line */ putmenu("FILE:", menuline); if(fileflag & SF_TREE) { /* File window */ if(CANSCROLL && nscroll < 0 && nscroll > (firstline-lastline)) { (void) windowup(firstline, lastline, -nscroll); showfiles(CFTOP+fperpage-fperline+(nscroll*fperline), CFTOP+fperpage, 0); if(flast >= 0) putfile(cdlist, flast, FF_TAG); } else if(CANSCROLL && nscroll > 0 && nscroll < (lastline-firstline)) { (void) windowdown(firstline, lastline, nscroll); showfiles(CFTOP, CFTOP + (nscroll * fperline) + fperline, 0); if(flast >= 0) putfile(cdlist, flast, FF_TAG); } else showfiles(CFTOP, CNFIL, fileflag != SF_FULL); nscroll = 0; fileflag |= SF_LIST; } else if(fileflag & SF_LAST && flast >= 0) /* Last file */ putfile(cdlist, flast, FF_TAG); if((fileflag & SF_LIST) && CNFIL > 0) { /* Current file */ putfile(cdlist, CFCUR, FF_TAG); flast = CFCUR; } if(CNFIL > 0) /* Position to current file */ (void) cursorxy(FFCOL(cdlist, CFCUR), FFROW(cdlist, CFCUR)); else (void) cursorxy(0, firstline); fileflag = 0; /* Reset fileflag */ } /* updatefiles() */ /* * MARK/TAG FILE */ /* Set mark w on file f */ LOCAL VOID setmark(f, w) register int f, w; { if(f >= CFTOP && f < (CFTOP + fperpage)) { putfile(cdlist, f, w); (void) cursorxy(FFCOL(cdlist, f), FFROW(cdlist, f)); flushout(); } } /* setmark() */ /* Reset mark on file f */ LOCAL VOID unsetmark(f) register int f; { if(f >= CFTOP && f < (CFTOP + fperpage)) { putfile(cdlist, f, FF_TAG); (void) cursorxy(FFCOL(cdlist, f), FFROW(cdlist, f)); flushout(); } } /* unsetmark() */ /* Tag single file f */ LOCAL VOID tagfile(f) register int f; { FITAG(cdlist, f) = FF_TAG; ++CNTAG; setmark(f, FF_TAG); } /* tagfile() */ /* Untag single file f */ LOCAL VOID untagfile(f) register int f; { FITAG(cdlist, f) = FF_NONE; if(CNTAG > 0) --CNTAG; } /* untagfile() */ /* * MOVE IN FILELIST */ /* Go forward or backward in file list */ GLOBL int gofile(dp, dir) register dlist *dp; register int dir; { register int l; if(dir > 0 && (DFCUR(dp) + 1) < DNFIL(dp)) { /* Next file */ ++DFCUR(dp); fileflag |= SF_LIST; /* Out of bounds: Search for new top file */ if(DFCUR(dp) >= (DFTOP(dp)+fperpage) && (DFTOP(dp)+fperpage) < DNFIL(dp)) { l = (lastline - firstline) / 2; while(l-- > 0 && (DFTOP(dp) + fperpage) < DNFIL(dp)) { DFTOP(dp) += fperline; --nscroll; } fileflag |= SF_TREE; } else fileflag |= SF_LAST; } else if(dir < 0 && DFCUR(dp) > 0) { /* Previous file */ --DFCUR(dp); fileflag |= SF_LIST; /* Out of bounds: Search for new top file */ if(DFCUR(dp) < DFTOP(dp) && DFTOP(dp) > 0) { l = (lastline - firstline) / 2; while(l-- > 0 && DFTOP(dp) > 0) { DFTOP(dp) -= fperline; ++nscroll; } fileflag |= SF_TREE; } else fileflag |= SF_LAST; } else return(0); return(1); } /* gofile() */ /* * SCROLL FILE LIST */ /* Scroll up or down file list */ LOCAL int scrollfile(dir) register int dir; { if(dir < 0 && (CFTOP + fperpage) < CNFIL) { /* Scroll up */ CFTOP += fperline; if(CANSCROLL) { (void) windowup(firstline, lastline, 1); showfiles(CFTOP + fperpage - fperline, CFTOP + fperpage, 0); fileflag |= SF_MOVE; } else fileflag |= SF_TREE; if(CFCUR < CFTOP) { CFCUR += fperline; fileflag |= SF_LIST; } } else if(dir > 0 && CFTOP > 0) { /* Scroll down */ CFTOP -= fperline; if(CANSCROLL) { (void) windowdown(firstline, lastline, 1); showfiles(CFTOP, CFTOP + fperline, 0); fileflag |= SF_MOVE; } else fileflag |= SF_TREE; if(CFCUR >= (CFTOP + fperpage)) { CFCUR -= fperline; fileflag |= SF_LIST; } } else return(0); return(1); } /* scrollfile() */ /* * SELECT DIRECTORY */ LOCAL char *doselect(what) register char *what; { register char *dn; dn = selectdir(what); fileflag = SF_FULL; fileflag &= ~(SF_HELP|SF_ECHO); updatefiles(); return(dn); } /* doselect() */ /* * LIST FILE(S) */ /* List file(s) in current file list */ LOCAL int list(t) register int t; { char pat[PATLEN]; struct stat st; register char *ct; register int c, f, ff, l; if(CNFIL == 0) /* Nothing to list */ return(RV_OK); who = "LIST FILE"; if(t || CNTAG <= 0) { puthelp("%s: Give file pattern (CR:all files)", who); if((c = getpattern(pat, "List which files:")) < RV_NUL) return(c); else if(c == RV_NUL) (void) strcpy(pat, "*"); t = 1; } /* Show all matching files */ l = firstline; ff = 0; c = RV_OK; for(f = 0; f < CNFIL; f++) { if(( !t && ISTAG(cdlist, f)) || umatch(cdlist, f, pat) > 0) { if((*statfun)(FFNAM(cdlist, f), &st) != 0) continue; if(l == firstline) { if(ff > 0) { puthelp("%s %s (CR:continue ELSE:quit)", who, pat); c = hitakey("Continue listing ?", echoline, DA_NONE); if( !(c == '\n' || c == ' ')) break; } fileflag = SF_FULL; clearwindow(firstline, lastline); } ++ff; ct = ctime(&st.st_mtime); ct[strlen(ct) - 1] = '\0'; (void) putfxy(0, l, 0, "%s %8ld %s %s", fileaccess(&st), st.st_size, ct, FFNAM(cdlist, f)); if(++l > lastline) l = firstline; } } if(c >= RV_NUL) { puthelp("%s %s", who, hitkey); if(t) (void) putecho("Listed %d file(s) matching %s", ff, pat); else (void) putecho("Listed %d tagged file(s)", ff); c = hitakey(NULL); } return(c); } /* list() */ /* * SEARCH IN FILE(S) */ /* Search for pattern in file(s) */ LOCAL int grep(one) register int one; { char input[PATLEN]; register int f, c; if(CNFIL == 0) /* Nothing to search */ return(RV_OK); who = "GREP FILE"; puthelp("%s: Give pattern (CR:%s)", who, gpattern[0] ? gpattern : "quit"); c = putecho("Search for pattern in file:"); if((c = getline(input, sizeof(input), c, 0, NULL, GNULL, 0)) == RV_OK) (void) strcpy(gpattern, input); else if(c < RV_NUL || (c == RV_NUL && gpattern[0] == '\0')) return(c); if( !one && CNTAG) { /* Tagged files */ c = RV_NUL; f = -1; do { ++f; if(ISTAG(cdlist, f)) { /* File tagged */ untagfile(f); setmark(f, FF_MARK); (void) putecho("Searching in %s", FFNAM(cdlist, f)); flushout(); if((c = grepfile(cdlist, f)) == RV_OK) { puthelp("%s (CR:next SP:select M:mark T:tag ELSE:quit)", who); (void) putecho("Found \'%s\' -> %s:", gpattern, FFNAM(cdlist, f)); c = hitakey(NULL); unsetmark(f); if(c == 't') { tagfile(f); c = '\n'; } else if(c == 'm') { fmark = f; c = '\n'; } else if(c == ' ') while(f != CFCUR) (void) gofile(cdlist, f > CFCUR ? 1 : -1); } else unsetmark(f); } } while(f < CNFIL && (c == RV_NUL || c == '\n')); } else if((c = grepfile(cdlist, CFCUR)) == RV_OK) { /* Current file */ puthelp("%s %s", who, hitkey); (void) putecho("Found \'%s\'", gpattern); c = hitakey(NULL); } if(c) return(c); puthelp("%s: %s %s", who, gpattern, hitkey); return(errequest(gpattern, "Not found")); } /* grep() */ /* * FIND FILE(S) */ /* Find file(s) in current file list */ LOCAL int find(one) register int one; { char input[PATLEN]; register int f, c; if(CNFIL == 0) /* Nothing to find */ return(RV_OK); who = "FIND FILE"; puthelp("%s: Give file pattern (CR:%s)", who, fpattern[0] ? fpattern : "quit"); if((c = getpattern(input, "Find which file:")) == RV_OK) (void) strcpy(fpattern, input); else if(c < RV_NUL || (c == RV_NUL && fpattern[0] == '\0')) return(c); f = one ? CFCUR : -1; do { ++f; if((c = findfile(cdlist, f)) == RV_OK) { setmark(f, FF_MARK); puthelp("%s (CR:next SP:select M:mark T:tag ELSE:quit)", who); (void) putecho("Found %s:", FFNAM(cdlist, f)); c = hitakey(NULL); unsetmark(f); if(c == 't') { tagfile(f); c = '\n'; } else if(c == 'm') { fmark = f; c = '\n'; } else if(c == ' ') while(f != CFCUR) (void) gofile(cdlist, f > CFCUR ? 1 : -1); } } while(f < CNFIL && (c == RV_NUL || c == '\n')); if(c) return(c); puthelp("%s: %s %s", who, fpattern, hitkey); return(errequest(fpattern, "Not found")); } /* find() */ /* * FILE STATUS AND CHANGES */ /* Status information(s)/change(s) for current or tagged file(s) */ LOCAL int status(one, s) register int one, s; { register int f, c; if(CNFIL == 0) /* No need for status of nothing */ return(RV_OK); if( !one && CNTAG) { /* Tagged files */ for(f = 0; f < CNFIL; f++) if(ISTAG(cdlist, f)) { untagfile(f); if(s) c = statusfile(FFNAM(cdlist, f), 1); else { setmark(f, FF_MARK); c = infofile(f, CNTAG > 0); unsetmark(f); } if( !(c == RV_NUL || c == '\n' || c == ' ')) break; } } else { if(s) c = statusfile(FFNAM(cdlist, CFCUR), 1); /* Current files */ else c = infofile(CFCUR, 0); } if(buildflag) /* Rebuilding needed */ CFLAG = FL_CHG; return(c); } /* status() */ /* Display size and modification time of file f */ LOCAL int infofile(f, h) register int f, h; { struct stat st; who = "INFO FILE"; if((*statfun)(FFNAM(cdlist, f), &st)) { puthelp("%s %s", who, hitkey); return(errequest(FFNAM(cdlist, f), "Cannot stat")); } if(h) puthelp("%s %s (CR:continue ELSE:quit)", who, FFNAM(cdlist, f)); else puthelp("%s %s %s", who, FFNAM(cdlist, f), hitkey); (void) putecho("Access:%s Size:%ld Date:%s", fileaccess(&st), st.st_size, ctime(&st.st_mtime)); return(hitakey(NULL)); } /* infofile() */ /* * MOVE OR RENAME FILE(S) */ /* Move current or tagged file(s) */ LOCAL int move(one) register int one; { struct stat st; char name[NAMELEN]; register char *to; register int f, c, req; if(CNFIL == 0) /* Nothing to move */ return(RV_OK); who = "MOVE FILE"; if( !one && CNTAG) { /* Tagged files */ puthelp("%s: Give destination directory (CR:select one)", who); c = putecho("Move tagged files to:"); if((c = getline(name, sizeof(name), c, 0, NULL, CLIST, 0)) < RV_NUL) return(c); if(c == RV_OK) { to = strcpy(name, pathname(name, CPNAM)); if((*statfun)(to, &st) < 0) { puthelp("%s %s", who, hitkey); return(errequest(name, "Cannot stat")); } else if(STFMT(&st) != S_IFDIR) { puthelp("%s %s", who, hitkey); return(errequest(name, "Is not a directory")); } } else if((to = doselect("moving files")) == NULL) { fileflag |= SF_ECHO|SF_HELP; return(RV_NUL); } puthelp("%s (N:don't request Q:quit ELSE:request)", who); (void) putecho("Request before moving to %s ?", to); c = hitakey(NULL); if(c == 'q' || c < RV_NUL) return(c); if(req = (c != 'n')) puthelp("%s (Y:move Q:quit ELSE:don't move)", who); for(f = 0; f < CNFIL; f++) if(ISTAG(cdlist, f)) { untagfile(f); setmark(f, FF_MARK); c = movefile(cdlist, f, to, req); unsetmark(f); if(c == 'q' || c < RV_NUL) break; } } else { /* Current file */ puthelp("%s: Give destination (CR:select directory)", who); c = putecho("Move file to:"); if((c = getline(name, sizeof(name), c, 0, NULL, CLIST, 0)) < RV_NUL) return(c); else if(c == RV_OK) to = strcpy(name, pathname(name, CPNAM)); else if((to = doselect("moving file")) == NULL) { fileflag |= SF_ECHO|SF_HELP; return(RV_NUL); } c = movefile(cdlist, CFCUR, to, 0); } checkdlist(to); /* Directory needs checking */ ++buildflag; /* Set rebuild flags */ CFLAG = FL_CHG; fileflag |= SF_ECHO|SF_HELP; return(c); } /* move() */ /* * VIEW FILE(S) */ /* View current or tagged file(s) */ LOCAL int view(one) register int one; { register int f, c; if(CNFIL == 0) /* Nothing to view */ return(RV_OK); if( !one && CNTAG) { /* Tagged files */ for(f = 0; f < CNFIL; f++) if(ISTAG(cdlist, f)) { untagfile(f); if((c = viewfile(f, 0)) == 'n' || c < RV_NUL) break; } } else /* Current file */ c = viewfile(CFCUR, 1); return(c); } /* view() */ /* View single file f */ LOCAL int viewfile(f, one) register int f, one; { char name[NAMELEN], buf[EXECLEN]; register FILE *file; register int c, n; /* Check if viewing is allowed */ if( !isallowed(FFNAM(cdlist, f), (int) FMODE(cdlist, f))) return(hitakey(NULL)); who = "VIEW FILE"; /* Simple check for text or binary file. May fail! */ (void) strcpy(name, pathname(FFNAM(cdlist, f), CPNAM)); if(file = fopen(name, "r")) { n = fread(buf, sizeof(char), 4, file); (void) fclose(file); } else return(errequest(FFNAM(cdlist, f), "Cannot open")); if(n <= 0) /* File is empty */ return(errequest(FFNAM(cdlist, f), "Is empty")); else if(istextfile(buf, n)) { /* Text file */ (void) sprintf(buf, "%s %s %s", VARVAL(V_PG), VARVAL(V_PGO), name); (void) callsystem(buf, 1, 1); } else { /* Binary file */ puthelp("%s (Y:hex dump ELSE:don't view)", who); (void) putecho("File %s is not a text file, hex dump ?", FFNAM(cdlist, f)); if((c = hitakey(NULL)) != 'y') return(c); (void) sprintf(buf, "%s %s %s|%s %s", VARVAL(V_XD), VARVAL(V_XDO), name, VARVAL(V_PG), VARVAL(V_PGO)); (void) callsystem(buf, 1, 1); } if(one || CNTAG < 1) return(hitakey("Viewing done (Hit a key)", lines-1, DA_REVERSE)); else return(hitakey("Continue (N:no ELSE:yes) ?", lines-1, DA_REVERSE)); } /* viewfile() */ /* Simple check if a file is a text file */ LOCAL int istextfile(s, n) register char *s; register int n; { while(--n > 0) { /* Simple check if all n chars */ if( !(isprint(*s) || isspace(*s))) /* are printable or whitespace */ return(0); ++s; } return(1); } /* istextfile() */ /* * PRINT FILE(S) */ /* Print current or tagged file(s) */ LOCAL int print(one) register int one; { register int f, c; if(CNFIL == 0) /* Nothing to print */ return(RV_OK); who = "PRINT FILE"; if( !one && CNTAG) { /* Tagged files */ for(f = 0; f < CNFIL; f++) if(ISTAG(cdlist, f)) { untagfile(f); setmark(f, FF_MARK); puthelp("%s (Y:print Q:quit ELSE:don't print)", who); c = printfile(f, 1); unsetmark(f); if(c == 'q' || c < RV_NUL) break; } } else /* Current file */ c = printfile(CFCUR, 0); if(c < RV_NUL || one || !CNTAG) return(c); puthelp("%s %s", who, hitkey); return(hitakey("Printing done", echoline, DA_NONE)); } /* print() */ /* Print single file f with request if req is set */ LOCAL int printfile(f, req) register int f, req; { char name[NAMELEN], buf[EXECLEN]; register int c; (void) strcpy(name, pathname(FFNAM(cdlist, f), CPNAM)); if(req) { (void) putecho("Print %s ?", name); if((c = hitakey(NULL)) != 'y') return(c); } (void) putecho("Printing %s", name); (void) sprintf(buf, "%s %s %s", VARVAL(V_LP), VARVAL(V_LPO), name); if((c = callsystem(buf, 0, 0)) != RV_OK) return(errequest(FFNAM(cdlist, f), "Error in printing")); return(RV_OK); } /* printfile() */ /* * REMOVE FILE(S) */ /* Remove current or tagged file(s) */ LOCAL int remove(one) register int one; { register int f, c, req; if(CNFIL == 0) /* Nothing to remove */ return(RV_OK); who = "REMOVE FILE"; if( !one && CNTAG) { /* Tagged files */ if(CNTAG > 1) { puthelp("%s (N:don't request Q:quit ELSE:request)", who); c = hitakey("Request before removing ?", echoline, DA_NONE); if(c == 'q' || c < RV_NUL) return(c); else if(req = (c != 'n')) puthelp("%s (Y:remove Q:quit ELSE:don't remove)", who); } else req = 1; for(f = CNFIL - 1; f >= 0; f--) { if(ISTAG(cdlist, f)) { untagfile(f); setmark(f, FF_MARK); if((c = removefile(cdlist, f, req)) != RV_OK) unsetmark(f); if(c == 'q' || c < RV_NUL) break; } } } else { /* Current file */ puthelp("%s (Y:remove ELSE:don't remove)", who); c = removefile(cdlist, CFCUR, 1); } return(c); } /* remove() */ /* * EDIT FILE(S) */ /* Edit current or tagged file(s) */ LOCAL int edit(one) register int one; { char name[FILELEN]; register char *fname; register int f, c, mode, req; who = "EDIT FILE"; if( !one && CNTAG) { /* Tagged files */ if(CNTAG > 1) { puthelp("%s (N:don't request Q:quit ELSE:request)", who); c = hitakey("Request before edit ?", echoline, DA_NONE); if(c == 'q' || c < RV_NUL) return(c); else if(req = (c != 'n')) puthelp("%s (Y:edit Q:quit ELSE:don't edit)", who); } else req = 1; for(f = 0; f < CNFIL; f++) if(ISTAG(cdlist, f)) { untagfile(f); c = editfile(FFNAM(cdlist, f), (int) FMODE(cdlist, f), req); if(c == 'q' || c < RV_NUL) break; } } else { /* Current or no files */ if(CNFIL > 0) { setmark(CFCUR, FF_MARK); puthelp("%s: Give file name (CR:%s)", who, FFNAM(cdlist, CFCUR)); c = putecho("Edit file:"); c = getline(name, sizeof(name), c, 0, NULL, GNULL, 0); unsetmark(CFCUR); if(c < RV_NUL) return(c); } else { /* Directory is empty */ puthelp("%s: Give file name (CR:quit)", who); c = putecho("Edit which file:"); if((c = getline(name, sizeof(name), c, 0, NULL, GNULL, 0)) != RV_OK) return(c); } fname = c == RV_NUL ? FFNAM(cdlist, CFCUR) : name; mode = c == RV_NUL ? FMODE(cdlist, CFCUR) : FF_NONE; c = editfile(fname, mode, 0); } return(c); } /* edit() */ /* Edit single file name (mode mode) with request if req is set */ LOCAL int editfile(name, mode, req) register char *name; register int mode, req; { char pname[NAMELEN], buf[EXECLEN]; register int c; /* Check if editing is allowed */ if( !isallowed(name, mode)) return(hitakey(NULL)); (void) strcpy(pname, pathname(name, CPNAM)); if(req) { (void) putecho("Edit %s ?", name); c = hitakey(NULL); if(c != 'y') return(c); } (void) sprintf(buf, "%s %s %s", VARVAL(V_ED), VARVAL(V_EDO), pname); (void) callsystem(buf, 1, 1); checkdlist(CPNAM); /* Directory needs checking */ return(RV_OK); } /* editfile() */ /* * COPY FILE(S) */ /* Copy current or tagged file(s) */ LOCAL int copy(one) register int one; { struct stat st; char name[NAMELEN]; register char *to; register int f, c, req; if(CNFIL == 0) /* Nothing to copy */ return(RV_OK); who = "COPY FILE"; if( !one && CNTAG) { /* Tagged files */ puthelp("%s: Give destination directory (CR:select one)", who); c = putecho("Copy tagged files to:"); if((c = getline(name, sizeof(name), c, 0, NULL, CLIST, 0)) < RV_NUL) return(c); if(c == RV_OK) { to = strcpy(name, pathname(name, CPNAM)); if((*statfun)(to, &st) < 0) { puthelp("%s %s", who, hitkey); return(errequest(name, "Cannot stat")); } else if(STFMT(&st) != S_IFDIR) { puthelp("%s %s", who, hitkey); return(errequest(name, "Is not a directory")); } } else if((to = doselect("copying files")) == NULL) { fileflag |= SF_ECHO|SF_HELP; return(RV_NUL); } puthelp("%s (N:don't request Q:quit ELSE:request)", who); (void) putecho("Request before copying to %s ?", to); c = hitakey(NULL); if(c == 'q' || c < RV_NUL) return(c); if(req = (c != 'n')) puthelp("%s (Y:copy Q:quit ELSE:don't copy)", who); for(f = 0; f < CNFIL; f++) if(ISTAG(cdlist, f)) { untagfile(f); setmark(f, FF_MARK); c = copyfile(cdlist, f, to, req); unsetmark(f); if(c == 'q' || c < RV_NUL) break; } } else { /* Current file */ puthelp("%s: Give destination (CR:select directory)", who); c = putecho("Copy file to:"); if((c = getline(name, sizeof(name), c, 0, NULL, CLIST, 0)) < RV_NUL) return(c); else if(c == RV_OK) to = strcpy(name, pathname(name, CPNAM)); else if((to = doselect("copying file")) == NULL) { fileflag |= SF_ECHO|SF_HELP; return(RV_NUL); } c = copyfile(cdlist, CFCUR, to, 0); } checkdlist(to); /* Directory needs checking */ fileflag |= SF_ECHO|SF_HELP; return(c); } /* copy() */ /* * ZOOM FILES */ /* Get zoom pattern and rebuild filelist */ LOCAL int zoomfile() { char pat[PATLEN]; register int c; who = "ZOOM FILE"; puthelp("%s: Give file pattern (CR:all files)", who); if((c = getpattern(pat, "Zoom which files:")) < RV_NUL) return(c); if(zoomlist(cdlist, pat)) fileflag |= SF_TREE; return(RV_OK); } /* zoomfile() */ /* * GOTO DIRECTORY / PARENT DIRECTORY */ /* Goto directory */ LOCAL int gotodirectory() { #ifdef S_IFLNK struct stat st; #endif /* S_IFLNK */ register dlist *dp; register int lev, c; if(CNFIL == 0) /* Nothing to change to */ return(RV_OK); who = "GOTO DIRECTORY"; puthelp("%s: %s", who, FFNAM(cdlist, CFCUR)); if(FMODE(cdlist, CFCUR) != FF_DIR) { #ifdef S_IFLNK if( !(FMODE(cdlist, CFCUR) == FF_SLNK && ISDIR(FFNAM(cdlist, CFCUR), st))) #endif /* S_IFLNK */ return(errequest(FFNAM(cdlist, CFCUR), "Is not a directory")); } /* Search directory in directory tree */ for(dp = (dlist *) CNEXT, lev = CLEVL+1; dp && DLEVL(dp) > CLEVL; dp = (dlist *) DNEXT(dp)) if(DLEVL(dp) == lev && EQU(FFNAM(cdlist, CFCUR), DFNAM(dp))) break; /* Directory is not yet in directory tree */ if(dp == DNULL || DLEVL(dp) != lev) dp = newdlist(FFNAM(cdlist, CFCUR), FL_NUL); /* Directory file list must be read in */ if((DFLAG(dp) != FL_FIL || changedlist(dp)) && (c = newflist(dp)) != RV_OK) return(c); if( !DCANC(dp)) return(errequest(DFNAM(dp), "Cannot change")); else if(DNFIL(dp) == 0) { puthelp("%s: %s (y:change ELSE:don't change)", who, DFNAM(dp)); c = errequest(DFNAM(dp), "Is empty, change anyway ?"); if(c != 'y') return(c); } /* Position to directory in directory tree and return */ while(cdlist != dp) (void) gotree(1); return(RV_DIR); } /* gotodirectory() */ /* Goto parent directory */ LOCAL int gotoparent() { register char *name; register int lev, c; if(cdlist == droot) /* Root has no parent */ return(RV_RET); /* Position to parent directory in directory tree */ name = CFNAM; lev = CLEVL - 1; while(CLEVL != lev) (void) gotree(-1); /* Parent directory needs rebuilding */ if((CFLAG != FL_FIL || changedlist(cdlist)) && (c = newflist(cdlist)) != RV_OK) return(c); /* Position to where we came from in parent directory file list */ CFCUR = CFTOP = 0; while(CMP(name, FFNAM(cdlist, CFCUR)) && CFCUR < CNFIL) (void) gofile(cdlist, 1); return(RV_DIR); } /* gotoparent() */ /* * TAG / UNTAG FILE(S) */ /* Tag current or selected file(s) */ LOCAL int tag(one) register int one; { char input[PATLEN]; register int f, c; if(CNFIL == 0) /* Nothing to tag */ return(RV_OK); who = "TAG FILE"; if( !one) { /* Multiple files */ puthelp("%s: Give file pattern (CR:%s)", who, tpattern[0] ? tpattern : "quit"); if((c = getpattern(input, "Tag which file:")) == RV_OK) (void) strcpy(tpattern, input); else if(c < RV_NUL || (c == RV_NUL && tpattern[0] == '\0')) return(c); } if(one) /* Currrent file */ tagfile(CFCUR); else /* Matching files */ for(f = 0; f < CNFIL; f++) if(umatch(cdlist, f, tpattern) > 0) tagfile(f); return(RV_OK); } /* tag() */ /* Untag current or selected file(s) */ LOCAL int untag(one) register int one; { char pattern[PATLEN]; register int f, c; if(CNFIL == 0) /* Nothing to untag */ return(RV_OK); who = "UNTAG FILE"; if( !one) { /* Multiple files */ setmark(CFCUR, FF_MARK); puthelp("%s: Give file pattern (CR:all files)", who); c = getpattern(pattern, "Untag which file:"); unsetmark(CFCUR); if(c < RV_NUL) return(c); else if(c == RV_NUL) (void) strcpy(pattern, "*"); } if(one && ISTAG(cdlist, CFCUR)) { /* Current file */ untagfile(CFCUR); unsetmark(CFCUR); } else /* Matching files */ for(f = 0; f < CNFIL; f++) if(umatch(cdlist, f, pattern) > 0 && ISTAG(cdlist, f)) { untagfile(f); unsetmark(f); } return(RV_OK); } /* untag() */ /* * EXECUTE CURRENT FILE */ /* Check if current file is given in command */ LOCAL int filemissing(s) register char *s; { while(*s) { if(*s == '%') { /* Leadin found */ ++s; if(*s == 'f' || *s == 'F' || *s == 'p' || *s == 'P') return(0); /* Found */ } else ++s; } return(1); } /* filemissing() */ /* Execute or execute on file f */ LOCAL int execfile(f, m) register int f, m; { char cmd[EXECLEN], buf[2*INPLEN], par[INPLEN]; register xlist *xp; register int c; if(m) setmark(f, FF_MARK); /* Check if a command is defined for filetype */ for(xp = xroot; xp; xp = (xlist *) XNEXT(xp)) if(umatch(cdlist, f, XTYPE(xp))) break; /* Execute filetype dependent command if defined */ if(xp && XCOMD(xp)) { if(XCOMM(xp)) puthelp("%s: %s #%s", who, FFNAM(cdlist, f), XCOMM(xp)); else puthelp("%s: %s", who, FFNAM(cdlist, f)); c = putecho("Execute:"); c = getline(buf, sizeof(buf), c, 'l', XCOMD(xp), GNULL, 0); if(m) unsetmark(f); if(c != RV_OK) return(c); if(filemissing(buf)) (void) sprintf(buf, "%s %%F", buf); } /* File is executable */ else if(FMODE(cdlist, f) == FF_EXEC) { puthelp("%s: Give parameter(s) or a command", who); c = putecho("Execute %s:", FFNAM(cdlist, f)); c = getline(par, sizeof(par), c, 'l', NULL, GNULL, 0); if(m) unsetmark(f); if(c < RV_NUL) return(c); else if(c == RV_NUL) (void) strcpy(buf, "./%F"); else if(filemissing(par)) (void) sprintf(buf, "%%F %s", par); else (void) strcpy(buf, par); } /* Execute command on current file */ else { puthelp("%s: Give a command and parameter(s)", who); c = putecho("Execute on %s:", FFNAM(cdlist, f)); c = getline(par, sizeof(par), c, 'l', NULL, GNULL, 0); if(m) unsetmark(f); if(c != RV_OK) return(c); if(filemissing(par)) (void) sprintf(buf, "%s %%F", par); else (void) strcpy(buf, par); } /* Format command line and execute */ c = userformat(cmd, buf, V_FC1, "EXECUTE"); if(c == RV_NUL) { puthelp("%s %s", who, hitkey); return(errequest(FFNAM(cdlist, f), "Bad format")); } else if(c < RV_NUL) return(c); puthelp("%s: %s", who, cmd); c = callsystem(cmd, 1, 0); if(c != RV_OK) { puthelp("%s: %s %s", who, cmd, hitkey); return(errequest(FFNAM(cdlist, f), "Error in executing")); } return(hitakey("Return from execute (Hit a key)", lines-1, DA_REVERSE)); } /* execfile() */ /* Execute or execute on files */ LOCAL int execute(one) register int one; { register int c, f, m; if(CNFIL == 0) /* Nothing to execute */ return(RV_OK); who = "EXECUTE FILE"; if( !one && CNTAG) { /* Tagged files */ m = 1; for(f = 0; f < CNFIL; f++) if(ISTAG(cdlist, f)) { untagfile(f); c = execfile(f, m); m = 0; if(c == 'q' || c < RV_NUL) break; } } else /* Current file */ c = execfile(CFCUR, 1); checkdlist(CPNAM); /* Directory needs checking */ return(c); } /* execute() */ /* * FILE MENU LOOP */ #if defined(SIGWINCH) && defined(TIOCGWINSZ) /* Refresh file screen after screen size changes */ GLOBL int refreshfile(f) register int f; { if(f) (void) refreshtree(0); f = CFCUR; CFTOP = CFCUR = 0; while(CFCUR != f && gofile(cdlist, 1)) ; flast = -1; fileflag = SF_FULL; return(RV_OK); } /* refreshfile() */ #endif /* SIGWINCH && TIOCGWINSZ */ /* File menu */ GLOBL int filemenu(f, r) register int f, r; { register int c, i, j; who = "FILE MENU"; /* Change to directory and check if it is empty */ if((c = changelist(cdlist, who)) != RV_OK) return(c); else if(r != RV_DIR && CNFIL == 0) { puthelp("%s: %s (Y:change ELSE:don't change)", who, CFNAM); if((c = errequest(CFNAM, "Is empty, change anyway ?")) != 'y') return(c); } /* Position to current file on screen */ if(f >= 0 && f < CNFIL) while(CFCUR != f) (void) gofile(cdlist, CFCUR < f ? 1 : -1); /* Init file variables */ if(menuline == NULL) menuline = fmline; buildflag = 0; nscroll = 0; flast = -1; fmark = -1; fileflag = SF_FULL; /* File menu loop */ do { /* Update file screen if needed and clock */ if(fileflag && !keypressed()) updatefiles(); #ifdef UTCLOCK if(VARSET(V_CL)) clockon(); #endif /* UTCLOCK */ flushout(); c = getkey(); #ifdef UTCLOCK if(VARSET(V_CL)) clockoff(); #endif /* UTCLOCK */ switch(c) { default: /* Unknown: ring the bell */ bell(VARSET(V_BL)); break; case K_BACK: /* Previous file */ case 'k': /* For vi fans */ if( !gofile(cdlist, -1)) bell(VARSET(V_BL)); break; case K_FORW: /* Next file */ case 'j': /* For vi fans */ if( !gofile(cdlist, 1)) bell(VARSET(V_BL)); break; case K_PREV: /* Up file */ if(gofile(cdlist, -1)) for(i = 1; i < fperline; i++) (void) gofile(cdlist, -1); else bell(VARSET(V_BL)); break; case K_NEXT: /* Down file */ if(gofile(cdlist, 1)) for(i = 1; i < fperline; i++) (void) gofile(cdlist, 1); else bell(VARSET(V_BL)); break; case K_PPAG: /* Previous page */ if(CFTOP > 0 && gofile(cdlist, -1)) for(i = 1; i < fperpage && gofile(cdlist, -1); i++) ; else bell(VARSET(V_BL)); break; case K_NPAG: /* Next page */ if((CFTOP + fperpage) < CNFIL && gofile(cdlist, 1)) for(i = 1; i < fperpage && gofile(cdlist, 1); i++) ; else bell(VARSET(V_BL)); break; case K_HOME: /* First file */ i = CFCUR; if(gofile(cdlist, -1)) { fmark = i; while(gofile(cdlist, -1)) ; } else bell(VARSET(V_BL)); break; case K_END: /* Last file */ i = CFCUR; if(gofile(cdlist, 1)) { fmark = i; while(gofile(cdlist, 1)) ; } else bell(VARSET(V_BL)); break; case '@': /* Mark current file */ case K_MARK: fmark = CFCUR; break; case '#': /* Goto previously marked file */ case K_GOTO: j = fmark; for(i = CFCUR; i < CNFIL; i++) if(fmark == i) { while(gofile(cdlist, 1) && CFCUR != fmark) ; fmark = j; goto MDONE; } for(i = 0; i < CFCUR; i++) if(fmark == i) { while(gofile(cdlist, -1) && CFCUR != fmark) ; fmark = j; goto MDONE; } bell(VARSET(V_BL)); MDONE: break; case K_TAG: /* Next tagged file */ for(i = CFCUR + 1; i < CNFIL; i++) if(ISTAG(cdlist, i)) { while(gofile(cdlist, 1) && CFCUR != i) ; goto TDONE; } for(i = 0; i < CFCUR; i++) if(ISTAG(cdlist, i)) { while(gofile(cdlist, -1) && CFCUR != i) ; goto TDONE; } bell(VARSET(V_BL)); TDONE: break; case K_UP: /* Scroll up */ if( !scrollfile(-1)) bell(VARSET(V_BL)); break; case K_DOWN: /* Scroll down */ if( !scrollfile(1)) bell(VARSET(V_BL)); break; case '>': /* Change to directory */ case K_INS: c = gotodirectory(); break; case '<': /* Back to parent directory */ case K_DEL: c = gotoparent(); break; case K_SIZE: /* Screen size changed */ #if defined(SIGWINCH) && defined(TIOCGWINSZ) c = RV_SIZ; #else /* !SIGWINCH || !TIOCGWINSZ */ c = RV_OK; #endif /* SIGWINCH && TIOCGWINSZ */ /*Fall thru*/ case K_REFR: /* Refresh */ fileflag = SF_FULL; break; case 'n': /* New sort file list */ case 'N': fmark = -1; if((c = sortlist(cdlist, CSORT ? 0 : 1)) == RV_OK) fileflag |= SF_TREE; break; case 'd': /* Date */ case 'D': c = printdate(); break; case 'w': /* Current directory */ case 'W': c = printcwd(); break; case '?': /* Help */ case 'H': case 'h': case K_HELP: c = showhelp('f'); break; case 't': /* Tag current or tagged file(s) */ case 'T': c = tag(CUR(c)); break; case 'u': /* Untag current or tagged file(s) */ case 'U': c = untag(CUR(c)); break; case 'g': /* Search string in file */ case 'G': c = grep(CUR(c)); break; case 'f': /* Find file */ case 'F': c = find(CUR(c)); break; case 'c': /* Copy current or tagged file(s) */ case 'C': c = copy(CUR(c)); break; case 'e': /* Edit current or tagged file(s) */ case 'E': c = edit(CUR(c)); break; case 's': /* Status of current or tagged file(s) */ case 'S': c = status(CUR(c), 1); break; case 'i': /* Short info of current or tagged file(s) */ case 'I': c = status(CUR(c), 0); break; case 'p': /* Print current or tagged file(s) */ case 'P': c = print(CUR(c)); break; case 'v': /* View current or tagged file(s) */ case 'V': c = view(CUR(c)); break; case 'm': /* Move current or tagged file(s) */ case 'M': c = move(CUR(c)); break; case 'r': /* Remove current or tagged file(s) */ case 'R': c = remove(CUR(c)); break; case 'l': /* List files */ case 'L': c = list(CUR(c)); break; case 'x': /* Execute current file */ case 'X': c = execute(CUR(c)); break; case '0': /* Switch menu line */ menuline = menuline == ufilemenu ? fmline : ufilemenu; fileflag |= SF_HELP; break; case '1': /* User defined file commands 1..9 */ case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': c = usercommand(c - '0' + V_FC0); break; case '!': /* Shell escape */ case '$': c = history(c, V_FC1); if(VARSET(V_ST)) (void) scandlist(droot); break; case '=': /* Show/set variables */ c = variables(); break; case ':': /* Show/set file type commands */ c = commands(); break; case '|': /* Show key bindings */ c = bindings(); break; case '/': /* Rebuild file list */ fmark = -1; CFLAG = FL_CHG; ++buildflag; c = RV_OK; break; case 'z': /* Zoom file list */ case 'Z': c = zoomfile(); break; case 'a': /* Display version string */ case 'A': c = putversion(echoline, "ABOUT: Utree version"); break; case 'q': /* Return to tree screen */ case 'Q': case ' ': case K_SEL: case K_BRK: c = RV_RET; break; case K_EOF: /* Exit */ c = RV_END; break; } #if defined(SIGWINCH) && defined(TIOCGWINSZ) /* Refresh screen after screen resize */ if(c == RV_SIZ) c = refreshfile(1); #endif /* SIGWINCH && TIOCGWINSZ */ /* Rebuilding needed */ if(buildflag && updatedlist() != RV_OK) c = RV_ERR; } while(c >= RV_INT); /* Set treeflag and return */ treeflag = SF_FULL; return(c); } /* filemenu() */ "Bad format")); } else if(c < RV_NUL) return(c); puthelp("%s: %s", who, cmd); c = callsystem(cmd, 1, 0); if(c != RV_OK) { puthelp("%s: %s %s", who, cmd, hitkey); return(errequest(FFNAM(cdlist, f), "Error in executing")); } return(hitakey("Return from execute (Hit a key)", lines-1, DA_REVERSE)); } /* execfile() */ /* Execute or execute on files */ LOCAL int execute(one) register int one; { register int c, f, m; if(CNFIL == 0) /* Nothing to execuutree/src/term.c1006440013110001060000007406205255652762010261 0 0 1 0 /* * TERM.C * UTREE terminal, screen and keyboard routines. * 3.01-um klin, Wed May 1 14:21:09 1991 * klin, Mon Oct 7 15:16:22 1991, Bug in putchar() deleted * klin, Sat Oct 26 15:26:07 1991, Marking directories changed * 3.02-um klin, Fri Nov 1 10:44:45 1991, Screen layout changed * Sun Nov 10 19:46:21 1991, Function key handling changed * Sun Nov 24 12:22:56 1991, Extensions for XENIX reported * by Rolf Gebhardt (RG 11/22/91) * Bug fixes in output reported by * Reinhard Wobst and Rolf Gebhardt * Video attributes changed * 3.03-um klin, Tue Feb 11 19:39:09 1992, Video handling changed * Handle glitch capabilities * properly * klin, Sun Feb 23 20:33:30 1992, Key handling and key bindings * changed. getkey() changed for * handling key bindings from * key bindings list * a klin, Sun Mar 15 19:08:25 1992, Bug fix in getkey(), clearline() * and cleartoend(). * Minor changes for AIX 3.2 * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. */ #ifndef lint static char sccsid[] = "@(#) utree 3.03a-um (klin) Mrz 15 1992 term.c"; #endif /* !lint */ #include "defs.h" /* TEST: Handling of sg/ug glitches (i.e. for bando terminal) * Handling of sg/ug glitches may be wrong because i could test * their handling on xterm simulating the sg/ug glitches only. */ /* ---- Local/global variables and definitions ------------------------ */ #define TCAPLEN 1024 /* Length of termcap buffers */ #define KBUFLEN 254 /* Length of keyboard buffer */ #define HUGE 9999 /* A huge number */ GLOBL char PC; /* Needed by termcap (???) */ GLOBL char *UP; /* Needed by termcap (???) */ GLOBL char *BC; /* Needed by termcap (???) */ LOCAL int _XR; /* Carriage return glitch */ LOCAL int _MS; /* Can move cursor in standout mode */ LOCAL int _SG; /* Standout mode glitch: # of blanks */ LOCAL int _UG; /* Underline glitch: # of blanks */ LOCAL char *_CM; /* Cursor motion */ LOCAL char *_CL; /* Clear screen */ LOCAL char *_CD; /* Clear to end of screen */ LOCAL char *_CE; /* Clear to end of line */ LOCAL char *_TI; /* Init string for cursor motion */ LOCAL char *_TE; /* Exit string for cursor motion */ LOCAL char *_KS; /* Turn on keypad transmit mode */ LOCAL char *_KE; /* Turn off keypad transmit mode */ LOCAL char *_MR; /* Turn on reverse video mode */ LOCAL char *_MB; /* Turn on blink video mode */ LOCAL char *_MD; /* Turn on bold video mode */ LOCAL char *_MH; /* Turn on half bright video mode */ LOCAL char *_ME; /* Turn off all video attributes */ LOCAL char *_US; /* Start underlining */ LOCAL char *_UE; /* End underlining */ LOCAL char *_IC; /* Insert character at cursor position */ LOCAL char *_DC; /* Delete character at cursor position */ LOCAL char *_AL; /* Insert line above line cursor is on */ LOCAL char *_DL; /* Delete line cursor is on */ LOCAL char *_CS; /* Set scroll region */ LOCAL char *_NL; /* New line (default: ^J = NL) */ LOCAL char *_CR; /* Carriage return (default: ^M = CR) */ LOCAL char *_LE; /* Cursor left (default: ^H = BS) */ LOCAL char *_DO; /* Cursor down */ LOCAL char *_SF; /* Scroll screen up */ LOCAL char *_SR; /* Scroll screen down */ LOCAL char *_SC; /* Save cursor position */ LOCAL char *_RC; /* Restore cursor position */ LOCAL char *_VE; /* Cursor normal */ LOCAL char *_VS; /* Cursor very visible */ LOCAL char *_VI; /* Cursor invisible */ LOCAL char *_BL; /* Bell (default ^G = BEL) */ LOCAL char *_AC = NULL; /* Alternate character set */ LOCAL char *_EA = NULL; /* Enable alternate character set */ LOCAL char *_AS = NULL; /* Alternate character set on */ LOCAL char *_AE = NULL; /* Alternate character set off */ #ifdef XENIX /* RG 11/22/91 */ LOCAL char *_G2 = NULL; /* Upper left corner */ LOCAL char *_GH = NULL; /* Horizontal bar */ LOCAL char *_G1 = NULL; /* Upper right corner */ LOCAL char *_GV = NULL; /* Vertical bar */ LOCAL char *_G4 = NULL; /* Lower right corner */ LOCAL char *_G3 = NULL; /* Lower left corner */ LOCAL char *_GD = NULL; /* Top tee */ LOCAL char *_GL = NULL; /* Right tee */ LOCAL char *_GU = NULL; /* Bottom tee */ LOCAL char *_GR = NULL; /* Left tee */ LOCAL char *_GC = NULL; /* Plus sign = mark sign */ #endif /* XENIX */ LOCAL char termbuf[TCAPLEN]; /* Termcap buffer */ LOCAL int nfkeys; /* Number of defined function keys */ #ifdef BSD LOCAL struct sgttyb raw, tty; /* Terminal driver data record */ # define TCGETA TIOCGETP # define TCSETA TIOCSETP #else /* SYSV */ LOCAL struct termio raw, tty; # ifndef HASFIONREAD LOCAL int kbflag; /* Input mode flag */ # endif /* !HASFIONREAD */ #endif /* BSD */ LOCAL kchar kbuf[KBUFLEN+2]; /* Input buffer */ LOCAL int kcnt = 0; /* Input buffer counter */ LOCAL int kind = 0; /* Input buffer index */ LOCAL int curx = HUGE; /* Current screen column */ LOCAL int cury = HUGE; /* Current screen line */ LOCAL int vatt = VA_NORMAL; /* Current video attributes setting */ LOCAL int gatt = GC_OFF; /* Current graphic character set flag */ /* ---- External variables and functions ------------------------------ */ #ifdef BSD EXTRN short ospeed; /* Is ospeed really needed??? */ #endif /* BSD */ EXTRN char *getenv(); EXTRN char *tgetstr(); EXTRN char *tgoto(); /* ---- Local/global functions and procedures ------------------------- */ /* * INTERNAL USED ROUTINES */ /* Output one character for tputs() */ LOCAL int _putch(c) register int c; { return(putc((unsigned char) c, stdout)); } /* _putch() */ /*TEST: Handling of sg/ug glitches */ /* Move cursor back for terminals with underline or standout glitch */ LOCAL VOID _backglitch(j) register int j; { register int i; for(i = 0; i < j; i++) { if(_LE) tputs(_LE, 1, _putch); else if(BC) tputs(BC, 1, _putch); else (void) _putch('\b'); } } /* _backglitch() */ /* * VIDEO ATTRIBUTE AND GRAPHIC CHARSET ROUTINES */ /* Turn on/off video attributes as defined in mask v */ GLOBL VOID videoset(v) register int v; { if(vatt) { /* Video attributes off */ if((vatt & VA_UNDERLINE) && _UE) { tputs(_UE, 1, _putch); /*TEST: Handling of sg/ug glitches */ if(_UG > 0) _backglitch(_UG); vatt &= ~VA_UNDERLINE; } if(vatt && _ME) { tputs(_ME, 1, _putch); /*TEST: Handling of sg/ug glitches */ if(_SG > 0) _backglitch(_SG); } } vatt = VA_NORMAL; if(v & VA_REVERSE && _MR) { /* Video reverse */ tputs(_MR, 1, _putch); /*TEST: Handling of sg/ug glitches */ if(_SG > 0) _backglitch(_SG); vatt |= VA_REVERSE; } if(v & VA_UNDERLINE && _US) { /* Start underlining */ tputs(_US, 1, _putch); /*TEST: Handling of sg/ug glitches */ if(_UG > 0) _backglitch(_UG); vatt |= VA_UNDERLINE; } if(v & VA_BLINK && _MB) { /* Video blink */ tputs(_MB, 1, _putch); vatt |= VA_BLINK; } if(v & VA_BOLD && _MD) { /* Video bold */ tputs(_MD, 1, _putch); vatt |= VA_BOLD; } if(v & VA_HALF && _MH) { /* Video half bright */ tputs(_MH, 1, _putch); vatt |= VA_HALF; } } /* videoset() */ /* Turn on/off graphic character set as defined in flag f */ GLOBL VOID graphicset(f) register int f; { if(gatt != f) { if(f && _AS) /* Enable graphic charset */ tputs(_AS, 1, _putch); else if(_AE) /* Disable graphic charset */ tputs(_AE, 1, _putch); gatt = f; } } /* graphicset() */ /* * OUTPUT ROUTINES */ /* Ring the bell */ GLOBL VOID bell(f) register int f; { if(f) { if(_BL) tputs(_BL, 1, _putch); else (void) _putch(7); } } /* bell() */ /* Move cursor back one character */ GLOBL VOID backspace() { if(curx > 0) { if(_LE) tputs(_LE, 1, _putch); else if(BC) tputs(BC, 1, _putch); else (void) _putch('\b'); --curx; } } /* backspace() */ /* Move to beginning of line */ GLOBL VOID begline() { if(curx > 0) { curx = 0; if(_XR) (void) cursorxy(0, cury); else if(_CR) tputs(_CR, 1, _putch); else (void) _putch('\r'); } } /* begline() */ /* Move to beginning of next line */ GLOBL VOID newline() { if(cury < lines) { begline(); ++cury; if(_NL) tputs(_NL, 1, _putch); else if(_DO) tputs(_DO, 1, _putch); else (void) _putch('\n'); } } /* newline() */ /* Write character c if cursor is on screen */ GLOBL int putchar(c) register int c; { if(videoattr != vatt) /* Check and set video attributes */ videoset(videoattr); if(graphattr != gatt) /* Check and set graphic charset */ graphicset(graphattr); switch(c) { case 7: /* Bell */ bell(1); break; case '\b': /* Backspace */ backspace(); break; case '\t': /* Tab */ if(curx < columns && cury < lines) { do (void) _putch(' '); while(++curx % 8 && curx < columns); } break; case '\n': /* Newline */ newline(); break; case '\r': /* Carriage return */ begline(); break; default: /* Others */ if(curx < columns && cury < lines && isprint(c & 0x7f)) { (void) _putch(c); ++curx; } break; } return(curx < columns && cury < lines ? 1 : 0); } /* putchar() */ /* Flush output buffer */ GLOBL VOID flushout() { (void) fflush(stdout); } /* flushout() */ /* * INPUT ROUTINES */ /* Read one character from keyboard. Ignore or handle signals */ GLOBL int getchar() { register int c; #ifdef BSD atread = 1; # if defined(SIGWINCH) && defined(TIOCGWINSZ) /* BSD: Signal SIGWINCH doesn't interrupt systemcall read() ! */ /* Set up here if SIGWINCH is catched and return K_SIZE */ if(setjmp(winchjump) && sizechange) { sizechange = atread = 0; return(K_SIZE); } # endif /* SIGWINCH && TIOCGWINSZ */ c = getc(stdin); atread = 0; return(c); #else /* SYSV */ do { c = getc(stdin); # if defined(SIGWINCH) && defined(TIOCGWINSZ) /* SYSV: Signal SIGWINCH interrupts systemcall read() ! */ /* So return K_SIZE if signal SIGWINCH is catched */ if(c < 0 && sizechange) { sizechange = 0; return(K_SIZE); } # endif /* SIGWINCH && TIOCGWINSZ */ } while(c < 0 && errno == EINTR); return(c); #endif /* BSD */ } /* getchar() */ /* Check if input from keyboard is pending */ GLOBL int keypressed() { int c; #if defined(BSD) || defined(HASFIONREAD) /* Quick check how many chars are to read */ return(ioctl(fileno(stdin), FIONREAD, &c) < 0 ? 0 : c); #else /* SYSV && !HASFIONREAD */ /* Set stdin to no delay and try to read one char */ (void) fcntl(fileno(stdin), F_SETFL, kbflag|O_NDELAY); c = getc(stdin); (void) fcntl(fileno(stdin), F_SETFL, kbflag); if(c >= 0) { (void) ungetc(c, stdin); return(1); } return(0); #endif /* BSD || HASFIONREAD */ } /* keypressed() */ /* Read a character from keyboard with respect to function keys */ GLOBL int getkey() { register klist *fp, *lp, *p; register kchar c; register int k; /* Flush output buffer */ flushout(); /* Input buffer contains character(s) */ if(kcnt > 0) { --kcnt; return((int) kbuf[kind++]); } /* Get next character */ if((c = getchar()) == 0) /* Map ASCII-NUL */ c = 0200; /* Search for first matching entry in key binding list */ for(fp = kroot; fp; fp = (klist *) KBNXT(fp)) if(KBCHR(fp, 0) == c) break; /* No match: return character */ if(fp == KNULL) return((int) c); /* Search for last matching entry in key binding list */ lp = fp; while((p = (klist *) KBNXT(lp)) && KBCHR(p, 0) == c) lp = p; /* Continue comparison of input and key strings */ for(k = 1; ; k++) { /* Match: return bound key symbol */ if(fp == lp && KBCHR(fp, k) == 0) { kcnt = 0; if(KBSYM(fp) == K_STR && KBINS(fp)) { kind = 0; (void) ungetstring(KBINS(fp)); break; } return(KBSYM(fp)); } /* Else: get next character */ if((c = getchar()) == 0) /* Map ASCII-NUL */ c = 0200; kbuf[kcnt++] = c; /* Search for next first and last matching entries in binding list */ while(KBCHR(fp, k) != c && fp != lp) fp = (klist *) KBNXT(fp); while(KBCHR(lp, k) != c && lp != fp) lp = (klist *) KBPRV(lp); /* No match: exit loop */ if(KBCHR(fp, k) != c) break; } /* No match: return character from input buffer */ --kcnt; return((int) kbuf[kind++]); } /* getkey() */ /* Put back character c into input buffer */ GLOBL VOID ungetkey(c) register int c; { if(kcnt < KBUFLEN) kbuf[kcnt++] = (kchar) c; } /* ungetkey() */ /* Put back string s into input buffer */ GLOBL int ungetstring(s) register char *s; { register int c; while(*s) { if(*s == '\\') switch(*++s) { default: /* Error */ return(1); case 'b': /* Backspace ?? */ c = '\b'; break; case 'f': /* Formfeed ?? */ c = '\f'; break; case 'r': /* Carriage return */ case 'n': /* Newline */ c = '\n'; break; case 't': /* Tab */ c = '\t'; break; case 's': /* Space */ c = ' '; break; case 'e': /* Escape */ case 'E': c = 0x1b; break; } else if(*s == '^') { /* Control chars ?? */ ++s; if(*s == '?') /* DEL */ c = 0x7f; else if(*s >= '@' && *s <= '_') /* NUL .. US */ c = *s - '@'; else if(*s >= 'a' && *s <= 'z') /* SOH .. SUB */ c = *s - '`'; else return(1); } else c = *s; ungetkey(c); ++s; } return(0); } /* ungetstring() */ /* * GLOBAL SCREEN ROUTINES */ /* Move the cursor to new x,y position */ GLOBL int cursorxy(x, y) register int x, y; { if(x < 0) x = columns + x; if(y < 0) y = lines + y; if(x < 0 || x >= columns || y < 0 || y >= lines) { curx = cury = HUGE; return(0); } if( !_MS && vatt) /* Reset video attributes */ videoset(VA_NORMAL); if(gatt) /* Reset graphic charset */ graphicset(GC_OFF); tputs(tgoto(_CM, x, y), 1, _putch); curx = x; cury = y; return(1); } /* cursorxy() */ /* Return current cursor position */ GLOBL VOID cursorpos(x, y) register int *x, *y; { *x = curx; *y = cury; } /* cursorpos() */ /* Insert character at cursor position */ GLOBL int insertchar() { if(_IC) { tputs(_IC, 1, _putch); return(1); } return(0); } /* insertchar() */ /* Delete character under cursor */ GLOBL int deletechar() { if(_DC) { tputs(_DC, 1, _putch); return(1); } return(0); } /* deletechar() */ /* Insert n lines above line cursor is on */ GLOBL int insertline(y, n) register int y, n; { if(_AL && cursorxy(0, y)) { while(n--) tputs(_AL, 1, _putch); return(1); } return(0); } /* insertline() */ /* Delete n lines cursor is on */ GLOBL int deleteline(y, n) register int y, n; { if(_DL && cursorxy(0, y)) { while(n--) tputs(_DL, 1, _putch); return(1); } return(0); } /* deleteline() */ /* Set scroll window from line f to line t */ GLOBL int windowset(f, t) register int f, t; { /* Set scroll region from line f to line t */ if(_CS && f <= t) { tputs(tgoto(_CS, t, f), t - f + 1, _putch); return(1); } return(0); } /* windowset() */ /* Scroll n lines up window from line f to line t */ GLOBL int windowup(f, t, n) register int f, t, n; { /* Set scrollregion from f to t and scroll up n lines */ if(_SF && windowset(f, t)) { (void) cursorxy(0, t); while(n-- > 0) tputs(_SF, lines, _putch); /* Reset scroll region to screen */ (void) windowset(0, lines - 1); return(1); } /* Scroll up with a combination of insert and delete line */ else if(_AL && deleteline(f, n)) { (void) insertline(t - n + 1, n); return(1); } return(0); } /* windowup() */ /* Scroll n lines down in window from line f to line t */ GLOBL int windowdown(f, t, n) register int f, t, n; { /* Set scrollregion from f to t and scroll down n lines */ if(_SR && windowset(f, t)) { (void) cursorxy(0, f); while(n-- > 0) tputs(_SR, lines, _putch); /* Reset scroll region to screen */ (void) windowset(0, lines - 1); return(1); } /* Scroll down with a combination of insert and delete line */ else if(_AL && deleteline(t - n + 1 ,n)) { (void) insertline(f, n); return(1); } return(0); } /* windowdown() */ /* Clear the screen */ GLOBL VOID clearscreen() { tputs(_CL, lines, _putch); curx = cury = 0; } /* clearscreen() */ /* Clear from cursor position to end of line */ GLOBL VOID clearline() { if( !_MS && vatt) /* Reset video attributes */ videoset(VA_NORMAL); if(gatt) /* Reset graphic charset */ graphicset(GC_OFF); tputs(_CE, 1, _putch); } /* clearline() */ /* Clear to end of screen */ GLOBL int cleartoend() { if( !_MS && vatt) /* Reset video attributes */ videoset(VA_NORMAL); if(gatt) /* Reset graphic charset */ graphicset(GC_OFF); if(_CD) { tputs(_CD, lines, _putch); return(1); } return(0); } /* cleartoend() */ /* Clear screen from line f to line t */ GLOBL VOID clearwindow(f, t) register int f, t; { /* Clear one line only */ if(f == t) { (void) cursorxy(0, f); tputs(_CE, 1, _putch); } /* Try clear to end of screen */ else if(t == lines - 1 && _CD) { (void) cursorxy(0, f); tputs(_CD, lines, _putch); } /* Try clear by window scrolling */ else if( !windowup(f, t, t - f + 1)) { /* Clear line by line */ while(f <= t) { (void) cursorxy(0, f++); tputs(_CE, 1, _putch); } (void) cursorxy(0, f); } } /* clearwindow() */ /* Turn on/off keypad transmit mode if f is set/unset */ GLOBL VOID keypadxmit(f) register int f; { if(f && _KS) /* Keypad transmit mode */ tputs(_KS, 1, _putch); else if(_KE) /* Keypad normal mode */ tputs(_KE, 1, _putch); } /* keypadxmit() */ /* Do some cursor functions defined in mask c */ GLOBL VOID cursorset(c) register int c; { if(c & CF_SAVE && _SC) { /* Save cursor */ if(vatt) /* Reset video attributes */ videoset(VA_NORMAL); tputs(_SC, 1, _putch); } else if(c & CF_RESTORE && _RC) /* Restore cursor */ tputs(_RC, 1, _putch); if(c & CF_VISIBLE && _VE) /* Cursor visible */ tputs(_VE, 1, _putch); else if(c & CF_INVISIBLE && _VI) /* Cursor invisible */ tputs(_VI, 1, _putch); } /* cursorset() */ /* Init graphical character set if f is set */ GLOBL VOID initgraphics(f) register int f; { register char *ac; GC_HB = '-'; /* Use ascii meta chars as default */ GC_VB = GC_LT = GC_RT = '|'; GC_TT = GC_BT = GC_UL = GC_LL = GC_UR = GC_LR = GC_TG = '+'; graphcap = 0; if(f && (ac = _AC)) { /* If f is set and acsc is defined */ #ifdef AIX GC_UL = *ac ? *ac++ : '+'; /* Upper left corner */ GC_HB = *ac ? *ac++ : '-'; /* Horizontal bar */ GC_UR = *ac ? *ac++ : '+'; /* Upper right corner */ GC_VB = *ac ? *ac++ : '|'; /* Vertical bar */ GC_LR = *ac ? *ac++ : '+'; /* Lower right corner */ GC_LL = *ac ? *ac++ : '+'; /* Lower left corner */ GC_TT = *ac ? *ac++ : '+'; /* Top tee */ GC_RT = *ac ? *ac++ : '|'; /* Right tee */ GC_BT = *ac ? *ac++ : '+'; /* Bottom tee */ GC_LT = *ac ? *ac++ : '|'; /* Left tee */ GC_TG = *ac ? *ac++ : '+'; /* Tag: plus sign */ #else /* !AIX */ # ifdef XENIX /* RG 11/22/91 */ if(*ac == '\0') { GC_UL = _G2 ? *_G2 : '+'; /* Upper left corner */ GC_HB = _GH ? *_GH : '-'; /* Horizontal bar */ GC_UR = _G1 ? *_G1 : '+'; /* Upper right corner */ GC_VB = _GV ? *_GV : '|'; /* Vertical bar */ GC_LR = _G4 ? *_G4 : '+'; /* Lower right corner */ GC_LL = _G3 ? *_G3 : '+'; /* Lower left corner */ GC_TT = _GD ? *_GD : '+'; /* Top tee */ GC_RT = _GL ? *_GL : '|'; /* Right tee */ GC_BT = _GU ? *_GU : '+'; /* Bottom tee */ GC_LT = _GR ? *_GR : '|'; /* Left tee */ GC_TG = _GC ? *_GC : '+'; /* Tag: plus sign */ } # endif /* XENIX */ do { switch(*ac) { default: /* Skip */ ++ac; case '\0': /* End of acsc */ break; case 'j': /* Lower right corner */ GC_LR = *++ac ? *ac : '+'; break; case 'k': /* Upper right corner */ GC_UR = *++ac ? *ac : '+'; break; case 'l': /* Upper left corner */ GC_UL = *++ac ? *ac : '+'; break; case 'm': /* Lower left corner */ GC_LL = *++ac ? *ac : '+'; break; case 'q': /* Horizontal bar */ GC_HB = *++ac ? *ac : '-'; break; case 't': /* Left tee */ GC_LT = *++ac ? *ac : '|'; break; case 'u': /* Right tee */ GC_RT = *++ac ? *ac : '|'; break; case 'v': /* Bottom tee */ GC_BT = *++ac ? *ac : '+'; break; case 'w': /* Top tee */ GC_TT = *++ac ? *ac : '+'; break; case 'x': /* Vertical bar */ GC_VB = *++ac ? *ac : '|'; break; case '`': /* Tag sign: diamond */ GC_TG = *++ac ? *ac : '+'; break; case 'n': /* Alternate tag sign: plus */ if(*++ac && GC_TG == '+') GC_TG = *ac; break; } } while(*ac && *++ac); #endif /* AIX */ graphcap = 1; if(_EA) tputs(_EA, 1, _putch); } } /* initgraphics() */ /* * TERMINAL ROUTINES */ /* Switch terminal to raw mode */ GLOBL VOID terminalraw(f) register int f; { if(_TI && f) tputs(_TI, 1, _putch); curx = cury = HUGE; keypadxmit(KP_XMIT); flushout(); (void) ioctl(fileno(stdin), TCSETA, &raw); } /* terminalraw() */ /* Reset terminal to initial mode */ GLOBL VOID terminalreset(f) register int f; { if(f && _TE) tputs(_TE, 1, _putch); curx = cury = HUGE; keypadxmit(KP_NORMAL); videoset(VA_NORMAL); flushout(); (void) ioctl(fileno(stdin), TCSETA, &tty); } /* terminalreset() */ /* Enable signal handling */ GLOBL VOID enablesignals() { #ifdef BSD raw.sg_flags &= ~RAW; raw.sg_flags |= CBREAK; #else /* SYSV */ raw.c_lflag |= ISIG; #endif /* BSD */ flushout(); (void) ioctl(fileno(stdin), TCSETA, &raw); } /* enablesignals() */ /* Disable signal handling */ GLOBL VOID disablesignals() { #ifdef BSD raw.sg_flags &= ~CBREAK; raw.sg_flags |= RAW; #else /* SYSV */ raw.c_lflag &= ~ISIG; #endif /* BSD */ flushout(); (void) ioctl(fileno(stdin), TCSETA, &raw); } /* disablesignals() */ /* * INITIALIZATION AND RESET */ /* Init screen, return error message on error */ GLOBL char *initscreen(term) register char *term; { char termcap[TCAPLEN]; char *cp = termbuf, *pc; /* Get terminal type and init terminal data base */ if(term == NULL) return("Terminal variable TERM not defined"); switch(tgetent(termcap, term)) { case -1 : return("Terminfo library not found"); case 0 : return("Unknown terminal type"); } /* Get all needed terminal capabilities from data base */ if((columns = tgetnum("co")) <= 0) columns = MINCOLS; if((lines = tgetnum("li")) <= 0) lines = MINLINS; UP = tgetstr("up", &cp); BC = tgetstr("bc", &cp); if(pc = tgetstr("pc", &cp)) PC = *pc; _CM = tgetstr("cm", &cp); _CL = tgetstr("cl", &cp); _CE = tgetstr("ce", &cp); /* Cursor motion, clear screen and clear line must be defined! */ if(_CM == NULL || _CE == NULL || _CL == NULL) return("Terminal too stupid"); _XR = tgetflag("xr"); _MS = tgetflag("ms"); _SG = tgetnum("sg"); #ifdef BSD _UG = tgetnum("ug"); #else /* SYSV */ _UG = _SG; #endif /* BSD */ _CD = tgetstr("cd", &cp); _TI = tgetstr("ti", &cp); _TE = tgetstr("te", &cp); _KS = tgetstr("ks", &cp); _KE = tgetstr("ke", &cp); if((_ME = tgetstr("me", &cp)) == NULL) _ME = tgetstr("se", &cp); if((_MR = tgetstr("mr", &cp)) == NULL) _MR = tgetstr("so", &cp); if(_US = tgetstr("us", &cp)) { if((_UE = tgetstr("ue", &cp)) && _ME && EQU(_ME, _UE)) _UE = NULL; } /* No more video attributes and no cursor visibility functions for */ /* terminals with standout mode and/or underline glitch (i.e. bando) */ if(_UG <= 0 && _SG <= 0) { _MB = tgetstr("mb", &cp); _MD = tgetstr("md", &cp); _MH = tgetstr("mh", &cp); _VS = tgetstr("vs", &cp); _VI = tgetstr("vi", &cp); _VE = tgetstr("ve", &cp); } _IC = tgetstr("ic", &cp); _DC = tgetstr("dc", &cp); _AL = tgetstr("al", &cp); _DL = tgetstr("dl", &cp); _CS = tgetstr("cs", &cp); _NL = tgetstr("nl", &cp); _CR = tgetstr("cr", &cp); _LE = tgetstr("le", &cp); _DO = tgetstr("do", &cp); _SF = tgetstr("sf", &cp); _SR = tgetstr("sr", &cp); _SC = tgetstr("sc", &cp); _RC = tgetstr("rc", &cp); _BL = tgetstr("bl", &cp); #ifdef AIX _AC = tgetstr("bx", &cp); /* Use box1 (bx) instead of acsc (ac) */ if( !(_AS = tgetstr("as", &cp))) _AS = tgetstr("f1", &cp); /* 3.2: Use font1 (f1) instead of smacs (as) */ if( !(_AE = tgetstr("ae", &cp))) _AE = tgetstr("f0", &cp); /* 3.2: Use font0 (f0) instead of rmacs (ae) */ #else /* ACSC */ _EA = tgetstr("eA", &cp); _AC = tgetstr("ac", &cp); _AS = tgetstr("as", &cp); _AE = tgetstr("ae", &cp); # ifdef XENIX /* RG 11/22/91 */ if(_AC == NULL) { _AC = ""; /* Use empty string _AC as flag */ _AS = tgetstr("GS", &cp); _AE = tgetstr("GE", &cp); _G2 = tgetstr("G2", &cp); _GH = tgetstr("GH", &cp); _G1 = tgetstr("G1", &cp); _GV = tgetstr("GV", &cp); _G4 = tgetstr("G4", &cp); _G3 = tgetstr("G3", &cp); _GD = tgetstr("GD", &cp); _GL = tgetstr("GL", &cp); _GU = tgetstr("GU", &cp); _GR = tgetstr("GR", &cp); _GC = tgetstr("GC", &cp); } # endif /* XENIX */ #endif /* AIX */ if(_CS && !_SF) { if(_DO) _SF = _DO; else if(_NL) _SF = _NL; else _SF = "\n"; } if(_VS && !_VE) _VE = _VS; /* Set capability flags */ glitchcap = _UG > 0 || _SG > 0; scrollcap = (_AL && _DL) || (_CS && _SF && _SR); cursorcap = 0; if(_VE && _VI) cursorcap |= CF_VISIBLE|CF_INVISIBLE; if(_SC && _RC) cursorcap |= CF_SAVE|CF_RESTORE; videocap = 0; if(_MR) videocap |= VA_REVERSE; if(_MB) videocap |= VA_BLINK; if(_MD) videocap |= VA_BOLD; if(_MH) videocap |= VA_HALF; if(_US) videocap |= VA_UNDERLINE; /* Initialize key bindings */ initbindings(term, &cp); /* Get terminal driver data and initialize raw mode */ if(ioctl(fileno(stdin), TCGETA, &tty) < 0) return("Error in ioctl"); #ifdef STRUCTCOPY (void) STRUCTCOPY(tty, raw, sizeof(tty)); #else /* STRUCTASSIGN */ raw = tty; #endif /* STRUCTCOPY */ #ifdef BSD ospeed = tty.sg_ospeed; raw.sg_flags |= ANYP|RAW; raw.sg_flags &= ~(ECHO|XTABS); #else /* SYSV */ raw.c_cc[VMIN] = 1; raw.c_cc[VTIME] = 0; raw.c_iflag |= IGNBRK; raw.c_iflag &= ~(ICRNL|ISTRIP); raw.c_oflag |= ONLCR|TAB0; raw.c_cflag |= CS8; raw.c_cflag &= ~PARENB; raw.c_lflag &= ~(ECHO|ICANON|ISIG); #endif /* BSD */ #if !defined(BSD) && !defined(HASFIONREAD) /* Get keyboard flag and set to no delay mode */ kbflag = fcntl(fileno(stdin), F_GETFL, 0) & O_NDELAY; #endif /* !BSD && !HASFIONREAD */ return(NULL); } /* initscreen() */ /* Restore screen and exit */ GLOBL VOID exitscreen(rval) int rval; { cursorset(CF_VISIBLE); (void) cursorxy(0, lines-1); terminalreset(1); flushout(); exit(rval); } /* exitscreen() */ f( !windowup(f, t, t - f + 1)) { /* Clear line by line */ while(f <= t) { (void) cursorxy(0, f++); tputs(_CE, 1, _putch); } (void) cursorxy(0, f); } } /* clearwindow() */ /* Turn on/off keypad transmit mode if f is set/unset */ GLOBL VOID keypadxmit(f) register int f; { if(f && _KS) /* Keypad transmit mode */ tputs(_KS, 1, _putch); else if(_KE) /* Keypad normal mode */ tputs(_KE,utree/src/tree.c1006440013110001060000017322205255652765010252 0 0 1 0 /* * TREE.C * UTREE tree menu routines. * 3.01-um klin, Tue Jun 4 14:19:16 1991 * klin, Tue Oct 15 14:02:37 1991, Handling of symlinks changed * klin, Sat Oct 26 15:07:06 1991, Tagging files changed * Sorting and zooming changed * Select directories added * Print tree list added * More local functions * 3.02-um klin, Fri Nov 1 10:46:14 1991, Screen layout changed * Goto parent added * klin, Sun Nov 24 19:30:43 1991, Cd to current directory before * executing some commands * Video attributes changed * 3.03-um klin, Tue Feb 11 22:58:03 1992, Screen layout changed * Shell escape, variables and * filetype commands changed * klin, Sat Feb 15 14:44:52 1992, Video handling and partinioning of * directory and file windows changed * klin, Sat Feb 22 10:34:03 1992, Many commands changed to work * on current directory or subtree * or tagged files * klin, Sun Feb 23 17:32:57 1992, Key handling and key bindings * changed * No removing of subtrees * a klin, Sun Mar 15 19:08:25 1992, Bug fix in gotree() * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. */ #ifndef lint static char sccsid[] = "@(#) utree 3.03a-um (klin) Mrz 15 1992 tree.c"; #endif /* !lint */ #include "defs.h" /* ---- Local variables and definitions ------------------------------- */ LOCAL dlist *tdlist = DNULL; /* Top dlist on tree screen */ LOCAL dlist *mdlist = DNULL; /* Marked dlist entry */ LOCAL dlist *tdlast = DNULL; /* Last tdlist */ LOCAL dlist *cdlast = DNULL; /* Last current dlist entry */ LOCAL char *mustup = "Tree must be updated. Continue ?"; LOCAL char *cancel = "(Hit BREAK to abort)"; /* Tree menu commands in help line */ LOCAL char *tmline = " Help Backup Chdir Find Grep Info List Mkdir Out Rmdir Stat Tag Untag Quit"; LOCAL char *menuline = NULL; #define BCOL 0 /* Column for tree position bar */ #define SCOL 1 /* Column for tag or mark sign */ #define TCOL 2 /* Startcolumn for directory tree */ #define UCOL -1 /* Column for number of files unknown */ #define FCOL -5 /* Column for number of files */ #define SLIN (lastdline+1) /* Line for separator line */ #define NFFMT "%5d" /* Format for number of files */ #define ONTR(c) ((c) < 'a') /* Command works on subtree */ #define ONTG(c) ((c) < 'a') /* Command works on tagged files */ /* ---- External variables and functions ------------------------------ */ EXTRN FILE *popen(); EXTRN char *writedlist(); EXTRN char *selectdir(); LOCAL char *dirselect(); /* ---- Functions and procedures -------------------------------------- */ /* * TREE DISPLAY ROUTINES */ /* Display files of current directory in file window starting at line l */ LOCAL VOID showflist(l) register int l; { register int f, i; if((f = (l - firstfline) * fperline) < CNFIL) { while(f < CNFIL && l++ <= lastfline) for(i = 0; f < CNFIL && i < fperline; f++, i++) { putfile(cdlist, f, 0); clearline(); } if(l <= lastfline) clearwindow(l, lastfline); } else if(CNFIL == 0 && l == firstfline) clearwindow(l, lastfline); } /* showflist() */ /* Display directory list entry dp */ LOCAL VOID showdlist(dp, f) register dlist *dp; register int f; { /* Is directory on screen? */ if(dp && DTROW(dp) >= firstdline && DTROW(dp) <= lastdline) { /* Display directory tag marker */ if(DNTAG(dp)) { (void) setgraphic(GC_ON); (void) putcxy(SCOL, DTROW(dp), GC_TG); (void) setgraphic(GC_OFF); } else (void) putcxy(SCOL, DTROW(dp), ' '); /* Display directory filename */ if(f && dp == cdlist) { /* Highlight current directory */ if(CCANC) { setvideo(DA_BOLDREV); (void) putfxy(TCOL+DTCOL(dp)-1, DTROW(dp), 0, ">%s ", CFNAM); } else { setvideo(DA_HALFREV); (void) putfxy(TCOL+DTCOL(dp)-1, DTROW(dp), 0, " %s ", CFNAM); } } else { /* Other directory */ setvideo(DCANC(dp) ? DA_BOLD : DA_HALF); (void) putfxy(TCOL+DTCOL(dp)-1, DTROW(dp), 0, " %s ", DFNAM(dp)); } /* Display number of files if known */ setvideo(DA_NORMAL); if(DCANC(dp)) { if(DFLAG(dp) != FL_FIL) putcxy(UCOL, DTROW(dp), '?'); else (void) putfxy(FCOL, DTROW(dp), 0, NFFMT, DNFIL(dp)); } else putcxy(UCOL, DTROW(dp), '-'); } } /* showdlist() */ /* Display whole directory line for directory dp */ LOCAL VOID showdline(dp) register dlist *dp; { register int i, j; /* Is directory on screen? */ if(dp && DTROW(dp) >= firstdline && DTROW(dp) <= lastdline) { (void) cursorxy(TCOL, DTROW(dp)); clearline(); (void) setgraphic(GC_ON); if(dp == droot) /* Root directory */ (void) putchar(DNEXT(dp) ? GC_UL : GC_HB); else { /* Other directory */ (void) putchar(DNEXT(dp) ? GC_VB : GC_LL); for(i = 1, j = DLEVL(dp) - 1; i < j; i++) if(DINFO(dp) & (1 << (i-1))) putcxy(TCOL+i*indent, DTROW(dp), GC_VB); if(DINFO(dp) & (1 << (i-1))) putcxy(TCOL+i*indent, DTROW(dp), GC_LT); else putcxy(TCOL+i*indent, DTROW(dp), GC_LL); } for(i = 2; i < indent; i++) (void) putchar(GC_HB); (void) setgraphic(GC_OFF); showdlist(dp, 0); /* Display name */ } } /* showdline() */ /* Display the directory list from line f to line t */ LOCAL VOID showdtree(f, t, c) register int f, t, c; { register dlist *dp; /* Search for first directory to print ... */ for(dp = tdlist; dp && DTROW(dp) < f; dp = (dlist *) DNEXT(dp)) ; /* ... and print out from f to t */ for( ; dp && DTROW(dp) <= t; dp = (dlist *) DNEXT(dp)) showdline(dp); /* Clear to end of tree window */ if(c && dp && DTROW(dp) < lastdline) clearwindow(DTROW(dp), lastdline); } /* showdtree() */ /* Display tree position bar */ LOCAL VOID showtbar() { static int bar = 0; register dlist *dp; register int f, l, i; if(dircount > (ndlines + 1)) { /* More dirs than lines */ dp = tdlist; while(DNEXT(dp) && DTROW(dp) < lastdline) dp = (dlist *) DNEXT(dp); f = ((DDNUM(tdlist) + 1) * ndlines) / dircount + firstdline; l = ((DDNUM(dp) + 1) * ndlines) / dircount + firstdline; if(f <= firstdline) f = DPREV(tdlist) ? firstdline + 1 : firstdline; if(l >= lastdline) l = DNEXT(dp) ? lastdline - 1 : lastdline; i = firstdline; while(i < f) putcxy(BCOL, i++, ' '); if(videomode && (videocap & VA_REVERSE)) { setvideo(DA_HALFREV); putcxy(BCOL, i++, ' '); while(i <= l) putcxy(BCOL, i++, ' '); setvideo(DA_NORMAL); } else { (void) setgraphic(GC_ON); putcxy(BCOL, i++, GC_TT); while(i < l) putcxy(BCOL, i++, GC_VB); putcxy(BCOL, i++, GC_BT); (void) setgraphic(GC_OFF); } while(i <= lastdline) putcxy(BCOL, i++, ' '); bar = 1; } else if(bar) { for(i = firstdline; i <= lastdline; i++) putcxy(BCOL, i, ' '); bar = 0; } } /* showtbar() */ /* Display separator line between tree and file window */ LOCAL VOID showsline() { static int lb = 0; register dlist *dp; register char *cp, *cz; register int i, j; cp = CPNAM + strlen(rootdir); cz = CZOOM ? CZOOM : "*"; setvideo(DA_REVERSE); if(*cp) i = putfxy(0, SLIN, 0, ".%s/%s: %d file(s) %d dir(s)", cp, cz, CNFIL, CNDIR); else i = putfxy(0, SLIN, 0, "./%s: %d file(s) %d dir(s)", cz, CNFIL, CNDIR); while(i++ < columns) (void) putchar(' '); setvideo(DA_NORMAL); } /* showsline() */ /* * TREE SCREEN UPDATE AND REFRESH */ /* Update tree screen */ LOCAL int updatetree(f) register int f; { register int n, rv; if(treeflag & SF_LIST) { /* Check current directory */ if((CFLAG != FL_FIL || changedlist(cdlist)) && newflist(cdlist) != RV_OK) return(RV_ERR); } rv = RV_OK; if(keypressed()) /* There are chars in input buffer */ return(rv); if(treeflag == SF_FULL) { /* Full screen update */ clearscreen(); cdlast = tdlast = DNULL; } if(treeflag & SF_TREE) { /* Tree screen */ n = tdlast ? DDNUM(tdlast) - DDNUM(tdlist) : 0; if(CANSCROLL && n < 0 && n > -ndlines) { (void) windowup(firstdline, lastdline, -n); showdtree(lastdline + n + 1, lastdline, 0); showdlist(cdlast, 0); } else if(CANSCROLL && n > 0 && n < ndlines) { (void) windowdown(firstdline, lastdline, n); showdtree(firstdline, firstdline + n - 1, 0); showdlist(cdlast, 0); } else showdtree(firstdline, lastdline, treeflag != SF_FULL); treeflag |= SF_PBAR; } else if(treeflag & SF_LAST) /* Last directory */ showdlist(cdlast, 0); if(treeflag & SF_PBAR) /* Tree position bar */ showtbar(); if(treeflag & SF_LIST) { /* Current directory */ showdlist(cdlist, 1); showsline(); } else if(treeflag & SF_SEPL) showsline(); if(treeflag & SF_FILE) /* File list */ showflist(firstfline); if(treeflag & SF_HELP && !f) /* Help line */ putmenu("TREE:", menuline); if(treeflag & SF_ECHO && !f) /* Echo line */ (void) putecho("%s: %d dir(s) %d file(s)", rootdir, dircount, filecount); /* Position to current directory, set variables and return */ (void) cursorxy(TCOL+DTCOL(cdlist)-1, DTROW(cdlist)); cdlast = cdlist; tdlast = tdlist; treeflag = 0; return(rv); } /* updatetree() */ /* * SCROLL UP OR DOWN DIRECTORY TREE */ /* Scroll directory tree */ LOCAL int scrolltree(dir) register int dir; { register dlist *dp; register int i; /* Is scrolling possible? */ if((dir < 0 && DPREV(tdlist) == GNULL) || (dir > 0 && CNEXT == GNULL)) return(0); if(dir < 0) { /* Scroll down */ tdlist = (dlist *) DPREV(tdlist); if(CANSCROLL) { (void) windowdown(firstdline, lastdline, 1); showdline(tdlist); treeflag |= SF_MOVE|SF_PBAR; } else treeflag |= SF_TREE|SF_LIST|SF_PBAR; } else { /* Scroll up */ for(dp = tdlist, i = ndlines; i >= 0 ; i--) if(((dp = (dlist *) DNEXT(dp))) == DNULL) return(0); tdlist = (dlist *) DNEXT(tdlist); if(CANSCROLL) { (void) windowup(firstdline, lastdline, 1); for(dp = tdlist; DTROW(dp) < lastdline; dp = (dlist *) DNEXT(dp)) ; showdline(dp); treeflag |= SF_MOVE|SF_PBAR; } else treeflag |= SF_TREE|SF_LIST|SF_PBAR; } if(DTROW(cdlist) < firstdline) /* Change current directory */ (void) gotree(1); /* if out of screen */ else if(DTROW(cdlist) > lastdline) (void) gotree(-1); return(1); } /* scrolltree() */ /* * CHECK TREE */ /* Check if all directories in tree are unchanged or read in */ LOCAL int checktree(msg) register char *msg; { register dlist *dp; register int c; if(VARSET(V_ST) && scandlist(cdlist) != RV_OK) return(RV_NUL); for(dp = (dlist *) CNEXT; dp && DLEVL(dp) > CLEVL; dp = (dlist *) DNEXT(dp)) { if(DFLAG(dp) != FL_FIL) { ++buildflag; bell(VARSET(V_BL)); puthelp("%s (Y:continue ELSE:quit)", who); c = hitakey(msg, echoline, DA_NONE); return(c == 'y' ? RV_OK : c); } } return(RV_OK); } /* checktree() */ /* * TAG/UNTAG FILES IN TREE */ /* Tag files in directory tree */ LOCAL int tagtree(t) register int t; { char input[PATLEN]; register dlist *dp; register int f, c, ff, nt; who = t ? "TAG TREE" : "TAG DIRECTORY"; if(t && (c = checktree(mustup)) != RV_OK) return(c); puthelp("%s: Give file pattern (CR:%s)", who, tpattern[0] ? tpattern : "quit"); if((c = getpattern(input, "Tag which files:")) == RV_OK) (void) strcpy(tpattern, input); else if(c < RV_NUL || (c == RV_NUL && tpattern[0] == '\0')) return(c); /* Walk thru subtree */ puthelp("%s %s", who, cancel); dp = cdlist; ff = 0; do { nt = DNTAG(dp); if( !DCANC(dp)) continue; else if(DFLAG(dp) != FL_FIL && (f = newflist(dp)) != RV_OK) /* Update! */ return(f); else if(keypressed() && hitakey(NULL) < RV_NUL) break; /* Walk thru file list */ for(f = 0; f < DNFIL(dp); f++) if(umatch(dp, f, tpattern) > 0) { FITAG(dp, f) = FF_TAG; ++DNTAG(dp); ++ff; } if(nt != DNTAG(dp)) showdlist(dp, 0); } while(t && (dp = (dlist *) DNEXT(dp)) && DLEVL(dp) > CLEVL); if(ff > 0) treeflag |= SF_FILE|SF_LIST; puthelp("%s: %s %s", who, tpattern, hitkey); (void) putecho("Tagged %d file(s) matching %s", ff, tpattern); return(hitakey(NULL)); } /* tagtree() */ /* Untag files in directory tree */ LOCAL int untagtree(t) register int t; { char pat[PATLEN]; register dlist *dp; register int f, c, ff, nt; who = t ? "UNTAG TREE" : "UNTAG DIRECTORY"; if(t && (c = checktree(mustup)) != RV_OK) return(c); puthelp("%s: Give file pattern (CR:all files)", who); if((c = getpattern(pat, "Untag which files:")) < RV_NUL) return(c); else if(c == RV_NUL) (void) strcpy(pat, "*"); /* Walk thru subtree */ puthelp("%s %s", who, cancel); dp = cdlist; ff = 0; do { nt = DNTAG(dp); if( !DCANC(dp)) continue; else if(DFLAG(dp) != FL_FIL && (f = newflist(dp)) != RV_OK) return(f); else if(keypressed() && hitakey(NULL) < RV_NUL) break; /* Walk thru file list */ for(f = 0; f < DNFIL(dp); f++) if(ISTAG(dp, f) && umatch(dp, f, pat) > 0) { FITAG(dp, f) = FF_NONE; if(DNTAG(dp) > 0) --DNTAG(dp); ++ff; } if(nt != DNTAG(dp)) showdlist(dp, 0); } while(t && (dp = (dlist *) DNEXT(dp)) && DLEVL(dp) > CLEVL); if(ff > 0) treeflag |= SF_FILE|SF_LIST; puthelp("%s: %s %s", who, pat, hitkey); (void) putecho("Untagged %d file(s) matching %s", ff, pat); return(hitakey(NULL)); } /* untagtree() */ /* Check if there are tagged files */ LOCAL int checktagged() { register dlist *dp; register int f, n; /* Walk thru subtree */ dp = cdlist; n = 0; do { if( !DCANC(dp)) continue; /* Walk thru file list */ for(f = 0; f < DNFIL(dp); f++) if(ISTAG(dp, f)) ++n; } while((dp = (dlist *) DNEXT(dp)) && DLEVL(dp) > CLEVL); return(n); } /* checktagged() */ /* * COMMANDS WORKING ON TAGGED FILES */ /* Remove tagged files in tree */ GLOBL int removetagged() { register dlist *dp; register int c, f, n, rflag; who = "REMOVE TAGGED FILES"; if(checktagged() == 0) { /* No tagged files */ puthelp("%s %s", who, hitkey); return(errequest(CFNAM, "No tagged files found")); } puthelp("%s (Y:request N:don't request ELSE:quit)", who); c = hitakey("Request before removing tagged files ?", echoline, DA_NONE); if( !(c == 'y' || c == 'n')) return(c); rflag = c == 'y'; if(rflag) puthelp("REMOVE FILE (Y:remove Q:quit ELSE:don't remove)"); else puthelp("%s (In progress ...)", who); /* Walk thru subtree */ dp = cdlist; n = 0; do { if(CNTAG > 0) { /* Contains tagged files */ treeflag &= ~(SF_ECHO|SF_HELP); (void) updatetree(0); /* Walk thru file list */ for(f = CNFIL - 1; f >= 0; f--) { if(ISTAG(cdlist, f)) { c = removefile(cdlist, f, rflag); if(c == 'q' || c < RV_NUL) goto ENDLOOP; else if(c == RV_OK) { ++n; FITAG(cdlist, f) = FF_NONE; if(CNTAG > 0) --CNTAG; if(rflag) showflist(firstfline); } } } if(CFLAG == FL_CHG) { if((c = newflist(cdlist)) != RV_OK) goto ENDLOOP; else showdlist(cdlist, 0); } } } while(gotree(1) && CLEVL > DLEVL(dp)); ENDLOOP: if(c == RV_END) return(c); while(cdlist != dp) /* Position to starting directory */ (void) gotree(-1); puthelp("%s %s", who, hitkey); if(n > 0) { treeflag = SF_FULL; (void) putecho("Removed %d tagged file(s)", n); } else (void) putecho("No files removed"); return(hitakey(NULL)); } /* removetagged() */ LOCAL char *dirselect(what) register char *what; { register char *dn; dn = selectdir(what); treeflag = SF_FULL; treeflag &= ~(SF_HELP|SF_ECHO); (void) updatetree(0); return(dn); } /* dirselect() */ /* Move tagged files in tree */ GLOBL int movetagged() { char name[NAMELEN]; struct stat st; register dlist *dp; register char *to; register int c, f, n, rflag; who = "MOVE TAGGED FILES"; if(checktagged() == 0) { /* No tagged files */ puthelp("%s %s", who, hitkey); return(errequest(CFNAM, "No tagged files found")); } puthelp("%s: Give destination directory (CR:select one)", who); c = putecho("Move tagged files to:"); if((c = getline(name, sizeof(name), c, 0, NULL, CLIST, 0)) < RV_NUL) return(c); if(c == RV_OK) { to = strcpy(name, pathname(name, CPNAM)); if((*statfun)(to, &st) < 0) { puthelp("%s %s", who, hitkey); return(errequest(name, "Cannot stat")); } else if(STFMT(&st) != S_IFDIR) { puthelp("%s %s", who, hitkey); return(errequest(name, "Is not a directory")); } } else if((to = dirselect("moving files")) == NULL) { fileflag |= SF_ECHO|SF_HELP; return(RV_NUL); } puthelp("%s (Y:request N:don't request ELSE:quit)", who); c = hitakey("Request before moving tagged files ?", echoline, DA_NONE); if( !(c == 'y' || c == 'n')) return(c); rflag = c == 'y'; if(rflag) puthelp("MOVE FILE (Y:copy Q:quit ELSE:don't copy)"); else puthelp("%s (In progress ...)", who); /* Walk thru subtree */ dp = cdlist; n = 0; do { if(CNTAG > 0) { /* Contains tagged files */ treeflag &= ~(SF_ECHO|SF_HELP); (void) updatetree(0); /* Walk thru file list */ for(f = CNFIL - 1; f >= 0; f--) { if(ISTAG(cdlist, f)) { c = movefile(cdlist, f, to, rflag); if(c == 'q' || c < RV_NUL) goto ENDLOOP; else if(c == RV_OK) { ++n; FITAG(cdlist, f) = FF_NONE; if(CNTAG > 0) --CNTAG; } } } if(CFLAG == FL_CHG) { if((c = newflist(cdlist)) != RV_OK) goto ENDLOOP; else showdlist(cdlist, 0); } } } while(gotree(1) && CLEVL > DLEVL(dp)); ENDLOOP: if(c == RV_END) return(c); checkdlist(to); while(cdlist != dp) /* Position to starting directory */ (void) gotree(-1); puthelp("%s %s", who, hitkey); if(n > 0) { treeflag = SF_FULL; (void) putecho("Moved %d file(s) to %s", n, to); } else (void) putecho("No files moved"); return(hitakey(NULL)); } /* movetagged() */ /* Copy tagged files in tree */ GLOBL int copytagged() { char name[NAMELEN]; struct stat st; register dlist *dp; register char *to; register int c, f, n, rflag; who = "COPY TAGGED FILES"; if(checktagged() == 0) { /* No tagged files */ puthelp("%s %s", who, hitkey); return(errequest(CFNAM, "No tagged files found")); } puthelp("%s: Give destination directory (CR:select one)", who); c = putecho("Copy tagged files to:"); if((c = getline(name, sizeof(name), c, 0, NULL, CLIST, 0)) < RV_NUL) return(c); if(c == RV_OK) { to = strcpy(name, pathname(name, CPNAM)); if((*statfun)(to, &st) < 0) { puthelp("%s %s", who, hitkey); return(errequest(name, "Cannot stat")); } else if(STFMT(&st) != S_IFDIR) { puthelp("%s %s", who, hitkey); return(errequest(name, "Is not a directory")); } } else if((to = dirselect("copying files")) == NULL) { fileflag |= SF_ECHO|SF_HELP; return(RV_NUL); } puthelp("%s (Y:request N:don't request ELSE:quit)", who); c = hitakey("Request before copying tagged files ?", echoline, DA_NONE); if( !(c == 'y' || c == 'n')) return(c); rflag = c == 'y'; if(rflag) puthelp("COPY FILE (Y:copy Q:quit ELSE:don't copy)"); else puthelp("%s (In progress ...)", who); /* Walk thru subtree */ dp = cdlist; n = 0; do { if(CNTAG > 0) { /* Contains tagged files */ treeflag &= ~(SF_ECHO|SF_HELP); (void) updatetree(0); /* Walk thru file list */ for(f = CNFIL - 1; f >= 0; f--) { if(ISTAG(cdlist, f)) { c = copyfile(cdlist, f, to, rflag); if(c == 'q' || c < RV_NUL) goto ENDLOOP; else if(c == RV_OK) { ++n; FITAG(cdlist, f) = FF_NONE; if(CNTAG > 0) --CNTAG; } } } } } while(gotree(1) && CLEVL > DLEVL(dp)); ENDLOOP: if(c == RV_END) return(c); checkdlist(to); while(cdlist != dp) /* Position to starting directory */ (void) gotree(-1); puthelp("%s %s", who, hitkey); if(n > 0) { treeflag = SF_FULL; (void) putecho("Copied %d file(s) to %s", n, to); } else (void) putecho("No files copied"); return(hitakey(NULL)); } /* copytagged() */ /* * RESIZE DIRECTORY TREE WINDOW */ /* Recalculate and update dlists on directory window */ GLOBL VOID calculatetree(n) register int n; { register dlist *dp; if(tdlist && cdlist) { /* Tree window needs update */ if(n < 0 && DTROW(cdlist) > lastdline) { while(DTROW(cdlist) > lastdline) tdlist = (dlist *) DNEXT(tdlist); } else if(n > 0) { for( ; n > 0; n--) { for(dp = cdlist; dp && DTROW(dp) < lastdline; dp = (dlist *) DNEXT(dp)) ; if(DPREV(tdlist) && dp == DNULL) tdlist = (dlist *) DPREV(tdlist); else break; } } } } /* calculatetree() */ /* Enlarge or shrink the tree window */ LOCAL int resizetree(dir) register int dir; { register dlist *dp; /* Enlarge tree window if possible */ if(dir > 0 && nflines > MINFIL) { ++lastdline; for(dp = cdlist; dp && DTROW(dp) < lastdline; dp = (dlist *) DNEXT(dp)) ; if(DPREV(tdlist) && dp == DNULL) { tdlist = (dlist *) DPREV(tdlist); if(CANSCROLL) { (void) windowdown(firstdline, lastfline, 1); showdline(tdlist); treeflag |= SF_MOVE; } else treeflag |= SF_TREE|SF_LIST; } else if(CANSCROLL) { (void) windowdown(lastdline, lastfline, 1); showdline(dp); treeflag |= SF_MOVE; } else treeflag |= SF_TREE|SF_LIST|SF_FILE; ++ndlines; --nflines; ++firstfline; checklines(0); } /* Shrink tree window if possible */ else if(dir < 0 && nflines < calculatelines()) { --ndlines; --firstfline; if(DTROW(cdlist) == lastdline) { tdlist = (dlist *) DNEXT(tdlist); if(CANSCROLL) { (void) windowup(firstdline, lastfline, 1); showflist(lastfline); treeflag |= SF_MOVE; } else treeflag |= SF_TREE|SF_LIST|SF_FILE; } else if(CANSCROLL) { (void) windowup(lastdline, lastfline, 1); showflist(lastfline); treeflag |= SF_MOVE; } else treeflag |= SF_TREE|SF_LIST|SF_FILE; --lastdline; ++nflines; checklines(0); } else return(0); treeflag |= SF_SEPL|SF_PBAR; return(1); } /* resizetree() */ /* * INFORMATION AND STATUS OF DIRECTORY */ /* Show some directory information */ LOCAL int infodir() { char buf[EXECLEN]; struct stat st; register FILE *pp; register int i; who = "INFO"; puthelp("%s: %s %s", who, CPNAM, hitkey); if((*statfun)(CPNAM, &st)) return(errequest(CFNAM, "Cannot stat")); (void) putecho("Scanning disk for disk usage, wait a moment ... "); flushout(); (void) sprintf(buf, "%s %s", DUDIR, CPNAM); if(pp = popen(buf, "r")) { /* Let du summarize used blocks */ (void) fgets(buf, sizeof(buf), pp); (void) pclose(pp); i = 0; while(buf[i] >= '0' && buf[i] <= '9') ++i; buf[i] = '\0'; } else /* Error in calling du */ (void) strcpy(buf, "?"); (void) putecho("Access:%s Blocks:%s Files:%d Dirs:%d Date:%s", fileaccess(&st), buf, CNFIL, CNDIR, ctime(&st.st_mtime)); return(hitakey(NULL)); } /* infodir() */ /* Show and change directory status */ LOCAL int statusdir() { register int c; c = statusfile(CPNAM, 0); if(buildflag) { /* Rebuilding needed */ c = newflist(cdlist); buildflag = 0; } return(c); } /* statusdir() */ /* * BACKUP DIRECTORY OR TREE */ /* Create filelist for backup */ LOCAL int backuplist(name, t) register char *name; register int t; { char fname[NAMELEN]; register FILE *file; register dlist *dp; register char *dname; register int dlen, i; (void) strcpy(fname, pathname(name, CPNAM)); if(file = fopen(fname, "w")) { /* Write out tree or subtree list */ dlen = strlen(CPNAM); for(i = 0; i < CNFIL ; i++) if( !t || ISTAG(cdlist, i)) { (void) fprintf(file, "%s\n", FFNAM(cdlist, i)); FITAG(cdlist, i) = FF_NONE; if(CNTAG > 0) --CNTAG; } for(dp = (dlist *) CNEXT; dp && DLEVL(dp) > CLEVL; dp = (dlist *) DNEXT(dp)) { if( !DCANC(dp)) continue; dname = &(DPNAM(dp)[dlen+1]); for(i = 0; i < DNFIL(dp); i++) if( !t || ISTAG(dp, i)) { (void) fprintf(file, "%s\n", pathname(FFNAM(dp, i), dname)); FITAG(dp, i) = FF_NONE; if(DNTAG(dp) > 0) --DNTAG(dp); } } (void) fclose(file); } else { puthelp("%s %s", who, hitkey); return(errequest(prgname, "Cannot create backup list file")); } checkdlist(fname); /* Update needed? */ return(buildflag ? updatedlist() : RV_OK); } /* backuplist() */ /* Backup directory/subtree or tagged files in subtree */ LOCAL int backupdir(t) register int t; { char name[INPLEN], list[NAMELEN], buf[EXECLEN]; register dlist *dp; register int c; who = t ? "BACKUP TAGGED FILES" : "BACKUP TREE"; if( !VARSET(V_BK)) { /* No backup program */ puthelp("%s %s", who, hitkey); return(errequest(prgname, "No backup program defined")); } else if(t && checktagged() == 0) { /* No tagged files */ puthelp("%s %s", who, hitkey); return(errequest(CFNAM, "No tagged files found")); } else if((c = changelist(cdlist, who)) != RV_OK) return(c); /* Update subtree if needed */ if( !t) { if((c = checktree(mustup)) != RV_OK) return(c); for(dp = (dlist *) CNEXT; dp && DLEVL(dp) > CLEVL; dp = (dlist *) DNEXT(dp)) if(DFLAG(dp) != FL_FIL) { if((c = newflist(dp)) != RV_OK) return(c); else treeflag |= SF_TREE|SF_LIST; } if(treeflag) (void) updatetree(0); } puthelp("%s: Give filename for backup list (CR:$HOME/%s)", who, UTBACK); c = putecho("List file name:"); if((c = getline(name, sizeof(name), c, 0, NULL, CLIST, 1)) == RV_OK) (void) strcpy(list, name); else if(c == RV_NUL) (void) strcpy(list, pathname(UTBACK, home)); else return(c); if((c = backuplist(list, t)) != RV_OK) return(c); /* Build command line and call backup program */ treeflag = SF_FULL; if( !VARSET(V_BKO)) (void) sprintf(buf, "%s %s", VARVAL(V_BK), list); else (void) sprintf(buf, "%s %s %s", VARVAL(V_BK), VARVAL(V_BKO), list); puthelp("%s %s", who, cancel); (void) putecho("Executing backup program %s ...", VARVAL(V_BK)); c = callsystem(buf, 1, 0); puthelp("%s %s", who, hitkey); if(c != RV_OK) return(errequest(VARVAL(V_BK), "Error in backup")); bell(VARSET(V_BL)); return(hitakey("Backup done", echoline, DA_NONE)); } /* backupdir() */ /* * CHANGE TO DIRECTORY */ /* Goto a directory */ LOCAL int changedir() { static char pattern[PATLEN] = { '\0' }; char input[PATLEN]; dlist *dp; int c, path, found; who = "CHANGE DIRECTORY"; /* Get directory name to change to */ puthelp("%s: Give directory name (CR:next %s)", who, pattern[0] ? pattern : "quit"); c = putecho("Change to:"); if((c = getline(input, sizeof(input), c, 0, NULL, CLIST, 0)) < RV_NUL) return(c); else if(c == RV_NUL) { if(pattern[0] == '\0') return(c); } else (void) strcpy(pattern, input); /* Search for directory in tree */ found = -1; path = strchr(pattern, '/') != NULL; for(dp = (dlist *) CNEXT; dp; dp = (dlist *) DNEXT(dp)) if(match(path ? DPNAM(dp) : DFNAM(dp), pattern) > 0) { found = DDNUM(dp); break; } if(found < 0) for(dp = droot; dp && DDNUM(dp) <= CDNUM; dp = (dlist *) DNEXT(dp)) if(match(path ? DPNAM(dp) : DFNAM(dp), pattern) > 0) { found = DDNUM(dp); break; } if(found < 0) { /* Not found */ puthelp("%s %s", hitkey, who); return(errequest(pattern, "Not found")); } if(CDNUM == found) /* Found */ return(RV_OK); else if(CDNUM > found) /* Position to directory in tree */ while(CDNUM > found) (void) gotree(-1); else while(CDNUM < found) (void) gotree(1); return(RV_OK); } /* changedir() */ /* * LIST FILES IN TREE */ /* List matching/tagged files in tree */ LOCAL int listtree(t) register int t; { char pat[PATLEN]; register dlist *dp; register int c, f, ff, l; who = t ? "LIST TAGGED FILES" : "LIST FILES"; if(t && checktagged() == 0) { puthelp("%s %s", who, hitkey); return(errequest(CFNAM, "No tagged files found")); } else if((c = checktree(mustup)) != RV_OK) return(c); if( !t) { puthelp("%s: Give file pattern (CR:all files)", who); if((c = getpattern(pat, "List which files:")) < RV_NUL) return(c); else if(c == RV_NUL) (void) strcpy(pat, "*"); } /* Show all matching files */ dp = cdlist; l = firstline; ff = 0; c = RV_OK; do { if( !DCANC(dp)) continue; else if(DFLAG(dp) != FL_FIL && (c = newflist(dp)) != RV_OK) return(c); for(f = 0; f < DNFIL(dp); f++) if((t && ISTAG(dp, f)) || umatch(dp, f, pat) > 0) { if(l == firstline) { if(ff > 0) { if(t) puthelp("%s (CR:continue ELSE:quit)", who); else puthelp("%s: %s (CR:continue ELSE:quit)", who, pat); c = hitakey("Continue listing ?", echoline, DA_NONE); if( !(c == '\n' || c == ' ')) break; else c = RV_OK; } treeflag = SF_FULL; clearwindow(firstline, lastline); } ++ff; (void) putfxy(0, l, 0, "%s", pathname(FFNAM(dp, f), DPNAM(dp))); if(++l > lastline) l = firstline; } } while(c == RV_OK && (dp = (dlist *) DNEXT(dp)) && DLEVL(dp) > CLEVL); if(c >= RV_NUL) { puthelp("%s %s", who, hitkey); if(t) (void) putecho("Listed %d tagged file(s)", ff); else (void) putecho("Listed %d file(s) matching %s", ff, pat); c = hitakey(NULL); } return(c); } /* listtree() */ /* * CREATE A DIRECTORY */ /* Create a directory */ LOCAL int makedir() { char newname[NAMELEN], buf[EXECLEN]; register dlist *dp; register int c, i; who = "MAKE DIRECTORY"; if( !CCANC) { /* Cannot change to directory */ puthelp("%s %s", who, hitkey); return(errequest(CFNAM, "Cannot make directory")); } puthelp("%s: Give directory name (CR:quit)", who); c = putecho("Make directory:"); if((c = getline(newname, sizeof(newname), c, 0, NULL, GNULL, 0)) != RV_OK) return(c); puthelp("%s %s", who, hitkey); if(strchr(newname, '/') || EQU(newname, ".") || EQU(newname, "..")) return(errequest(newname, "Cannot make directory")); for(i = 0; i < CNFIL; i++) if(EQU(FFNAM(cdlist, i), newname)) return(errequest(newname, "Already exists")); /* Build command line and call mkdir program */ (void) sprintf(buf, "%s %s", MKDIR, pathname(newname, CPNAM)); if(callsystem(buf, 0, 0) != RV_OK) return(errequest(newname, "Error in creating")); /* Insert new directory into tree and file lists */ dp = newdlist(newname, FL_FIL); c = newflist(cdlist); /* Update flag and return */ if(dp) { treeflag = SF_FULL; return(c); } return(RV_NUL); } /* makedir() */ /* * REMOVE A DIRECTORY OR TREE */ /* Remove a directory */ LOCAL int removedir() { char buf[EXECLEN]; register dlist *dp; register int c, i, rflag; who = "REMOVE DIRECTORY"; /* Check if removing is permitted */ if( !CCANC || cdlist == droot || CNDIR > 0) { puthelp("%s %s", who, hitkey); if( !CCANC) /* Cannot change to directory */ return(errequest(CFNAM, "Cannot remove")); else if(cdlist == droot) /* Root cannot be removed */ return(errequest(CFNAM, "Cannot remove root directory")); else if(CNDIR > 0) /* Contains subdirectories */ return(errequest(CFNAM, "Contains subdirectories. Cannot remove subtrees")); } puthelp("%s (Y:remove ELSE:quit)", who); rflag = 0; (void) putecho("Remove directory %s ?", CFNAM); if((c = hitakey(NULL)) != 'y') return(c); if(CNFIL > 0) { puthelp("%s (Y:request N:don't request ELSE:quit)", who); c = hitakey("Directory is not empty, request before removing files ?", echoline, DA_NONE); if( !(c == 'y' || c == 'n')) return(c); rflag = c == 'y'; } /* First remove files from directory */ if(rflag) puthelp("REMOVE FILE (Y:remove Q:quit ELSE:don't remove)"); else puthelp("%s (In progress ...)", who); for(i = CNFIL - 1; i >= 0; i--) { c = removefile(cdlist, i, rflag); if(c == 'q' || c < RV_NUL) return(c); else if(c == RV_OK && rflag) { showflist(firstfline); (void) putfxy(FCOL, DTROW(cdlist), 0, NFFMT, CNFIL); } } /* There are files: cannot remove directory */ if(CNFIL > 0) { puthelp("%s %s", who, hitkey); return(errequest(CFNAM, "Is not empty")); } if(rflag) { /* Request before removing */ puthelp("%s (Y:remove ELSE:quit)", who); (void) putecho("Remove directory %s ?", CFNAM); if((c = hitakey(NULL)) != 'y') return(c); } (void) changelist(droot, NULL); (void) sprintf(buf, "%s %s", RMDIR, CPNAM); if(callsystem(buf, 0, 0) != RV_OK) { puthelp("%s %s", who, hitkey); return(errequest(CFNAM, "Error in removing")); } /* Get new top directory on screen and current directory */ for(dp = cdlist; dp && DTROW(dp) <= lastdline; dp = (dlist *) DNEXT(dp)) ; if(cdlist == tdlist || (tdlist != droot && dp == DNULL)) { tdlist = (dlist *) DPREV(tdlist); c = 1; } else { tdlast = DNULL; c = 0; } cdlist = (dlist *) CPREV; /* Delete directory list entry */ deletedlist(CNEXT); /* Update flags */ treeflag = SF_FULL; writeflag = 1; return(RV_OK); } /* removedir() */ /* * BUILD SUBDIRECTORY TREE */ /* Scan current directory for subdirs and build up and insert subtree */ LOCAL int buildtree() { char inp[5], name[NAMELEN]; register dlist *np, *dp, *p; register int lev, f, n; who = "BUILD TREE"; /* Check if current directory already contains subdirectories */ if((p = (dlist *) CNEXT) && DLEVL(p) > CLEVL) { puthelp("%s %s", who, hitkey); return(errequest(CFNAM, "Contains subdirectories")); } /* Check if there is any directory to build */ for(f = 0; f < CNFIL; f++) if(FMODE(cdlist, f) == FF_DIR) break; if(f >= CNFIL) { puthelp("%s %s", who, hitkey); return(errequest(CFNAM, "No subdirectories found")); } /* Get max level to build up the subtree */ puthelp("%s: Give max tree level (CR:quit)", who, CFNAM); n = putecho("Give level:"); n = getline(inp, sizeof(inp), n, 0, NULL, GNULL, 0); if(n != RV_OK || (lev = atoi(inp)) <= 0) return(n); /* Preserve next dlist and open dlist chain for buildread() */ np = (dlist *) CNEXT; CNEXT = GNULL; n = dircount; /* Build up the tree for all files which are directories */ for(f = 0; f < CNFIL; f++) if(FMODE(cdlist, f) == FF_DIR) { (void) strcpy(name, pathname(FFNAM(cdlist, f), CPNAM)); puthelp("%s: Building %s %s", FFNAM(cdlist, f), who, cancel); if(buildread(name, CLEVL+1, CLEVL+lev, 1) == RV_INT) break; } n = dircount - n; if(n > 0) { /* Search for last new dlist, update dlist numbers and close dlist chain */ dp = cdlist; f = CDNUM; do DDNUM(dp) = f++; while(DNEXT(dp) && (dp = (dlist *) DNEXT(dp))); DNEXT(dp) = (glist *) np; /* Close the chain */ if(np) DPREV(np) = (glist *) dp; for(dp = np; dp; dp = (dlist *) DNEXT(dp), f++) DDNUM(dp) = f; infodlist(); /* Rebuild treeinfo */ checkindent(); /* Check indention */ treeflag = SF_FULL; bell(VARSET(V_BL)); puthelp("%s %s", who, hitkey); (void) putecho("%d new directories built and inserted", n); } else { /* No new directories found and inserted, close dlist chain */ CNEXT = (glist *) np; bell(VARSET(V_BL)); puthelp("%s %s", who, hitkey); (void) putecho("No new directories built or inserted"); } return(hitakey(NULL)); } /* buildtree() */ /* * UPDATE ALL FILE LISTS */ /* Scan directory tree and update all file lists not yet read in or changed */ LOCAL int scantree(f) register int f; { register dlist *dp; register int c; who = "UPDATE TREE"; if(f && (c = checktree("Update tree ?")) != RV_OK) return(c); /* Walk thru directory list and update file lists if needed */ if(buildflag) { puthelp("%s %s", who, cancel); dp = cdlist; do { if(keypressed() && hitakey(NULL) < RV_NUL) break; if( !DCANC(dp)) { /* Cannot cd: skip */ DFLAG(dp) = FL_FIL; continue; } else if(DFLAG(dp) != FL_FIL) { /* Rebuild file list */ if((c = newflist(dp)) != RV_OK) return(c); showdline(dp); flushout(); treeflag |= SF_MOVE|SF_ECHO; } } while((dp = (dlist *) DNEXT(dp)) && DLEVL(dp) > CLEVL); } return(RV_OK); } /* scantree() */ /* * SORT FILELISTS IN TREE */ /* Sort filelists in current directory or subtree */ LOCAL int sorttree(t) register int t; { register dlist *dp; register int s; who = t ? "SORT TREE" : "SORT DIRECTORY"; s = CSORT ? 0 : 1; /* Toggle sort flag */ /* Walk thru subtree */ puthelp("%s %s", who, cancel); if(t) { for(dp = (dlist *) CNEXT; dp && DLEVL(dp) > CLEVL; dp = (dlist *) DNEXT(dp)) { if(keypressed() && hitakey(NULL) < RV_NUL) return(RV_NUL); (void) sortlist(dp, s); } } if((s = sortlist(cdlist, s)) == RV_OK) treeflag |= SF_FILE; return(s); } /* sorttree() */ /* * ZOOM FILELISTS IN TREE */ /* Get zoom pattern and rebuild filelists in directory or subtree */ LOCAL int zoomtree(t) register int t; { char pat[PATLEN]; register dlist *dp; register int c; who = t ? "ZOOM TREE" : "ZOOM DIRECTORY"; puthelp("%s: Give file pattern (CR:all files)", who); if((c = getpattern(pat, "Zoom which files:")) < RV_NUL) return(c); /* Walk thru subtree */ puthelp("%s %s", who, cancel); dp = cdlist; do { if(keypressed() && hitakey(NULL) < RV_NUL) break; if(zoomlist(dp, pat)) { showdline(dp); flushout(); } } while(t && (dp = (dlist *) DNEXT(dp)) && DLEVL(dp) > CLEVL); treeflag |= SF_FILE|SF_LIST; return(RV_OK); } /* zoomtree() */ /* * MARKED AND TAGGED DIRECTORIES */ /* Set/unset mark on current directory */ LOCAL VOID markdir(f) register int f; { if(mdlist == cdlist && !f) /* Reset mark */ mdlist = DNULL; else /* Set mark */ mdlist = cdlist; } /* markdir() */ /* Go to marked directory */ LOCAL int gomarkdir() { register dlist *mp, *dp; if(mdlist) { mp = mdlist; mdlist = cdlist; for(dp = cdlist; dp; dp = (dlist *) DNEXT(dp)) /* Search forward */ if(dp == mp) { while(cdlist != mp && gotree(1)) ; return(1); } for(dp = droot; dp; dp = (dlist *) DNEXT(dp)) /* Search backward */ if(dp == mp) { while(cdlist != mp && gotree(-1)) ; return(1); } } return(0); /* No mark set */ } /* gomarkdir() */ /* Goto directory containing tagged files */ LOCAL int gotagged() { register dlist *dp; for(dp = (dlist *) DNEXT(cdlist); dp; dp = (dlist *) DNEXT(dp)) if(DNTAG(dp)) { while(gotree(1) && dp != cdlist) ; return(1); } for(dp = droot; dp; dp = (dlist *) DNEXT(dp)) /* Search backward */ if(DNTAG(dp)) { if(dp != cdlist) while(gotree(-1) && dp != cdlist) ; return(1); } return(0); /* No match */ } /* gotagged() */ /* Goto parent directory */ LOCAL int goparent() { register int lev; if(cdlist != droot) { lev = CLEVL - 1; while(gotree(-1) && CLEVL != lev) ; return(1); } return(0); } /* goparent() */ /* * SEARCH FOR PATTERN IN TREE */ /* Search for pattern in tree */ LOCAL int greptree(t) register int t; { char input[PATLEN]; register dlist *dp; register int f, c, ff, nt; who = t ? "GREP TREE" : "GREP DIRECTORY"; if(t && (c = checktree(mustup)) != RV_OK) return(c); puthelp("%s: Give search pattern (CR:%s)", who, gpattern[0] ? gpattern : "quit"); c = putecho("Search for pattern:"); if((c = getline(input, sizeof(input), c, 0, NULL, GNULL, 0)) == RV_OK) (void) strcpy(gpattern, input); else if(c < RV_NUL || (c == RV_NUL && gpattern[0] == '\0')) return(c); puthelp("%s: Give file pattern (CR:all files)", who); if((c = getpattern(input, "Search in which files:")) == RV_NUL) (void) strcpy(input, "*"); else if(c != RV_OK) return(c); /* Walk thru subtree */ dp = cdlist; do { nt = DNTAG(dp); ff = -1; if(CFLAG != FL_FIL && (c = newflist(cdlist)) != RV_OK) /* Update! */ return(c); /* Walk thru file list */ for(c = RV_NUL, f = 0; f < CNFIL; f++) { ff = -1; /* Search in all matching files */ if((c = umatch(cdlist, f, input)) > 0) { (void) putecho("Search for \'%s\' in %s", gpattern, pathname(FFNAM(cdlist, f), CPNAM)); flushout(); /* Search pattern found: what to do? */ if((c = grepfile(cdlist, f)) == RV_OK) { ff = f; treeflag &= ~(SF_ECHO|SF_HELP); (void) updatetree(0); puthelp("%s (CR:next SP:change dir M:mark dir T:tag file ELSE:quit)", who); (void) putecho("Found \'%s\': %s -> %s", gpattern, FFNAM(cdlist, f), CFNAM); if((c = hitakey(NULL)) == 't') { FITAG(cdlist, f) = FF_TAG; ++CNTAG; c = '\n'; } else if(c == 'm') { markdir(1); c = '\n'; } else if(c == ' ') { if((c = filemenu(ff, RV_NUL)) == RV_END) return(c); (void) updatetree(0); puthelp("%s (CR:continue SP:select ELSE:quit)", who); (void) putecho("Continue searching for \'%s\':", gpattern); if((c = hitakey(NULL)) == ' ') return(RV_OK); } if(c != '\n') break; } else if(c == RV_INT) break; } } if(nt != DNTAG(dp)) showdlist(dp, 0); } while(t && (c == RV_NUL || c == '\n') && gotree(1) && CLEVL > DLEVL(dp)); if(c == RV_END) return(c); while(cdlist != dp) /* Position to starting directory */ (void) gotree(-1); if(ff < 0) { puthelp("%s %s", who, hitkey); return(errequest(gpattern, "Not found")); } else return(RV_OK); } /* greptree() */ /* * FIND A FILE IN TREE */ /* Find a file in file tree */ LOCAL int findtree(t) register int t; { char input[PATLEN]; register dlist *dp; register int f, c, ff, nt; who = t ? "FIND TREE" : "FIND DIRECTORY"; if(t && (c = checktree(mustup)) != RV_OK) return(c); puthelp("%s: Give file pattern (CR:%s)", who, fpattern[0] ? fpattern : "quit"); if((c = getpattern(input, "Search for which file:")) == RV_OK) (void) strcpy(fpattern, input); else if(c < RV_NUL || (c == RV_NUL && fpattern[0] == '\0')) return(c); /* Walk thru subtree */ dp = cdlist; do { nt = DNTAG(dp); ff = -1; if(CFLAG != FL_FIL && (c = newflist(cdlist)) != RV_OK) /* Update! */ return(c); (void) putecho("Find \'%s\' in %s", fpattern, CPNAM); flushout(); /* Walk thru file list */ for(c = RV_NUL, f = 0; f < CNFIL; f++) { ff = -1; /* File found: what to do now? */ if((c = findfile(cdlist, f)) == RV_OK) { ff = f; treeflag &= ~(SF_ECHO|SF_HELP); (void) updatetree(0); puthelp("%s (CR:next SP:change dir M:mark dir T:tag file ELSE:quit)", who); (void) putecho("Found: %s -> %s", FFNAM(cdlist, f), CFNAM); if((c = hitakey(NULL)) == 't') { FITAG(cdlist, f) = FF_TAG; ++CNTAG; c = '\n'; } else if(c == 'm') { markdir(1); c = '\n'; } else if(c == ' ') { if((c = filemenu(ff, RV_NUL)) == RV_END) return(c); (void) updatetree(0); puthelp("%s (CR:continue SP:select ELSE:quit)", who); (void) putecho("Continue searching file \'%s\':", fpattern); if((c = hitakey(NULL)) == ' ') return(RV_OK); } if(c != '\n') break; } } if(nt != DNTAG(dp)) showdlist(dp, 0); } while(t && (c == RV_NUL || c == '\n') && gotree(1) && CLEVL > DLEVL(dp)); if(c == RV_END) return(c); while(cdlist != dp) /* Position to starting directory */ (void) gotree(-1); if(ff < 0) { puthelp("%s %s", who, hitkey); return(errequest(fpattern, "Not found")); } else return(RV_OK); } /* findtree() */ /* * WRITE TREE LIST */ /* Write tree list */ LOCAL int writetreelist() { char list[INPLEN], name[NAMELEN], pat[PATLEN]; register char *fn, *w; register int c, wc; who = "WRITE TREE"; if((c = changelist(cdlist, who)) < RV_NUL) return(c); puthelp("%s: Give list filename (CR:quit)", who); c = putecho("Write list to:"); if((c = getline(list, sizeof(list), c, 0, NULL, CLIST, 1)) != RV_OK) return(c); puthelp("%s: Give choice (D:dirs F:files L:list M:matches T:tags ELSE:quit)", who); (void) putecho("Write out what:"); switch(c = hitakey(NULL)) { default: return(c); case 'D': case 'd': wc = 'd'; w = "Directory"; break; case 'F': case 'f': wc = 'f'; w = "File"; break; case 'L': case 'l': wc = 'l'; w = "Tree"; break; case 'T': case 't': wc = 't'; w = "Tagged file"; break; case 'M': case 'm': puthelp("WRITE MATCHING FILES: Give file pattern (CR:quit)"); if((c = getpattern(pat, "Write which files:")) < RV_NUL) return(c); wc = 'm'; w = pat; break; } /* Write out list file */ puthelp("%s %s", who, hitkey); if(fn = writedlist(list, cdlist, w, wc)) { (void) strcpy(name, fn); checkdlist(name); if(buildflag) { if((c = updatedlist()) != RV_OK) return(c); treeflag |= SF_FILE; } if(wc == 'm') (void) putecho("Files matching \'%s\' written to \'%s\'", w, name); else (void) putecho("%s list written to \'%s\'", w, name); return(hitakey(NULL)); } /* Error in writing */ return(errequest(list, "Cannot write")); } /* writetreelist() */ /* * MOVE UP OR DOWN IN DIRECTORY TREE */ /* Go up or down in directory list */ GLOBL int gotree(dir) register int dir; { register int i; /* At beginning or end of directory tree */ if((dir < 0 && CPREV == GNULL) || (dir > 0 && CNEXT == GNULL)) return(0); if(dir < 0) { /* Previous directory in tree */ cdlist = (dlist *) CPREV; treeflag |= SF_LIST; /* Out of screen boundaries */ if(DTROW(cdlist) <= firstdline && cdlist != droot) { tdlist = cdlist; for(i = ndlines / 2; i > 0 && DPREV(tdlist); i--) tdlist = (dlist *) DPREV(tdlist); treeflag |= SF_TREE; } else treeflag |= SF_LAST; } else { /* Next directory in tree */ cdlist = (dlist *) CNEXT; treeflag |= SF_LIST; /* Out of screen boundaries */ if(DTROW(cdlist) > lastdline || (DTROW(cdlist) == lastdline && CNEXT)) { tdlist = cdlist; for(i = ndlines / 2; i > 0 && DNEXT(tdlist); i--) tdlist = (dlist *) DNEXT(tdlist); for(i = ndlines; DPREV(tdlist) && i > 0; i--) tdlist = (dlist *) DPREV(tdlist); treeflag |= SF_TREE; } else treeflag |= SF_LAST; } treeflag |= SF_FILE; return(1); } /* gotree() */ /* Go up or down on same level */ LOCAL int golevel(dir) register int dir; { register dlist *dp; register int l; l = CLEVL; if(dir < 0 && cdlist != droot) { /* Up */ for(dp = (dlist *) CPREV; dp; dp = (dlist *) DPREV(dp)) if(DLEVL(dp) <= l) break; do (void) gotree(dir); while(dp && cdlist != dp); if(dp && DLEVL(dp) == l) return(1); } else if(dir > 0 && CNEXT) { /* Down */ for(dp = (dlist *) CNEXT; dp; dp = (dlist *) DNEXT(dp)) if(DLEVL(dp) <= l) break; do (void) gotree(dir); while(dp && cdlist != dp); if(dp && DLEVL(dp) == l) return(1); } return(0); /* Not possible */ } /* golevel() */ /* Go page up or down */ LOCAL int gopage(dir) register int dir; { register int l; if(dir < 0 && CPREV) { /* Page up */ for(l = ndlines; l > 0 && gotree(dir); l--) ; return(1); } else if(dir > 0 && CNEXT) { /* Page down */ for(l = ndlines; l > 0 && gotree(1) ; l--) ; return(1); } return(0); /* Not possible */ } /* gopage() */ /* Go to beginning or end of tree */ LOCAL int gobegend(dir) register int dir; { if(dir < 0 && CPREV) { /* Beginning */ mdlist = cdlist; while(gotree(dir)) ; return(1); } else if(dir > 0 && CNEXT) { /* End */ mdlist = cdlist; while(gotree(dir)) ; return(1); } return(0); /* Not possible */ } /* gobegend() */ /* * REFRESH ON SCREEN RESIZING */ #if defined(SIGWINCH) && defined(TIOCGWINSZ) /* Refresh tree screen after screen size changes */ GLOBL int refreshtree(f) register int f; { register dlist *dp; if(f) (void) refreshfile(0); checkindent(); ndlines = lastdline - firstdline; dp = cdlist; cdlist = tdlist = droot; while(cdlist != dp && gotree(1)) ; treeflag = SF_FULL; return(RV_OK); } /* refreshtree() */ #endif /* SIGWINCH && TIOCGWINSZ */ /* * SELECT DIRECTORY */ /* Walk thru tree and select a directory */ GLOBL char *selectdir(what) register char *what; { register dlist *cd, *td; register char *dn; register int c, f; /* Save current and top dirs */ cd = cdlist; td = tdlist; dn = what; treeflag = SF_FULL; /* Select tree loop */ do { /* Special update for tree screen if needed */ if(treeflag) { f = 0; if(treeflag & SF_HELP) f |= SF_HELP; if(treeflag & SF_ECHO) f |= SF_ECHO; if((c = updatetree(1)) != RV_OK) { dn = NULL; break; } if(f & SF_HELP) puthelp("SELECT DIRECTORY (CR:select Q:quit)"); if(f & SF_ECHO) (void) putecho("Move to and select directory for %s", what); if(f) (void) cursorxy(TCOL+DTCOL(cdlist)-1, DTROW(cdlist)); f = 0; } switch(c = getkey()) { default: /* Ignore */ bell(VARSET(V_BL)); break; case '>': /* Select current directory */ case ' ': case K_SEL: case K_INS: dn = CPNAM; break; case '<': /* Parent */ case K_DEL: if( !goparent()) bell(VARSET(V_BL)); break; case 'q': /* Return */ case 'Q': case K_BRK: case K_EOF: /* EOF */ dn = NULL; break; case K_PREV: /* Previous */ case 'k': /* For vi fans */ if( !gotree(-1)) bell(VARSET(V_BL)); break; case K_NEXT: /* Next */ case 'j': /* For vi fans */ if( !gotree(1)) bell(VARSET(V_BL)); break; case K_BACK: /* Up on same level */ if( !golevel(-1)) bell(VARSET(V_BL)); break; case K_FORW: /* Down on same level */ if( !golevel(1)) bell(VARSET(V_BL)); break; case K_PPAG: /* Page up */ if( !gopage(-1)) bell(VARSET(V_BL)); break; case K_NPAG: /* Page down */ if( !gopage(1)) bell(VARSET(V_BL)); break; case K_HOME: /* Beginning */ if( !gobegend(-1)) bell(VARSET(V_BL)); break; case K_END: /* End */ if( !gobegend(1)) bell(VARSET(V_BL)); break; case 'c': /* Change to directory */ c = changedir(); break; case '@': /* Mark current directory */ case K_MARK: markdir(0); break; case '#': /* Goto previously marked directory */ case K_GOTO: if( !gomarkdir()) bell(VARSET(V_BL)); break; case K_SIZE: /* Screen size changed */ c = RV_SIZ; /*FALL THROUGH*/ case K_REFR: /* Refresh */ treeflag = SF_FULL; break; } #if defined(SIGWINCH) && defined(TIOCGWINSZ) /* Refresh screen after screen resize */ if(c == RV_SIZ) (void) refreshtree(1); #endif /* SIGWINCH && TIOCGWINSZ */ } while(dn == what); /* Restore current and top dirs */ cdlist = cd; tdlist = td; return(dn); } /* selectdir() */ /* * DIRECTORY TREE MENU LOOP */ /* Tree menu */ GLOBL int treemenu(update) register int update; { register int c; /* Init tree variables */ checkindent(); cdlist = tdlist = droot; menuline = tmline; treeflag = SF_FULL; /* Scan and update file lists in tree if reading from a list file */ if(update && scantree(0) != RV_OK) return(c); /* Tree menu loop */ do { /* Update tree screen if needed and clock */ buildflag = 0; if(treeflag && (c = updatetree(0)) != RV_OK) return(c); #ifdef UTCLOCK if(VARSET(V_CL)) clockon(); #endif /* UTCLOCK */ c = getkey(); #ifdef UTCLOCK if(VARSET(V_CL)) clockoff(); #endif /* UTCLOCK */ switch(c) { case K_BRK: /* Ignore interrupt */ default: /* Unknown: ring the bell */ bell(VARSET(V_BL)); break; case K_PREV: /* Previous */ case 'k': /* For vi fans */ if( !gotree(-1)) bell(VARSET(V_BL)); break; case K_NEXT: /* Next */ case 'j': /* For vi fans */ if( !gotree(1)) bell(VARSET(V_BL)); break; case K_BACK: /* Up on same level */ if( !golevel(-1)) bell(VARSET(V_BL)); break; case K_FORW: /* Down on same level */ if( !golevel(1)) bell(VARSET(V_BL)); break; case K_TAG: /* Next directory containing tagged files */ if( !gotagged()) bell(VARSET(V_BL)); break; case K_UP: /* Scroll up */ if( !scrolltree(1)) bell(VARSET(V_BL)); break; case K_DOWN: /* Scroll down */ if( !scrolltree(-1)) bell(VARSET(V_BL)); break; case K_PPAG: /* Page up */ if( !gopage(-1)) bell(VARSET(V_BL)); break; case K_NPAG: /* Page down */ if( !gopage(1)) bell(VARSET(V_BL)); break; case K_HOME: /* Begin */ if( !gobegend(-1)) bell(VARSET(V_BL)); break; case K_END: /* End */ if( !gobegend(1)) bell(VARSET(V_BL)); break; case '@': /* Mark current directory */ case K_MARK: markdir(0); break; case '#': /* Goto previously marked directory */ case K_GOTO: if( !gomarkdir()) bell(VARSET(V_BL)); break; case K_SIZE: /* Screen size changed */ c = RV_SIZ; /*FALL THROUGH*/ case K_REFR: /* Refresh */ treeflag = SF_FULL; break; case '?': /* Help */ case 'h': case 'H': case K_HELP: c = showhelp('t'); break; case '<': /* Change to parent */ case K_DEL: if( !goparent()) { bell(VARSET(V_BL)); break; } /*FALL THROUGH*/ case ' ': /* Change to directory */ case '>': case K_SEL: case K_INS: do c = filemenu(-1, c); while(c == RV_DIR); break; case 'b': /* Backup tree */ c = backupdir(ONTG(c)); break; case 'l': /* List file in tree */ c = listtree(ONTG(c)); break; case 'm': /* Create a directory */ c = makedir(); break; case 'r': /* Remove a directory */ c = removedir(); break; case 'c': /* Change to directory */ c = changedir(); break; case 'L': /* List tagged files */ c = listtree(ONTG(c)); break; case 'B': /* Backup tagged files */ c = backupdir(ONTG(c)); break; case 'C': /* Copy tagged files */ c = copytagged(); break; case 'R': /* Remove tagged files */ c = removetagged(); break; case 'M': /* Move tagged files */ c = movetagged(); break; case 's': /* Display directory status info */ case 'S': c = statusdir(); break; case 'i': /* Display directory information */ case 'I': c = infodir(); break; case 'g': /* Search for string */ case 'G': c = greptree(ONTR(c)); break; case 'f': /* Find a file */ case 'F': c = findtree(ONTR(c)); break; case 't': /* Tag files */ case 'T': c = tagtree(ONTR(c)); break; case 'u': /* Untag files */ case 'U': c = untagtree(ONTR(c)); break; case 'n': /* New sort file list */ case 'N': c = sorttree(ONTR(c)); break; case 'z': /* Zoom file list */ case 'Z': c = zoomtree(ONTR(c)); break; case '0': /* Switch menu line */ menuline = menuline == utreemenu ? tmline : utreemenu; treeflag |= SF_HELP; break; case '1': /* User defined tree command 1..9 */ case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': if(changelist(cdlist, "USER COMMAND") < RV_NUL) break; c = usercommand(c - '0' + V_TC0); break; case '!': /* Escape to shell */ case '$': if(changelist(cdlist, "SHELL ESCAPE") < RV_NUL) break; c = history(c, V_TC1); if(VARSET(V_ST)) (void) scandlist(droot); if(buildflag) c = updatedlist(); break; case '=': /* Show/set variables */ c = variables(); break; case ':': /* Show/set file type commands */ c = commands(); break; case '|': /* Show key bindings */ c = bindings(); break; case '+': /* Enlarge tree window */ if( !resizetree(1)) bell(VARSET(V_BL)); break; case '-': /* Shrink tree window */ if( !resizetree(-1)) bell(VARSET(V_BL)); break; case 'o': /* Write out tree list */ case 'O': c = writetreelist(); break; case '/': /* Scan directory tree and update file lists */ c = scantree(1); break; case '\\': /* Build subdirectory tree */ c = buildtree(); break; case 'a': /* Display version string */ case 'A': c = putversion(echoline, "ABOUT: Utree version"); break; case 'd': /* Date */ case 'D': c = printdate(); break; case 'w': /* Print current working directory */ case 'W': c = printcwd(); break; case 'q': /* Exit utree */ case 'Q': case K_EOF: c = RV_END; break; } #if defined(SIGWINCH) && defined(TIOCGWINSZ) /* Refresh screen after screen resize */ if(c == RV_SIZ) c = refreshtree(1); #endif /* SIGWINCH && TIOCGWINSZ */ } while( !(c == RV_END || c == RV_ERR)); return(c); } /* treemenu() */ reak; } if(f & SF_HELP) puthelp("SELECT DIRECTORY (CR:select Q:quit)"); if(f & SF_ECHO) (void) putecho("Move to and select directory for %s", what); if(f) (void) cursorxy(TCOL+DTCOL(cdlist)-1, DTROW(cdlist)); f = 0; } switch(c = getkey()) { default: /* Ignore */ bell(VARSET(Vutree/sup/0407550013110001060000000000005255652747007163 5 0 1 0 utree/sup/README1006440013110001060000000337105255652741010647 037777777777 1 0 Portable vsprintf, vfprintf, and vprintf by Robert A. Larson Copyright 1989 Robert A. Larson. Distribution in any form is allowed as long as the author retains credit, changes are noted by their author and the copyright message remains intact. This program comes as-is with no warentee of fitness for any purpouse. Thanks to Doug Gwen, Chris Torek, and others who helped clarify the ansi printf specs. Please send any bug fixes and improvments to blarson@skat.usc.edu . The use of goto is NOT a bug. Feb 9, 1989 blarson First usenet release This code implements the vsprintf function, without relying on the existance of _doprint or other system specific code. Define NOVOID if void * is not a supported type. Two compile options are available for efficency: INTSPRINTF should be defined if sprintf is int and returns the number of chacters formated. LONGINT should be defined if sizeof(long) == sizeof(int) They only make the code smaller and faster, they need not be defined. UNSIGNEDSPECIAL should be defined if unsigned is treated differently than int in argument passing. If this is definded, and LONGINT is not, the compiler must support the type unsigned long. Most quirks and bugs of the available sprintf and fprintf fuction are duplicated, however * in the width and precision fields will work correctly even if sprintf does not support this, and the %n format will always work in vsprintf. %n and return count will work properly in vfprintf and vprintf only if fprintf returns the number of characters formatted. Bad format strings, or those with very long width and precision fields (including expanded * fields) will cause undesired results. 0; if(treeflag && (c = updatetree(0)) != RV_OK) return(c); #ifdef UTCLOCK if(VARSET(V_CL)) clockon(); #endif /* UTCLOCK */ c = getkey(); #ifdef UTCLOCK if(VARSET(V_CL)) clockoff(); #endif /* UTCLOCK */ switch(c) { utree/sup/getopt.c1006440013110001060000000366605255652741011444 037777777777 1 0 /* * GETOPT.C * System V like command line option parser */ /* !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! */ /* ! This function is a modified version of getopt() `stolen' from ! */ /* ! the public domain electronic mail system ELM version 2.3 ! */ /* ! (C) Copyright 1986, 1987, by Dave Taylor ! */ /* ! (C) Copyright 1988, 1989, 1990, USENET Community Trust ! */ /* !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! */ #include #ifdef SYSV #define index(s, c) strchr(s, c) extern char *strchr(); #else extern char *index(); #endif int opterr = 1; /* Error handling flag */ int optind = 1; /* Index in argv */ int optopt; /* Current option */ char *optarg; /* Option argument */ getopt(argc, argv, opts) register int argc; register char **argv, *opts; { static int sp = 1; register char *cp; register int c; if(sp == 1) if(optind >= argc || argv[optind][0] != '-' || argv[optind][1] == '\0') return(EOF); else if( !strcmp(argv[optind], "--")) { optind++; return(EOF); } optopt = c = argv[optind][sp]; if(c == ':' || (cp = index(opts, c)) == NULL) { if(opterr) (void) fprintf(stderr, "%s: illegal option -- %c\n", argv[0], c); else if(argv[optind][++sp] == '\0') { optind++; sp = 1; } return('?'); } if(*++cp == ':') { if(argv[optind][sp+1] != '\0') optarg = &argv[optind++][sp+1]; else if(++optind >= argc) { if(opterr) (void) fprintf(stderr, "%s: option requires an argument -- %c\n", argv[0], c); sp = 1; return('?'); } else optarg = argv[optind++]; sp = 1; } else { if(argv[optind][++sp] == '\0') { sp = 1; optind++; } optarg = NULL; } return(c); } /* getopt() */ (c == RV_DIR); break; case 'b': /* Backup treutree/sup/vfprintf.c1006440013110001060000001253405255652747012000 037777777777 1 0 /* Portable vfprintf and vprintf by Robert A. Larson */ /* Copyright 1989 Robert A. Larson. * Distribution in any form is allowed as long as the author * retains credit, changes are noted by their author and the * copyright message remains intact. This program comes as-is * with no warentee of fitness for any purpouse. * * Thanks to Doug Gwen, Chris Torek, and others who helped clarify * the ansi printf specs. * * Please send any bug fixes and improvments to blarson@skat.usc.edu . * The use of goto is NOT a bug. */ /* Feb 9, 1989 blarson First usenet release */ /* This code implements the vfprintf function, without relying on * the existance of _doprint or other system specific code. * * Define NOVOID if void * is not a supported type. * * Two compile options are available for efficency: * INTSPRINTF should be defined if sprintf is int and returns * the number of chacters formated. * LONGINT should be defined if sizeof(long) == sizeof(int) * * They only make the code smaller and faster, they need not be * defined. * * UNSIGNEDSPECIAL should be defined if unsigned is treated differently * than int in argument passing. If this is definded, and LONGINT is not, * the compiler must support the type unsingned long. * * Most quirks and bugs of the available fprintf fuction are duplicated, * however * in the width and precision fields will work correctly * even if fprintf does not support this. The %n format and the return * count will only work if fprintf returns the number of characters * formatted. * * Bad format strings, or those with very long width and precision * fields (including expanded * fields) will cause undesired results. */ #ifdef OSK /* os9/68k can take advantage of both */ #define INTSPRINTF #define LONGINT #endif /* This must be a typedef not a #define! */ #ifdef NOVOID typedef char *pointer; #else typedef void *pointer; #endif #include #ifdef INTSPRINTF #define Sprintf(string,format,arg) (sprintf((string),(format),(arg))) #else #define Sprintf(string,format,arg) (\ sprintf((string),(format),(arg)),\ strlen(string)\ ) #endif #ifdef __STDC__ #include #else #include #endif typedef int *intp; int vfprintf(dest, format, args) FILE *dest; register char *format; va_list args; { register char c; register char *tp; register int count = 0; char tempfmt[64]; #ifndef LONGINT int longflag; #endif tempfmt[0] = '%'; while(c = *format++) { if(c=='%') { tp = &tempfmt[1]; #ifndef LONGINT longflag = 0; #endif continue_format: switch(c = *format++) { case 's': *tp++ = c; *tp = '\0'; count += fprintf(dest, tempfmt, va_arg(args, char *)); break; case 'u': case 'x': case 'o': case 'X': #ifdef UNSIGNEDSPECIAL *tp++ = c; *tp = '\0'; #ifndef LONGINT if(longflag) count += fprintf(dest, tempfmt, va_arg(args, unsigned long)); else #endif count += fprintf(dest, tempfmt, va_arg(args, unsigned)); break; #endif case 'd': case 'c': case 'i': *tp++ = c; *tp = '\0'; #ifndef LONGINT if(longflag) count += fprintf(dest, tempfmt, va_arg(args, long)); else #endif count += fprintf(dest, tempfmt, va_arg(args, int)); break; case 'f': case 'e': case 'E': case 'g': case 'G': *tp++ = c; *tp = '\0'; count += fprintf(dest, tempfmt, va_arg(args, double)); break; case 'p': *tp++ = c; *tp = '\0'; count += fprintf(dest, tempfmt, va_arg(args, pointer)); break; case '-': case '+': case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case '.': case ' ': case '#': case 'h': *tp++ = c; goto continue_format; case 'l': #ifndef LONGINT longflag = 1; *tp++ = c; #endif goto continue_format; case '*': tp += Sprintf(tp, "%d", va_arg(args, int)); goto continue_format; case 'n': *va_arg(args, intp) = count; break; case '%': default: putc(c, dest); count++; break; } } else { putc(c, dest); count++; } } return count; } vprintf(format, args) char *format; va_list args; { return vfprintf(stdout, format, args); } Thanks to Doug Gwen, Chris Torek, and others who helped clarify the ansi printf specs. Please send any bug fixes and improvments to blarson@skat.usc.edu . The useutree/sup/vsprintf.c1006440013110001060000001205205255652747012010 037777777777 1 0 /* Portable vsprintf by Robert A. Larson */ /* Copyright 1989 Robert A. Larson. * Distribution in any form is allowed as long as the author * retains credit, changes are noted by their author and the * copyright message remains intact. This program comes as-is * with no warentee of fitness for any purpouse. * * Thanks to Doug Gwen, Chris Torek, and others who helped clarify * the ansi printf specs. * * Please send any bug fixes and improvments to blarson@skat.usc.edu . * The use of goto is NOT a bug. */ /* Feb 7, 1989 blarson First usenet release */ /* This code implements the vsprintf function, without relying on * the existance of _doprint or other system specific code. * * Define NOVOID if void * is not a supported type. * * Two compile options are available for efficency: * INTSPRINTF should be defined if sprintf is int and returns * the number of chacters formated. * LONGINT should be defined if sizeof(long) == sizeof(int) * * They only make the code smaller and faster, they need not be * defined. * * UNSIGNEDSPECIAL should be defined if unsigned is treated differently * than int in argument passing. If this is definded, and LONGINT is not, * the compiler must support the type unsingned long. * * Most quirks and bugs of the available sprintf fuction are duplicated, * however * in the width and precision fields will work correctly * even if sprintf does not support this, as will the n format. * * Bad format strings, or those with very long width and precision * fields (including expanded * fields) will cause undesired results. */ #ifdef OSK /* os9/68k can take advantage of both */ #define LONGINT #define INTSPRINTF #endif /* This must be a typedef not a #define! */ #ifdef NOVOID typedef char *pointer; #else typedef void *pointer; #endif #ifdef INTSPRINTF #define Sprintf(string,format,arg) (sprintf((string),(format),(arg))) #else #define Sprintf(string,format,arg) (\ sprintf((string),(format),(arg)),\ strlen(string)\ ) #endif #ifdef __STDC__ #include #else #include #endif typedef int *intp; int vsprintf(dest, format, args) char *dest; register char *format; va_list args; { register char *dp = dest; register char c; register char *tp; char tempfmt[64]; #ifndef LONGINT int longflag; #endif tempfmt[0] = '%'; while(c = *format++) { if(c=='%') { tp = &tempfmt[1]; #ifndef LONGINT longflag = 0; #endif continue_format: switch(c = *format++) { case 's': *tp++ = c; *tp = '\0'; dp += Sprintf(dp, tempfmt, va_arg(args, char *)); break; case 'u': case 'x': case 'o': case 'X': #ifdef UNSIGNEDSPECIAL *tp++ = c; *tp = '\0'; #ifndef LONGINT if(longflag) dp += Sprintf(dp, tempfmt, va_arg(args, unsigned long)); else #endif dp += Sprintf(dp, tempfmt, va_arg(args, unsigned)); break; #endif case 'd': case 'c': case 'i': *tp++ = c; *tp = '\0'; #ifndef LONGINT if(longflag) dp += Sprintf(dp, tempfmt, va_arg(args, long)); else #endif dp += Sprintf(dp, tempfmt, va_arg(args, int)); break; case 'f': case 'e': case 'E': case 'g': case 'G': *tp++ = c; *tp = '\0'; dp += Sprintf(dp, tempfmt, va_arg(args, double)); break; case 'p': *tp++ = c; *tp = '\0'; dp += Sprintf(dp, tempfmt, va_arg(args, pointer)); break; case '-': case '+': case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case '.': case ' ': case '#': case 'h': *tp++ = c; goto continue_format; case 'l': #ifndef LONGINT longflag = 1; *tp++ = c; #endif goto continue_format; case '*': tp += Sprintf(tp, "%d", va_arg(args, int)); goto continue_format; case 'n': *va_arg(args, intp) = dp - dest; break; case '%': default: *dp++ = c; break; } } else *dp++ = c; } *dp = '\0'; return dp - dest; } They only make the code smaller and faster, they need not be * defined. * * UNSIGNEDSPECIAL should be defined if unsigned is treated differently * than int in argument passing. If this is definded, and LONGINT is not, * the compiler must support the type unsingned long. * * Most quirks and bugs of the available fprintf fuction are duplicated, * however * in the width and precision fields will work correctly * even if fprintf does not support this. Thutree/sys/0407550013110001060000000000005255652751007165 5 0 1 0 utree/sys/Makefile.2861006440013110001060000000333605255652741011755 037777777777 1 0 # # Makefile for UTREE # klin, Mon Feb 24 00:02:38 1992 # # @(#) utree 3.03-um (klin) Feb 23 1992 Makefile # # Version: UNIX V/286 compatible (for MSC on SCO UNIX/386) # Compiler flags, loader flags and libraries CFLAGS= -compat -O -M2l MFLAGS= LFLAGS= LIBS= -ltermcap MLIBS= # Additional local libraries LLIBS= # --------------------------------------------------------------------- # # Some needed commands to create utree CC= cc CP= cp STRIP= strip # --------------------------------------------------------------------- # # Utree executables UTREE= ../bin/utree UTPRL= ../bin/utree.prlist # --------------------------------------------------------------------- # # Utree header files DEFS= conf.h cmds.h defs.h help.h hist.h keys.h list.h term.h vars.h # Utree sources and objects SRCS= main.c bind.c comm.c echo.c edit.c file.c help.c hist.c list.c \ stat.c term.c tree.c util.c vars.c vers.c OBJS= main.o bind.o comm.o echo.o edit.o file.o help.o hist.o list.o \ stat.o term.o tree.o util.o vars.o vers.o # --------------------------------------------------------------------- # all: utree utree.prlist utree: $(UTREE) strip: $(UTREE) $(CP) $(UTREE) $(UTREE)+sym $(STRIP) $(UTREE) utree.prlist: $(UTPRL) # Compile and link utree $(UTREE): $(OBJS) $(CC) $(CFLAGS) $(LFLAGS) $(OBJS) -o $@ $(LIBS) $(LLIBS) # Compile and link utree.prlist $(UTPRL): utree.prlist.c $(CC) -s $(CFLAGS) $(MFLAGS) $(LFLAGS) $? -o $@ $(MLIBS) $(LIBS) $(LLIBS) # Clean up clean: rm -f core *.o # --------------------------------------------------------------------- # $(OBJS): $(DEFS) $(CC) $(CFLAGS) -c $< # --------------------------------------------------------------------- # ': case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case '.': utree/sys/Makefile.AIX1006440013110001060000000331605255652742012056 037777777777 1 0 # # Makefile for UTREE # klin, Mon Feb 24 00:02:38 1992 # # @(#) utree 3.03-um (klin) Feb 23 1992 Makefile # # Version: IBM 520 (RS/6000), AIX 3.1 # Compiler flags, loader flags and libraries CFLAGS= -DAIX -D_NO_PROTO -O MFLAGS= LFLAGS= LIBS= -lcurses MLIBS= # Additional local libraries LLIBS= # --------------------------------------------------------------------- # # Some needed commands to create utree CC= cc CP= cp STRIP= strip # --------------------------------------------------------------------- # # Utree executables UTREE= ../bin/utree UTPRL= ../bin/utree.prlist # --------------------------------------------------------------------- # # Utree header files DEFS= conf.h cmds.h defs.h help.h hist.h keys.h list.h term.h vars.h # Utree sources and objects SRCS= main.c bind.c comm.c echo.c edit.c file.c help.c hist.c list.c \ stat.c term.c tree.c util.c vars.c vers.c OBJS= main.o bind.o comm.o echo.o edit.o file.o help.o hist.o list.o \ stat.o term.o tree.o util.o vars.o vers.o # --------------------------------------------------------------------- # all: utree utree.prlist utree: $(UTREE) strip: $(UTREE) $(CP) $(UTREE) $(UTREE)+sym $(STRIP) $(UTREE) utree.prlist: $(UTPRL) # Compile and link utree $(UTREE): $(OBJS) $(CC) $(CFLAGS) $(LFLAGS) $(OBJS) -o $@ $(LIBS) $(LLIBS) # Compile and link utree.prlist $(UTPRL): utree.prlist.c $(CC) -s $(CFLAGS) $(MFLAGS) $(LFLAGS) $? -o $@ $(MLIBS) $(LIBS) $(LLIBS) # Clean up clean: rm -f core *.o # --------------------------------------------------------------------- # $(OBJS): $(DEFS) $(CC) $(CFLAGS) -c $< # --------------------------------------------------------------------- # tem specific code. * * Define NOVOID if void * is not a supported type. * * Two compile options are available for efficency: * INTSPRINTF should be defined if sprintf is int and returns * the number of chacters formated. * LONGINT should be defined if sizeofutree/sys/Makefile.APP1006440013110001060000000337605255652742012063 037777777777 1 0 # # Makefile for UTREE # klin, Mon Feb 24 00:02:38 1992 # # @(#) utree 3.03-um (klin) Feb 23 1992 Makefile # # Version: Apollo Domain DN4500, DomainIX 9.5 (BSD4.2 + SYSV) # Compiler flags, loader flags and libraries CFLAGS= -DBSD -DAPOLLO -O MFLAGS= LFLAGS= LIBS= -ltermcap MLIBS= # Additional local libraries LLIBS= # --------------------------------------------------------------------- # # Some needed commands to create utree CC= cc CP= cp STRIP= strip # --------------------------------------------------------------------- # # Utree executables UTREE= ../bin/utree UTPRL= ../bin/utree.prlist # --------------------------------------------------------------------- # # Utree header files DEFS= conf.h cmds.h defs.h help.h hist.h keys.h list.h term.h vars.h # Utree sources and objects SRCS= main.c bind.c comm.c echo.c edit.c file.c help.c hist.c list.c \ stat.c term.c tree.c util.c vars.c vers.c getopt.c OBJS= main.o bind.o comm.o echo.o edit.o file.o help.o hist.o list.o \ stat.o term.o tree.o util.o vars.o vers.o getopt.o # --------------------------------------------------------------------- # all: utree utree.prlist utree: $(UTREE) strip: $(UTREE) $(CP) $(UTREE) $(UTREE)+sym $(STRIP) $(UTREE) utree.prlist: $(UTPRL) # Compile and link utree $(UTREE): $(OBJS) $(CC) $(CFLAGS) $(LFLAGS) $(OBJS) -o $@ $(LIBS) $(LLIBS) # Compile and link utree.prlist $(UTPRL): utree.prlist.c getopt.o $(CC) -s $(CFLAGS) $(MFLAGS) $(LFLAGS) $? -o $@ $(MLIBS) $(LIBS) $(LLIBS) # Clean up clean: rm -f core *.o # --------------------------------------------------------------------- # $(OBJS): $(DEFS) $(CC) $(CFLAGS) -c $< # --------------------------------------------------------------------- # case 'i': *tp++ = c; *tp = '\0'; #ifndef LONGINT if(longflag) dp += Sprintf(dp, tempfmt, va_arg(args, long)); else #endif dp utree/sys/Makefile.BSD1006440013110001060000000337205255652742012047 037777777777 1 0 # # Makefile for UTREE # klin, Mon Feb 24 00:02:38 1992 # # @(#) utree 3.03-um (klin) Feb 23 1992 Makefile # # Version: Generic for BSD 4.2 or 4.3 # Compiler flags, loader flags and libraries CFLAGS= -DBSD -O MFLAGS= LFLAGS= LIBS= -ltermcap MLIBS= # Additional local libraries LLIBS= # --------------------------------------------------------------------- # # Some needed commands to create utree CC= cc CP= cp STRIP= strip # --------------------------------------------------------------------- # # Utree executables UTREE= ../bin/utree UTPRL= ../bin/utree.prlist # --------------------------------------------------------------------- # # Utree header files DEFS= conf.h cmds.h defs.h help.h hist.h keys.h list.h term.h vars.h # Utree sources and objects SRCS= main.c bind.c comm.c echo.c edit.c file.c help.c hist.c list.c \ stat.c term.c tree.c util.c vars.c vers.c getopt.c vsprintf.c OBJS= main.o bind.o comm.o echo.o edit.o file.o help.o hist.o list.o \ stat.o term.o tree.o util.o vars.o vers.o getopt.o vsprintf.o # --------------------------------------------------------------------- # all: utree utree.prlist utree: $(UTREE) strip: $(UTREE) $(CP) $(UTREE) $(UTREE)+sym $(STRIP) $(UTREE) utree.prlist: $(UTPRL) # Compile and link utree $(UTREE): $(OBJS) $(CC) $(CFLAGS) $(LFLAGS) $(OBJS) -o $@ $(LIBS) $(LLIBS) # Compile and link utree.prlist $(UTPRL): utree.prlist.c getopt.o $(CC) -s $(CFLAGS) $(MFLAGS) $(LFLAGS) $? -o $@ $(MLIBS) $(LIBS) $(LLIBS) # Clean up clean: rm -f core *.o # --------------------------------------------------------------------- # $(OBJS): $(DEFS) $(CC) $(CFLAGS) -c $< # --------------------------------------------------------------------- # 0 1 0 utree/sys/Makefile.CON1006440013110001060000000331505255652742012053 037777777777 1 0 # # Makefile for UTREE # klin, Mon Feb 24 00:02:38 1992 # # @(#) utree 3.03-um (klin) Feb 23 1992 Makefile # # Version: Convex C120, ConvexOS 8.1 # Compiler flags, loader flags and libraries CFLAGS= -pcc -DBSD -O MFLAGS= LFLAGS= LIBS= -ltermcap MLIBS= # Additional local libraries LLIBS= # --------------------------------------------------------------------- # # Some needed commands to create utree CC= cc CP= cp STRIP= strip # --------------------------------------------------------------------- # # Utree executables UTREE= ../bin/utree UTPRL= ../bin/utree.prlist # --------------------------------------------------------------------- # # Utree header files DEFS= conf.h cmds.h defs.h help.h hist.h keys.h list.h term.h vars.h # Utree sources and objects SRCS= main.c bind.c comm.c echo.c edit.c file.c help.c hist.c list.c \ stat.c term.c tree.c util.c vars.c vers.c OBJS= main.o bind.o comm.o echo.o edit.o file.o help.o hist.o list.o \ stat.o term.o tree.o util.o vars.o vers.o # --------------------------------------------------------------------- # all: utree utree.prlist utree: $(UTREE) strip: $(UTREE) $(CP) $(UTREE) $(UTREE)+sym $(STRIP) $(UTREE) utree.prlist: $(UTPRL) # Compile and link utree $(UTREE): $(OBJS) $(CC) $(CFLAGS) $(LFLAGS) $(OBJS) -o $@ $(LIBS) $(LLIBS) # Compile and link utree.prlist $(UTPRL): utree.prlist.c $(CC) -s $(CFLAGS) $(MFLAGS) $(LFLAGS) $? -o $@ $(MLIBS) $(LIBS) $(LLIBS) # Clean up clean: rm -f core *.o # --------------------------------------------------------------------- # $(OBJS): $(DEFS) $(CC) $(CFLAGS) -c $< # --------------------------------------------------------------------- # ------------- # ': case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case '.': utree/sys/Makefile.M161006440013110001060000000331705255652742012001 037777777777 1 0 # # Makefile for UTREE # klin, Mon Feb 24 00:02:38 1992 # # @(#) utree 3.03-um (klin) Feb 23 1992 Makefile # # Version: PCS Cadmus 9230, MUNIX V.2/07 (SYSV 2) # Compiler flags, loader flags and libraries CFLAGS= -O MFLAGS= -f LFLAGS= LIBS= -lcurses MLIBS= -lm # Additional local libraries LLIBS= # --------------------------------------------------------------------- # # Some needed commands to create utree CC= cc CP= cp STRIP= strip # --------------------------------------------------------------------- # # Utree executables UTREE= ../bin/utree UTPRL= ../bin/utree.prlist # --------------------------------------------------------------------- # # Utree header files DEFS= conf.h cmds.h defs.h help.h hist.h keys.h list.h term.h vars.h # Utree sources and objects SRCS= main.c bind.c comm.c echo.c edit.c file.c help.c hist.c list.c \ stat.c term.c tree.c util.c vars.c vers.c OBJS= main.o bind.o comm.o echo.o edit.o file.o help.o hist.o list.o \ stat.o term.o tree.o util.o vars.o vers.o # --------------------------------------------------------------------- # all: utree utree.prlist utree: $(UTREE) strip: $(UTREE) $(CP) $(UTREE) $(UTREE)+sym $(STRIP) $(UTREE) utree.prlist: $(UTPRL) # Compile and link utree $(UTREE): $(OBJS) $(CC) $(CFLAGS) $(LFLAGS) $(OBJS) -o $@ $(LIBS) $(LLIBS) # Compile and link utree.prlist $(UTPRL): utree.prlist.c $(CC) -s $(CFLAGS) $(MFLAGS) $(LFLAGS) $? -o $@ $(MLIBS) $(LIBS) $(LLIBS) # Clean up clean: rm -f core *.o # --------------------------------------------------------------------- # $(OBJS): $(DEFS) $(CC) $(CFLAGS) -c $< # --------------------------------------------------------------------- # em specific code. * * Define NOVOID if void * is not a supported type. * * Two compile options are available for efficency: * INTSPRINTF should be defined if sprintf is int and returns * the number of chacters formated. * LONGINT should be defined if sizeofutree/sys/Makefile.M321006440013110001060000000335105255652742011775 037777777777 1 0 # # Makefile for UTREE # klin, Mon Feb 24 00:02:38 1992 # # @(#) utree 3.03-um (klin) Feb 23 1992 Makefile # # Version: PCS Cadmus 9600 (MC68020), MUNIX V3M3.2 (SYSV.3) # Compiler flags, loader flags and libraries CFLAGS= -O MFLAGS= -fH LFLAGS= LIBS= -lcurses_s MLIBS= -lm # Additional local libraries LLIBS= -lc_s -lbsd # --------------------------------------------------------------------- # # Some needed commands to create utree CC= cc CP= cp STRIP= strip # --------------------------------------------------------------------- # # Utree executables UTREE= ../bin/utree UTPRL= ../bin/utree.prlist # --------------------------------------------------------------------- # # Utree header files DEFS= conf.h cmds.h defs.h help.h hist.h keys.h list.h term.h vars.h # Utree sources and objects SRCS= main.c bind.c comm.c echo.c edit.c file.c help.c hist.c list.c \ stat.c term.c tree.c util.c vars.c vers.c OBJS= main.o bind.o comm.o echo.o edit.o file.o help.o hist.o list.o \ stat.o term.o tree.o util.o vars.o vers.o # --------------------------------------------------------------------- # all: utree utree.prlist utree: $(UTREE) strip: $(UTREE) $(CP) $(UTREE) $(UTREE)+sym $(STRIP) $(UTREE) utree.prlist: $(UTPRL) # Compile and link utree $(UTREE): $(OBJS) $(CC) $(CFLAGS) $(LFLAGS) $(OBJS) -o $@ $(LIBS) $(LLIBS) # Compile and link utree.prlist $(UTPRL): utree.prlist.c $(CC) -s $(CFLAGS) $(MFLAGS) $(LFLAGS) $? -o $@ $(MLIBS) $(LIBS) $(LLIBS) # Clean up clean: rm -f core *.o # --------------------------------------------------------------------- # $(OBJS): $(DEFS) $(CC) $(CFLAGS) -c $< # --------------------------------------------------------------------- # ----------------- # case 'i': *tp++ = c; *tp = '\0'; #ifndef LONGINT if(longflag) dp += Sprintf(dp, tempfmt, va_arg(args, long)); else #endif dp utree/sys/Makefile.MIPS1006440013110001060000000334105255652742012203 037777777777 1 0 # # Makefile for UTREE # klin, Mon Feb 24 00:02:38 1992 # # @(#) utree 3.03-um (klin) Feb 23 1992 Makefile # # Version: MIPS RC3230 RISC/os 4.51 (SystemV.3 + BSD4.3) # Compiler flags, loader flags and libraries CFLAGS= -O -Olimit 800 MFLAGS= LFLAGS= LIBS= -lcurses MLIBS= # Additional local libraries LLIBS= # --------------------------------------------------------------------- # # Some needed commands to create utree CC= cc CP= cp STRIP= strip # --------------------------------------------------------------------- # # Utree executables UTREE= ../bin/utree UTPRL= ../bin/utree.prlist # --------------------------------------------------------------------- # # Utree header files DEFS= conf.h cmds.h defs.h help.h hist.h keys.h list.h term.h vars.h # Utree sources and objects SRCS= main.c bind.c comm.c echo.c edit.c file.c help.c hist.c list.c \ stat.c term.c tree.c util.c vars.c vers.c OBJS= main.o bind.o comm.o echo.o edit.o file.o help.o hist.o list.o \ stat.o term.o tree.o util.o vars.o vers.o # --------------------------------------------------------------------- # all: utree utree.prlist utree: $(UTREE) strip: $(UTREE) $(CP) $(UTREE) $(UTREE)+sym $(STRIP) $(UTREE) utree.prlist: $(UTPRL) # Compile and link utree $(UTREE): $(OBJS) $(CC) $(CFLAGS) $(LFLAGS) $(OBJS) -o $@ $(LIBS) $(LLIBS) # Compile and link utree.prlist $(UTPRL): utree.prlist.c $(CC) -s $(CFLAGS) $(MFLAGS) $(LFLAGS) $? -o $@ $(MLIBS) $(LIBS) $(LLIBS) # Clean up clean: rm -f core *.o # --------------------------------------------------------------------- # $(OBJS): $(DEFS) $(CC) $(CFLAGS) -c $< # --------------------------------------------------------------------- # --------------------- # 0 1 0 utree/sys/Makefile.RCU1006440013110001060000000335105255652743012066 037777777777 1 0 # # Makefile for UTREE # klin, Mon Feb 24 00:02:38 1992 # # @(#) utree 3.03-um (klin) Feb 23 1992 Makefile # # Version: PCS Cadmus 9900 (MIPS R2000/3000), MUNIX V3R3.2A (SYSV.3) # Compiler flags, loader flags and libraries CFLAGS= -O MFLAGS= LFLAGS= LIBS= -lcurses_s MLIBS= # Additional local libraries LLIBS= -lc_s -lbsd # --------------------------------------------------------------------- # # Some needed commands to create utree CC= cc CP= cp STRIP= strip # --------------------------------------------------------------------- # # Utree executables UTREE= ../bin/utree UTPRL= ../bin/utree.prlist # --------------------------------------------------------------------- # # Utree header files DEFS= conf.h cmds.h defs.h help.h hist.h keys.h list.h term.h vars.h # Utree sources and objects SRCS= main.c bind.c comm.c echo.c edit.c file.c help.c hist.c list.c \ stat.c term.c tree.c util.c vars.c vers.c OBJS= main.o bind.o comm.o echo.o edit.o file.o help.o hist.o list.o \ stat.o term.o tree.o util.o vars.o vers.o # --------------------------------------------------------------------- # all: utree utree.prlist utree: $(UTREE) strip: $(UTREE) $(CP) $(UTREE) $(UTREE)+sym $(STRIP) $(UTREE) utree.prlist: $(UTPRL) # Compile and link utree $(UTREE): $(OBJS) $(CC) $(CFLAGS) $(LFLAGS) $(OBJS) -o $@ $(LIBS) $(LLIBS) # Compile and link utree.prlist $(UTPRL): utree.prlist.c $(CC) -s $(CFLAGS) $(MFLAGS) $(LFLAGS) $? -o $@ $(MLIBS) $(LIBS) $(LLIBS) # Clean up clean: rm -f core *.o # --------------------------------------------------------------------- # $(OBJS): $(DEFS) $(CC) $(CFLAGS) -c $< # --------------------------------------------------------------------- # case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case '.': utree/sys/Makefile.SCO1006440013110001060000000333205255652743012060 037777777777 1 0 # # Makefile for UTREE # klin, Mon Feb 24 00:02:38 1992 # # @(#) utree 3.03-um (klin) Feb 23 1992 Makefile # # Version: HP Vectra (i486), SCO UNIX System V/386 3.2 # Compiler flags, loader flags and libraries CFLAGS= -Ox MFLAGS= LFLAGS= LIBS= -lcurses MLIBS= # Additional local libraries LLIBS= -lc_s # --------------------------------------------------------------------- # # Some needed commands to create utree CC= cc CP= cp STRIP= strip # --------------------------------------------------------------------- # # Utree executables UTREE= ../bin/utree UTPRL= ../bin/utree.prlist # --------------------------------------------------------------------- # # Utree header files DEFS= conf.h cmds.h defs.h help.h hist.h keys.h list.h term.h vars.h # Utree sources and objects SRCS= main.c bind.c comm.c echo.c edit.c file.c help.c hist.c list.c \ stat.c term.c tree.c util.c vars.c vers.c OBJS= main.o bind.o comm.o echo.o edit.o file.o help.o hist.o list.o \ stat.o term.o tree.o util.o vars.o vers.o # --------------------------------------------------------------------- # all: utree utree.prlist utree: $(UTREE) strip: $(UTREE) $(CP) $(UTREE) $(UTREE)+sym $(STRIP) $(UTREE) utree.prlist: $(UTPRL) # Compile and link utree $(UTREE): $(OBJS) $(CC) $(CFLAGS) $(LFLAGS) $(OBJS) -o $@ $(LIBS) $(LLIBS) # Compile and link utree.prlist $(UTPRL): utree.prlist.c $(CC) -s $(CFLAGS) $(MFLAGS) $(LFLAGS) $? -o $@ $(MLIBS) $(LIBS) $(LLIBS) # Clean up clean: rm -f core *.o # --------------------------------------------------------------------- # $(OBJS): $(DEFS) $(CC) $(CFLAGS) -c $< # --------------------------------------------------------------------- # code. * * Define NOVOID if void * is not a supported type. * * Two compile options are available for efficency: * INTSPRINTF should be defined if sprintf is int and returns * the number of chacters formated. * LONGINT should be defined if sizeofutree/sys/Makefile.SEQ1006440013110001060000000335405255652743012070 037777777777 1 0 # # Makefile for UTREE # klin, Mon Feb 24 00:02:38 1992 # # @(#) utree 3.03-um (klin) Feb 23 1992 Makefile # # Version: Sequent Symmetrie, DYNIX i386 (BSD 4.2) # Compiler flags, loader flags and libraries CFLAGS= -DBSD -O MFLAGS= LFLAGS= LIBS= -ltermcap MLIBS= # Additional local libraries LLIBS= -lseq # --------------------------------------------------------------------- # # Some needed commands to create utree CC= cc CP= cp STRIP= strip # --------------------------------------------------------------------- # # Utree executables UTREE= ../bin/utree UTPRL= ../bin/utree.prlist # --------------------------------------------------------------------- # # Utree header files DEFS= conf.h cmds.h defs.h help.h hist.h keys.h list.h term.h vars.h # Utree sources and objects SRCS= main.c bind.c comm.c echo.c edit.c file.c help.c hist.c list.c \ stat.c term.c tree.c util.c vars.c vers.c vsprintf.c OBJS= main.o bind.o comm.o echo.o edit.o file.o help.o hist.o list.o \ stat.o term.o tree.o util.o vars.o vers.o vsprintf.o # --------------------------------------------------------------------- # all: utree utree.prlist utree: $(UTREE) strip: $(UTREE) $(CP) $(UTREE) $(UTREE)+sym $(STRIP) $(UTREE) utree.prlist: $(UTPRL) # Compile and link utree $(UTREE): $(OBJS) $(CC) $(CFLAGS) $(LFLAGS) $(OBJS) -o $@ $(LIBS) $(LLIBS) # Compile and link utree.prlist $(UTPRL): utree.prlist.c $(CC) -s $(CFLAGS) $(MFLAGS) $(LFLAGS) $? -o $@ $(MLIBS) $(LIBS) $(LLIBS) # Clean up clean: rm -f core *.o # --------------------------------------------------------------------- # $(OBJS): $(DEFS) $(CC) $(CFLAGS) -c $< # --------------------------------------------------------------------- # -------------- # case 'i': *tp++ = c; *tp = '\0'; #ifndef LONGINT if(longflag) dp += Sprintf(dp, tempfmt, va_arg(args, long)); else #endif dp utree/sys/Makefile.SGI1006440013110001060000000332205255652743012055 037777777777 1 0 # # Makefile for UTREE # klin, Mon Feb 24 00:02:38 1992 # # @(#) utree 3.03-um (klin) Feb 23 1992 Makefile # # Version: Silicon Graphics 4D, IRIX V.3.3.2 (SYSV 3) # Compiler flags, loader flags and libraries CFLAGS= -O MFLAGS= LFLAGS= LIBS= -lcurses MLIBS= # Additional local libraries LLIBS= -lbsd # --------------------------------------------------------------------- # # Some needed commands to create utree CC= cc CP= cp STRIP= strip # --------------------------------------------------------------------- # # Utree executables UTREE= ../bin/utree UTPRL= ../bin/utree.prlist # --------------------------------------------------------------------- # # Utree header files DEFS= conf.h cmds.h defs.h help.h hist.h keys.h list.h term.h vars.h # Utree sources and objects SRCS= main.c bind.c comm.c echo.c edit.c file.c help.c hist.c list.c \ stat.c term.c tree.c util.c vars.c vers.c OBJS= main.o bind.o comm.o echo.o edit.o file.o help.o hist.o list.o \ stat.o term.o tree.o util.o vars.o vers.o # --------------------------------------------------------------------- # all: utree utree.prlist utree: $(UTREE) strip: $(UTREE) $(CP) $(UTREE) $(UTREE)+sym $(STRIP) $(UTREE) utree.prlist: $(UTPRL) # Compile and link utree $(UTREE): $(OBJS) $(CC) $(CFLAGS) $(LFLAGS) $(OBJS) -o $@ $(LIBS) $(LLIBS) # Compile and link utree.prlist $(UTPRL): utree.prlist.c $(CC) -s $(CFLAGS) $(MFLAGS) $(LFLAGS) $? -o $@ $(MLIBS) $(LIBS) $(LLIBS) # Clean up clean: rm -f core *.o # --------------------------------------------------------------------- # $(OBJS): $(DEFS) $(CC) $(CFLAGS) -c $< # --------------------------------------------------------------------- # ----------- # --------------------- # 0 1 0 utree/sys/Makefile.SUN1006440013110001060000000334605255652743012106 037777777777 1 0 # # Makefile for UTREE # klin, Mon Feb 24 00:02:38 1992 # # @(#) utree 3.03-um (klin) Feb 23 1992 Makefile # # Version: SUN4 (SPARC) SunOs 4.1.x # Compiler flags, loader flags and libraries CFLAGS= -DBSD # -O -> coredump in token() ??? MFLAGS= LFLAGS= LIBS= -ltermcap MLIBS= # Additional local libraries LLIBS= # --------------------------------------------------------------------- # # Some needed commands to create utree CC= cc CP= cp STRIP= strip # --------------------------------------------------------------------- # # Utree executables UTREE= ../bin/utree UTPRL= ../bin/utree.prlist # --------------------------------------------------------------------- # # Utree header files DEFS= conf.h cmds.h defs.h help.h hist.h keys.h list.h term.h vars.h # Utree sources and objects SRCS= main.c bind.c comm.c echo.c edit.c file.c help.c hist.c list.c \ stat.c term.c tree.c util.c vars.c vers.c OBJS= main.o bind.o comm.o echo.o edit.o file.o help.o hist.o list.o \ stat.o term.o tree.o util.o vars.o vers.o # --------------------------------------------------------------------- # all: utree utree.prlist utree: $(UTREE) strip: $(UTREE) $(CP) $(UTREE) $(UTREE)+sym $(STRIP) $(UTREE) utree.prlist: $(UTPRL) # Compile and link utree $(UTREE): $(OBJS) $(CC) $(CFLAGS) $(LFLAGS) $(OBJS) -o $@ $(LIBS) $(LLIBS) # Compile and link utree.prlist $(UTPRL): utree.prlist.c $(CC) -s $(CFLAGS) $(MFLAGS) $(LFLAGS) $? -o $@ $(MLIBS) $(LIBS) $(LLIBS) # Clean up clean: rm -f core *.o # --------------------------------------------------------------------- # $(OBJS): $(DEFS) $(CC) $(CFLAGS) -c $< # --------------------------------------------------------------------- # # case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case '.': utree/sys/Makefile.ULT1006440013110001060000000333505255652744012104 037777777777 1 0 # # Makefile for UTREE # klin, Mon Feb 24 00:02:38 1992 # # @(#) utree 3.03-um (klin) Feb 23 1992 Makefile # # Version: DECstation/VAXstation, ULTRIX-32 3.1 (BSD 4.3) # Compiler flags, loader flags and libraries CFLAGS= -DBSD -O MFLAGS= LFLAGS= LIBS= -ltermcap MLIBS= # Additional local libraries LLIBS= # --------------------------------------------------------------------- # # Some needed commands to create utree CC= cc CP= cp STRIP= strip # --------------------------------------------------------------------- # # Utree executables UTREE= ../bin/utree UTPRL= ../bin/utree.prlist # --------------------------------------------------------------------- # # Utree header files DEFS= conf.h cmds.h defs.h help.h hist.h keys.h list.h term.h vars.h # Utree sources and objects SRCS= main.c bind.c comm.c echo.c edit.c file.c help.c hist.c list.c \ stat.c term.c tree.c util.c vars.c vers.c OBJS= main.o bind.o comm.o echo.o edit.o file.o help.o hist.o list.o \ stat.o term.o tree.o util.o vars.o vers.o # --------------------------------------------------------------------- # all: utree utree.prlist utree: $(UTREE) strip: $(UTREE) $(CP) $(UTREE) $(UTREE)+sym $(STRIP) $(UTREE) utree.prlist: $(UTPRL) # Compile and link utree $(UTREE): $(OBJS) $(CC) $(CFLAGS) $(LFLAGS) $(OBJS) -o $@ $(LIBS) $(LLIBS) # Compile and link utree.prlist $(UTPRL): utree.prlist.c $(CC) -s $(CFLAGS) $(MFLAGS) $(LFLAGS) $? -o $@ $(MLIBS) $(LIBS) $(LLIBS) # Clean up clean: rm -f core *.o # --------------------------------------------------------------------- # $(OBJS): $(DEFS) $(CC) $(CFLAGS) -c $< # --------------------------------------------------------------------- # de. * * Define NOVOID if void * is not a supported type. * * Two compile options are available for efficency: * INTSPRINTF should be defined if sprintf is int and returns * the number of chacters formated. * LONGINT should be defined if sizeofutree/sys/Makefile.V.21006440013110001060000000327705255652744012012 037777777777 1 0 # # Makefile for UTREE # klin, Mon Feb 24 00:02:38 1992 # # @(#) utree 3.03-um (klin) Feb 23 1992 Makefile # # Version: Generic for System V.2 # Compiler flags, loader flags and libraries CFLAGS= -O MFLAGS= -f LFLAGS= LIBS= -lcurses MLIBS= -lm # Additional local libraries LLIBS= # --------------------------------------------------------------------- # # Some needed commands to create utree CC= cc CP= cp STRIP= strip # --------------------------------------------------------------------- # # Utree executables UTREE= ../bin/utree UTPRL= ../bin/utree.prlist # --------------------------------------------------------------------- # # Utree header files DEFS= conf.h cmds.h defs.h help.h hist.h keys.h list.h term.h vars.h # Utree sources and objects SRCS= main.c bind.c comm.c echo.c edit.c file.c help.c hist.c list.c \ stat.c term.c tree.c util.c vars.c vers.c OBJS= main.o bind.o comm.o echo.o edit.o file.o help.o hist.o list.o \ stat.o term.o tree.o util.o vars.o vers.o # --------------------------------------------------------------------- # all: utree utree.prlist utree: $(UTREE) strip: $(UTREE) $(CP) $(UTREE) $(UTREE)+sym $(STRIP) $(UTREE) utree.prlist: $(UTPRL) # Compile and link utree $(UTREE): $(OBJS) $(CC) $(CFLAGS) $(LFLAGS) $(OBJS) -o $@ $(LIBS) $(LLIBS) # Compile and link utree.prlist $(UTPRL): utree.prlist.c $(CC) -s $(CFLAGS) $(MFLAGS) $(LFLAGS) $? -o $@ $(MLIBS) $(LIBS) $(LLIBS) # Clean up clean: rm -f core *.o # --------------------------------------------------------------------- # $(OBJS): $(DEFS) $(CC) $(CFLAGS) -c $< # --------------------------------------------------------------------- # ----------------------------------------- # -------------- # case 'i': *tp++ = c; *tp = '\0'; #ifndef LONGINT if(longflag) dp += Sprintf(dp, tempfmt, va_arg(args, long)); else #endif dp utree/sys/Makefile.V.31006440013110001060000000327705255652744012013 037777777777 1 0 # # Makefile for UTREE # klin, Mon Feb 24 00:02:38 1992 # # @(#) utree 3.03-um (klin) Feb 23 1992 Makefile # # Version: Generic for System V.3 # Compiler flags, loader flags and libraries CFLAGS= -O MFLAGS= -f LFLAGS= LIBS= -lcurses MLIBS= -lm # Additional local libraries LLIBS= # --------------------------------------------------------------------- # # Some needed commands to create utree CC= cc CP= cp STRIP= strip # --------------------------------------------------------------------- # # Utree executables UTREE= ../bin/utree UTPRL= ../bin/utree.prlist # --------------------------------------------------------------------- # # Utree header files DEFS= conf.h cmds.h defs.h help.h hist.h keys.h list.h term.h vars.h # Utree sources and objects SRCS= main.c bind.c comm.c echo.c edit.c file.c help.c hist.c list.c \ stat.c term.c tree.c util.c vars.c vers.c OBJS= main.o bind.o comm.o echo.o edit.o file.o help.o hist.o list.o \ stat.o term.o tree.o util.o vars.o vers.o # --------------------------------------------------------------------- # all: utree utree.prlist utree: $(UTREE) strip: $(UTREE) $(CP) $(UTREE) $(UTREE)+sym $(STRIP) $(UTREE) utree.prlist: $(UTPRL) # Compile and link utree $(UTREE): $(OBJS) $(CC) $(CFLAGS) $(LFLAGS) $(OBJS) -o $@ $(LIBS) $(LLIBS) # Compile and link utree.prlist $(UTPRL): utree.prlist.c $(CC) -s $(CFLAGS) $(MFLAGS) $(LFLAGS) $? -o $@ $(MLIBS) $(LIBS) $(LLIBS) # Clean up clean: rm -f core *.o # --------------------------------------------------------------------- # $(OBJS): $(DEFS) $(CC) $(CFLAGS) -c $< # --------------------------------------------------------------------- # --------------- # ----------- # --------------------- # 0 1 0 utree/sys/Makefile.VAX1006440013110001060000000330705255652744012075 037777777777 1 0 # # Makefile for UTREE # klin, Mon Feb 24 00:02:38 1992 # # @(#) utree 3.03-um (klin) Feb 23 1992 Makefile # # Version: DEC VAX/750, BSD4.3 UNIX # Compiler flags, loader flags and libraries CFLAGS= -DBSD -O MFLAGS= LFLAGS= LIBS= -ltermcap MLIBS= # Additional local libraries LLIBS= # --------------------------------------------------------------------- # # Some needed commands to create utree CC= cc CP= cp STRIP= strip # --------------------------------------------------------------------- # # Utree executables UTREE= ../bin/utree UTPRL= ../bin/utree.prlist # --------------------------------------------------------------------- # # Utree header files DEFS= conf.h cmds.h defs.h help.h hist.h keys.h list.h term.h vars.h # Utree sources and objects SRCS= main.c bind.c comm.c echo.c edit.c file.c help.c hist.c list.c \ stat.c term.c tree.c util.c vars.c vers.c OBJS= main.o bind.o comm.o echo.o edit.o file.o help.o hist.o list.o \ stat.o term.o tree.o util.o vars.o vers.o # --------------------------------------------------------------------- # all: utree utree.prlist utree: $(UTREE) strip: $(UTREE) $(CP) $(UTREE) $(UTREE)+sym $(STRIP) $(UTREE) utree.prlist: $(UTPRL) # Compile and link utree $(UTREE): $(OBJS) $(CC) $(CFLAGS) $(LFLAGS) $(OBJS) -o $@ $(LIBS) $(LLIBS) # Compile and link utree.prlist $(UTPRL): utree.prlist.c $(CC) -s $(CFLAGS) $(MFLAGS) $(LFLAGS) $? -o $@ $(MLIBS) $(LIBS) $(LLIBS) # Clean up clean: rm -f core *.o # --------------------------------------------------------------------- # $(OBJS): $(DEFS) $(CC) $(CFLAGS) -c $< # --------------------------------------------------------------------- # --------------------------- # # case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case '.': utree/sys/Makefile.X231006440013110001060000000332105255652744012007 037777777777 1 0 # # Makefile for UTREE # klin, Mon Feb 24 00:02:38 1992 # # @(#) utree 3.03-um (klin) Feb 23 1992 Makefile # # Version: SCO XENIX SysV 2.3.2 386 GT # Compiler flags, loader flags and libraries CFLAGS= -x2.3 -O -DXENIX MFLAGS= LFLAGS= LIBS= -ltermcap -ldir MLIBS= # Additional local libraries LLIBS= # --------------------------------------------------------------------- # # Some needed commands to create utree CC= cc CP= cp STRIP= strip # --------------------------------------------------------------------- # # Utree executables UTREE= ../bin/utree UTPRL= ../bin/utree.prlist # --------------------------------------------------------------------- # # Utree header files DEFS= conf.h cmds.h defs.h help.h hist.h keys.h list.h term.h vars.h # Utree sources and objects SRCS= main.c bind.c comm.c echo.c edit.c file.c help.c hist.c list.c \ stat.c term.c tree.c util.c vars.c vers.c OBJS= main.o bind.o comm.o echo.o edit.o file.o help.o hist.o list.o \ stat.o term.o tree.o util.o vars.o vers.o # --------------------------------------------------------------------- # all: utree utree.prlist utree: $(UTREE) strip: $(UTREE) $(CP) $(UTREE) $(UTREE)+sym $(STRIP) $(UTREE) utree.prlist: $(UTPRL) # Compile and link utree $(UTREE): $(OBJS) $(CC) $(CFLAGS) $(LFLAGS) $(OBJS) -o $@ $(LIBS) $(LLIBS) # Compile and link utree.prlist $(UTPRL): utree.prlist.c $(CC) -s $(CFLAGS) $(MFLAGS) $(LFLAGS) $? -o $@ $(MLIBS) $(LIBS) $(LLIBS) # Clean up clean: rm -f core *.o # --------------------------------------------------------------------- # $(OBJS): $(DEFS) $(CC) $(CFLAGS) -c $< # --------------------------------------------------------------------- # -------- # de. * * Define NOVOID if void * is not a supported type. * * Two compile options are available for efficency: * INTSPRINTF should be defined if sprintf is int and returns * the number of chacters formated. * LONGINT should be defined if sizeofutree/sys/conf.h.BSD1006440013110001060000000444405255652744011510 037777777777 1 0 /* * CONF.H * UTREE system dependent configurable definitions. * 3.03-um klin, Sat Feb 15 19:23:58 1992 * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. * * Version: Generic BSD4.2/BSD4.3 */ #if defined(_MAIN_) && !defined(lint) static char sccsid_conf[] = "@(#) utree 3.03-um (klin) Feb 15 1992 conf.h"; #endif /* _MAIN_ && !lint */ /* * This file contains definitions you can change for your needs. */ /* * SOME UTREE DEPENDENT DEFINITIONS. */ /* BSD: define HASVSPRINTF if your system supports vsprintf(3) */ #define HASVSPRINTF /* Not needed for SYSV! */ /* SYSV: define HASFIONREAD if your system supports the FIONREAD */ /* ioctl(2) system call to check how many chars are typed ahead */ /*#define HASFIONREAD /* Not needed for BSD! */ /* SYSV: define HASVFORK if your system supports vfork(2) */ /*#define HASVFORK /* Not needed for BSD! */ /* SYSV: define NODIRENT if your system not supports the directory type */ /* struct dirent with opendir(3), closedir(3) and readdir(3) */ /*#define NODIRENT /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for window systems like X, but it may not run on your system. */ /* ATTENTION: Resizing may be confusing for utree anyway! */ /*#define NOWINCHG /* No screen resizing allowed */ /* ALL: define STRUCTCOPY if your compiler doesn't support assignment */ /* of struct variables, i.e. t[o] = f[rom]. */ /*#define STRUCTCOPY(f, t) memcpy(t, f, sizeof(f)) /* For SYSV */ /*#define STRUCTCOPY(f, t) bcopy(f, t, sizeof(f)) /* For BSD */ /* ALL: define UTCLOCK for a clock updated in echo line every second */ #define UTCLOCK /* Show/update clock */ /* ALL: directory for utree startup file and help pages */ #ifndef UTLIB # define UTLIB "/usr/local/lib" #endif /* !UTLIB */ 1 0 utree/sys/conf.h.CON1006440013110001060000000445005255652744011514 037777777777 1 0 /* * CONF.H * UTREE system dependent configurable definitions. * 3.03-um klin, Sat Feb 15 19:23:58 1992 * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. * * Version: Convex C120, ConvexOS 8.1 */ #if defined(_MAIN_) && !defined(lint) static char sccsid_conf[] = "@(#) utree 3.03-um (klin) Feb 15 1992 conf.h"; #endif /* _MAIN_ && !lint */ /* * This file contains definitions you can change for your needs. */ /* * SOME UTREE DEPENDENT DEFINITIONS. */ /* BSD: define HASVSPRINTF if your system supports vsprintf(3) */ #define HASVSPRINTF /* Not needed for SYSV! */ /* SYSV: define HASFIONREAD if your system supports the FIONREAD */ /* ioctl(2) system call to check how many chars are typed ahead */ /*#define HASFIONREAD /* Not needed for BSD! */ /* SYSV: define HASVFORK if your system supports vfork(2) */ /*#define HASVFORK /* Not needed for BSD! */ /* SYSV: define NODIRENT if your system not supports the directory type */ /* struct dirent with opendir(3), closedir(3) and readdir(3) */ /*#define NODIRENT /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for window systems like X, but it may not run on your system. */ /* ATTENTION: Resizing may be confusing for utree anyway! */ /*#define NOWINCHG /* No screen resizing allowed */ /* ALL: define STRUCTCOPY if your compiler doesn't support assignment */ /* of struct variables, i.e. t[o] = f[rom]. */ /*#define STRUCTCOPY(f, t) memcpy(t, f, sizeof(f)) /* For SYSV */ /*#define STRUCTCOPY(f, t) bcopy(f, t, sizeof(f)) /* For BSD */ /* ALL: define UTCLOCK for a clock updated in echo line every second */ #define UTCLOCK /* Show/update clock */ /* ALL: directory for utree startup file and help pages */ #ifndef UTLIB # define UTLIB "/usr/local/lib" #endif /* !UTLIB */ al libraries LLIBS= # --------------------------------------------------------------------- # # Some needed commands to create utree CC= cc CP= cp STRIP= strip # ------------------------------------------utree/sys/conf.h.SUN1006440013110001060000000444705255652744011550 037777777777 1 0 /* * CONF.H * UTREE system dependent configurable definitions. * 3.03-um klin, Sat Feb 15 19:23:58 1992 * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. * * Version: SUN4 (SPARC) SunOs 4.1.x */ #if defined(_MAIN_) && !defined(lint) static char sccsid_conf[] = "@(#) utree 3.03-um (klin) Feb 15 1992 conf.h"; #endif /* _MAIN_ && !lint */ /* * This file contains definitions you can change for your needs. */ /* * SOME UTREE DEPENDENT DEFINITIONS. */ /* BSD: define HASVSPRINTF if your system supports vsprintf(3) */ #define HASVSPRINTF /* Not needed for SYSV! */ /* SYSV: define HASFIONREAD if your system supports the FIONREAD */ /* ioctl(2) system call to check how many chars are typed ahead */ /*#define HASFIONREAD /* Not needed for BSD! */ /* SYSV: define HASVFORK if your system supports vfork(2) */ /*#define HASVFORK /* Not needed for BSD! */ /* SYSV: define NODIRENT if your system not supports the directory type */ /* struct dirent with opendir(3), closedir(3) and readdir(3) */ /*#define NODIRENT /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for window systems like X, but it may not run on your system. */ /* ATTENTION: Resizing may be confusing for utree anyway! */ /*#define NOWINCHG /* No screen resizing allowed */ /* ALL: define STRUCTCOPY if your compiler doesn't support assignment */ /* of struct variables, i.e. t[o] = f[rom]. */ /*#define STRUCTCOPY(f, t) memcpy(t, f, sizeof(f)) /* For SYSV */ /*#define STRUCTCOPY(f, t) bcopy(f, t, sizeof(f)) /* For BSD */ /* ALL: define UTCLOCK for a clock updated in echo line every second */ #define UTCLOCK /* Show/update clock */ /* ALL: directory for utree startup file and help pages */ #ifndef UTLIB # define UTLIB "/usr/local/lib" #endif /* !UTLIB */ and objects SRCS= main.c bind.c comm.c echo.c edit.c file.c help.c hist.c list.c \ stat.c term.c tree.c util.c vars.c vers.c OBJS= main.o bind.o comm.o echo.o edit.o file.o help.o hist.o list.o \ stat.o term.o tutree/sys/conf.h.V.21006440013110001060000000444505255652745011447 037777777777 1 0 /* * CONF.H * UTREE system dependent configurable definitions. * 3.03-um klin, Sat Feb 15 19:23:58 1992 * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. * * Version: Generic for System V.2 */ #if defined(_MAIN_) && !defined(lint) static char sccsid_conf[] = "@(#) utree 3.03-um (klin) Feb 15 1992 conf.h"; #endif /* _MAIN_ && !lint */ /* * This file contains definitions you can change for your needs. */ /* * SOME UTREE DEPENDENT DEFINITIONS. */ /* BSD: define HASVSPRINTF if your system supports vsprintf(3) */ /*#define HASVSPRINTF /* Not needed for SYSV! */ /* SYSV: define HASFIONREAD if your system supports the FIONREAD */ /* ioctl(2) system call to check how many chars are typed ahead */ /*#define HASFIONREAD /* Not needed for BSD! */ /* SYSV: define HASVFORK if your system supports vfork(2) */ /*#define HASVFORK /* Not needed for BSD! */ /* SYSV: define NODIRENT if your system not supports the directory type */ /* struct dirent with opendir(3), closedir(3) and readdir(3) */ /*#define NODIRENT /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for window systems like X, but it may not run on your system. */ /* ATTENTION: Resizing may be confusing for utree anyway! */ #define NOWINCHG /* No screen resizing allowed */ /* ALL: define STRUCTCOPY if your compiler doesn't support assignment */ /* of struct variables, i.e. t[o] = f[rom]. */ /*#define STRUCTCOPY(f, t) memcpy(t, f, sizeof(f)) /* For SYSV */ /*#define STRUCTCOPY(f, t) bcopy(f, t, sizeof(f)) /* For BSD */ /* ALL: define UTCLOCK for a clock updated in echo line every second */ #define UTCLOCK /* Show/update clock */ /* ALL: directory for utree startup file and help pages */ #ifndef UTLIB # define UTLIB "/usr/local/lib" #endif /* !UTLIB */ /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for window systutree/sys/conf.h.V.31006440013110001060000000444505255652745011450 037777777777 1 0 /* * CONF.H * UTREE system dependent configurable definitions. * 3.03-um klin, Sat Feb 15 19:23:58 1992 * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. * * Version: Generic for System V.3 */ #if defined(_MAIN_) && !defined(lint) static char sccsid_conf[] = "@(#) utree 3.03-um (klin) Feb 15 1992 conf.h"; #endif /* _MAIN_ && !lint */ /* * This file contains definitions you can change for your needs. */ /* * SOME UTREE DEPENDENT DEFINITIONS. */ /* BSD: define HASVSPRINTF if your system supports vsprintf(3) */ /*#define HASVSPRINTF /* Not needed for SYSV! */ /* SYSV: define HASFIONREAD if your system supports the FIONREAD */ /* ioctl(2) system call to check how many chars are typed ahead */ /*#define HASFIONREAD /* Not needed for BSD! */ /* SYSV: define HASVFORK if your system supports vfork(2) */ /*#define HASVFORK /* Not needed for BSD! */ /* SYSV: define NODIRENT if your system not supports the directory type */ /* struct dirent with opendir(3), closedir(3) and readdir(3) */ /*#define NODIRENT /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for window systems like X, but it may not run on your system. */ /* ATTENTION: Resizing may be confusing for utree anyway! */ #define NOWINCHG /* No screen resizing allowed */ /* ALL: define STRUCTCOPY if your compiler doesn't support assignment */ /* of struct variables, i.e. t[o] = f[rom]. */ /*#define STRUCTCOPY(f, t) memcpy(t, f, sizeof(f)) /* For SYSV */ /*#define STRUCTCOPY(f, t) bcopy(f, t, sizeof(f)) /* For BSD */ /* ALL: define UTCLOCK for a clock updated in echo line every second */ #define UTCLOCK /* Show/update clock */ /* ALL: directory for utree startup file and help pages */ #ifndef UTLIB # define UTLIB "/usr/local/lib" #endif /* !UTLIB */ /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for window utree/sys/conf.h.VAX1006440013110001060000000444305255652745011536 037777777777 1 0 /* * CONF.H * UTREE system dependent configurable definitions. * 3.03-um klin, Sat Feb 15 19:23:58 1992 * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. * * Version: DEC VAX/750 BSD4.3 */ #if defined(_MAIN_) && !defined(lint) static char sccsid_conf[] = "@(#) utree 3.03-um (klin) Feb 15 1992 conf.h"; #endif /* _MAIN_ && !lint */ /* * This file contains definitions you can change for your needs. */ /* * SOME UTREE DEPENDENT DEFINITIONS. */ /* BSD: define HASVSPRINTF if your system supports vsprintf(3) */ /*#define HASVSPRINTF /* Not needed for SYSV! */ /* SYSV: define HASFIONREAD if your system supports the FIONREAD */ /* ioctl(2) system call to check how many chars are typed ahead */ /*#define HASFIONREAD /* Not needed for BSD! */ /* SYSV: define HASVFORK if your system supports vfork(2) */ /*#define HASVFORK /* Not needed for BSD! */ /* SYSV: define NODIRENT if your system not supports the directory type */ /* struct dirent with opendir(3), closedir(3) and readdir(3) */ /*#define NODIRENT /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for window systems like X, but it may not run on your system. */ /* ATTENTION: Resizing may be confusing for utree anyway! */ /*#define NOWINCHG /* No screen resizing allowed */ /* ALL: define STRUCTCOPY if your compiler doesn't support assignment */ /* of struct variables, i.e. t[o] = f[rom]. */ /*#define STRUCTCOPY(f, t) memcpy(t, f, sizeof(f)) /* For SYSV */ /*#define STRUCTCOPY(f, t) bcopy(f, t, sizeof(f)) /* For BSD */ /* ALL: define UTCLOCK for a clock updated in echo line every second */ #define UTCLOCK /* Show/update clock */ /* ALL: directory for utree startup file and help pages */ #ifndef UTLIB # define UTLIB "/usr/local/lib" #endif /* !UTLIB */ /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for window sutree/sys/conf.h.2861006440013110001060000000447405255652747011425 037777777777 1 0 /* * CONF.H * UTREE system dependent configurable definitions. * 3.03-um klin, Sat Feb 15 19:23:58 1992 * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. * * Version: UNIX V/286 compatible (for MSC on SCO UNIX/386) */ #if defined(_MAIN_) && !defined(lint) static char sccsid_conf[] = "@(#) utree 3.03-um (klin) Feb 15 1992 conf.h"; #endif /* _MAIN_ && !lint */ /* * This file contains definitions you can change for your needs. */ /* * SOME UTREE DEPENDENT DEFINITIONS. */ /* BSD: define HASVSPRINTF if your system supports vsprintf(3) */ /*#define HASVSPRINTF /* Not needed for SYSV! */ /* SYSV: define HASFIONREAD if your system supports the FIONREAD */ /* ioctl(2) system call to check how many chars are typed ahead */ /*#define HASFIONREAD /* Not needed for BSD! */ /* SYSV: define HASVFORK if your system supports vfork(2) */ /*#define HASVFORK /* Not needed for BSD! */ /* SYSV: define NODIRENT if your system not supports the directory type */ /* struct dirent with opendir(3), closedir(3) and readdir(3) */ #define NODIRENT /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for window systems like X, but it may not run on your system. */ /* ATTENTION: Resizing may be confusing for utree anyway! */ #define NOWINCHG /* No screen resizing allowed */ /* ALL: define STRUCTCOPY if your compiler doesn't support assignment */ /* of struct variables, i.e. t[o] = f[rom]. */ /*#define STRUCTCOPY(f, t) memcpy(t, f, sizeof(f)) /* For SYSV */ /*#define STRUCTCOPY(f, t) bcopy(f, t, sizeof(f)) /* For BSD */ /* ALL: define UTCLOCK for a clock updated in echo line every second */ #define UTCLOCK /* Show/update clock */ /* ALL: directory for utree startup file and help pages */ #ifndef UTLIB # define UTLIB "/usr/local/lib" #endif /* !UTLIB */ older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for window sutree/sys/conf.h.AIX1006440013110001060000000445205255652747011523 037777777777 1 0 /* * CONF.H * UTREE system dependent configurable definitions. * 3.03-um klin, Sat Feb 15 19:23:58 1992 * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. * * Version: IBM 520 (RS/6000), AIX 3.1 */ #if defined(_MAIN_) && !defined(lint) static char sccsid_conf[] = "@(#) utree 3.03-um (klin) Feb 15 1992 conf.h"; #endif /* _MAIN_ && !lint */ /* * This file contains definitions you can change for your needs. */ /* * SOME UTREE DEPENDENT DEFINITIONS. */ /* BSD: define HASVSPRINTF if your system supports vsprintf(3) */ /*#define HASVSPRINTF /* Not needed for SYSV! */ /* SYSV: define HASFIONREAD if your system supports the FIONREAD */ /* ioctl(2) system call to check how many chars are typed ahead */ #define HASFIONREAD /* Not needed for BSD! */ /* SYSV: define HASVFORK if your system supports vfork(2) */ /*#define HASVFORK /* Not needed for BSD! */ /* SYSV: define NODIRENT if your system not supports the directory type */ /* struct dirent with opendir(3), closedir(3) and readdir(3) */ /*#define NODIRENT /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for window systems like X, but it may not run on your system. */ /* ATTENTION: Resizing may be confusing for utree anyway! */ /*#define NOWINCHG /* No screen resizing allowed */ /* ALL: define STRUCTCOPY if your compiler doesn't support assignment */ /* of struct variables, i.e. t[o] = f[rom]. */ /*#define STRUCTCOPY(f, t) memcpy(t, f, sizeof(f)) /* For SYSV */ /*#define STRUCTCOPY(f, t) bcopy(f, t, sizeof(f)) /* For BSD */ /* ALL: define UTCLOCK for a clock updated in echo line every second */ #define UTCLOCK /* Show/update clock */ /* ALL: directory for utree startup file and help pages */ #ifndef UTLIB # define UTLIB "/usr/local/lib" #endif /* !UTLIB */ /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for window sutree/sys/conf.h.APP1006440013110001060000000447705255652750011523 037777777777 1 0 /* * CONF.H * UTREE system dependent configurable definitions. * 3.03-um klin, Sat Feb 15 19:23:58 1992 * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. * * Version: Apollo Domain DN4500, DomainIX 9.5 (BSD4.2 + SYSV) */ #if defined(_MAIN_) && !defined(lint) static char sccsid_conf[] = "@(#) utree 3.03-um (klin) Feb 15 1992 conf.h"; #endif /* _MAIN_ && !lint */ /* * This file contains definitions you can change for your needs. */ /* * SOME UTREE DEPENDENT DEFINITIONS. */ /* BSD: define HASVSPRINTF if your system supports vsprintf(3) */ #define HASVSPRINTF /* Not needed for SYSV! */ /* SYSV: define HASFIONREAD if your system supports the FIONREAD */ /* ioctl(2) system call to check how many chars are typed ahead */ /*#define HASFIONREAD /* Not needed for BSD! */ /* SYSV: define HASVFORK if your system supports vfork(2) */ /*#define HASVFORK /* Not needed for BSD! */ /* SYSV: define NODIRENT if your system not supports the directory type */ /* struct dirent with opendir(3), closedir(3) and readdir(3) */ /*#define NODIRENT /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for window systems like X, but it may not run on your system. */ /* ATTENTION: Resizing may be confusing for utree anyway! */ #define NOWINCHG /* No screen resizing allowed */ /* ALL: define STRUCTCOPY if your compiler doesn't support assignment */ /* of struct variables, i.e. t[o] = f[rom]. */ /*#define STRUCTCOPY(f, t) memcpy(t, f, sizeof(f)) /* For SYSV */ /*#define STRUCTCOPY(f, t) bcopy(f, t, sizeof(f)) /* For BSD */ /* ALL: define UTCLOCK for a clock updated in echo line every second */ #define UTCLOCK /* Show/update clock */ /* ALL: directory for utree startup file and help pages */ #ifndef UTLIB # define UTLIB "/usr/local/lib" #endif /* !UTLIB */ SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for window systeutree/sys/conf.h.M161006440013110001060000000446305255652750011441 037777777777 1 0 /* * CONF.H * UTREE system dependent configurable definitions. * 3.03-um klin, Sat Feb 15 19:23:58 1992 * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. * * Version: PCS Cadmus 9230, MUNIX V.2/07 (SYSV 2) */ #if defined(_MAIN_) && !defined(lint) static char sccsid_conf[] = "@(#) utree 3.03-um (klin) Feb 15 1992 conf.h"; #endif /* _MAIN_ && !lint */ /* * This file contains definitions you can change for your needs. */ /* * SOME UTREE DEPENDENT DEFINITIONS. */ /* BSD: define HASVSPRINTF if your system supports vsprintf(3) */ /*#define HASVSPRINTF /* Not needed for SYSV! */ /* SYSV: define HASFIONREAD if your system supports the FIONREAD */ /* ioctl(2) system call to check how many chars are typed ahead */ /*#define HASFIONREAD /* Not needed for BSD! */ /* SYSV: define HASVFORK if your system supports vfork(2) */ #define HASVFORK /* Not needed for BSD! */ /* SYSV: define NODIRENT if your system not supports the directory type */ /* struct dirent with opendir(3), closedir(3) and readdir(3) */ /*#define NODIRENT /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for window systems like X, but it may not run on your system. */ /* ATTENTION: Resizing may be confusing for utree anyway! */ #define NOWINCHG /* No screen resizing allowed */ /* ALL: define STRUCTCOPY if your compiler doesn't support assignment */ /* of struct variables, i.e. t[o] = f[rom]. */ /*#define STRUCTCOPY(f, t) memcpy(t, f, sizeof(f)) /* For SYSV */ /*#define STRUCTCOPY(f, t) bcopy(f, t, sizeof(f)) /* For BSD */ /* ALL: define UTCLOCK for a clock updated in echo line every second */ #define UTCLOCK /* Show/update clock */ /* ALL: directory for utree startup file and help pages */ #ifndef UTLIB # define UTLIB "/usr/local/lib" #endif /* !UTLIB */ /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support utree/sys/conf.h.M321006440013110001060000000447705255652750011444 037777777777 1 0 /* * CONF.H * UTREE system dependent configurable definitions. * 3.03-um klin, Sat Feb 15 19:23:58 1992 * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. * * Version: PCS Cadmus 9600 (MC68020), MUNIX V3M3.2 (SYSV.3) */ #if defined(_MAIN_) && !defined(lint) static char sccsid_conf[] = "@(#) utree 3.03-um (klin) Feb 15 1992 conf.h"; #endif /* _MAIN_ && !lint */ /* * This file contains definitions you can change for your needs. */ /* * SOME UTREE DEPENDENT DEFINITIONS. */ /* BSD: define HASVSPRINTF if your system supports vsprintf(3) */ /*#define HASVSPRINTF /* Not needed for SYSV! */ /* SYSV: define HASFIONREAD if your system supports the FIONREAD */ /* ioctl(2) system call to check how many chars are typed ahead */ #define HASFIONREAD /* Not needed for BSD! */ /* SYSV: define HASVFORK if your system supports vfork(2) */ /*#define HASVFORK /* Not needed for BSD! */ /* SYSV: define NODIRENT if your system not supports the directory type */ /* struct dirent with opendir(3), closedir(3) and readdir(3) */ /*#define NODIRENT /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for window systems like X, but it may not run on your system. */ /* ATTENTION: Resizing may be confusing for utree anyway! */ /*#define NOWINCHG /* No screen resizing allowed */ /* ALL: define STRUCTCOPY if your compiler doesn't support assignment */ /* of struct variables, i.e. t[o] = f[rom]. */ /*#define STRUCTCOPY(f, t) memcpy(t, f, sizeof(f)) /* For SYSV */ /*#define STRUCTCOPY(f, t) bcopy(f, t, sizeof(f)) /* For BSD */ /* ALL: define UTCLOCK for a clock updated in echo line every second */ #define UTCLOCK /* Show/update clock */ /* ALL: directory for utree startup file and help pages */ #ifndef UTLIB # define UTLIB "/usr/local/lib" #endif /* !UTLIB */ older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for windoutree/sys/conf.h.MIPS1006440013110001060000000445705255652750011651 037777777777 1 0 /* * CONF.H * UTREE system dependent configurable definitions. * 3.03-um klin, Sat Feb 15 19:23:58 1992 * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. * * Version: MIPS RC3230 (R3000) RISC/os 4.51 */ #if defined(_MAIN_) && !defined(lint) static char sccsid_conf[] = "@(#) utree 3.03-um (klin) Feb 15 1992 conf.h"; #endif /* _MAIN_ && !lint */ /* * This file contains definitions you can change for your needs. */ /* * SOME UTREE DEPENDENT DEFINITIONS. */ /* BSD: define HASVSPRINTF if your system supports vsprintf(3) */ /*#define HASVSPRINTF /* Not needed for SYSV! */ /* SYSV: define HASFIONREAD if your system supports the FIONREAD */ /* ioctl(2) system call to check how many chars are typed ahead */ #define HASFIONREAD /* Not needed for BSD! */ /* SYSV: define HASVFORK if your system supports vfork(2) */ /*#define HASVFORK /* Not needed for BSD! */ /* SYSV: define NODIRENT if your system not supports the directory type */ /* struct dirent with opendir(3), closedir(3) and readdir(3) */ /*#define NODIRENT /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for window systems like X, but it may not run on your system. */ /* ATTENTION: Resizing may be confusing for utree anyway! */ /*#define NOWINCHG /* No screen resizing allowed */ /* ALL: define STRUCTCOPY if your compiler doesn't support assignment */ /* of struct variables, i.e. t[o] = f[rom]. */ /*#define STRUCTCOPY(f, t) memcpy(t, f, sizeof(f)) /* For SYSV */ /*#define STRUCTCOPY(f, t) bcopy(f, t, sizeof(f)) /* For BSD */ /* ALL: define UTCLOCK for a clock updated in echo line every second */ #define UTCLOCK /* Show/update clock */ /* ALL: directory for utree startup file and help pages */ #ifndef UTLIB # define UTLIB "/usr/local/lib" #endif /* !UTLIB */ IRENT /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit suppoutree/sys/conf.h.RCU1006440013110001060000000451005255652750011520 037777777777 1 0 /* * CONF.H * UTREE system dependent configurable definitions. * 3.03-um klin, Sat Feb 15 19:23:58 1992 * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. * * Version: PCS Cadmus 9900 (MIPS R2000/3000), MUNIX V3R3.2A (SYSV.3) */ #if defined(_MAIN_) && !defined(lint) static char sccsid_conf[] = "@(#) utree 3.03-um (klin) Feb 15 1992 conf.h"; #endif /* _MAIN_ && !lint */ /* * This file contains definitions you can change for your needs. */ /* * SOME UTREE DEPENDENT DEFINITIONS. */ /* BSD: define HASVSPRINTF if your system supports vsprintf(3) */ /*#define HASVSPRINTF /* Not needed for SYSV! */ /* SYSV: define HASFIONREAD if your system supports the FIONREAD */ /* ioctl(2) system call to check how many chars are typed ahead */ #define HASFIONREAD /* Not needed for BSD! */ /* SYSV: define HASVFORK if your system supports vfork(2) */ /*#define HASVFORK /* Not needed for BSD! */ /* SYSV: define NODIRENT if your system not supports the directory type */ /* struct dirent with opendir(3), closedir(3) and readdir(3) */ /*#define NODIRENT /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for window systems like X, but it may not run on your system. */ /* ATTENTION: Resizing may be confusing for utree anyway! */ /*#define NOWINCHG /* No screen resizing allowed */ /* ALL: define STRUCTCOPY if your compiler doesn't support assignment */ /* of struct variables, i.e. t[o] = f[rom]. */ /*#define STRUCTCOPY(f, t) memcpy(t, f, sizeof(f)) /* For SYSV */ /*#define STRUCTCOPY(f, t) bcopy(f, t, sizeof(f)) /* For BSD */ /* ALL: define UTCLOCK for a clock updated in echo line every second */ #define UTCLOCK /* Show/update clock */ /* ALL: directory for utree startup file and help pages */ #ifndef UTLIB # define UTLIB "/usr/local/lib" #endif /* !UTLIB */ or older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* utree/sys/conf.h.SCO1006440013110001060000000463305255652750011521 037777777777 1 0 /* * CONF.H * UTREE system dependent configurable definitions. * 3.03-um klin, Sat Feb 15 19:23:58 1992 * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. * * Version: HP Vectra (i486), SCO UNIX System V/386 3.2 */ #if defined(_MAIN_) && !defined(lint) static char sccsid_conf[] = "@(#) utree 3.03-um (klin) Feb 15 1992 conf.h"; #endif /* _MAIN_ && !lint */ /* * This file contains definitions you can change for your needs. */ /* * SOME UTREE DEPENDENT DEFINITIONS. */ /* BSD: define HASVSPRINTF if your system supports vsprintf(3) */ /*#define HASVSPRINTF /* Not needed for SYSV! */ /* SYSV: define HASFIONREAD if your system supports the FIONREAD */ /* ioctl(2) system call to check how many chars are typed ahead */ #define HASFIONREAD /* Not needed for BSD! */ #include #include /* For defining FIONREAD ! */ /* SYSV: define HASVFORK if your system supports vfork(2) */ /*#define HASVFORK /* Not needed for BSD! */ /* SYSV: define NODIRENT if your system not supports the directory type */ /* struct dirent with opendir(3), closedir(3) and readdir(3) */ /*#define NODIRENT /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for window systems like X, but it may not run on your system. */ /* ATTENTION: Resizing may be confusing for utree anyway! */ #define NOWINCHG /* No screen resizing allowed */ /* ALL: define STRUCTCOPY if your compiler doesn't support assignment */ /* of struct variables, i.e. t[o] = f[rom]. */ /*#define STRUCTCOPY(f, t) memcpy(t, f, sizeof(f)) /* For SYSV */ /*#define STRUCTCOPY(f, t) bcopy(f, t, sizeof(f)) /* For BSD */ /* ALL: define UTCLOCK for a clock updated in echo line every second */ #define UTCLOCK /* Show/update clock */ /* ALL: directory for utree startup file and help pages */ #ifndef UTLIB # define UTLIB "/usr/local/lib" #endif /* !UTLIB */ ing on window systems. The */ /* handling of screen resizing is intended as a little bit supportutree/sys/conf.h.SEQ1006440013110001060000000446605255652750011531 037777777777 1 0 /* * CONF.H * UTREE system dependent configurable definitions. * 3.03-um klin, Sat Feb 15 19:23:58 1992 * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. * * Version: Sequent Symmetrie, DYNIX i386 (BSD 4.2) */ #if defined(_MAIN_) && !defined(lint) static char sccsid_conf[] = "@(#) utree 3.03-um (klin) Feb 15 1992 conf.h"; #endif /* _MAIN_ && !lint */ /* * This file contains definitions you can change for your needs. */ /* * SOME UTREE DEPENDENT DEFINITIONS. */ /* BSD: define HASVSPRINTF if your system supports vsprintf(3) */ #define HASVSPRINTF /* Not needed for SYSV! */ /* SYSV: define HASFIONREAD if your system supports the FIONREAD */ /* ioctl(2) system call to check how many chars are typed ahead */ /*#define HASFIONREAD /* Not needed for BSD! */ /* SYSV: define HASVFORK if your system supports vfork(2) */ /*#define HASVFORK /* Not needed for BSD! */ /* SYSV: define NODIRENT if your system not supports the directory type */ /* struct dirent with opendir(3), closedir(3) and readdir(3) */ /*#define NODIRENT /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for window systems like X, but it may not run on your system. */ /* ATTENTION: Resizing may be confusing for utree anyway! */ /*#define NOWINCHG /* No screen resizing allowed */ /* ALL: define STRUCTCOPY if your compiler doesn't support assignment */ /* of struct variables, i.e. t[o] = f[rom]. */ /*#define STRUCTCOPY(f, t) memcpy(t, f, sizeof(f)) /* For SYSV */ /*#define STRUCTCOPY(f, t) bcopy(f, t, sizeof(f)) /* For BSD */ /* ALL: define UTCLOCK for a clock updated in echo line every second */ #define UTCLOCK /* Show/update clock */ /* ALL: directory for utree startup file and help pages */ #ifndef UTLIB # define UTLIB "/usr/local/lib" #endif /* !UTLIB */ eeded only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for utree/sys/conf.h.SGI1006440013110001060000000447105255652750011517 037777777777 1 0 /* * CONF.H * UTREE system dependent configurable definitions. * 3.03-um klin, Sat Feb 15 19:23:58 1992 * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. * * Version: Silicon Graphics 4D, IRIX V.3.3.2 (SYSV 3) */ #if defined(_MAIN_) && !defined(lint) static char sccsid_conf[] = "@(#) utree 3.03-um (klin) Feb 15 1992 conf.h"; #endif /* _MAIN_ && !lint */ /* * This file contains definitions you can change for your needs. */ /* * SOME UTREE DEPENDENT DEFINITIONS. */ /* BSD: define HASVSPRINTF if your system supports vsprintf(3) */ /*#define HASVSPRINTF /* Not needed for SYSV! */ /* SYSV: define HASFIONREAD if your system supports the FIONREAD */ /* ioctl(2) system call to check how many chars are typed ahead */ #define HASFIONREAD /* Not needed for BSD! */ /* SYSV: define HASVFORK if your system supports vfork(2) */ /*#define HASVFORK /* Not needed for BSD! */ /* SYSV: define NODIRENT if your system not supports the directory type */ /* struct dirent with opendir(3), closedir(3) and readdir(3) */ /*#define NODIRENT /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for window systems like X, but it may not run on your system. */ /* ATTENTION: Resizing may be confusing for utree anyway! */ /*#define NOWINCHG /* No screen resizing allowed */ /* ALL: define STRUCTCOPY if your compiler doesn't support assignment */ /* of struct variables, i.e. t[o] = f[rom]. */ /*#define STRUCTCOPY(f, t) memcpy(t, f, sizeof(f)) /* For SYSV */ /*#define STRUCTCOPY(f, t) bcopy(f, t, sizeof(f)) /* For BSD */ /* ALL: define UTCLOCK for a clock updated in echo line every second */ #define UTCLOCK /* Show/update clock */ /* ALL: directory for utree startup file and help pages */ #ifndef UTLIB # define UTLIB "/usr/local/lib" #endif /* !UTLIB */ NT /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little biutree/sys/conf.h.ULT1006440013110001060000000447505255652751011546 037777777777 1 0 /* * CONF.H * UTREE system dependent configurable definitions. * 3.03-um klin, Sat Feb 15 19:23:58 1992 * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. * * Version: DECstation/VAXstation, ULTRIX-32 3.1 (BSD 4.3) */ #if defined(_MAIN_) && !defined(lint) static char sccsid_conf[] = "@(#) utree 3.03-um (klin) Feb 15 1992 conf.h"; #endif /* _MAIN_ && !lint */ /* * This file contains definitions you can change for your needs. */ /* * SOME UTREE DEPENDENT DEFINITIONS. */ /* BSD: define HASVSPRINTF if your system supports vsprintf(3) */ #define HASVSPRINTF /* Not needed for SYSV! */ /* SYSV: define HASFIONREAD if your system supports the FIONREAD */ /* ioctl(2) system call to check how many chars are typed ahead */ /*#define HASFIONREAD /* Not needed for BSD! */ /* SYSV: define HASVFORK if your system supports vfork(2) */ /*#define HASVFORK /* Not needed for BSD! */ /* SYSV: define NODIRENT if your system not supports the directory type */ /* struct dirent with opendir(3), closedir(3) and readdir(3) */ /*#define NODIRENT /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for window systems like X, but it may not run on your system. */ /* ATTENTION: Resizing may be confusing for utree anyway! */ /*#define NOWINCHG /* No screen resizing allowed */ /* ALL: define STRUCTCOPY if your compiler doesn't support assignment */ /* of struct variables, i.e. t[o] = f[rom]. */ /*#define STRUCTCOPY(f, t) memcpy(t, f, sizeof(f)) /* For SYSV */ /*#define STRUCTCOPY(f, t) bcopy(f, t, sizeof(f)) /* For BSD */ /* ALL: define UTCLOCK for a clock updated in echo line every second */ #define UTCLOCK /* Show/update clock */ /* ALL: directory for utree startup file and help pages */ #ifndef UTLIB # define UTLIB "/usr/local/lib" #endif /* !UTLIB */ truct dirent with opendir(3), closedir(3) and readdir(3) */ /*#define NODIRENT /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on utree/sys/conf.h.X231006440013110001060000000445105255652751011450 037777777777 1 0 /* * CONF.H * UTREE system dependent configurable definitions. * 3.03-um klin, Sat Feb 15 19:23:58 1992 * * Copyright (c) 1991/92 by Peter Klingebiel & UNIX Magazin Muenchen. * For copying and distribution information see the file COPYRIGHT. * * Version: SCO XENIX SysV 2.3.2 386GT */ #if defined(_MAIN_) && !defined(lint) static char sccsid_conf[] = "@(#) utree 3.03-um (klin) Feb 15 1992 conf.h"; #endif /* _MAIN_ && !lint */ /* * This file contains definitions you can change for your needs. */ /* * SOME UTREE DEPENDENT DEFINITIONS. */ /* BSD: define HASVSPRINTF if your system supports vsprintf(3) */ /*#define HASVSPRINTF /* Not needed for SYSV! */ /* SYSV: define HASFIONREAD if your system supports the FIONREAD */ /* ioctl(2) system call to check how many chars are typed ahead */ /*#define HASFIONREAD /* Not needed for BSD! */ /* SYSV: define HASVFORK if your system supports vfork(2) */ /*#define HASVFORK /* Not needed for BSD! */ /* SYSV: define NODIRENT if your system not supports the directory type */ /* struct dirent with opendir(3), closedir(3) and readdir(3) */ /*#define NODIRENT /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* for window systems like X, but it may not run on your system. */ /* ATTENTION: Resizing may be confusing for utree anyway! */ #define NOWINCHG /* No screen resizing allowed */ /* ALL: define STRUCTCOPY if your compiler doesn't support assignment */ /* of struct variables, i.e. t[o] = f[rom]. */ /*#define STRUCTCOPY(f, t) memcpy(t, f, sizeof(f)) /* For SYSV */ /*#define STRUCTCOPY(f, t) bcopy(f, t, sizeof(f)) /* For BSD */ /* ALL: define UTCLOCK for a clock updated in echo line every second */ #define UTCLOCK /* Show/update clock */ /* ALL: directory for utree startup file and help pages */ #ifndef UTLIB # define UTLIB "/usr/local/lib" #endif /* !UTLIB */ /* Needed only for older SYSVs */ /* ALL: define NOWINCHG to ignore sreen resizing on window systems. The */ /* handling of screen resizing is intended as a little bit support */ /* utree/tst/0407550013110001060000000000005255652745007164 5 0 1 0 utree/tst/fionread.c1006440013110001060000000226705255652745011734 037777777777 1 0 /* * FIONREAD.C * Test the FIONREAD ioctl system call * klin, Mon Feb 24 20:29:50 1992 * * Defs: Define BSD for BSD systems. * Test: Enter some chars (don't forget !) * and see the result from ioctl(FIONREAD). * If some characters were entered, there should be * displayed a message with the number of entered chars * and the entered string! */ #include #ifndef BSD #include /* FIONREAD may be defined here */ #endif #include /* or here (like BSD) */ /* * Main routine */ main() { char buf[256]; int rv, nc; /* Terminate with BREAK ! */ while(1) { printf("\nWAITING FOR INPUT ...\n"); fflush(stdout); /* Wait 5 seconds for entering input */ sleep(5); rv = ioctl(0, FIONREAD, &nc); printf("\nIOCTL(FIONREAD) rv=%d nc=%d ", rv, nc); /* OK: chars read! */ if(nc > 0) { /* Fill and display read characters */ gets(buf); printf("buf=[%s]\n", buf); } else /* Should not happen on input if ioctl(FIONREAD) works! */ printf("NO INPUT\n"); } } /* main() */ */ /*#define HASVSPRINTF /* Not needed for SYSV! */ /* SYSV: define HASFIONREAD if your system supports the FIONREAD */ /* ioctl(2) system call to check how many chars are typed ahead */ #define HASFIONREAD /* Not needed for BSD! */ /* SYSV: define HASVFutree/tst/sigwinch.c1006440013110001060000000220705255652745011752 037777777777 1 0 /* * SIGWINCH.C * Test signal SIGWINCH and TIOCGWINSZ ioctl system call * klin, Mon Feb 24 20:35:53 1992 * * Defs: Define BSD for BSD systems. * Test: Start sigwinch under X in a xterm window and resize * the window sometimes. After resizing there should be * sent a signal SIGWINCH from the kernel which is catched * by the sigwinch signal handler. The ioctl(TIOCGWINSZ) * systemcalls should return the new size of the window. */ #include #include #include #ifndef BSD #include /* struct winsize may be defined here */ #endif #include /* or here (like BSD) */ /* * Signal handler for signal SIGWINCH */ sigwinch(sig) int sig; { struct winsize ws; int rv; signal(SIGWINCH, sigwinch); if(sig) printf("SIGWINCH-HANDLER: sig=%d\n", sig); rv = ioctl(0, TIOCGWINSZ, &ws); printf("IOCTL: rv=%d rows=%d cols=%d\n", rv, ws.ws_row, ws.ws_col); } /* sigwinch() */ /* * Main routine */ main() { sigwinch(0); while(1) ; } /* main() */ 05255652751011546 037777777777 1 0 utree/CHANGES1006440013110001060000001032405255652746007343 0 0 1 0 UTREE - screen oriented filesystem utility CHANGES, klin, Fri Mar 6 07:26:25 1992 ------------------------------------------------------------------------------ utree 3.00-um - Apr 20 1991, klin Initial version 3.00-um for distribution - May 5 1991, klin Minor bug fixes and extensions utree 3.01-um - Jun 4 1991, klin Z-command for zooming filelist/files in/out added - Oct 7 1991, klin File size patterns =!<> added, time patterns changed to from <> to () Bug in putchar() deleted Minor changes in screen handling - Oct 15 1991, klin Handling of symbolic links changed Option -L for following symbolic links added Option -f lst for building the tree from list file lst added - Oct 26 1991, klin Marking directories changed Sorting/zooming filelists on tree screen changed Copying and moving files changed (select directory) Select directory added Some more minor changes in functions Print formatted tree list added Filter utree.prlist for printing formatted tree list files created utree 3.02-um - Nov 1 1991, klin Screen layout changed Goto parent directory on tree screen (<-command) added Option -u changed to -n (no scan tree) Option -u added (update file lists in tree) Stuff for APOLLO node names added Bug in calling editor in empty directory deleted Other minor changes - Nov 10 1991, klin Functions key handling changed (typedef kchar and ksymbol) Reading list files changed for handling relative given pathnames Postscript driver for utree.prlist Utree.backup.sh and utree.mklist.sh extended - Nov 24 1991, klin Some error fixes and extensions for XENIX reported and done by Rolf Gebhardt (Nov 22 1991) Change to current directory list for some commands on tree screen Video attributes changed utree 3.03-um - Feb 11 1992, klin Shell screen put into own module hist.[ch] and command history added Status screen put into own module stat.c Generic list type glist for using from within line editor added Most list types changed for using of the generic list type glist Lineeditor extended for using of generic lists Handling of variables and filetype command changed - Feb 15 1992, klin Video handling and meaning of option -v changed Display attributes and user customizable video mode flag added Partinioning of directory and file window on tree screen changed Option -p for tree screen partitioning added Variables VIDEOMODE and FILELINES added - Feb 22 1992, klin Some commands on tree changed to work on current directory or subtree or tagged files dependent on command letter entered in lowercase or uppercase letter. The commands working on current directory/subtree are: f/F=find, g/G=grep, n/N=sort, t/T=tag, u/U=untag, z/Z=zoom. The commands working on current directory/tagged files are: b/B=backup, c/C=change/copy, l,L=list, m/M=mkdir/move, r/R=remove. Formatcharacters %H and %R for home and root directory added - Feb 22 1992, klin Many commands on tree changed to handle current directory or subtree (find, grep, sort, tag, untag, zoom) or tagged files in subtree (backup, copy, list, move, remove) dependent if command letter is entered in upper or lower case (like commands on file screen) - Feb 23 1992, klin Key handling changed. Bindings screen and user customizable and definable key bindings added. Key bindings from statically defined bindings to default bindings changed which are bound at startup. User defined key bindings can be done at startup in terminal dependent binding files or at run time on the bindings screen. Variable HISTSIZE (settable at startup only) added. Save variables, commands, history and key bindings if there were any changes and if the new variable AUTOSAVE is set to ON. Command line option -o for omitting saving changes added - Mar 6 1992, klin Some minor changes before distribution ALL: define STRUCTCOPY if your compiler doesn't support assignment */ /* of struct variables, i.e. t[o] = f[rom]. */ /*#define STRUCTCOPY(f, t) memcpy(t, f, sizeof(f)) /* For SYSV */ /*#define STRUCTCOPY(f, t) bcopy(f, t, sizeof(f)) /* For BSD *utree/COPYRIGHT1006440013110001060000001227505255652746007652 0 0 1 0 UTREE - screen oriented filesystem utility COPYRIGHT and distribution notice, klin, Sun Feb 16 16:28:43 1992 ------------------------------------------------------------------------------ UTREE version 3.03-um Copyright (c) 1991/92 Peter Klingebiel & UNIX Magazin All rights reserved. ------------------------------------------------------------------------------ Remember, you get what you pay for. The author and UNIX Magazin are not liable for any bugs or consequential damages arising from the use of this software. However, they may fix bugs if they are asked nicely. ------------------------------------------------------------------------------ *** NO WARRANTY *** BECAUSE THIS PROGRAM IS LICENSED FREE OF CHARGE, THE AUTHOR AND UNIX MAGAZIN PROVIDE ABSOLUTELY NO WARRANTY, TO THE EXTENT PERMITTED BY APPLICABLE STATE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING, THE AUTHORS AND/OR OTHER PARTIES PROVIDE THIS PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW WILL THE AUTHORS AND/OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THIS PROGRAM BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY LOST PROFITS, LOST MONIES, OR OTHER SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS) THIS PROGRAM, EVEN IF YOU HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES, OR FOR ANY CLAIM BY ANY OTHER PARTY. ------------------------------------------------------------------------------ *** GENERAL PUBLIC LICENSE TO COPY *** 1. You may copy and distribute verbatim copies of this program as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy a valid copyright notice, "Copyright (c) 1991 Peter Klingebiel & UNIX Magazin" and include following the copyright notice a verbatim copy of the above disclaimer of warranty and of this License. You may charge a distribution fee for the physical act of transferring a copy. 2. You may modify your copy or copies of this source file or any portion of it, and copy and distribute such modifications under the terms of Paragraph 1 above, provided that you also do the following: a) cause the modified files to carry prominent notices stating that you changed the files and the date of any change, and b) cause the whole of any work that you distribute or publish, that in whole or in part contains or is a derivative of this program or any part thereof, to be licensed at no charge to all third parties on terms identical to those contained in this License Agreement (except that you may choose to grant more extensive warranty protection to third parties, at your option). c) You may charge a distribution fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 3. You may copy and distribute this program or any portion of it in compiled, executable or object code form under the terms of Paragraphs 1 and 2 above provided that you do the following: a) cause each such copy to be accompanied by the corresponding machine-readable source code, which must be distributed under the terms of Paragraphs 1 and 2 above, or b) cause each such copy to be accompanied by a written offer, with no time limit, to give any third party free (except possibly for a nominal shipping charge) a machine readable copy of the corresponding source code, to be distributed under the terms of Paragraphs 1 and 2 above, or c) in the case of a recipient of this program in compiled, executable or object code form (without the corresponding source code), you shall cause copies you distribute to be accompanied by a copy of the written offer of source code which you received along with the copy you received. 4. You may not copy, sublicense, distribute or transfer this program except as expressly provided under this License Agreement. Any attempt otherwise to copy, sublicense, distribute or transfer this program is void and your rights to use the program under this License Agreement shall be automatically terminated. However, parties who have received computer software programs from you with this License Agreement will not have their licenses terminated so long as such parties remain in full compliance. ------------------------------------------------------------------------------ In other words, you are welcome to use, share and improve this program. You are forbidden to forbid anyone else to use, share and improve what you give them. Help stamp out software-hoarding! ------------------------------------------------------------------------------ -um - Apr 20 1991, klin Initial version 3.00-um for distribution - May 5 1991, klin Minor bug fixes and extensions utree 3.01-um - Jun 4 1991, klin Z-command for zooming filelist/files in/out added - Oct 7 1991, klin File size patterns =!<> added, time patterns changutree/MANIFEST1006440013110001060000001247105255652746007506 0 0 1 0 UTREE 3.03-um - screen oriented filesystem utility MANIFEST, klin, Sun Feb 23 23:55:21 1992 ------------------------------------------------------------------------------ bin - Utree executable directory doc - Utree manual pages lib - Utree library files src - Utree source directory sup - Additional support routines from PD sys - Some system dependent make and conf files tst - Some simple test programs for configuration README - Readme first MANIFEST - This file COPYRIGHT - Copyright and distribution notice CHANGES - Changes since utree version 3.00-um TODO - Ideas for further extensions Makefile - Makefile for exes, manual and installation src/Makefile - Makefile for utree executable src/cmds.h - Command definitions src/conf.h - System dependent definitions src/defs.h - General definitions src/help.h - Help page definitions src/hist.h - Shell execution and history definitions src/keys.h - Keyboard and key definitions src/list.h - Tree and file list definitions src/term.h - Terminal and screen definitions src/vars.h - Variable definitions src/bind.c - Key binding routines src/comm.c - Common commands for tree and file screen src/echo.c - Utree input and output routines src/edit.c - Line editor src/file.c - File screen menu and functions src/help.c - Help page menu and functions src/hist.c - Shell execution and command history src/list.c - Directory and file list handling src/main.c - Main routine src/stat.c - File status functions src/term.c - Tty and screen handling src/tree.c - Directory tree screen menu and functions src/util.c - Utility routines src/vars.c - Utree variable routines src/vers.c - Utree version and history src/utree.prlist.c - Filter for formatted tree list files bin/utree.backup - Example backup shell script (SYSV) bin/utree.mklist - Example create tree list shell script bin/utree.mklist2 - Alternate utree.mklist from R. Gebhardt bin/qtree - Shell script for quick startup bin/xtree - Shell script for running utree in xterm lib/utree.help - Utree help pages lib/utree.binding - Example keybinding file ($HOME/.utree-term) lib/utree.startup - Example startup file ($HOME/.utree) doc/utree.1 - Manual page for utree doc/utree.prlist.1 - Manual page for utree.prlist sup/README - Readme for varargs v[fs]printf sup/getopt.c - PD command line option parser getopt(3) sup/vsprintf.c - PD varargs sprintf(3) sup/vfprintf.c - PD varargs fprintf(3) (not used by utree) sys/Makefile.286 - UNIX V/286 compatible (MSC on SCO UNIX/386) sys/conf.h.286 sys/Makefile.AIX - AIX 3.1 (IBM RS/6000) sys/conf.h.AIX sys/Makefile.APP - DomainIX 9.5 (BSD4.2 and SystemV) sys/conf.h.APP Siemens WS30/360, Apollo Domain DN4500 sys/Makefile.BSD - BSD 4.2/4.3 (Generic) sys/conf.h.BSD sys/Makefile.CON - ConvexOS 8.1 (Convex C120) sys/conf.h.CON sys/Makefile.M16 - MUNIX V2/07 (PCS Cadmus 9230, MC68010) sys/conf.h.M16 sys/Makefile.M32 - MUNIX V3M3.2 (PCS Cadmus 9600, MC68020) sys/conf.h.M32 sys/Makefile.MIPS - RISC/os 4.51 (MIPS RC3230, R3000) sys/conf.h.MIPS sys/Makefile.RCU - MUNIX V3R3.2 (PCS Cadmus 9900, MIPS R[23]000) sys/conf.h.RCU derived from MIPS RISC/os 4.00 sys/Makefile.SCO - SCO UNIX System V/386 3.2 sys/conf.h.SCO sys/Makefile.SEQ - Dynix i386 (Sequent Symmetrie) sys/conf.h.SEQ sys/Makefile.SGI - IRIX V.3.2 (Silicon Graphics) sys/conf.h.SGI sys/Makefile.SUN - SunOS 4.1.x (SUN4, SPARC) sys/conf.h.SUN sys/Makefile.ULT - Ultrix-32 3.1 (DECstation, VAXstation) sys/conf.h.ULT sys/Makefile.V.2 - System V.2 (Generic) sys/conf.h.V.2 sys/Makefile.V.3 - System V.3 (Generic) sys/conf.h.V.3 sys/Makefile.VAX - 4.3 BSD UNIX (DEC VAX/750) sys/conf.h.VAX sys/Makefile.X23 - SCO XENIX SysV 2.3.2 386GT sys/conf.h.X23 tst/fionread.c - Test ioctl(FIONREAD) tst/sigwinch.c - Test signal SIGWINCH and ioctl(TIOCGWINSZ) after resizing a terminal window under X. ------------------------------------------------------------------------------ NECESSARY SERVICING, REPAIR OR CORRECTION. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW WILL THE AUTHORS AND/OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THIS PROGRAM BE LIABLE TO YOU FOR utree/Makefile1006440013110001060000001173305255652746010015 0 0 1 0 # # Makefile for UTREE 3.03-um # klin, Sun Feb 16 16:35:52 1992 # # Steps to create an utree executable: # - First check src/Makefile if all definitions are correct for # your system. There are some Makefiles for SYSV.2, SYSV.3 and # BSD. Check and change the correct Makefile for your system and # copy it to Makefile. # - Then check src/conf.h if all definitions are correct for # your system. There are some conf.h for SYSV.2, SYSV.3 and # BSD. Check and change the correct conf.h for your system and # copy it to conf.h. # - Call make or make utree to create utree. The executable # is written into the bin directory. Test utree. # # Steps to create utree man page: # - Check all manual definitions in this Makefile and change them if # needed. # - Call make man to create the utree manual page if your # systems needs formatted and/or packed manual pages. # # Steps to install utree: # - Check all install definitions in this Makefile and change them if # needed. # - Call make install to install utree executables and manual # page (you must be super user to do this). # # --------------------------------------------------------------------- # # Utree executables # The utree utility UTREE=utree # The tree list formatter UTPRL=utree.prlist # Utree support shell scripts UHELP= utree.help # Utree help pages UBACK= utree.backup # Utree backup shell script ULIST= utree.mklist # Create directory lists for quicker startup UTMAN= utree.1 # Utree man page UPMAN= utree.prlist.1 # Utree.prlist man page # --------------------------------------------------------------------- # # Create utree executable all: $(UTREE) $(UTPRL) clean: clean.real ( cd src; make -f ../Makefile clean.real ) ( cd bin; make -f ../Makefile clean.real ) clean.real: -rm -f *.o *.BAK *.CKP *~ -rm -f core $(UTREE) $(UTPRL) # Compile and link utree executables $(UTREE): @echo "Make $(UTREE)" cd src; make $@ $(UTPRL): @echo "Make $(UTPRL)" cd src; make $@ # Strip off symbols strip: @echo "Make stripped $(UTREE)" cd src; make $@ # --------------------------------------------------------------------- # # Utree manual pages. Edit and change the following lines if needed! # Commands needed for utree manual page TBL= tbl NROFF= nroff CP= cp RM= rm PACK= pack COMP= compress man: # Unformatted manual pages $(CP) doc/utree.m doc/$(UTMAN).1 $(CP) doc/utree.prlist.m doc/$(UPMAN).1 # Formatted manual pages # $(TBL) doc/utree.m | $(NROFF) -man > doc/$(UTMAN) # $(TBL) doc/utree.prlist.m | $(NROFF) -man > doc/$(UPMAN) # Packed formatted manual pages # $(RM) -f doc/$(UTMAN).z doc/$(UPMAN).z # $(PACK) doc/$(UTMAN) doc/$(UPMAN) # Compressed formatted manual pages # $(RM) -f doc/$(UTMAN).Z doc/$(UPMAN).Z # $(COMP) doc/$(UTMAN) doc/$(UPMAN) # --------------------------------------------------------------------- # # Install utree. Change the following lines if needed! # WARNING: You must be super user to do this! # Bin, lib and man directories for utree files BINDIR= /usr/local/bin LIBDIR= /usr/local/lib MANDIR= /usr/local/man/man1 #MANDIR= /usr/local/man/cat1 # Commands needed for installation of utree files CHMOD= chmod CHOWN= chown CHGRP= chgrp MKDIR= mkdir -p # Access modes and owner/group of utree binaries, help and man pages XMODE= 0755 RMODE= 0644 OWNER= bin GROUP= bin # Sorry, not all UNIXes have the (BSD) install utility! install: @echo "Install $(UTREE)" -test -d $(BINDIR) || $(MKDIR) $(BINDIR) -test -d $(LIBDIR) || $(MKDIR) $(LIBDIR) -test -d $(MANDIR) || $(MKDIR) $(MANDIR) $(CP) bin/$(UTREE) $(BINDIR) $(CHMOD) $(XMODE) $(BINDIR)/$(UTREE) $(CHOWN) $(OWNER) $(BINDIR)/$(UTREE) $(CHGRP) $(GROUP) $(BINDIR)/$(UTREE) @echo "Install $(UTPRL)" $(CP) bin/$(UTPRL) $(BINDIR) $(CHMOD) $(XMODE) $(BINDIR)/$(UTPRL) $(CHOWN) $(OWNER) $(BINDIR)/$(UTPRL) $(CHGRP) $(GROUP) $(BINDIR)/$(UTPRL) @echo "Install $(UHELP) in $(LIBDIR)" $(CP) lib/$(UHELP) $(LIBDIR) $(CHMOD) $(RMODE) $(LIBDIR)/$(UHELP) $(CHOWN) $(OWNER) $(LIBDIR)/$(UHELP) $(CHGRP) $(GROUP) $(LIBDIR)/$(UHELP) @echo "Install $(UBACK) in $(BINDIR)" $(CP) bin/$(UBACK) $(BINDIR) $(CHMOD) $(XMODE) $(BINDIR)/$(UBACK) $(CHOWN) $(OWNER) $(BINDIR)/$(UBACK) $(CHGRP) $(GROUP) $(BINDIR)/$(UBACK) @echo "Install $(ULIST) in $(BINDIR)" $(CP) bin/$(ULIST) $(BINDIR) $(CHMOD) $(XMODE) $(BINDIR)/$(ULIST) $(CHOWN) $(OWNER) $(BINDIR)/$(ULIST) $(CHGRP) $(GROUP) $(BINDIR)/$(ULIST) @echo "Install $(UTMAN) $(UPMAN) in $(MANDIR)" $(CP) doc/$(UTMAN) doc/$(UPMAN) $(MANDIR) $(CHMOD) $(RMODE) $(MANDIR)/$(UTMAN) $(MANDIR)/$(UPMAN) $(CHOWN) $(OWNER) $(MANDIR)/$(UTMAN) $(MANDIR)/$(UPMAN) $(CHGRP) $(GROUP) $(MANDIR)/$(UTMAN) $(MANDIR)/$(UPMAN) # --------------------------------------------------------------------- # installation src/Makefile e list files bin/utree.backup - Example backup shell script (SYSV) bin/utree.mklist - Example create tree list shell script bin/utree.mklist2 - Alternate utree.mklist from R. Gebhardt bin/qtree - Shell script for quick startup bin/xtree - Shell script for running utree in xterm lib/utree.help - Utree help pages lib/utree.binding - Example keybinding file ($HOME/.utree-term) lib/utree.startup - Example startup file ($HOME/.utree) doc/utree.1 - Manual page for utree doc/utree.prlist.1 - Manual page for utree.prlist sup/README - Readme for varargs v[fs]printf sup/getopt.c - PD command line option parser getopt(3) sup/vsprintf.c - PD varargs sprintf(3) sup/vfprintf.c - PD varargs fprintf(3) (not used by utree) sys/Makefile.286 - UNIX V/286 compatible (MSC on SCO UNIX/386) sys/conf.h.286 sys/Makefile.AIX - AIX 3.1 (IBM RS/6000) sys/conf.h.AIX sys/Makefile.APP - DomainIX 9.5 (BSD4.2 and SystemV) sys/conf.h.APP Siemens WS30/360, Apollo Domain DN4500 sys/Makefile.BSD - BSD 4.2/4.3 (Generic) sys/conf.h.BSD sys/Makefile.CON - ConvexOS 8.1 (Convex C120) sys/conf.h.CON sys/Makefile.M16 - MUNIX V2/07 (PCS Cadmus 9230, MC68010) sys/conf.h.M16 sys/Makefile.M