shields@yunccn.UUCP (Paul Shields) (01/08/90)
This is the little menu shell program I bragged about in comp.unix.xenix
last thursday. I hope you all didn't get false expectations about it.
I took the time to generate a few example menu files and double-check to
make sure it still compiles on the Sun over at ISTS.
Doubtless there are still problems with it. But I'm always open to
constructive criticism. So give it a try.
Enjoy!
Paul Shields.
#--------------------------------CUT HERE-------------------------------------
#! /bin/sh
#
# This is a shell archive. Save this into a file, edit it
# and delete all lines above this comment. Then give this
# file to sh by executing the command "sh file". The files
# will be extracted into the current directory owned by
# you with default permissions.
#
# The files contained herein are:
#
# -rw-r--r-- 1 bin staff 2051 Jan 8 03:03 HISTORY
# -rw-r--r-- 1 bin staff 3678 Jan 8 01:46 INSTALL
# -rw-r--r-- 2 bin staff 1706 Jan 8 02:10 Makefile
# -rw-r--r-- 1 bin staff 1653 Jan 8 02:12 Makefile.BSD
# -rw-r--r-- 1 bin staff 1659 Jan 8 02:14 Makefile.Sun
# -rw-r--r-- 2 bin staff 1706 Jan 8 02:10 Makefile.Xenix
# -rw-r--r-- 1 bin staff 940 Jan 8 01:23 PROBLEMS
# -rw-r--r-- 1 bin staff 983 Jan 7 19:35 README
# -rw-r--r-- 1 bin staff 3330 Jan 8 03:08 WARRANTY
# -rw-r--r-- 1 bin staff 711 Jan 7 19:50 login.sample
# -rw-r--r-- 1 bin staff 726 Jan 8 02:57 lush.doc
# -rw-r--r-- 1 bin staff 300 Jan 8 02:44 lushrc.sample
# -rw-r--r-- 1 bin staff 148 Jan 8 01:11 lushrc.test
# -rw-r--r-- 1 bin staff 12973 Jan 8 02:42 menu.sample
# -rw-r--r-- 1 bin staff 1325 Jan 7 19:56 menu.test
#
echo 'x - HISTORY'
if test -f HISTORY; then echo 'shar: not overwriting HISTORY'; else
sed 's/^X//' << '________This_Is_The_END________' > HISTORY
Xlush Revision History
X---------------------
X
X1987:
X May ??. v0.00 (PAS) MS-DOS version.
X Sep 6. v0.10 (PAS) Port to Xenix SysV.
X Load config file from $LUSHRC;
X security feature: strip user input: "<|>";
X Case is now insensitive.
X Nov ??. v0.20 (PAS) Alpha test phase begins.
X
X1988:
X Mar 11. v1.00 (PAS) Alpha version debugged and tested on
X SysV Xenix and MS-DOS. Beta phase begins.
X Mar ??. v1.10 (PAS) Added simple termcap support.
X Apr 15. v1.11 (PAS) debugged termcap support.
X Apr 11. v1.20 (PAS) extended support to SunOs 3.5,
X (BSD4.2 variant, non-ANSI C compiler.)
X Apr 16, v1.21 (PAS) merged v1.11+1.20.
X May 11. v1.22 (PAS) corrected a problem in the Makefiles.
X May 29. v1.23 (PAS) security fix: ignore SIGTSTP.
X Jun 13. v1.30 (PAS) several valuable enhancements:
X added "invisible" commands.
X added switches on the command line:
X lush -f rcfile -R rootmenu
X Handle ~user
X Enable setenv (function #12.)
X
X1989:
X Mar 1. v1.31 (PAS) added a primitive to quit to main menu.
X
X1990:
X Jan 5. v1.32 (PAS) security feature: strip ";&" from user input.
X Jan 5. v1.32 (PAS) Generated documentation for the public release.
X Jan 7. v1.33 (PAS) Lots.
X Added switches -M, -U, -G. -f is now a synonym for -M.
X Created the config.h file.
X Added global and local environment configuration files. This is
X to enable lush to run as the top level shell. These files are
X of the format VAR=string, and are placed into the environment
X before the menu file is loaded.
X Redefined the meaning of the LUSHRC environment variable. Now,
X it points to the user environment config file, whereas before it
X pointed to the menu file itself. This radical change is
X justified to avoid confusion when the first public release is
X put out.
X Broke mparse.c down into mfile.c, mlex.c, and mparse.c. This is
X to facilitate letting other parts of the code use the lexical
X analyser.
X Added more documentation and sample files.
X Jan 8. v1.34 (PAS) Froze the files for public release.
________This_Is_The_END________
if test `wc -l < HISTORY` -ne 51; then
echo 'shar: HISTORY was damaged during transit (should have been 51 lines)'
fi
fi ; : end of overwriting check
echo 'x - INSTALL'
if test -f INSTALL; then echo 'shar: not overwriting INSTALL'; else
sed 's/^X//' << '________This_Is_The_END________' > INSTALL
XThis file gives instructions on how to set up lush. It assumes you have
Xsystem manager privileges.
X
X. Choose the correct Makefile based on your system and compiler. The
X SysV and Xenix configutations should be the same. You may want to
X change BINDIR and LIBDIR in the Makefile.
X
X. Type make to build the program.
X
X. Test that it is working, with the following command:
X
X ./lush -M menu.test -G lushrc.test
X
X This should place a test menu on the screen. Try each option.
X
X. Create and configure the files lushrc (the system config file) and
X menu (the system menu file.) There are samples (lushrc.sample,
X menu.sample) of each of these. This is typically very site-specific.
X Documentation for the syntax of the menu file is included in
X menu.sample. The syntax of the lushrc file is apparent from the sample.
X
X. Type make install to place the binary in BINDIR and the config
X files in LIBDIR.
X
X. Create a test account to use the menu system. You can make this use
X lush as the login shell or run it from another shell.
X
X The single remaining problem with using lush as the login shell is
X that there is no good way to set the terminal type. This may be done
X from sh or csh in the usual way. Lush needs to have the environment variable
X TERM in order to work properly. If term is not set at all, lush will
X try "dumb" as a last resort.
X
X BEWARE: If you run lush from another shell...
X (1) You must trap interrupt and quit signals in the .profile of the
X other shell. Lush handles these, but if you do not trap them,
X there is a time window in which the user could break through to
X the bare shell.
X (2) Be sure to add a logout statement after lush exits, since lush
X won't automatically log out the user if run as a sub-shell.
X
XNotes:
X
X1.If you invoke lush from a another shell, you may place switches
X on the command line:
X
X lush [-M menu-file] [-R root-menu] [-G global-config-file]
X [-U user-config-file]
X
X The optional switch '-G' tells lush the location of the global run-time
X configuration file (see lushrc.sample). The default value, set in
X config.h, is usually /usr/lib/lush/lushrc. This file contains a list
X of environment definitions that will be set up before any other file
X is loaded. These environment variables are used as defaults to the
X other parameters below, and are available to the designer of the menu
X file (see menu.sample) during execution.
X
X The optional switch '-U' tells lush the location of the user run-time
X configuration file. The default is the $LUSHRC environment variable.
X If not defined, the value set in config.h (usually ~/.lushrc) is used.
X It is similar to the global rc file, above, but serves to permit
X configuration on a per-user basis.
X
X The optional switch '-M' tells lush where to find the menu
X specification file. The default is the $MENUFILE environment
X variable. If not defined, the value set in config.h (usually
X /usr/lib/lush/menu) is used as a last resort.
X
X The switch '-R' tells lush which menu is the root, (the first
X menu to be displayed.) The default is the $ROOTMENU environment
X variable. If not defined, the value set in config.h (usually
X MAIN_MENU) is used as a last resort.
X
X2.When lush runs, it ensures that the following environment variables
X are initialized:
X
X Variable Default Purpose
X -------- ------- -------
X SHELL argv[0] the name of the shell
X USER in /etc/passwd your username (security feature)
X TTY ttyname() your terminal name (security feature)
X TERM "dumb" your terminal type (specific terminal handling)
X HOME in /etc/passwd your home directory
________This_Is_The_END________
if test `wc -l < INSTALL` -ne 83; then
echo 'shar: INSTALL was damaged during transit (should have been 83 lines)'
fi
fi ; : end of overwriting check
echo 'x - Makefile'
if test -f Makefile; then echo 'shar: not overwriting Makefile'; else
sed 's/^X//' << '________This_Is_The_END________' > Makefile
X# Makefile.Xenix
X# Xenix System V Generic Makefile for lush
X
XLIBDIR=/usr/lib/lush
XBINDIR=/usr/local/bin
X
X# compiler definitions you might want to have:
X#
X# -DPROTOTYPE if your compiler can handle prototype statements
X# -DMSDOS if you are running under MS-DOS
X# -DSUN if you are running on a Sun workstation
X
XCC = cc -M0s -i -Zi
XDEBUG =
XDEFS = -DPROTOTYPE
XCFLAGS = $(DEBUG) $(DEFS)
XLDFLAGS= -Fmlush.map
XLIBS = -lc -ltermcap
X
XHFILES = mparse.h mlex.h mfile.h menu.h edit.h lush.h defs.h version.h config.h
XCFILES = mparse.c mlex.c mfile.c menu.c edit.c lush.c envinit.c getin.c login.c
XOBJS = mparse.o mlex.o mfile.o menu.o edit.o lush.o envinit.o getin.o login.o
X
X# ----------------------------- dependencies --------------------------------
X
Xlush: $(OBJS)
X $(CC) $(LDFLAGS) $(OBJS) $(LIBS) -o lush
X
Xclean:
X -rm -f lush a.out core errs *.o *.map
X
Xinstall: lush lushrc menu
X -test -d $(BINDIR) || mkdir $(BINDIR)
X -test -d $(LIBDIR) || mkdir $(LIBDIR)
X -strip lush
X chmod 755 lush
X chmod 644 lushrc menu
X cp lush $(BINDIR)
X cp lushrc menu $(LIBDIR)
X
Xmparse.o: mparse.c mparse.h mlex.h mfile.h menu.h lush.h defs.h config.h
X $(CC) $(CFLAGS) mparse.c -c
X
Xmlex.o: mlex.c mlex.h mfile.h lush.h defs.h
X $(CC) $(CFLAGS) mlex.c -c
X
Xmfile.o: mfile.c mfile.h lush.h defs.h
X $(CC) $(CFLAGS) mfile.c -c
X
Xmenu.o: menu.c menu.h lush.h defs.h config.h
X $(CC) $(CFLAGS) menu.c -c
X
Xedit.o: edit.c edit.h lush.h defs.h config.h
X $(CC) $(CFLAGS) edit.c -c
X
Xenvinit.o: envinit.c lush.h defs.h config.h
X $(CC) $(CFLAGS) envinit.c -c
X
Xlogin.o: login.c defs.h
X $(CC) $(CFLAGS) login.c -c
X
Xgetin.o: getin.c defs.h
X $(CC) $(CFLAGS) getin.c -c
X
Xlush.o: lush.c lush.h defs.h config.h version.h
X $(CC) $(CFLAGS) lush.c -c
________This_Is_The_END________
if test `wc -l < Makefile` -ne 66; then
echo 'shar: Makefile was damaged during transit (should have been 66 lines)'
fi
fi ; : end of overwriting check
echo 'x - Makefile.BSD'
if test -f Makefile.BSD; then echo 'shar: not overwriting Makefile.BSD'; else
sed 's/^X//' << '________This_Is_The_END________' > Makefile.BSD
X# Makefile.BSD
X# Generic BSD4.2 Makefile for lush
X
XLIBDIR=/usr/lib/lush
XBINDIR=/usr/local/bin
X
X# compiler definitions you might want to have:
X#
X# -DPROTOTYPE if your compiler can handle prototype statements
X# -DMSDOS if you are running under MS-DOS
X# -DSUN if you are running on a Sun workstation
X
XDEBUG =
XDEFS = -DBSD
XCFLAGS = $(DEBUG) $(DEFS)
XLDFLAGS=
XLIBS = -ltermcap
X
XHFILES = mparse.h mlex.h mfile.h menu.h edit.h lush.h defs.h version.h config.h
XCFILES = mparse.c mlex.c mfile.c menu.c edit.c lush.c envinit.c getin.c login.c
XOBJS = mparse.o mlex.o mfile.o menu.o edit.o lush.o envinit.o getin.o login.o
X
X# ----------------------------- dependencies --------------------------------
X
Xlush: $(OBJS)
X $(CC) $(LDFLAGS) $(OBJS) $(LIBS) -o lush
X
Xclean:
X -rm -f lush a.out core errs *.o *.map
X
Xinstall: lush lushrc menu
X -test -d $(BINDIR) || mkdir $(BINDIR)
X -test -d $(LIBDIR) || mkdir $(LIBDIR)
X -strip lush
X chmod 755 lush
X chmod 644 lushrc menu
X cp lush $(BINDIR)
X cp lushrc menu $(LIBDIR)
X
Xmparse.o: mparse.c mparse.h mlex.h mfile.h menu.h lush.h defs.h config.h
X $(CC) $(CFLAGS) mparse.c -c
X
Xmlex.o: mlex.c mlex.h mfile.h lush.h defs.h
X $(CC) $(CFLAGS) mlex.c -c
X
Xmfile.o: mfile.c mfile.h lush.h defs.h
X $(CC) $(CFLAGS) mfile.c -c
X
Xmenu.o: menu.c menu.h lush.h defs.h config.h
X $(CC) $(CFLAGS) menu.c -c
X
Xedit.o: edit.c edit.h lush.h defs.h config.h
X $(CC) $(CFLAGS) edit.c -c
X
Xenvinit.o: envinit.c lush.h defs.h config.h
X $(CC) $(CFLAGS) envinit.c -c
X
Xlogin.o: login.c defs.h
X $(CC) $(CFLAGS) login.c -c
X
Xgetin.o: getin.c defs.h
X $(CC) $(CFLAGS) getin.c -c
X
Xlush.o: lush.c lush.h defs.h config.h version.h
X $(CC) $(CFLAGS) lush.c -c
________This_Is_The_END________
if test `wc -l < Makefile.BSD` -ne 65; then
echo 'shar: Makefile.BSD was damaged during transit (should have been 65 lines)'
fi
fi ; : end of overwriting check
echo 'x - Makefile.Sun'
if test -f Makefile.Sun; then echo 'shar: not overwriting Makefile.Sun'; else
sed 's/^X//' << '________This_Is_The_END________' > Makefile.Sun
X# Makefile.Sun
X# SunOs BSD 4.2 Makefile for lush
X
XLIBDIR=/usr/lib/lush
XBINDIR=/usr/local/bin
X
X# compiler definitions you might want to have:
X#
X# -DPROTOTYPE if your compiler can handle prototype statements
X# -DMSDOS if you are running under MS-DOS
X# -DSUN if you are running on a Sun workstation
X
XDEBUG =
XDEFS = -DBSD -DSUN
XCFLAGS = $(DEBUG) $(DEFS)
XLDFLAGS=
XLIBS = -ltermcap
X
XHFILES = mparse.h mlex.h mfile.h menu.h edit.h lush.h defs.h version.h config.h
XCFILES = mparse.c mlex.c mfile.c menu.c edit.c lush.c envinit.c getin.c login.c
XOBJS = mparse.o mlex.o mfile.o menu.o edit.o lush.o envinit.o getin.o login.o
X
X# ----------------------------- dependencies --------------------------------
X
Xlush: $(OBJS)
X $(CC) $(LDFLAGS) $(OBJS) $(LIBS) -o lush
X
Xclean:
X -rm -f lush a.out core errs *.o *.map
X
Xinstall: lush lushrc menu
X -test -d $(BINDIR) || mkdir $(BINDIR)
X -test -d $(LIBDIR) || mkdir $(LIBDIR)
X -strip lush
X chmod 755 lush
X chmod 644 lushrc menu
X cp lush $(BINDIR)
X cp lushrc menu $(LIBDIR)
X
Xmparse.o: mparse.c mparse.h mlex.h mfile.h menu.h lush.h defs.h config.h
X $(CC) $(CFLAGS) mparse.c -c
X
Xmlex.o: mlex.c mlex.h mfile.h lush.h defs.h
X $(CC) $(CFLAGS) mlex.c -c
X
Xmfile.o: mfile.c mfile.h lush.h defs.h
X $(CC) $(CFLAGS) mfile.c -c
X
Xmenu.o: menu.c menu.h lush.h defs.h config.h
X $(CC) $(CFLAGS) menu.c -c
X
Xedit.o: edit.c edit.h lush.h defs.h config.h
X $(CC) $(CFLAGS) edit.c -c
X
Xenvinit.o: envinit.c lush.h defs.h config.h
X $(CC) $(CFLAGS) envinit.c -c
X
Xlogin.o: login.c defs.h
X $(CC) $(CFLAGS) login.c -c
X
Xgetin.o: getin.c defs.h
X $(CC) $(CFLAGS) getin.c -c
X
Xlush.o: lush.c lush.h defs.h config.h version.h
X $(CC) $(CFLAGS) lush.c -c
________This_Is_The_END________
if test `wc -l < Makefile.Sun` -ne 65; then
echo 'shar: Makefile.Sun was damaged during transit (should have been 65 lines)'
fi
fi ; : end of overwriting check
echo 'x - Makefile.Xenix'
if test -f Makefile.Xenix; then echo 'shar: not overwriting Makefile.Xenix'; else
sed 's/^X//' << '________This_Is_The_END________' > Makefile.Xenix
X# Makefile.Xenix
X# Xenix System V Generic Makefile for lush
X
XLIBDIR=/usr/lib/lush
XBINDIR=/usr/local/bin
X
X# compiler definitions you might want to have:
X#
X# -DPROTOTYPE if your compiler can handle prototype statements
X# -DMSDOS if you are running under MS-DOS
X# -DSUN if you are running on a Sun workstation
X
XCC = cc -M0s -i -Zi
XDEBUG =
XDEFS = -DPROTOTYPE
XCFLAGS = $(DEBUG) $(DEFS)
XLDFLAGS= -Fmlush.map
XLIBS = -lc -ltermcap
X
XHFILES = mparse.h mlex.h mfile.h menu.h edit.h lush.h defs.h version.h config.h
XCFILES = mparse.c mlex.c mfile.c menu.c edit.c lush.c envinit.c getin.c login.c
XOBJS = mparse.o mlex.o mfile.o menu.o edit.o lush.o envinit.o getin.o login.o
X
X# ----------------------------- dependencies --------------------------------
X
Xlush: $(OBJS)
X $(CC) $(LDFLAGS) $(OBJS) $(LIBS) -o lush
X
Xclean:
X -rm -f lush a.out core errs *.o *.map
X
Xinstall: lush lushrc menu
X -test -d $(BINDIR) || mkdir $(BINDIR)
X -test -d $(LIBDIR) || mkdir $(LIBDIR)
X -strip lush
X chmod 755 lush
X chmod 644 lushrc menu
X cp lush $(BINDIR)
X cp lushrc menu $(LIBDIR)
X
Xmparse.o: mparse.c mparse.h mlex.h mfile.h menu.h lush.h defs.h config.h
X $(CC) $(CFLAGS) mparse.c -c
X
Xmlex.o: mlex.c mlex.h mfile.h lush.h defs.h
X $(CC) $(CFLAGS) mlex.c -c
X
Xmfile.o: mfile.c mfile.h lush.h defs.h
X $(CC) $(CFLAGS) mfile.c -c
X
Xmenu.o: menu.c menu.h lush.h defs.h config.h
X $(CC) $(CFLAGS) menu.c -c
X
Xedit.o: edit.c edit.h lush.h defs.h config.h
X $(CC) $(CFLAGS) edit.c -c
X
Xenvinit.o: envinit.c lush.h defs.h config.h
X $(CC) $(CFLAGS) envinit.c -c
X
Xlogin.o: login.c defs.h
X $(CC) $(CFLAGS) login.c -c
X
Xgetin.o: getin.c defs.h
X $(CC) $(CFLAGS) getin.c -c
X
Xlush.o: lush.c lush.h defs.h config.h version.h
X $(CC) $(CFLAGS) lush.c -c
________This_Is_The_END________
if test `wc -l < Makefile.Xenix` -ne 66; then
echo 'shar: Makefile.Xenix was damaged during transit (should have been 66 lines)'
fi
fi ; : end of overwriting check
echo 'x - PROBLEMS'
if test -f PROBLEMS; then echo 'shar: not overwriting PROBLEMS'; else
sed 's/^X//' << '________This_Is_The_END________' > PROBLEMS
XThis file is for documenting bugs and misfeatures. Your comments and
Xsuggestions for how to improve lush are always welcome.
X
X1. Lush will run as the login shell, but BEWARE:
X The single remaining problem with using lush as the login shell
X is that there is no good way to set the terminal type.
X This is not good for dialup users, who may be calling from any
X type of terminal.
X
X I'm working on it.
X
X2. Lush uses termcap. I haven't even thought about terminfo.
X
X3. Though it uses termcap, it is still command based. That is, You
Xcan't use the cursor keys to make a selection. I'm currently thinking
Xabout what this would entail, and I want to maintain portability to
XMS-DOS.
X
X4. The MS-DOS part of the code has not been exercised in a while.
X
X5. Ctrl-D is currently ignored. Perhaps it should pop back one menu?
X
X6. Function numbers 4 (CHK_RDACC), 7 (CHK_WRACC), and 11 (CHK_ACCESS)
Xare defined but not currently used.
________This_Is_The_END________
if test `wc -l < PROBLEMS` -ne 24; then
echo 'shar: PROBLEMS was damaged during transit (should have been 24 lines)'
fi
fi ; : end of overwriting check
echo 'x - README'
if test -f README; then echo 'shar: not overwriting README'; else
sed 's/^X//' << '________This_Is_The_END________' > README
XPlease read the file "WARRANTY" in this directory.
X
XLush is a user interface intended to ease the learning curve required to
Xmake effective use of UNIX. System administrators may install it to run
Xas the top-level shell in /etc/passwd, or it may run another shell. It
Xprovides a simple menu for the user, and switches amongst sub-menus or
Xcalls programs based on the menu configuration file.
X
XIt has a partially visual interface, which supports various terminals
Xthrough termcap.
X
XAt this time, it has been tested on BSD 4.2, Xenix System V, and MS-DOS.
XTo compile it under MS-DOS, you will need a library of functions which
Xemulate many of the UNIX system calls (available from me for Lattice C
Xv3.20.) The DOS code has not been exercised in over a year, so it may
Xrequire some work.
X
XTo install it, follow the instructions in the file INSTALL, in this
Xdirectory.
X
XCurrently lush is at version 1.32.
X
XGood luck, and enjoy.
XPaul Shields,
XFri Jan 5 16:31:09 EST 1990
XToronto.
________This_Is_The_END________
if test `wc -l < README` -ne 26; then
echo 'shar: README was damaged during transit (should have been 26 lines)'
fi
fi ; : end of overwriting check
echo 'x - WARRANTY'
if test -f WARRANTY; then echo 'shar: not overwriting WARRANTY'; else
sed 's/^X//' << '________This_Is_The_END________' > WARRANTY
XCopyright(C)1987,1988,1989,1990 by Paul A. Shields. Permission is
Xgranted to redistribute this software as long as the complete source
Xcode is included in the distribution, the files are not altered in any
Xway, and no monetary profit is gained from its distribution.
X
XThis software is provided "as is", without any warranty. The author has
Xmade every effort to test this software, however since it is provided
Xwithout charge, he shall not be held responsible for damages resulting
Xfrom its use nor from the inability to use it. You must assume all
Xcosts of servicing it or replacing it if it does not perform as
Xspecified, or does not meet your expectations.
X
XThe following is a list of the files you should expect to have:
X
Xtotal 198
X-rw-r--r-- 1 bin staff 2051 Jan 8 03:03 HISTORY
X-rw-r--r-- 1 bin staff 3678 Jan 8 01:46 INSTALL
X-rw-r--r-- 2 bin staff 1706 Jan 8 02:10 Makefile
X-rw-r--r-- 1 bin staff 1653 Jan 8 02:12 Makefile.BSD
X-rw-r--r-- 1 bin staff 1659 Jan 8 02:14 Makefile.Sun
X-rw-r--r-- 2 bin staff 1706 Jan 8 02:10 Makefile.Xenix
X-rw-r--r-- 1 bin staff 940 Jan 8 01:23 PROBLEMS
X-rw-r--r-- 1 bin staff 983 Jan 7 19:35 README
X-rw-r--r-- 1 bin staff 3330 Jan 8 03:07 WARRANTY
X-rw-r--r-- 1 bin staff 1054 Jan 8 01:57 config.h
X-rw-r--r-- 1 bin staff 1498 Jan 7 15:51 defs.h
X-rw-r--r-- 1 bin staff 6473 Jan 5 18:16 edit.c
X-rw-r--r-- 1 bin staff 1508 Mar 1 1989 edit.h
X-rw-r--r-- 1 bin staff 8594 Jan 7 18:25 envinit.c
X-rw-r--r-- 1 bin staff 809 Mar 11 1988 getin.c
X-rw-r--r-- 1 bin staff 529 Mar 11 1988 login.c
X-rw-r--r-- 1 bin staff 711 Jan 7 19:50 login.sample
X-rw-r--r-- 1 bin staff 1586 Jan 7 22:26 lush.c
X-rw-r--r-- 1 bin staff 726 Jan 8 02:57 lush.doc
X-rw-r--r-- 1 bin staff 2156 Jan 7 17:56 lush.h
X-rw-r--r-- 1 bin staff 300 Jan 8 02:44 lushrc.sample
X-rw-r--r-- 1 bin staff 148 Jan 8 01:11 lushrc.test
X-rw-r--r-- 1 bin staff 5054 Jan 7 14:35 menu.c
X-rw-r--r-- 1 bin staff 1580 Jan 8 02:01 menu.h
X-rw-r--r-- 1 bin staff 12973 Jan 8 02:42 menu.sample
X-rw-r--r-- 1 bin staff 1325 Jan 7 19:56 menu.test
X-rw-r--r-- 1 bin staff 2403 Jan 8 01:01 mfile.c
X-rw-r--r-- 1 bin staff 1056 Jan 8 00:46 mfile.h
X-rw-r--r-- 1 bin staff 2111 Jan 8 00:54 mlex.c
X-rw-r--r-- 1 bin staff 1082 Jan 8 01:52 mlex.h
X-rw-r--r-- 1 bin staff 9997 Jan 8 01:04 mparse.c
X-rw-r--r-- 1 bin staff 661 Jan 7 23:14 mparse.h
X-rw-r--r-- 1 bin staff 66 Jan 8 03:04 version.h
X
XIf you modify the software in any way for your own use, please send me a
Xcontext-diff with a note explaining the modifications, and I will
Xconsider it for inclusion in the public release.
X
XIf you have any questions about this software, you may reach me at these
Xaddresses:
X
XE-Mail: shields@nccn.yorku.ca, (...uunet!yunccn!shields)
X shields@ists.ists.ca, (...uunet!ists!shields)
X
XPost: Paul Shields,
X Rm 217A Lumbers, York University,
X 4700 Keele Street,
X North York, Ontario,
X M3J 1P3
X Canada
________This_Is_The_END________
if test `wc -l < WARRANTY` -ne 65; then
echo 'shar: WARRANTY was damaged during transit (should have been 65 lines)'
fi
fi ; : end of overwriting check
echo 'x - login.sample'
if test -f login.sample; then echo 'shar: not overwriting login.sample'; else
sed 's/^X//' << '________This_Is_The_END________' > login.sample
X#!/bin/csh - sample .login file for csh, executes the "lush" menu system.
X#
X# assumes lush is in /usr/local/bin
X#
Xonintr - # ignore interrupts
Xset dftype = dumb # initial default terminal type
Xif ( -r ~/.ttype ) set dftype = `cat ~/.ttype`
Xif ( $TERM != 'ansi' ) echo "Enter your terminal type or Press return for the default, \
X(eg: vt100,ansi,wy30,adm3a,dumb.)"
X
X# Use tset -S instead of tset -s in case disk space is exhausted.
Xset noglob
Xset term = (`tset -S -h -m ansi:ansi -m vt100:\?vt100 -m dialup:\?$dftype -m :\?unknown -I`)
Xsetenv TERM $term[1]
Xsetenv TERMCAP $term[2]
Xunset term
Xunset noglob
X
Xif ( $TERM == 'vt100' ) stty erase '^?' # delete deletes
Xunset dftype
X
X/usr/local/bin/lush
Xlogout
________This_Is_The_END________
if test `wc -l < login.sample` -ne 23; then
echo 'shar: login.sample was damaged during transit (should have been 23 lines)'
fi
fi ; : end of overwriting check
echo 'x - lush.doc'
if test -f lush.doc; then echo 'shar: not overwriting lush.doc'; else
sed 's/^X//' << '________This_Is_The_END________' > lush.doc
XSoon to come... in lush 2.0:
X
X% cat /usr/lib/lush/lushrc
X#!lush - sample global lushrc file
X#
X# ... program invocation using ``
XTERM=`/bin/sh /usr/lib/lush/setterm`
X#
X# ... environment variable options with (a,b,c).
XEDITOR=(/bin/red,/usr/bin/emacs)
XNEWSREADER=(/usr/lib/news/vnews,/usr/lib/news/readnews)
XPAGER=(/usr/bin/more,/usr/local/bin/less)
XINTERFACE=(command,pointer)
X
X% cat ~test/.lushrc
X#!lush...
X# for security,
X# user may choose only from list given in global config file.
X# if the user fails to choose, or does so incorrectly, the default
X# will be the first of the options. Need to provide a way for
X# the user to edit it w/o worrying.
XEDITOR=/usr/bin/emacs
XNEWSREADER=/usr/bin/nn
XPAGER=/usr/local/bin/less
________This_Is_The_END________
if test `wc -l < lush.doc` -ne 24; then
echo 'shar: lush.doc was damaged during transit (should have been 24 lines)'
fi
fi ; : end of overwriting check
echo 'x - lushrc.sample'
if test -f lushrc.sample; then echo 'shar: not overwriting lushrc.sample'; else
sed 's/^X//' << '________This_Is_The_END________' > lushrc.sample
XSHELL=/usr/local/bin/lush
XPATH=:/bin:/usr/bin:/usr/local/bin
XMENUFILE=/usr/lib/lush/menu
XROOTMENU=MAIN_MENU
XLUSHRC=~/.lushrc
XMAILER=/usr/bin/mail
XEDITOR=/usr/local/bin/emacs
XNEWSREADER=/usr/lib/news/vnews
XNEWSBOX=~/
XPAGER=/usr/local/bin/less
XLESS=-e -m -q MPMF< -->p< (q=Quit,f=Forward,u=Up,h=Help)>
________This_Is_The_END________
if test `wc -l < lushrc.sample` -ne 11; then
echo 'shar: lushrc.sample was damaged during transit (should have been 11 lines)'
fi
fi ; : end of overwriting check
echo 'x - lushrc.test'
if test -f lushrc.test; then echo 'shar: not overwriting lushrc.test'; else
sed 's/^X//' << '________This_Is_The_END________' > lushrc.test
XROOTMENU=MAIN_MENU
XLUSHRC=/dev/null
XEDITOR=/usr/local/bin/emacs
XPAGER=/usr/local/bin/less
XLESS=-e -m -q MPMF< -->p< (q=Quit,f=Forward,u=Up,h=Help)>
________This_Is_The_END________
if test `wc -l < lushrc.test` -ne 5; then
echo 'shar: lushrc.test was damaged during transit (should have been 5 lines)'
fi
fi ; : end of overwriting check
echo 'x - menu.sample'
if test -f menu.sample; then echo 'shar: not overwriting menu.sample'; else
sed 's/^X//' << '________This_Is_The_END________' > menu.sample
X#!lush
X# file: menu.sample, lush v1.3 sample menu configuration script.
X#
X# Copyright(C)1987,1988,1989,1990 by Paul A. Shields. Permission is
X# granted to redistribute this software as long as the complete source
X# code is included in the distribution, the files are not altered in any
X# way, and no monetary profit is gained from its distribution.
X#
X# This software is provided "as is", without any warranty. The author has
X# made every effort to test this software, however since it is provided
X# without charge, he shall not be held responsible for damages resulting
X# from its use nor from the inability to use it. You must assume all
X# costs of servicing it or replacing it if it does not perform as
X# specified, or does not meet your expectations.
X#
X# Syntax:
X# This file is free format, ie: space, tab, newline, and comments are
X# treated as white space (comments lie between '#' and newline.)
X#
X# EBNF syntax for menu specification:
X# menu_tree :== main_menu { ';' menu } '.'.
X# main_menu :== 'MAIN_MENU' ':' menu_description menu_body.
X# menu :== menu_title ':' menu_decsription menu_body.
X# menu_title :== text.
X# menu_description :== string.
X# menu_body :== cmd_option {',' cmd_option}.
X# cmd_option :== ['-'] cmd_name menu_title '(' [action_list] ')' cmd_description.
X# cmd_description :== string.
X# cmd_name :== text.
X# action_list :== action {';' action}.
X# action :== function_number parameter.
X# parameter :== string.
X# string :== delimiter text delimiter.
X#
X# Notes:
X# 0) Lush reads the entire rc file before beginning, to check syntax.
X# If a syntax error is discovered, it turfs its cookies and
X# identifies the offending line number.
X#
X# 1) Lush traps SIGINT and SIGQUIT signals. SIGINT will abort a
X# command or action-list in progress and return the user to the
X# most recently accessed menu. SIGQUIT is ignored.
X#
X# 2) The standard menu title MAIN_MENU denotes the root. There are three
X# other standard menu titles, NONE, RETURN and QUIT, which control
X# movement through the structure. NONE indicates that there is no
X# child menu, RETURN exits the menu, returning to the parent, and
X# QUIT returns to the main menu.
X#
X# 3) Each menu title has a menu-description, which is a prompt for
X# the user.
X#
X# 4) There will usually be several options for each menu. For
X# every option there is an associated menu title, indicating the
X# name of the menu to activate on successful completion of the
X# action-list.
X#
X# User-typed commands are case insensitive. Further, the user need only
X# enter the shortest unique string among the current menu options
X# to identify the command, eg: q means Quit.
X#
X# Support for hidden options (ie: not displayed in menu) has been added.
X# The appearance of a "-" before the option makes it hidden.
X#
X# 5) Currently the following function-numbers are defined:
X# 0 = CHG_DIRECTORY - change to the named directory.
X# 1 = CHK_PORT - Examines the environment string TTY and tries
X# to find it in the specified file. If found,
X# the operation is permitted. Otherwise it fails.
X# 2 = CHK_TERM - Examines the environment string TERM and tries
X# to find it in the specified file. If found,
X# the operation is permitted. Otherwise it fails.
X# 3 = PAUSE - pause with "Press enter: " message.
X# 4 = - not used.
X# 5 = CALL_CMD - perform a shell command.
X# 6 = SECUR_CHECK - calls getgrnam() to check permission on named group.
X# 7 = - not used.
X# 8 = EXP_TOGGLE - Toggle expert mode. (no menus.)
X# 9 = PNAME - prompt and get parameter name.
X# 10 = P2NAME - prompt and get 2nd parameter name.
X# 11 = - not used.
X# 12 = SET_ENVT - set an environment variable
X# 13 = SAVE_STR - save string in (global) recall-buffer
X# 14 = RECALL_STR1 - put recall-buffer in parameter 1
X# 15 = RECALL_STR2 - put recall-buffer in parameter 2
X#
X# 6) The menu structure is not necessarily a tree. It is a general
X# directed graph. But there is no cycle detection in the
X# initialization, so be careful!
X#
X# 7) Important! Every menu needs at least one option that will RETURN or
X# QUIT.
X#
XMAIN_MENU: "Main Menu"
X Tools TOOLS_MENU (6 "!alien") "Editing and printing tools",
X Mail MAIL_MENU () "Send and Read mail",
X News NEWS_MENU () "Post and Read news articles",
X Phone NONE (5 "who";
X 9 "The above people are logged in. Username to call? ";
X 5 "phone %s") "Call and talk to another user",
X Help HELP_MENU () "Help on how to use the system",
X Transfer XFER_MENU (6 "!alien") "Transferring files on the network",
X Disk DISK_MENU (6 "!alien";
X 1 "/etc/ldevices") "Use the floppy disk",
X Setup SETUP_MENU () "Change Terminal type and other things.",
X-System MAINT_MENU (6 "!alien") "System maintenance",
X-Bye QUIT (5 "echo Goodbye $USER, thanks for using the NCCN.")
X "Sign off and hang up",
X Logout QUIT (5 "echo Goodbye $USER, thanks for using the NCCN.")
X "Sign off and hang up";
X
XTOOLS_MENU: "Tools Menu"
X Dir NONE (9 "Which directory (default is the current one)? ";
X 5 "ls -las %s | $PAGER")
X "Long listing of files in a directory",
X Display NONE (5 "ls -axF";
X 9 "What file names (separated by spaces)? ";
X 5 "$PAGER %s")
X "Display a file ",
X Edit NONE (5 "ls -axF";
X 9 "File name? ";
X 5 "$EDITOR %s") "Edit a file",
X Print NONE (5 "ls -axF";
X 9 "What file names (separated by spaces)? ";
X 5 "lpr %s") "Print a file ",
X Delete NONE (5 "ls -axF";
X 9 "What file names (separated by spaces)? ";
X 5 "echo 'Answer y or n to each file.'; rm -i %s")
X "Delete a file ",
X Copy NONE (5 "ls -axF";
X 9 "from (file name)? ";
X 10 "to (file name)? ";
X 5 "cp %s %s") "Make a copy of a file",
X Rename NONE (5 "ls -axF";
X 9 "Old file name? ";
X 10 "New file name? ";
X 5 "mv %s %s") "Rename a file",
X Mkdir NONE (9 "New directory name? ";
X 5 "mkdir %s") "Make a new directory (file folder)",
X Cwd NONE (9 "Enter directory name? ";
X 0 "%s") "Change your working directory",
X Help NONE (5 "manual tools") "How to use the tools",
X Return RETURN () "Return to previous menu",
X Quit QUIT () "Go back to main menu";
X
XMAIL_MENU: "Mail Menu"
X Send NONE (9 "To: ";
X 5 "$MAILER %s") "Send a message",
X Read NONE (5 "$MAILER") "Read your messages",
X
X Who NONE (5 "/usr/local/bin/ulist | sort -u | $PAGER")
X "List local users",
X Mbox NONE (5 "$MAILER -f $HOME/mbox")
X "Read old messages from your mbox",
X Help NONE (5 "manual mail") "How to use Mail",
X Quit QUIT () "Go back to main menu";
X
XNEWS_MENU: "News Articles"
X Groups NONE (5 "$PAGER /usr/lib/news/newsgroups")
X "List available news groups",
X-List NONE (5 "$PAGER /usr/lib/news/newsgroups")
X "List available news groups",
X Read NONE (6 "!alien";
X 6 "!user";
X 5 "$NEWSREADER -n general nccn to";
X 3 "") "Read NCCN news articles",
X UNitex NONE (5 "$NEWSREADER -n unitex";
X 3 "") "Read United Nations news articles",
X Usenet NONE (9 "which newsgroup(s)? ";
X 5 "$NEWSREADER -n %s";
X 3 "") "Read Usenet news articles",
X Post NONE (6 "!alien";
X 5 "postnews";
X 3 "") "Post a news article",
X NBox NONE (5 "$MAILER -f $NEWSBOX/Articles")
X "Read old messages in your Articles file",
X Help NONE (5 "manual news") "How to use News",
X Quit QUIT () "Go back to main menu";
X
XHELP_MENU: "Help Menu"
X NewUser NONE (5 "manual newuser") "How can I get an account?",
X Emacs NONE (5 "echo 'Type ^X^C to exit' ; emacs /usr/local/man/emacs-tut.doc")
X "Use Emacs on a tutorial file",
X Topic NONE (5 "manual";
X 9 "What Topic? ";
X 5 "manual %s") "Get help on a specific topic",
X Operator NONE (5 "$MAILER root") "Send a mail message to the operator",
X Guidelines NONE (5 "manual guidelines") "Guidelines for Using News",
X Quit QUIT () "Go back to main menu";
X
XMAINT_MENU: "System Maintenance"
X Monitor NONE (6 "!alien";
X 6 "!group";
X 5 "monitor") "Monitor network performance",
X Mkuser NONE (6 "root";
X 5 "/etc/mkuser") "Make a new user account",
X Rmuser NONE (6 "root";
X 9 "Username? ";
X 5 "remuser") "Remove a user's account",
X Shell NONE (6 "!alien";
X 5 "echo Type exit to return to the menus ; csh -i")
X "Spawns an interactive shell",
X Tools TOOLS_MENU () "Editing and printing tools",
X Help NONE (5 "manual maint") "Help on how to maintain the system",
X Quit QUIT () "Go back to main menu";
X
XXFER_MENU: "Transfer Menu"
X Sendfile NONE (9 "Name of file(s) to send? ";
X 10 "User to send to (in the format site!user)? ";
X 5 "send -m -p %s %s")
X "Send a file to another user",
X Receive NONE (5 "receive") "Receive a file from another user",
X Status NONE (5 "uustat -v -u$USER | $PAGER")
X "Check the status of your UUCP requests",
X CallOut NONE (1 "/etc/ldevices";
X 5 "call.out") "Call out to another system with kermit",
X Kermit NONE (5 "kermit") "Start Kermit upload/download protocol",
X Server NONE (1 "/etc/rdevices";
X 5 "kermit -x") "Start Kermit in server mode *CAREFUL*",
X Download NONE (5 "ls -axF";
X 9 "What file names (separated by spaces)? ";
X 5 "cat %s";
X 3 "") "Display a text file without paging or protocol",
X Tools TOOLS_MENU () "Editing and printing tools",
X Help NONE (5 "manual transfer") "How to perform file transfers",
X Quit QUIT () "Go back to main menu";
X
XDISK_MENU: "Floppy Disk Menu"
X Dtype NONE (9 "Which disk (such as 0 or 1)? ";
X 5 "dtype /dev/fd%s") "Determine what type of floppy disk you have",
X Xenix TAR_MENU () "Use floppies in Xenix 'tar' format",
X Dos DOS_MENU () "Use floppies in MS-DOS format",
X Tools TOOLS_MENU () "Editing and printing tools",
X Help NONE (5 "manual floppy") "How to use the floppy disk",
X Quit QUIT () "Go back to main menu";
X
XTAR_MENU: "Xenix Menu"
X Dir NONE (9 "Which disk (such as 0 or 1)? ";
X 10 "File or Directory names (optional)? ";
X 5 "tar tv%s %s | $PAGER")
X "Directory list of a 'tar' Disk",
X From NONE (9 "Which disk (such as 0 or 1)? ";
X 10 "File or Directory names (optional)? ";
X 5 "tar xv%s %s")
X "Copy a file FROM a 'tar' Disk",
X To NONE (9 "Which disk (such as 0 or 1)? ";
X 10 "File or Directory names? ";
X 5 "tar cv%s %s")
X "Copy a file TO a 'tar' Disk",
X Format NONE (9 "Which disk (such as 0 or 1)? ";
X 5 "format /dev/rfd%s48")
X "Format a 360k 'tar' Disk",
X HFormat NONE (9 "Which disk (such as 0 or 1)? ";
X 5 "format /dev/rfd%s96")
X "Format a 1.2M 'tar' Disk (High Density)",
X Help NONE (5 "manual xenix") "How to transfer to/from Xenix disks",
X Return RETURN () "Go to previous menu",
X Quit QUIT () "Go back to Main Menu";
X
X
XDOS_MENU: "MS-DOS Menu"
X Dir NONE (9 "Which disk (such as A: B: X: or Y:)? ";
X 5 "dosdir %s | $PAGER")
X "Directory list of a Disk",
X From NONE (9 "Which disk and file names (no wildcards, eg: a:file)? ";
X 5 "doscp %s .")
X "Copy a file FROM a Disk",
X To NONE (9 "File or Directory names? ";
X 10 "Which disk (such as A: or B:)? ";
X 5 "doscp %s %s")
X "Copy a file TO a Disk",
X BFrom NONE (9 "Which disk and file names (no wildcards)? ";
X 5 "doscp -r %s .")
X "Copy a Binary file FROM a Disk",
X BTo NONE (9 "File or Directory names? ";
X 10 "Which disk (such as A: or B:)? ";
X 5 "doscp -r %s %s")
X "Copy a Binary file TO a Disk",
X Format NONE (9 "Which disk (such as A: or B:)? ";
X 5 "dosformat %s")
X "Format a 360k 'DOS' Disk",
X HFormat NONE (9 "Which disk (such as X: or Y:)? ";
X 5 "dosformat %s")
X "Format a 1.2M 'DOS' Disk (High Density)",
X Help NONE (5 "manual ms-dos") "How to transfer to/from MS-DOS disks",
X Return RETURN () "Go to previous menu",
X Quit QUIT () "Go back to Main Menu";
X
XSETUP_MENU: "Setup Menu"
X ListTerm NONE (5 "echo this command is not set up yet";
X 3 "") "List supported terminal types",
X TermType NONE (5 "echo this command is not set up yet";
X 3 "") "Change your terminal type",
X Erase NONE (5 "echo this command is not set up yet";
X 3 "") "Change the 'erase' character",
X Interrupt NONE (5 "echo this command is not set up yet";
X 3 "") "Change the 'interrupt' character",
X Eof NONE (5 "echo this command is not set up yet";
X 3 "") "Change the 'eof' character",
X Password NONE (5 "passwd") "Change your password",
X Help NONE (5 "echo this command is not set up yet";
X 3 "") "Get help on the Setup Menu",
X Quit QUIT () "Go back to Main Menu".
________This_Is_The_END________
if test `wc -l < menu.sample` -ne 303; then
echo 'shar: menu.sample was damaged during transit (should have been 303 lines)'
fi
fi ; : end of overwriting check
echo 'x - menu.test'
if test -f menu.test; then echo 'shar: not overwriting menu.test'; else
sed 's/^X//' << '________This_Is_The_END________' > menu.test
X#!lush
X# file: menu.test, lush v1.3 menu configuration script. See the file
X# menu.sample for explanation of the syntax.
X
XMAIN_MENU: "Main Menu"
X One MENU_ONE () "Demonstrate infinite regress",
X Two MENU_TWO () "Same as above, with different starting point",
X Shell NONE (5 "echo Type exit to return to the menus ; csh -i")
X "Spawns an interactive shell",
X Test TEST_MENU () "Check out some environment variables.",
X Bye QUIT (5 "echo Goodbye.") "Sign off and hang up";
X
XMENU_ONE: "Sub-Menu One"
X SubMenu MENU_TWO () "Go to sub-menu Two",
X Return RETURN (5 "echo loop, endless: see endless loop";
X 3 "") "Go back 1 level.",
X Quit QUIT () "Go back to main menu.";
X
XMENU_TWO: "Sub-Menu Two"
X SubMenu MENU_ONE () "Go to sub-menu One",
X Return RETURN (5 "echo endless loop: see loop, endless";
X 3 "") "Go back 1 level.",
X Quit QUIT () "Go back to main menu.";
X
XTEST_MENU: "Test.Menu"
X Lushrc NONE (5 "echo $LUSHRC"; 3 "") "Print LUSHRC name.",
X Path NONE (5 "echo $PATH"; 3 "") "Print PATH.",
X User NONE (5 "echo $USER"; 3 "") "Print USER name.",
X Home NONE (5 "echo $HOME"; 3 "") "Print HOME name.",
X Tty NONE (5 "echo $TTY"; 3 "") "Print TTY name.",
X Term NONE (5 "echo $TERM"; 3 "") "Print TERM name.",
X Pager NONE (5 "echo $PAGER"; 3 "") "Print PAGER name.",
X Quit QUIT () "Go back to main menu.".
________This_Is_The_END________
if test `wc -l < menu.test` -ne 33; then
echo 'shar: menu.test was damaged during transit (should have been 33 lines)'
fi
fi ; : end of overwriting check
exit 0
--
Paul Shields, shields@nccn.yorku.ca (..!uunet!yunccn!shields)