This commit was generated by cvs2svn to compensate for changes in r59243,

which included commits to RCS files with non-trunk default branches.

contrib/tcsh/FAQ

@@ -0,0 +1,211 @@
+
+Last Updated: 
+Fri Mar 12 12:53:43 EST 1999
+
+This is for people who do not read the manual!
+
+So far people who don't read manuals don't read this either... I may
+call it README.*PLEASE* in the future, but then the same people won't
+be able to get ftp it... :-)
+
+1.  Why is the meta key broken in tcsh-5.20 and up? 
+
+    On some machines the tty is not set up to pass 8 bit characters by default.
+    Tcsh 5.19 used to try to determine if pass8 should be set by looking at
+    the terminal's meta key. Unfortunately there is no good way of determining
+    if the terminal can really pass 8 characters or not. Consider if you are
+    logged in through a modem line with 7 bits and parity and your terminal 
+    has a meta key. Then tcsh 5.19 would set wrongly set pass8.
+
+    If you did like the previous behavior you can add in /etc/csh.login, or
+    in .login:
+
+    if ( $?tcsh && $?prompt ) then
+	if ( "`echotc meta`" == "yes" ) then
+	     stty pass8
+	endif
+    endif
+
+    If you don't have pass8, maybe something like
+
+	stty -parity -evenp -oddp cs8 -istrip   (rs6000)
+    or
+	stty -parenb -istrip cs8 
+    
+    would work..
+
+2.  I ran 'dbxtool &' and 'shelltool &' from tcsh, and they end up in cbreak 
+    and no echo mode?
+
+    These programs are broken. Background jobs should not try to look at the
+    tty. What happens is that dbxtool looks in stderr to inherit the tty
+    setups, but tcsh sets up the tty in cbreak and -echo modes, so that it
+    can do line editing. This cannot be fixed because tcsh cannot give away
+    the tty. A work-around is:
+
+    dbxtool < /dev/null >& /dev/null &
+    or
+    /usr/etc/setsid dbxtool &
+
+    If that does not work, for dbxtool at least you can add "sh stty sane"
+    in your .dbxinit
+
+3.  I tried to compile tcsh and it cannot find <locale.h>?
+
+    Your system does not support NLS. Undefine NLS in config_f.h and it
+    should work fine.
+
+4.  Where can I get csh sources? 
+
+    Csh sources are now available with the 4.4BSD networking distributions.
+    You don't need csh sources to compile tcsh-6.0x.
+
+5.  I just made tcsh my login shell, and I cannot ftp any more?
+
+    Newer versions of the ftp daemon check for the validity of the
+    user's shell before they allow logins. The list of valid login
+    shells is either hardcoded or it is usually in a file called
+    /etc/shells. If it is hard-coded, then you are out of luck and
+    your best bet is to get a newer version of ftpd. Otherwise add
+    tcsh to the list of shells. [For AIX this file is called 
+    /etc/security/login.cfg]. Remember that the full path is required.
+    If there is no /etc/shells, and you are creating one, remember to
+    add /bin/csh, /bin/sh, and any other valid shells for your system,
+    so that other people can ftp too :-)
+
+6.  I am using SunView/OpenWindows and editing is screwed up. In 
+    particular my arrow keys and backspace don't work right. What 
+    am I doing wrong?
+
+    Well, cmdtool tries to do its own command line editing and the
+    effect you get is one of using an editor inside an editor. Both
+    try to interpret the arrow key sequences and cmdtool wins since
+    it gets them first. The solutions are in my order of preference:
+
+	1 Don't use suntools
+	2 Use shelltool instead of cmdtool.
+	3 Unset edit in tcsh.
+
+6b. On a SPARCstation running Solaris 2.x and OpenWindows 3.1,
+    inside a cmdtool, the short-cut key sequence to clear log
+    (i.e. Meta-e or Diamond-e) doesn't work: it just echos 'e'
+
+6c. On a SPARCstation running Solaris 2.x and OpenWindows 3.1,
+    maketool (within SPARCworks) doesn't work: it just does
+    a `cd' to the working directory then stops.
+
+    The workaround for 6b and 6c is doing "unset edit."
+    Using shelltool instead of cmdtool doesn't fix 6c.
+
+7.  I rlogin to another machine, and then no matter what I tell 'stty'
+    I cannot get it to pass 8 bit characters?
+
+    Maybe you need to use 'rlogin -8' to tell rlogin to pass 8 
+    bit characters.
+
+8.  Where do I get the public domain directory library?
+  
+    Anonymous ftp to prep.ai.mit.edu:/pub/gnu/dirent.tar.Z
+
+9.  I compiled tcsh using gcc, and when I start up it says:
+    tcsh: Warning no access to tty (Invalid Argument).
+    Thus no job control in this shell
+
+    Your <sys/ioctl.h> file is not ansi compliant. You have one of 3 choices:
+	a. Run fixincludes from the gcc distribution.
+	b. Add -traditional to the gcc flags.
+	c. Compile with cc.
+
+10. I compiled tcsh with the SunOS unbundled compiler and now things 
+    get echo'ed twice. 
+
+    It is a bug in the unbundled optimizer. Lower the optimization level.
+
+11. How can I use the arrow keys with hpterm?
+    Hp terminals use the arrow keys internally. You can tell hpterm not
+    to do that, by sending it the termcap sequence smkx. Since this
+    has to be done all the time, the easiest thing is to put it as an
+    alias for precmd, or inside the prompt:
+
+    if ($term == "hp") then
+	set prompt="%{`echotc smkx`%}$prompt"
+    endif
+
+    Note that by doing that you cannot use pgup and pgdn to scroll...
+    Also if you are using termcap, replace "smkx" with "ks"...
+
+12. On POSIX machines ^C and ^Z will do not work when tcsh is a login
+    shell?
+    Make sure that the interrupt character is set to ^C and suspend
+    is set to ^Z; 'stty -a' will show you the current stty settings;
+    'stty intr ^C susp ^Z' will set them to ^C and ^Z respectively.
+
+13. I am trying to compile tcsh and I am getting compile errors that
+    look like:
+
+    >sh.c:???: `STR???' undeclared, outside of functions [gcc]
+    or
+    >"sh.c", line ???: STR??? undefined [cc]
+
+    You interrupted make, while it was making the automatically
+    generated headers. Type 'make clean; make'
+
+14. On the cray, sometimes the CR/LF mapping gets screwed up.
+
+    You are probably logged in to the cray via telnet. Cray's
+    telnetd implements line mode selection the telnet client
+    you are using does not implement telnet line mode.
+    This cause the Cray's telnetd to try to use KLUDGELINEMODE.
+    You can turn off telnet line mode from the cray side by 
+    doing a "stty -extproc", or you can get the Cray AIC to build
+    a telnetd without KLUDGELINEMODE, or you can compile
+    a new telnet client (from the BSD net2 tape), or at least
+    on the suns use: 'mode character'.
+
+
+15. On AU/X, I made tcsh my startup shell, but the mac desktop is not
+    starting up (no X11 or Finder), and I only get console emulation.
+
+    This is another manifestation of item 5. Just add the pathname
+    to tcsh in /etc/shells and everything should work fine.
+
+16. On machines that use YP (NIS) tilde expansion might end up in /dev/null
+    If this happens complain to your vendor, to get a new version of NIS.
+    You can fix that in tcsh by defining YPBUGS in config.h
+
+17. Script on SGI 4.0.5 does not give us a tty, so we cannot have job
+    control. Their csh does not have job control either. Try:
+	% script
+	% cat > /dev/tty
+
+18. I start tcsh and it takes a couple of minutes to get the prompt.
+    You have defined REMOTEHOST and your DNS is not responding. Either
+    undefine REMOTEHOST and recompile or fix your DNS.
+
+19. If you need help generating your .cshrc file, check out:
+	http://www.imada.ou.dk/~blackie/dotfile/
+
+20. On POSIX systems the kernel will send hup signals to all the processes
+    in the foreground process group if 'stty hupcl' is set. For example
+    ./tcsh
+    echo $$
+    591
+    ./tcsh
+    kill -6 591
+
+    Will kill everything, since hup will be sent to all tcsh processes.
+    To avoid that you can set stty -hupcl, but it is not recommended.
+
+21. When I rsh the meta key stops working on the remote machine.
+
+    Try using rsh -8; this option is undocumented on some systems,
+    but it works. If that does not work, get and use ssh/sshd. You'll
+    be better off from a security point of view anyway.
+
+22. Tcsh compiled under hp/ux-10.x does not pass resource limits correctly
+    when ran on hp/ux-11.x systems. This is a problem with lack of ABI
+    compatibility between the two systems. The only solution is to recompile.
+
+christos
+
+Everything else is a bug :-(

contrib/tcsh/Imakefile

@@ -0,0 +1,622 @@
+XCOMM
+XCOMM $Id: Imakefile,v 1.76 1999/06/09 19:26:36 christos Exp $
+XCOMM
+XCOMM Imakefile for tcsh 6.08
+XCOMM Marc Horowitz, MIT SIPB
+XCOMM
+
+#ifdef DestDir
+#undef DestDir
+#endif
+#ifdef ManSuffix
+#undef ManSuffix
+#endif
+
+/* All config options go in a separate file. */
+
+#include "imake.config"
+
+#ifndef HasGcc
+# define HasGcc 0
+#endif
+
+#ifndef HasGcc2
+# define HasGcc2 0
+#endif
+
+/* This is a giant conditional block.  It should be set up right for
+platforms which are in here, but it may need to be changed for new
+ones.  Please send in your fixes and additions! */
+
+/**** tcsh configuration defines ****/
+
+/* specific platforms */
+
+#ifndef ConfigH
+# ifdef UltrixArchitecture
+#  define ConfigH ultrix
+# endif
+
+# ifdef UxpArchitecture
+#  define ConfigH sysv4
+# endif
+
+# ifdef LinuxArchitecture
+#  define ConfigH linux
+# endif
+
+# ifdef AlphaArchitecture
+#  ifndef LinuxArchitecture
+#    define ConfigH decosf1
+#  endif
+#  if !HasGcc
+#   define MyCflags -std1 -Olimit 2000
+#  else
+#   define NoCombineRegs
+#  endif
+# endif
+
+# if defined(VaxArchitecture) && !defined(UltrixArchitecture)
+#  define ConfigH bsd
+# endif
+
+# ifdef NeXTArchitecture
+#  define ConfigH mach
+# endif
+
+# if defined(SunArchitecture)
+#  if (OSMajorVersion == 3)
+#   define ConfigH sunos35
+#  else
+#   if (OSMajorVersion == 4)
+#    if (OSMinorVersion == 0)
+#     define ConfigH sunos40
+#    else /* OSMinorVersion == 1 */
+#     if (OSTeenyVersion == 3)
+#      define ConfigH sunos413
+#     else /* OsTeenyVersion in [0,1,2] */
+#      define ConfigH sunos41
+#     endif
+#    endif
+#    define NoCombineRegs
+#   else /* OSMajorVersion == 5 */
+#    if (OSMinorVersion < 3)
+#     if (OSMinorVersion < 2)
+#      define ConfigH sol2
+#     else
+#      define ConfigH sol22
+#     endif
+#    else
+#     if (OSMinorVersion < 4)
+#      define ConfigH sol23
+#     else
+#      if (OSMinorVersion < 6)
+#       define ConfigH sol24
+#      else
+#       define ConfigH sol26
+#      endif
+#     endif
+#    endif
+#    define NoCombineRegs
+#   endif
+#  endif
+# endif
+
+# ifdef HPArchitecture
+/* For some stupid reason makedepend on HP requires this */
+DEPENDFLAGS = -o.o
+#  if (OSMajorVersion >= 8)
+#   define ConfigH hpux8
+#  else
+#   define ConfigH hpux7
+#  endif
+# endif
+
+# ifdef CrayArchitecture
+#  define ConfigH cray
+# endif
+
+# ifdef SGIArchitecture
+#   define ConfigH irix
+#   define UseLibBSD
+#  if (OSMajorVersion < 5)
+#   ifdef you_are_using_yp
+#    define UseSunLib 
+#   endif
+#   if !HasGCC
+#    define MyStdc -D__STDC__
+#    if SGICompilerMajorVersion < 4
+CCOPTIONS=-float	# We don't want -cckr and -prototypes
+#    endif
+#   endif
+#  endif
+#  if (OSMajorVersion == 6)
+#   if (OSMinorVersion >= 2)
+#    undef UseLibBSD
+#    define ConfigH irix62
+#   endif
+#  endif
+# endif
+
+# ifdef IBMArchitecture
+#  undef UseLibBSD
+#  if (SystemV == YES)
+#   define ConfigH aix
+#   if OSMajorVersion < 3 
+#    if OSMinorVersion < 2
+#     define UseLibBSD
+#    endif
+#   endif
+#  else
+#   define ConfigH bsd
+#   define AOSArchitecture
+#  endif
+# endif
+
+
+#ifdef AOSArchitecture
+#define MyStdc -U__STDC__
+#endif
+
+# if defined(MipsBsdArchitecture) || defined(MipsSysvArchitecture)
+#  define ConfigH mips
+# endif
+
+# ifdef DguxArchitecture
+#  define ConfigH dgux
+# endif
+
+# ifdef ConvexArchitecture
+#  define ConfigH convex
+# endif
+
+# if defined(SQNTArchitecture) || defined(SequentArchitecture)
+#  define ConfigH sequent
+# endif
+
+# ifdef MacIIArchitecture
+#  define ConfigH mac2
+# endif
+
+# ifdef MinixArchitecture
+/* Maybe conditional on MACH? */
+SYSSRCS=mi.termios.c mi.wait.h mi.varargs.h
+SYSOBJS=mi.termios.${SUF}
+EXTF=ma.setp.c vms.termcap.c
+# else
+/* Maybe conditional on MACH? */
+SYSSRCS=ma.setp.c
+SYSOBJS=ma.setp.${SUF}
+EXTF=mi.termios.c mi.wait.h mi.varargs.h vms.termcap.c
+# endif
+
+# ifdef i386Isc
+#  if IscVersion != 202
+#   define ConfigH isc
+#   define UseLibCposix
+#  else
+#   define ConfigH isc202
+#  endif
+# endif /* i386Isc */
+
+# ifdef OpenBSDArchitecture
+#  define ConfigH bsd4.4
+# endif /* OpenBsdArchitecture */
+
+# ifdef NetBSDArchitecture
+#  define ConfigH bsd4.4
+# endif /* NetBsdArchitecture */
+
+# ifdef FreeBSDArchitecture
+#  define ConfigH bsd4.4
+# endif /* FreeBsdArchitecture */
+
+# ifdef i386SVR4Architecture
+#  define ConfigH sysv4
+#  ifdef DELL
+#   define NoCombineRegs
+#  endif
+# endif
+
+#endif /* !ConfigH */
+
+/* generic os's */
+
+#ifndef ConfigH
+
+#if (SystemV == YES)
+#define ConfigH sysv3
+#else
+/* why this as a default?  Why not? */
+#define ConfigH bsd
+#endif
+
+#endif /* !ConfigH */
+
+/**** libraries ****/
+
+#if (SystemV == NO) || defined(HPArchitecture) || \
+	defined(SQNTArchitecture) || defined(SequentArchitecture) || \
+	defined(MacIIArchitecture) || defined(UseLibTermcap)
+LIBTERMCAP = -ltermcap
+#else
+LIBTERMCAP =
+#endif
+
+#if defined(SQNTArchitecture) || defined(SequentArchitecture)
+LIBSQNT=-lsocket -linet -lnsl -lseq
+#endif
+
+/* This may not be good enough - I don't have access to enough systems
+to really test it. */
+#if (SystemV == YES) || defined(UseLibCurses) && !defined(HPArchitecture)
+LIBCURSES = -lcurses
+#else
+LIBCURSES =
+#endif
+
+#if defined(UseLibNet)
+LIBNET = -lnet
+#else
+LIBNET =
+#endif
+
+#if defined(UseLibSocket)
+LIBSOCKET = -lsocket
+#else
+LIBSOCKET =
+#endif
+
+#if defined(UseLibBSD)
+LIBBSD = -lbsd
+#else
+LIBBSD = 
+#endif
+
+#if (defined(SGIArchitecture) && \
+     (OSMajorVersion == 3) && (OSMinorVersion == 3)) || \
+	defined(UseLibC_S)
+LIBC_S = -lc_s
+#else
+LIBC_S =
+#endif
+
+#if defined(UseLibSun)
+LIBSUN = -lsun
+#else
+LIBSUN =
+#endif
+
+#if defined(UseLibCposix)
+LIBCPOSIX = -lcposix
+#else
+LIBCPOSIX =
+#endif
+
+#if defined(UseLibInet)
+LIBINET = -linet
+#else
+LIBINET =
+#endif
+
+#if defined(UseLibDir)
+LIBDIRECT = -ldir
+#else
+LIBDIRECT = 
+#endif
+
+#if defined(UseLibX)
+LIBX = -lx
+#else
+LIBX =
+#endif
+
+#if defined(UseLibIntl)
+LIBINTL = -lintl
+#else
+LIBINTL =
+#endif
+
+#if (HasLibCrypt == YES)
+LIBCRYPT = -lcrypt
+#else
+LIBCRYPT =
+#endif
+
+#if defined(MacIIArchitecture) || defined(UseLibPosix)
+LIBPOSIX = -lposix
+#else
+LIBPOSIX =
+#endif
+
+#if defined(ATTArchitecture) || defined(UseLibDirent)
+LIBDIRECTENT = -ldirent
+#else
+LIBDIRECTENT =
+#endif
+
+/* The order here is significant.  Although nothing uses all of these, 
+some platforms which use more than one do care about the order. */
+
+SYSLIBS = $(LIBPOSIX) $(LIBDIRECTENT) $(LIBTERMCAP) $(LIBCURSES) \
+	$(LIBNET) $(LIBINTL) $(LIBSOCKET) $(LIBSUN) $(LIBBSD) $(LIBCPOSIX) \
+	$(LIBINET) $(LIBDIRECT) $(LIBX) $(LIBC_S) $(LIBSQNT) $(LIBCRYPT)
+
+/* Past here, nothing should need to be changed to compile on a different
+platform, unless you have a really weird architecture. */
+
+#ifdef MyCC
+CC = MyCC
+#else
+# if HasGcc
+#  if HasGcc2
+CC = gcc 
+#  else
+#   ifdef NoCombineRegs
+CC = gcc -finline-functions -fstrength-reduce
+#   else
+CC = gcc -fcombine-regs -finline-functions -fstrength-reduce
+#   endif
+#  endif
+# else
+CC = cc
+# endif
+#endif
+
+#ifdef HESIOD
+HESLIB = -L/usr/athena/lib -lhesiod
+/* it seems to me that the -I shouldn't be necessary, but there seems
+to be a bug in the Imake stuff, so here it is. */
+HESDEF = -DHESIOD -I/usr/athena/include
+#else
+HESLIB =
+HESDEF =
+#endif
+
+#ifdef AFS
+#ifndef AFSDIR
+AFSDIR = /usr/afsws
+#endif
+#ifdef AFS33
+#define AFS33LIB -laudit
+#else
+#define AFS33LIB
+#endif
+/* Auxilliary libs needed for AFS */
+/* Both HPUX and Solaris need the BSD libraries.  We need -lc before
+ * the bsd library to avoid using any more of it than is necessary.
+ */
+#if defined(HPArchitecture)
+#define AFSAUXLIB -lc -lBSD
+/* This is probably a kludge, but so is imake. */
+#else
+#if defined(SunArchitecture) && (OSMajorVersion == 5)
+#define AFSAUXLIB -lsocket -lnsl -lc -lucb
+#else
+#define AFSAUXLIB
+#endif
+#endif /* AFSAUXLIB */
+AFSLIB = -L$(AFSDIR)/lib -L$(AFSDIR)/lib/afs -lkauth -lprot -lubik\
+	 -lauth -lrxkad -lsys -ldes -lrx -llwp -lcom_err\
+	 $(AFSDIR)/lib/afs/util.a AFS33LIB AFSAUXLIB
+AFSDEF = -DAFS -I$(AFSDIR)/include
+#else
+AFSLIB =
+AFSDEF =
+#endif
+
+/* This is encore specific, but I don't know what encore's #define is,
+and it shouldn't hurt to have it here, so here it is */
+PARALLEL=12				# Make the multi-max run fast.
+
+#ifndef TcshTop
+#define TcshTop /usr/local
+#endif
+TCSHTOP = TcshTop
+
+#ifndef ManSuffix
+#define ManSuffix 1
+#endif
+MANSUFFIX = ManSuffix
+
+#ifdef TcshPath
+PATH_TCSHELL = TcshPath
+TCSHPATH = -D_PATH_TCSHELL='"$(PATH_TCSHELL)"'
+#else
+TCSHPATH =
+#endif
+
+#ifdef DestBin
+TCSH_BINDIR = DestBin
+#else
+TCSH_BINDIR = $(TCSHTOP)/bin
+#endif
+#ifdef DestMan
+TCSH_MANDIR = DestMan
+#else
+TCSH_MANDIR = $(TCSHTOP)/man/man$(MANSUFFIX)
+#endif
+
+LOCALLIBS =
+
+#ifndef MyCflags
+#define MyCflags
+#endif
+
+#ifndef MyDefines
+#define MyDefines
+#endif
+
+#ifndef MyIncludes
+#define MyIncludes
+#endif
+
+#ifndef MyStdc
+#define MyStdc
+#endif
+
+#ifdef CDebugFlags
+CDEBUGFLAGS = CDebugFlags
+#else
+# if HasGcc2
+CDEBUGFLAGS = -O2
+# else
+CDEBUGFLAGS = -O
+# endif
+#endif
+
+
+#ifdef HostType
+HOSTTYPE=HostType
+HTDEF = -DHOSTTYPE='"$(HOSTTYPE)"'
+#else
+HTDEF =
+#endif
+
+DEFINES = $(TCSHPATH) $(HESDEF) $(AFSDEF) $(HTDEF) MyDefines MyCflags MyStdc
+INCLUDES = -I. MyIncludes
+#ifdef MyLibs
+LDLIBS = MyLibs
+#endif
+
+SUF = o
+VERSION = 6.08
+
+SHSRCS=	sh.c sh.dir.c sh.dol.c sh.err.c sh.exec.c sh.char.c \
+	sh.exp.c sh.file.c sh.func.c sh.glob.c sh.hist.c sh.init.c \
+	sh.lex.c sh.misc.c sh.parse.c sh.print.c sh.proc.c sh.sem.c \
+	sh.set.c sh.time.c sh.char.h sh.dir.h sh.proc.h sh.h \
+	sh.decls.h glob.c glob.h ${SYSSRCS}
+SHOBJS=	sh.${SUF} sh.dir.${SUF} sh.dol.${SUF} sh.err.${SUF} sh.exec.${SUF} \
+	sh.char.${SUF} sh.exp.${SUF} sh.func.${SUF} sh.glob.${SUF} \
+	sh.hist.${SUF} sh.init.${SUF} sh.lex.${SUF} sh.misc.${SUF} \
+	sh.parse.${SUF} sh.print.${SUF} sh.proc.${SUF} sh.sem.${SUF} \
+	sh.set.${SUF} sh.time.${SUF} glob.${SUF} ${SYSOBJS}
+
+TWSRCS= tw.decls.h tw.h tw.help.c tw.init.c tw.parse.c tw.spell.c \
+	tw.comp.c tw.color.c
+TWOBJS=	tw.help.${SUF} tw.init.${SUF} tw.parse.${SUF} tw.spell.${SUF} \
+	tw.comp.${SUF} tw.color.${SUF}
+
+EDSRCS= ed.chared.c ed.decls.h ed.defns.c ed.h ed.init.c ed.inputl.c \
+	ed.refresh.c ed.screen.c ed.xmap.c ed.term.c ed.term.h
+EDOBJS=	ed.chared.${SUF} ed.refresh.${SUF} ed.screen.${SUF} ed.init.${SUF} \
+	ed.inputl.${SUF} ed.defns.${SUF} ed.xmap.${SUF} ed.term.${SUF}
+
+TCSRCS= tc.alloc.c tc.bind.c tc.const.c tc.decls.h tc.disc.c \
+	tc.func.c tc.os.c tc.os.h tc.printf.c tc.prompt.c \
+	tc.sched.c tc.sig.c tc.sig.h tc.str.c sh.types.h tc.vers.c tc.wait.h \
+	tc.who.c tc.h 
+TCOBJS=	tc.alloc.${SUF} tc.bind.${SUF} tc.const.${SUF} tc.defs.${SUF} \
+	tc.disc.${SUF} tc.func.${SUF} tc.os.${SUF} tc.printf.${SUF} \
+	tc.prompt.${SUF} tc.sched.${SUF} tc.sig.${SUF} tc.str.${SUF} \
+	tc.vers.${SUF} tc.who.${SUF} 
+
+MISCF = Makefile.std Fixes MAKEDIFFS MAKESHAR NewThings README FAQ \
+	WishList config_f.h eight-bit.me glob.3 patchlevel.h \
+	pathnames.h tcsh.man Ported src.desc Imakefile imake.config \
+	README.imake complete.tcsh vmsreadme.txt Makefile.vms termcap.vms \
+	snames.h host.defs gethost.c tcsh.man2html Makefile.in configure.in \
+	Makefile.win32
+CONFSRCS=config/[a-z]*
+
+
+SRCS = $(SHSRCS) $(TWSRCS) $(EDSRCS) $(TCSRCS)
+OBJS = $(SHOBJS) $(TWOBJS) $(EDOBJS) $(TCOBJS)
+
+ALLSRCS= $(MISCF) $(SRCS) $(EXTF)
+
+AllTarget(tcsh)
+
+ed.defns.h: config.h ed.defns.c
+	@rm -f $@
+	@echo '/* Do not edit this file, make creates it. */' > $@
+	@echo '#ifndef _h_ed_defns' >> $@
+	@echo '#define _h_ed_defns' >> $@
+	egrep '[FV]_' ed.defns.c | egrep '^#define' >> $@
+	@echo '#endif /* _h_ed_defns */' >> $@
+
+sh.err.h: config.h sh.err.c
+	@rm -f $@
+	@echo '/* Do not edit this file, make creates it. */' > $@
+	@echo '#ifndef _h_sh_err' >> $@
+	@echo '#define _h_sh_err' >> $@
+	egrep 'ERR_' sh.err.c | egrep '^#define' >> $@
+	@echo '#endif /* _h_sh_err */' >> $@
+
+tc.const.h: config.h tc.const.c
+	@rm -f $@
+	@echo '/* Do not edit this file, make creates it. */' > $@
+	@echo '#ifndef _h_tc_const' >> $@
+	@echo '#define _h_tc_const' >> $@
+	${CC} -E $(INCLUDES) ${DEFINES} -D_h_tc_const tc.const.c | \
+	    grep 'Char STR' | \
+	    sed -e 's/Char \([a-zA-Z0-9_]*\)\[\].*/extern Char \1[];/' | \
+	    sort >> $@
+	@echo '#endif /* _h_tc_const */' >> $@
+
+config.h: config_f.h
+	cp config/ConfigH config.h
+
+$(OBJS): sh.err.h tc.const.h ed.defns.h
+
+tar.Z:
+	rm -f tcsh-${VERSION}.tar.Z
+	rm -rf tcsh-${VERSION} 
+	mkdir tcsh-${VERSION} tcsh-${VERSION}/config
+	cp ${ALLSRCS} tcsh-${VERSION}
+	cp ${CONFSRCS} tcsh-${VERSION}/config
+	tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -)
+	tar cvf - tcsh-${VERSION} | compress > tcsh-${VERSION}.tar.Z
+	rm -rf tcsh-${VERSION}
+
+tar.gz:
+	rm -f tcsh-${VERSION}.tar.gz
+	rm -rf tcsh-${VERSION} 
+	mkdir tcsh-${VERSION} tcsh-${VERSION}/config
+	cp ${ALLSRCS} tcsh-${VERSION}
+	cp ${CONFSRCS} tcsh-${VERSION}/config
+	tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -)
+	tar cvf - tcsh-${VERSION} | gzip > tcsh-${VERSION}.tar.gz
+	rm -rf tcsh-${VERSION}
+
+shar:
+	rm -f tcsh-*.shar
+	rm -rf tcsh-${VERSION} 
+	mkdir tcsh-${VERSION} tcsh-${VERSION}/config
+	cp ${ALLSRCS} tcsh-${VERSION}
+	cp ${CONFSRCS} tcsh-${VERSION}/config
+	tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -)
+	MAKESHAR -v -n tcsh-${VERSION} tcsh-${VERSION} \
+		 tcsh-${VERSION}/?* tcsh-${VERSION}/config/?* \
+		 tcsh-${VERSION}/?*/set?*
+	rm -rf tcsh-${VERSION}
+
+catalogs:
+	@(cd nls; make catalogs)
+	
+world:
+	$(MAKE) clean ; $(MAKE) depend ; $(MAKE) tcsh ; $(MAKE) install
+
+clean::
+	rm -f ed.defns.h sh.err.h tc.const.h config.h tc.defs.*
+	rm -f tcsh.*.m tcsh.*.cat
+
+depend:: config.h ed.defns.h sh.err.h tc.const.h $(SRCS) tc.defs.c
+
+tc.defs.${SUF}:	tc.defs.c sh.h
+
+tc.defs.c:	gethost host.defs
+	@rm -f $@
+	@echo "/* Do not edit this file, make creates it */" > $@
+	./gethost host.defs >> $@
+
+ALIB=$(HESLIB) $(AFSLIB) $(SYSLIBS)
+AINC=ed.defns.h sh.err.h tc.const.h sh.h
+
+NormalProgramTarget(tcsh, $(OBJS), $(AINC), $(LOCALLIBS), $(ALIB))
+NormalProgramTarget(gethost, gethost.${SUF}, $(AINC), $(LOCALLIBS), $(ALIB))
+
+InstallProgram(tcsh,$(TCSH_BINDIR))
+InstallManPage(tcsh,$(TCSH_MANDIR))
+DependTarget()

contrib/tcsh/MAKEDIFFS

@@ -0,0 +1,41 @@
+#!/bin/sh
+#
+# MAKEDIFFS.sh: Make context diffs for the csh sources
+#
+# $Id: MAKEDIFFS,v 3.0 1991/07/04 21:57:47 christos Exp $
+XINUDIR=/usr/share/src/mtXinu/bin/csh
+BSDDIR=/usr/share/src/mtXinu/BSD/bin/csh
+TAHOEDIR=/usr/share/src/mtXinu/TAHOE/bin/csh
+RENODIR=/usr/share/src/mtXinu/RENO/bin/csh
+TCSHDIR=`pwd`
+case "x$1" in
+xxinu)
+    CSHDIR=$XINUDIR;;
+xbsd)
+    CSHDIR=$BSDDIR;;
+xtahoe)
+    CSHDIR=$TAHOEDIR;;
+xreno)
+    CSHDIR=$RENODIR;;
+x*)
+    echo "Usage: `basename $0` [bsd|tahoe|xinu|reno]";exit 1;;
+esac
+DIFF1='sh.c sh.char.c sh.dir.c sh.dol.c sh.err.c sh.exec.c sh.exp.c sh.file.c'
+DIFF2='sh.func.c sh.glob.c sh.hist.c sh.init.c sh.lex.c sh.misc.c sh.parse.c sh.print.c'
+DIFF3='sh.proc.c sh.sem.c sh.set.c sh.time.c sh.char.h sh.dir.h sh.h sh.local.h sh.proc.h'
+
+for i in $DIFF1
+do
+    diff -c $CSHDIR/$i $TCSHDIR/$i
+done > DIFFS.1
+
+for i in $DIFF2
+do
+    diff -c $CSHDIR/$i $TCSHDIR/$i
+done > DIFFS.2
+
+for i in $DIFF3
+do
+    diff -c $CSHDIR/$i $TCSHDIR/$i
+done > DIFFS.3
+exit 0

contrib/tcsh/MAKESHAR

@@ -0,0 +1,121 @@
+#!/bin/sh
+#
+# MAKESHAR.sh: Make a shar file for the sources
+#
+# $Id: MAKESHAR,v 3.1 1992/05/09 04:03:53 christos Exp $
+
+AWK=/usr/bin/nawk	# Must be nawk or gawk cause of 2D arrays
+WC=/usr/ucb/wc		
+GREP=/usr/bin/egrep
+SORT=/usr/bin/sort
+SH=/bin/sh
+
+dirs=
+name=kit
+files=
+verbose=0
+size=45000
+
+for i 
+do
+    case $i in
+    -n)	
+	name=;;
+    -v)
+	verbose=1;;
+    -d)
+	SH=/bin/cat;;
+    -s)
+	size=$1;;
+    *)
+	if [ -z "$name" ]
+	then
+	    name=$i
+	elif [ -d $i ]
+	then
+	    dirs="$dirs $i"
+	elif [ -f $i ]
+	then
+	    files="$files $i"
+	else
+	    echo "$0: File `$i' not found." 1>&2
+	    exit 1
+	fi;;
+    esac
+done
+	
+if [ \( -z "$files" \) -a \( -z "$dirs" \) ]
+then
+    echo "Usage: $0 [-n name] [-s size] [-vd] <files>."	1>&2
+    exit 1
+fi
+
+$WC $files | $GREP -v total | $SORT +2 | $AWK '
+    BEGIN {
+	i = 0;
+	seq = 1;
+	size = 0;
+	name = 1;
+	used = 2;
+	verbose='"$verbose"';
+	tty = "/dev/tty";
+	maxsize = '"$size"';
+	dirs = "'"$dirs"'";
+    };
+    {
+	a[i, size] = $3;
+	a[i, name] = $4;
+	a[i, used] = 0;
+	i++;
+    };
+    END {
+	for (maxi = i--; i >= 0; i--) {
+	    idx = 0;
+	    if (a[i, used] == 0) {
+		if (verbose && a[i, size] > maxsize) 
+		    printf("Warning: File %s is %d > %d\n",
+			   a[i, name], a[i, size], maxsize) > tty;
+		s = a[i, size];
+		a[i, used] = 1;
+		kit[seq, idx++] = i; 
+		j = 0;
+		while (j < maxi) {
+		    # Find the greatest file we can add
+		    j = maxi;
+		    for (k = 0; k < maxi; k++)
+			if (a[k, used] == 0 && a[k, size] + s < maxsize)
+			    j = k;
+		    if (j < maxi) {
+			s += a[j, size];
+			a[j, used] = 1;
+			kit[seq, idx++] = j; 
+		    }
+		}
+		sizes[seq] = s;
+		kit[seq++, idx] = -1; 
+	    }
+	}
+	for (i = 1; i < seq; i++) {
+	    printf("shar -n%d -e%d %s ", i, seq - 1, dirs);
+	    if (verbose) {
+		printf("%3d of %3d: ", i, seq - 1) > tty;
+		len = 12;
+	    }
+	    for (j = 0; kit[i, j] != -1; j++) {
+		s = a[kit[i, j], name];
+		if (verbose) {
+		    clen = length(s) + 1;
+		    len += clen;
+		    if (len > 70) {
+			printf("\n            ") > tty;
+			len = 12 + clen;
+		    }
+		    printf("%s ", s) > tty;
+		}
+		printf("%s ", s);
+	    }
+	    printf("> '"$name"'-%d.shar;", i);
+	    if (verbose)
+		printf("= %5d\n", sizes[i]) > tty;
+	}
+    }' | $SH

contrib/tcsh/Makefile.in

@@ -0,0 +1,628 @@
+# $Id: Makefile.in,v 3.12 1998/11/24 18:17:08 christos Exp $
+#	Makefile.in	4.3	6/11/83
+#
+# C Shell with process control; VM/UNIX VAX Makefile
+# Bill Joy UC Berkeley; Jim Kulp IIASA, Austria
+#
+# With an input editor, command completion, etc. and ported to all sorts of
+# things; Paul Placeway, CIS Dept., Ohio State University
+#
+SHELL=/bin/sh
+VERSION=6.08
+BUILD=tcsh
+VPATH=@srcdir@
+srcdir=@srcdir@
+
+################################################################
+## CFLAGS.  For various -D things, see config.h
+################################################################
+#
+# These are the default suffixes from .c to .o and -c to get there
+# but to use the global optimizer on the mips boxes, see below
+#
+SUF=o
+CF=-c
+
+CPPFLAGS=-I. -I$(srcdir)
+
+LFLAGS=
+#LFLAGS= -Zn10000		# hpux lint
+
+
+CFLAGS = @CFLAGS@		# This is set by autoconf.
+#CFLAGS= -g			# debug
+#CFLAGS= -O			# production
+#CFLAGS= 			# Broken optimizers....
+
+#CFLAGS= -g -pg -DPROF
+#CFLAGS= -O -pg -DPROF
+
+# gcc 1.00-1.37
+#CFLAGS= -O -finline-functions -fstrength-reduce 
+
+# gcc 1.37-1.40
+#CFLAGS= -O -fcombine-regs -finline-functions -fstrength-reduce 
+# add -msoft-float for 68881 machines.
+
+# gcc 2.0
+# On the sparc, don't use -O2; it breaks setjmp() and vfork()
+#CFLAGS= -O
+
+# gcc-2.1+
+#CFLAGS= -O2
+
+# lucid c on suns
+#CFLAGS= -O5
+
+# gcc 2.1 on linux
+#CFLAGS= -O6 -fomit-frame-pointer
+
+# HP/UX 8.0, 9.0
+#CFLAGS= +O3 -Aa
+
+# Ultrix 4.2a
+#CFLAGS= -O -Olimit 2000
+
+# Intel Paragon OSF/1 with PGI compilers
+#CFLAGS= -O -Mnodebug -Mnoperfmon
+
+# DEC Alpha OSF/1
+#CFLAGS= -O2 -Olimit 2000	## Normal Optimization
+#CFLAGS= -O3 -Olimit 2000	## Full Optimization - may not work
+#CF=-j
+#SUF=u
+#.SUFFIXES: .u
+
+# for silicon graphics (and other mips compilers) -- use the
+# global optimizer! (-O3).
+# On SGI 4.0+ you need to add -D__STDC__ too.
+#CFLAGS= -O3
+#CFLAGS= -O3 -Olimit 2000	## Ultrix 4.2a
+#CF=-j
+#SUF=u
+#.SUFFIXES: .u 				## Ultrix and gnu-make need that
+
+# mips systems
+# CFLAGS= -O -systype bsd43 -Wf,-XNd5000 -Wf,-XNp6000 -Olimit 2000
+
+# for at&t machines
+#CFLAGS= -O -Ksd
+
+# Stardent Titan
+#CFLAGS = -O -43
+
+# Stardent Stellar or sunos4 /bin/cc or Solaris2.1 /opt/SUNWspro/bin/cc
+#CFLAGS = -O4
+
+# Intergraph clipper CLIX 3.1
+#CFLAGS= -w -O2
+
+# Dnix 5.3
+#CFLAGS = -O -X7
+
+# Pyramid OS/x
+#CFLAGS = -OG
+
+# Multiflow (5M binary... if you choose -O5!)
+#CFLAGS = -O5 -sb_trace 0
+
+# DDE Supermax Unix SYSV Rel III.
+# CFLAGS= -O3
+
+# SINIX RMx00
+#CFLAGS= -O # -D_POSIX_SOURCE # -kansi
+
+# Apollo's with cc [apollo builtins don't work with gcc]
+# and apollo should not define __STDC__ if it does not have
+# the standard header files. RT's (aos4.3) need that too;
+# you might want to skip the -O on the rt's... Not very wise.
+# AIX/ESA needs -D_IBMESA on command line (this may disappear by GA)
+#DFLAGS=-U__STDC__ 
+#DFLAGS=-D_IBMESA
+# On aix2.2.1 we need more compiler space.
+#DFLAGS=-Nd4000 -Nn3000
+# AU/X 2.0 needs a flag for POSIX (read the config file)
+#DFLAGS=-Zp
+# Tektronix 4300 running UTek 4.0 (BSD 4.2) needs:
+#DFLAGS = -DUTek -DBSD
+# VMS_POSIX needs:
+#DFLAGS=-D_VMS_POSIX
+# Multiflow and PCC compilers don't like void typedefs.
+# You may also need -U__STDC__ if you use pcc (i.e. ibmrt aos4.3).
+#DFLAGS=-DMULTIFLOW
+#DFLAGS=-DPCC
+# DELL SVR4
+#DFLAGS=-DDELL
+#DFLAGS=
+#DFLAGS=-D_PATH_TCSHELL='"${DESTBIN}/tcsh"'
+## The following is set by autoconf.
+DFLAGS = -D_PATH_TCSHELL='"${DESTBIN}/tcsh"' @DFLAGS@ @CPPFLAGS@
+
+
+################################################################
+## LDFLAGS.  Define something here if you need to
+################################################################
+LDFLAGS= @LDFLAGS@		## This is set by autoconf.
+#LDFLAGS= 			## The simplest, suitable for all.
+#LDFLAGS= -s			## Stripped. Takes less space on disk.
+#LDFLAGS= -s -n			## Pure executable. Spares paging over
+# 				## the network for machines with local
+#				## swap but external /usr/local/bin .
+#LDFLAGS= -s -n -Bstatic	## Without dynamic linking. (SunOS/cc)
+#LDFLAGS= -s -n -static		## Without dynamic linking. (SunOS/gcc)
+#LDFLAGS= -Wl,-s,-n		## Stripped, shared text (Unicos)
+#LDFLAGS= -s -static		## Link statically. (linux)
+#LDFLAGS= -s -N			## Impure executable (linux)
+
+################################################################
+## LIBES.  Pick one, or roll your own.
+################################################################
+LIBES= @LIBS@	 			 ## This is set by autoconf.
+#LIBES= -ltermcap 			 ## BSD style things
+#LIBES= -ltermcap			 ## SunOS, HP-UX, pyramid
+#LIBES= -ltermcap			 ## Linux
+#LIBES= -ltermcap -lshadow		 ## Linux with PW_SHADOW
+#LIBES= -ltermcap -lsec			 ## Tek XD88/10 (UTekV) with PW_SHADOW
+#LIBES= -ltermcap -lsec			 ## Motorola MPC (sysV88) with PW_SHADOW
+#LIBES= -ltermcap -lcs			 ## Mach
+#LIBES= -ltermcap -lbsd			 ## DEC osf1 on the alpha
+#LIBES= -ltermcap -lbsd			 ## Intel paragon
+#LIBES= -ltermcap -lbsd			 ## Clipper intergraph
+#LIBES= -ltermcap -lseq			 ## Sequent's Dynix
+#LIBES= -ltermcap -lauth		 ## Ultrix with Enhanced Security
+#LIBES= -ltermcap -ldir -lx		 ## Xenix 386 style things
+#LIBES= -ltermcap -lndir -lsocket -ljobs ## masscomp RTU6.0
+#LIBES= -lcurses			 ## AIX on the rt
+#LIBES= -lcurses			 ## TitanOS on the stellar
+#LIBES= -ltermlib -lsocket -lnsl	 ## SysV4 w/o BSDTIMES or Solaris 2
+#LIBES= -lcurses			 ## SysV3 w/o networking
+#LIBES= -lcurses -lnet			 ## SysV3 with networking
+#LIBES= -lcurses -ldir			 ## SysV2 w/o networking & dirlib
+#LIBES= -lcurses -ldir -lnet		 ## SysV2 with networking & dirlib
+#LIBES= -lcurses -lbsd			 ## AIX on the IBM 370 or rs6000 or ps2
+#LIBES= -lcurses -lbsd			 ## ETA10
+#LIBES= -lcurses -lbsd			 ## Irix3.1 on the SGI-IRIS4D
+#LIBES= -lcurses -lbsd -lc_s		 ## Irix3.3 on the SGI-IRIS4D w/o yp
+#LIBES= -lcurses -lsun -lbsd -lc_s	 ## Irix3.3 on the SGI-IRIS4D with yp
+#LIBES= -lcurses -lsocket -lbsd		 ## Amdahl UTS 2.1
+#LIBES= -lcurses -lsocket		 ## Intel's hypercube.
+#LIBES= -lcurses -lsocket		 ## ns32000 based Opus.
+#LIBES= -lcurses -lcposix		 ## ISC 2.2 without networking
+#LIBES= -lcposix -lc_s -lcurses -linet	 ## ISC 2.2 with networking
+#LIBES= -lcurses -lsec -lc_s		 ## ISC 2.0.2 without networking
+#LIBES= -lcurses -linet -lsec -lc_s	 ## ISC 2.0.2 with networking
+#LIBES= -lcurses -lintl -lcrypt		 ## SCO SysVR3.2v2.0
+#LIBES= -lcurses -lintl -lsocket -lcrypt ## SCO+ODT1.1
+#LIBES= -lposix -ltermcap		 ## A/UX 2.0
+#LIBES= -lposix -ltermcap -lc_s		 ## A/UX 3.0
+#LIBES= -ldirent -lcurses		 ## att3b1 cc w/o shared lib & dirlib
+#LIBES= -shlib -ldirent -lcurses	 ## att3b1 gcc with shared lib & dirlib
+#LIBES= -ltermlib -lsocket -lnsl -lc /usr/ucblib/libucb.a ## SysV4 with BSDTIMES
+#LIBES= -lcurses -lnsl -lsocket -lc /usr/ucblib/libucb.a ## Stardent Vistra
+#LIBES= -ltermc				 ## emx under OS/2
+#LIBES=					 ## Minix, VMS_POSIX
+#LIBES= -ltermcap -lcrypt		 ## Multiflow
+#LIBES= -ltermcap -lcrypt		 ## NetBSD
+#LIBES= -lcurses 			 ## DDE Supermax
+
+################################################################
+## EXTRAFLAGS and EXTRALIBS
+################################################################
+# Compiling for AFS with kerberos authentication
+#AFSLIBDIR = /usr/afsws/lib
+#AFSDEF = -DAFS -I/usr/afsws/include
+#AFS33LIB = -laudit
+#
+#Solaris and HPUX require the BSD libraries with AFS.
+#We use -lc to use only what we require.
+#AFSAUXLIB = -lsocket -lnsl -lc -lucb                    # Solaris
+#AFSAUXLIB = -lc -lBSD                                   # HPUX   
+#
+#AFSLIB = -L$(AFSLIBDIR) -L$(AFSLIBDIR)/afs -lkauth -lprot -lubik\
+#         -lauth -lrxkad -lsys -ldes -lrx -llwp -lcom_err\
+#         $(AFSLIBDIR)/afs/util.a $(AFS33LIB) $(AFSAUXLIB)
+#
+
+EXTRAFLAGS = @HESDEF@ $(AFSDEF)
+EXTRALIBS = @HESLIB@ $(AFSLIB)
+
+
+# The difficult choice of a c-compiler...
+# First, you should try your own c-compiler. 
+# Gcc -traditional is also a safe choice. 
+# If you think that you have good include files try gcc -Wall...
+# If you want to take out -traditional, make sure that your sys/ioctl.h
+# is fixed correctly, otherwise you'll be stopped for tty input, or you
+# will lose the editor and job control.
+
+# This is for setting your C preprocessor value.
+CPP = @CPP@ # This is set by autoconf.
+# The -B tells gcc to use /bin/ld. This is to avoid using the gnu ld, which
+# on the suns does not know how to make dynamically linked binaries.
+CC = @CC@ # This is set by autoconf.
+#CC=	gcc -Wall -pipe -B/bin/	# -ansi -pedantic
+#CC=	gcc -m486 -pipe -Wall # Generate code for Intel 486 (linux)
+#CC=	shlicc 	# BSDI2.1 w/ shared libraries
+#CC=	cc
+#CC=	occ
+#CC=	acc
+#CC=	pcc
+#CC=	hc -w
+#CC=	c89	# For VMS/POSIX
+#CC=	/bin/cc	# For suns, w/o gcc and SVR4
+#CC=	/usr/lib/sun.compile/cc  # FPS 500 (+FPX) with Sun C compiler
+#CC=	/opt/SUNWspro/bin/cc	# Solaris 2.1
+#CC=	scc 	# Alliant fx2800
+#CC=	cc	-h0,ansi,novector,float0 # for NEC SX-4
+#CC=	lcc	-wa 
+ED=	ed
+AS=	as
+RM=	rm
+CXREF=	/usr/ucb/cxref
+VGRIND=	csh /usr/ucb/vgrind
+CTAGS=	/usr/ucb/ctags
+#XSTR= /usr/ucb/xstr
+SCCS=	/usr/local/sccs
+PARALLEL=12				# Make the multi-max run fast.
+#P=&					# Use Sequent's parallel make
+P=
+prefix=@prefix@
+exec_prefix=@exec_prefix@
+bindir=@bindir@
+mandir=@mandir@
+MANSECT=1
+DESTBIN=${DESTDIR}${bindir}
+DESTMAN=${DESTDIR}${mandir}/man${MANSECT}
+# DESTMAN=${DESTDIR}/catman/man${MANSECT}	 # A/UX
+# DESTMAN=${DESTDIR}/usr/share/man/man${MANSECT} # Stardent Vistra (SysVR4)
+# DESTMAN=/usr/catman/1l			 # Amiga unix (SysVR4)
+FTPAREA=/usr/spool/ftp
+
+ASSRCS=	sh.c sh.dir.c sh.dol.c sh.err.c sh.exec.c sh.char.c \
+	sh.exp.c sh.file.c sh.func.c sh.glob.c sh.hist.c sh.init.c \
+	sh.lex.c sh.misc.c sh.parse.c sh.print.c sh.proc.c sh.sem.c \
+	sh.set.c sh.time.c sh.char.h sh.dir.h sh.proc.h sh.h \
+	tw.color.c
+PSSRCS= sh.decls.h glob.c glob.h mi.termios.c mi.wait.h mi.varargs.h ma.setp.c \
+	vms.termcap.c
+SHSRCS= ${ASSRCS} ${PSSRCS}
+SHOBJS=	sh.${SUF} sh.dir.${SUF} sh.dol.${SUF} sh.err.${SUF} sh.exec.${SUF} \
+	sh.char.${SUF} sh.exp.${SUF} sh.func.${SUF} sh.glob.${SUF} \
+	sh.hist.${SUF} sh.init.${SUF} sh.lex.${SUF} sh.misc.${SUF} \
+	sh.parse.${SUF} sh.print.${SUF} sh.proc.${SUF} sh.sem.${SUF} \
+	sh.set.${SUF} sh.time.${SUF} glob.${SUF} mi.termios.${SUF} \
+	ma.setp.${SUF} vms.termcap.${SUF}
+
+TWSRCS= tw.decls.h tw.h tw.help.c tw.init.c tw.parse.c tw.spell.c \
+	tw.comp.c tw.color.c
+TWOBJS=	tw.help.${SUF} tw.init.${SUF} tw.parse.${SUF} tw.spell.${SUF} \
+	tw.comp.${SUF} tw.color.${SUF}
+
+EDSRCS= ed.chared.c ed.decls.h ed.defns.c ed.h ed.init.c ed.inputl.c \
+	ed.refresh.c ed.screen.c ed.xmap.c ed.term.c ed.term.h
+EDOBJS=	ed.chared.${SUF} ed.refresh.${SUF} ed.screen.${SUF} ed.init.${SUF} \
+	ed.inputl.${SUF} ed.defns.${SUF} ed.xmap.${SUF} ed.term.${SUF}
+
+TCSRCS= tc.alloc.c tc.bind.c tc.const.c tc.decls.h tc.disc.c \
+	tc.func.c tc.os.c tc.os.h tc.printf.c tc.prompt.c \
+	tc.sched.c tc.sig.c tc.sig.h tc.str.c sh.types.h tc.vers.c tc.wait.h \
+	tc.who.c tc.h
+TCOBJS=	tc.alloc.${SUF} tc.bind.${SUF} tc.const.${SUF} tc.defs.${SUF} \
+	tc.disc.${SUF} tc.func.${SUF} tc.os.${SUF} tc.printf.${SUF} \
+	tc.prompt.${SUF} tc.sched.${SUF} tc.sig.${SUF} tc.str.${SUF} \
+	tc.vers.${SUF} tc.who.${SUF} 
+
+PVSRCS= Makefile.std Makefile.vms Makefile.in Makefile.win32
+AVSRCS= Fixes MAKEDIFFS MAKESHAR NewThings README FAQ \
+	WishList config_f.h eight-bit.me glob.3 patchlevel.h \
+	pathnames.h tcsh.man Ported src.desc Imakefile imake.config \
+	README.imake complete.tcsh vmsreadme.txt termcap.vms snames.h \
+	host.defs gethost.c tcsh.man2html configure.in configure config.h.in
+
+VHSRCS=${PVSRCS} ${AVSRCS}
+
+CONFSRCS=config/* 
+
+ALLSRCS=  ${SHSRCS} ${TWSRCS} ${EDSRCS} ${TCSRCS} ${VHSRCS}
+DISTSRCS= ${PSSRCS} ${TWSRCS} ${EDSRCS} ${TCSRCS} ${AVSRCS}
+
+
+OBJS= ${SHOBJS} ${TWOBJS} ${EDOBJS} ${TCOBJS}
+
+
+all: ${BUILD}
+
+tcsh:$(P) ${OBJS} 
+	rm -f tcsh core
+	${CC} -o tcsh ${LDFLAGS} ${CFLAGS} ${CPPFLAGS} ${OBJS} ${LIBES} ${EXTRALIBS}
+
+# Purify
+pure:$(P) ${OBJS} 
+	rm -f tcsh core
+	purify `echo ${CC} | sed -e s,-B/bin/,,` -o tcsh ${LDFLAGS} ${CFLAGS} ${CPPFLAGS} ${OBJS} ${LIBES} ${EXTRALIBS}
+# OS/2
+tcsh.exe: tcsh
+	emxbind tcsh
+
+gethost:  gethost.c sh.err.h tc.const.h sh.h
+	rm -f gethost
+	${CC} -o gethost ${LDFLAGS} ${CFLAGS} ${CPPFLAGS} ${DFLAGS} $(srcdir)/gethost.c ${LIBES} ${EXTRALIBS}
+
+tc.defs.c:	gethost host.defs
+	@rm -f $@
+	@echo "/* Do not edit this file, make creates it */" > $@
+	./gethost $(srcdir)/host.defs >> $@
+
+tcsh.ps: tcsh.man
+	rm -f tcsh.ps
+	-ptroff -t -man $(srcdir)/tcsh.man > tcsh.ps
+
+
+.c.${SUF}:
+	${CC} ${CF} ${CFLAGS} ${CPPFLAGS} ${DFLAGS} ${EXTRAFLAGS} $<
+
+# _VMS_POSIX #module addition
+#.c.${SUF}:
+#	@(echo '#module '`echo $< | sed -e 's/\./_/g'`; cat $<) > $*..c
+#	@echo ${CC} ${CF} ${CFLAGS} ${CPPFLAGS} ${DFLAGS} ${EXTRAFLAGS} $*.c
+#	@${CC} ${CF} ${CFLAGS} ${CPPFLAGS} ${DFLAGS} ${EXTRAFLAGS} $*..c
+#	@mv $*..o $*.o
+#	@rm -f $*..c
+
+
+# Don't do any special massaging of C files for sharing of strings!!
+# it causes weird segmentation faults on some systems.
+#.c.o:
+#	${CPP} ${CFLAGS} ${CPPFLAGS} $*.c | ${XSTR} -c -
+#	${CC} ${CF} ${CFLAGS} ${CPPFLAGS} x.c 
+#	mv -f x.o $*.o
+#	rm -f x.c
+
+#ed.init.o: ed.init.c
+#	${CPP} ${CFLAGS} ${CPPFLAGS} $*.c | ${XSTR} -c -
+#	${CC} -R ${CF} ${CFLAGS} ${CPPFLAGS} x.c 
+#	mv -f x.o $*.o
+#	rm -f x.c
+
+#strings.o: strings
+#	${XSTR}
+#	${CC} -c -R xs.c
+#	mv -f xs.o strings.o
+#	rm -f xs.c
+
+##.DEFAULT:
+##	${SCCS} get $<
+
+##.DEFAULT:
+##	co $<
+
+ed.defns.h: ed.defns.c
+	@rm -f $@
+	@echo '/* Do not edit this file, make creates it. */' > $@
+	@echo '#ifndef _h_ed_defns' >> $@
+	@echo '#define _h_ed_defns' >> $@
+	grep '[FV]_' $(srcdir)/ed.defns.c | grep '^#define' >> $@
+	@echo '#endif /* _h_ed_defns */' >> $@
+
+sh.err.h: sh.err.c
+	@rm -f $@
+	@echo '/* Do not edit this file, make creates it. */' > $@
+	@echo '#ifndef _h_sh_err' >> $@
+	@echo '#define _h_sh_err' >> $@
+	grep 'ERR_' $(srcdir)/sh.err.c | grep '^#define' >> $@
+	@echo '#endif /* _h_sh_err */' >> $@
+
+tc.const.h: tc.const.c sh.char.h config.h config_f.h sh.types.h sh.err.h
+	@rm -f $@
+	@echo '/* Do not edit this file, make creates it. */' > $@
+	@echo '#ifndef _h_tc_const' >> $@
+	@echo '#define _h_tc_const' >> $@
+	${CPP} $(CPPFLAGS) ${DFLAGS} ${EXTRAFLAGS} -D_h_tc_const\
+	    $(srcdir)/tc.const.c | grep 'Char STR' | \
+	    sed -e 's/Char \([a-zA-Z0-9_]*\)\[\].*/extern Char \1[];/' | \
+	    sort >> $@
+	@echo '#endif /* _h_tc_const */' >> $@
+
+csh.prof: ${OBJS} sh.prof.${SUF} mcrt0.${SUF}
+	rm -f csh.prof
+	ld -X mcrt0.${SUF} ${OBJS} -o csh.prof ${LIBES} -lc
+
+sh.prof.${SUF}:
+	cp sh.c sh.prof.c
+	${CC} ${CF} ${CFLAGS} ${CPPFLAGS} -DPROF sh.prof.c
+
+lint: tc.const.h ed.defns.h
+	lint ${DFLAGS} ${CPPFLAGS} ${LFLAGS} sh*.c tw*.c ed*.c tc.*.c ${LIBES}
+
+alint: tc.const.h ed.defns.h
+	alint ${DFLAGS} ${CPPFLAGS} ${LFLAGS} sh*.c tw*.c ed*.c tc.*.c ${LIBES}
+
+print:
+	@pr READ_ME
+	@pr makefile makefile.*
+	@(size -l a.out; size *.${SUF}) | pr -h SIZES
+	@${CXREF} sh*.c | pr -h XREF
+	@ls -l | pr 
+	@pr sh*.h [a-rt-z]*.h sh*.c alloc.c
+
+vprint:
+	@pr -l84 READ_ME TODO
+	@pr -l84 makefile makefile.*
+	@(size -l a.out; size *.${SUF}) | pr -l84 -h SIZES
+	@${CXREF} sh*.c | pr -l84 -h XREF
+	@ls -l | pr -l84
+	@${CXREF} sh*.c | pr -l84 -h XREF
+	@pr -l84 sh*.h [a-rt-z]*.h sh*.c alloc.c
+
+vgrind:
+	@cp /dev/null index
+	@for i in *.h; do vgrind -t -h "C Shell" $$i >/crp/bill/csh/$$i.t; done
+	@for i in *.c; do vgrind -t -h "C Shell" $$i >/crp/bill/csh/$$i.t; done
+	@vgrind -t -x -h Index index >/crp/bill/csh/index.t
+
+install-strip: install
+
+install: tcsh 
+	mkdir -p ${DESTBIN}
+	-mv -f ${DESTBIN}/tcsh  ${DESTBIN}/tcsh.old
+	cp tcsh ${DESTBIN}/tcsh
+	-strip ${DESTBIN}/tcsh
+	chmod 555 ${DESTBIN}/tcsh
+
+install.man: tcsh.man
+	mkdir -p ${DESTMAN}
+	-rm -f ${DESTMAN}/tcsh.${MANSECT}
+	cp $(srcdir)/tcsh.man ${DESTMAN}/tcsh.${MANSECT}
+	chmod 444 ${DESTMAN}/tcsh.${MANSECT}
+
+# Amiga Unix
+#install.man: tcsh.man
+#        compress tcsh.man
+#	cp tcsh.man.Z ${DESTMAN}/tcsh.Z
+#	chmod 444 ${DESTMAN}/tcsh.Z
+
+# Apple A/UX
+#install.man: tcsh.man
+#	-rm -f ${DESTMAN}/tcsh.${MANSECT}.Z
+#	nroff -man tcsh.man | compress > ${DESTMAN}/tcsh.${MANSECT}.Z
+#	chmod 444 ${DESTMAN}/tcsh.${MANSECT}.Z
+
+clean:
+	${RM} -f a.out strings x.c xs.c tcsh tcsh.a _MAKE_LOG core gethost
+	${RM} -f *.${SUF} sh.prof.c ed.defns.h tc.const.h sh.err.h tc.defs.c
+	${RM} -f tcsh.*.m tcsh.*.cat
+
+veryclean: clean
+	${RM} -f config.h config.status config.cache config.log Makefile tcsh.ps
+	${RM} -f *~ #*
+
+distclean: veryclean
+
+tags:	/tmp
+	${CTAGS} sh*.c
+
+tar.Z:
+	rm -f tcsh-${VERSION}.tar.Z
+	rm -rf tcsh-${VERSION} 
+	mkdir tcsh-${VERSION} tcsh-${VERSION}/config
+	cp ${ALLSRCS} tcsh-${VERSION}
+	cp ${CONFSRCS} tcsh-${VERSION}/config
+	tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -)
+	tar cvf - tcsh-${VERSION} | compress > tcsh-${VERSION}.tar.Z
+	rm -rf tcsh-${VERSION}
+
+tar.gz:
+	rm -f tcsh-${VERSION}.tar.gz
+	rm -rf tcsh-${VERSION} 
+	mkdir tcsh-${VERSION} tcsh-${VERSION}/config
+	cp ${ALLSRCS} tcsh-${VERSION}
+	cp ${CONFSRCS} tcsh-${VERSION}/config
+	tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -)
+	tar cvf - tcsh-${VERSION} | gzip > tcsh-${VERSION}.tar.gz
+	rm -rf tcsh-${VERSION}
+
+shar:
+	rm -f tcsh-*.shar
+	rm -rf tcsh-${VERSION} 
+	mkdir tcsh-${VERSION} tcsh-${VERSION}/config
+	cp ${ALLSRCS} tcsh-${VERSION}
+	cp ${CONFSRCS} tcsh-${VERSION}/config
+	tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -)
+	MAKESHAR -v -n tcsh-${VERSION} tcsh-${VERSION} \
+		 tcsh-${VERSION}/?* tcsh-${VERSION}/config/?* \
+		 tcsh-${VERSION}/?*/set?*
+	rm -rf tcsh-${VERSION}
+
+catalogs:
+	@(cd nls; make catalogs)
+
+tcsh-${VERSION}.tar.Z:
+	rm -rf tcsh-${VERSION} 
+	rm -f tcsh-${VERSION}.tar tcsh-${VERSION}.tar.Z DIFFS.[123]
+	mkdir tcsh-${VERSION}
+	./MAKEDIFFS bsd
+	mv DIFFS.1 DIFFS.2 DIFFS.3 tcsh-${VERSION}
+	cp ${DISTSRCS} tcsh-${VERSION}
+	mkdir tcsh-${VERSION}/config
+	cp ${CONFSRCS} tcsh-${VERSION}/config
+	cp Makefile tcsh-${VERSION}/Makefile.new
+	tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -)
+	tar cvf - tcsh-${VERSION} | compress > tcsh-${VERSION}.tar.Z
+	rm -rf tcsh-${VERSION}
+
+tcsh.tahoe-${VERSION}.tar.Z:
+	rm -rf tcsh.tahoe-${VERSION} 
+	rm -f tcsh.tahoe-${VERSION}.tar tcsh.tahoe-${VERSION}.tar.Z DIFFS.[123]
+	mkdir tcsh.tahoe-${VERSION}
+	./MAKEDIFFS tahoe
+	mv DIFFS.1 DIFFS.2 DIFFS.3 tcsh.tahoe-${VERSION}
+	cp ${DISTSRCS} tcsh.tahoe-${VERSION}
+	mkdir tcsh.tahoe-${VERSION}/config
+	cp ${CONFSRCS} tcsh.tahoe-${VERSION}/config
+	cp Makefile tcsh.tahoe-${VERSION}/Makefile.new
+	tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -)
+	tar cvf - tcsh.tahoe-${VERSION} | compress > tcsh.tahoe-${VERSION}.tar.Z
+	rm -rf tcsh.tahoe-${VERSION}
+
+tcsh.reno-${VERSION}.tar.Z:
+	rm -rf tcsh.reno-${VERSION} 
+	rm -f tcsh.reno-${VERSION}.tar tcsh.reno-${VERSION}.tar.Z DIFFS.[123]
+	mkdir tcsh.reno-${VERSION}
+	./MAKEDIFFS reno
+	mv DIFFS.1 DIFFS.2 DIFFS.3 tcsh.reno-${VERSION}
+	cp ${DISTSRCS} tcsh.reno-${VERSION}
+	mkdir tcsh.reno-${VERSION}/config
+	cp ${CONFSRCS} tcsh.reno-${VERSION}/config
+	cp Makefile tcsh.reno-${VERSION}/Makefile.new
+	tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -)
+	tar cvf - tcsh.reno-${VERSION} | compress > tcsh.reno-${VERSION}.tar.Z
+	rm -rf tcsh.reno-${VERSION}
+
+ftp: tcsh-${VERSION}.tar.Z tcsh.tahoe-${VERSION}.tar.Z
+	cp tcsh-${VERSION}.tar.Z tcsh.tahoe-${VERSION}.tar.Z ${FTPAREA}
+	cp tcsh.man ${FTPAREA}
+
+autoconfigure: $(srcdir)/configure $(srcdir)/config.h.in
+
+$(srcdir)/configure: $(srcdir)/configure.in
+	cd $(srcdir) && autoconf
+
+$(srcdir)/config.h.in: $(srcdir)/stamp-h.in
+$(srcdir)/stamp-h.in: $(srcdir)/configure.in
+	cd $(srcdir) && autoheader
+	@echo timestamp > $(srcdir)/stamp-h.in
+
+#
+# Dependencies
+#
+config.h: config_f.h
+
+TCH=tc.h tc.const.h tc.decls.h tc.os.h tc.sig.h
+SHH=sh.h sh.types.h sh.char.h sh.err.h sh.dir.h sh.proc.h pathnames.h \
+    sh.decls.h ${TCH}
+TWH=tw.h tw.decls.h
+EDH=ed.h ed.decls.h
+
+# EDH
+EDINC=sh.${SUF} sh.func.${SUF} sh.lex.${SUF} sh.print.${SUF} sh.proc.${SUF} \
+      sh.set.${SUF} tc.bind.${SUF} tc.os.${SUF} tc.prompt.${SUF} \
+      tc.sched.${SUF} tw.parse.${SUF} tw.color.${SUF}
+${EDOBJS} ${EDINC} : ${EDH}
+
+# SHH
+${OBJS}: config.h ${SHH}
+
+# TWH
+TWINC=ed.chared.${SUF} ed.inputl.${SUF} sh.exec.${SUF} sh.func.${SUF} \
+      sh.set.${SUF} tc.func.${SUF} tw.color.${SUF}
+${TWOBJS} ${TWINC}: ${TWH}
+
+# glob.h
+glob.${SUF} sh.glob.${SUF}: glob.h
+
+# ed.defns.h
+EDDINC=tc.bind.${SUF} tc.func.${SUF} tc.os.${SUF}
+${EDOBJS} ${EDDINC}: ed.defns.h
+
+# tc.defs.o
+tc.defs.${SUF}:	tc.defs.c sh.h

contrib/tcsh/Makefile.std

@@ -0,0 +1,625 @@
+# $Id: Makefile.std,v 1.88 1998/10/02 10:56:47 christos Exp $
+#	Makefile.std	4.3	6/11/83
+#
+# C Shell with process control; VM/UNIX VAX Makefile
+# Bill Joy UC Berkeley; Jim Kulp IIASA, Austria
+#
+# With an input editor, command completion, etc. and ported to all sorts of
+# things; Paul Placeway, CIS Dept., Ohio State University
+#
+SHELL=/bin/sh
+VERSION=6.08
+BUILD=tcsh
+srcdir=.
+
+################################################################
+## CFLAGS.  For various -D things, see config.h
+################################################################
+#
+# These are the default suffixes from .c to .o and -c to get there
+# but to use the global optimizer on the mips boxes, see below
+#
+SUF=o
+CF=-c
+
+INCLUDES=-I. -I$(srcdir)
+
+LFLAGS=$(INCLUDES)
+#LFLAGS=$(INCLUDES) -Zn10000		# hpux lint
+
+
+#CFLAGS= $(INCLUDES) -g			# debug
+#CFLAGS= $(INCLUDES) -O			# production
+#CFLAGS= $(INCLUDES) 			# Broken optimizers....
+
+#CFLAGS= -g -pg $(INCLUDES) -DPROF
+#CFLAGS= -O -pg $(INCLUDES) -DPROF
+
+# gcc 1.00-1.37
+#CFLAGS=-O $(INCLUDES) -finline-functions -fstrength-reduce 
+
+# gcc 1.37-1.40
+#CFLAGS=-O $(INCLUDES) -fcombine-regs -finline-functions -fstrength-reduce 
+# add -msoft-float for 68881 machines.
+
+# gcc 2.0
+# On the sparc, don't use -O2; it breaks setjmp() and vfork()
+#CFLAGS=-O $(INCLUDES)
+
+# gcc-2.1+
+CFLAGS=-O2 $(INCLUDES)
+
+# lucid c on suns
+#CFLAGS=-O5 $(INCLUDES)
+
+# gcc 2.1 on linux
+#CFLAGS=-O6 -fomit-frame-pointer $(INCLUDES)
+
+# HP/UX 8.0, 9.0
+#CFLAGS= $(INCLUDES) +O3 -Aa
+
+# Ultrix 4.2a
+#CFLAGS= $(INCLUDES) -O -Olimit 2000
+
+# Intel Paragon OSF/1 with PGI compilers
+#CFLAGS=-O -Mnodebug -Mnoperfmon $(INCLUDES)
+
+# DEC Alpha OSF/1
+#CFLAGS= -O2 $(INCLUDES) -Olimit 2000	## Normal Optimization
+#CFLAGS= -O3 $(INCLUDES) -Olimit 2000	## Full Optimization - may not work
+#CF=-j
+#SUF=u
+#.SUFFIXES: .u
+
+# for silicon graphics (and other mips compilers) -- use the
+# global optimizer! (-O3).
+# On SGI 4.0+ you need to add -D__STDC__ too.
+#CFLAGS= -O3 $(INCLUDES) 
+#CFLAGS= -O3 $(INCLUDES) -Olimit 2000	## Ultrix 4.2a
+#CF=-j
+#SUF=u
+#.SUFFIXES: .u 				## Ultrix and gnu-make need that
+
+# mips systems
+# CFLAGS= $(INCLUDES) -O -systype bsd43 -Wf,-XNd5000 -Wf,-XNp6000 -Olimit 2000
+
+# for at&t machines
+#CFLAGS= -O -Ksd $(INCLUDES)
+
+# Stardent Titan
+#CFLAGS = $(INCLUDES) -O -43
+
+# Stardent Stellar or sunos4 /bin/cc or Solaris2.1 /opt/SUNWspro/bin/cc
+#CFLAGS = $(INCLUDES) -O4
+
+# Intergraph clipper CLIX 3.1
+#CFLAGS= -w -O2 $(INCLUDES)
+
+# Dnix 5.3
+#CFLAGS = -O -X7
+
+# Pyramid OS/x
+#CFLAGS = -OG
+
+# Multiflow (5M binary... if you choose -O5!)
+#CFLAGS = -O5 -sb_trace 0
+
+# DDE Supermax Unix SYSV Rel III.
+# CFLAGS= -O3
+
+# SINIX RMx00
+#CFLAGS= -O # -D_POSIX_SOURCE # -kansi
+
+# Apollo's with cc [apollo builtins don't work with gcc]
+# and apollo should not define __STDC__ if it does not have
+# the standard header files. RT's (aos4.3) need that too;
+# you might want to skip the -O on the rt's... Not very wise.
+# AIX/ESA needs -D_IBMESA on command line (this may disappear by GA)
+#DFLAGS=-U__STDC__ 
+#DFLAGS=-D_IBMESA
+# On aix2.2.1 we need more compiler space.
+#DFLAGS=-Nd4000 -Nn3000
+# AU/X 2.0 needs a flag for POSIX (read the config file)
+#DFLAGS=-Zp
+# Tektronix 4300 running UTek 4.0 (BSD 4.2) needs:
+#DFLAGS = -DUTek -DBSD
+# VMS_POSIX needs:
+#DFLAGS=-D_VMS_POSIX
+# Multiflow and PCC compilers don't like void typedefs.
+# You may also need -U__STDC__ if you use pcc (i.e. ibmrt aos4.3).
+#DFLAGS=-DMULTIFLOW
+#DFLAGS=-DPCC
+# DELL SVR4
+#DFLAGS=-DDELL
+# SCO_SV
+#DFLAGS=-D_SPEED_T -DSCO
+DFLAGS=
+#DFLAGS=-D_PATH_TCSHELL='"${DESTBIN}/tcsh"'
+
+
+################################################################
+## LDFLAGS.  Define something here if you need to
+################################################################
+LDFLAGS= 			## The simplest, suitable for all.
+#LDFLAGS= -s			## Stripped. Takes less space on disk.
+#LDFLAGS= -s -n			## Pure executable. Spares paging over
+# 				## the network for machines with local
+#				## swap but external /usr/local/bin .
+#LDFLAGS= -s -n -Bstatic	## Without dynamic linking. (SunOS/cc)
+#LDFLAGS= -s -n -static		## Without dynamic linking. (SunOS/gcc)
+#LDFLAGS= -Wl,-s,-n		## Stripped, shared text (Unicos)
+#LDFLAGS= -s -static		## Link statically. (linux)
+#LDFLAGS= -s -N			## Impure executable (linux)
+#LDFLAGS= -Bdynamic -dy		## SCO_SV
+
+################################################################
+## LIBES.  Pick one, or roll your own.
+################################################################
+LIBES= -ltermcap 			 ## BSD style things
+#LIBES= -ltermcap			 ## SunOS, HP-UX, pyramid
+#LIBES= -ltermcap			 ## Linux
+#LIBES= -ltermcap -lshadow		 ## Linux with PW_SHADOW
+#LIBES= -ltermcap -lsec			 ## Tek XD88/10 (UTekV) with PW_SHADOW
+#LIBES= -ltermcap -lsec			 ## Motorola MPC (sysV88) with PW_SHADOW
+#LIBES= -ltermcap -lcs			 ## Mach
+#LIBES= -ltermcap -lbsd			 ## DEC osf1 on the alpha
+#LIBES= -ltermcap -lbsd			 ## Intel paragon
+#LIBES= -ltermcap -lbsd			 ## Clipper intergraph
+#LIBES= -ltermcap -lseq			 ## Sequent's Dynix
+#LIBES= -ltermcap -lauth		 ## Ultrix with Enhanced Security
+#LIBES= -ltermcap -ldir -lx		 ## Xenix 386 style things
+#LIBES= -ltermcap -lndir -lsocket -ljobs ## masscomp RTU6.0
+#LIBES= -lcurses			 ## AIX on the rt
+#LIBES= -lcurses			 ## TitanOS on the stellar
+#LIBES= -ltermlib -lsocket -lnsl	 ## SysV4 w/o BSDTIMES or Solaris 2
+#LIBES= -lcurses			 ## SysV3 w/o networking
+#LIBES= -lcurses -lnet			 ## SysV3 with networking
+#LIBES= -lcurses -ldir			 ## SysV2 w/o networking & dirlib
+#LIBES= -lcurses -ldir -lnet		 ## SysV2 with networking & dirlib
+#LIBES= -lcurses -lbsd			 ## AIX on the IBM 370 or rs6000 or ps2
+#LIBES= -lcurses -lbsd			 ## ETA10
+#LIBES= -lcurses -lbsd			 ## Irix3.1 on the SGI-IRIS4D
+#LIBES= -lcurses -lbsd -lc_s		 ## Irix3.3 on the SGI-IRIS4D w/o yp
+#LIBES= -lcurses -lsun -lbsd -lc_s	 ## Irix3.3 on the SGI-IRIS4D with yp
+#LIBES= -lcurses -lsocket -lbsd		 ## Amdahl UTS 2.1
+#LIBES= -lcurses -lsocket		 ## Intel's hypercube.
+#LIBES= -lcurses -lsocket		 ## ns32000 based Opus.
+#LIBES= -lcurses -lcposix		 ## ISC 2.2 without networking
+#LIBES= -lcposix -lc_s -lcurses -linet	 ## ISC 2.2 with networking
+#LIBES= -lcurses -lsec -lc_s		 ## ISC 2.0.2 without networking
+#LIBES= -lcurses -linet -lsec -lc_s	 ## ISC 2.0.2 with networking
+#LIBES= -lcurses -lintl -lcrypt		 ## SCO SysVR3.2v2.0
+#LIBES= -lcurses -lintl -lsocket -lcrypt ## SCO+ODT1.1
+#LIBES= -lcurses -lsocket -lcrypt	 ## SCO_SV
+#LIBES= -lposix -ltermcap		 ## A/UX 2.0
+#LIBES= -lposix -ltermcap -lc_s		 ## A/UX 3.0
+#LIBES= -ldirent -lcurses		 ## att3b1 cc w/o shared lib & dirlib
+#LIBES= -shlib -ldirent -lcurses	 ## att3b1 gcc with shared lib & dirlib
+#LIBES= -ltermlib -lsocket -lnsl -lc /usr/ucblib/libucb.a ## SysV4 with BSDTIMES
+#LIBES= -lcurses -lnsl -lsocket -lc /usr/ucblib/libucb.a ## Stardent Vistra
+#LIBES= -ltermc				 ## emx under OS/2
+#LIBES=					 ## Minix, VMS_POSIX
+#LIBES= -ltermcap -lcrypt		 ## Multiflow
+#LIBES= -ltermcap -lcrypt		 ## NetBSD
+#LIBES= -lcurses 			 ## DDE Supermax
+
+################################################################
+## EXTRAFLAGS and EXTRALIBS
+################################################################
+# Compiling for HESIOD
+#HESDEF = -DHESIOD -I/usr/athena/include
+#HESLIB = -L/usr/athena/lib -lhesiod
+#
+# Compiling for AFS with kerberos authentication
+#AFSLIBDIR = /usr/afsws/lib
+#AFSDEF = -DAFS -I/usr/afsws/include
+#AFS33LIB = -laudit
+#
+#Solaris and HPUX require the BSD libraries with AFS.
+#We use -lc to use only what we require.
+#AFSAUXLIB = -lsocket -lnsl -lc -lucb                    # Solaris
+#AFSAUXLIB = -lc -lBSD                                   # HPUX   
+#
+#AFSLIB = -L$(AFSLIBDIR) -L$(AFSLIBDIR)/afs -lkauth -lprot -lubik\
+#         -lauth -lrxkad -lsys -ldes -lrx -llwp -lcom_err\
+#         $(AFSLIBDIR)/afs/util.a $(AFS33LIB) $(AFSAUXLIB)
+#
+
+EXTRAFLAGS = $(HESDEF) $(AFSDEF)
+EXTRALIBS = $(HESLIB) $(AFSLIB)
+
+
+# The difficult choice of a c-compiler...
+# First, you should try your own c-compiler. 
+# Gcc -traditional is also a safe choice. 
+# If you think that you have good include files try gcc -Wall...
+# If you want to take out -traditional, make sure that your sys/ioctl.h
+# is fixed correctly, otherwise you'll be stopped for tty input, or you
+# will lose the editor and job control.
+
+# This is for setting your C preprocessor value.
+CPP = ${CC} -E
+# The -B tells gcc to use /bin/ld. This is to avoid using the gnu ld, which
+# on the suns does not know how to make dynamically linked binaries.
+CC=	gcc -Wall -pipe -B/bin/	# -ansi -pedantic
+#CC=	gcc -m486 -pipe -Wall # Generate code for Intel 486 (linux)
+#CC=	shlicc 	# BSDI2.1 w/ shared libraries
+#CC=	cc
+#CC=	occ
+#CC=	acc
+#CC=	pcc
+#CC=	hc -w
+#CC=	c89	# For VMS/POSIX
+#CC=	/bin/cc	# For suns, w/o gcc and SVR4
+#CC=	/usr/lib/sun.compile/cc  # FPS 500 (+FPX) with Sun C compiler
+#CC=	/opt/SUNWspro/bin/cc	# Solaris 2.1
+#CC=	scc 	# Alliant fx2800
+#CC=	lcc	-wa 
+#CC=	cc -b elf -Kpic # SCO_SV
+ED=	ed
+AS=	as
+RM=	rm
+CXREF=	/usr/ucb/cxref
+#CXREF=	/bin/cxref			# SCO_SV
+VGRIND=	csh /usr/ucb/vgrind
+CTAGS=	/usr/ucb/ctags
+#CTAGS=	/usr/bin/ctags			# SCO_SV
+#XSTR= /usr/ucb/xstr
+#XSTR= /usr/bin/xstr			# SCO_SV
+SCCS=	/usr/local/sccs
+PARALLEL=12				# Make the multi-max run fast.
+#P=&					# Use Sequent's parallel make
+P=
+DESTDIR=/usr/local
+#DESTDIR=/usr/contrib
+MANSECT=1
+DESTBIN=${DESTDIR}/bin
+DESTMAN=${DESTDIR}/man/man${MANSECT}
+# DESTMAN=${DESTDIR}/catman/man${MANSECT}	 # A/UX
+# DESTMAN=${DESTDIR}/usr/share/man/man${MANSECT} # Stardent Vistra (SysVR4)
+# DESTMAN=/usr/catman/1l			 # Amiga unix (SysVR4)
+FTPAREA=/usr/spool/ftp
+
+ASSRCS=	sh.c sh.dir.c sh.dol.c sh.err.c sh.exec.c sh.char.c \
+	sh.exp.c sh.file.c sh.func.c sh.glob.c sh.hist.c sh.init.c \
+	sh.lex.c sh.misc.c sh.parse.c sh.print.c sh.proc.c sh.sem.c \
+	sh.set.c sh.time.c sh.char.h sh.dir.h sh.proc.h sh.h 
+PSSRCS= sh.decls.h glob.c glob.h mi.termios.c mi.wait.h mi.varargs.h ma.setp.c \
+	vms.termcap.c
+SHSRCS= ${ASSRCS} ${PSSRCS}
+SHOBJS=	sh.${SUF} sh.dir.${SUF} sh.dol.${SUF} sh.err.${SUF} sh.exec.${SUF} \
+	sh.char.${SUF} sh.exp.${SUF} sh.func.${SUF} sh.glob.${SUF} \
+	sh.hist.${SUF} sh.init.${SUF} sh.lex.${SUF} sh.misc.${SUF} \
+	sh.parse.${SUF} sh.print.${SUF} sh.proc.${SUF} sh.sem.${SUF} \
+	sh.set.${SUF} sh.time.${SUF} glob.${SUF} mi.termios.${SUF} \
+	ma.setp.${SUF} vms.termcap.${SUF}
+
+TWSRCS= tw.decls.h tw.h tw.help.c tw.init.c tw.parse.c tw.spell.c \
+	tw.comp.c tw.color.c
+TWOBJS=	tw.help.${SUF} tw.init.${SUF} tw.parse.${SUF} tw.spell.${SUF} \
+	tw.comp.${SUF} tw.color.${SUF}
+
+EDSRCS= ed.chared.c ed.decls.h ed.defns.c ed.h ed.init.c ed.inputl.c \
+	ed.refresh.c ed.screen.c ed.xmap.c ed.term.c ed.term.h
+EDOBJS=	ed.chared.${SUF} ed.refresh.${SUF} ed.screen.${SUF} ed.init.${SUF} \
+	ed.inputl.${SUF} ed.defns.${SUF} ed.xmap.${SUF} ed.term.${SUF}
+
+TCSRCS= tc.alloc.c tc.bind.c tc.const.c tc.decls.h tc.disc.c \
+	tc.func.c tc.os.c tc.os.h tc.printf.c tc.prompt.c \
+	tc.sched.c tc.sig.c tc.sig.h tc.str.c sh.types.h tc.vers.c tc.wait.h \
+	tc.who.c tc.h
+TCOBJS=	tc.alloc.${SUF} tc.bind.${SUF} tc.const.${SUF} tc.defs.${SUF} \
+	tc.disc.${SUF} tc.func.${SUF} tc.os.${SUF} tc.printf.${SUF} \
+	tc.prompt.${SUF} tc.sched.${SUF} tc.sig.${SUF} tc.str.${SUF} \
+	tc.vers.${SUF} tc.who.${SUF} 
+
+PVSRCS= Makefile.std Makefile.vms Makefile.in Makefile.win32
+AVSRCS= Fixes MAKEDIFFS MAKESHAR NewThings README FAQ \
+	WishList config_f.h eight-bit.me glob.3 patchlevel.h \
+	pathnames.h tcsh.man Ported src.desc Imakefile imake.config \
+	README.imake complete.tcsh vmsreadme.txt termcap.vms snames.h \
+	host.defs gethost.c tcsh.man2html configure.in configure config.h.in
+
+VHSRCS=${PVSRCS} ${AVSRCS}
+
+CONFSRCS=config/* 
+
+ALLSRCS=  ${SHSRCS} ${TWSRCS} ${EDSRCS} ${TCSRCS} ${VHSRCS}
+DISTSRCS= ${PSSRCS} ${TWSRCS} ${EDSRCS} ${TCSRCS} ${AVSRCS}
+
+
+OBJS= ${SHOBJS} ${TWOBJS} ${EDOBJS} ${TCOBJS}
+
+
+all: ${BUILD}
+
+tcsh:$(P) ${OBJS} 
+	rm -f tcsh core
+	${CC} -o tcsh ${LDFLAGS} ${CFLAGS} ${OBJS} ${LIBES} ${EXTRALIBS}
+
+# Purify
+pure:$(P) ${OBJS} 
+	rm -f tcsh core
+	purify `echo ${CC} | sed -e s,-B/bin/,,` -o tcsh ${LDFLAGS} ${CFLAGS} ${OBJS} ${LIBES} ${EXTRALIBS}
+# OS/2
+tcsh.exe: tcsh
+	emxbind tcsh
+
+gethost:  gethost.c sh.err.h tc.const.h sh.h
+	rm -f gethost
+	${CC} -o gethost ${LDFLAGS} ${CFLAGS} ${DFLAGS} $(srcdir)/gethost.c ${LIBES} ${EXTRALIBS}
+
+tc.defs.c:	gethost host.defs
+	@rm -f $@
+	@echo "/* Do not edit this file, make creates it */" > $@
+	./gethost $(srcdir)/host.defs >> $@
+
+tcsh.ps: tcsh.man
+	rm -f tcsh.ps
+	-ptroff -t -man $(srcdir)/tcsh.man > tcsh.ps
+
+
+.c.${SUF}:
+	${CC} ${CF} ${CFLAGS} ${DFLAGS} ${EXTRAFLAGS} $<
+
+# _VMS_POSIX #module addition
+#.c.${SUF}:
+#	@(echo '#module '`echo $< | sed -e 's/\./_/g'`; cat $<) > $*..c
+#	@echo ${CC} ${CF} ${CFLAGS} ${DFLAGS} ${EXTRAFLAGS} $*.c
+#	@${CC} ${CF} ${CFLAGS} ${DFLAGS} ${EXTRAFLAGS} $*..c
+#	@mv $*..o $*.o
+#	@rm -f $*..c
+
+
+# Don't do any special massaging of C files for sharing of strings!!
+# it causes weird segmentation faults on some systems.
+#.c.o:
+#	${CPP} ${CFLAGS} $*.c | ${XSTR} -c -
+#	${CC} ${CF} ${CFLAGS} x.c 
+#	mv -f x.o $*.o
+#	rm -f x.c
+
+#ed.init.o: ed.init.c
+#	${CPP} ${CFLAGS} $*.c | ${XSTR} -c -
+#	${CC} -R ${CF} ${CF} x.c 
+#	mv -f x.o $*.o
+#	rm -f x.c
+
+#strings.o: strings
+#	${XSTR}
+#	${CC} -c -R xs.c
+#	mv -f xs.o strings.o
+#	rm -f xs.c
+
+##.DEFAULT:
+##	${SCCS} get $<
+
+##.DEFAULT:
+##	co $<
+
+ed.defns.h: ed.defns.c
+	@rm -f $@
+	@echo '/* Do not edit this file, make creates it. */' > $@
+	@echo '#ifndef _h_ed_defns' >> $@
+	@echo '#define _h_ed_defns' >> $@
+	grep '[FV]_' $(srcdir)/ed.defns.c | grep '^#define' >> $@
+	@echo '#endif /* _h_ed_defns */' >> $@
+
+sh.err.h: sh.err.c
+	@rm -f $@
+	@echo '/* Do not edit this file, make creates it. */' > $@
+	@echo '#ifndef _h_sh_err' >> $@
+	@echo '#define _h_sh_err' >> $@
+	grep 'ERR_' $(srcdir)/sh.err.c | grep '^#define' >> $@
+	@echo '#endif /* _h_sh_err */' >> $@
+
+tc.const.h: tc.const.c sh.char.h config.h config_f.h sh.types.h sh.err.h
+	@rm -f $@
+	@echo '/* Do not edit this file, make creates it. */' > $@
+	@echo '#ifndef _h_tc_const' >> $@
+	@echo '#define _h_tc_const' >> $@
+	${CPP} $(INCLUDES) ${DFLAGS} ${EXTRAFLAGS} -D_h_tc_const\
+	    $(srcdir)/tc.const.c | grep 'Char STR' | \
+	    sed -e 's/Char \([a-zA-Z0-9_]*\)\[\].*/extern Char \1[];/' | \
+	    sort >> $@
+	@echo '#endif /* _h_tc_const */' >> $@
+
+csh.prof: ${OBJS} sh.prof.${SUF} mcrt0.${SUF}
+	rm -f csh.prof
+	ld -X mcrt0.${SUF} ${OBJS} -o csh.prof ${LIBES} -lc
+
+sh.prof.${SUF}:
+	cp sh.c sh.prof.c
+	${CC} ${CF} ${CFLAGS} -DPROF sh.prof.c
+
+lint: tc.const.h ed.defns.h
+	lint ${DFLAGS} ${LFLAGS} sh*.c tw*.c ed*.c tc.*.c ${LIBES}
+
+alint: tc.const.h ed.defns.h
+	alint ${DFLAGS} ${LFLAGS} sh*.c tw*.c ed*.c tc.*.c ${LIBES}
+
+print:
+	@pr READ_ME
+	@pr makefile makefile.*
+	@(size -l a.out; size *.${SUF}) | pr -h SIZES
+	@${CXREF} sh*.c | pr -h XREF
+	@ls -l | pr 
+	@pr sh*.h [a-rt-z]*.h sh*.c alloc.c
+
+vprint:
+	@pr -l84 READ_ME TODO
+	@pr -l84 makefile makefile.*
+	@(size -l a.out; size *.${SUF}) | pr -l84 -h SIZES
+	@${CXREF} sh*.c | pr -l84 -h XREF
+	@ls -l | pr -l84
+	@${CXREF} sh*.c | pr -l84 -h XREF
+	@pr -l84 sh*.h [a-rt-z]*.h sh*.c alloc.c
+
+vgrind:
+	@cp /dev/null index
+	@for i in *.h; do vgrind -t -h "C Shell" $$i >/crp/bill/csh/$$i.t; done
+	@for i in *.c; do vgrind -t -h "C Shell" $$i >/crp/bill/csh/$$i.t; done
+	@vgrind -t -x -h Index index >/crp/bill/csh/index.t
+
+install: tcsh 
+	-mv -f ${DESTBIN}/tcsh  ${DESTBIN}/tcsh.old
+	cp tcsh ${DESTBIN}/tcsh
+	-strip ${DESTBIN}/tcsh
+	chmod 555 ${DESTBIN}/tcsh
+
+install.man: tcsh.man
+	-rm -f ${DESTMAN}/tcsh.${MANSECT}
+	cp $(srcdir)/tcsh.man ${DESTMAN}/tcsh.${MANSECT}
+	chmod 444 ${DESTMAN}/tcsh.${MANSECT}
+
+# Amiga Unix
+#install.man: tcsh.man
+#        compress tcsh.man
+#	cp tcsh.man.Z ${DESTMAN}/tcsh.Z
+#	chmod 444 ${DESTMAN}/tcsh.Z
+
+# Apple A/UX
+#install.man: tcsh.man
+#	-rm -f ${DESTMAN}/tcsh.${MANSECT}.Z
+#	nroff -man tcsh.man | compress > ${DESTMAN}/tcsh.${MANSECT}.Z
+#	chmod 444 ${DESTMAN}/tcsh.${MANSECT}.Z
+
+clean:
+	${RM} -f a.out strings x.c xs.c tcsh tcsh.a _MAKE_LOG core gethost
+	${RM} -f *.${SUF} sh.prof.c ed.defns.h tc.const.h sh.err.h tc.defs.c
+	${RM} -f tcsh.*.m tcsh.*.cat
+
+veryclean: clean
+	${RM} -f config.h config.status config.cache config.log Makefile tcsh.ps
+	${RM} -f *~ #*
+
+distclean: veryclean
+
+tags:	/tmp
+	${CTAGS} sh*.c
+
+tar.Z:
+	rm -f tcsh-${VERSION}.tar.Z
+	rm -rf tcsh-${VERSION} 
+	mkdir tcsh-${VERSION} tcsh-${VERSION}/config
+	cp ${ALLSRCS} tcsh-${VERSION}
+	cp ${CONFSRCS} tcsh-${VERSION}/config
+	tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -)
+	tar cvf - tcsh-${VERSION} | compress > tcsh-${VERSION}.tar.Z
+	rm -rf tcsh-${VERSION}
+
+tar.gz:
+	rm -f tcsh-${VERSION}.tar.gz
+	rm -rf tcsh-${VERSION} 
+	mkdir tcsh-${VERSION} tcsh-${VERSION}/config
+	cp ${ALLSRCS} tcsh-${VERSION}
+	cp ${CONFSRCS} tcsh-${VERSION}/config
+	tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -)
+	tar cvf - tcsh-${VERSION} | gzip > tcsh-${VERSION}.tar.gz
+	rm -rf tcsh-${VERSION}
+
+shar:
+	rm -f tcsh-*.shar
+	rm -rf tcsh-${VERSION} 
+	mkdir tcsh-${VERSION} tcsh-${VERSION}/config
+	cp ${ALLSRCS} tcsh-${VERSION}
+	cp ${CONFSRCS} tcsh-${VERSION}/config
+	tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -)
+	MAKESHAR -v -n tcsh-${VERSION} tcsh-${VERSION} \
+		 tcsh-${VERSION}/?* tcsh-${VERSION}/config/?* \
+		 tcsh-${VERSION}/?*/set?*
+	rm -rf tcsh-${VERSION}
+
+catalogs:
+	@(cd nls; make catalogs)
+
+tcsh-${VERSION}.tar.Z:
+	rm -rf tcsh-${VERSION} 
+	rm -f tcsh-${VERSION}.tar tcsh-${VERSION}.tar.Z DIFFS.[123]
+	mkdir tcsh-${VERSION}
+	./MAKEDIFFS bsd
+	mv DIFFS.1 DIFFS.2 DIFFS.3 tcsh-${VERSION}
+	cp ${DISTSRCS} tcsh-${VERSION}
+	mkdir tcsh-${VERSION}/config
+	cp ${CONFSRCS} tcsh-${VERSION}/config
+	cp Makefile tcsh-${VERSION}/Makefile.new
+	tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -)
+	tar cvf - tcsh-${VERSION} | compress > tcsh-${VERSION}.tar.Z
+	rm -rf tcsh-${VERSION}
+
+tcsh.tahoe-${VERSION}.tar.Z:
+	rm -rf tcsh.tahoe-${VERSION} 
+	rm -f tcsh.tahoe-${VERSION}.tar tcsh.tahoe-${VERSION}.tar.Z DIFFS.[123]
+	mkdir tcsh.tahoe-${VERSION}
+	./MAKEDIFFS tahoe
+	mv DIFFS.1 DIFFS.2 DIFFS.3 tcsh.tahoe-${VERSION}
+	cp ${DISTSRCS} tcsh.tahoe-${VERSION}
+	mkdir tcsh.tahoe-${VERSION}/config
+	cp ${CONFSRCS} tcsh.tahoe-${VERSION}/config
+	cp Makefile tcsh.tahoe-${VERSION}/Makefile.new
+	tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -)
+	tar cvf - tcsh.tahoe-${VERSION} | compress > tcsh.tahoe-${VERSION}.tar.Z
+	rm -rf tcsh.tahoe-${VERSION}
+
+tcsh.reno-${VERSION}.tar.Z:
+	rm -rf tcsh.reno-${VERSION} 
+	rm -f tcsh.reno-${VERSION}.tar tcsh.reno-${VERSION}.tar.Z DIFFS.[123]
+	mkdir tcsh.reno-${VERSION}
+	./MAKEDIFFS reno
+	mv DIFFS.1 DIFFS.2 DIFFS.3 tcsh.reno-${VERSION}
+	cp ${DISTSRCS} tcsh.reno-${VERSION}
+	mkdir tcsh.reno-${VERSION}/config
+	cp ${CONFSRCS} tcsh.reno-${VERSION}/config
+	cp Makefile tcsh.reno-${VERSION}/Makefile.new
+	tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -)
+	tar cvf - tcsh.reno-${VERSION} | compress > tcsh.reno-${VERSION}.tar.Z
+	rm -rf tcsh.reno-${VERSION}
+
+ftp: tcsh-${VERSION}.tar.Z tcsh.tahoe-${VERSION}.tar.Z
+	cp tcsh-${VERSION}.tar.Z tcsh.tahoe-${VERSION}.tar.Z ${FTPAREA}
+	cp tcsh.man ${FTPAREA}
+
+autoconfigure: $(srcdir)/configure $(srcdir)/config.h.in
+
+$(srcdir)/configure: $(srcdir)/configure.in
+	cd $(srcdir) && autoconf
+
+$(srcdir)/config.h.in: $(srcdir)/stamp-h.in
+$(srcdir)/stamp-h.in: $(srcdir)/configure.in
+	cd $(srcdir) && autoheader
+	@echo timestamp > $(srcdir)/stamp-h.in
+
+#
+# Dependencies
+#
+config.h: config_f.h
+
+TCH=tc.h tc.const.h tc.decls.h tc.os.h tc.sig.h
+SHH=sh.h sh.types.h sh.char.h sh.err.h sh.dir.h sh.proc.h pathnames.h \
+    sh.decls.h ${TCH}
+TWH=tw.h tw.decls.h
+EDH=ed.h ed.decls.h
+
+# EDH
+EDINC=sh.${SUF} sh.func.${SUF} sh.lex.${SUF} sh.print.${SUF} sh.proc.${SUF} \
+      sh.set.${SUF} tc.bind.${SUF} tc.os.${SUF} tc.prompt.${SUF} \
+      tc.sched.${SUF} tw.parse.${SUF} tw.color.${SUF}
+${EDOBJS} ${EDINC} : ${EDH}
+
+# SHH
+${OBJS}: config.h ${SHH}
+
+# TWH
+TWINC=ed.chared.${SUF} ed.inputl.${SUF} sh.exec.${SUF} sh.func.${SUF} \
+      sh.set.${SUF} tc.func.${SUF} tw.color.${SUF}
+${TWOBJS} ${TWINC}: ${TWH}
+
+# glob.h
+glob.${SUF} sh.glob.${SUF}: glob.h
+
+# ed.defns.h
+EDDINC=tc.bind.${SUF} tc.func.${SUF} tc.os.${SUF}
+${EDOBJS} ${EDDINC}: ed.defns.h
+
+# tc.defs.o
+tc.defs.${SUF}:	tc.defs.c sh.h

contrib/tcsh/Makefile.vms

@@ -0,0 +1,594 @@
+# $Id: Makefile.vms,v 1.32 1998/10/02 10:56:49 christos Exp $
+#	Makefile.vms	4.3	6/11/83
+#
+# C Shell with process control; VM/UNIX VAX Makefile
+# Bill Joy UC Berkeley; Jim Kulp IIASA, Austria
+#
+# With an input editor, command completion, etc. and ported to all sorts of
+# things; Paul Placeway, CIS Dept., Ohio State University
+#
+SHELL=/bin/sh
+VERSION=6.08
+BUILD=tcsh
+
+################################################################
+## CFLAGS.  For various -D things, see config.h
+################################################################
+#
+# These are the default suffixes from .c to .o and -c to get there
+# but to use the global optimizer on the mips boxes, see below
+#
+SUF=o
+CF=-c
+
+INCLUDES=-I. -I..
+
+LFLAGS=$(INCLUDES)
+#LFLAGS=$(INCLUDES) -Zn10000		# hpux lint
+
+
+#CFLAGS= $(INCLUDES) -g			# debug
+#CFLAGS= $(INCLUDES) -O			# production
+#CFLAGS= $(INCLUDES) 			# Broken optimizers....
+
+#CFLAGS= -g -pg $(INCLUDES) -DPROF
+#CFLAGS= -O -pg $(INCLUDES) -DPROF
+
+# gcc 1.00-1.37
+#CFLAGS=-O $(INCLUDES) -finline-functions -fstrength-reduce 
+
+# gcc 1.37-1.40
+#CFLAGS=-O $(INCLUDES) -fcombine-regs -finline-functions -fstrength-reduce 
+# add -msoft-float for 68881 machines.
+
+# gcc 2.0
+# On the sparc, don't use -O2; it breaks setjmp() and vfork()
+#CFLAGS=-O $(INCLUDES)
+
+# gcc-2.1+
+#CFLAGS=-O2 $(INCLUDES)
+
+# lucid c on suns
+#CFLAGS=-O5 $(INCLUDES)
+
+# gcc 2.1 on linux
+#CFLAGS=-O6 -fomit-frame-pointer $(INCLUDES)
+
+# HP/UX 8.0, 9.0
+#CFLAGS= $(INCLUDES) +O3 -Aa
+
+# Ultrix 4.2a
+#CFLAGS= $(INCLUDES) -O -Olimit 2000
+
+# Intel Paragon OSF/1 with PGI compilers
+#CFLAGS=-O -Mnodebug -Mnoperfmon $(INCLUDES)
+
+# DEC Alpha OSF/1
+#CFLAGS= -O2 $(INCLUDES) -Olimit 2000	## Normal Optimization
+#CFLAGS= -O3 $(INCLUDES) -Olimit 2000	## Full Optimization - may not work
+#CF=-j
+#SUF=u
+#.SUFFIXES: .u
+
+# for silicon graphics (and other mips compilers) -- use the
+# global optimizer! (-O3).
+# On SGI 4.0+ you need to add -D__STDC__ too.
+#CFLAGS= -O3 $(INCLUDES) 
+#CFLAGS= -O3 $(INCLUDES) -Olimit 2000	## Ultrix 4.2a
+#CF=-j
+#SUF=u
+#.SUFFIXES: .u 				## Ultrix and gnu-make need that
+
+# mips systems
+# CFLAGS= $(INCLUDES) -O -systype bsd43 -Wf,-XNd5000 -Wf,-XNp6000 -Olimit 2000
+
+# for at&t machines
+#CFLAGS= -O -Ksd $(INCLUDES)
+
+# Stardent Titan
+#CFLAGS = $(INCLUDES) -O -43
+
+# Stardent Stellar or sunos4 /bin/cc or Solaris2.1 /opt/SUNWspro/bin/cc
+#CFLAGS = $(INCLUDES) -O4
+
+# Intergraph clipper CLIX 3.1
+#CFLAGS= -w -O2 $(INCLUDES)
+
+# Dnix 5.3
+#CFLAGS = -O -X7
+
+# Pyramid OS/x
+#CFLAGS = -OG
+
+# Multiflow (5M binary... if you choose -O5!)
+#CFLAGS = -O5 -sb_trace 0
+
+# DDE Supermax Unix SYSV Rel III.
+# CFLAGS= -O3
+
+# Apollo's with cc [apollo builtins don't work with gcc]
+# and apollo should not define __STDC__ if it does not have
+# the standard header files. RT's (aos4.3) need that too;
+# you might want to skip the -O on the rt's... Not very wise.
+# AIX/ESA needs -D_IBMESA on command line (this may disappear by GA)
+#DFLAGS=-U__STDC__ 
+#DFLAGS=-D_IBMESA
+# On aix2.2.1 we need more compiler space.
+#DFLAGS=-Nd4000 -Nn3000
+# AU/X 2.0 needs a flag for POSIX (read the config file)
+#DFLAGS=-Zp
+# Tektronix 4300 running UTek 4.0 (BSD 4.2) needs:
+#DFLAGS = -DUTek -DBSD
+# VMS_POSIX needs:
+#DFLAGS=-D_VMS_POSIX
+# Multiflow
+#DFLAGS=-DMULTIFLOW
+# DELL SVR4
+#DFLAGS=-DDELL
+DFLAGS=
+#DFLAGS=-D_PATH_TCSHELL='"${DESTBIN}/tcsh"'
+
+
+################################################################
+## LDFLAGS.  Define something here if you need to
+################################################################
+LDFLAGS= 			## The simplest, suitable for all.
+#LDFLAGS= -s			## Stripped. Takes less space on disk.
+#LDFLAGS= -s -n			## Pure executable. Spares paging over
+# 				## the network for machines with local
+#				## swap but external /usr/local/bin .
+#LDFLAGS= -s -n -Bstatic	## Without dynamic links. (SunOS)
+#LDFLAGS= -Wl,-s,-n		## Stripped, shared text (Unicos)
+#LDFLAGS= -s -static		## Link statically. (linux)
+#LDFLAGS= -s -N			## Impure executable (linux)
+
+################################################################
+## LIBES.  Pick one, or roll your own.
+################################################################
+#LIBES= -ltermcap 			 ## BSD style things
+#LIBES= -ltermcap			 ## SunOS, HP-UX, pyramid
+#LIBES= -ltermcap			 ## Linux
+#LIBES= -ltermcap -lshadow		 ## Linux with PW_SHADOW
+#LIBES= -ltermcap -lsec			 ## Tek XD88/10 (UTekV) with PW_SHADOW
+#LIBES= -ltermcap -lsec			 ## Motorola MPC (sysV88) with PW_SHADOW
+#LIBES= -ltermcap -lcs			 ## Mach
+#LIBES= -ltermcap -lbsd			 ## DEC osf1 on the alpha
+#LIBES= -ltermcap -lbsd			 ## Intel paragon
+#LIBES= -ltermcap -lbsd			 ## Clipper intergraph
+#LIBES= -ltermcap -lseq			 ## Sequent's Dynix
+#LIBES= -ltermcap -lauth		 ## Ultrix with Enhanced Security
+#LIBES= -ltermcap -ldir -lx		 ## Xenix 386 style things
+#LIBES= -ltermcap -lndir -lsocket -ljobs ## masscomp RTU6.0
+#LIBES= -lcurses			 ## AIX on the rt
+#LIBES= -lcurses			 ## TitanOS on the stellar
+#LIBES= -ltermlib -lsocket -lnsl	 ## SysV4 w/o BSDTIMES or Solaris 2
+#LIBES= -lcurses			 ## SysV3 w/o networking
+#LIBES= -lcurses -lnet			 ## SysV3 with networking
+#LIBES= -lcurses -ldir			 ## SysV2 w/o networking & dirlib
+#LIBES= -lcurses -ldir -lnet		 ## SysV2 with networking & dirlib
+#LIBES= -lcurses -lbsd			 ## AIX on the IBM 370 or rs6000 or ps2
+#LIBES= -lcurses -lbsd			 ## ETA10
+#LIBES= -lcurses -lbsd			 ## Irix3.1 on the SGI-IRIS4D
+#LIBES= -lcurses -lbsd -lc_s		 ## Irix3.3 on the SGI-IRIS4D w/o yp
+#LIBES= -lcurses -lsun -lbsd -lc_s	 ## Irix3.3 on the SGI-IRIS4D with yp
+#LIBES= -lcurses -lsocket -lbsd		 ## Amdahl UTS 2.1
+#LIBES= -lcurses -lsocket		 ## Intel's hypercube.
+#LIBES= -lcurses -lsocket		 ## ns32000 based Opus.
+#LIBES= -lcurses -lcposix		 ## ISC 2.2 without networking
+#LIBES= -lcposix -lc_s -lcurses -linet	 ## ISC 2.2 with networking
+#LIBES= -lcurses -lsec -lc_s		 ## ISC 2.0.2 without networking
+#LIBES= -lcurses -linet -lsec -lc_s	 ## ISC 2.0.2 with networking
+#LIBES= -lcurses -lintl -lcrypt		 ## SCO SysVR3.2v2.0
+#LIBES= -lcurses -lintl -lsocket -lcrypt ## SCO+ODT1.1
+#LIBES= -lposix -ltermcap		 ## A/UX 2.0
+#LIBES= -lposix -ltermcap -lc_s		 ## A/UX 3.0
+#LIBES= -ldirent -lcurses		 ## att3b1 cc w/o shared lib & dirlib
+#LIBES= -shlib -ldirent -lcurses	 ## att3b1 gcc with shared lib & dirlib
+#LIBES= -ltermlib -lsocket -lnsl -lc /usr/ucblib/libucb.a ## SysV4 with BSDTIMES
+#LIBES= -lcurses -lnsl -lsocket -lc /usr/ucblib/libucb.a ## Stardent Vistra
+#LIBES= -ltermc				 ## emx under OS/2
+LIBES=					 ## Minix, VMS_POSIX
+#LIBES= -ltermcap -lcrypt		 ## Multiflow
+#LIBES= -ltermcap -lcrypt		 ## NetBSD
+#LIBES= -lcurses 			 ## DDE Supermax
+
+################################################################
+## EXTRAFLAGS and EXTRALIBS
+################################################################
+# Compiling for HESIOD
+#HESDEF = -DHESIOD -I/usr/athena/include
+#HESLIB = -L/usr/athena/lib -lhesiod
+#
+# Compiling for AFS with kerberos authentication
+#AFSLIBDIR = /usr/afsws/lib
+#AFSDEF = -DAFS -I/usr/afsws/include
+#AFS33LIB = -laudit
+#
+#Solaris and HPUX require the BSD libraries with AFS.
+#We use -lc to use only what we require.
+#AFSAUXLIB = -lsocket -lnsl -lc -lucb                    # Solaris
+#AFSAUXLIB = -lc -lBSD                                   # HPUX   
+#
+#AFSLIB = -L$(AFSLIBDIR) -L$(AFSLIBDIR)/afs -lkauth -lprot -lubik\
+#         -lauth -lrxkad -lsys -ldes -lrx -llwp -lcom_err\
+#         $(AFSLIBDIR)/afs/util.a $(AFS33LIB) $(AFSAUXLIB)
+#
+
+EXTRAFLAGS = $(HESDEF) $(AFSDEF)
+EXTRALIBS = $(HESLIB) $(AFSLIB)
+
+
+# The difficult choice of a c-compiler...
+# First, you should try your own c-compiler. 
+# Gcc -traditional is also a safe choice. 
+# If you think that you have good include files try gcc -Wall...
+# If you want to take out -traditional, make sure that your sys/ioctl.h
+# is fixed correctly, otherwise you'll be stopped for tty input, or you
+# will lose the editor and job control.
+
+# The -B tells gcc to use /bin/ld. This is to avoid using the gnu ld, which
+# on the suns does not know how to make dynamically linked binaries.
+#CC=	gcc -Wall -pipe -B/bin/	# -ansi -pedantic
+#CC=	gcc -m486 -pipe -Wall # Generate code for Intel 486 (linux)
+#CC=	cc
+#CC=	occ
+#CC=	acc
+#CC=	pcc
+#CC=	hc -w
+CC=	c89	# For VMS/POSIX
+#CC=	/bin/cc	# For suns, w/o gcc and SVR4
+#CC=	/usr/lib/sun.compile/cc  # FPS 500 (+FPX) with Sun C compiler
+#CC=	/opt/SUNWspro/bin/cc	# Solaris 2.1
+#CC=	scc 	# Alliant fx2800
+#CC=	lcc	-wa 
+ED=	ed
+AS=	as
+RM=	rm
+CXREF=	/usr/ucb/cxref
+VGRIND=	csh /usr/ucb/vgrind
+CTAGS=	/usr/ucb/ctags
+#XSTR= /usr/ucb/xstr
+SCCS=	/usr/local/sccs
+PARALLEL=12				# Make the multi-max run fast.
+#P=&					# Use Sequent's parallel make
+P=
+DESTDIR=/usr/local
+MANSECT=1
+DESTBIN=${DESTDIR}/bin
+DESTMAN=${DESTDIR}/man/man${MANSECT}
+# DESTMAN=${DESTDIR}/catman/man${MANSECT}	 # A/UX
+# DESTMAN=${DESTDIR}/usr/share/man/man${MANSECT} # Stardent Vistra (SysVR4)
+# DESTMAN=/usr/catman/1l			 # Amiga unix (SysVR4)
+FTPAREA=/usr/spool/ftp
+
+ASSRCS=	sh.c sh.dir.c sh.dol.c sh.err.c sh.exec.c sh.char.c \
+	sh.exp.c sh.file.c sh.func.c sh.glob.c sh.hist.c sh.init.c \
+	sh.lex.c sh.misc.c sh.parse.c sh.print.c sh.proc.c sh.sem.c \
+	sh.set.c sh.time.c sh.char.h sh.dir.h sh.proc.h sh.h 
+PSSRCS= sh.decls.h glob.c glob.h mi.termios.c mi.wait.h mi.varargs.h ma.setp.c \
+	vms.termcap.c
+SHSRCS= ${ASSRCS} ${PSSRCS}
+SHOBJS=	sh.${SUF} sh.dir.${SUF} sh.dol.${SUF} sh.err.${SUF} sh.exec.${SUF} \
+	sh.char.${SUF} sh.exp.${SUF} sh.func.${SUF} sh.glob.${SUF} \
+	sh.hist.${SUF} sh.init.${SUF} sh.lex.${SUF} sh.misc.${SUF} \
+	sh.parse.${SUF} sh.print.${SUF} sh.proc.${SUF} sh.sem.${SUF} \
+	sh.set.${SUF} sh.time.${SUF} glob.${SUF} mi.termios.${SUF} \
+	ma.setp.${SUF} vms.termcap.${SUF}
+
+TWSRCS= tw.decls.h tw.h tw.help.c tw.init.c tw.parse.c tw.spell.c \
+	tw.comp.c tw.color.c
+TWOBJS=	tw.help.${SUF} tw.init.${SUF} tw.parse.${SUF} tw.spell.${SUF} \
+	tw.comp.${SUF} tw.color.${SUF}
+
+EDSRCS= ed.chared.c ed.decls.h ed.defns.c ed.h ed.init.c ed.inputl.c \
+	ed.refresh.c ed.screen.c ed.xmap.c ed.term.c ed.term.h
+EDOBJS=	ed.chared.${SUF} ed.refresh.${SUF} ed.screen.${SUF} ed.init.${SUF} \
+	ed.inputl.${SUF} ed.defns.${SUF} ed.xmap.${SUF} ed.term.${SUF}
+
+TCSRCS= tc.alloc.c tc.bind.c tc.const.c tc.decls.h tc.disc.c \
+	tc.func.c tc.os.c tc.os.h tc.printf.c tc.prompt.c \
+	tc.sched.c tc.sig.c tc.sig.h tc.str.c sh.types.h tc.vers.c tc.wait.h \
+	tc.who.c tc.h
+TCOBJS=	tc.alloc.${SUF} tc.bind.${SUF} tc.const.${SUF} tc.defs.${SUF} \
+	tc.disc.${SUF} tc.func.${SUF} tc.os.${SUF} tc.printf.${SUF} \
+	tc.prompt.${SUF} tc.sched.${SUF} tc.sig.${SUF} tc.str.${SUF} \
+	tc.vers.${SUF} tc.who.${SUF} 
+
+PVSRCS= Makefile.std Makefile.vms Makefile.in Makefile.win32
+AVSRCS= Fixes MAKEDIFFS MAKESHAR NewThings README FAQ \
+	WishList config_f.h eight-bit.me glob.3 patchlevel.h \
+	pathnames.h tcsh.man Ported src.desc Imakefile imake.config \
+	README.imake complete.tcsh vmsreadme.txt termcap.vms snames.h \
+	host.defs gethost.c tcsh.man2html configure.in
+
+VHSRCS=${PVSRCS} ${AVSRCS}
+
+CONFSRCS=config/* 
+
+ALLSRCS=  ${SHSRCS} ${TWSRCS} ${EDSRCS} ${TCSRCS} ${VHSRCS}
+DISTSRCS= ${PSSRCS} ${TWSRCS} ${EDSRCS} ${TCSRCS} ${AVSRCS}
+
+
+OBJS= ${SHOBJS} ${TWOBJS} ${EDOBJS} ${TCOBJS}
+
+
+all: ${BUILD}
+
+tcsh:$(P) ${OBJS} 
+	rm -f tcsh core
+	${CC} -o tcsh ${LDFLAGS} ${CFLAGS} ${OBJS} ${LIBES} ${EXTRALIBS}
+
+# Purify
+pure:$(P) ${OBJS} 
+	rm -f tcsh core
+	purify `echo ${CC} | sed -e s,-B/bin/,,` -o tcsh ${LDFLAGS} ${CFLAGS} ${OBJS} ${LIBES} ${EXTRALIBS}
+# OS/2
+tcsh.exe: tcsh
+	emxbind tcsh
+
+gethost:  gethost.c sh.err.h tc.const.h sh.h
+	rm -f gethost
+	${CC} -o gethost ${LDFLAGS} ${CFLAGS} ${DFLAGS} gethost.c ${LIBES} ${EXTRALIBS}
+
+tc.defs.c:	gethost host.defs
+	@rm -f $@
+	@echo "/* Do not edit this file, make creates it */" > $@
+	./gethost host.defs >> $@
+
+tcsh.ps: tcsh.man
+	rm -f tcsh.ps
+	-ptroff -man tcsh.man > tcsh.ps
+
+
+#.c.${SUF}:
+#	${CC} ${CF} ${CFLAGS} ${DFLAGS} ${EXTRAFLAGS} $<
+
+# _VMS_POSIX #module addition
+.c.${SUF}:
+	@(echo '\#module '`echo $< | sed -e 's/\./_/g'`; cat $<) > $*..c
+	@echo ${CC} ${CF} ${CFLAGS} ${DFLAGS} ${EXTRAFLAGS} $*.c
+	@${CC} ${CF} ${CFLAGS} ${DFLAGS} ${EXTRAFLAGS} $*..c
+	@mv $*..o $*.o
+	@rm -f $*..c
+
+
+# Don't do any special massaging of C files for sharing of strings!!
+# it causes weird segmentation faults on some systems.
+#.c.o:
+#	${CC} -E ${CFLAGS} $*.c | ${XSTR} -c -
+#	${CC} ${CF} ${CFLAGS} x.c 
+#	mv -f x.o $*.o
+#	rm -f x.c
+
+#ed.init.o: ed.init.c
+#	${CC} -E ${CFLAGS} $*.c | ${XSTR} -c -
+#	${CC} -R ${CF} ${CF} x.c 
+#	mv -f x.o $*.o
+#	rm -f x.c
+
+#strings.o: strings
+#	${XSTR}
+#	${CC} -c -R xs.c
+#	mv -f xs.o strings.o
+#	rm -f xs.c
+
+##.DEFAULT:
+##	${SCCS} get $<
+
+##.DEFAULT:
+##	co $<
+
+ed.defns.h: ed.defns.c
+	@rm -f $@
+	@echo '/* Do not edit this file, make creates it. */' > $@
+	@echo '\#ifndef _h_ed_defns' >> $@
+	@echo '\#define _h_ed_defns' >> $@
+	grep '[FV]_' ed.defns.c | grep '^\#define' >> $@
+	@echo '\#endif /* _h_ed_defns */' >> $@
+
+sh.err.h: sh.err.c
+	@rm -f $@
+	@echo '/* Do not edit this file, make creates it. */' > $@
+	@echo '\#ifndef _h_sh_err' >> $@
+	@echo '\#define _h_sh_err' >> $@
+	grep 'ERR_' sh.err.c | grep '^#define' >> $@
+	@echo '\#endif /* _h_sh_err */' >> $@
+
+tc.const.h: tc.const.c sh.char.h config.h config_f.h sh.types.h sh.err.h
+	@rm -f $@
+	@echo '/* Do not edit this file, make creates it. */' > $@
+	@echo '\#ifndef _h_tc_const' >> $@
+	@echo '\#define _h_tc_const' >> $@
+	${CC} -E $(INCLUDES) ${DFLAGS} -D_h_tc_const tc.const.c | \
+	    grep 'Char STR' | \
+	    sed -e 's/Char \([a-zA-Z0-9_]*\)\[\].*/extern Char \1[];/' | \
+	    sort >> $@
+	@echo '\#endif /* _h_tc_const */' >> $@
+
+csh.prof: ${OBJS} sh.prof.${SUF} mcrt0.${SUF}
+	rm -f csh.prof
+	ld -X mcrt0.${SUF} ${OBJS} -o csh.prof ${LIBES} -lc
+
+sh.prof.${SUF}:
+	cp sh.c sh.prof.c
+	${CC} ${CF} ${CFLAGS} -DPROF sh.prof.c
+
+lint: tc.const.h ed.defns.h
+	lint ${DFLAGS} ${LFLAGS} sh*.c tw*.c ed*.c tc.*.c ${LIBES}
+
+alint: tc.const.h ed.defns.h
+	alint ${DFLAGS} ${LFLAGS} sh*.c tw*.c ed*.c tc.*.c ${LIBES}
+
+print:
+	@pr READ_ME
+	@pr makefile makefile.*
+	@(size -l a.out; size *.${SUF}) | pr -h SIZES
+	@${CXREF} sh*.c | pr -h XREF
+	@ls -l | pr 
+	@pr sh*.h [a-rt-z]*.h sh*.c alloc.c
+
+vprint:
+	@pr -l84 READ_ME TODO
+	@pr -l84 makefile makefile.*
+	@(size -l a.out; size *.${SUF}) | pr -l84 -h SIZES
+	@${CXREF} sh*.c | pr -l84 -h XREF
+	@ls -l | pr -l84
+	@${CXREF} sh*.c | pr -l84 -h XREF
+	@pr -l84 sh*.h [a-rt-z]*.h sh*.c alloc.c
+
+vgrind:
+	@cp /dev/null index
+	@for i in *.h; do vgrind -t -h "C Shell" $$i >/crp/bill/csh/$$i.t; done
+	@for i in *.c; do vgrind -t -h "C Shell" $$i >/crp/bill/csh/$$i.t; done
+	@vgrind -t -x -h Index index >/crp/bill/csh/index.t
+
+install: tcsh 
+	-mv -f ${DESTBIN}/tcsh  ${DESTBIN}/tcsh.old
+	cp tcsh ${DESTBIN}/tcsh
+	-strip ${DESTBIN}/tcsh
+	chmod 555 ${DESTBIN}/tcsh
+
+install.man: tcsh.man
+	-rm -f ${DESTMAN}/tcsh.${MANSECT}
+	cp tcsh.man ${DESTMAN}/tcsh.${MANSECT}
+	chmod 444 ${DESTMAN}/tcsh.${MANSECT}
+
+# Amiga Unix
+#install.man: tcsh.man
+#        compress tcsh.man
+#	cp tcsh.man.Z ${DESTMAN}/tcsh.Z
+#	chmod 444 ${DESTMAN}/tcsh.Z
+
+# Apple A/UX
+#install.man: tcsh.man
+#	-rm -f ${DESTMAN}/tcsh.${MANSECT}.Z
+#	nroff -man tcsh.man | compress > ${DESTMAN}/tcsh.${MANSECT}.Z
+#	chmod 444 ${DESTMAN}/tcsh.${MANSECT}.Z
+
+clean:
+	${RM} -f a.out strings x.c xs.c tcsh tcsh.a _MAKE_LOG core gethost
+	${RM} -f *.${SUF} sh.prof.c ed.defns.h tc.const.h sh.err.h tc.defs.c
+	${RM} -f tcsh.*.m tcsh.*.cat
+
+veryclean: clean
+	${RM} -f config.h
+	${RM} -f *~ #*
+
+tags:	/tmp
+	${CTAGS} sh*.c
+
+tar.Z:
+	rm -f tcsh-${VERSION}.tar.Z
+	rm -rf tcsh-${VERSION} 
+	mkdir tcsh-${VERSION} tcsh-${VERSION}/config
+	cp ${ALLSRCS} tcsh-${VERSION}
+	cp ${CONFSRCS} tcsh-${VERSION}/config
+	tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -)
+	tar cvf - tcsh-${VERSION} | compress > tcsh-${VERSION}.tar.Z
+	rm -rf tcsh-${VERSION}
+
+tar.gz:
+	rm -f tcsh-${VERSION}.tar.gz
+	rm -rf tcsh-${VERSION} 
+	mkdir tcsh-${VERSION} tcsh-${VERSION}/config
+	cp ${ALLSRCS} tcsh-${VERSION}
+	cp ${CONFSRCS} tcsh-${VERSION}/config
+	tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -)
+	tar cvf - tcsh-${VERSION} | gzip > tcsh-${VERSION}.tar.gz
+	rm -rf tcsh-${VERSION}
+
+shar:
+	rm -f tcsh-*.shar
+	rm -rf tcsh-${VERSION} 
+	mkdir tcsh-${VERSION} tcsh-${VERSION}/config
+	cp ${ALLSRCS} tcsh-${VERSION}
+	cp ${CONFSRCS} tcsh-${VERSION}/config
+	tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -)
+	MAKESHAR -v -n tcsh-${VERSION} tcsh-${VERSION} \
+		 tcsh-${VERSION}/?* tcsh-${VERSION}/config/?* \
+		 tcsh-${VERSION}/?*/set?*
+	rm -rf tcsh-${VERSION}
+
+catalogs:
+	@(cd nls; make catalogs)
+
+tcsh-${VERSION}.tar.Z:
+	rm -rf tcsh-${VERSION} 
+	rm -f tcsh-${VERSION}.tar tcsh-${VERSION}.tar.Z DIFFS.[123]
+	mkdir tcsh-${VERSION}
+	./MAKEDIFFS bsd
+	mv DIFFS.1 DIFFS.2 DIFFS.3 tcsh-${VERSION}
+	cp ${DISTSRCS} tcsh-${VERSION}
+	mkdir tcsh-${VERSION}/config
+	cp ${CONFSRCS} tcsh-${VERSION}/config
+	cp Makefile tcsh-${VERSION}/Makefile.new
+	tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -)
+	tar cvf - tcsh-${VERSION} | compress > tcsh-${VERSION}.tar.Z
+	rm -rf tcsh-${VERSION}
+
+tcsh.tahoe-${VERSION}.tar.Z:
+	rm -rf tcsh.tahoe-${VERSION} 
+	rm -f tcsh.tahoe-${VERSION}.tar tcsh.tahoe-${VERSION}.tar.Z DIFFS.[123]
+	mkdir tcsh.tahoe-${VERSION}
+	./MAKEDIFFS tahoe
+	mv DIFFS.1 DIFFS.2 DIFFS.3 tcsh.tahoe-${VERSION}
+	cp ${DISTSRCS} tcsh.tahoe-${VERSION}
+	mkdir tcsh.tahoe-${VERSION}/config
+	cp ${CONFSRCS} tcsh.tahoe-${VERSION}/config
+	cp Makefile tcsh.tahoe-${VERSION}/Makefile.new
+	tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -)
+	tar cvf - tcsh.tahoe-${VERSION} | compress > tcsh.tahoe-${VERSION}.tar.Z
+	rm -rf tcsh.tahoe-${VERSION}
+
+tcsh.reno-${VERSION}.tar.Z:
+	rm -rf tcsh.reno-${VERSION} 
+	rm -f tcsh.reno-${VERSION}.tar tcsh.reno-${VERSION}.tar.Z DIFFS.[123]
+	mkdir tcsh.reno-${VERSION}
+	./MAKEDIFFS reno
+	mv DIFFS.1 DIFFS.2 DIFFS.3 tcsh.reno-${VERSION}
+	cp ${DISTSRCS} tcsh.reno-${VERSION}
+	mkdir tcsh.reno-${VERSION}/config
+	cp ${CONFSRCS} tcsh.reno-${VERSION}/config
+	cp Makefile tcsh.reno-${VERSION}/Makefile.new
+	tar cf - nls/Makefile nls/?*/set?* | (cd tcsh-${VERSION}; tar xpf -)
+	tar cvf - tcsh.reno-${VERSION} | compress > tcsh.reno-${VERSION}.tar.Z
+	rm -rf tcsh.reno-${VERSION}
+
+ftp: tcsh-${VERSION}.tar.Z tcsh.tahoe-${VERSION}.tar.Z
+	cp tcsh-${VERSION}.tar.Z tcsh.tahoe-${VERSION}.tar.Z ${FTPAREA}
+	cp tcsh.man ${FTPAREA}
+
+#
+# Dependencies
+#
+config.h: config_f.h
+
+TCH=tc.h tc.const.h tc.decls.h tc.os.h tc.sig.h
+SHH=sh.h sh.types.h sh.char.h sh.err.h sh.dir.h sh.proc.h pathnames.h \
+    sh.decls.h ${TCH}
+TWH=tw.h tw.decls.h
+EDH=ed.h ed.decls.h
+
+# EDH
+EDINC=sh.${SUF} sh.func.${SUF} sh.lex.${SUF} sh.print.${SUF} sh.proc.${SUF} \
+      sh.set.${SUF} tc.bind.${SUF} tc.os.${SUF} tc.prompt.${SUF} \
+      tc.sched.${SUF} tw.parse.${SUF}
+${EDOBJS} ${EDINC} : ${EDH}
+
+# SHH
+${OBJS}: config.h ${SHH}
+
+# TWH
+TWINC=ed.chared.${SUF} ed.inputl.${SUF} sh.exec.${SUF} sh.func.${SUF} \
+      sh.set.${SUF} tc.func.${SUF}
+${TWOBJS} ${TWINC}: ${TWH}
+
+# glob.h
+glob.${SUF} sh.glob.${SUF}: glob.h
+
+# ed.defns.h
+EDDINC=tc.bind.${SUF} tc.func.${SUF} tc.os.${SUF}
+${EDOBJS} ${EDDINC}: ed.defns.h
+
+# tc.defs.o
+tc.defs.${SUF}:	tc.defs.c sh.h

contrib/tcsh/NewThings

@@ -0,0 +1,169 @@
+This file contains visible (incompatible) changes to the users.
+This version of tcsh has the following new things:
+
+6.08
+* %$variables are now expanded in the prompt.
+* print_by_columns prints in a single column if the output is not a tty.
+* REMOTEHOST contains only the IP address, not the host name of the machine.
+* names in .cshdirs are quoted.
+* exit value from 0..255 not -128..127 as posix mandates.
+
+6.07
+* Implicit cd when the variable implicitcd is set or set to verbose
+
+6.06
+* NLS Message Catalog support.
+
+6.05
+* The bind, aliases, linedit builtins are not used anymore; they are
+  #ifdef'ed OBSOLETE and will be really removed in the next version
+* new filetest builtin
+* new hup builtin
+* =x obeys nonomatch
+* tcsh.man2html nroff to HTML converter for the tcsh manpage
+* prompt is now %# by default.
+* $REMOTEHOST contains the name of the remote host (optional)
+* $HOSTTYPE is going away. New variables $OSTYPE, $MACHTYPE, $VENDOR similar
+  to the gnu ones.
+* $< can be interrupted and takes modifiers. Does not quote args by default
+  like csh.
+
+6.04
+* Variable modifiers do not stop processing after the first one fails
+     > set i=aabbcc
+     > echo $i:s/a/A/:s/b/B/
+     AaBbcc
+     > echo $i:s/x/A/:s/b/B/
+     aabbcc
+* set -r makes variables readonly
+* set nonomatch, echo ~notaser returns ~notauser instead of an error
+* file operators: Changed -s == !-z and -S == socket
+* $?0 returns false now on interactive shells for csh compatibility.
+* %p%P include seconds in prompt strings.
+
+6.03
+* $%var contains the number of characters in $var.
+* Shell -w -x are now POSIX compliant on POSIX machines.
+* Imported environment variables are not globbed.
+* $dirstack can be used to set and examine the directory stack.
+* $? == $status and $# == $#argv like in the bourne shell.
+* expand variables expands arrays too (but not array elements yet).
+* $0 contains argv[0] on interactive shells.
+* new -b -c etc file operators from SGI csh.
+* nostat takes a list of shell patterns.
+* symbolic names for arrow key bindings [left, right, up, down]
+* shift, left operators update variables correctly.
+* builtins builtin.
+* history and dirs accept now -LSc flags.
+* $history accepts an optional second argument, that can change the
+  history builtin output similar to the $time format.
+* History timestamps preserved in .history. The history file contains
+  now the timestamps as csh comments.
+
+
+6.02
+* ignore_symlinks and chase_symlinks are replaced with symlinks=ignore
+  and symlinks=chase; symlinks=expand addition
+* complete and uncomplete builtins; user-programmable completion additions.
+* Tcsh now uses the rightmost column of the terminal, allowing cut-and-paste
+  operations in terminal emulators that work [xterm R5 not R4]
+* echo_style controls now the behaviour of the builtin echo; the default
+  should match the builtin echo of /bin/csh; if your system does not
+  come with csh, then the default echo should match /bin/echo.
+* cd -; changes to the previous directory.
+* setting dunique variable pushes only unique directories on the directory
+  stack.
+* source builtin allows additional arguments that get passed in $argv in
+  the sourced script.
+* tcsh now mirrors correctly all exported csh variables [term=TERM,path=PATH
+  etc.]
+* showdots=-A makes listing behave like ls -A. 
+* directory stack access =<num> allows for entries > 9.
+* $a:u uppercase the first character in $a, $a:l downcases the first
+  character in $a.
+* Shorthand for file tests in 'if' expressions ( -dx file ) is the
+  same as ( -d file && -x file )
+
+6.01
+* Nothing new.
+
+6.00 PL3
+* %d in the prompt is the week-day and no longer $cwd; use %/ instead.
+* changes in the prompt format. Date changes to accomodate people from
+  down under. 
+* vi insert mode to command mode transition does not move the cursor.
+
+6.00 PL2
+* setty builtin
+  This is used to specify what tcsh modes can be altered using stty,
+  Modes that should be set are specified as +<mode>, modes that should 
+  be cleared are specified as -<mode>, and the ones that should be 
+  untouched are specified as <mode>. setty with no arguments prints
+  the modes that are affected by tcsh, and setty -a prints all modes.
+* multiple : modifiers in variables and ! escapes. Things like:
+      > set prompt="$host:r:$cwd>"
+  don't work any more, they should be replaced with
+      > set prompt="${host:r}:$cwd>"
+  or
+      > set prompt="$host:r"":$cwd>"
+  the reason is that now you can
+      > set foo=/usr/local/a.b.c
+      > echo $foo:t:r:e
+      b
+  If for some reason you don't like this change you can disable it with
+  -DCOMPAT. -DCOMPAT may go away in future tcsh versions and the way tcsh
+  works now is the way the 4.4BSD csh works.
+
+6.00 PL1
+* There is no more config.iris4d, use config.sgi instead
+
+6.00
+* History searching searches using shell patterns too.
+* The autolist values that controlled beeping are not supported any more;
+  used matchbeep instead.
+* /etc/Login and /etc/Logout were renamed to /etc/csh.login /etc/csh.logout
+  and /etc/csh.cshrc was added
+* prompt2 and prompt3 can have prompt escapes.
+* eval pipes work
+* ignore_symlinks works
+
+5.20 PL2
+* %{..%} escapes in prompt
+
+5.20 PL0
+* bindkey -r
+* history -t
+* shell variables in paths expand correctly.
+* variable expansion 
+* quoted expansions now work.
+* new version and tcsh variable format
+
+5.19 PL2
+* NLS support
+* New bindkey and echotc builtins
+* Underline and Bold in the prompt; additions and changes to the prompt and 
+  who syntax (%u is now %n, so that %u can be used to turn undeline off, 
+  and %n is now \n).
+* rmstar needs to be set to protect from accidental removal
+* Fixed editor, and spell line.
+* Glob-expand, on arguments.
+* Added process migration builtins for aix370
+
+5.19 PL1
+* Maintainance release for mainly the rs6000
+
+5.19 PL0
+* 8 bit clean code, by using 16 bit strings.
+* Mostly shared strings (a side-effect)
+* Highlights everywhere (and in ls-F) filenames that contain characters
+  with the eighth bit set (or passes them unchanged depending on the
+  variable 'nometa')
+* Newline in the prompt via %n.
+* dirs takes also a -v flag for `vertical display'
+* There is a new variable `listjobs' which controls if and how jobs
+  are displayed when a new job is suspended. [Idea from the mtXinu 
+  code, very useful for novice users who hit control-Z 10 times on
+  the same job!]
+  set listjobs=long, jobs -l is executed every time a job is suspended.
+  set listjobs=short, jobs is executed every time a job is suspended.
+* Passes lint... At least on a sun.

contrib/tcsh/README

@@ -0,0 +1,207 @@
+This is tcsh version 6.08.  Tcsh is a version of the Berkeley
+C-Shell, with the addition of: a command line editor, command and file
+name completion, listing, etc. and a bunch of small additions to the
+shell itself.
+
+Tcsh has been ported to most unix variants, and can be tinkered to work
+in unix systems that it has not ported yet. See the Ported file for
+a more complete list of ported systems and in the config directory for
+a configuration file that matches your system.
+Tcsh also runs under VMS/POSIX and OS/2+emx; the OS/2 port is not
+complete yet.
+
+Feel free to use it.  These changes to csh may only be included in a
+commercial product if the inclusion or exclusion does not change the
+purchase price, level of support, etc.  Please respect the individual
+authors by giving credit where credit is due (in other words, don't
+claim that you wrote portions that you haven't, and don't delete the
+names of the authors from the source code or documentation).  
+
+To install tcsh:
+
+0)  Try running "configure".  If that works, goto step 6.
+    If you are using imake, try xmkmf and goto step 3.
+    If imake does not work, copy Makefile.std to Makefile.
+
+1)  Look at the Makefile and make sure that you are using the right
+    compilation flags.
+
+2)  Copy the appropriate for your machine and OS config file from the
+    config subdirectory into config.h.  Consult the file "Ported" for
+    settings known to work on various machines.  If you are trying to
+    compile tcsh on a machine for which there is no config file yet,
+    you will need to create a config file using as a template one of
+    the supplied ones.  If you get tcsh working on a new machine, I'd
+    appreciate a copy of the config file plus additional information
+    about the architecture/OS.  If you are creating a new config file,
+    look very hard at BSDJOBS, BSDSIGS, and BSDTIMES if you are running
+    a non-BSD machine.  For vanila SysV, these would all be #undef-ed,
+    but others may vary (such as A/UX or HPUX).  On a pyramid, compile
+    in the UCB universe even if you are running under the ATT universe
+    usually; it will work anyway, and you get job control for free.
+
+3)  Look at config_f.h, and enable or disable any features you want.
+    It is configured the way I like it, but you may disagree.
+    If you do not have NLS, then locale.h will not be found. Undefine it
+    and things should work ok. On the other hand, if you have NLS you
+    might as well use it...
+
+4)  Look at host.defs to make sure that you have the right defines to set
+    the environment variables "HOSTTYPE", "MACHTYPE", "OSTYPE" and 
+    "VENDOR" correctly.  If you need to make changes, PLEASE SEND THEM 
+    BACK TO ME.
+
+5)  You may want to adjust the TCSH_BINDIR and TCSH_MANDIR entries in
+    the Makefile.  These are the directories that tcsh, and the tcsh.1
+    man entry will be placed in when you do a "make install" and "make
+    install.man" respectively.  If you decide to install tcsh somewhere
+    other than in /usr/local/bin/tcsh, you should #define _PATH_TCSHELL
+    "/your/installation/directory/tcsh" in pathnames.h.
+
+6)  make
+
+7)  Read the documentation while you are waiting.  The file tcsh.man
+    is in standard [nt]roff -man format. If you like, you can run the
+    tcsh.man2html script (requires Perl) to generate an HTML version of
+    the manpage which you can read with Mosaic, lynx or other HTML browser.
+
+8)  Test tcsh by typing ./tcsh to see that it has compiled correctly.
+    The history command should give a time stamp on every entry.
+    Typing normal characters should echo each exactly once.  Control-A
+    should put the cursor at the beginning of the input line, but after
+    the prompt.  Typing characters after that should insert them into
+    the line.  If you have job control make sure that stopping and
+    restarting jobs works. Make sure you can ^C in the middle of the
+    input line.  Also make sure that pipelines work correctly and there
+    are no races. Try 'echo | cat | cat | cat | cat | more' a couple of
+    times. If you have job control, try this command in the background
+    and bring it in the foreground when it stops for tty output.  Also
+    make sure that the ioctl() modes are preserved.  Get into vi, enter
+    and exit input mode and suspend it, background it and foreground it
+    again. After all that, lastly make sure that the tty process group
+    manipulation is happening correctly. Try ftp to some host. If your
+    passwd appears on the screen, you have lost /dev/tty. Otherwise
+    everything is fine.
+
+9)  Once satisfied that tcsh is working correctly, complete the installation
+    by typing "make install" to install the binary, and "make install.man" to
+    install the documentation. Don't forget to look at complete.tcsh for
+    useful completions...
+
+10) Enjoy.
+
+11) PLEASE send any bug reports (and fixes), code for new features,
+    comments, questions, etc. (even flames) to:
+
+	The tcsh mailing list
+	tcsh@mx.gw.com
+
+Various:
+
+***************************************************************************
+
+On sysv versions < 3.0 (not hpux) Doug Gwyn's public domain directory 
+manipulation library has to be installed. This library is available
+for anonymous ftp from prep.ai.mit.edu:/pub/gnu/dirent.tar.Z
+If the network is not installed, then there is a gethostname()
+routine is tc.os.c, enabled by defining NEEDgethostname
+
+***************************************************************************
+
+On BSDreno, in ttyname() closedir() is called twice and so the same
+pointer gets free'd twice. tcsh's malloc is picky and it prints an
+error message to that effect. If you don't like the message:
+
+1. Apply the following patch:
+
+*** /usr/src/lib/libc/gen/ttyname.c.orig	Fri Jun  1 17:17:15 1990
+--- /usr/src/lib/libc/gen/ttyname.c	Tue Oct 29 16:33:12 1991
+***************
+*** 51,57 ****
+  		if (stat(buf, &sb2) < 0 || sb1.st_dev != sb2.st_dev ||
+  		    sb1.st_ino != sb2.st_ino)
+  			continue;
+- 		closedir(dp);
+  		rval = buf;
+  		break;
+  	}
+--- 51,56 ----
+
+Or: Comment the error printing out in tc.alloc.c
+Or: Compile -DSYSMALLOC
+
+
+***************************************************************************
+
+From: Scott Krotz <krotz@honey.rtsg.mot.com>
+
+Tcsh has been ported to minix by  Scott Krotz (krotz@honey.rtsg.mot.com).
+Unfortunately the minix sed is broken, so you'll have to find a way to
+make tc.const.h, sh.err.h, ed.defns.h which are automatically generated.
+The easiest way to create them is to make a copy from unix, copying 
+minix to config.h, and then 'make sh.err.h tc.const.h ed.defns.h'
+
+The OS/dependent files are in mi.termios.h, mi.wait.h, mi.varargs.h
+
+You will get some warnings, but dont worry about them, just ignore
+them.  After tcsh has compiled and the gcc binary is converted to a
+minix binary, remember to chmem it to give it more memory - it will
+need it!  How much you need depends on how many aliases you have, etc..
+Add at least 50000 to it.
+
+One last thing.  You might have to make some links for include files so
+that they are in the directories that tcsh is expecting while compiling.
+I forget if I had to do this or not, but it should be fairly easy to sort
+out.  If it cant find any include files this is probably the reason.
+
+If you have any problems, please tell me.  I can be contacted through
+e-mail at:
+
+krotz@honey.rtsg.mot.com
+
+I also read comp.os.minix on a regular basis, so a note there will get
+my attention also.
+
+Have fun!
+
+ps.  The termios functions are provided by Magnus Doell and Bruce Evans.
+     Thanks, guys!
+
+
+From: Bob Byrnes <byrnes@ee.cornell.edu>
+
+This is for minix 1.5 (straight out of the box from P-H) plus the i386
+patches from Bruce Evans.
+
+I cross-compiled on a Sun using gcc 2.1 with a target of i386-bsd
+(using the minix include files instead of the bsd versions), and then
+linked the resulting object files with similarly compiled crtso.o and
+libc.a on vax (little endian) using a hacked version of ld which I put
+together to generate minix executables instead of bsd a.out format.
+What a kludge ...
+
+I compiled with -O2 -Wall ...  So far I haven't noticed any problems
+with the optimizer.
+
+In case anyone is contemplating compiling tcsh with bcc (Bruce Evan's
+i386 compiler that comes with the minix386 upgrade package), don't bother.
+It is some serious bugs that kill tcsh when compiled for 16-bit characters.
+I can provide more details of bugs that I noticed for brave souls who want
+to try, but it would be hard (and why bother if you can get gcc?).
+
+I can make the binary available to anyone who wants it (for example people
+who can't get access to a cross-compiling environment, and who don't yet
+have gcc running under minix).
+
+
+***************************************************************************
+
+If your compiler cannot handle long symbol names, add 
+
+#include "snames.h" 
+
+to your config.h file
+
+	     -- Christos Zoulas
+		christos@zoulas.com
+

contrib/tcsh/README.imake

@@ -0,0 +1,9 @@
+
+If you have imake running on your machine, you may skip steps 1 and 2
+described in the README file and try instead the process described here.
+Note that imake is not supported for all the platforms yet, so this
+might not work on your machine. If that is the case please let us know.
+If you can send a patch that fixes the problem we would appreciate it.
+
+1. edit imake.config and modify the configurable parameters to your liking.
+2. 'xmkmf; make depend; make'

contrib/tcsh/WishList

@@ -0,0 +1,40 @@
+* Fix memory leak related to aliasrun(). Precmd, Cwdcmd etc. leak memory.
+
+* Fix migrate -site $$... Seems to hang... (aix370)
+
+* Fix history in loops.
+
+* New idea.
+	Lots of people seem to like the idea to be able to do sed type
+	operations on shell variables. Maybe we can extend the syntax
+	of the variable editing to understand string operations.
+	So I would like to be able to use:
+	> set a="this is a STRING"
+	> echo $a:[3-]
+	is is a STRING
+	> echo $a:[#]
+	16
+	> echo $a:[6-7]
+	is
+	> echo $a:[-2]
+	ng
+	> echo $a:[-20]
+	Subscript out of bounds.
+	> echo $a:[2-20]
+	Subscript out of bounds.
+	> echo $a:[1-1]:u$a:[2-].
+	This is a string.
+
+* Fix pipelines that contain builtins so that they behave correctly.
+  I tried to fix that (most of the code is in sh.sem.c, but it works
+  only for non POSIX machines cause otherwise the setpgid() I added
+  fails).
+
+* Fix the correct code... How to do that involves A.I....
+
+* Rewrite the whole thing. It has taken to much beating over the years...
+
+* Add another hook like precmd to be executed after the prompt but before the
+  command.
+
+* Add instructions for using configure in the README file.

contrib/tcsh/Y2K

@@ -0,0 +1,10 @@
+The tcsh code has been tested on a solaris-2.6 machine and a
+NetBSD-1.3H machine running before, and after the year 2000. The
+code has been also visually inspected for Y2K compliance problems.
+Tcsh does not use time functions for anything but display purposes,
+so its operation should not be affected assuming that the time
+related functions of the c library work properly.
+
+Note: Since the last audit, tcsh-6.08.00 has been found to have
+a minor problem with %y in the prompt (it will print 10 instead
+of 00 in y2k). This has been fixed in tcsh-6.09.00.

contrib/tcsh/complete.tcsh

@@ -0,0 +1,708 @@
+#
+# $Id: complete.tcsh,v 1.32 1999/06/09 19:09:12 christos Exp $
+# example file using the new completion code
+#
+
+onintr -
+if (! $?prompt) goto end
+
+if ($?tcsh) then
+    if ($tcsh != 1) then
+   	set rev=$tcsh:r
+	set rel=$rev:e
+	set pat=$tcsh:e
+	set rev=$rev:r
+    endif
+    if ($rev > 5 && $rel > 1) then
+	set complete=1
+    endif
+    unset rev rel pat
+endif
+
+if ($?complete) then
+    set noglob
+    set hosts
+    foreach f ($HOME/.hosts /usr/local/etc/csh.hosts $HOME/.rhosts /etc/hosts.equiv)
+        if ( -r $f ) then
+	    set hosts = ($hosts `grep -v "+" $f | tr -s " " "	" | cut -f 1`)
+	endif
+    end
+    if ( -r $HOME/.netrc ) then
+	set f=`awk '/machine/ { print $2 }' < $HOME/.netrc` >& /dev/null
+	set hosts=($hosts $f)
+    endif
+    unset f
+    if ( ! $?hosts ) then
+	set hosts=(hyperion.ee.cornell.edu phaeton.ee.cornell.edu \
+		   guillemin.ee.cornell.edu vangogh.cs.berkeley.edu \
+		   ftp.uu.net prep.ai.mit.edu export.lcs.mit.edu \
+		   labrea.stanford.edu sumex-aim.stanford.edu \
+		   tut.cis.ohio-state.edu)
+    endif
+
+    complete ywho  	n/*/\$hosts/	# argument from list in $hosts
+    complete rsh	p/1/\$hosts/ c/-/"(l n)"/   n/-l/u/ N/-l/c/ n/-/c/ p/2/c/ p/*/f/
+    complete ssh	p/1/\$hosts/ c/-/"(l n)"/   n/-l/u/ N/-l/c/ n/-/c/ p/2/c/ p/*/f/
+    complete xrsh	p/1/\$hosts/ c/-/"(l 8 e)"/ n/-l/u/ N/-l/c/ n/-/c/ p/2/c/ p/*/f/
+    complete rlogin 	p/1/\$hosts/ c/-/"(l 8 e)"/ n/-l/u/
+    complete telnet 	p/1/\$hosts/ p/2/x:'<port>'/ n/*/n/
+
+    complete cd  	p/1/d/		# Directories only
+    complete chdir 	p/1/d/
+    complete pushd 	p/1/d/
+    complete popd 	p/1/d/
+    complete pu 	p/1/d/
+    complete po 	p/1/d/
+    complete complete 	p/1/X/		# Completions only
+    complete uncomplete	n/*/X/
+    complete exec 	p/1/c/		# Commands only
+    complete trace 	p/1/c/
+    complete strace 	p/1/c/
+    complete which	n/*/c/
+    complete where	n/*/c/
+    complete skill 	p/1/c/
+    complete dde	p/1/c/ 
+    complete adb	c/-I/d/ n/-/c/ N/-/"(core)"/ p/1/c/ p/2/"(core)"/
+    complete sdb	p/1/c/
+    complete dbx	c/-I/d/ n/-/c/ N/-/"(core)"/ p/1/c/ p/2/"(core)"/
+    complete xdb	p/1/c/
+    complete gdb	n/-d/d/ n/*/c/
+    complete ups	p/1/c/
+    complete set	'c/*=/f/' 'p/1/s/=' 'n/=/f/'
+    complete unset	n/*/s/
+    complete alias 	p/1/a/		# only aliases are valid
+    complete unalias	n/*/a/
+    complete xdvi 	n/*/f:*.dvi/	# Only files that match *.dvi
+    complete dvips 	n/*/f:*.dvi/
+    complete tex 	n/*/f:*.tex/	# Only files that match *.tex
+    complete latex 	n/*/f:*.{tex,ltx}/
+    complete su		c/--/"(login fast preserve-environment command shell \
+			help version)"/	c/-/"(f l m p c s -)"/ \
+			n/{-c,--command}/c/ \
+			n@{-s,--shell}@'`cat /etc/shells`'@ n/*/u/
+    complete cc 	c/-[IL]/d/ \
+              c@-l@'`\ls -1 /usr/lib/lib*.a | sed s%^.\*/lib%%\;s%\\.a\$%%`'@ \
+			c/-/"(o l c g L I D U)"/ n/*/f:*.[coasi]/
+    complete acc 	c/-[IL]/d/ \
+       c@-l@'`\ls -1 /usr/lang/SC1.0/lib*.a | sed s%^.\*/lib%%\;s%\\.a\$%%`'@ \
+			c/-/"(o l c g L I D U)"/ n/*/f:*.[coasi]/
+    complete gcc 	c/-[IL]/d/ \
+		 	c/-f/"(caller-saves cse-follow-jumps delayed-branch \
+		               elide-constructors expensive-optimizations \
+			       float-store force-addr force-mem inline \
+			       inline-functions keep-inline-functions \
+			       memoize-lookups no-default-inline \
+			       no-defer-pop no-function-cse omit-frame-pointer \
+			       rerun-cse-after-loop schedule-insns \
+			       schedule-insns2 strength-reduce \
+			       thread-jumps unroll-all-loops \
+			       unroll-loops syntax-only all-virtual \
+			       cond-mismatch dollars-in-identifiers \
+			       enum-int-equiv no-asm no-builtin \
+			       no-strict-prototype signed-bitfields \
+			       signed-char this-is-variable unsigned-bitfields \
+			       unsigned-char writable-strings call-saved-reg \
+			       call-used-reg fixed-reg no-common \
+			       no-gnu-binutils nonnull-objects \
+			       pcc-struct-return pic PIC shared-data \
+			       short-enums short-double volatile)"/ \
+		 	c/-W/"(all aggregate-return cast-align cast-qual \
+		      	       comment conversion enum-clash error format \
+		      	       id-clash-len implicit missing-prototypes \
+		      	       no-parentheses pointer-arith return-type shadow \
+		      	       strict-prototypes switch uninitialized unused \
+		      	       write-strings)"/ \
+		 	c/-m/"(68000 68020 68881 bitfield fpa nobitfield rtd \
+			       short c68000 c68020 soft-float g gnu unix fpu \
+			       no-epilogue)"/ \
+		 	c/-d/"(D M N)"/ \
+		 	c/-/"(f W vspec v vpath ansi traditional \
+			      traditional-cpp trigraphs pedantic x o l c g L \
+			      I D U O O2 C E H B b V M MD MM i dynamic \
+			      nodtdlib static nostdinc undef)"/ \
+		 	c/-l/f:*.a/ \
+		 	n/*/f:*.{c,C,cc,o,a,s,i}/
+    complete g++ 	n/*/f:*.{C,cc,o,s,i}/
+    complete CC 	n/*/f:*.{C,cc,o,s,i}/
+    complete rm 	c/--/"(directory force interactive verbose \
+			recursive help version)"/ c/-/"(d f i v r R -)"/ \
+			n/*/f:^*.{c,cc,C,h,in}/	# Protect precious files
+    complete vi 	n/*/f:^*.[oa]/
+    complete bindkey    N/-a/b/ N/-c/c/ n/-[ascr]/'x:<key-sequence>'/ \
+			n/-[svedlr]/n/ c/-[vedl]/n/ c/-/"(a s k c v e d l r)"/\
+			n/-k/"(left right up down)"/ p/2-/b/ \
+			p/1/'x:<key-sequence or option>'/
+
+    complete find 	n/-fstype/"(nfs 4.2)"/ n/-name/f/ \
+		  	n/-type/"(c b d f p l s)"/ n/-user/u/ n/-group/g/ \
+			n/-exec/c/ n/-ok/c/ n/-cpio/f/ n/-ncpio/f/ n/-newer/f/ \
+		  	c/-/"(fstype name perm prune type user nouser \
+		  	     group nogroup size inum atime mtime ctime exec \
+			     ok print ls cpio ncpio newer xdev depth \
+			     daystart follow maxdepth mindepth noleaf version \
+			     anewer cnewer amin cmin mmin true false uid gid \
+			     ilname iname ipath iregex links lname empty path \
+			     regex used xtype fprint fprint0 fprintf \
+			     print0 printf not a and o or)"/ \
+			     n/*/d/
+
+    complete -%*	c/%/j/			# fill in the jobs builtin
+    complete {fg,bg,stop}	c/%/j/ p/1/"(%)"//
+
+    complete limit	c/-/"(h)"/ n/*/l/
+    complete unlimit	c/-/"(h)"/ n/*/l/
+
+    complete -co*	p/0/"(compress)"/	# make compress completion
+						# not ambiguous
+    complete zcat	n/*/f:*.Z/
+    complete nm		n/*/f:^*.{h,C,c,cc}/
+
+    complete finger	c/*@/\$hosts/ n/*/u/@ 
+    complete ping	p/1/\$hosts/
+    complete traceroute	p/1/\$hosts/
+
+    complete {talk,ntalk,phone}	p/1/'`users | tr " " "\012" | uniq`'/ \
+		n/*/\`who\ \|\ grep\ \$:1\ \|\ awk\ \'\{\ print\ \$2\ \}\'\`/
+
+    complete ftp	c/-/"(d i g n v)"/ n/-/\$hosts/ p/1/\$hosts/ n/*/n/
+
+    # this one is simple...
+    #complete rcp c/*:/f/ C@[./\$~]*@f@ n/*/\$hosts/:
+    # From Michael Schroeder <mlschroe@immd4.informatik.uni-erlangen.de> 
+    # This one will rsh to the file to fetch the list of files!
+    complete rcp 'c%*@*:%`set q=$:-0;set q="$q:s/@/ /";set q="$q:s/:/ /";set q=($q " ");rsh $q[2] -l $q[1] ls -dp $q[3]\*`%' 'c%*:%`set q=$:-0;set q="$q:s/:/ /";set q=($q " ");rsh $q[1] ls -dp $q[2]\*`%' 'c%*@%$hosts%:' 'C@[./$~]*@f@'  'n/*/$hosts/:'
+
+    complete dd c/--/"(help version)"/ c/[io]f=/f/ \
+		c/conv=*,/"(ascii ebcdic ibm block unblock \
+			    lcase notrunc ucase swab noerror sync)"/,\
+		c/conv=/"(ascii ebcdic ibm block unblock \
+			  lcase notrunc ucase swab noerror sync)"/,\
+	        c/*=/x:'<number>'/ \
+		n/*/"(if of conv ibs obs bs cbs files skip file seek count)"/=
+
+    complete nslookup   p/1/x:'<host>'/ p/2/\$hosts/
+
+    complete ar c/[dmpqrtx]/"(c l o u v a b i)"/ p/1/"(d m p q r t x)"// \
+		p/2/f:*.a/ p/*/f:*.o/
+
+    # these should be merged with the MH completion hacks below - jgotts
+    complete {sprev,snext} \
+		c@+@F:$HOME/Mail/@
+
+    # these and interrupt handling from Jaap Vermeulen <jaap@sequent.com>
+    complete {rexec,rxexec,rxterm,rmterm} \
+			'p/1/$hosts/' 'c/-/(l L E)/' 'n/-l/u/' 'n/-L/f/' \
+			'n/-E/e/' 'n/*/c/'
+    complete kill	'c/-/S/' 'c/%/j/' \
+			'n/*/`ps -u $LOGNAME | awk '"'"'{print $1}'"'"'`/'
+
+    # these from Marc Horowitz <marc@cam.ov.com>
+    complete attach 'n/-mountpoint/d/' 'n/-m/d/' 'n/-type/(afs nfs rvd ufs)/' \
+		    'n/-t/(afs nfs rvd ufs)/' 'n/-user/u/' 'n/-U/u/' \
+		    'c/-/(verbose quiet force printpath lookup debug map \
+			  nomap remap zephyr nozephyr readonly write \
+			  mountpoint noexplicit explicit type mountoptions \
+			  nosetuid setuid override skipfsck lock user host)/' \
+		    'n/-e/f/' 'n/*/()/'
+    complete hesinfo	'p/1/u/' \
+			'p/2/(passwd group uid grplist pcap pobox cluster \
+			      filsys sloc service)/'
+
+    # these from E. Jay Berkenbilt <ejb@ERA.COM>
+    # = isn't always followed by a filename or a path anymore - jgotts
+    complete ./configure 'c/--*=/f/' 'c/--{cache-file,prefix,exec-prefix,\
+    				bindir,sbindir,libexecdir,datadir,\
+				sysconfdir,sharedstatedir,localstatedir,\
+				libdir,includedir,oldincludedir,infodir,\
+				mandir,srcdir}/(=)//' \
+			 'c/--/(cache-file verbose prefix exec-prefix bindir \
+			 	sbindir libexecdir datadir sysconfdir \
+				sharedstatedir localstatedir libdir \
+				includedir oldincludedir infodir mandir \
+				srcdir)//'
+    complete gs 'c/-sDEVICE=/(x11 cdjmono cdj550 epson eps9high epsonc \
+			      dfaxhigh dfaxlow laserjet ljet4 sparc pbm \
+			      pbmraw pgm pgmraw ppm ppmraw bit)/' \
+		'c/-sOutputFile=/f/' 'c/-s/(DEVICE OutputFile)/=' \
+		'c/-d/(NODISPLAY NOPLATFONTS NOPAUSE)/' 'n/*/f/'
+    complete perl	'n/-S/c/'
+    complete printenv	'n/*/e/'
+    complete sccs	p/1/"(admin cdc check clean comb deledit delget \
+			delta diffs edit enter fix get help info \
+			print prs prt rmdel sccsdiff tell unedit \
+			unget val what)"/
+    complete setenv	'p/1/e/' 'c/*:/f/'
+
+    # these and method of setting hosts from Kimmo Suominen <kim@tac.nyc.ny.us>
+    if ( -f $HOME/.mh_profile && -x "`which folders`" ) then 
+
+    if ( ! $?FOLDERS ) setenv FOLDERS "`folders -fast -recurse`"
+    if ( ! $?MHA )     setenv MHA     "`ali | sed -e '/^ /d' -e 's/:.*//'`"
+
+    set folders = ( $FOLDERS )
+    set mha = ( $MHA )
+
+    complete ali \
+        'c/-/(alias nolist list nonormalize normalize nouser user help)/' \
+        'n,-alias,f,'
+
+    complete anno \
+        'c/-/(component noinplace inplace nodate date text help)/' \
+        'c,+,$folders,'  \
+        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
+
+    complete burst \
+        'c/-/(noinplace inplace noquiet quiet noverbose verbose help)/' \
+        'c,+,$folders,'  \
+        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
+
+    complete comp \
+        'c/-/(draftfolder draftmessage nodraftfolder editor noedit file form nouse use whatnowproc nowhatnowproc help)/' \
+        'c,+,$folders,'  \
+        'n,-whatnowproc,c,'  \
+        'n,-file,f,'\
+        'n,-form,f,'\
+        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
+
+    complete dist \
+        'c/-/(noannotate annotate draftfolder draftmessage nodraftfolder editor noedit form noinplace inplace whatnowproc nowhatnowproc help)/' \
+        'c,+,$folders,'  \
+        'n,-whatnowproc,c,'  \
+        'n,-form,f,'\
+        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
+
+    complete folder \
+        'c/-/(all nofast fast noheader header nopack pack noverbose verbose norecurse recurse nototal total noprint print nolist list push pop help)/' \
+        'c,+,$folders,'  \
+        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
+
+    complete folders \
+        'c/-/(all nofast fast noheader header nopack pack noverbose verbose norecurse recurse nototal total noprint print nolist list push pop help)/' \
+        'c,+,$folders,'  \
+        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
+
+    complete forw \
+        'c/-/(noannotate annotate draftfolder draftmessage nodraftfolder editor noedit filter form noformat format noinplace inplace digest issue volume whatnowproc nowhatnowproc help)/' \
+        'c,+,$folders,'  \
+        'n,-whatnowproc,c,'  \
+        'n,-filter,f,'\
+        'n,-form,f,'\
+        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
+
+    complete inc \
+        'c/-/(audit file noaudit nochangecur changecur file form format nosilent silent notruncate truncate width help)/' \
+        'c,+,$folders,'  \
+        'n,-audit,f,'\
+        'n,-form,f,'
+
+    complete mark \
+        'c/-/(add delete list sequence nopublic public nozero zero help)/' \
+        'c,+,$folders,'  \
+        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
+
+    complete mhmail \
+        'c/-/(body cc from subject help)/' \
+        'n,-cc,$mha,'  \
+        'n,-from,$mha,'  \
+        'n/*/$mha/'
+
+    complete mhpath \
+        'c/-/(help)/' \
+        'c,+,$folders,'  \
+        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
+
+    complete msgchk \
+        'c/-/(nodate date nonotify notify help)/' 
+
+    complete msh \
+        'c/-/(prompt noscan scan notopcur topcur help)/' 
+
+    complete next \
+        'c/-/(draft form moreproc nomoreproc length width showproc noshowproc header noheader help)/' \
+        'c,+,$folders,'  \
+        'n,-moreproc,c,'  \
+        'n,-showproc,c,'  \
+        'n,-form,f,'
+
+    complete packf \
+        'c/-/(file help)/' \
+        'c,+,$folders,'  \
+        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
+
+    complete pick \
+        'c/-/(and or not lbrace rbrace cc date from search subject to othercomponent after before datefield sequence nopublic public nozero zero nolist list help)/' \
+        'c,+,$folders,'  \
+        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
+
+    complete prev \
+        'c/-/(draft form moreproc nomoreproc length width showproc noshowproc header noheader help)/' \
+        'c,+,$folders,'  \
+        'n,-moreproc,c,'  \
+        'n,-showproc,c,'  \
+        'n,-form,f,'
+
+    complete prompter \
+        'c/-/(erase kill noprepend prepend norapid rapid nodoteof doteof help)/' 
+
+    complete refile \
+        'c/-/(draft nolink link nopreserve preserve src file help)/' \
+        'c,+,$folders,'  \
+        'n,-file,f,'\
+        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
+
+    complete rmf \
+        'c/-/(nointeractive interactive help)/' \
+        'c,+,$folders,'  
+
+    complete rmm \
+        'c/-/(help)/' \
+        'c,+,$folders,'  \
+        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
+
+    complete scan \
+        'c/-/(noclear clear form format noheader header width noreverse reverse file help)/' \
+        'c,+,$folders,'  \
+        'n,-form,f,'\
+        'n,-file,f,'\
+        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
+
+    complete send \
+        'c/-/(alias draft draftfolder draftmessage nodraftfolder filter nofilter noformat format noforward forward nomsgid msgid nopush push noverbose verbose nowatch watch width help)/' \
+        'n,-alias,f,'\
+        'n,-filter,f,'
+
+    complete show \
+        'c/-/(draft form moreproc nomoreproc length width showproc noshowproc header noheader help)/' \
+        'c,+,$folders,'  \
+        'n,-moreproc,c,'  \
+        'n,-showproc,c,'  \
+        'n,-form,f,'\
+        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
+
+    complete sortm \
+        'c/-/(datefield textfield notextfield limit nolimit noverbose verbose help)/' \
+        'c,+,$folders,'  \
+        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
+
+    complete vmh \
+        'c/-/(prompt vmhproc novmhproc help)/' \
+        'n,-vmhproc,c,'  
+
+    complete whatnow \
+        'c/-/(draftfolder draftmessage nodraftfolder editor noedit prompt help)/' 
+
+    complete whom \
+        'c/-/(alias nocheck check draft draftfolder draftmessage nodraftfolder help)/' \
+        'n,-alias,f,'
+
+    complete plum \
+        'c/-/()/' \
+        'c,+,$folders,'  \
+        'n,*,`(mark | sed "s/:.*//";echo next cur prev first last)|tr " " "\12" | sort -u`,'
+
+    complete mail \
+        'c/-/()/' \
+        'n/*/$mha/'
+
+    endif
+
+    #from Dan Nicolaescu <dann@ics.uci.edu>
+    if ( $?MODULESHOME ) then
+
+	alias Compl_module ' set q = "$MODULEPATH:as/:/ /" ; find $q -name .version -o -name .modulea\* -prune -o -print  | sed `echo "-e s@"$MODULEPATH:as%:%/\*@@g -e s@%"/\*@@g"`'
+
+	complete module 'p%1%(add load unload switch display avail use unuse update purge list clear help initadd initrm initswitch initlist initclear)%' \
+    'n%unload%`echo "$LOADEDMODULES:as/:/ /"`%' \
+    'n%{lo*,sw*,di*,he*,inita*,initr*,inits*}%`eval Compl_module`%' \
+    'N%{sw*,initsw*}%`eval Compl_module`%' 'C%-%(-append)%' 'n%{use,unu*,av*}%d%' 'n%-append%d%' \
+    'C%[^-]*%`eval Compl_module`%'
+    endif
+
+    # these from Tom Warzeka <waz@quahog.npt.nuwc.navy.mil>
+    # you may need to set the following variables for your host
+    set _elispdir = /usr/local/share/emacs/20.2/lisp # GNU Emacs lisp directory
+    set _maildir = /var/spool/mail  # Post Office: /var/spool/mail or /usr/mail
+    set _ypdir  = /var/yp	# directory where NIS (YP) maps are kept
+    set _domain = "`domainname`"
+
+    # this one works but is slow and doesn't descend into subdirectories
+    # complete	cd	C@[./\$~]*@d@ \
+    #			p@1@'`\ls -1F . $cdpath | grep /\$ | sort -u`'@ n@*@n@
+
+    if ( -r /etc/shells ) then
+        complete setenv	p@1@e@ n@DISPLAY@\$hosts@: n@SHELL@'`cat /etc/shells`'@
+    else
+	complete setenv	p@1@e@ n@DISPLAY@\$hosts@:
+    endif
+    complete unsetenv	n/*/e/
+
+    if (-r $HOME/.mailrc) then
+        complete mail	c/-/"(e i f n s u v)"/ c/*@/\$hosts/ \
+			c@+@F:$HOME/Mail@ C@[./\$~]@f@ n/-s/x:'<subject>'/ \
+			n@-u@T:$_maildir@ n/-f/f/ \
+			n@*@'`sed -n s/alias//p $HOME/.mailrc | tr -s " " "	" | cut -f 2`'@
+    else
+        complete mail	c/-/"(e i f n s u v)"/ c/*@/\$hosts/ \
+			c@+@F:$HOME/Mail@ C@[./\$~]@f@ n/-s/x:'<subject>'/ \
+			n@-u@T:$_maildir@ n/-f/f/ n/*/u/
+    endif
+
+    complete man	    n@1@'`\ls -1 /usr/man/man1 | sed s%\\.1.\*\$%%`'@ \
+			    n@2@'`\ls -1 /usr/man/man2 | sed s%\\.2.\*\$%%`'@ \
+			    n@3@'`\ls -1 /usr/man/man3 | sed s%\\.3.\*\$%%`'@ \
+			    n@4@'`\ls -1 /usr/man/man4 | sed s%\\.4.\*\$%%`'@ \
+			    n@5@'`\ls -1 /usr/man/man5 | sed s%\\.5.\*\$%%`'@ \
+			    n@6@'`\ls -1 /usr/man/man6 | sed s%\\.6.\*\$%%`'@ \
+			    n@7@'`\ls -1 /usr/man/man7 | sed s%\\.7.\*\$%%`'@ \
+			    n@8@'`\ls -1 /usr/man/man8 | sed s%\\.8.\*\$%%`'@ \
+    n@9@'`[ -r /usr/man/man9 ] && \ls -1 /usr/man/man9 | sed s%\\.9.\*\$%%`'@ \
+    n@0@'`[ -r /usr/man/man0 ] && \ls -1 /usr/man/man0 | sed s%\\.0.\*\$%%`'@ \
+  n@new@'`[ -r /usr/man/mann ] && \ls -1 /usr/man/mann | sed s%\\.n.\*\$%%`'@ \
+  n@old@'`[ -r /usr/man/mano ] && \ls -1 /usr/man/mano | sed s%\\.o.\*\$%%`'@ \
+n@local@'`[ -r /usr/man/manl ] && \ls -1 /usr/man/manl | sed s%\\.l.\*\$%%`'@ \
+n@public@'`[ -r /usr/man/manp ]&& \ls -1 /usr/man/manp | sed s%\\.p.\*\$%%`'@ \
+		c/-/"(- f k M P s t)"/ n/-f/c/ n/-k/x:'<keyword>'/ n/-[MP]/d/ \
+		N@-[MP]@'`\ls -1 $:-1/man? | sed s%\\..\*\$%%`'@ n/*/c/
+
+    complete ps	        c/-t/x:'<tty>'/ c/-/"(a c C e g k l S t u v w x)"/ \
+			n/-k/x:'<kernel>'/ N/-k/x:'<core_file>'/ n/*/x:'<PID>'/
+    complete compress	c/-/"(c f v b)"/ n/-b/x:'<max_bits>'/ n/*/f:^*.Z/
+    complete uncompress	c/-/"(c f v)"/                        n/*/f:*.Z/
+
+    complete xhost	c/[+-]/\$hosts/ n/*/\$hosts/
+
+    # these conform to the latest GNU versions available at press time ...
+    # updates by John Gotts <jgotts@engin.umich.edu>
+
+    complete emacs	c/-/"(batch d f funcall i insert kill l load \
+			no-init-file nw q t u user)"/ c/+/x:'<line_number>'/ \
+			n/-d/x:'<display>'/ n/-f/x:'<lisp_function>'/ n/-i/f/ \
+			n@-l@F:$_elispdir@ n/-t/x:'<terminal>'/ \
+			n/-u/u/ n/*/f:^*[\#~]/
+
+    complete gzcat	c/--/"(force help license quiet version)"/ \
+			c/-/"(f h L q V -)"/ n/*/f:*.{gz,Z,z,zip}/
+    complete gzip	c/--/"(stdout to-stdout decompress uncompress \
+			force help list license no-name quiet recurse \
+			suffix test verbose version fast best)"/ \
+			c/-/"(c d f h l L n q r S t v V 1 2 3 4 5 6 7 8 9 -)"/\
+			n/{-S,--suffix}/x:'<file_name_suffix>'/ \
+			n/{-d,--{de,un}compress}/f:*.{gz,Z,z,zip,taz,tgz}/ \
+			N/{-d,--{de,un}compress}/f:*.{gz,Z,z,zip,taz,tgz}/ \
+			n/*/f:^*.{gz,Z,z,zip,taz,tgz}/
+    complete {gunzip,ungzip} c/--/"(stdout to-stdout force help list license \
+			no-name quiet recurse suffix test verbose version)"/ \
+			c/-/"(c f h l L n q r S t v V -)"/ \
+			n/{-S,--suffix}/x:'<file_name_suffix>'/ \
+			n/*/f:*.{gz,Z,z,zip,taz,tgz}/
+    complete zgrep	c/-*A/x:'<#_lines_after>'/ c/-*B/x:'<#_lines_before>'/\
+			c/-/"(A b B c C e f h i l n s v V w x)"/ \
+			p/1/x:'<limited_regular_expression>'/ N/-*e/f/ \
+			n/-*e/x:'<limited_regular_expression>'/ n/-*f/f/ n/*/f/
+    complete zegrep	c/-*A/x:'<#_lines_after>'/ c/-*B/x:'<#_lines_before>'/\
+			c/-/"(A b B c C e f h i l n s v V w x)"/ \
+			p/1/x:'<full_regular_expression>'/ N/-*e/f/ \
+			n/-*e/x:'<full_regular_expression>'/ n/-*f/f/ n/*/f/
+    complete zfgrep	c/-*A/x:'<#_lines_after>'/ c/-*B/x:'<#_lines_before>'/\
+			c/-/"(A b B c C e f h i l n s v V w x)"/ \
+			p/1/x:'<fixed_string>'/ N/-*e/f/ \
+			n/-*e/x:'<fixed_string>'/ n/-*f/f/ n/*/f/
+    complete znew	c/-/"(f t v 9 P K)"/ n/*/f:*.Z/
+    complete zmore	n/*/f:*.{gz,Z,z,zip}/
+    complete zfile	n/*/f:*.{gz,Z,z,zip,taz,tgz}/
+    complete ztouch	n/*/f:*.{gz,Z,z,zip,taz,tgz}/
+    complete zforce	n/*/f:^*.{gz,tgz}/
+
+    complete grep	c/-*A/x:'<#_lines_after>'/ c/-*B/x:'<#_lines_before>'/\
+			c/--/"(extended-regexp fixed-regexp basic-regexp \
+			regexp file ignore-case word-regexp line-regexp \
+			no-messages revert-match version help byte-offset \
+			line-number with-filename no-filename quiet silent \
+			text directories recursive files-without-match \
+			files-with-matches count before-context after-context \
+			context binary unix-byte-offsets)"/ \
+			c/-/"(A a B b C c d E e F f G H h i L l n q r s U u V \
+				v w x)"/ \
+			p/1/x:'<limited_regular_expression>'/ N/-*e/f/ \
+			n/-*e/x:'<limited_regular_expression>'/ n/-*f/f/ n/*/f/
+    complete egrep	c/-*A/x:'<#_lines_after>'/ c/-*B/x:'<#_lines_before>'/\
+			c/--/"(extended-regexp fixed-regexp basic-regexp \
+			regexp file ignore-case word-regexp line-regexp \
+			no-messages revert-match version help byte-offset \
+			line-number with-filename no-filename quiet silent \
+			text directories recursive files-without-match \
+			files-with-matches count before-context after-context \
+			context binary unix-byte-offsets)"/ \
+			c/-/"(A a B b C c d E e F f G H h i L l n q r s U u V \
+				v w x)"/ \
+			p/1/x:'<full_regular_expression>'/ N/-*e/f/ \
+			n/-*e/x:'<full_regular_expression>'/ n/-*f/f/ n/*/f/
+    complete fgrep	c/-*A/x:'<#_lines_after>'/ c/-*B/x:'<#_lines_before>'/\
+			c/--/"(extended-regexp fixed-regexp basic-regexp \
+			regexp file ignore-case word-regexp line-regexp \
+			no-messages revert-match version help byte-offset \
+			line-number with-filename no-filename quiet silent \
+			text directories recursive files-without-match \
+			files-with-matches count before-context after-context \
+			context binary unix-byte-offsets)"/ \
+			c/-/"(A a B b C c d E e F f G H h i L l n q r s U u V \
+				v w x)"/ \
+			p/1/x:'<fixed_string>'/ N/-*e/f/ \
+			n/-*e/x:'<fixed_string>'/ n/-*f/f/ n/*/f/
+
+    complete users	c/--/"(help version)"/ p/1/x:'<accounting_file>'/
+    complete who	c/--/"(heading idle count mesg message writable help \
+    			version)"/ c/-/"(H i m q s T w u -)"/ \
+			p/1/x:'<accounting_file>'/ n/am/"(i)"/ n/are/"(you)"/
+
+    complete chown	c/--/"(changes dereference no-dereference silent \
+    			quiet reference recursive verbose help version)"/ \
+			c/-/"(c f h R v -)"/ C@[./\$~]@f@ c/*[.:]/g/ \
+			n/-/u/. p/1/u/. n/*/f/
+    complete chgrp	c/--/"(changes no-dereference silent quiet reference \
+    			recursive verbose help version)"/ \
+			c/-/"(c f h R v -)"/ n/-/g/ p/1/g/ n/*/f/
+    complete chmod	c/--/"(changes silent quiet verbose reference \
+    			recursive help version)"/ c/-/"(c f R v)"/
+    complete df		c/--/"(all block-size human-readable si inodes \
+			kilobytes local megabytes no-sync portability sync \
+			type print-type exclude-type help version)"/ \
+			c/-/"(a H h i k l m P T t v x)"/
+    complete du		c/--/"(all block-size bytes total dereference-args \
+    			human-readable si kilobytes count-links dereference \
+			megabytes separate-dirs summarize one-file-system \
+			exclude-from exclude max-depth help version"/ \
+			c/-/"(a b c D H h k L l m S s X x)"/
+
+    complete cat	c/--/"(number-nonblank number squeeze-blank show-all \
+			show-nonprinting show-ends show-tabs help version)"/ \
+			c/-/"(A b E e n s T t u v -)"/ n/*/f/
+    complete mv		c/--/"(backup force interactive update verbose suffix \
+			version-control help version)"/ \
+			c/-/"(b f i S u V v -)"/ \
+			n/{-S,--suffix}/x:'<suffix>'/ \
+			n/{-V,--version-control}/"(t numbered nil existing \
+			never simple)"/ n/-/f/ N/-/d/ p/1/f/ p/2/d/ n/*/f/
+    complete cp		c/--/"(archive backup no-dereference force \
+    			interactive link preserve parents sparse recursive \
+			symbolic-link suffix update verbose version-control \
+			one-file-system help version)"/ \
+			c/-/"(a b d f i l P p R r S s u V v x -)"/ \
+			n/-*r/d/ n/{-S,--suffix}/x:'<suffix>'/ \
+			n/{-V,--version-control}/"(t numbered nil existing \
+			never simple)"/ n/-/f/ N/-/d/ p/1/f/ p/2/d/ n/*/f/
+    complete ln		c/--/"(backup directory force no-dereference \
+    			interactive symbolic suffix verbose version-control \
+			help version)"/ \
+			c/-/"(b d F f i n S s V v -)"/ \
+			n/{-S,--suffix}/x:'<suffix>'/ \
+			n/{-V,--version-control}/"(t numbered nil existing \
+			never simple)"/ n/-/f/ N/-/x:'<link_name>'/ \
+			p/1/f/ p/2/x:'<link_name>'/
+    complete touch	c/--/"(date reference time help version)"/ \
+			c/-/"(a c d f m r t -)"/ \
+			n/{-d,--date}/x:'<date_string>'/ \
+			c/--time/"(access atime mtime modify use)"/ \
+			n/{-r,--file}/f/ n/-t/x:'<time_stamp>'/ n/*/f/
+    complete mkdir	c/--/"(mode parents verbose help version)"/ \
+    			c/-/"(p m -)"/ \
+			n/{-m,--mode}/x:'<mode>'/ n/*/d/
+    complete rmdir	c/--/"(ignore-fail-on-non-empty parents verbose help \
+    			version)"/ c/-/"(p -)"/ n/*/d/
+
+    complete tar	c/-[Acru]*/"(b B C f F g G h i l L M N o P \
+			R S T v V w W X z Z)"/ \
+			c/-[dtx]*/"( B C f F g G i k K m M O p P \
+			R s S T v w x X z Z)"/ \
+			p/1/"(A c d r t u x -A -c -d -r -t -u -x \
+			--catenate --concatenate --create --diff --compare \
+			--delete --append --list --update --extract --get \
+			--help --version)"/ \
+			c/--/"(catenate concatenate create diff compare \
+			delete append list update extract get atime-preserve \
+			block-size read-full-blocks directory checkpoint file \
+			force-local info-script new-volume-script incremental \
+			listed-incremental dereference ignore-zeros \
+			ignore-failed-read keep-old-files starting-file \
+			one-file-system tape-length modification-time \
+			multi-volume after-date newer old-archive portability \
+			to-stdout same-permissions preserve-permissions \
+			absolute-paths preserve record-number remove-files \
+			same-order preserve-order same-owner sparse \
+			files-from null totals verbose label version \
+			interactive confirmation verify exclude exclude-from \
+			compress uncompress gzip ungzip use-compress-program \
+			block-compress help version)"/ \
+			c/-/"(b B C f F g G h i k K l L m M N o O p P R s S \
+			T v V w W X z Z 0 1 2 3 4 5 6 7 -)"/ \
+			n/-c*f/x:'<new_tar_file, device_file, or "-">'/ \
+			n/{-[Adrtux]*f,--file}/f:*.tar/ \
+			N/{-x*f,--file}/'`tar -tf $:-1`'/ \
+			n/--use-compress-program/c/ \
+			n/{-b,--block-size}/x:'<block_size>'/ \
+			n/{-V,--label}/x:'<volume_label>'/ \
+			n/{-N,--{after-date,newer}}/x:'<date>'/ \
+			n/{-L,--tape-length}/x:'<tape_length_in_kB>'/ \
+			n/{-C,--directory}/d/ \
+			N/{-C,--directory}/'`\ls $:-1`'/ \
+			n/-[0-7]/"(l m h)"/
+
+    # SVR4 filesystems
+    #complete  mount	c/-/"(a F m o O p r v V)"/ n/-p/n/ n/-v/n/ \
+    #			n/-o/x:'<FSType_options>'/ \
+    #			n@-F@'`\ls -1 /usr/lib/fs`'@ \
+    #			n@*@'`grep -v "^#" /etc/vfstab | tr -s " " "	 " | cut -f 3`'@
+    #complete umount	c/-/"(a o V)"/ n/-o/x:'<FSType_options>'/ \
+    #			n/*/'`mount | cut -d " " -f 1`'/
+    #complete  mountall	c/-/"(F l r)"/ n@-F@'`\ls -1 /usr/lib/fs`'@
+    #complete umountall	c/-/"(F h k l r s)"/ n@-F@'`\ls -1 /usr/lib/fs`'@ \
+    #			n/-h/'`df -k | cut -s -d ":" -f 1 | sort -u`'/
+    # BSD 4.3 filesystems
+    complete  mount	c/-/"(a r t v)"/ n/-t/"(4.2 nfs)"/ \
+			n@*@'`grep -v "^#" /etc/fstab | tr -s " " "	" | cut -f 2`'@
+    complete umount	c/-/"(a h t v)"/ n/-t/"(4.2 nfs)"/ \
+			n/-h/'`df | cut -s -d ":" -f 1 | sort -u`'/ \
+			n/*/'`mount | cut -d " " -f 3`'/
+    # BSD 4.2 filesystems
+    #complete  mount	c/-/"(a r t v)"/ n/-t/"(ufs nfs)"/ \
+    #			n@*@'`cut -d ":" -f 2 /etc/fstab`'@
+    #complete umount	c/-/"(a h t v)"/ n/-t/"(ufs nfs)"/ \
+    #			n/-h/'`df | cut -s -d ":" -f 1 | sort -u`'/ \
+    #			n/*/'`mount | cut -d " " -f 3`'/
+
+    # these deal with NIS (formerly YP); if it's not running you don't need 'em
+    complete domainname	p@1@D:$_ypdir@" " n@*@n@
+    complete ypcat	c@-@"(d k t x)"@ n@-x@n@ n@-d@D:$_ypdir@" " \
+	    N@-d@\`\\ls\ -1\ $_ypdir/\$:-1\ \|\ sed\ -n\ s%\\\\.pag\\\$%%p\`@ \
+	  n@*@\`\\ls\ -1\ $_ypdir/$_domain\ \|\ sed\ -n\ s%\\\\.pag\\\$%%p\`@
+    complete ypmatch	c@-@"(d k t x)"@ n@-x@n@ n@-d@D:$_ypdir@" " \
+	            N@-d@x:'<key ...>'@ n@-@x:'<key ...>'@ p@1@x:'<key ...>'@ \
+	  n@*@\`\\ls\ -1\ $_ypdir/$_domain\ \|\ sed\ -n\ s%\\\\.pag\\\$%%p\`@
+    complete ypwhich	c@-@"(d m t x V1 V2)"@ n@-x@n@ n@-d@D:$_ypdir@" " \
+	 n@-m@\`\\ls\ -1\ $_ypdir/$_domain\ \|\ sed\ -n\ s%\\\\.pag\\\$%%p\`@ \
+			N@-m@n@ n@*@\$hosts@
+
+    # there's no need to clutter the user's shell with these
+    unset _elispdir _maildir _ypdir _domain
+
+    complete make \
+	'n/-f/f/' \
+      	'c/*=/f/' \
+	'n@*@`cat -s GNUmakefile Makefile makefile |& sed -n -e "/No such file/d" -e "/^[^     #].*:/s/:.*//p"`@'
+
+    if ( -f /etc/printcap ) then
+	set printers=(`sed -n -e "/^[^     #].*:/s/:.*//p" /etc/printcap`)
+
+	complete lpr    'c/-P/$printers/'
+	complete lpq    'c/-P/$printers/'
+	complete lprm   'c/-P/$printers/'
+	complete lpquota        'p/1/(-Qprlogger)/' 'c/-P/$printers/'
+	complete dvips  'c/-P/$printers/' 'n/-o/f:*.{ps,PS}/' 'n/*/f:*.dvi/'
+    endif
+
+    unset noglob
+    unset complete
+endif
+
+end:
+	onintr

contrib/tcsh/config.h.in

@@ -0,0 +1 @@
+/* config.h.in.  Generated automatically from configure.in by autoheader.  */

contrib/tcsh/config_f.h

@@ -0,0 +1,193 @@
+/* $Header: /src/pub/tcsh/config_f.h,v 3.22 1999/05/11 13:07:42 christos Exp $ */
+/*
+ * config_f.h -- configure various defines for tcsh
+ *
+ * This is included by config.h.
+ *
+ * Edit this to match your particular feelings; this is set up to the
+ * way I like it.
+ */
+/*-
+ * Copyright (c) 1980, 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+#ifndef _h_config_f
+#define _h_config_f
+
+/*
+ * SHORT_STRINGS Use 16 bit characters instead of 8 bit chars
+ * 	         This fixes up quoting problems and eases implementation
+ *	         of nls...
+ *
+ */
+#define SHORT_STRINGS
+
+/*
+ * NLS:		Use Native Language System
+ *		Routines like setlocale() are needed
+ *		if you don't have <locale.h>, you don't want
+ *		to define this.
+ */
+#define NLS
+
+/*
+ * NLS_CATALOGS:Use Native Language System catalogs for
+ *		international messages.
+ *		Routines like catopen() are needed
+ *		if you don't have <nl_types.h>, you don't want
+ *		to define this.
+ */
+#undef NLS_CATALOGS
+
+/*
+ * LOGINFIRST   Source ~/.login before ~/.cshrc
+ */
+#undef LOGINFIRST
+
+/*
+ * VIDEFAULT    Make the VI mode editor the default
+ */
+#undef VIDEFAULT
+
+/*
+ * KAI          use "bye" command and rename "log" to "watchlog"
+ */
+#undef KAI
+
+/*
+ * TESLA	drops DTR on logout. Historical note:
+ *		tesla.ee.cornell.edu was a vax11/780 with a develcon
+ *		switch that sometimes would not hang up.
+ */
+#undef TESLA
+
+/*
+ * DOTLAST      put "." last in the default path, for security reasons
+ */
+#define DOTLAST
+
+/*
+ * NODOT	Don't put "." in the default path, for security reasons
+ */
+#undef NODOT
+
+/*
+ * AUTOLOGOUT	tries to determine if it should set autologout depending
+ *		on the name of the tty, and environment.
+ *		Does not make sense in the modern window systems!
+ */
+#define AUTOLOGOUT
+
+/*
+ * SUSPENDED	Newer shells say 'Suspended' instead of 'Stopped'.
+ *		Define to get the same type of messages.
+ */
+#define SUSPENDED
+
+/*
+ * KANJI	Ignore meta-next, and the ISO character set. Should
+ *		be used with SHORT_STRINGS
+ *
+ */
+#undef KANJI
+
+/*
+ * DSPMBYTE	add variable "dspmbyte" and display multi-byte string at
+ *		only output, when "dspmbyte" is set. Should be used with
+ *		KANJI
+ */
+#undef DSPMBYTE
+
+/*
+ * MBYTEDEBUG	when "dspmbyte" is changed, set multi-byte checktable to
+ *		variable "mbytemap".
+ *		(use for multi-byte table check)
+ */
+#undef MBYTEDEBUG
+
+/*
+ * NEWGRP	Provide a newgrp builtin.
+ */
+#undef NEWGRP
+
+/*
+ * SYSMALLOC	Use the system provided version of malloc and friends.
+ *		This can be much slower and no memory statistics will be
+ *		provided.
+ */
+#if defined(__MACHTEN__) || defined(PURIFY) || defined(MALLOC_TRACE) || defined(_OSD_POSIX)
+# define SYSMALLOC
+#else
+# undef SYSMALLOC
+#endif
+
+/*
+ * USE_ACCESS	Use access(2) rather than stat(2) when POSIX is defined.
+ *		POSIX says to use stat, but stat(2) is less accurate
+ *		than access(2) for determining file access.
+ */
+#undef USE_ACCESS
+
+/*
+ * REMOTEHOST	Try to determine the remote host that we logged in from
+ *		using first getpeername, and then the utmp file. If
+ *		successful, set $REMOTEHOST to the name or address of the
+ *		host
+ */
+#define REMOTEHOST
+
+/*
+ * COLOR_LS_F Do you want to use builtin color ls-F ?
+ *
+ */
+#define COLOR_LS_F
+
+/*
+ * COLORCAT Do you want to colorful message ?
+ *
+ */
+#undef COLORCAT
+
+/*
+ * RCSID	This defines if we want rcs strings in the binary or not
+ *
+ */
+#if !defined(lint) && !defined(SABER) && !defined(__CLCC__)
+# ifndef __GNUC__
+#  define RCSID(id) static char *rcsid = (id);
+# else
+#  define RCSID(id) static char *rcsid(const char *a) { return rcsid(a = id); }
+# endif /* !__GNUC__ */
+#else
+# define RCSID(id)	/* Nothing */
+#endif /* !lint && !SABER */
+
+#endif /* _h_config_f */

contrib/tcsh/csh-mode.el

@@ -0,0 +1,935 @@
+;; csh-mode.el --- csh (and tcsh) script editing mode for Emacs.
+;;
+;; Version:    1.2
+;; Date:       April 2, 1999
+;; Maintainer: Dan Harkless <dan@wave.eng.uci.edu>
+;;
+;; Description:
+;;   csh and tcsh script editing mode for Emacs.
+;; 
+;; Installation:
+;;   Put csh-mode.el in some directory in your load-path and load it.
+;;
+;; Usage:
+;;   This major mode assists shell script writers with indentation
+;;   control and control structure construct matching in much the same
+;;   fashion as other programming language modes. Invoke describe-mode
+;;   for more information.
+;; 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;; Author key:
+;;   DH - Dan Harkless     <dan@wave.eng.uci.edu>
+;;   CM - Carlo Migliorini <migliorini@sodalia.it>
+;;   JR - Jack Repenning   <jackr@sgi.com>
+;;   GE - Gary Ellison     <Gary.F.Ellison@att.com>
+;;
+;; *** REVISION HISTORY ***
+;;
+;; DATE MOD.  BY  REASON FOR MODIFICATION
+;; ---------  --  --------------------------------------------------------------
+;;  2 Apr 99  DH  1.2: Noticed an out-of-date comment referencing .bashrc etc.
+;; 11 Dec 96  DH  1.1: ksh-mode just indented continuation lines by 1 space.
+;;                csh-mode looks at the first line and indents properly to line
+;;                up under the open-paren, quote, or command.  
+;; 11 Dec 96  DH  Added fontification for history substitutions.
+;; 10 Dec 96  DH  Added indentation and fontification for labels.  Added
+;;                fontification for variables and backquoted strings.
+;;  9 Dec 96  DH  1.0: Brought csh-mode up to the level of functionality of
+;;                the original ksh-mode.
+;;  7 Oct 96  CM  0.1: Hacked ksh-mode.el into minimally functional csh-mode.el
+;;                by doing search-and-replace and some keyword changes.
+;;  8 Aug 96  JR  (Last modification to ksh-mode 2.6.)
+;;                [...]
+;; 19 Jun 92  GE  (Conception of ksh-mode.)
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+
+(defconst csh-mode-version "1.2"
+  "*Version number of this version of csh-mode")
+
+(defvar csh-mode-hook 
+  '(lambda ()
+     (auto-fill-mode 1))
+  "Hook to run each time csh-mode is entered.")
+
+
+;;
+;; -------------------------------------------> Variables controlling completion
+;;
+(defvar csh-completion-list '())
+(make-variable-buffer-local 'csh-completion-list)
+(set-default 'csh-completion-list  '())
+;;
+;; -type-  : type number, 0:misc, 1:variable, 2:function
+;; -regexp-: regexp used to parse the script
+;; -match- : used by match-beginning/end to pickup target
+;;
+(defvar csh-completion-type-misc 0)
+(defvar csh-completion-regexp-var "\\([A-Za-z_0-9]+\\)=")
+(defvar csh-completion-type-var 1)
+(defvar csh-completion-match-var 1) 
+(defvar csh-completion-regexp-var2 "\\$\\({\\|{#\\)?\\([A-Za-z_0-9]+\\)[#%:}]?")
+(defvar csh-completion-match-var2 2)
+(defvar csh-completion-regexp-function
+  "\\(function\\)?[ \t]*\\([A-Za-z_0-9]+\\)[ \t]*([ \t]*)")
+(defvar csh-completion-type-function 2)
+(defvar csh-completion-match-function 2)
+
+
+;;
+;; ------------------------------------> Variables controlling indentation style
+;;
+(defvar csh-indent 4
+  "*Indentation of csh statements with respect to containing block. A value
+of nil indicates compound list keyword \(\"do\" and \"then\"\) alignment.")
+
+(defvar csh-case-item-offset csh-indent
+  "*Additional indentation for case items within a case statement.")
+(defvar csh-case-indent nil
+  "*Additional indentation for statements under case items.")
+(defvar csh-comment-regexp "^\\s *#"
+  "*Regular expression used to recognize comments. Customize to support
+csh-like languages.")
+(defvar csh-match-and-tell t
+  "*If non-nil echo in the minibuffer the matching compound command
+for the \"breaksw\", \"end\", or \"endif\".")
+(defvar csh-tab-always-indent t
+  "*Controls the operation of the TAB key. If t (the default), always
+reindent the current line.  If nil, indent the current line only if
+point is at the left margin or in the line's indentation; otherwise
+insert a tab.")
+
+
+;;
+;; ----------------------------------------> Constants containing syntax regexps
+;; 
+(defconst csh-case-default-re
+  "^\\s *\\(case\\|default\\)\\b"
+  "Regexp used to locate grouping keywords case and default" )
+
+(defconst csh-case-item-re "^\\s *\\(case .*\\|default\\):"
+  "Regexp used to match case-items")
+
+(defconst csh-end-re "^\\s *end\\b"
+  "Regexp used to match keyword: end")
+
+(defconst csh-endif-re "^\\s *endif\\b"
+  "Regexp used to match keyword: endif")
+
+(defconst csh-endsw-re "^\\s *endsw\\b"
+  "Regexp used to match keyword: endsw")
+
+(defconst csh-else-re "^\\s *\\belse\\(\\b\\|$\\)"
+  "Regexp used to match keyword: else")
+
+(defconst csh-else-if-re "^\\s *\\belse if\\(\\b\\|$\\)"
+  "Regexp used to match keyword pair: else if")
+
+(defconst csh-if-re "^\\s *if\\b.+\\(\\\\\\|\\bthen\\b\\)"
+  "Regexp used to match non-one-line if statements")
+
+(defconst csh-iteration-keywords-re "^[^#\n]*\\s\"*\\b\\(while\\|foreach\\)\\b"
+  "Match one of the keywords: while, foreach")
+
+(defconst csh-keywords-re
+  "^\\s *\\(else\\b\\|foreach\\b\\|if\\b.+\\(\\\\\\|\\bthen\\b\\)\\|switch\\b\\|while\\b\\)"
+  "Regexp used to detect compound command keywords: else, if, foreach, while")
+
+(defconst csh-label-re "^\\s *[^!#$\n ]+:"
+  "Regexp used to match flow-control labels")
+
+(defconst csh-multiline-re "^.*\\\\$"
+  "Regexp used to match a line with a statement using more lines.")
+
+(defconst csh-switch-re "^\\s *switch\\b"
+  "Regexp used to match keyword: switch")
+
+
+;;
+;; ----------------------------------------> Variables controlling fontification
+;;
+(defvar csh-keywords '("@" "alias" "bg" "break" "breaksw" "case" "cd" "chdir" 
+		       "continue" "default" "dirs" "echo" "else" "end" "endif"
+		       "endsw" "eval" "exec" "exit" "fg" "foreach" "glob" "goto"
+		       "hashstat" "history" "if" "jobs" "kill" "limit" "login"
+		       "logout" "limit" "notify" "onintr" "popd" "printenv"
+		       "pushd" "rehash" "repeat" "set" "setenv" "shift" "source"
+		       "stop" "suspend" "switch" "then" "time" "umask" "unalias"
+		       "unhash" "unlimit" "unset" "unsetenv" "wait" "while"
+		       ;; tcsh-keywords
+		       "alloc" "bindkey" "builtins" "complete" "echotc"
+		       "filetest" "hup" "log" "ls-F" "nice" "nohup" "sched"
+		       "settc" "setty" "telltc" "uncomplete" "where" "which"))
+
+(require 'font-lock)  ; need to do this before referring to font-lock-* below
+
+(defconst csh-font-lock-keywords
+  ;; NOTE:  The order of some of the items in this list is significant.  Do not
+  ;;        alphabetize or otherwise blindly rearrange.
+  (list
+   ;; Comments on line 1, which are missed by syntactic fontification.
+   '("^#.*" 0 font-lock-comment-face)
+
+   ;; Label definitions (1 means first parenthesized exp in regexp).
+   '("^\\s *\\([^!#$\n ]+\\):" 1 font-lock-function-name-face)
+  
+   ;; Label references.
+   '("\\b\\(goto\\|onintr\\)\\b\\s +\\([^!#$ \n\t]+\\)"
+     2 font-lock-function-name-face)
+  
+   ;; Variable settings.
+   '("\\(@\\|set\\|setenv\\)\\s +\\([0-9A-Za-z_]+\\b\\)"
+     2 font-lock-variable-name-face)
+   
+   ;; Variable references not inside of strings.
+   '("\\$[][0-9A-Za-z_#:?]+" 0 font-lock-variable-name-face)
+
+   ;; Backquoted strings.  'keep' means to just fontify non-fontified text.
+   '("`\\(.*\\)`" 1 font-lock-reference-face keep)
+
+   ;; NOTE:  The following variables need to be anchored to the beginning of
+   ;;        line to prevent re-fontifying text in comments.  Due to this, we
+   ;;        can only catch a finite number of occurrences.  More can be added.
+   ;;        The 't' means to override previous fontification.
+   ;;
+   ;;        Variable references inside of " strings.
+   '("^[^#\n]*\".*\\(\\$[][0-9A-Za-z_#:?]+\\).*\""
+     1 font-lock-variable-name-face t)                                    ; 1
+   '("^[^#\n]*\".*\\(\\$[][0-9A-Za-z_#:?]+\\).*\\$[][0-9A-Za-z_#:?]+.*\""
+     1 font-lock-variable-name-face t)                                    ; 2
+   (cons (concat "^[^#\n]*\".*\\(\\$[][0-9A-Za-z_#:?]+\\).*"
+		 "\\$[][0-9A-Za-z_#:?]+.*\\$[][0-9A-Za-z_#:?]+.*\"")
+	 (list 1 font-lock-variable-name-face t))                         ; 3
+   ;;
+   ;;        History substitutions.  
+   '("^![^~= \n\t]+" 0 font-lock-reference-face t)                      ; BOL
+   '("^[^#\n]*[^#\\\n]\\(![^~= \n\t]+\\)" 1 font-lock-reference-face t) ; 1
+   '("^[^#\n]*[^#\\\n]\\(![^~= \n\t]+\\).*![^~= \n\t]+"
+     1 font-lock-reference-face t)                                      ; 2
+
+   ;; Keywords.
+   (cons (concat
+	  "\\(\\<"
+	  (mapconcat 'identity csh-keywords "\\>\\|\\<")
+	  "\\>\\)")
+	 1)
+   ))
+
+(put 'csh-mode 'font-lock-keywords 'csh-font-lock-keywords)
+
+
+;;
+;; -------------------------------------------------------> Mode-specific tables
+;;
+(defvar csh-mode-abbrev-table nil
+  "Abbrev table used while in csh mode.")
+(define-abbrev-table 'csh-mode-abbrev-table ())
+
+(defvar csh-mode-map nil 
+  "Keymap used in csh mode")
+(if csh-mode-map
+    ()
+  (setq csh-mode-map (make-sparse-keymap))
+;;(define-key csh-mode-map "\177"    'backward-delete-char-untabify)
+  (define-key csh-mode-map "\C-c\t"  'csh-completion-init-and-pickup)
+  (define-key csh-mode-map "\C-j"    'reindent-then-newline-and-indent)
+  (define-key csh-mode-map "\e\t"    'csh-complete-symbol)
+  (define-key csh-mode-map "\n"      'reindent-then-newline-and-indent)
+  (define-key csh-mode-map '[return] 'reindent-then-newline-and-indent)
+  (define-key csh-mode-map "\t"      'csh-indent-command)
+;;(define-key csh-mode-map "\t"      'csh-indent-line)
+  )
+
+(defvar csh-mode-syntax-table nil
+  "Syntax table used while in csh mode.")
+(if csh-mode-syntax-table
+    ;; If it's already set up, don't change it.
+    ()
+  ;; Else, create it from the standard table and modify entries that need to be.
+  (setq csh-mode-syntax-table (make-syntax-table))
+  (modify-syntax-entry ?&  "."  csh-mode-syntax-table) ; & -punctuation
+  (modify-syntax-entry ?*  "."  csh-mode-syntax-table) ; * -punctuation
+  (modify-syntax-entry ?-  "."  csh-mode-syntax-table) ; - -punctuation
+  (modify-syntax-entry ?=  "."  csh-mode-syntax-table) ; = -punctuation
+  (modify-syntax-entry ?+  "."  csh-mode-syntax-table) ; + -punctuation
+  (modify-syntax-entry ?|  "."  csh-mode-syntax-table) ; | -punctuation
+  (modify-syntax-entry ?<  "."  csh-mode-syntax-table) ; < -punctuation
+  (modify-syntax-entry ?>  "."  csh-mode-syntax-table) ; > -punctuation
+  (modify-syntax-entry ?/  "."  csh-mode-syntax-table) ; / -punctuation
+  (modify-syntax-entry ?\' "\"" csh-mode-syntax-table) ; ' -string quote
+  (modify-syntax-entry ?.  "w"  csh-mode-syntax-table) ; . -word constituent
+  (modify-syntax-entry ??  "w"  csh-mode-syntax-table) ; ? -word constituent
+
+  ;; \n - comment ender, first character of 2-char comment sequence
+  (modify-syntax-entry ?\n "> 1" csh-mode-syntax-table) ; # -word constituent
+
+  ;;   - whitespace, first character of 2-char comment sequence
+  (modify-syntax-entry ?   "  1" csh-mode-syntax-table) ; 
+
+  ;; \t - whitespace, first character of 2-char comment sequence
+  (modify-syntax-entry ?\t "  1" csh-mode-syntax-table) ; # -word constituent
+
+  ;; # - word constituent, second character of 2-char comment sequence
+  (modify-syntax-entry ?#  "w 2" csh-mode-syntax-table) ; # -word constituent
+  )
+
+
+;;
+;; ------------------------------------------------------------------> Functions
+;;
+(defun csh-current-line ()
+  "Return the vertical position of point in the buffer.
+Top line is 1."
+  (+ (count-lines (point-min) (point))
+     (if (= (current-column) 0) 1 0))
+  )
+
+(defun csh-get-compound-level 
+  (begin-re end-re anchor-point &optional balance-list)
+  "Determine how much to indent this structure. Return a list (level line) 
+of the matching compound command or nil if no match found."
+  (let* 
+      (;; Locate the next compound begin keyword bounded by point-min
+       (match-point (if (re-search-backward begin-re (point-min) t)
+			(match-beginning 0) 0))
+       (nest-column (if (zerop match-point)
+			1 
+		      (progn
+			(goto-char match-point)
+			(current-indentation))))
+       (nest-list (cons 0 0))    ;; sentinel cons since cdr is >= 1
+       )
+    (if (zerop match-point)
+	nil ;; graceful exit from recursion
+      (progn
+	(if (nlistp balance-list)
+	    (setq balance-list (list)))
+	;; Now search forward from matching start keyword for end keyword
+	(while (and (consp nest-list) (zerop (cdr nest-list))
+		    (re-search-forward end-re anchor-point t))
+	  (if (not (memq (point) balance-list))
+	      (progn
+		(setq balance-list (cons (point) balance-list))
+		(goto-char match-point)  ;; beginning of compound cmd
+		(setq nest-list
+		      (csh-get-compound-level begin-re end-re
+					     anchor-point balance-list))
+		)))
+
+	(cond ((consp nest-list)
+	       (if (zerop (cdr nest-list))
+		 (progn
+		   (goto-char match-point)
+		   (cons nest-column (csh-current-line)))
+		 nest-list))
+	      (t nil)
+	      )
+	)
+      )
+    )
+  )
+
+(defun csh-get-nest-level ()
+  "Return a 2 element list (nest-level nest-line) describing where the
+current line should nest."
+  (let ((case-fold-search)
+    	(level))
+    (save-excursion
+      (forward-line -1)
+      (while (and (not (bobp))
+		  (null level))
+	(if (and (not (looking-at "^\\s *$"))
+ 		 (not (save-excursion
+ 			(forward-line -1)
+ 			(beginning-of-line)
+			(looking-at csh-multiline-re)))
+		 (not (looking-at csh-comment-regexp)))
+	    (setq level (cons (current-indentation)
+			      (csh-current-line)))
+	  (forward-line -1)
+	  );; if
+	);; while
+      (if (null level)
+	  (cons (current-indentation) (csh-current-line))
+	level)
+      )
+    )
+  )
+
+(defun csh-get-nester-column (nest-line)
+  "Return the column to indent to with respect to nest-line taking 
+into consideration keywords and other nesting constructs."
+  (save-excursion 
+    (let ((fence-post)
+	  (case-fold-search)
+	  (start-line (csh-current-line)))
+      ;;
+      ;; Handle case item indentation constructs for this line
+      (cond ((looking-at csh-case-item-re)
+	     ;; This line is a case item...
+	     (save-excursion
+	       (goto-line nest-line)
+	       (let ((fence-post (save-excursion (end-of-line) (point))))
+		 (cond ((re-search-forward csh-switch-re fence-post t)
+			;; If this is the first case under the switch, indent.
+			(goto-char (match-beginning 0))
+			(+ (current-indentation) csh-case-item-offset))
+
+		       ((re-search-forward csh-case-item-re fence-post t)
+			;; If this is another case right under a previous case
+			;; without intervening code, stay at the same
+			;; indentation. 
+			(goto-char (match-beginning 0))
+			(current-indentation))
+		       
+		       (t
+			;; Else, this is a new case.  Outdent.
+			(- (current-indentation) csh-case-item-offset))
+		       )
+		 )))
+	    (t;; Not a case-item.  What to do relative to the nest-line?
+	     (save-excursion
+	       (goto-line nest-line)
+	       (setq fence-post (save-excursion (end-of-line) (point)))
+	       (save-excursion
+		 (cond
+		  ;;
+		  ;; Check if we are in a continued statement
+		  ((and (looking-at csh-multiline-re)
+			(save-excursion
+			  (goto-line (1- start-line))
+			  (looking-at csh-multiline-re)))
+		   (if (looking-at ".*[\'\"]\\\\")
+		       ;; If this is a continued string, indent under
+		       ;; opening quote.
+		       (progn
+			 (re-search-forward "[\'\"]")
+			 (forward-char -1))
+		     (if (looking-at ".*([^\)\n]*\\\\")
+			 ;; Else if this is a continued parenthesized
+			 ;; list, indent after paren.
+			 (re-search-forward "(" fence-post t)
+		       ;; Else, indent after whitespace after first word.
+		       (re-search-forward "[^ \t]+[ \t]+" fence-post t)))
+		   (current-column))
+		  
+		  ;; In order to locate the column of the keyword,
+		  ;; which might be embedded within a case-item,
+		  ;; it is necessary to use re-search-forward.
+		  ;; Search by literal case, since shell is
+		  ;; case-sensitive.
+		  ((re-search-forward csh-keywords-re fence-post t)
+		   (goto-char (match-beginning 1))
+		   (if (looking-at csh-switch-re)
+		       (+ (current-indentation) csh-case-item-offset)
+		     (+ (current-indentation)
+			(if (null csh-indent)
+			    2 csh-indent)
+			)))
+		  
+		  ((re-search-forward csh-case-default-re fence-post t)  
+		   (if (null csh-indent)
+		       (progn 
+			 (goto-char (match-end 1))
+			 (+ (current-indentation) 1))
+		     (progn
+		       (goto-char (match-beginning 1))
+		       (+ (current-indentation) csh-indent))
+		     ))
+		  
+		  ;;
+		  ;; Now detect first statement under a case item
+		  ((looking-at csh-case-item-re)
+		   (if (null csh-case-indent)
+		       (progn
+			 (re-search-forward csh-case-item-re fence-post t)
+			 (goto-char (match-end 1))
+			 (+ (current-column) 1))
+		     (+ (current-indentation) csh-case-indent)))
+		  
+		  ;;
+		  ;; If this is the first statement under a control-flow
+		  ;; label, indent one level. 
+		  ((csh-looking-at-label)
+		   (+ (current-indentation) csh-indent))
+		  
+		  ;; This is hosed when using current-column
+		  ;; and there is a multi-command expression as the
+		  ;; nester.
+		  (t (current-indentation)))
+		 )
+	       ));; excursion over
+	    );; Not a case-item
+      );;let
+    );; excursion
+  );; defun
+
+(defun csh-indent-command ()
+  "Indent current line relative to containing block and allow for
+csh-tab-always-indent customization"
+  (interactive)
+  (let (case-fold-search)
+    (cond ((save-excursion
+	     (skip-chars-backward " \t")
+	     (bolp))
+	   (csh-indent-line))
+	  (csh-tab-always-indent
+	   (save-excursion
+	     (csh-indent-line)))
+	  (t (insert-tab))
+	  ))
+  )
+
+(defun csh-indent-line ()
+  "Indent current line as far as it should go according
+to the syntax/context"
+  (interactive)
+  (let (case-fold-search)
+    (save-excursion
+      (beginning-of-line)
+      (if (bobp)
+	  nil
+	;;
+	;; Align this line to current nesting level
+	(let*
+	    (
+	     (level-list (csh-get-nest-level)) ; Where to nest against
+	     ;;           (last-line-level (car level-list))
+	     (this-line-level (current-indentation))
+	     (nester-column (csh-get-nester-column (cdr level-list)))
+	     (struct-match (csh-match-structure-and-reindent))
+	     )
+	  (if struct-match
+	      (setq nester-column struct-match))
+	  (if (eq nester-column this-line-level)
+	      nil
+	    (beginning-of-line)
+	    (let ((beg (point)))
+	      (back-to-indentation)
+	      (delete-region beg (point)))
+	    (indent-to nester-column))
+	  );; let*
+	);; if
+      );; excursion
+    ;;
+    ;; Position point on this line
+    (let*
+	(
+	 (this-line-level (current-indentation))
+	 (this-bol (save-excursion
+		     (beginning-of-line)
+		     (point)))
+	 (this-point (- (point) this-bol))
+	 )
+      (cond ((> this-line-level this-point);; point in initial white space
+	     (back-to-indentation))
+	    (t nil)
+	    );; cond
+      );; let*
+    );; let
+  );; defun
+
+(defun csh-indent-region (start end)
+  "From start to end, indent each line."
+  ;; The algorithm is just moving through the region line by line with
+  ;; the match noise turned off.  Only modifies nonempty lines.
+  (save-excursion
+    (let (csh-match-and-tell
+	  (endmark (copy-marker end)))
+      
+      (goto-char start)
+      (beginning-of-line)
+      (setq start (point))
+      (while (> (marker-position endmark) start)
+	(if (not (and (bolp) (eolp)))
+	    (csh-indent-line))
+	(forward-line 1)
+	(setq start (point)))
+
+      (set-marker endmark nil)
+      )
+    )
+  )
+
+(defun csh-line-to-string ()
+  "From point, construct a string from all characters on
+current line"
+  (skip-chars-forward " \t") ;; skip tabs as well as spaces
+  (buffer-substring (point)
+                    (progn
+                      (end-of-line 1)
+                      (point))))
+
+(defun csh-looking-at-label ()
+  "Return true if current line is a label (not the default: case label)."
+  (and
+   (looking-at csh-label-re)
+   (not (looking-at "^\\s *default:"))))
+
+(defun csh-match-indent-level (begin-re end-re)
+  "Match the compound command and indent. Return nil on no match,
+indentation to use for this line otherwise."
+  (interactive)
+  (let* ((case-fold-search)
+	 (nest-list 
+	  (save-excursion
+	    (csh-get-compound-level begin-re end-re (point))
+	    ))
+	 ) ;; bindings
+    (if (null nest-list)
+	(progn
+	  (if csh-match-and-tell
+	      (message "No matching compound command"))
+	  nil) ;; Propagate a miss.
+      (let* (
+	     (nest-level (car nest-list))
+	     (match-line (cdr nest-list))
+	     ) ;; bindings
+	(if csh-match-and-tell
+	    (save-excursion
+	      (goto-line match-line)
+	      (message "Matched ... %s" (csh-line-to-string))
+	      ) ;; excursion
+	  ) ;; if csh-match-and-tell
+	nest-level ;;Propagate a hit.
+	) ;; let*
+      ) ;; if
+    ) ;; let*
+  ) ;; defun csh-match-indent-level
+
+(defun csh-match-structure-and-reindent ()
+  "If the current line matches one of the indenting keywords
+or one of the control structure ending keywords then reindent. Also
+if csh-match-and-tell is non-nil the matching structure will echo in
+the minibuffer"
+  (interactive)
+  (let (case-fold-search)
+    (save-excursion
+      (beginning-of-line)
+      (cond ((looking-at csh-else-re)
+	     (csh-match-indent-level csh-if-re csh-endif-re))
+	    ((looking-at csh-else-if-re)
+	     (csh-match-indent-level csh-if-re csh-endif-re))
+	    ((looking-at csh-endif-re)
+	     (csh-match-indent-level csh-if-re csh-endif-re))
+	    ((looking-at csh-end-re)
+	     (csh-match-indent-level csh-iteration-keywords-re csh-end-re))
+	    ((looking-at csh-endsw-re)
+	     (csh-match-indent-level csh-switch-re csh-endsw-re))
+	    ((csh-looking-at-label)
+	     ;; Flush control-flow labels left since they don't nest.
+	     0)
+	    ;;
+	    (t nil)
+	    );; cond
+      )
+    ))
+
+;;;###autoload
+(defun csh-mode ()
+  "csh-mode 2.0 - Major mode for editing csh and tcsh scripts.
+Special key bindings and commands:
+\\{csh-mode-map}
+Variables controlling indentation style:
+csh-indent
+    Indentation of csh statements with respect to containing block.
+    Default value is 4.
+csh-case-indent
+    Additional indentation for statements under case items.
+    Default value is nil which will align the statements one position 
+    past the \")\" of the pattern.
+csh-case-item-offset
+    Additional indentation for case items within a case statement.
+    Default value is 2.
+csh-tab-always-indent
+    Controls the operation of the TAB key. If t (the default), always
+    reindent the current line.  If nil, indent the current line only if
+    point is at the left margin or in the line's indentation; otherwise
+    insert a tab.
+csh-match-and-tell
+    If non-nil echo in the minibuffer the matching compound command
+    for the \"done\", \"}\", \"fi\", or \"endsw\". Default value is t.
+
+csh-comment-regexp
+  Regular expression used to recognize comments. Customize to support
+  csh-like languages. Default value is \"\^\\\\s *#\".
+
+Style Guide.
+ By setting
+    (setq csh-indent default-tab-width)
+
+    The following style is obtained:
+
+    if [ -z $foo ]
+	    then
+		    bar    # <-- csh-group-offset is additive to csh-indent
+		    foo
+    fi
+
+ By setting
+    (setq csh-indent default-tab-width)
+    (setq csh-group-offset (- 0 csh-indent))
+
+    The following style is obtained:
+
+    if [ -z $foo ]
+    then
+	    bar
+	    foo
+    fi
+
+ By setting
+    (setq csh-case-item-offset 1)
+    (setq csh-case-indent nil)
+
+    The following style is obtained:
+
+    case x in *
+     foo) bar           # <-- csh-case-item-offset
+          baz;;         # <-- csh-case-indent aligns with \")\"
+     foobar) foo
+             bar;;
+    endsw
+
+ By setting
+    (setq csh-case-item-offset 1)
+    (setq csh-case-indent 6)
+
+    The following style is obtained:
+
+    case x in *
+     foo) bar           # <-- csh-case-item-offset
+           baz;;        # <-- csh-case-indent
+     foobar) foo
+           bar;;
+    endsw
+    
+
+Installation:
+  Put csh-mode.el in some directory in your load-path.
+  Put the following forms in your .emacs file.
+
+ (setq auto-mode-alist
+      (append auto-mode-alist
+              (list
+               '(\"\\\\.csh$\" . csh-mode)
+               '(\"\\\\.login\" . csh-mode))))
+
+ (setq csh-mode-hook
+      (function (lambda ()
+         (font-lock-mode 1)             ;; font-lock the buffer
+         (setq csh-indent 8)
+         (setq csh-tab-always-indent t)
+         (setq csh-match-and-tell t)
+         (setq csh-align-to-keyword t)	;; Turn on keyword alignment
+	 )))"
+  (interactive)
+  (kill-all-local-variables)
+  (use-local-map csh-mode-map)
+  (setq major-mode 'csh-mode)
+  (setq mode-name "Csh")
+  (setq local-abbrev-table csh-mode-abbrev-table)
+  (set-syntax-table csh-mode-syntax-table)
+  (make-local-variable 'indent-line-function)
+  (setq indent-line-function 'csh-indent-line)
+  (make-local-variable 'indent-region-function)
+  (setq indent-region-function 'csh-indent-region)
+  (make-local-variable 'comment-start)
+  (setq comment-start "# ")
+  (make-local-variable 'comment-end)
+  (setq comment-end "")
+  (make-local-variable 'comment-column)
+  (setq comment-column 32)
+  (make-local-variable 'comment-start-skip)
+  (setq comment-start-skip "#+ *")
+  ;;
+  ;; config font-lock mode
+  (make-local-variable 'font-lock-keywords) 
+  (setq font-lock-keywords csh-font-lock-keywords)
+  ;;
+  ;; Let the user customize
+  (run-hooks 'csh-mode-hook)
+  ) ;; defun
+
+;;
+;; Completion code supplied by Haavard Rue <hrue@imf.unit.no>.
+;;
+;;
+;; add a completion with a given type to the list
+;;
+(defun csh-addto-alist (completion type)
+  (setq csh-completion-list
+	(append csh-completion-list
+		(list (cons completion type)))))
+
+(defun csh-bol-point ()
+  (save-excursion
+    (beginning-of-line)
+    (point)))
+
+(defun csh-complete-symbol ()
+  "Perform completion."
+  (interactive)
+  (let* ((case-fold-search)
+	 (end (point))
+         (beg (unwind-protect
+                  (save-excursion
+                    (backward-sexp 1)
+                    (while (= (char-syntax (following-char)) ?\')
+                      (forward-char 1))
+                    (point))))
+         (pattern (buffer-substring beg end))
+	 (predicate 
+	  ;;
+	  ;; ` or $( mark a function
+	  ;;
+	  (save-excursion
+	    (goto-char beg)
+	    (if (or
+		 (save-excursion
+		   (backward-char 1)
+		   (looking-at "`"))
+		 (save-excursion
+		   (backward-char 2)
+		   (looking-at "\\$(")))
+		(function (lambda (sym)
+			    (equal (cdr sym) csh-completion-type-function)))
+	      ;;
+	      ;; a $, ${ or ${# mark a variable
+	      ;;
+	      (if (or
+		   (save-excursion
+		     (backward-char 1)
+		     (looking-at "\\$"))
+		   (save-excursion
+		     (backward-char 2)
+		     (looking-at "\\${"))
+		   (save-excursion
+		     (backward-char 3)
+		     (looking-at "\\${#")))
+		  (function (lambda (sym)
+			      (equal (cdr sym)
+				     csh-completion-type-var)))
+		;;
+		;; don't know. use 'em all
+		;;
+		(function (lambda (sym) t))))))
+	 ;;
+	 (completion (try-completion pattern csh-completion-list predicate)))
+    ;;
+    (cond ((eq completion t))
+	  ;;
+	  ;; oops, what is this ?
+	  ;;
+          ((null completion)
+           (message "Can't find completion for \"%s\"" pattern))
+	  ;;
+	  ;; insert
+	  ;;
+          ((not (string= pattern completion))
+           (delete-region beg end)
+           (insert completion))
+	  ;;
+	  ;; write possible completion in the minibuffer,
+	  ;; use this instead of a seperate buffer (usual)
+	  ;;
+          (t
+           (let ((list (all-completions pattern csh-completion-list predicate))
+		 (string ""))
+	     (while list
+	       (progn
+		 (setq string (concat string (format "%s " (car list))))
+		 (setq list (cdr list))))
+	     (message string))))))
+
+;;
+;; init the list and pickup all 
+;;
+(defun csh-completion-init-and-pickup ()
+  (interactive)
+  (let (case-fold-search)
+    (csh-completion-list-init)
+    (csh-pickup-all)))
+
+;;
+;; init the list
+;;
+(defun csh-completion-list-init ()
+  (interactive)
+  (setq csh-completion-list
+	(list
+	 (cons "break"  csh-completion-type-misc)
+	 (cons "breaksw"  csh-completion-type-misc)
+	 (cons "case"  csh-completion-type-misc)
+	 (cons "continue"  csh-completion-type-misc)
+	 (cons "endif"  csh-completion-type-misc)
+	 (cons "exit"  csh-completion-type-misc)
+	 (cons "foreach"  csh-completion-type-misc)
+	 (cons "if"  csh-completion-type-misc)
+	 (cons "while"  csh-completion-type-misc))))
+
+(defun csh-eol-point ()
+  (save-excursion
+    (end-of-line)
+    (point)))
+
+(defun csh-pickup-all ()
+  "Pickup all completions in buffer."
+  (interactive)
+  (csh-pickup-completion-driver (point-min) (point-max) t))
+
+(defun csh-pickup-completion (regexp type match pmin pmax)
+  "Pickup completion in region and addit to the list, if not already
+there." 
+  (let ((i 0) kw obj)
+    (save-excursion
+      (goto-char pmin)
+      (while (and
+	      (re-search-forward regexp pmax t)
+	      (match-beginning match)
+	      (setq kw  (buffer-substring
+			 (match-beginning match)
+			 (match-end match))))
+	(progn
+	  (setq obj (assoc kw csh-completion-list))
+	  (if (or (equal nil obj)
+		  (and (not (equal nil obj))
+		       (not (= type (cdr obj)))))
+	      (progn
+		(setq i (1+ i))
+		(csh-addto-alist kw type))))))
+    i))
+
+(defun csh-pickup-completion-driver (pmin pmax message)
+  "Driver routine for csh-pickup-completion."
+  (if message
+      (message "pickup completion..."))
+  (let* (
+	 (i1
+	  (csh-pickup-completion  csh-completion-regexp-var
+				 csh-completion-type-var
+				 csh-completion-match-var
+				 pmin pmax))
+	 (i2
+	  (csh-pickup-completion  csh-completion-regexp-var2
+				 csh-completion-type-var
+				 csh-completion-match-var2
+				 pmin pmax))
+	 (i3
+	  (csh-pickup-completion  csh-completion-regexp-function
+				 csh-completion-type-function
+				 csh-completion-match-function
+				 pmin pmax)))
+    (if message
+	(message "pickup %d variables and %d functions." (+ i1 i2) i3))))
+
+(defun csh-pickup-this-line ()
+  "Pickup all completions in current line."
+  (interactive)
+  (csh-pickup-completion-driver (csh-bol-point) (csh-eol-point) nil))
+
+
+(provide 'csh-mode)
+;;; csh-mode.el ends here

contrib/tcsh/ed.decls.h

@@ -0,0 +1,274 @@
+/* $Header: /src/pub/tcsh/ed.decls.h,v 3.28 1998/09/04 21:16:38 christos Exp $ */
+/*
+ * ed.decls.h: Editor external definitions
+ */
+/*-
+ * Copyright (c) 1980, 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+#ifndef _h_ed_decls
+#define _h_ed_decls
+
+/*
+ * ed.chared.c
+ */
+extern	int	InsertStr		__P((Char *));
+extern	void	DeleteBack		__P((int));
+
+/*
+ * ed.init.c
+ */
+#ifdef SIG_WINDOW
+extern	void	check_window_size	__P((int));
+extern	sigret_t window_change		__P((int));
+#endif /* SIG_WINDOW */
+extern	int	ed_Setup		__P((int));
+extern	void	ed_Init			__P((void));
+extern	int	Cookedmode		__P((void));
+extern	int	Rawmode			__P((void));
+extern	void	ed_set_tty_eight_bit	__P((void));
+
+extern	void	QuoteModeOn		__P((void));
+extern	void	QuoteModeOff		__P((void));
+extern	void	ResetInLine		__P((int));
+extern	int	Load_input_line		__P((void));
+
+/*
+ * ed.term.c:
+ */
+extern	void	dosetty			__P((Char **, struct command *));
+extern	int	tty_getty 		__P((int, ttydata_t *));
+extern	int	tty_setty 		__P((int, ttydata_t *));
+extern	void	tty_getchar 		__P((ttydata_t *, unsigned char *));
+extern	void	tty_setchar 		__P((ttydata_t *, unsigned char *));
+extern	speed_t	tty_getspeed 		__P((ttydata_t *));
+extern	int	tty_gettabs 		__P((ttydata_t *));
+extern	int	tty_geteightbit		__P((ttydata_t *));
+extern	int	tty_cooked_mode		__P((ttydata_t *));
+#ifdef _IBMR2
+extern	void	tty_setdisc		__P((int, int));
+#endif /* _IBMR2 */
+
+/*
+ * ed.screen.c
+ */
+extern	void	terminit		__P((void));
+extern	void	SetAttributes		__P((int));
+extern	void	so_write		__P((Char *, int));
+extern	void	ClearScreen		__P((void));
+extern	void	MoveToLine		__P((int));
+extern	void	MoveToChar		__P((int));
+extern	void	ClearEOL		__P((int));
+extern	void	Insert_write		__P((Char *, int));
+extern	void	DeleteChars		__P((int));
+extern	void	TellTC			__P((char *));
+extern	void	SetTC			__P((char *, char *));
+extern	void	EchoTC			__P((Char **));
+extern	int 	SetArrowKeys		__P((CStr *, XmapVal *, int));
+extern	int 	IsArrowKey		__P((Char *));
+extern	void	ResetArrowKeys		__P((void));
+extern	void	DefaultArrowKeys	__P((void));
+extern	int 	ClearArrowKeys		__P((CStr *));
+extern	void 	PrintArrowKeys		__P((CStr *));
+extern	void	BindArrowKeys		__P((void));
+extern	void	SoundBeep		__P((void));
+extern	int	CanWeTab		__P((void));
+extern	void	ChangeSize		__P((int, int));
+#ifdef SIG_WINDOW
+extern	int	GetSize			__P((int *, int *));
+#endif /* SIG_WINDOW */
+extern	void	ClearToBottom		__P((void));
+extern	void	GetTermCaps		__P((void));
+
+/*
+ * ed.defns.c
+ */
+extern	void	editinit		__P((void));
+extern	void	ed_InitNLSMaps		__P((void));
+#ifdef DEBUG_EDIT
+extern	void	CheckMaps		__P((void));
+#endif
+extern	void	ed_InitMaps		__P((void));
+extern	void	ed_InitEmacsMaps	__P((void));
+extern	void	ed_InitVIMaps		__P((void));
+
+extern  CCRETVAL	e_unassigned		__P((int));
+extern	CCRETVAL	e_insert		__P((int));
+extern	CCRETVAL	e_newline		__P((int));
+extern	CCRETVAL	e_delprev		__P((int));
+extern	CCRETVAL	e_delnext		__P((int));
+/* added by mtk@ari.ncl.omron.co.jp (920818) */
+extern	CCRETVAL	e_delnext_eof		__P((int));	
+extern	CCRETVAL	e_delnext_list		__P((int));
+extern	CCRETVAL	e_delnext_list_eof	__P((int));	/* for ^D */
+extern	CCRETVAL	e_toend			__P((int));
+extern	CCRETVAL	e_tobeg			__P((int));
+extern	CCRETVAL	e_charback		__P((int));
+extern	CCRETVAL	e_charfwd		__P((int));
+extern	CCRETVAL	e_quote			__P((int));
+extern	CCRETVAL	e_startover		__P((int));
+extern	CCRETVAL	e_redisp		__P((int));
+extern	CCRETVAL	e_wordback		__P((int));
+extern	CCRETVAL	e_wordfwd		__P((int));
+extern	CCRETVAL	v_wordbegnext		__P((int));
+extern	CCRETVAL	e_uppercase		__P((int));
+extern	CCRETVAL	e_lowercase		__P((int));
+extern	CCRETVAL	e_capitolcase		__P((int));
+extern	CCRETVAL	e_cleardisp		__P((int));
+extern	CCRETVAL	e_complete		__P((int));
+extern	CCRETVAL	e_correct		__P((int));
+extern	CCRETVAL	e_correctl		__P((int));
+extern	CCRETVAL	e_up_hist		__P((int));
+extern	CCRETVAL	e_down_hist		__P((int));
+extern	CCRETVAL	e_up_search_hist	__P((int));
+extern	CCRETVAL	e_down_search_hist	__P((int));
+extern	CCRETVAL	e_helpme		__P((int));
+extern	CCRETVAL	e_list_choices		__P((int));
+extern	CCRETVAL	e_delwordprev		__P((int));
+extern	CCRETVAL	e_delwordnext		__P((int));
+extern	CCRETVAL	e_digit			__P((int));
+extern	CCRETVAL	e_argdigit		__P((int));
+extern	CCRETVAL	v_zero			__P((int));
+extern	CCRETVAL	e_killend		__P((int));
+extern	CCRETVAL	e_killbeg		__P((int));
+extern	CCRETVAL	e_metanext		__P((int));
+#ifdef notdef
+extern	CCRETVAL	e_extendnext		__P((int));
+#endif
+extern	CCRETVAL	e_send_eof		__P((int));
+extern	CCRETVAL	e_charswitch		__P((int));
+extern	CCRETVAL	e_gcharswitch		__P((int));
+extern	CCRETVAL	e_which			__P((int));
+extern	CCRETVAL	e_yank_kill		__P((int));
+extern	CCRETVAL	e_tty_dsusp		__P((int));
+extern	CCRETVAL	e_tty_flusho		__P((int));
+extern	CCRETVAL	e_tty_quit		__P((int));
+extern	CCRETVAL	e_tty_tsusp		__P((int));
+extern	CCRETVAL	e_tty_stopo		__P((int));
+extern	CCRETVAL	e_tty_starto		__P((int));
+extern	CCRETVAL	e_argfour		__P((int));
+extern	CCRETVAL	e_set_mark		__P((int));
+extern	CCRETVAL	e_exchange_mark		__P((int));
+extern	CCRETVAL	e_last_item		__P((int));
+extern	CCRETVAL	v_cmd_mode		__P((int));
+extern	CCRETVAL	v_insert		__P((int));
+extern	CCRETVAL	v_replmode		__P((int));
+extern	CCRETVAL	v_replone		__P((int));
+extern	CCRETVAL	v_substline		__P((int));
+extern	CCRETVAL	v_substchar		__P((int));
+extern	CCRETVAL	v_add			__P((int));
+extern	CCRETVAL	v_addend		__P((int));
+extern	CCRETVAL	v_insbeg		__P((int));
+extern	CCRETVAL	v_chgtoend		__P((int));
+extern	CCRETVAL	e_killregion		__P((int));
+extern	CCRETVAL	e_killall		__P((int));
+extern	CCRETVAL	e_copyregion		__P((int));
+extern	CCRETVAL	e_tty_int		__P((int));
+extern	CCRETVAL	e_run_fg_editor		__P((int));
+extern	CCRETVAL	e_list_eof		__P((int));
+extern	CCRETVAL	e_expand_history	__P((int));
+extern	CCRETVAL	e_magic_space		__P((int));
+extern	CCRETVAL	e_list_glob		__P((int));
+extern	CCRETVAL	e_expand_glob		__P((int));
+extern	CCRETVAL	e_insovr		__P((int));
+extern	CCRETVAL	v_cm_complete		__P((int));
+extern	CCRETVAL	e_copyprev		__P((int));
+extern	CCRETVAL	v_change_case		__P((int));
+extern	CCRETVAL	e_expand		__P((int));
+extern	CCRETVAL	e_expand_vars		__P((int));
+extern	CCRETVAL	e_toggle_hist		__P((int));
+extern  CCRETVAL        e_load_average		__P((int));
+extern  CCRETVAL        v_delprev		__P((int));
+extern  CCRETVAL        v_delmeta		__P((int));
+extern  CCRETVAL        v_wordfwd		__P((int));
+extern  CCRETVAL        v_wordback		__P((int));
+extern  CCRETVAL        v_endword		__P((int));
+extern  CCRETVAL        v_eword			__P((int));
+extern  CCRETVAL        v_undo			__P((int));
+extern  CCRETVAL        v_ush_meta		__P((int));
+extern  CCRETVAL        v_dsh_meta		__P((int));
+extern  CCRETVAL        v_rsrch_fwd		__P((int));
+extern  CCRETVAL        v_rsrch_back		__P((int));
+extern  CCRETVAL        v_char_fwd		__P((int));
+extern  CCRETVAL        v_char_back		__P((int));
+extern  CCRETVAL        v_chgmeta		__P((int));
+extern	CCRETVAL	e_inc_fwd		__P((int));
+extern	CCRETVAL	e_inc_back		__P((int));
+extern	CCRETVAL	v_rchar_fwd		__P((int));
+extern	CCRETVAL	v_rchar_back		__P((int));
+extern  CCRETVAL        v_charto_fwd		__P((int));
+extern  CCRETVAL        v_charto_back		__P((int));
+extern  CCRETVAL        e_normalize_path	__P((int));
+extern  CCRETVAL        e_normalize_command	__P((int));
+extern  CCRETVAL        e_stuff_char		__P((int));
+extern  CCRETVAL        e_list_all		__P((int));
+extern  CCRETVAL        e_complete_all		__P((int));
+extern  CCRETVAL        e_complete_fwd		__P((int));
+extern  CCRETVAL        e_complete_back		__P((int));
+extern  CCRETVAL        e_dabbrev_expand	__P((int));
+extern  CCRETVAL	e_copy_to_clipboard	__P((int));
+extern  CCRETVAL	e_paste_from_clipboard	__P((int));
+extern  CCRETVAL	e_dosify_next		__P((int));
+extern  CCRETVAL	e_dosify_prev		__P((int));
+
+/*
+ * ed.inputl.c
+ */
+extern	int	Inputl			__P((void));
+extern	int	GetNextChar		__P((Char *));
+extern	void	PushMacro		__P((Char *));
+
+/*
+ * ed.refresh.c
+ */
+extern	void	ClearLines		__P((void));
+extern	void	ClearDisp		__P((void));
+extern	void	Refresh			__P((void));
+extern	void	RefCursor		__P((void));
+extern	void	RefPlusOne		__P((void));
+extern	void	PastBottom		__P((void));
+
+/*
+ * ed.xmap.c
+ */
+extern  XmapVal *XmapStr		__P((CStr *));
+extern  XmapVal *XmapCmd		__P((int));
+extern	void	 AddXkey		__P((CStr *, XmapVal *, int));
+extern	void	 ClearXkey		__P((KEYCMD *, CStr *));
+extern	int	 GetXkey		__P((CStr *, XmapVal *));
+extern	void	 ResetXmap		__P((void));
+extern	int	 DeleteXkey		__P((CStr *));
+extern	void	 PrintXkey		__P((CStr *));
+extern	int	 printOne		__P((CStr *, XmapVal *, int));
+extern	int		  parseescape	__P((const Char **));
+extern	unsigned char    *unparsestring	__P((CStr *, unsigned char *, Char *));
+
+#endif /* _h_ed_decls */

contrib/tcsh/ed.h

@@ -0,0 +1,254 @@
+/* $Header: /src/pub/tcsh/ed.h,v 3.28 1998/11/24 18:17:21 christos Exp $ */
+/*
+ * ed.h: Editor declarations and globals
+ */
+/*-
+ * Copyright (c) 1980, 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+#ifndef _h_ed
+#define _h_ed
+
+#ifndef EXTERN
+# define EXTERN extern
+#endif
+
+#define TABSIZE		8	/* usually 8 spaces/tab */
+#define MAXMACROLEVELS	10	/* max number of nested kbd macros */
+
+#ifndef WINNT
+# define NT_NUM_KEYS	256
+#endif /* WINNT */
+
+extern int errno;
+
+/****************************************************************************/
+/* stuff for the different states returned by the character editor routines */
+/****************************************************************************/
+
+#define CCRETVAL	char	/* size needed for the different char editor */
+ /* return values */
+
+#define KEYCMD   unsigned char	/* size needed to index into CcFuncTbl */
+ /* Must be unsigned 		       */
+
+typedef CCRETVAL(*PFCmd) __P((int));	/* pointer to function returning CCRETVAL */
+
+struct KeyFuncs {		/* for the "bind" shell command */
+    char   *name;		/* function name for bind command */
+    int     func;		/* function numeric value */
+    char   *desc;		/* description of function */
+};
+
+extern PFCmd CcFuncTbl[];	/* table of available commands */
+extern KEYCMD CcKeyMap[];	/* keymap table, each index into above tbl */
+extern KEYCMD CcAltMap[];	/* Alt keymap table */
+extern KEYCMD CcEmacsMap[];	/* keymap table for Emacs default bindings */
+extern KEYCMD CcViCmdMap[];	/* for Vi command mode defaults */
+extern struct KeyFuncs FuncNames[];	/* string names vs. CcFuncTbl indices */
+
+extern KEYCMD NumFuns;		/* number of KEYCMDs in above table */
+
+#define	CC_ERROR		100	/* there should NOT be 100 different... */
+#define CC_FATAL		101	/* fatal error: inconsistant, must
+					 * reset */
+#define	CC_NORM			0
+#define	CC_NEWLINE		1
+#define	CC_EOF			2
+#define	CC_COMPLETE		3
+#define	CC_LIST_CHOICES		4
+#define	CC_LIST_GLOB		5
+#define CC_EXPAND_GLOB		6
+#define	CC_HELPME		9
+#define CC_CORRECT		10
+#define CC_WHICH		11
+#define CC_ARGHACK		12
+#define CC_CORRECT_L		13
+#define CC_REFRESH		14
+#define CC_EXPAND_VARS		15
+#define CC_NORMALIZE_PATH	16
+#define CC_LIST_ALL		17
+#define CC_COMPLETE_ALL		18
+#define CC_COMPLETE_FWD		19
+#define CC_COMPLETE_BACK	20
+#define CC_NORMALIZE_COMMAND	21
+
+typedef struct {
+    Char *buf;
+    int   len;
+} CStr;
+
+typedef union Xmapval {		/* value passed to the Xkey routines */
+    KEYCMD cmd;
+    CStr str;
+} XmapVal;
+
+#define XK_NOD	-1		/* Internal tree node */
+#define XK_CMD	 0		/* X-key was an editor command */
+#define XK_STR	 1		/* X-key was a string macro */
+#define XK_EXE	 2		/* X-key was a unix command */
+
+/****************************/
+/* Editor state and buffers */
+/****************************/
+
+EXTERN KEYCMD *CurrentKeyMap;	/* current command key map */
+EXTERN int inputmode;		/* insert, replace, replace1 mode */
+EXTERN Char GettingInput;	/* true if getting an input line (mostly) */
+EXTERN Char NeedsRedraw;	/* for editor and twenex error messages */
+EXTERN Char InputBuf[INBUFSIZE];	/* the real input data */
+EXTERN Char *LastChar, *Cursor;	/* point to the next open space */
+EXTERN Char *InputLim;		/* limit of size of InputBuf */
+EXTERN Char MetaNext;		/* flags for ^V and ^[ functions */
+EXTERN Char AltKeyMap;		/* Using alternative command map (for vi mode) */
+EXTERN Char VImode;		/* true if running in vi mode (PWP 6-27-88) */
+EXTERN Char *Mark;		/* the emacs "mark" (dot is Cursor) */
+EXTERN Char DoingArg;		/* true if we have an argument */
+EXTERN int Argument;		/* "universal" argument value */
+EXTERN KEYCMD LastCmd;		/* previous command executed */
+EXTERN Char KillBuf[INBUFSIZE];	/* kill buffer */
+EXTERN Char *LastKill;		/* points to end of kill buffer */
+
+EXTERN Char UndoBuf[INBUFSIZE];
+EXTERN Char *UndoPtr;
+EXTERN int  UndoSize;
+EXTERN int  UndoAction;
+
+EXTERN Char HistBuf[INBUFSIZE];	/* history buffer */
+EXTERN Char *LastHist;		/* points to end of history buffer */
+EXTERN int Hist_num;		/* what point up the history we are at now. */
+EXTERN Char WhichBuf[INBUFSIZE];	/* buffer for which command */
+EXTERN Char *LastWhich;		/* points to end of which buffer */
+EXTERN Char *CursWhich;		/* points to the cursor point in which buf */
+EXTERN int HistWhich;		/* Hist_num is saved in this */
+EXTERN char Expand;		/* true if we are expanding a line */
+extern Char HistLit;		/* true if history lines are shown literal */
+EXTERN Char CurrentHistLit;	/* Literal status of current show history line */
+
+/*
+ * These are truly extern
+ */
+extern int MacroLvl;
+
+EXTERN Char *KeyMacro[MAXMACROLEVELS];
+
+EXTERN Char **Display;		/* display buffer seed vector */
+EXTERN int CursorV,		/* real cursor vertical (line) */
+        CursorH,		/* real cursor horisontal (column) */
+        TermV,			/* number of real screen lines
+				 * (sizeof(DisplayBuf) / width */
+        TermH;			/* screen width */
+EXTERN Char **Vdisplay;		/* new buffer */
+
+/* Variables that describe terminal ability */
+EXTERN int T_Lines, T_Cols;	/* Rows and Cols of the terminal */
+EXTERN Char T_CanIns;		/* true if I can insert characters */
+EXTERN Char T_CanDel;		/* dito for delete characters */
+EXTERN Char T_Tabs;		/* true if tty interface is passing tabs */
+EXTERN Char T_Margin;		
+#define MARGIN_AUTO  1		/* term has auto margins */
+#define MARGIN_MAGIC 2		/* concept glitch */
+EXTERN speed_t T_Speed;		/* Tty input Baud rate */
+EXTERN Char T_CanCEOL;		/* true if we can clear to end of line */
+EXTERN Char T_CanUP;		/* true if this term can do reverse linefeen */
+EXTERN Char T_HasMeta;		/* true if we have a meta key */
+
+/* note the extra characters in the Strchr() call in this macro */
+#define isword(c)	(Isalpha(c)||Isdigit(c)||Strchr(word_chars,c))
+#define min(x,y)	(((x)<(y))?(x):(y))
+#define max(x,y)	(((x)>(y))?(x):(y))
+
+/*
+ * Terminal dependend data structures
+ */
+typedef struct {
+#ifdef WINNT
+    int dummy;
+#else /* !WINNT */
+# if defined(POSIX) || defined(TERMIO)
+#  ifdef POSIX
+    struct termios d_t;
+#  else
+    struct termio d_t;
+#  endif /* POSIX */
+# else /* SGTTY */
+#  ifdef TIOCGETP
+    struct sgttyb d_t;
+#  endif /* TIOCGETP */
+#  ifdef TIOCGETC
+    struct tchars d_tc;
+#  endif /* TIOCGETC */
+#  ifdef TIOCGPAGE
+    struct ttypagestat d_pc;
+#  endif /* TIOCGPAGE */
+#  ifdef TIOCLGET
+    int d_lb;
+#  endif /* TIOCLGET */
+# endif /* POSIX || TERMIO */
+# ifdef TIOCGLTC
+    struct ltchars d_ltc;
+# endif /* TIOCGLTC */
+#endif /* WINNT */
+} ttydata_t;
+
+#define MODE_INSERT	0
+#define MODE_REPLACE	1
+#define MODE_REPLACE_1	2
+
+#define EX_IO	0	/* while we are executing	*/
+#define ED_IO	1	/* while we are editing		*/
+#define TS_IO	2	/* new mode from terminal	*/
+#define QU_IO	2	/* used only for quoted chars	*/
+#define NN_IO	3	/* The number of entries	*/
+
+#if defined(POSIX) || defined(TERMIO)
+# define M_INPUT	0
+# define M_OUTPUT	1
+# define M_CONTROL	2
+# define M_LINED	3
+# define M_CHAR		4
+# define M_NN		5
+#else /* GSTTY */
+# define M_CONTROL	0
+# define M_LOCAL	1
+# define M_CHAR		2
+# define M_NN		3
+#endif /* TERMIO */
+typedef struct { 
+    char *t_name;
+    int  t_setmask;
+    int  t_clrmask;
+} ttyperm_t[NN_IO][M_NN];
+
+extern ttyperm_t ttylist;
+#include "ed.decls.h"
+
+#endif /* _h_ed */

contrib/tcsh/ed.init.c

@@ -0,0 +1,736 @@
+/* $Header: /src/pub/tcsh/ed.init.c,v 3.41 1999/02/06 15:01:16 christos Exp $ */
+/*
+ * ed.init.c: Editor initializations
+ */
+/*-
+ * Copyright (c) 1980, 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTS_ION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+#include "sh.h"
+
+RCSID("$Id: ed.init.c,v 3.41 1999/02/06 15:01:16 christos Exp $")
+
+#include "ed.h"
+#include "ed.term.h"
+#include "tc.h"
+#include "ed.defns.h"
+
+/* ed.init.c -- init routines for the line editor */
+/* #define DEBUG_TTY */
+
+int     Tty_raw_mode = 0;	/* Last tty change was to raw mode */
+int     MacroLvl = -1;		/* pointer to current macro nesting level; */
+				/* (-1 == none) */
+static int Tty_quote_mode = 0;	/* Last tty change was to quote mode */
+static unsigned char vdisable;	/* The value of _POSIX_VDISABLE from 
+				 * pathconf(2) */
+
+int     Tty_eight_bit = -1;	/* does the tty handle eight bits */
+
+extern bool GotTermCaps;
+
+static ttydata_t extty, edtty, tstty;
+#define qutty tstty
+
+extern int insource;
+#define SHTTY (insource ? OLDSTD : SHIN)
+
+#define uc unsigned char
+static unsigned char ttychars[NN_IO][C_NCC] = {
+    {
+	(uc)CINTR,	(uc)CQUIT, 	 (uc)CERASE, 	   (uc)CKILL,	
+	(uc)CEOF, 	(uc)CEOL, 	 (uc)CEOL2, 	   (uc)CSWTCH, 
+	(uc)CDSWTCH,	(uc)CERASE2,	 (uc)CSTART, 	   (uc)CSTOP,
+	(uc)CWERASE, 	(uc)CSUSP, 	 (uc)CDSUSP, 	   (uc)CREPRINT,
+	(uc)CDISCARD, 	(uc)CLNEXT,	 (uc)CSTATUS,	   (uc)CPAGE,
+	(uc)CPGOFF,	(uc)CKILL2, 	 (uc)CBRK, 	   (uc)CMIN,
+	(uc)CTIME
+    },
+    {
+	CINTR, 		 CQUIT, 	  CERASE, 	   CKILL, 
+	_POSIX_VDISABLE, _POSIX_VDISABLE, _POSIX_VDISABLE, _POSIX_VDISABLE, 
+	_POSIX_VDISABLE, CERASE2,	  CSTART, 	   CSTOP, 	   
+	_POSIX_VDISABLE, _POSIX_VDISABLE, _POSIX_VDISABLE, _POSIX_VDISABLE, 
+	CDISCARD, 	 _POSIX_VDISABLE, _POSIX_VDISABLE, _POSIX_VDISABLE, 
+	_POSIX_VDISABLE, _POSIX_VDISABLE, _POSIX_VDISABLE, 1,
+	0
+    },
+    {	
+	0,		 0,		  0,		   0,
+	0,		 0,		  0,		   0,
+	0,		 0,		  0,		   0,
+	0,		 0,		  0,		   0,
+	0,		 0,		  0,		   0,
+	0,		 0,		  0,		   0,
+	0
+    }
+};
+
+#ifdef SIG_WINDOW
+void
+check_window_size(force)
+    int     force;
+{
+#ifdef BSDSIGS
+    sigmask_t omask;
+#endif /* BSDSIGS */
+    int     lins, cols;
+
+    /* don't want to confuse things here */
+#ifdef BSDSIGS
+    omask = sigblock(sigmask(SIG_WINDOW)) & ~sigmask(SIG_WINDOW);
+#else /* BSDSIGS */
+    (void) sighold(SIG_WINDOW);
+#endif /* BSDSIGS */
+    /*
+     * From: bret@shark.agps.lanl.gov (Bret Thaeler) Avoid sunview bug, where a
+     * partially hidden window gets a SIG_WINDOW every time the text is
+     * scrolled
+     */
+    if (GetSize(&lins, &cols) || force) {
+	if (GettingInput) {
+	    ClearLines();
+	    ClearDisp();
+	    MoveToLine(0);
+	    MoveToChar(0);
+	    ChangeSize(lins, cols);
+	    Refresh();
+	}
+	else
+	    ChangeSize(lins, cols);
+    }
+#ifdef BSDSIGS
+    (void) sigsetmask(omask);	/* can change it again */
+#else				/* BSDSIGS */
+    (void) sigrelse(SIG_WINDOW);
+#endif /* BSDSIGS */
+}
+
+sigret_t
+/*ARGSUSED*/
+window_change(snum)
+int snum;
+{
+#ifdef UNRELSIGS 
+    /* If we were called as a signal handler, restore it. */
+    if (snum > 0)
+      sigset(snum, window_change);
+#endif /* UNRELSIGS */
+    check_window_size(0);
+#ifndef SIGVOID
+    return (snum);
+#endif 
+}
+
+#endif /* SIG_WINDOW */
+
+void
+ed_set_tty_eight_bit()
+{
+    if (tty_getty(SHTTY, &extty) == -1) {
+#ifdef DEBUG_TTY
+	xprintf("ed_set_tty_eight_bit: tty_getty: %s\n", strerror(errno));
+#endif /* DEBUG_TTY */
+	return;
+    }
+    Tty_eight_bit = tty_geteightbit(&extty);
+}
+
+			
+int
+ed_Setup(rst)
+    int rst;
+{
+    static int havesetup = 0;
+    struct varent *imode;
+
+    if (havesetup) 	/* if we have never been called */
+	return(0);
+
+#if defined(POSIX) && defined(_PC_VDISABLE) && !defined(BSD4_4) && \
+    !defined(WINNT)
+    { 
+	long pcret;
+
+	if ((pcret = fpathconf(SHTTY, _PC_VDISABLE)) == -1L)
+	    vdisable = (unsigned char) _POSIX_VDISABLE;
+	else 
+	    vdisable = (unsigned char) pcret;
+	if (vdisable != (unsigned char) _POSIX_VDISABLE && rst != 0)
+	    for (rst = 0; rst < C_NCC; rst++) {
+		if (ttychars[ED_IO][rst] == (unsigned char) _POSIX_VDISABLE)
+		    ttychars[ED_IO][rst] = vdisable;
+		if (ttychars[EX_IO][rst] == (unsigned char) _POSIX_VDISABLE)
+		    ttychars[EX_IO][rst] = vdisable;
+	    }
+    }
+#else /* ! POSIX || !_PC_VDISABLE || BSD4_4 || WINNT */
+    vdisable = (unsigned char) _POSIX_VDISABLE;
+#endif /* POSIX && _PC_VDISABLE && !BSD4_4 && !WINNT */
+	
+    if ((imode = adrof(STRinputmode)) != NULL) {
+	if (!Strcmp(*(imode->vec), STRinsert))
+	    inputmode = MODE_INSERT;
+	else if (!Strcmp(*(imode->vec), STRoverwrite))
+	    inputmode = MODE_REPLACE;
+    }
+    else
+	inputmode = MODE_INSERT;
+    ed_InitMaps();
+    Hist_num = 0;
+    Expand = 0;
+
+#ifndef WINNT
+    if (tty_getty(SHTTY, &extty) == -1) {
+# ifdef DEBUG_TTY
+	xprintf("ed_Setup: tty_getty: %s\n", strerror(errno));
+# endif /* DEBUG_TTY */
+	return(-1);
+    }
+
+    tstty = edtty = extty;
+
+    T_Speed = tty_getspeed(&extty);
+    T_Tabs = tty_gettabs(&extty);
+    Tty_eight_bit = tty_geteightbit(&extty);
+
+# if defined(POSIX) || defined(TERMIO)
+    extty.d_t.c_iflag &= ~ttylist[EX_IO][M_INPUT].t_clrmask;
+    extty.d_t.c_iflag |=  ttylist[EX_IO][M_INPUT].t_setmask;
+
+    extty.d_t.c_oflag &= ~ttylist[EX_IO][M_OUTPUT].t_clrmask;
+    extty.d_t.c_oflag |=  ttylist[EX_IO][M_OUTPUT].t_setmask;
+
+    extty.d_t.c_cflag &= ~ttylist[EX_IO][M_CONTROL].t_clrmask;
+    extty.d_t.c_cflag |=  ttylist[EX_IO][M_CONTROL].t_setmask;
+
+    extty.d_t.c_lflag &= ~ttylist[EX_IO][M_LINED].t_clrmask;
+    extty.d_t.c_lflag |=  ttylist[EX_IO][M_LINED].t_setmask;
+
+#  if defined(IRIX3_3) && SYSVREL < 4
+    extty.d_t.c_line = NTTYDISC;
+#  endif /* IRIX3_3 && SYSVREL < 4 */
+
+# else	/* GSTTY */		/* V7, Berkeley style tty */
+
+    if (T_Tabs) {	/* order of &= and |= is important to XTABS */
+	extty.d_t.sg_flags &= ~(ttylist[EX_IO][M_CONTROL].t_clrmask|XTABS);
+	extty.d_t.sg_flags |=   ttylist[EX_IO][M_CONTROL].t_setmask;
+    }
+    else {
+	extty.d_t.sg_flags &= ~ttylist[EX_IO][M_CONTROL].t_clrmask;
+	extty.d_t.sg_flags |= (ttylist[EX_IO][M_CONTROL].t_setmask|XTABS);
+    }
+
+    extty.d_lb &= ~ttylist[EX_IO][M_LOCAL].t_clrmask;
+    extty.d_lb |=  ttylist[EX_IO][M_LOCAL].t_setmask;
+
+# endif /* GSTTY */
+    /*
+     * Reset the tty chars to reasonable defaults
+     * If they are disabled, then enable them.
+     */
+    if (rst) {
+	if (tty_cooked_mode(&tstty)) {
+	    tty_getchar(&tstty, ttychars[TS_IO]);
+	    /*
+	     * Don't affect CMIN and CTIME for the editor mode
+	     */
+	    for (rst = 0; rst < C_NCC - 2; rst++) 
+		if (ttychars[TS_IO][rst] != vdisable &&
+		    ttychars[ED_IO][rst] != vdisable)
+		    ttychars[ED_IO][rst] = ttychars[TS_IO][rst];
+	    for (rst = 0; rst < C_NCC; rst++) 
+		if (ttychars[TS_IO][rst] != vdisable &&
+		    ttychars[EX_IO][rst] != vdisable)
+		    ttychars[EX_IO][rst] = ttychars[TS_IO][rst];
+	}
+	tty_setchar(&extty, ttychars[EX_IO]);
+	if (tty_setty(SHTTY, &extty) == -1) {
+# ifdef DEBUG_TTY
+	    xprintf("ed_Setup: tty_setty: %s\n", strerror(errno));
+# endif /* DEBUG_TTY */
+	    return(-1);
+	}
+    }
+    else
+	tty_setchar(&extty, ttychars[EX_IO]);
+
+# ifdef SIG_WINDOW
+    (void) sigset(SIG_WINDOW, window_change);	/* for window systems */
+# endif 
+#else /* WINNT */
+# ifdef DEBUG
+    if (rst)
+	xprintf("rst received in ed_Setup() %d\n", rst);
+# endif
+#endif /* WINNT */
+    havesetup = 1;
+    return(0);
+}
+
+void
+ed_Init()
+{
+    ResetInLine(1);		/* reset the input pointers */
+    GettingInput = 0;		/* just in case */
+    LastKill = KillBuf;		/* no kill buffer */
+
+#ifdef DEBUG_EDIT
+    CheckMaps();		/* do a little error checking on key maps */
+#endif 
+
+    if (ed_Setup(0) == -1)
+	return;
+
+    /*
+     * if we have been called before but GotTermCaps isn't set, our TERM has
+     * changed, so get new termcaps and try again
+     */
+
+    if (!GotTermCaps)
+	GetTermCaps();		/* does the obvious, but gets term type each
+				 * time */
+
+#ifndef WINNT
+# if defined(TERMIO) || defined(POSIX)
+    edtty.d_t.c_iflag &= ~ttylist[ED_IO][M_INPUT].t_clrmask;
+    edtty.d_t.c_iflag |=  ttylist[ED_IO][M_INPUT].t_setmask;
+
+    edtty.d_t.c_oflag &= ~ttylist[ED_IO][M_OUTPUT].t_clrmask;
+    edtty.d_t.c_oflag |=  ttylist[ED_IO][M_OUTPUT].t_setmask;
+
+    edtty.d_t.c_cflag &= ~ttylist[ED_IO][M_CONTROL].t_clrmask;
+    edtty.d_t.c_cflag |=  ttylist[ED_IO][M_CONTROL].t_setmask;
+
+    edtty.d_t.c_lflag &= ~ttylist[ED_IO][M_LINED].t_clrmask;
+    edtty.d_t.c_lflag |=  ttylist[ED_IO][M_LINED].t_setmask;
+
+
+#  if defined(IRIX3_3) && SYSVREL < 4
+    edtty.d_t.c_line = NTTYDISC;
+#  endif /* IRIX3_3 && SYSVREL < 4 */
+
+# else /* GSTTY */
+
+    if (T_Tabs) {	/* order of &= and |= is important to XTABS */
+	edtty.d_t.sg_flags &= ~(ttylist[ED_IO][M_CONTROL].t_clrmask | XTABS);
+	edtty.d_t.sg_flags |=   ttylist[ED_IO][M_CONTROL].t_setmask;
+    }
+    else {
+	edtty.d_t.sg_flags &= ~ttylist[ED_IO][M_CONTROL].t_clrmask;
+	edtty.d_t.sg_flags |= (ttylist[ED_IO][M_CONTROL].t_setmask | XTABS);
+    }
+
+    edtty.d_lb &= ~ttylist[ED_IO][M_LOCAL].t_clrmask;
+    edtty.d_lb |=  ttylist[ED_IO][M_LOCAL].t_setmask;
+# endif /* POSIX || TERMIO */
+
+    tty_setchar(&edtty, ttychars[ED_IO]);
+#endif /* WINNT */
+}
+
+/* 
+ * Check and re-init the line. set the terminal into 1 char at a time mode.
+ */
+int
+Rawmode()
+{
+    if (Tty_raw_mode)
+	return (0);
+
+#ifdef WINNT
+    do_nt_raw_mode();
+#else /* !WINNT */
+# ifdef _IBMR2
+    tty_setdisc(SHTTY, ED_IO);
+# endif /* _IBMR2 */
+
+    if (tty_getty(SHTTY, &tstty) == -1) {
+# ifdef DEBUG_TTY
+	xprintf("Rawmode: tty_getty: %s\n", strerror(errno));
+# endif /* DEBUG_TTY */
+	return(-1);
+    }
+
+    /*
+     * We always keep up with the eight bit setting and the speed of the
+     * tty. But only we only believe changes that are made to cooked mode!
+     */
+# if defined(POSIX) || defined(TERMIO)
+    Tty_eight_bit = tty_geteightbit(&tstty);
+    T_Speed = tty_getspeed(&tstty);
+
+#  ifdef POSIX
+    /*
+     * Fix from: Steven (Steve) B. Green <xrsbg@charney.gsfc.nasa.gov>
+     * Speed was not being set up correctly under POSIX.
+     */
+    if (tty_getspeed(&extty) != T_Speed || tty_getspeed(&edtty) != T_Speed) {
+	(void) cfsetispeed(&extty.d_t, T_Speed);
+	(void) cfsetospeed(&extty.d_t, T_Speed);
+	(void) cfsetispeed(&edtty.d_t, T_Speed);
+	(void) cfsetospeed(&edtty.d_t, T_Speed);
+    }
+#  endif /* POSIX */
+# else /* GSTTY */
+
+    T_Speed = tty_getspeed(&tstty);
+    Tty_eight_bit = tty_geteightbit(&tstty);
+
+    if (extty.d_t.sg_ispeed != tstty.d_t.sg_ispeed) {
+	extty.d_t.sg_ispeed = tstty.d_t.sg_ispeed;
+	edtty.d_t.sg_ispeed = tstty.d_t.sg_ispeed;
+    }
+
+    if (extty.d_t.sg_ospeed != tstty.d_t.sg_ospeed) {
+	extty.d_t.sg_ospeed = tstty.d_t.sg_ospeed;
+	edtty.d_t.sg_ospeed = tstty.d_t.sg_ospeed;
+    }
+# endif /* POSIX || TERMIO */
+
+    if (tty_cooked_mode(&tstty)) {
+	/*
+	 * re-test for some things here (like maybe the user typed 
+	 * "stty -tabs"
+	 */
+	if (tty_gettabs(&tstty) == 0)
+	    T_Tabs = 0;
+	else 
+	    T_Tabs = CanWeTab();
+
+# if defined(POSIX) || defined(TERMIO)
+	extty.d_t.c_cflag  = tstty.d_t.c_cflag;
+	extty.d_t.c_cflag &= ~ttylist[EX_IO][M_CONTROL].t_clrmask;
+	extty.d_t.c_cflag |=  ttylist[EX_IO][M_CONTROL].t_setmask;
+
+	edtty.d_t.c_cflag  = tstty.d_t.c_cflag;
+	edtty.d_t.c_cflag &= ~ttylist[ED_IO][M_CONTROL].t_clrmask;
+	edtty.d_t.c_cflag |=  ttylist[ED_IO][M_CONTROL].t_setmask;
+
+	extty.d_t.c_lflag = tstty.d_t.c_lflag;
+	extty.d_t.c_lflag &= ~ttylist[EX_IO][M_LINED].t_clrmask;
+	extty.d_t.c_lflag |=  ttylist[EX_IO][M_LINED].t_setmask;
+
+	edtty.d_t.c_lflag = tstty.d_t.c_lflag;
+	edtty.d_t.c_lflag &= ~ttylist[ED_IO][M_LINED].t_clrmask;
+	edtty.d_t.c_lflag |=  ttylist[ED_IO][M_LINED].t_setmask;
+
+	extty.d_t.c_iflag = tstty.d_t.c_iflag;
+	extty.d_t.c_iflag &= ~ttylist[EX_IO][M_INPUT].t_clrmask;
+	extty.d_t.c_iflag |=  ttylist[EX_IO][M_INPUT].t_setmask;
+
+	edtty.d_t.c_iflag = tstty.d_t.c_iflag;
+	edtty.d_t.c_iflag &= ~ttylist[ED_IO][M_INPUT].t_clrmask;
+	edtty.d_t.c_iflag |=  ttylist[ED_IO][M_INPUT].t_setmask;
+
+	extty.d_t.c_oflag = tstty.d_t.c_oflag;
+	extty.d_t.c_oflag &= ~ttylist[EX_IO][M_OUTPUT].t_clrmask;
+	extty.d_t.c_oflag |=  ttylist[EX_IO][M_OUTPUT].t_setmask;
+
+	edtty.d_t.c_oflag = tstty.d_t.c_oflag;
+	edtty.d_t.c_oflag &= ~ttylist[ED_IO][M_OUTPUT].t_clrmask;
+	edtty.d_t.c_oflag |=  ttylist[ED_IO][M_OUTPUT].t_setmask;
+
+# else /* GSTTY */
+
+	extty.d_t.sg_flags = tstty.d_t.sg_flags;
+
+	extty.d_t.sg_flags &= ~ttylist[EX_IO][M_CONTROL].t_clrmask;
+	extty.d_t.sg_flags |=  ttylist[EX_IO][M_CONTROL].t_setmask;
+
+	if (T_Tabs)		/* order of &= and |= is important to XTABS */
+	    extty.d_t.sg_flags &= ~XTABS;
+	else 
+	    extty.d_t.sg_flags |= XTABS;
+
+	extty.d_lb = tstty.d_lb;
+	extty.d_lb &= ~ttylist[EX_IO][M_LOCAL].t_clrmask;
+	extty.d_lb |= ttylist[EX_IO][M_LOCAL].t_setmask;
+
+	edtty.d_t.sg_flags = extty.d_t.sg_flags;
+	if (T_Tabs) {	/* order of &= and |= is important to XTABS */
+	    edtty.d_t.sg_flags &= 
+		    ~(ttylist[ED_IO][M_CONTROL].t_clrmask|XTABS);
+	    edtty.d_t.sg_flags |=   ttylist[ED_IO][M_CONTROL].t_setmask;
+	}
+	else {
+	    edtty.d_t.sg_flags &= ~ttylist[ED_IO][M_CONTROL].t_clrmask;
+	    edtty.d_t.sg_flags |= 
+		    (ttylist[ED_IO][M_CONTROL].t_setmask|XTABS);
+	}
+
+	edtty.d_lb = tstty.d_lb;
+	edtty.d_lb &= ~ttylist[ED_IO][M_LOCAL].t_clrmask;
+	edtty.d_lb |= ttylist[ED_IO][M_LOCAL].t_setmask;
+
+# endif /* TERMIO || POSIX */
+
+	{
+	    extern int didsetty;
+	    int i;
+
+	    tty_getchar(&tstty, ttychars[TS_IO]);
+	    /*
+	     * Check if the user made any changes.
+	     * If he did, then propagate the changes to the
+	     * edit and execute data structures.
+	     */
+	    for (i = 0; i < C_NCC; i++)
+		if (ttychars[TS_IO][i] != ttychars[EX_IO][i])
+		    break;
+		
+	    if (i != C_NCC || didsetty) {
+		didsetty = 0;
+		/*
+		 * Propagate changes only to the unprotected chars
+		 * that have been modified just now.
+		 */
+		for (i = 0; i < C_NCC; i++) {
+		    if (!((ttylist[ED_IO][M_CHAR].t_setmask & C_SH(i))) &&
+			(ttychars[TS_IO][i] != ttychars[EX_IO][i]))
+			ttychars[ED_IO][i] = ttychars[TS_IO][i];
+		    if (ttylist[ED_IO][M_CHAR].t_clrmask & C_SH(i))
+			ttychars[ED_IO][i] = vdisable;
+		}
+		tty_setchar(&edtty, ttychars[ED_IO]);
+
+		for (i = 0; i < C_NCC; i++) {
+		    if (!((ttylist[EX_IO][M_CHAR].t_setmask & C_SH(i))) &&
+			(ttychars[TS_IO][i] != ttychars[EX_IO][i]))
+			ttychars[EX_IO][i] = ttychars[TS_IO][i];
+		    if (ttylist[EX_IO][M_CHAR].t_clrmask & C_SH(i))
+			ttychars[EX_IO][i] = vdisable;
+		}
+		tty_setchar(&extty, ttychars[EX_IO]);
+	    }
+
+	}
+    }
+    if (tty_setty(SHTTY, &edtty) == -1) {
+# ifdef DEBUG_TTY
+	xprintf("Rawmode: tty_setty: %s\n", strerror(errno));
+# endif /* DEBUG_TTY */
+	return(-1);
+    }
+#endif /* WINNT */
+    Tty_raw_mode = 1;
+    flush();			/* flush any buffered output */
+    return (0);
+}
+
+int
+Cookedmode()
+{				/* set tty in normal setup */
+#ifdef WINNT
+    do_nt_cooked_mode();
+#else
+    signalfun_t orig_intr;
+
+# ifdef _IBMR2
+    tty_setdisc(SHTTY, EX_IO);
+# endif /* _IBMR2 */
+
+    if (!Tty_raw_mode)
+	return (0);
+
+    /* hold this for reseting tty */
+# ifdef BSDSIGS
+    orig_intr = (signalfun_t) signal(SIGINT, SIG_IGN);
+# else
+#  ifdef SIG_HOLD
+    /*
+     * sigset doesn't return the previous handler if the signal is held,
+     * it will return SIG_HOLD instead. So instead of restoring the
+     * the signal we would end up installing a blocked SIGINT with a
+     * SIG_IGN signal handler. This is what happened when Cookedmode
+     * was called from sched_run, disabling interrupt for the rest
+     * of your session.
+     *
+     * This is what we do:
+     * - if the signal is blocked, keep it that way
+     * - else set it to SIG_IGN
+     *
+     * Casper Dik (casper@fwi.uva.nl)
+     */
+    orig_intr = (signalfun_t) sigset(SIGINT, SIG_HOLD);
+    if (orig_intr != SIG_HOLD)
+	(void) sigset(SIGINT, SIG_IGN); /* returns SIG_HOLD */
+#  else /* !SIG_HOLD */
+    /*
+     * No SIG_HOLD; probably no reliable signals as well.
+     */
+    orig_intr = (signalfun_t) sigset(SIGINT, SIG_IGN);
+#  endif /* SIG_HOLD */
+# endif /* BSDSIGS */
+    if (tty_setty(SHTTY, &extty) == -1) {
+# ifdef DEBUG_TTY
+	xprintf("Cookedmode: tty_setty: %s\n", strerror(errno));
+# endif /* DEBUG_TTY */
+	return -1;
+    }
+# ifdef BSDSIGS
+    (void) signal(SIGINT, orig_intr);	/* take these again */
+# else
+    (void) sigset(SIGINT, orig_intr);	/* take these again */
+# endif /* BSDSIGS */
+#endif /* WINNT */
+
+    Tty_raw_mode = 0;
+    return (0);
+}
+
+void
+ResetInLine(macro)
+    int macro;
+{
+    Cursor = InputBuf;		/* reset cursor */
+    LastChar = InputBuf;
+    InputLim = &InputBuf[INBUFSIZE - 2];
+    Mark = InputBuf;
+    MetaNext = 0;
+    CurrentKeyMap = CcKeyMap;
+    AltKeyMap = 0;
+    Hist_num = 0;
+    DoingArg = 0;
+    Argument = 1;
+#ifdef notdef
+    LastKill = KillBuf;		/* no kill buffer */
+#endif 
+    LastCmd = F_UNASSIGNED;	/* previous command executed */
+    if (macro)
+	MacroLvl = -1;		/* no currently active macros */
+}
+
+static Char *Input_Line = NULL;
+int
+Load_input_line()
+{
+#ifdef SUNOS4
+    long chrs = 0;
+#else /* !SUNOS4 */
+    /* 
+     * *Everyone* else has an int, but SunOS wants long!
+     * This breaks where int != long (alpha)
+     */
+    int chrs = 0;
+#endif /* SUNOS4 */
+
+    if (Input_Line)
+	xfree((ptr_t) Input_Line);
+    Input_Line = NULL;
+
+    if (Tty_raw_mode)
+	return 0;
+
+#if defined(FIONREAD) && !defined(OREO)
+    (void) ioctl(SHIN, FIONREAD, (ioctl_t) &chrs);
+    if (chrs > 0) {
+	char    buf[BUFSIZE];
+
+	chrs = read(SHIN, buf, (size_t) min(chrs, BUFSIZE - 1));
+	if (chrs > 0) {
+	    buf[chrs] = '\0';
+	    Input_Line = Strsave(str2short(buf));
+	    PushMacro(Input_Line);
+	}
+#ifdef convex
+        /* need to print errno message in case file is migrated */
+        if (chrs < 0)
+            stderror(ERR_SYSTEM, progname, strerror(errno));
+#endif
+    }
+#endif  /* FIONREAD && !OREO */
+    return chrs > 0;
+}
+
+/*
+ * Bugfix (in Swedish) by:
+ * Johan Widen
+ * SICS, PO Box 1263, S-163 13 SPANGA, SWEDEN
+ * {mcvax,munnari,cernvax,diku,inria,prlb2,penet,ukc,unido}!enea!sics.se!jw
+ * Internet: jw@sics.se
+ *
+ * (via Hans J Albertsson (thanks))
+ */
+void
+QuoteModeOn()
+{
+    if (MacroLvl >= 0)
+	return;
+
+#ifndef WINNT
+    qutty = edtty;
+
+#if defined(TERMIO) || defined(POSIX)
+    qutty.d_t.c_iflag &= ~ttylist[QU_IO][M_INPUT].t_clrmask;
+    qutty.d_t.c_iflag |=  ttylist[QU_IO][M_INPUT].t_setmask;
+
+    qutty.d_t.c_oflag &= ~ttylist[QU_IO][M_OUTPUT].t_clrmask;
+    qutty.d_t.c_oflag |=  ttylist[QU_IO][M_OUTPUT].t_setmask;
+
+    qutty.d_t.c_cflag &= ~ttylist[QU_IO][M_CONTROL].t_clrmask;
+    qutty.d_t.c_cflag |=  ttylist[QU_IO][M_CONTROL].t_setmask;
+
+    qutty.d_t.c_lflag &= ~ttylist[QU_IO][M_LINED].t_clrmask;
+    qutty.d_t.c_lflag |=  ttylist[QU_IO][M_LINED].t_setmask;
+#else /* GSTTY */
+    qutty.d_t.sg_flags &= ~ttylist[QU_IO][M_CONTROL].t_clrmask;
+    qutty.d_t.sg_flags |= ttylist[QU_IO][M_CONTROL].t_setmask;
+    qutty.d_lb &= ~ttylist[QU_IO][M_LOCAL].t_clrmask;
+    qutty.d_lb |= ttylist[QU_IO][M_LOCAL].t_setmask;
+
+#endif /* TERMIO || POSIX */
+    if (tty_setty(SHTTY, &qutty) == -1) {
+#ifdef DEBUG_TTY
+	xprintf("QuoteModeOn: tty_setty: %s\n", strerror(errno));
+#endif /* DEBUG_TTY */
+	return;
+    }
+#endif /* !WINNT */
+    Tty_quote_mode = 1;
+    return;
+}
+
+void
+QuoteModeOff()
+{
+    if (!Tty_quote_mode)
+	return;
+    Tty_quote_mode = 0;
+    if (tty_setty(SHTTY, &edtty) == -1) {
+#ifdef DEBUG_TTY
+	xprintf("QuoteModeOff: tty_setty: %s\n", strerror(errno));
+#endif /* DEBUG_TTY */
+	return;
+    }
+    return;
+}

contrib/tcsh/ed.inputl.c

@@ -0,0 +1,903 @@
+/* $Header: /src/pub/tcsh/ed.inputl.c,v 3.47 1999/04/20 07:48:39 christos Exp $ */
+/*
+ * ed.inputl.c: Input line handling.
+ */
+/*-
+ * Copyright (c) 1980, 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+#include "sh.h"
+
+RCSID("$Id: ed.inputl.c,v 3.47 1999/04/20 07:48:39 christos Exp $")
+
+#include "ed.h"
+#include "ed.defns.h"		/* for the function names */
+#include "tw.h"			/* for twenex stuff */
+
+#define OKCMD (INBUFSIZE+INBUFSIZE)
+
+/* ed.inputl -- routines to get a single line from the input. */
+
+extern bool tellwhat;
+extern bool MapsAreInited;
+extern bool Tty_raw_mode;
+
+/* mismatched first character */
+static Char mismatch[] = 
+    {'!', '^' , '\\', '-', '%', '\0', '"', '\'', '`', '\0' };
+
+static	int	Repair		__P((void));
+static	int	GetNextCommand	__P((KEYCMD *, Char *));
+static	int	SpellLine	__P((int));
+static	int	CompleteLine	__P((void));
+static	void	RunCommand	__P((Char *));
+static  void 	doeval1		__P((Char **));
+
+static bool rotate = 0;
+
+
+static int
+Repair()
+{
+    if (NeedsRedraw) {
+	ClearLines();
+	ClearDisp();
+	NeedsRedraw = 0;
+    }
+    Refresh();
+    Argument = 1;
+    DoingArg = 0;
+    curchoice = -1;
+    return (int) (LastChar - InputBuf);
+}
+
+/* CCRETVAL */
+int
+Inputl()
+{
+    CCRETVAL retval;
+    KEYCMD  cmdnum = 0;
+    extern KEYCMD NumFuns;
+    unsigned char tch;		/* the place where read() goes */
+    Char    ch;
+    int     num;		/* how many chars we have read at NL */
+    int	    expnum;
+    struct varent *crct = inheredoc ? NULL : adrof(STRcorrect);
+    struct varent *autol = adrof(STRautolist);
+    struct varent *matchbeep = adrof(STRmatchbeep);
+    struct varent *imode = adrof(STRinputmode);
+    Char   *SaveChar, *CorrChar;
+    Char    Origin[INBUFSIZE], Change[INBUFSIZE];
+    int     matchval;		/* from tenematch() */
+    COMMAND fn;
+    int curlen = 0;
+    int newlen;
+    int idx;
+
+    if (!MapsAreInited)		/* double extra just in case */
+	ed_InitMaps();
+
+    ClearDisp();		/* reset the display stuff */
+    ResetInLine(0);		/* reset the input pointers */
+    if (GettingInput)
+	MacroLvl = -1;		/* editor was interrupted during input */
+
+    if (imode) {
+	if (!Strcmp(*(imode->vec), STRinsert))
+	    inputmode = MODE_INSERT;
+	else if (!Strcmp(*(imode->vec), STRoverwrite))
+	    inputmode = MODE_REPLACE;
+    }
+
+#if defined(FIONREAD) && !defined(OREO)
+    if (!Tty_raw_mode && MacroLvl < 0) {
+# ifdef SUNOS4
+	long chrs = 0;
+# else /* !SUNOS4 */
+	/* 
+	 * *Everyone* else has an int, but SunOS wants long!
+	 * This breaks where int != long (alpha)
+	 */
+	int chrs = 0;
+# endif /* SUNOS4 */
+
+	(void) ioctl(SHIN, FIONREAD, (ioctl_t) & chrs);
+	if (chrs == 0) {
+	    if (Rawmode() < 0)
+		return 0;
+	}
+    }
+#endif /* FIONREAD && !OREO */
+
+    GettingInput = 1;
+    NeedsRedraw = 0;
+
+    if (tellwhat) {
+	copyn(InputBuf, WhichBuf, INBUFSIZE);
+	LastChar = InputBuf + (LastWhich - WhichBuf);
+	Cursor = InputBuf + (CursWhich - WhichBuf);
+	tellwhat = 0;
+	Hist_num = HistWhich;
+    }
+    if (Expand) {
+	(void) e_up_hist(0);
+	Expand = 0;
+    }
+    Refresh();			/* print the prompt */
+
+    for (num = OKCMD; num == OKCMD;) {	/* while still editing this line */
+#ifdef DEBUG_EDIT
+	if (Cursor > LastChar)
+	    xprintf("Cursor > LastChar\r\n");
+	if (Cursor < InputBuf)
+	    xprintf("Cursor < InputBuf\r\n");
+	if (Cursor > InputLim)
+	    xprintf("Cursor > InputLim\r\n");
+	if (LastChar > InputLim)
+	    xprintf("LastChar > InputLim\r\n");
+	if (InputLim != &InputBuf[INBUFSIZE - 2])
+	    xprintf("InputLim != &InputBuf[INBUFSIZE-2]\r\n");
+	if ((!DoingArg) && (Argument != 1))
+	    xprintf("(!DoingArg) && (Argument != 1)\r\n");
+	if (CcKeyMap[0] == 0)
+	    xprintf("CcKeyMap[0] == 0 (maybe not inited)\r\n");
+#endif
+
+	/* if EOF or error */
+	if ((num = GetNextCommand(&cmdnum, &ch)) != OKCMD) {
+	    break;
+	}
+
+	if (cmdnum >= NumFuns) {/* BUG CHECK command */
+#ifdef DEBUG_EDIT
+	    xprintf(CGETS(6, 1, "ERROR: illegal command from key 0%o\r\n"), ch);
+#endif
+	    continue;		/* try again */
+	}
+
+	/* now do the real command */
+	retval = (*CcFuncTbl[cmdnum]) (ch);
+
+	/* save the last command here */
+	LastCmd = cmdnum;
+
+	/* make sure fn is initialized */
+	fn = (retval == CC_COMPLETE_ALL) ? LIST_ALL : LIST;
+
+	/* use any return value */
+	switch (retval) {
+
+	case CC_REFRESH:
+	    Refresh();
+	    /*FALLTHROUGH*/
+	case CC_NORM:		/* normal char */
+	    Argument = 1;
+	    DoingArg = 0;
+	    /*FALLTHROUGH*/
+	case CC_ARGHACK:	/* Suggested by Rich Salz */
+	    /* <rsalz@pineapple.bbn.com> */
+	    curchoice = -1;
+	    curlen = (int) (LastChar - InputBuf);
+	    break;		/* keep going... */
+
+	case CC_EOF:		/* end of file typed */
+	    curchoice = -1;
+	    curlen = (int) (LastChar - InputBuf);
+	    num = 0;
+	    break;
+
+	case CC_WHICH:		/* tell what this command does */
+	    tellwhat = 1;
+	    copyn(WhichBuf, InputBuf, INBUFSIZE);
+	    LastWhich = WhichBuf + (LastChar - InputBuf);
+	    CursWhich = WhichBuf + (Cursor - InputBuf);
+	    *LastChar++ = '\n';	/* for the benifit of CSH */
+	    HistWhich = Hist_num;
+	    Hist_num = 0;	/* for the history commands */
+	    num = (int) (LastChar - InputBuf);	/* number characters read */
+	    break;
+
+	case CC_NEWLINE:	/* normal end of line */
+	    curlen = 0;
+	    curchoice = -1;
+	    matchval = 1;
+	    if (crct && (!Strcmp(*(crct->vec), STRcmd) ||
+			 !Strcmp(*(crct->vec), STRall))) {
+                PastBottom();
+		copyn(Origin, InputBuf, INBUFSIZE);
+		SaveChar = LastChar;
+		if (SpellLine(!Strcmp(*(crct->vec), STRcmd)) == 1) {
+                    PastBottom();
+		    copyn(Change, InputBuf, INBUFSIZE);
+		    *Strchr(Change, '\n') = '\0';
+		    CorrChar = LastChar;	/* Save the corrected end */
+		    LastChar = InputBuf;	/* Null the current line */
+		    SoundBeep();
+		    printprompt(2, short2str(Change));
+		    Refresh();
+		    if (read(SHIN, (char *) &tch, 1) < 0)
+#ifdef convex
+		        /*
+			 * need to print error message in case file
+			 * is migrated
+			 */
+                        if (errno && errno != EINTR)
+                            stderror(ERR_SYSTEM, progname, strerror(errno));
+#else
+			break;
+#endif
+		    ch = tch;
+		    if (ch == 'y' || ch == ' ') {
+			LastChar = CorrChar;	/* Restore the corrected end */
+			xprintf(CGETS(6, 2, "yes\n"));
+		    }
+		    else {
+			copyn(InputBuf, Origin, INBUFSIZE);
+			LastChar = SaveChar;
+			if (ch == 'e') {
+			    xprintf(CGETS(6, 3, "edit\n"));
+			    *LastChar-- = '\0';
+			    Cursor = LastChar;
+			    printprompt(3, NULL);
+			    ClearLines();
+			    ClearDisp();
+			    Refresh();
+			    break;
+			}
+			else if (ch == 'a') {
+			    xprintf(CGETS(6, 4, "abort\n"));
+		            LastChar = InputBuf;   /* Null the current line */
+			    Cursor = LastChar;
+			    printprompt(0, NULL);
+			    Refresh();
+			    break;
+			}
+			xprintf(CGETS(6, 5, "no\n"));
+		    }
+		    flush();
+		}
+	    } else if (crct && !Strcmp(*(crct->vec), STRcomplete)) {
+                if (LastChar > InputBuf && LastChar[-1] == '\n') {
+                    LastChar[-1] = '\0';
+                    LastChar--;
+                    Cursor = LastChar;
+                }
+                match_unique_match = 1;  /* match unique matches */
+		matchval = CompleteLine();
+                match_unique_match = 0;
+        	curlen = (int) (LastChar - InputBuf);
+		if (matchval != 1) {
+                    PastBottom();
+		}
+		if (matchval == 0) {
+		    xprintf(CGETS(6, 6, "No matching command\n"));
+		} else if (matchval == 2) {
+		    xprintf(CGETS(6, 7, "Ambiguous command\n"));
+		}
+	        if (NeedsRedraw) {
+		    ClearLines();
+		    ClearDisp();
+		    NeedsRedraw = 0;
+	        }
+	        Refresh();
+	        Argument = 1;
+	        DoingArg = 0;
+		if (matchval == 1) {
+                    PastBottom();
+                    *LastChar++ = '\n';
+                    *LastChar = '\0';
+		}
+        	curlen = (int) (LastChar - InputBuf);
+            }
+	    else
+		PastBottom();
+
+	    if (matchval == 1) {
+	        tellwhat = 0;	/* just in case */
+	        Hist_num = 0;	/* for the history commands */
+		/* return the number of chars read */
+	        num = (int) (LastChar - InputBuf);
+	        /*
+	         * For continuation lines, we set the prompt to prompt 2
+	         */
+	        printprompt(1, NULL);
+	    }
+	    break;
+
+	case CC_CORRECT:
+	    if (tenematch(InputBuf, Cursor - InputBuf, SPELL) < 0)
+		SoundBeep();		/* Beep = No match/ambiguous */
+	    curlen = Repair();
+	    break;
+
+	case CC_CORRECT_L:
+	    if (SpellLine(FALSE) < 0)
+		SoundBeep();		/* Beep = No match/ambiguous */
+	    curlen = Repair();
+	    break;
+
+
+	case CC_COMPLETE:
+	case CC_COMPLETE_ALL:
+	case CC_COMPLETE_FWD:
+	case CC_COMPLETE_BACK:
+	    switch (retval) {
+	    case CC_COMPLETE:
+		fn = RECOGNIZE;
+		curlen = (int) (LastChar - InputBuf);
+		curchoice = -1;
+		rotate = 0;
+		break;
+	    case CC_COMPLETE_ALL:
+		fn = RECOGNIZE_ALL;
+		curlen = (int) (LastChar - InputBuf);
+		curchoice = -1;
+		rotate = 0;
+		break;
+	    case CC_COMPLETE_FWD:
+		fn = RECOGNIZE_SCROLL;
+		curchoice++;
+		rotate = 1;
+		break;
+	    case CC_COMPLETE_BACK:
+		fn = RECOGNIZE_SCROLL;
+		curchoice--;
+		rotate = 1;
+		break;
+	    default:
+		abort();
+	    }
+	    if (InputBuf[curlen] && rotate) {
+		newlen = (int) (LastChar - InputBuf);
+		for (idx = (int) (Cursor - InputBuf); 
+		     idx <= newlen; idx++)
+			InputBuf[idx - newlen + curlen] =
+			InputBuf[idx];
+		LastChar = InputBuf + curlen;
+		Cursor = Cursor - newlen + curlen;
+	    }
+	    curlen = (int) (LastChar - InputBuf);
+
+
+	    if (adrof(STRautoexpand))
+		(void) e_expand_history(0);
+	    /*
+	     * Modified by Martin Boyer (gamin@ireq-robot.hydro.qc.ca):
+	     * A separate variable now controls beeping after
+	     * completion, independently of autolisting.
+	     */
+	    expnum = (int) (Cursor - InputBuf);
+	    switch (matchval = tenematch(InputBuf, Cursor-InputBuf, fn)){
+	    case 1:
+		if (non_unique_match && matchbeep &&
+		    (Strcmp(*(matchbeep->vec), STRnotunique) == 0))
+		    SoundBeep();
+		break;
+	    case 0:
+		if (matchbeep) {
+		    if (Strcmp(*(matchbeep->vec), STRnomatch) == 0 ||
+			Strcmp(*(matchbeep->vec), STRambiguous) == 0 ||
+			Strcmp(*(matchbeep->vec), STRnotunique) == 0)
+			SoundBeep();
+		}
+		else
+		    SoundBeep();
+		break;
+	    default:
+		if (matchval < 0) {	/* Error from tenematch */
+		    curchoice = -1;
+		    SoundBeep();
+		    break;
+		}
+		if (matchbeep) {
+		    if ((Strcmp(*(matchbeep->vec), STRambiguous) == 0 ||
+			 Strcmp(*(matchbeep->vec), STRnotunique) == 0))
+			SoundBeep();
+		}
+		else
+		    SoundBeep();
+		/*
+		 * Addition by David C Lawrence <tale@pawl.rpi.edu>: If an 
+		 * attempted completion is ambiguous, list the choices.  
+		 * (PWP: this is the best feature addition to tcsh I have 
+		 * seen in many months.)
+		 */
+		if (autol && (Strcmp(*(autol->vec), STRambiguous) != 0 || 
+				     expnum == Cursor - InputBuf)) {
+		    PastBottom();
+		    fn = (retval == CC_COMPLETE_ALL) ? LIST_ALL : LIST;
+		    (void) tenematch(InputBuf, Cursor-InputBuf, fn);
+		}
+		break;
+	    }
+	    if (NeedsRedraw) {
+		PastBottom();
+		ClearLines();
+		ClearDisp();
+		NeedsRedraw = 0;
+	    }
+	    Refresh();
+	    Argument = 1;
+	    DoingArg = 0;
+	    break;
+
+	case CC_LIST_CHOICES:
+	case CC_LIST_ALL:
+	    if (InputBuf[curlen] && rotate) {
+		newlen = (int) (LastChar - InputBuf);
+		for (idx = (int) (Cursor - InputBuf); 
+		     idx <= newlen; idx++)
+			InputBuf[idx - newlen + curlen] =
+			InputBuf[idx];
+		LastChar = InputBuf + curlen;
+		Cursor = Cursor - newlen + curlen;
+	    }
+	    curlen = (int) (LastChar - InputBuf);
+	    if (curchoice >= 0)
+		curchoice--;
+
+	    fn = (retval == CC_LIST_ALL) ? LIST_ALL : LIST;
+	    /* should catch ^C here... */
+	    if (tenematch(InputBuf, Cursor - InputBuf, fn) < 0)
+		SoundBeep();
+	    Refresh();
+	    Argument = 1;
+	    DoingArg = 0;
+	    break;
+
+
+	case CC_LIST_GLOB:
+	    if (tenematch(InputBuf, Cursor - InputBuf, GLOB) < 0)
+		SoundBeep();
+	    curlen = Repair();
+	    break;
+
+	case CC_EXPAND_GLOB:
+	    if (tenematch(InputBuf, Cursor - InputBuf, GLOB_EXPAND) <= 0)
+		SoundBeep();		/* Beep = No match */
+	    curlen = Repair();
+	    break;
+
+	case CC_NORMALIZE_PATH:
+	    if (tenematch(InputBuf, Cursor - InputBuf, PATH_NORMALIZE) <= 0)
+		SoundBeep();		/* Beep = No match */
+	    curlen = Repair();
+	    break;
+
+	case CC_EXPAND_VARS:
+	    if (tenematch(InputBuf, Cursor - InputBuf, VARS_EXPAND) <= 0)
+		SoundBeep();		/* Beep = No match */
+	    curlen = Repair();
+	    break;
+
+	case CC_NORMALIZE_COMMAND:
+	    if (tenematch(InputBuf, Cursor - InputBuf, COMMAND_NORMALIZE) <= 0)
+		SoundBeep();		/* Beep = No match */
+	    curlen = Repair();
+	    break;
+
+	case CC_HELPME:
+	    xputchar('\n');
+	    /* should catch ^C here... */
+	    (void) tenematch(InputBuf, LastChar - InputBuf, PRINT_HELP);
+	    Refresh();
+	    Argument = 1;
+	    DoingArg = 0;
+	    curchoice = -1;
+	    curlen = (int) (LastChar - InputBuf);
+	    break;
+
+	case CC_FATAL:		/* fatal error, reset to known state */
+#ifdef DEBUG_EDIT
+	    xprintf(CGETS(7, 8, "*** editor fatal ERROR ***\r\n\n"));
+#endif				/* DEBUG_EDIT */
+	    /* put (real) cursor in a known place */
+	    ClearDisp();	/* reset the display stuff */
+	    ResetInLine(1);	/* reset the input pointers */
+	    Refresh();		/* print the prompt again */
+	    Argument = 1;
+	    DoingArg = 0;
+	    curchoice = -1;
+	    curlen = (int) (LastChar - InputBuf);
+	    break;
+
+	case CC_ERROR:
+	default:		/* functions we don't know about */
+	    DoingArg = 0;
+	    Argument = 1;
+	    SoundBeep();
+	    flush();
+	    curchoice = -1;
+	    curlen = (int) (LastChar - InputBuf);
+	    break;
+	}
+    }
+    (void) Cookedmode();	/* make sure the tty is set up correctly */
+    GettingInput = 0;
+    flush();			/* flush any buffered output */
+    return num;
+}
+
+void
+PushMacro(str)
+    Char   *str;
+{
+    if (str != NULL && MacroLvl + 1 < MAXMACROLEVELS) {
+	MacroLvl++;
+	KeyMacro[MacroLvl] = str;
+    }
+    else {
+	SoundBeep();
+	flush();
+    }
+}
+
+/*
+ * Like eval, only using the current file descriptors
+ */
+static Char **gv = NULL, **gav = NULL;
+
+static void
+doeval1(v)
+    Char **v;
+{
+    Char  **oevalvec;
+    Char   *oevalp;
+    int     my_reenter;
+    Char  **savegv;
+    jmp_buf_t osetexit;
+
+    oevalvec = evalvec;
+    oevalp = evalp;
+    savegv = gv;
+    gav = v;
+
+
+    gflag = 0, tglob(gav);
+    if (gflag) {
+	gv = gav = globall(gav);
+	gargv = 0;
+	if (gav == 0)
+	    stderror(ERR_NOMATCH);
+	gav = copyblk(gav);
+    }
+    else {
+	gv = NULL;
+	gav = copyblk(gav);
+	trim(gav);
+    }
+
+    getexit(osetexit);
+
+    /* PWP: setjmp/longjmp bugfix for optimizing compilers */
+#ifdef cray
+    my_reenter = 1;             /* assume non-zero return val */
+    if (setexit() == 0) {
+        my_reenter = 0;         /* Oh well, we were wrong */
+#else /* !cray */
+    if ((my_reenter = setexit()) == 0) {
+#endif /* cray */
+	evalvec = gav;
+	evalp = 0;
+	process(0);
+    }
+
+    evalvec = oevalvec;
+    evalp = oevalp;
+    doneinp = 0;
+
+    if (gv)
+	blkfree(gv);
+
+    gv = savegv;
+    resexit(osetexit);
+    if (my_reenter)
+	stderror(ERR_SILENT);
+}
+
+static void
+RunCommand(str)
+    Char *str;
+{
+    Char *cmd[2];
+
+    xputchar('\n');	/* Start on a clean line */
+
+    cmd[0] = str;
+    cmd[1] = NULL;
+
+    (void) Cookedmode();
+    GettingInput = 0;
+
+    doeval1(cmd);
+    
+    (void) Rawmode();
+    GettingInput = 1;
+
+    ClearLines();
+    ClearDisp();
+    NeedsRedraw = 0;
+    Refresh();
+}
+
+static int
+GetNextCommand(cmdnum, ch)
+    KEYCMD *cmdnum;
+    register Char *ch;
+{
+    KEYCMD  cmd = 0;
+    int     num;
+
+    while (cmd == 0 || cmd == F_XKEY) {
+	if ((num = GetNextChar(ch)) != 1) {	/* if EOF or error */
+	    return num;
+	}
+#ifdef	KANJI
+	if (!adrof(STRnokanji) && (*ch & META)) {
+	    MetaNext = 0;
+	    cmd = F_INSERT;
+	    break;
+	}
+	else
+#endif /* KANJI */
+	if (MetaNext) {
+	    MetaNext = 0;
+	    *ch |= META;
+	}
+	/* XXX: This needs to be fixed so that we don't just truncate
+	 * the character, we unquote it.
+	 */
+	if (*ch < NT_NUM_KEYS)
+	    cmd = CurrentKeyMap[*ch];
+	else
+	    cmd = CurrentKeyMap[(unsigned char) *ch];
+	if (cmd == F_XKEY) {
+	    XmapVal val;
+	    CStr cstr;
+	    cstr.buf = ch;
+	    cstr.len = Strlen(ch);
+	    switch (GetXkey(&cstr, &val)) {
+	    case XK_CMD:
+		cmd = val.cmd;
+		break;
+	    case XK_STR:
+		PushMacro(val.str.buf);
+		break;
+	    case XK_EXE:
+		RunCommand(val.str.buf);
+		break;
+	    default:
+		abort();
+		break;
+	    }
+	}
+	if (!AltKeyMap) 
+	    CurrentKeyMap = CcKeyMap;
+    }
+    *cmdnum = cmd;
+    return OKCMD;
+}
+
+int
+GetNextChar(cp)
+    register Char *cp;
+{
+    register int num_read;
+    int     tried = 0;
+    unsigned char tcp;
+
+    for (;;) {
+	if (MacroLvl < 0) {
+	    if (!Load_input_line())
+		break;
+	}
+	if (*KeyMacro[MacroLvl] == 0) {
+	    MacroLvl--;
+	    continue;
+	}
+	*cp = *KeyMacro[MacroLvl]++ & CHAR;
+	if (*KeyMacro[MacroLvl] == 0) {	/* Needed for QuoteMode On */
+	    MacroLvl--;
+	}
+	return (1);
+    }
+
+    if (Rawmode() < 0)		/* make sure the tty is set up correctly */
+	return 0;		/* oops: SHIN was closed */
+
+#ifdef WINNT
+    __nt_want_vcode = 1;
+#endif /* WINNT */
+    while ((num_read = read(SHIN, (char *) &tcp, 1)) == -1) {
+	if (errno == EINTR)
+	    continue;
+	if (!tried && fixio(SHIN, errno) != -1)
+	    tried = 1;
+	else {
+#ifdef convex
+            /* need to print error message in case the file is migrated */
+            if (errno != EINTR)
+                stderror(ERR_SYSTEM, progname, strerror(errno));
+#endif  /* convex */
+#ifdef WINNT
+	    __nt_want_vcode = 0;
+#endif /* WINNT */
+	    *cp = '\0';
+	    return -1;
+	}
+    }
+#ifdef WINNT
+    if (__nt_want_vcode == 2)
+	*cp = __nt_vcode;
+    else
+	*cp = tcp;
+    __nt_want_vcode = 0;
+#else
+    *cp = tcp;
+#endif /* WINNT */
+    return num_read;
+}
+
+/*
+ * SpellLine - do spelling correction on the entire command line
+ * (which may have trailing newline).
+ * If cmdonly is set, only check spelling of command words.
+ * Return value:
+ * -1: Something was incorrectible, and nothing was corrected
+ *  0: Everything was correct
+ *  1: Something was corrected
+ */
+static int
+SpellLine(cmdonly)
+    int     cmdonly;
+{
+    int     endflag, matchval;
+    Char   *argptr, *OldCursor, *OldLastChar;
+
+    OldLastChar = LastChar;
+    OldCursor = Cursor;
+    argptr = InputBuf;
+    endflag = 1;
+    matchval = 0;
+    do {
+	while (ismetahash(*argptr) || iscmdmeta(*argptr))
+	    argptr++;
+	for (Cursor = argptr;
+	     *Cursor != '\0' && ((Cursor != argptr && Cursor[-1] == '\\') ||
+				 (!ismetahash(*Cursor) && !iscmdmeta(*Cursor)));
+	     Cursor++)
+	     continue;
+	if (*Cursor == '\0') {
+	    Cursor = LastChar;
+	    if (LastChar[-1] == '\n')
+		Cursor--;
+	    endflag = 0;
+	}
+	/* Obey current history character settings */
+	mismatch[0] = HIST;
+	mismatch[1] = HISTSUB;
+	if (!Strchr(mismatch, *argptr) &&
+	    (!cmdonly || starting_a_command(argptr, InputBuf))) {
+#ifdef WINNT
+	    /*
+	     * This hack avoids correcting drive letter changes
+	     */
+	    if((Cursor - InputBuf) != 2 || (char)InputBuf[1] != ':')
+#endif /* WINNT */
+	    {
+#ifdef HASH_SPELL_CHECK
+		Char save;
+		size_t len = Cursor - InputBuf;
+
+		save = InputBuf[len];
+		InputBuf[len] = '\0';
+		if (find_cmd(InputBuf, 0) != 0) {
+		    InputBuf[len] = save;
+		    argptr = Cursor;
+		    continue;
+		}
+		InputBuf[len] = save;
+#endif /* HASH_SPELL_CHECK */
+		switch (tenematch(InputBuf, Cursor - InputBuf, SPELL)) {
+		case 1:		/* corrected */
+		    matchval = 1;
+		    break;
+		case -1:		/* couldn't be corrected */
+		    if (!matchval)
+			matchval = -1;
+		    break;
+		default:		/* was correct */
+		    break;
+		}
+	    }
+	    if (LastChar != OldLastChar) {
+		if (argptr < OldCursor)
+		    OldCursor += (LastChar - OldLastChar);
+		OldLastChar = LastChar;
+	    }
+	}
+	argptr = Cursor;
+    } while (endflag);
+    Cursor = OldCursor;
+    return matchval;
+}
+
+/*
+ * CompleteLine - do command completion on the entire command line
+ * (which may have trailing newline).
+ * Return value:
+ *  0: No command matched or failure
+ *  1: One command matched
+ *  2: Several commands matched
+ */
+static int
+CompleteLine()
+{
+    int     endflag, tmatch;
+    Char   *argptr, *OldCursor, *OldLastChar;
+
+    OldLastChar = LastChar;
+    OldCursor = Cursor;
+    argptr = InputBuf;
+    endflag = 1;
+    do {
+	while (ismetahash(*argptr) || iscmdmeta(*argptr))
+	    argptr++;
+	for (Cursor = argptr;
+	     *Cursor != '\0' && ((Cursor != argptr && Cursor[-1] == '\\') ||
+				 (!ismetahash(*Cursor) && !iscmdmeta(*Cursor)));
+	     Cursor++)
+	     continue;
+	if (*Cursor == '\0') {
+	    Cursor = LastChar;
+	    if (LastChar[-1] == '\n')
+		Cursor--;
+	    endflag = 0;
+	}
+	if (!Strchr(mismatch, *argptr) && starting_a_command(argptr, InputBuf)) {
+	    tmatch = tenematch(InputBuf, Cursor - InputBuf, RECOGNIZE);
+	    if (tmatch <= 0) {
+                return 0;
+            } else if (tmatch > 1) {
+                return 2;
+	    }
+	    if (LastChar != OldLastChar) {
+		if (argptr < OldCursor)
+		    OldCursor += (LastChar - OldLastChar);
+		OldLastChar = LastChar;
+	    }
+	}
+	argptr = Cursor;
+    } while (endflag);
+    Cursor = OldCursor;
+    return 1;
+}
+

contrib/tcsh/ed.term.h

@@ -0,0 +1,492 @@
+/* $Header: /src/pub/tcsh/ed.term.h,v 1.13 1996/09/24 16:57:20 christos Exp $ */
+/*
+ * ed.term.h: Local terminal header
+ */
+/*-
+ * Copyright (c) 1980, 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+#ifndef _h_ed_term
+#define _h_ed_term
+
+#define TO_CONTROL(A)	((A) & 037)
+
+#if defined(TERMIO) || defined(POSIX)
+/*
+ * Aix compatible names
+ */
+# if defined(VWERSE) && !defined(VWERASE)
+#  define VWERASE VWERSE
+# endif /* VWERSE && !VWERASE */
+
+# if defined(VDISCRD) && !defined(VDISCARD)
+#  define VDISCARD VDISCRD
+# endif /* VDISCRD && !VDISCARD */
+
+# if defined(VFLUSHO) && !defined(VDISCARD)
+#  define VDISCARD VFLUSHO
+# endif  /* VFLUSHO && VDISCARD */
+
+# if defined(VSTRT) && !defined(VSTART)
+#  define VSTART VSTRT
+# endif /* VSTRT && ! VSTART */
+
+# if defined(VSTAT) && !defined(VSTATUS)
+#  define VSTATUS VSTAT
+# endif /* VSTAT && ! VSTATUS */
+
+# ifndef ONLRET
+#  define ONLRET 0
+# endif /* ONLRET */
+
+# ifndef TAB3
+#  ifdef OXTABS
+#   define TAB3 OXTABS
+#  else
+#   define TAB3 0
+#  endif /* OXTABS */
+# endif /* !TAB3 */
+
+# if defined(OXTABS) && !defined(XTABS)
+#  define XTABS OXTABS
+# endif /* OXTABS && !XTABS */
+
+# ifndef ONLCR
+#  define ONLCR 0
+# endif /* ONLCR */
+
+# ifndef IEXTEN
+#  define IEXTEN 0
+# endif /* IEXTEN */
+
+/*
+ * emx garbage
+ */
+# ifndef IDEFAULT
+#  define IDEFAULT 0
+# endif /* IDEFAULT */
+
+# ifndef IDELETE
+#  define IDELETE 0
+# endif /* IDELETE */
+
+# ifndef ECHOCTL
+#  define ECHOCTL 0
+# endif /* ECHOCTL */
+
+# ifndef PARENB
+#  define PARENB 0
+# endif /* PARENB */
+
+# ifndef EXTPROC
+#  define EXTPROC 0
+# endif /* EXTPROC */
+
+# ifndef FLUSHO
+#  define FLUSHO  0
+# endif /* FLUSHO */
+
+
+# if defined(VDISABLE) && !defined(_POSIX_VDISABLE)
+#  define _POSIX_VDISABLE VDISABLE
+# endif /* VDISABLE && ! _POSIX_VDISABLE */
+
+/*
+ * Work around ISC's definition of IEXTEN which is
+ * XCASE!
+ */
+# ifdef ISC
+#  if defined(IEXTEN) && defined(XCASE)
+#   if IEXTEN == XCASE
+#    undef IEXTEN
+#    define IEXTEN 0
+#   endif /* IEXTEN == XCASE */
+#  endif /* IEXTEN && XCASE */
+#  if defined(IEXTEN) && !defined(XCASE)
+#   define XCASE IEXTEN
+#   undef IEXTEN
+#   define IEXTEN 0
+#  endif /* IEXTEN && !XCASE */
+# endif /* ISC */
+
+/*
+ * Work around convex weirdness where turning off IEXTEN makes us
+ * lose all postprocessing!
+ */
+#ifdef convex
+# if defined(IEXTEN) && IEXTEN != 0
+#  undef IEXTEN
+#  define IEXTEN 0
+# endif /* IEXTEN != 0 */
+#endif /* convex */
+
+
+# else /* SGTTY */
+
+# ifndef LPASS8
+#  define LPASS8  0
+# endif /* LPASS8 */
+
+#endif /* TERMIO || POSIX */
+
+#ifndef _POSIX_VDISABLE
+# define _POSIX_VDISABLE ((unsigned char) -1)
+#endif /* _POSIX_VDISABLE */
+
+
+#if !defined(CREPRINT) && defined(CRPRNT)
+# define CREPRINT CRPRNT
+#endif /* !CREPRINT && CRPRNT */
+#if !defined(CDISCARD) && defined(CFLUSH)
+# define CDISCARD CFLUSH
+#endif /* !CDISCARD && CFLUSH */
+#if !defined(CDISCARD) && defined(CFLUSHO)
+# define CDISCARD CFLUSHO
+#endif /* !CDISCARD && CFLUSHO */
+
+/*
+ * IRIX4.0 control macro is broken!
+ * Ignore and undef all default tty chars defined and redefine only
+ * the ones that are different in the IRIX file.
+ */
+#if __STDC__ && defined(IRIS4D)
+# undef  CINTR
+# define CINTR		0177	/* ^? */
+# undef  CQUIT
+# undef  CERASE
+# define CERASE		TO_CONTROL('h')
+# undef  CKILL
+# undef  CEOF
+# undef  CEOL
+# undef  CEOL2	
+# undef  CSWTCH	
+# define CSWTCH		TO_CONTROL('z')
+# undef  CDSWTCH 
+# undef  CERASE2
+# undef  CSTART
+# undef  CSTOP
+# undef  CWERASE
+# undef  CSUSP
+# undef  CDSUSP
+# undef  CREPRINT
+# undef  CDISCARD
+# undef  CLNEXT
+# undef  CSTATUS
+# undef  CPAGE
+# undef  CPGOFF
+# undef  CKILL2
+# undef  CBRK
+# undef  CMIN
+# undef  CTIME
+#endif /* __STDC__ && IRIS4D */
+
+
+#ifndef CINTR
+# define CINTR		TO_CONTROL('c')
+#endif /* CINTR */
+#ifndef CQUIT
+# define CQUIT		034	/* ^\ */
+#endif /* CQUIT */
+#ifndef CERASE
+# define CERASE		0177	/* ^? */
+#endif /* CERASE */
+#ifndef CKILL
+# define CKILL		TO_CONTROL('u')
+#endif /* CKILL */
+#ifndef CEOF
+# define CEOF		TO_CONTROL('d')
+#endif /* CEOF */
+#ifndef CEOL
+# define CEOL		_POSIX_VDISABLE
+#endif /* CEOL */
+#ifndef CEOL2
+# define CEOL2		_POSIX_VDISABLE
+#endif /* CEOL2 */
+#ifndef CSWTCH
+# define CSWTCH		_POSIX_VDISABLE
+#endif /* CSWTCH */
+#ifndef CDSWTCH
+# define CDSWTCH	_POSIX_VDISABLE
+#endif /* CDSWTCH */
+#ifndef CERASE2
+# define CERASE2	_POSIX_VDISABLE
+#endif /* CERASE2 */
+#ifndef CSTART
+# define CSTART		TO_CONTROL('q')
+#endif /* CSTART */
+#ifndef CSTOP
+# define CSTOP		TO_CONTROL('s')
+#endif /* CSTOP */
+#ifndef CSUSP
+# define CSUSP		TO_CONTROL('z')
+#endif /* CSUSP */
+#ifndef CDSUSP
+# define CDSUSP		TO_CONTROL('y')
+#endif /* CDSUSP */
+
+#ifdef hpux
+
+# ifndef CREPRINT
+#  define CREPRINT	_POSIX_VDISABLE
+# endif /* CREPRINT */
+# ifndef CDISCARD
+#  define CDISCARD	_POSIX_VDISABLE
+# endif /* CDISCARD */
+# ifndef CLNEXT
+#  define CLNEXT	_POSIX_VDISABLE
+# endif /* CLNEXT */
+# ifndef CWERASE
+#  define CWERASE	_POSIX_VDISABLE
+# endif /* CWERASE */
+
+#else /* !hpux */
+
+# ifndef CREPRINT
+#  define CREPRINT	TO_CONTROL('r')
+# endif /* CREPRINT */
+# ifndef CDISCARD
+#  define CDISCARD	TO_CONTROL('o')
+# endif /* CDISCARD */
+# ifndef CLNEXT
+#  define CLNEXT	TO_CONTROL('v')
+# endif /* CLNEXT */
+# ifndef CWERASE
+#  define CWERASE	TO_CONTROL('w')
+# endif /* CWERASE */
+
+#endif /* hpux */
+
+#ifndef CSTATUS
+# define CSTATUS	TO_CONTROL('t')
+#endif /* CSTATUS */
+#ifndef CPAGE
+# define CPAGE		' '
+#endif /* CPAGE */
+#ifndef CPGOFF
+# define CPGOFF		TO_CONTROL('m')
+#endif /* CPGOFF */
+#ifndef CKILL2
+# define CKILL2		_POSIX_VDISABLE
+#endif /* CKILL2 */
+#ifndef CBRK
+# ifndef masscomp
+#  define CBRK		0377
+# else
+#  define CBRK		'\0'
+# endif /* masscomp */
+#endif /* CBRK */
+#ifndef CMIN
+# define CMIN		CEOF
+#endif /* CMIN */
+#ifndef CTIME
+# define CTIME		CEOL
+#endif /* CTIME */
+
+/*
+ * Fix for sun inconsistency. On termio VSUSP and the rest of the
+ * ttychars > NCC are defined. So we undefine them.
+ */
+#if defined(TERMIO) || defined(POSIX)
+# if defined(POSIX) && defined(NCCS)
+#  define NUMCC		NCCS
+# else
+#  ifdef NCC
+#   define NUMCC	NCC
+#  endif /* NCC */
+# endif /* POSIX && NCCS */
+# ifdef NUMCC
+#  ifdef VINTR
+#   if NUMCC <= VINTR
+#    undef VINTR
+#   endif /* NUMCC <= VINTR */
+#  endif /* VINTR */
+#  ifdef VQUIT
+#   if NUMCC <= VQUIT
+#    undef VQUIT
+#   endif /* NUMCC <= VQUIT */
+#  endif /* VQUIT */
+#  ifdef VERASE
+#   if NUMCC <= VERASE
+#    undef VERASE
+#   endif /* NUMCC <= VERASE */
+#  endif /* VERASE */
+#  ifdef VKILL
+#   if NUMCC <= VKILL
+#    undef VKILL
+#   endif /* NUMCC <= VKILL */
+#  endif /* VKILL */
+#  ifdef VEOF
+#   if NUMCC <= VEOF
+#    undef VEOF
+#   endif /* NUMCC <= VEOF */
+#  endif /* VEOF */
+#  ifdef VEOL
+#   if NUMCC <= VEOL
+#    undef VEOL
+#   endif /* NUMCC <= VEOL */
+#  endif /* VEOL */
+#  ifdef VEOL2
+#   if NUMCC <= VEOL2
+#    undef VEOL2
+#   endif /* NUMCC <= VEOL2 */
+#  endif /* VEOL2 */
+#  ifdef VSWTCH
+#   if NUMCC <= VSWTCH
+#    undef VSWTCH
+#   endif /* NUMCC <= VSWTCH */
+#  endif /* VSWTCH */
+#  ifdef VDSWTCH
+#   if NUMCC <= VDSWTCH
+#    undef VDSWTCH
+#   endif /* NUMCC <= VDSWTCH */
+#  endif /* VDSWTCH */
+#  ifdef VERASE2
+#   if NUMCC <= VERASE2
+#    undef VERASE2
+#   endif /* NUMCC <= VERASE2 */
+#  endif /* VERASE2 */
+#  ifdef VSTART
+#   if NUMCC <= VSTART
+#    undef VSTART
+#   endif /* NUMCC <= VSTART */
+#  endif /* VSTART */
+#  ifdef VSTOP
+#   if NUMCC <= VSTOP
+#    undef VSTOP
+#   endif /* NUMCC <= VSTOP */
+#  endif /* VSTOP */
+#  ifdef VWERASE
+#   if NUMCC <= VWERASE
+#    undef VWERASE
+#   endif /* NUMCC <= VWERASE */
+#  endif /* VWERASE */
+#  ifdef VSUSP
+#   if NUMCC <= VSUSP
+#    undef VSUSP
+#   endif /* NUMCC <= VSUSP */
+#  endif /* VSUSP */
+#  ifdef VDSUSP
+#   if NUMCC <= VDSUSP
+#    undef VDSUSP
+#   endif /* NUMCC <= VDSUSP */
+#  endif /* VDSUSP */
+#  ifdef VREPRINT
+#   if NUMCC <= VREPRINT
+#    undef VREPRINT
+#   endif /* NUMCC <= VREPRINT */
+#  endif /* VREPRINT */
+#  ifdef VDISCARD
+#   if NUMCC <= VDISCARD
+#    undef VDISCARD
+#   endif /* NUMCC <= VDISCARD */
+#  endif /* VDISCARD */
+#  ifdef VLNEXT
+#   if NUMCC <= VLNEXT
+#    undef VLNEXT
+#   endif /* NUMCC <= VLNEXT */
+#  endif /* VLNEXT */
+#  ifdef VSTATUS
+#   if NUMCC <= VSTATUS
+#    undef VSTATUS
+#   endif /* NUMCC <= VSTATUS */
+#  endif /* VSTATUS */
+#  ifdef VPAGE
+#   if NUMCC <= VPAGE
+#    undef VPAGE
+#   endif /* NUMCC <= VPAGE */
+#  endif /* VPAGE */
+#  ifdef VPGOFF
+#   if NUMCC <= VPGOFF
+#    undef VPGOFF
+#   endif /* NUMCC <= VPGOFF */
+#  endif /* VPGOFF */
+#  ifdef VKILL2
+#   if NUMCC <= VKILL2
+#    undef VKILL2
+#   endif /* NUMCC <= VKILL2 */
+#  endif /* VKILL2 */
+#  ifdef VBRK
+#   if NUMCC <= VBRK
+#    undef VBRK
+#   endif /* NUMCC <= VBRK */
+#  endif /* VBRK */
+#  ifdef VMIN
+#   if NUMCC <= VMIN
+#    undef VMIN
+#   endif /* NUMCC <= VMIN */
+#  endif /* VMIN */
+#  ifdef VTIME
+#   if NUMCC <= VTIME
+#    undef VTIME
+#   endif /* NUMCC <= VTIME */
+#  endif /* VTIME */
+# endif /* NUMCC */
+#endif /* !POSIX */
+
+/*
+ * fix for hpux10 inconsistency: it has VWERASE, but TIOCSLTC returns
+ * EINVAL if one tries to change it
+ */
+#if defined(hpux) && defined(VSUSP) && defined(VDSUSP) && defined(VWERASE) && d
+efined(VLNEXT)
+# undef TIOCGLTC       /* not really needed */
+# undef TIOCSLTC
+#endif
+
+#define C_INTR		 0
+#define C_QUIT		 1
+#define C_ERASE		 2
+#define C_KILL		 3
+#define C_EOF		 4
+#define C_EOL		 5
+#define C_EOL2		 6
+#define C_SWTCH		 7
+#define C_DSWTCH	 8
+#define C_ERASE2	 9
+#define C_START		10
+#define C_STOP		11
+#define C_WERASE	12
+#define C_SUSP		13
+#define C_DSUSP		14
+#define C_REPRINT	15
+#define C_DISCARD	16
+#define C_LNEXT		17
+#define C_STATUS	18
+#define C_PAGE		19
+#define C_PGOFF		20
+#define C_KILL2		21
+#define C_BRK		22
+#define C_MIN		23
+#define C_TIME		24
+#define C_NCC		25
+#define C_SH(A)		(1 << (A))
+
+#endif /* _h_ed_term */

contrib/tcsh/ed.xmap.c

@@ -0,0 +1,844 @@
+/* $Header: /src/pub/tcsh/ed.xmap.c,v 3.21 1999/06/01 20:01:32 christos Exp $ */
+/*
+ * ed.xmap.c: This module contains the procedures for maintaining
+ *	      the extended-key map.
+ *
+ * 	      An extended-key (Xkey) is a sequence of keystrokes
+ *	      introduced with an sequence introducer and consisting
+ *	      of an arbitrary number of characters.  This module maintains
+ *	      a map (the Xmap) to convert these extended-key sequences
+ * 	      into input strings (XK_STR), editor functions (XK_CMD), or
+ *	      unix commands (XK_EXE). It contains the
+ *	      following externally visible functions.
+ *
+ *		int GetXkey(ch,val);
+ *		CStr *ch;
+ *		XmapVal *val;
+ *
+ *	      Looks up *ch in map and then reads characters until a
+ *	      complete match is found or a mismatch occurs. Returns the
+ *	      type of the match found (XK_STR, XK_CMD, or XK_EXE).
+ *	      Returns NULL in val.str and XK_STR for no match.  
+ *	      The last character read is returned in *ch.
+ *
+ *		void AddXkey(Xkey, val, ntype);
+ *		CStr *Xkey;
+ *		XmapVal *val;
+ *		int ntype;
+ *
+ *	      Adds Xkey to the Xmap and associates the value in val with it.
+ *	      If Xkey is already is in Xmap, the new code is applied to the
+ *	      existing Xkey. Ntype specifies if code is a command, an
+ *	      out string or a unix command.
+ *
+ *	        int DeleteXkey(Xkey);
+ *	        CStr *Xkey;
+ *
+ *	      Delete the Xkey and all longer Xkeys staring with Xkey, if
+ *	      they exists.
+ *
+ *	      Warning:
+ *		If Xkey is a substring of some other Xkeys, then the longer
+ *		Xkeys are lost!!  That is, if the Xkeys "abcd" and "abcef"
+ *		are in Xmap, adding the key "abc" will cause the first two
+ *		definitions to be lost.
+ *
+ *		void ResetXmap();
+ *
+ *	      Removes all entries from Xmap and resets the defaults.
+ *
+ *		void PrintXkey(Xkey);
+ *		CStr *Xkey;
+ *
+ *	      Prints all extended keys prefixed by Xkey and their associated
+ *	      commands.
+ *
+ *	      Restrictions:
+ *	      -------------
+ *	        1) It is not possible to have one Xkey that is a
+ *		   substring of another.
+ */
+/*-
+ * Copyright (c) 1980, 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+#include "sh.h"
+
+RCSID("$Id: ed.xmap.c,v 3.21 1999/06/01 20:01:32 christos Exp $")
+
+#include "ed.h"
+#include "ed.defns.h"
+
+#ifndef NULL
+#define NULL 0
+#endif
+
+/* Internal Data types and declarations */
+
+/* The Nodes of the Xmap.  The Xmap is a linked list of these node
+ * elements
+ */
+typedef struct Xmapnode {
+    Char    ch;			/* single character of Xkey */
+    int     type;
+    XmapVal val; 		/* command code or pointer to string, if this
+				 * is a leaf */
+    struct Xmapnode *next;	/* ptr to next char of this Xkey */
+    struct Xmapnode *sibling;	/* ptr to another Xkey with same prefix */
+} XmapNode;
+
+static XmapNode *Xmap = NULL;	/* the current Xmap */
+#define MAXXKEY 100		/* max length of a Xkey for print putposes */
+static Char printbuf[MAXXKEY];	/* buffer for printing */
+
+
+/* Some declarations of procedures */
+static	int       TraverseMap	__P((XmapNode *, CStr *, XmapVal *));
+static	int       TryNode	__P((XmapNode *, CStr *, XmapVal *, int));
+static	XmapNode *GetFreeNode	__P((CStr *));
+static	void	  PutFreeNode	__P((XmapNode *));
+static	int	  TryDeleteNode	__P((XmapNode **, CStr *));
+static	int	  Lookup	__P((CStr *, XmapNode *, int));
+static	int	  Enumerate	__P((XmapNode *, int));
+static	int	  unparsech	__P((int, Char *));
+
+
+XmapVal *
+XmapCmd(cmd)
+    int cmd;
+{
+    static XmapVal xm;
+    xm.cmd = (KEYCMD) cmd;
+    return &xm;
+}
+
+XmapVal *
+XmapStr(str)
+    CStr  *str;
+{
+    static XmapVal xm;
+    xm.str.len = str->len;
+    xm.str.buf = str->buf;
+    return &xm;
+}
+
+/* ResetXmap():
+ *	Takes all nodes on Xmap and puts them on free list.  Then
+ *	initializes Xmap with arrow keys
+ */
+void
+ResetXmap()
+{
+    PutFreeNode(Xmap);
+    Xmap = NULL;
+
+    DefaultArrowKeys();
+    return;
+}
+
+
+/* GetXkey():
+ *	Calls the recursive function with entry point Xmap
+ */
+int
+GetXkey(ch, val)
+    CStr     *ch;
+    XmapVal  *val;
+{
+    return (TraverseMap(Xmap, ch, val));
+}
+
+/* TraverseMap():
+ *	recursively traverses node in tree until match or mismatch is
+ * 	found.  May read in more characters.
+ */
+static int
+TraverseMap(ptr, ch, val)
+    XmapNode *ptr;
+    CStr     *ch;
+    XmapVal  *val;
+{
+    Char    tch;
+
+    if (ptr->ch == *(ch->buf)) {
+	/* match found */
+	if (ptr->next) {
+	    /* Xkey not complete so get next char */
+	    if (GetNextChar(&tch) != 1) {	/* if EOF or error */
+		val->cmd = F_SEND_EOF;
+		return XK_CMD;/* PWP: Pretend we just read an end-of-file */
+	    }
+	    *(ch->buf) = tch;
+	    return (TraverseMap(ptr->next, ch, val));
+	}
+	else {
+	    *val = ptr->val;
+	    if (ptr->type != XK_CMD)
+		*(ch->buf) = '\0';
+	    return ptr->type;
+	}
+    }
+    else {
+	/* no match found here */
+	if (ptr->sibling) {
+	    /* try next sibling */
+	    return (TraverseMap(ptr->sibling, ch, val));
+	}
+	else {
+	    /* no next sibling -- mismatch */
+	    val->str.buf = NULL;
+	    val->str.len = 0;
+	    return XK_STR;
+	}
+    }
+}
+
+void
+AddXkey(Xkey, val, ntype)
+    CStr    *Xkey;
+    XmapVal *val;
+    int      ntype;
+{
+    CStr cs;
+    cs.buf = Xkey->buf;
+    cs.len = Xkey->len;
+    if (Xkey->len == 0) {
+	xprintf(CGETS(9, 1, "AddXkey: Null extended-key not allowed.\n"));
+	return;
+    }
+
+    if (ntype == XK_CMD && val->cmd == F_XKEY) {
+	xprintf(CGETS(9, 2, "AddXkey: sequence-lead-in command not allowed\n"));
+	return;
+    }
+
+    if (Xmap == NULL)
+	/* tree is initially empty.  Set up new node to match Xkey[0] */
+	Xmap = GetFreeNode(&cs);	/* it is properly initialized */
+
+    /* Now recurse through Xmap */
+    (void) TryNode(Xmap, &cs, val, ntype);	
+    return;
+}
+
+static int
+TryNode(ptr, str, val, ntype)
+    XmapNode *ptr;
+    CStr     *str;
+    XmapVal  *val;
+    int       ntype;
+{
+    /*
+     * Find a node that matches *string or allocate a new one
+     */
+    if (ptr->ch != *(str->buf)) {
+	XmapNode *xm;
+
+	for (xm = ptr; xm->sibling != NULL; xm = xm->sibling)
+	    if (xm->sibling->ch == *(str->buf))
+		break;
+	if (xm->sibling == NULL)
+	    xm->sibling = GetFreeNode(str);	/* setup new node */
+	ptr = xm->sibling;
+    }
+
+    str->buf++;
+    str->len--;
+    if (str->len == 0) {
+	/* we're there */
+	if (ptr->next != NULL) {
+	    PutFreeNode(ptr->next);	/* lose longer Xkeys with this prefix */
+	    ptr->next = NULL;
+	}
+
+	switch (ptr->type) {
+	case XK_STR:
+	case XK_EXE:
+	    if (ptr->val.str.buf != NULL)
+		xfree((ptr_t) ptr->val.str.buf);
+	    ptr->val.str.len = 0;
+	    break;
+	case XK_NOD:
+	case XK_CMD:
+	    break;
+	default:
+	    abort();
+	    break;
+	}
+
+	switch (ptr->type = ntype) {
+	case XK_CMD:
+	    ptr->val = *val;
+	    break;
+	case XK_STR:
+	case XK_EXE:
+	    ptr->val.str.len = (val->str.len + 1) * sizeof(Char);
+	    ptr->val.str.buf = (Char *) xmalloc((size_t) ptr->val.str.len);
+	    (void) memmove((ptr_t) ptr->val.str.buf, (ptr_t) val->str.buf,
+			   (size_t) ptr->val.str.len);
+	    ptr->val.str.len = val->str.len;
+	    break;
+	default:
+	    abort();
+	    break;
+	}
+    }
+    else {
+	/* still more chars to go */
+	if (ptr->next == NULL)
+	    ptr->next = GetFreeNode(str);	/* setup new node */
+	(void) TryNode(ptr->next, str, val, ntype);
+    }
+    return (0);
+}
+
+void
+ClearXkey(map, in)
+    KEYCMD *map;
+    CStr   *in;
+{
+    unsigned char c = (unsigned char) *(in->buf);
+    if ((map[c] == F_XKEY) &&
+	((map == CcKeyMap && CcAltMap[c] != F_XKEY) ||
+	 (map == CcAltMap && CcKeyMap[c] != F_XKEY)))
+	(void) DeleteXkey(in);
+}
+
+int
+DeleteXkey(Xkey)
+    CStr   *Xkey;
+{
+    if (Xkey->len == 0) {
+	xprintf(CGETS(9, 3, "DeleteXkey: Null extended-key not allowed.\n"));
+	return (-1);
+    }
+
+    if (Xmap == NULL)
+	return (0);
+
+    (void) TryDeleteNode(&Xmap, Xkey);
+    return (0);
+}
+
+static int
+TryDeleteNode(inptr, str)
+    XmapNode **inptr;
+    CStr   *str;
+{
+    XmapNode *ptr;
+    XmapNode *prev_ptr = NULL;
+
+    ptr = *inptr;
+    /*
+     * Find a node that matches *string or allocate a new one
+     */
+    if (ptr->ch != *(str->buf)) {
+	XmapNode *xm;
+
+	for (xm = ptr; xm->sibling != NULL; xm = xm->sibling)
+	    if (xm->sibling->ch == *(str->buf))
+		break;
+	if (xm->sibling == NULL)
+	    return (0);
+	prev_ptr = xm;
+	ptr = xm->sibling;
+    }
+
+    str->buf++;
+    str->len--;
+
+    if (str->len == 0) {
+	/* we're there */
+	if (prev_ptr == NULL)
+	    *inptr = ptr->sibling;
+	else
+	    prev_ptr->sibling = ptr->sibling;
+	ptr->sibling = NULL;
+	PutFreeNode(ptr);
+	return (1);
+    }
+    else if (ptr->next != NULL && TryDeleteNode(&ptr->next, str) == 1) {
+	if (ptr->next != NULL)
+	    return (0);
+	if (prev_ptr == NULL)
+	    *inptr = ptr->sibling;
+	else
+	    prev_ptr->sibling = ptr->sibling;
+	ptr->sibling = NULL;
+	PutFreeNode(ptr);
+	return (1);
+    }
+    else {
+	return (0);
+    }
+}
+
+/* PutFreeNode():
+ *	Puts a tree of nodes onto free list using free(3).
+ */
+static void
+PutFreeNode(ptr)
+    XmapNode *ptr;
+{
+    if (ptr == NULL)
+	return;
+
+    if (ptr->next != NULL) {
+	PutFreeNode(ptr->next);
+	ptr->next = NULL;
+    }
+
+    PutFreeNode(ptr->sibling);
+
+    switch (ptr->type) {
+    case XK_CMD:
+    case XK_NOD:
+	break;
+    case XK_EXE:
+    case XK_STR:
+	if (ptr->val.str.buf != NULL)
+	    xfree((ptr_t) ptr->val.str.buf);
+	break;
+    default:
+	abort();
+	break;
+    }
+    xfree((ptr_t) ptr);
+}
+
+
+/* GetFreeNode():
+ *	Returns pointer to an XmapNode for ch.
+ */
+static XmapNode *
+GetFreeNode(ch)
+    CStr *ch;
+{
+    XmapNode *ptr;
+
+    ptr = (XmapNode *) xmalloc((size_t) sizeof(XmapNode));
+    ptr->ch = ch->buf[0];
+    ptr->type = XK_NOD;
+    ptr->val.str.buf = NULL;
+    ptr->val.str.len = 0;
+    ptr->next = NULL;
+    ptr->sibling = NULL;
+    return (ptr);
+}
+ 
+
+/* PrintXKey():
+ *	Print the binding associated with Xkey key.
+ *	Print entire Xmap if null
+ */
+void
+PrintXkey(key)
+    CStr   *key;
+{
+    CStr cs;
+
+    if (key) {
+	cs.buf = key->buf;
+	cs.len = key->len;
+    }
+    else {
+	cs.buf = STRNULL;
+	cs.len = 0;
+    }
+    /* do nothing if Xmap is empty and null key specified */
+    if (Xmap == NULL && cs.len == 0)
+	return;
+
+    printbuf[0] =  '"';
+    if (Lookup(&cs, Xmap, 1) <= -1)
+	/* key is not bound */
+	xprintf(CGETS(9, 4, "Unbound extended key \"%S\"\n"), cs.buf);
+    return;
+}
+
+/* Lookup():
+ *	look for the string starting at node ptr.
+ *	Print if last node
+ */
+static int
+Lookup(str, ptr, cnt)
+    CStr   *str;
+    XmapNode *ptr;
+    int     cnt;
+{
+    int     ncnt;
+
+    if (ptr == NULL)
+	return (-1);		/* cannot have null ptr */
+
+    if (str->len == 0) {
+	/* no more chars in string.  Enumerate from here. */
+	(void) Enumerate(ptr, cnt);
+	return (0);
+    }
+    else {
+	/* If match put this char into printbuf.  Recurse */
+	if (ptr->ch == *(str->buf)) {
+	    /* match found */
+	    ncnt = unparsech(cnt, &ptr->ch);
+	    if (ptr->next != NULL) {
+		/* not yet at leaf */
+		CStr tstr;
+		tstr.buf = str->buf + 1;
+		tstr.len = str->len - 1;
+		return (Lookup(&tstr, ptr->next, ncnt + 1));
+	    }
+	    else {
+		/* next node is null so key should be complete */
+		if (str->len == 1) {
+		    CStr pb;
+		    printbuf[ncnt + 1] = '"';
+		    printbuf[ncnt + 2] = '\0';
+		    pb.buf = printbuf;
+		    pb.len = ncnt + 2;
+		    (void) printOne(&pb, &ptr->val, ptr->type);
+		    return (0);
+		}
+		else
+		    return (-1);/* mismatch -- string still has chars */
+	    }
+	}
+	else {
+	    /* no match found try sibling */
+	    if (ptr->sibling)
+		return (Lookup(str, ptr->sibling, cnt));
+	    else
+		return (-1);
+	}
+    }
+}
+
+static int
+Enumerate(ptr, cnt)
+    XmapNode *ptr;
+    int     cnt;
+{
+    int     ncnt;
+
+    if (cnt >= MAXXKEY - 5) {	/* buffer too small */
+	printbuf[++cnt] = '"';
+	printbuf[++cnt] = '\0';
+	xprintf(CGETS(9, 5,
+		"Some extended keys too long for internal print buffer"));
+	xprintf(" \"%S...\"\n", printbuf);
+	return (0);
+    }
+
+    if (ptr == NULL) {
+#ifdef DEBUG_EDIT
+	xprintf(CGETS(9, 6, "Enumerate: BUG!! Null ptr passed\n!"));
+#endif
+	return (-1);
+    }
+
+    ncnt = unparsech(cnt, &ptr->ch); /* put this char at end of string */
+    if (ptr->next == NULL) {
+	CStr pb;
+	/* print this Xkey and function */
+	printbuf[++ncnt] = '"';
+	printbuf[++ncnt] = '\0';
+	pb.buf = printbuf;
+	pb.len = ncnt;
+	(void) printOne(&pb, &ptr->val, ptr->type);
+    }
+    else
+	(void) Enumerate(ptr->next, ncnt + 1);
+
+    /* go to sibling if there is one */
+    if (ptr->sibling)
+	(void) Enumerate(ptr->sibling, cnt);
+    return (0);
+}
+
+
+/* PrintOne():
+ *	Print the specified key and its associated
+ *	function specified by val
+ */
+int
+printOne(key, val, ntype)
+    CStr    *key;
+    XmapVal *val;
+    int      ntype;
+{
+    struct KeyFuncs *fp;
+    unsigned char unparsbuf[200];
+    static char *fmt = "%s\n";
+
+    xprintf("%-15S-> ", key->buf);
+    if (val != NULL)
+	switch (ntype) {
+	case XK_STR:
+	case XK_EXE:
+	    xprintf(fmt, unparsestring(&val->str, unparsbuf, 
+				       ntype == XK_STR ? STRQQ : STRBB));
+	    break;
+	case XK_CMD:
+	    for (fp = FuncNames; fp->name; fp++)
+		if (val->cmd == fp->func)
+		    xprintf(fmt, fp->name);
+		break;
+	default:
+	    abort();
+	    break;
+	}
+    else
+	xprintf(fmt, key, CGETS(9, 7, "no input"));
+    return (0);
+}
+
+static int
+unparsech(cnt, ch)
+    int   cnt;
+    Char  *ch;
+{
+    if (ch == 0) {
+	printbuf[cnt++] = '^';
+	printbuf[cnt] = '@';
+	return cnt;
+    }
+
+    if (Iscntrl(*ch)) {
+#ifndef _OSD_POSIX
+	printbuf[cnt++] = '^';
+	if (*ch == CTL_ESC('\177'))
+	    printbuf[cnt] = '?';
+	else
+	    printbuf[cnt] = *ch | 0100;
+#else /*_OSD_POSIX*/
+	if (*ch == CTL_ESC('\177'))
+	{
+		printbuf[cnt++] = '^';
+		printbuf[cnt] = '?';
+	}
+	else if (Isupper(_toebcdic[_toascii[*ch]|0100])
+		|| strchr("@[\\]^_", _toebcdic[_toascii[*ch]|0100]) != NULL)
+	{
+		printbuf[cnt++] = '^';
+		printbuf[cnt] = _toebcdic[_toascii[*ch]|0100];
+	}
+	else
+	{
+		printbuf[cnt++] = '\\';
+		printbuf[cnt++] = ((*ch >> 6) & 7) + '0';
+		printbuf[cnt++] = ((*ch >> 3) & 7) + '0';
+		printbuf[cnt] = (*ch & 7) + '0';
+	}
+#endif /*_OSD_POSIX*/
+    }
+    else if (*ch == '^') {
+	printbuf[cnt++] = '\\';
+	printbuf[cnt] = '^';
+    }
+    else if (*ch == '\\') {
+	printbuf[cnt++] = '\\';
+	printbuf[cnt] = '\\';
+    }
+    else if (*ch == ' ' || (Isprint(*ch) && !Isspace(*ch))) {
+	printbuf[cnt] = *ch;
+    }
+    else {
+	printbuf[cnt++] = '\\';
+	printbuf[cnt++] = ((*ch >> 6) & 7) + '0';
+	printbuf[cnt++] = ((*ch >> 3) & 7) + '0';
+	printbuf[cnt] = (*ch & 7) + '0';
+    }
+    return cnt;
+}
+
+int
+parseescape(ptr)
+    const Char  **ptr;
+{
+    const Char *p;
+    Char c;
+
+    p = *ptr;
+
+    if ((p[1] & CHAR) == 0) {
+	xprintf(CGETS(9, 8, "Something must follow: %c\n"), *p);
+	return -1;
+    }
+    if ((*p & CHAR) == '\\') {
+	p++;
+	switch (*p & CHAR) {
+	case 'a':
+	    c = CTL_ESC('\007');         /* Bell */
+	    break;
+	case 'b':
+	    c = CTL_ESC('\010');         /* Backspace */
+	    break;
+	case 'e':
+	    c = CTL_ESC('\033');         /* Escape */
+	    break;
+	case 'f':
+	    c = CTL_ESC('\014');         /* Form Feed */
+	    break;
+	case 'n':
+	    c = CTL_ESC('\012');         /* New Line */
+	    break;
+	case 'r':
+	    c = CTL_ESC('\015');         /* Carriage Return */
+	    break;
+	case 't':
+	    c = CTL_ESC('\011');         /* Horizontal Tab */
+	    break;
+	case 'v':
+	    c = CTL_ESC('\013');         /* Vertical Tab */
+	    break;
+	case '0':
+	case '1':
+	case '2':
+	case '3':
+	case '4':
+	case '5':
+	case '6':
+	case '7':
+	    {
+		register int cnt, val, ch;
+
+		for (cnt = 0, val = 0; cnt < 3; cnt++) {
+		    ch = *p++ & CHAR;
+		    if (ch < '0' || ch > '7') {
+			p--;
+			break;
+		    }
+		    val = (val << 3) | (ch - '0');
+		}
+		if ((val & 0xffffff00) != 0) {
+		    xprintf(CGETS(9, 9,
+			    "Octal constant does not fit in a char.\n"));
+		    return 0;
+		}
+#ifdef _OSD_POSIX
+		if (CTL_ESC(val) != val && adrof(STRwarnebcdic))
+		    xprintf(/*CGETS(9, 9, no NLS-String yet!*/
+			    "Warning: Octal constant \\%3.3o is interpreted as EBCDIC value.\n", val/*)*/);
+#endif
+		c = (Char) val;
+		--p;
+	    }
+	    break;
+	default:
+	    c = *p;
+	    break;
+	}
+    }
+    else if ((*p & CHAR) == '^' && (Isalpha(p[1] & CHAR) || 
+				    strchr("@^_?\\|[{]}", p[1] & CHAR))) {
+	p++;
+#ifndef _OSD_POSIX
+	c = ((*p & CHAR) == '?') ? CTL_ESC('\177') : ((*p & CHAR) & 0237);
+#else /*_OSD_POSIX*/
+	c = ((*p & CHAR) == '?') ? CTL_ESC('\177') : _toebcdic[_toascii[*p & CHAR] & 0237];
+	if (adrof(STRwarnebcdic))
+	    xprintf(/*CGETS(9, 9, no NLS-String yet!*/
+		"Warning: Control character ^%c may be interpreted differently in EBCDIC.\n", *p & CHAR /*)*/);
+#endif /*_OSD_POSIX*/
+    }
+    else
+	c = *p;
+    *ptr = p;
+    return (c);
+}
+
+
+unsigned char *
+unparsestring(str, buf, sep)
+    CStr   *str;
+    unsigned char *buf;
+    Char   *sep;
+{
+    unsigned char *b;
+    Char   p;
+    int l;
+
+    b = buf;
+    if (sep[0])
+#ifndef WINNT
+	*b++ = sep[0];
+#else /* WINNT */
+	*b++ = CHAR & sep[0];
+#endif /* !WINNT */
+
+    for (l = 0; l < str->len; l++) {
+	p = str->buf[l];
+	if (Iscntrl(p)) {
+#ifndef _OSD_POSIX
+	    *b++ = '^';
+	    if (p == CTL_ESC('\177'))
+		*b++ = '?';
+	    else
+		*b++ = (unsigned char) (p | 0100);
+#else /*_OSD_POSIX*/
+	    if (_toascii[p] == '\177' || Isupper(_toebcdic[_toascii[p]|0100])
+		 || strchr("@[\\]^_", _toebcdic[_toascii[p]|0100]) != NULL)
+	    {
+		*b++ = '^';
+		*b++ = (_toascii[p] == '\177') ? '?' : _toebcdic[_toascii[p]|0100];
+	    }
+	    else
+	    {
+		*b++ = '\\';
+		*b++ = ((p >> 6) & 7) + '0';
+		*b++ = ((p >> 3) & 7) + '0';
+		*b++ = (p & 7) + '0';
+	    }
+#endif /*_OSD_POSIX*/
+	}
+	else if (p == '^' || p == '\\') {
+	    *b++ = '\\';
+	    *b++ = (unsigned char) p;
+	}
+	else if (p == ' ' || (Isprint(p) && !Isspace(p))) {
+	    *b++ = (unsigned char) p;
+	}
+	else {
+	    *b++ = '\\';
+	    *b++ = ((p >> 6) & 7) + '0';
+	    *b++ = ((p >> 3) & 7) + '0';
+	    *b++ = (p & 7) + '0';
+	}
+    }
+    if (sep[0] && sep[1])
+#ifndef WINNT
+	*b++ = sep[1];
+#else /* WINNT */
+	*b++ = CHAR & sep[1];
+#endif /* !WINNT */
+    *b++ = 0;
+    return buf;			/* should check for overflow */
+}

contrib/tcsh/eight-bit.me

@@ -0,0 +1,143 @@
+.\" $Id: eight-bit.me,v 3.1 1991/09/12 09:25:57 christos Exp $
+How to use 8 bit characters
+by 
+Johan Widen 
+(jw@sics.se) 
+and 
+Per Hedeland 
+(per@erix.ericsson.se)
+
+.pp
+(Disclaimer: This is really a sketch of an approach rather
+than a "how-to" document.
+Also, it is mostly relevant to Swedish X Window users...)
+
+.pp
+The way I use this facility at present is to add lines such as the following
+to my .cshrc:
+
+.nf 
+setenv NOREBIND
+setenv LC_CTYPE iso_8859_1
+foreach key ( \\\\304 \\\\305 \\\\326 \\\\344 \\\\345 \\\\366 )
+   bindkey $key self-insert-command
+end
+.fi
+
+.pp
+Note that if I used a system with a reasonably complete NLS
+(and a tcsh compiled to use it),
+all of the above could be replaced with simply setting the LANG environment
+variable to an appropriate value - the NLS would then indicate exactly which
+characters should be considered printable, and tcsh would do the rebinding
+of these automatically. The above works for tcsh's simulated NLS and for
+the NLS in SunOS 4.1 - without the NOREBIND setting, all of the
+Meta-<non-control-character> bindings would be undone in these cases.
+
+.pp
+These keybindings are the codes for my national characters, but the bindings
+(M-d, M-e etc) are not conveniently placed.
+They are however consistent with what other programs will see.
+
+.pp
+Now: I actually want the character \\304 to be inserted when I press say '{'
+together with a modifier key. I want the behavior to be the same not only
+in tcsh but in say cat, an editor and all other programs. I fix this by
+performing a keyboard remapping with the
+.i xmodmap
+program (I use X Windows).
+
+.pp
+I give xmodmap an input something like the following:
+
+.nf
+keycode 26 = Mode_switch
+add mod2 = Mode_switch
+! if you want Mode_switch to toggle, at the expense of losing
+! Caps- or whatever Lock you currently have, add the two lines below
+! clear Lock
+! add Lock = Mode_switch
+! 	Binds swedish characters on ][\\
+!
+keycode 71 = bracketleft braceleft adiaeresis Adiaeresis
+keycode 72 = bracketright braceright aring Aring
+keycode 95 = backslash bar odiaeresis Odiaeresis
+.fi
+
+or:
+
+.nf
+keysym Alt_R = Mode_switch
+add mod2 = Mode_switch
+keysym bracketleft = bracketleft braceleft Adiaeresis adiaeresis
+keysym bracketright = bracketright braceright Aring aring
+keysym backslash = backslash bar Odiaeresis odiaeresis
+.fi
+
+Another, more portable way of doing the same thing is:
+
+.nf
+#!/bin/sh
+# Make Alt-] etc produce the "appropriate" Swedish iso8859/1 keysym values
+# Should handle fairly strange initial mappings
+
+xmodmap -pk | sed -e 's/[()]//g' | \\
+awk 'BEGIN {
+	alt["bracketright"] = "Aring"; alt["braceright"] = "aring";
+	alt["bracketleft"] = "Adiaeresis"; alt["braceleft"] = "adiaeresis";
+	alt["backslash"] = "Odiaeresis"; alt["bar"] = "odiaeresis";
+}
+NF >= 5 && (alt[$3] != "" || alt[$5] != "") {
+	printf "keycode %s = %s %s ", $1, $3, $5;
+	if (alt[$3] != "") printf "%s ", alt[$3];
+	else printf "%s ", $3;
+	printf "%s\\n", alt[$5];
+	next;
+}
+alt[$3] != "" {
+	printf "keycode %s = %s %s %s\\n", $1, $3, $3, alt[$3];
+}
+NF >= 5 && ($3 ~ /^Alt_[LR]$/ || $5 ~ /^Alt_[LR]$/) {
+	printf "keycode %s = %s %s Mode_switch\\n", $1, $3, $5;
+	if ($3 ~ /^Alt_[LR]$/) altkeys = altkeys " " $3;
+	else altkeys = altkeys " " $5;
+	next;
+}
+$3 ~ /^Alt_[LR]$/ {
+	printf "keycode %s = %s %s Mode_switch\\n", $1, $3, $3;
+	altkeys = altkeys " " $3;
+}
+END {
+	if (altkeys != "") printf "clear mod2\\nadd mod2 =%s\\n", altkeys;
+}' | xmodmap -
+.fi
+
+.pp
+Finally, with the binding of the codes of my national characters to
+self-insert-command, I lost the ability to use the Meta key to call the
+functions previously bound to M-d, M-e, and M-v (<esc>d etc still works).
+However, with the assumption that
+most of my input to tcsh will be through the
+.i xterm
+terminal emulator, I can get that ability back via xterm bindings!
+Since M-d is the only one of the "lost" key combinations that was
+actually bound to a function in my case,
+and it had the same binding as M-D, I can use the following in
+my .Xdefaults file:
+
+.nf
+XTerm*VT100.Translations:	#override \\n\\
+			Meta ~Ctrl<Key>d:	string(0x1b) string(d)
+.fi
+
+- or, if I really want a complete mapping:
+
+.nf
+XTerm*VT100.Translations:	#override \\n\\
+			:Meta ~Ctrl<Key>d:	string(0x1b) string(d) \\n\\
+			:Meta ~Ctrl<Key>D:	string(0x1b) string(D) \\n\\
+			:Meta ~Ctrl<Key>e:	string(0x1b) string(e) \\n\\
+			:Meta ~Ctrl<Key>E:	string(0x1b) string(E) \\n\\
+			:Meta ~Ctrl<Key>v:	string(0x1b) string(v) \\n\\
+			:Meta ~Ctrl<Key>V:	string(0x1b) string(V)
+.fi

contrib/tcsh/gethost.c

@@ -0,0 +1,344 @@
+/* $Header: /src/pub/tcsh/gethost.c,v 1.7 1997/10/28 22:34:19 christos Exp $ */
+/*
+ * gethost.c: Create version file from prototype
+ */
+/*-
+ * Copyright (c) 1980, 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+#include "sh.h"
+
+RCSID("$Id: gethost.c,v 1.7 1997/10/28 22:34:19 christos Exp $")
+
+#ifdef SCO
+# define perror __perror
+# define rename __rename
+# define getopt __getopt
+# define system __system
+#endif
+#include <stdio.h>
+#ifdef SCO
+# undef perror
+# undef rename
+# undef getopt
+# undef system
+#endif
+
+#include <ctype.h>
+
+/* Some people don't bother to declare these */
+#if defined(SUNOS4) || defined(ibm032)
+extern int fprintf();
+extern int fclose();
+#endif /* SUNOS4 || ibm032 */
+
+#define ISSPACE(p)	(isspace((unsigned char) (p)) && (p) != '\n')
+
+/* 
+ * We cannot do that, because some compilers like #line and others
+ * like # <lineno>
+ * #define LINEDIRECTIVE 
+ */
+
+static const char *keyword[] =
+{
+    "vendor",
+#define T_VENDOR	0
+    "hosttype",
+#define T_HOSTTYPE	1
+    "machtype",
+#define T_MACHTYPE	2
+    "ostype",
+#define T_OSTYPE	3
+    "newdef",
+#define T_NEWDEF	4
+    "enddef",
+#define T_ENDDEF	5
+    "newcode",
+#define T_NEWCODE	6
+    "endcode",
+#define T_ENDCODE	7
+    "comment",
+#define T_COMMENT	8
+    "macro",
+#define T_MACRO		9
+    NULL
+#define T_NONE		10
+};
+
+#define S_DISCARD	0
+#define S_COMMENT	1
+#define S_CODE		2
+#define S_KEYWORD	3
+
+static int findtoken __P((char *));
+static char *gettoken __P((char **, char  *));
+
+int main __P((int, char *[]));
+
+/* findtoken():
+ *	Return the token number of the given token
+ */
+static int
+findtoken(ptr)
+    char *ptr;
+{
+    int i;
+
+    if (ptr == NULL || *ptr == '\0')
+	return T_NONE;
+
+    for (i = 0; keyword[i] != NULL; i++)
+	if (strcmp(keyword[i], ptr) == 0)
+	    return i;
+
+    return T_NONE;
+}
+
+
+/* gettoken():
+ *	Get : delimited token and remove leading/trailing blanks/newlines
+ */
+static char *
+gettoken(pptr, token)
+    char **pptr;
+    char  *token;
+{
+    char *ptr = *pptr;
+    char *tok = token;
+
+    for (; *ptr && ISSPACE(*ptr); ptr++)
+	continue;
+
+    for (; *ptr && *ptr != ':'; *tok++ = *ptr++)
+	continue;
+
+    if (*ptr == ':')
+	ptr++;
+    else
+	tok--;
+
+    for (tok--; tok >= token && *tok && ISSPACE(*tok); tok--)
+	continue;
+
+    *++tok = '\0';
+
+    *pptr = ptr;
+    return token;
+}
+	
+
+int
+main(argc, argv)
+    int argc;
+    char *argv[];
+{
+    char line[INBUFSIZE];
+    char *pname;
+    char *fname = "stdin";
+    char *ptr, *tok;
+    char defs[INBUFSIZE];
+    char stmt[INBUFSIZE];
+    FILE *fp = stdin;
+    int lineno = 0;
+    int inprocess = 0;
+    int token, state;
+    int errs = 0;
+
+    if ((pname = strrchr(argv[0], '/')) == NULL)
+	pname = argv[0];
+    else
+	pname++;
+
+    if (argc > 2) {
+	(void) fprintf(stderr, "Usage: %s [<filename>]\n", pname);
+	return 1;
+    }
+
+    if (argc == 2)
+	if ((fp = fopen(fname = argv[1], "r")) == NULL) {
+	    (void) fprintf(stderr, "%s: Cannot open `%s'\n", pname, fname);
+	    return 1;
+	}
+
+    state = S_DISCARD;
+
+    while ((ptr = fgets(line, sizeof(line), fp)) != NULL) {
+	lineno++;
+	switch (token = findtoken(gettoken(&ptr, defs))) {
+	case T_NEWCODE:
+	    state = S_CODE;
+	    break;
+
+	case T_ENDCODE:
+	    state = S_DISCARD;
+	    break;
+
+	case T_COMMENT:
+	    state = S_COMMENT;
+	    break;
+
+	case T_NEWDEF:
+	    state = S_KEYWORD;
+	    break;
+
+	case T_ENDDEF:
+	    state = S_DISCARD;
+	    break;
+
+	case T_VENDOR:
+	    state = S_KEYWORD;
+	    break;
+
+	case T_HOSTTYPE:
+	    state = S_KEYWORD;
+	    break;
+
+	case T_MACHTYPE:
+	    state = S_KEYWORD;
+	    break;
+
+	case T_OSTYPE:
+	    state = S_KEYWORD;
+	    break;
+
+	case T_MACRO:
+	    if (gettoken(&ptr, defs) == NULL) {
+		(void) fprintf(stderr, "%s: \"%s\", %d: Missing macro name\n",
+			       pname, fname, lineno);
+		break;
+	    }
+	    if (gettoken(&ptr, stmt) == NULL) {
+		(void) fprintf(stderr, "%s: \"%s\", %d: Missing macro body\n",
+			       pname, fname, lineno);
+		break;
+	    }
+	    (void) fprintf(stdout, "\n#if %s\n# define %s\n#endif\n\n", stmt,
+			   defs);
+	    break;
+
+	case T_NONE:
+	    if (state != S_CODE && defs && *defs != '\0') {
+		(void) fprintf(stderr, "%s: \"%s\", %d: Discarded\n",
+			       pname, fname, lineno);
+		if (++errs == 30) {
+		    (void) fprintf(stderr, "%s: Too many errors\n", pname);
+		    return 1;
+		}
+		break;
+	    }
+	    (void) fprintf(stdout, "%s", line);
+	    break;
+
+	default:
+	    (void) fprintf(stderr, "%s: \"%s\", %d: Unexpected token\n",
+			   pname, fname, lineno);
+	    return 1;
+	}
+
+	switch (state) {
+	case S_DISCARD:
+	    if (inprocess) {
+		inprocess = 0;
+		(void) fprintf(stdout, "#endif\n");
+	    }
+	    break;
+
+	case S_KEYWORD:
+	    tok = gettoken(&ptr, defs);
+	    if (token == T_NEWDEF) {
+		if (inprocess) {
+		    (void) fprintf(stderr, "%s: \"%s\", %d: Missing enddef\n",
+				   pname, fname, lineno);
+		    return 1;
+		}
+		if (tok == NULL) {
+		    (void) fprintf(stderr, "%s: \"%s\", %d: No defs\n",
+				   pname, fname, lineno);
+		    return 1;
+		}
+		(void) fprintf(stdout, "\n\n");
+#ifdef LINEDIRECTIVE
+		(void) fprintf(stdout, "# %d \"%s\"\n", lineno + 1, fname);
+#endif /* LINEDIRECTIVE */
+		(void) fprintf(stdout, "#if %s\n", defs);
+		inprocess = 1;
+	    }
+	    else {
+		if (tok && *tok)
+		    (void) fprintf(stdout, "# if (%s) && !defined(_%s_)\n",
+				   defs, keyword[token]);
+		else
+		    (void) fprintf(stdout, "# if !defined(_%s_)\n", 
+				   keyword[token]);
+
+		if (gettoken(&ptr, stmt) == NULL) {
+		    (void) fprintf(stderr, "%s: \"%s\", %d: No statement\n",
+				   pname, fname, lineno);
+		    return 1;
+		}
+		(void) fprintf(stdout, "# define _%s_\n", keyword[token]);
+		(void) fprintf(stdout, "    %s = %s;\n", keyword[token], stmt);
+		(void) fprintf(stdout, "# endif\n");
+	    }
+	    break;
+
+	case S_COMMENT:
+	    if (gettoken(&ptr, defs))
+		(void) fprintf(stdout, "    /* %s */\n", defs);
+	    break;
+
+	case S_CODE:
+	    if (token == T_NEWCODE) {
+#ifdef LINEDIRECTIVE
+		(void) fprintf(stdout, "# %d \"%s\"\n", lineno + 1, fname);
+#endif /* LINEDIRECTIVE */
+	    }
+	    break;
+
+	default:
+	    (void) fprintf(stderr, "%s: \"%s\", %d: Unexpected state\n",
+			   pname, fname, lineno);
+	    return 1;
+	}
+    }
+
+    if (inprocess) {
+	(void) fprintf(stderr, "%s: \"%s\", %d: Missing enddef\n",
+		       pname, fname, lineno);
+	return 1;
+    }
+
+    if (fp != stdin)
+	(void) fclose(fp);
+
+    return 0;
+}

contrib/tcsh/glob.3

@@ -0,0 +1,326 @@
+.\" Copyright (c) 1989 The Regents of the University of California.
+.\" All rights reserved.
+.\"
+.\" This code is derived from software contributed to Berkeley by
+.\" Guido van Rossum.
+.\"
+.\" Redistribution and use in source and binary forms are permitted provided
+.\" that: (1) source distributions retain this entire copyright notice and
+.\" comment, and (2) distributions including binaries display the following
+.\" acknowledgement:  ``This product includes software developed by the
+.\" University of California, Berkeley and its contributors'' in the
+.\" documentation or other materials provided with the distribution and in
+.\" all advertising materials mentioning features or use of this software.
+.\" Neither the name of the University nor the names of its contributors may
+.\" be used to endorse or promote products derived from this software without
+.\" specific prior written permission.
+.\" THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
+.\" WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
+.\" MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+.\"
+.\"	@(#)glob.3	5.3 (Berkeley) 3/19/91
+.\"
+.TH GLOB 3 "March 19, 1991"
+.UC 7
+.SH NAME
+glob, globfree \- generate pathnames matching a pattern
+.SH SYNOPSIS
+.nf
+#include <glob.h>
+
+glob(const char *pattern, int flags,
+	const int (*errfunc)(char *, int), glob_t *pglob);
+
+void globfree(glob_t *pglob);
+.fi
+.SH DESCRIPTION
+.I Glob
+is a pathname generator that implements the rules for file name pattern
+matching used by the shell.
+.PP
+The include file
+.I glob.h
+defines the structure type
+.IR glob_t ,
+which contains at least the following fields:
+.sp
+.RS
+.nf
+.ta .5i +\w'char **gl_pathv;\0\0\0'u
+typedef struct {
+	int gl_pathc;		/* count of total paths so far */
+	int gl_matchc;		/* count of paths matching pattern */
+	int gl_offs;		/* reserved at beginning of gl_pathv */
+	int gl_flags;		/* returned flags */
+	char **gl_pathv;	/* list of paths matching pattern */
+} glob_t;
+.fi
+.RE
+.PP
+The argument
+.I pattern
+is a pointer to a pathname pattern to be expanded.
+.I Glob
+matches all accessible pathnames against the pattern and creates
+a list of the pathnames that match.
+In order to have access to a pathname,
+.I glob
+requires search permission on every component of a path except the last
+and read permission on each directory of any filename component of
+.I pattern
+that contains any of the special characters ``*'', ``?'' or ``[''.
+.PP
+.I Glob
+stores the number of matched pathnames into the
+.I gl_pathc
+field, and a pointer to a list of pointers to pathnames into the
+.I gl_pathv
+field.
+The first pointer after the last pathname is NULL.
+If the pattern does not match any pathnames, the returned number of
+matched paths is set to zero.
+.PP
+It is the caller's responsibility to create the structure pointed to by
+.IR pglob .
+The
+.I glob
+function allocates other space as needed, including the memory pointed
+to by
+.IR gl_pathv .
+.PP
+The argument
+.I flags
+is used to modify the behavior of
+.IR glob .
+The value of
+.I flags
+is the bitwise inclusive OR of any of the following
+values defined in
+.IR glob.h :
+.TP
+GLOB_APPEND
+Append pathnames generated to the ones from a previous call (or calls)
+to
+.IR glob .
+The value of
+.I gl_pathc
+will be the total matches found by this call and the previous call(s).
+The pathnames are appended to, not merged with the pathnames returned by
+the previous call(s).
+Between calls, the caller must not change the setting of the
+GLOB_DOOFFS flag, nor change the value of
+.I gl_offs
+when
+GLOB_DOOFFS is set, nor (obviously) call
+.I globfree
+for
+.I pglob.
+.TP
+GLOB_DOOFFS
+Make use of the
+.I gl_offs
+field.
+If this flag is set,
+.I gl_offs
+is used to specify how many NULL pointers to prepend to the beginning
+of the
+.I gl_pathv
+field.
+In other words,
+.I gl_pathv
+will point to
+.I gl_offs
+NULL pointers,
+followed by
+.I gl_pathc
+pathname pointers, followed by a NULL pointer.
+.TP
+GLOB_ERR
+Causes
+.I glob
+to return when it encounters a directory that it cannot open or read.
+Ordinarily,
+.I glob
+continues to find matches.
+.TP
+GLOB_MARK
+Each pathname that is a directory that matches
+.I pattern
+has a slash
+appended.
+.TP
+GLOB_NOSORT
+By default, the pathnames are sorted in ascending ASCII order;
+this flag prevents that sorting (speeding up
+.IR glob ).
+.TP
+GLOB_NOCHECK
+If
+.I pattern
+does not match any pathname, then
+.I glob
+returns a list
+consisting of only
+.IR pattern ,
+with the number of total pathnames is set to 1, and the number of matched
+pathnames set to 0.
+If
+.I GLOB_QUOTE
+is set, its effect is present in the pattern returned.
+.TP
+GLOB_QUOTE
+Use the backslash (``\e'') character for quoting: every occurrence of
+a backslash followed by a character in the pattern is replaced by that
+character, avoiding any special interpretation of the character.
+.TP
+GLOB_NOMAGIC
+Is the same as GLOB_NOCHECK but it only appends the
+.IR pattern
+if it does not contain any of the special characters ``*'', ``?'' or ``[''.
+GLOB_NOMAGIC is used to simplify implementing the globbing behavior in
+.IR csh(1).
+.PP
+If, during the search, a directory is encountered that cannot be opened
+or read and
+.I errfunc
+is non-NULL,
+.I glob
+calls (*\fIerrfunc\fP)(\fIpath\fP, \fIerrno\fP).
+This may be unintuitive: a pattern like ``*/Makefile'' will try to
+.IR stat (2)
+``foo/Makefile'' even if ``foo'' is not a directory, resulting in a
+call to
+.IR errfunc .
+The error routine can suppress this action by testing for ENOENT and
+ENOTDIR; however, the GLOB_ERR flag will still cause an immediate
+return when this happens.
+.PP
+If
+.I errfunc
+returns non-zero,
+.I glob
+stops the scan and returns
+.I GLOB_ABEND
+after setting
+.I gl_pathc
+and
+.I gl_pathv
+to reflect any paths already matched.
+This also happens if an error is encountered and
+.I GLOB_ERR
+is set in
+.IR flags ,
+regardless of the return value of
+.IR errfunc ,
+if called.
+If
+.I GLOB_ERR
+is not set and either
+.I errfunc
+is NULL or
+.I errfunc
+returns zero, the error is ignored.
+.PP
+The
+.I globfree
+function frees any space associated with
+.I pglob
+from a previous call(s) to
+.IR glob .
+.SH RETURNS
+On successful completion,
+.I glob
+returns zero.
+In addition the fields of
+.I pglob
+contain the values described below:
+.TP
+.I gl_pathc
+contains the total number of matched pathnames so far.
+This includes other matches from previous invocations of 
+.I glob 
+if 
+.I GLOB_APPEND 
+was specified.
+.TP
+.I gl_matchc
+contains the number of matched pathnames in the current invocation of
+.I glob.
+.TP
+.I gl_flags
+contains a copy of the 
+.I flags 
+parameter with the bit GLOB_MAGCHAR set if
+.I pattern
+contained any of the special characters ``*'', ``?'' or ``['', cleared
+if not.
+.TP
+.I gl_pathv
+contains a pointer to a NULL-terminated list of matched pathnames.
+However, if
+.I gl_pathc
+is zero, the contents of
+.I gl_pathv
+are undefined.
+.PP
+If
+.I glob
+terminates due to an error, it sets errno and returns one of the
+following non-zero constants, which are defined in the include
+file <glob.h>:
+.TP
+GLOB_NOSPACE
+An attempt to allocate memory failed.
+.TP
+GLOB_ABEND
+The scan was stopped because an error was encountered and either
+GLOB_ERR was set or (*\fIerrfunc\fR)() returned non-zero.
+.PP
+The arguments
+.I pglob->gl_pathc
+and
+.I pglob->gl_pathv
+are still set as specified above.
+.SH STANDARDS
+The
+.I glob
+function is expected to be POSIX 1003.2 compatible with the exception
+that the flag 
+.I GLOB_QUOTE 
+and the fields 
+.I gl_matchc 
+and 
+.I gl_flags 
+should not be used by applications striving for strict POSIX conformance.
+.SH EXAMPLE
+A rough equivalent of ``ls -l *.c *.h'' can be obtained with the
+following code:
+.sp
+.nf
+.RS
+glob_t g;
+
+g.gl_offs = 2;
+glob("*.c", GLOB_DOOFFS, NULL, &g);
+glob("*.h", GLOB_DOOFFS | GLOB_APPEND, NULL, &g);
+g.gl_pathv[0] = "ls";
+g.gl_pathv[1] = "-l";
+execvp("ls", g.gl_pathv);
+.RE
+.fi
+.SH SEE ALSO
+sh(1), fnmatch(3), wordexp(3), regexp(3)
+.SH BUGS
+Patterns longer than MAXPATHLEN may cause unchecked errors.
+.PP
+.I Glob
+may fail and set errno for any of the errors specified for the
+library routines
+.I stat (2),
+.I closedir (3),
+.I opendir (3),
+.I readdir (3),
+.I malloc (3),
+and
+.I free (3).
+

contrib/tcsh/glob.c

@@ -0,0 +1,723 @@
+/*
+ * Copyright (c) 1989 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Guido van Rossum.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+#if defined(LIBC_SCCS) && !defined(lint)
+static char sccsid[] = "@(#)glob.c	5.12 (Berkeley) 6/24/91";
+#endif /* LIBC_SCCS and not lint */
+/*
+ * Glob: the interface is a superset of the one defined in POSIX 1003.2,
+ * draft 9.
+ *
+ * The [!...] convention to negate a range is supported (SysV, Posix, ksh).
+ *
+ * Optional extra services, controlled by flags not defined by POSIX:
+ *
+ * GLOB_QUOTE:
+ *	Escaping convention: \ inhibits any special meaning the following
+ *	character might have (except \ at end of string is retained).
+ * GLOB_MAGCHAR:
+ *	Set in gl_flags if pattern contained a globbing character.
+ * GLOB_ALTNOT:
+ *	Use ^ instead of ! for "not".
+ * gl_matchc:
+ *	Number of matches in the current invocation of glob.
+ */
+
+#ifdef notdef
+#include <sys/types.h>
+#include <sys/param.h>
+#include <sys/stat.h>
+#include <dirent.h>
+#include <ctype.h>
+typedef void * ptr_t;
+#endif
+#ifdef WINNT
+	#pragma warning(disable:4244)
+#endif /* WINNT */
+
+#define Char __Char
+#include "sh.h"
+#undef Char
+#undef QUOTE
+#undef TILDE
+#undef META
+#undef CHAR
+#undef ismeta
+#undef Strchr
+
+#include "glob.h"
+
+#ifndef S_ISDIR
+#define S_ISDIR(a)	(((a) & S_IFMT) == S_IFDIR)
+#endif
+
+#if !defined(S_ISLNK) && defined(S_IFLNK)
+#define S_ISLNK(a)	(((a) & S_IFMT) == S_IFLNK)
+#endif
+
+#if !defined(S_ISLNK) && !defined(lstat)
+#define lstat stat
+#endif
+
+typedef unsigned short Char;
+
+static	int	 glob1 		__P((Char *, glob_t *, int));
+static	int	 glob2		__P((Char *, Char *, Char *, glob_t *, int));
+static	int	 glob3		__P((Char *, Char *, Char *, Char *,
+				     glob_t *, int));
+static	int	 globextend	__P((Char *, glob_t *));
+static	int	 match		__P((Char *, Char *, Char *, int));
+#ifndef __clipper__
+static	int	 compare	__P((const ptr_t, const ptr_t));
+#endif
+static 	DIR	*Opendir	__P((Char *));
+#ifdef S_IFLNK
+static	int	 Lstat		__P((Char *, struct stat *));
+#endif
+static	int	 Stat		__P((Char *, struct stat *sb));
+static 	Char 	*Strchr		__P((Char *, int));
+#ifdef DEBUG
+static	void	 qprintf	__P((Char *));
+#endif
+
+#define	DOLLAR		'$'
+#define	DOT		'.'
+#define	EOS		'\0'
+#define	LBRACKET	'['
+#define	NOT		'!'
+#define ALTNOT		'^'
+#define	QUESTION	'?'
+#define	QUOTE		'\\'
+#define	RANGE		'-'
+#define	RBRACKET	']'
+#define	SEP		'/'
+#define	STAR		'*'
+#define	TILDE		'~'
+#define	UNDERSCORE	'_'
+
+#define	M_META		0x8000
+#define M_PROTECT	0x4000
+#define	M_MASK		0xffff
+#define	M_ASCII		0x00ff
+
+#define	CHAR(c)		((c)&M_ASCII)
+#define	META(c)		((c)|M_META)
+#define	M_ALL		META('*')
+#define	M_END		META(']')
+#define	M_NOT		META('!')
+#define	M_ALTNOT	META('^')
+#define	M_ONE		META('?')
+#define	M_RNG		META('-')
+#define	M_SET		META('[')
+#define	ismeta(c)	(((c)&M_META) != 0)
+
+#ifndef BUFSIZE
+#define GLOBBUFLEN	MAXPATHLEN
+#else
+#define GLOBBUFLEN	BUFSIZE
+#endif
+
+int
+globcharcoll(c1, c2)
+    int c1, c2;
+{
+#if defined(NLS) && defined(LC_COLLATE) && !defined(NOSTRCOLL)
+    char s1[2], s2[2];
+
+    if (c1 == c2)
+	return (0);
+    s1[0] = c1;
+    s2[0] = c2;
+    s1[1] = s2[1] = '\0';
+    return strcoll(s1, s2);
+#else
+    return (c1 - c2);
+#endif
+}
+
+/*
+ * Need to dodge two kernel bugs:
+ * opendir("") != opendir(".")
+ * NAMEI_BUG: on plain files trailing slashes are ignored in some kernels.
+ *            POSIX specifies that they should be ignored in directories.
+ */
+
+static DIR *
+Opendir(str)
+    register Char *str;
+{
+    char    buf[GLOBBUFLEN];
+    register char *dc = buf;
+#if defined(hpux) || defined(__hpux)
+    struct stat st;
+#endif
+
+    if (!*str)
+	return (opendir("."));
+    while ((*dc++ = *str++) != '\0')
+	continue;
+#if defined(hpux) || defined(__hpux)
+    /*
+     * Opendir on some device files hangs, so avoid it
+     */
+    if (stat(buf, &st) == -1 || !S_ISDIR(st.st_mode))
+	return NULL;
+#endif
+    return (opendir(buf));
+}
+
+#ifdef S_IFLNK
+static int
+Lstat(fn, sb)
+    register Char *fn;
+    struct stat *sb;
+{
+    char    buf[GLOBBUFLEN];
+    register char *dc = buf;
+
+    while ((*dc++ = *fn++) != '\0')
+	continue;
+# ifdef NAMEI_BUG
+    {
+	int     st;
+
+	st = lstat(buf, sb);
+	if (*buf)
+	    dc--;
+	return (*--dc == '/' && !S_ISDIR(sb->st_mode) ? -1 : st);
+    }
+# else
+    return (lstat(buf, sb));
+# endif	/* NAMEI_BUG */
+}
+#else
+#define Lstat Stat
+#endif /* S_IFLNK */
+
+static int
+Stat(fn, sb)
+    register Char *fn;
+    struct stat *sb;
+{
+    char    buf[GLOBBUFLEN];
+    register char *dc = buf;
+
+    while ((*dc++ = *fn++) != '\0')
+	continue;
+#ifdef NAMEI_BUG
+    {
+	int     st;
+
+	st = stat(buf, sb);
+	if (*buf)
+	    dc--;
+	return (*--dc == '/' && !S_ISDIR(sb->st_mode) ? -1 : st);
+    }
+#else
+    return (stat(buf, sb));
+#endif /* NAMEI_BUG */
+}
+
+static Char *
+Strchr(str, ch)
+    Char *str;
+    int ch;
+{
+    do
+	if (*str == ch)
+	    return (str);
+    while (*str++);
+    return (NULL);
+}
+
+#ifdef DEBUG
+static void
+qprintf(s)
+Char *s;
+{
+    Char *p;
+
+    for (p = s; *p; p++)
+	printf("%c", *p & 0xff);
+    printf("\n");
+    for (p = s; *p; p++)
+	printf("%c", *p & M_PROTECT ? '"' : ' ');
+    printf("\n");
+    for (p = s; *p; p++)
+	printf("%c", *p & M_META ? '_' : ' ');
+    printf("\n");
+}
+#endif /* DEBUG */
+
+static int
+compare(p, q)
+    const ptr_t  p, q;
+{
+#if defined(NLS) && !defined(NOSTRCOLL)
+    errno = 0;  /* strcoll sets errno, another brain-damage */
+ 
+    return (strcoll(*(char **) p, *(char **) q));
+#else
+    return (strcmp(*(char **) p, *(char **) q));
+#endif /* NLS && !NOSTRCOLL */
+}
+
+/*
+ * The main glob() routine: compiles the pattern (optionally processing
+ * quotes), calls glob1() to do the real pattern matching, and finally
+ * sorts the list (unless unsorted operation is requested).  Returns 0
+ * if things went well, nonzero if errors occurred.  It is not an error
+ * to find no matches.
+ */
+int
+glob(pattern, flags, errfunc, pglob)
+    const char *pattern;
+    int     flags;
+    int     (*errfunc) __P((const char *, int));
+    glob_t *pglob;
+{
+    int     err, oldpathc;
+    Char *bufnext, *bufend, *compilebuf, m_not;
+    const unsigned char *compilepat, *patnext;
+    int     c, not;
+    Char patbuf[GLOBBUFLEN + 1], *qpatnext;
+    int     no_match;
+
+    patnext = (unsigned char *) pattern;
+    if (!(flags & GLOB_APPEND)) {
+	pglob->gl_pathc = 0;
+	pglob->gl_pathv = NULL;
+	if (!(flags & GLOB_DOOFFS))
+	    pglob->gl_offs = 0;
+    }
+    pglob->gl_flags = flags & ~GLOB_MAGCHAR;
+    pglob->gl_errfunc = errfunc;
+    oldpathc = pglob->gl_pathc;
+    pglob->gl_matchc = 0;
+
+    if (pglob->gl_flags & GLOB_ALTNOT) {
+	not = ALTNOT;
+	m_not = M_ALTNOT;
+    }
+    else {
+	not = NOT;
+	m_not = M_NOT;
+    }
+
+    bufnext = patbuf;
+    bufend = bufnext + GLOBBUFLEN;
+    compilebuf = bufnext;
+    compilepat = patnext;
+
+    no_match = *patnext == not;
+    if (no_match)
+	patnext++;
+
+    if (flags & GLOB_QUOTE) {
+	/* Protect the quoted characters */
+	while (bufnext < bufend && (c = *patnext++) != EOS) 
+	    if (c == QUOTE) {
+		if ((c = *patnext++) == EOS) {
+		    c = QUOTE;
+		    --patnext;
+		}
+		*bufnext++ = (Char) (c | M_PROTECT);
+	    }
+	    else
+		*bufnext++ = (Char) c;
+    }
+    else 
+	while (bufnext < bufend && (c = *patnext++) != EOS) 
+	    *bufnext++ = (Char) c;
+    *bufnext = EOS;
+
+    bufnext = patbuf;
+    qpatnext = patbuf;
+    /* we don't need to check for buffer overflow any more */
+    while ((c = *qpatnext++) != EOS) {
+	switch (c) {
+	case LBRACKET:
+	    c = *qpatnext;
+	    if (c == not)
+		++qpatnext;
+	    if (*qpatnext == EOS ||
+		Strchr(qpatnext + 1, RBRACKET) == NULL) {
+		*bufnext++ = LBRACKET;
+		if (c == not)
+		    --qpatnext;
+		break;
+	    }
+	    pglob->gl_flags |= GLOB_MAGCHAR;
+	    *bufnext++ = M_SET;
+	    if (c == not)
+		*bufnext++ = m_not;
+	    c = *qpatnext++;
+	    do {
+		*bufnext++ = CHAR(c);
+		if (*qpatnext == RANGE &&
+		    (c = qpatnext[1]) != RBRACKET) {
+		    *bufnext++ = M_RNG;
+		    *bufnext++ = CHAR(c);
+		    qpatnext += 2;
+		}
+	    } while ((c = *qpatnext++) != RBRACKET);
+	    *bufnext++ = M_END;
+	    break;
+	case QUESTION:
+	    pglob->gl_flags |= GLOB_MAGCHAR;
+	    *bufnext++ = M_ONE;
+	    break;
+	case STAR:
+	    pglob->gl_flags |= GLOB_MAGCHAR;
+	    /* collapse adjacent stars to one, to avoid
+	     * exponential behavior
+	     */
+	    if (bufnext == patbuf || bufnext[-1] != M_ALL)
+		*bufnext++ = M_ALL;
+	    break;
+	default:
+	    *bufnext++ = CHAR(c);
+	    break;
+	}
+    }
+    *bufnext = EOS;
+#ifdef DEBUG
+    qprintf(patbuf);
+#endif
+
+    if ((err = glob1(patbuf, pglob, no_match)) != 0)
+	return (err);
+
+    /*
+     * If there was no match we are going to append the pattern 
+     * if GLOB_NOCHECK was specified or if GLOB_NOMAGIC was specified
+     * and the pattern did not contain any magic characters
+     * GLOB_NOMAGIC is there just for compatibility with csh.
+     */
+    if (pglob->gl_pathc == oldpathc && 
+	((flags & GLOB_NOCHECK) || 
+	 ((flags & GLOB_NOMAGIC) && !(pglob->gl_flags & GLOB_MAGCHAR)))) {
+	if (!(flags & GLOB_QUOTE)) {
+	    Char *dp = compilebuf;
+	    const unsigned char *sp = compilepat;
+
+	    while ((*dp++ = *sp++) != '\0')
+		continue;
+	}
+	else {
+	    /*
+	     * copy pattern, interpreting quotes; this is slightly different
+	     * than the interpretation of quotes above -- which should prevail?
+	     */
+	    while (*compilepat != EOS) {
+		if (*compilepat == QUOTE) {
+		    if (*++compilepat == EOS)
+			--compilepat;
+		}
+		*compilebuf++ = (unsigned char) *compilepat++;
+	    }
+	    *compilebuf = EOS;
+	}
+	return (globextend(patbuf, pglob));
+    }
+    else if (!(flags & GLOB_NOSORT))
+	qsort((char *) (pglob->gl_pathv + pglob->gl_offs + oldpathc),
+	      pglob->gl_pathc - oldpathc, sizeof(char *),
+	      (int (*) __P((const void *, const void *))) compare);
+    return (0);
+}
+
+static int
+glob1(pattern, pglob, no_match)
+    Char *pattern;
+    glob_t *pglob;
+    int     no_match;
+{
+    Char pathbuf[GLOBBUFLEN + 1];
+
+    /*
+     * a null pathname is invalid -- POSIX 1003.1 sect. 2.4.
+     */
+    if (*pattern == EOS)
+	return (0);
+    return (glob2(pathbuf, pathbuf, pattern, pglob, no_match));
+}
+
+/*
+ * functions glob2 and glob3 are mutually recursive; there is one level
+ * of recursion for each segment in the pattern that contains one or
+ * more meta characters.
+ */
+static int
+glob2(pathbuf, pathend, pattern, pglob, no_match)
+    Char *pathbuf, *pathend, *pattern;
+    glob_t *pglob;
+    int     no_match;
+{
+    struct stat sbuf;
+    int anymeta;
+    Char *p, *q;
+
+    /*
+     * loop over pattern segments until end of pattern or until segment with
+     * meta character found.
+     */
+    anymeta = 0;
+    for (;;) {
+	if (*pattern == EOS) {	/* end of pattern? */
+	    *pathend = EOS;
+
+	    if (Lstat(pathbuf, &sbuf))
+		return (0);
+
+	    if (((pglob->gl_flags & GLOB_MARK) &&
+		 pathend[-1] != SEP) &&
+		(S_ISDIR(sbuf.st_mode)
+#ifdef S_IFLNK
+		 || (S_ISLNK(sbuf.st_mode) &&
+		     (Stat(pathbuf, &sbuf) == 0) &&
+		     S_ISDIR(sbuf.st_mode))
+#endif
+		 )) {
+		*pathend++ = SEP;
+		*pathend = EOS;
+	    }
+	    ++pglob->gl_matchc;
+	    return (globextend(pathbuf, pglob));
+	}
+
+	/* find end of next segment, copy tentatively to pathend */
+	q = pathend;
+	p = pattern;
+	while (*p != EOS && *p != SEP) {
+	    if (ismeta(*p))
+		anymeta = 1;
+	    *q++ = *p++;
+	}
+
+	if (!anymeta) {		/* no expansion, do next segment */
+	    pathend = q;
+	    pattern = p;
+	    while (*pattern == SEP)
+		*pathend++ = *pattern++;
+	}
+	else			/* need expansion, recurse */
+	    return (glob3(pathbuf, pathend, pattern, p, pglob, no_match));
+    }
+    /* NOTREACHED */
+}
+
+
+static int
+glob3(pathbuf, pathend, pattern, restpattern, pglob, no_match)
+    Char *pathbuf, *pathend, *pattern, *restpattern;
+    glob_t *pglob;
+    int     no_match;
+{
+    extern int errno;
+    DIR    *dirp;
+    struct dirent *dp;
+    int     err;
+    Char m_not = (pglob->gl_flags & GLOB_ALTNOT) ? M_ALTNOT : M_NOT;
+    char cpathbuf[GLOBBUFLEN], *ptr;;
+
+    *pathend = EOS;
+    errno = 0;
+
+    if (!(dirp = Opendir(pathbuf))) {
+	/* todo: don't call for ENOENT or ENOTDIR? */
+	for (ptr = cpathbuf; (*ptr++ = (char) *pathbuf++) != EOS;)
+	    continue;
+	if ((pglob->gl_errfunc && (*pglob->gl_errfunc) (cpathbuf, errno)) ||
+	    (pglob->gl_flags & GLOB_ERR))
+	    return (GLOB_ABEND);
+	else
+	    return (0);
+    }
+
+    err = 0;
+
+    /* search directory for matching names */
+    while ((dp = readdir(dirp)) != NULL) {
+	register unsigned char *sc;
+	register Char *dc;
+
+	/* initial DOT must be matched literally */
+	if (dp->d_name[0] == DOT && *pattern != DOT)
+	    continue;
+	for (sc = (unsigned char *) dp->d_name, dc = pathend; 
+	     (*dc++ = *sc++) != '\0';)
+	    continue;
+	if (match(pathend, pattern, restpattern, (int) m_not) == no_match) {
+	    *pathend = EOS;
+	    continue;
+	}
+	err = glob2(pathbuf, --dc, restpattern, pglob, no_match);
+	if (err)
+	    break;
+    }
+    /* todo: check error from readdir? */
+    (void) closedir(dirp);
+    return (err);
+}
+
+
+/*
+ * Extend the gl_pathv member of a glob_t structure to accomodate a new item,
+ * add the new item, and update gl_pathc.
+ *
+ * This assumes the BSD realloc, which only copies the block when its size
+ * crosses a power-of-two boundary; for v7 realloc, this would cause quadratic
+ * behavior.
+ *
+ * Return 0 if new item added, error code if memory couldn't be allocated.
+ *
+ * Invariant of the glob_t structure:
+ *	Either gl_pathc is zero and gl_pathv is NULL; or gl_pathc > 0 and
+ *	 gl_pathv points to (gl_offs + gl_pathc + 1) items.
+ */
+static int
+globextend(path, pglob)
+    Char *path;
+    glob_t *pglob;
+{
+    register char **pathv;
+    register int i;
+    unsigned int newsize;
+    char   *copy;
+    Char *p;
+
+    newsize = sizeof(*pathv) * (2 + pglob->gl_pathc + pglob->gl_offs);
+    pathv = (char **) (pglob->gl_pathv ?
+		       xrealloc((ptr_t) pglob->gl_pathv, (size_t) newsize) :
+		       xmalloc((size_t) newsize));
+    if (pathv == NULL)
+	return (GLOB_NOSPACE);
+
+    if (pglob->gl_pathv == NULL && pglob->gl_offs > 0) {
+	/* first time around -- clear initial gl_offs items */
+	pathv += pglob->gl_offs;
+	for (i = pglob->gl_offs; --i >= 0;)
+	    *--pathv = NULL;
+    }
+    pglob->gl_pathv = pathv;
+
+    for (p = path; *p++;)
+	continue;
+    if ((copy = (char *) xmalloc((size_t) (p - path))) != NULL) {
+	register char *dc = copy;
+	register Char *sc = path;
+
+	while ((*dc++ = *sc++) != '\0')
+	    continue;
+	pathv[pglob->gl_offs + pglob->gl_pathc++] = copy;
+    }
+    pathv[pglob->gl_offs + pglob->gl_pathc] = NULL;
+    return ((copy == NULL) ? GLOB_NOSPACE : 0);
+}
+
+
+/*
+ * pattern matching function for filenames.  Each occurrence of the *
+ * pattern causes a recursion level.
+ */
+static  int
+match(name, pat, patend, m_not)
+    register Char *name, *pat, *patend;
+    int m_not;
+{
+    int ok, negate_range;
+    Char c, k;
+
+    while (pat < patend) {
+	c = *pat++;
+	switch (c & M_MASK) {
+	case M_ALL:
+	    if (pat == patend)
+		return (1);
+	    do 
+		if (match(name, pat, patend, m_not))
+		    return (1);
+	    while (*name++ != EOS);
+	    return (0);
+	case M_ONE:
+	    if (*name++ == EOS)
+		return (0);
+	    break;
+	case M_SET:
+	    ok = 0;
+	    if ((k = *name++) == EOS)
+		return (0);
+	    if ((negate_range = ((*pat & M_MASK) == m_not)) != 0)
+		++pat;
+	    while (((c = *pat++) & M_MASK) != M_END) {
+		if ((*pat & M_MASK) == M_RNG) {
+		    if (globcharcoll(CHAR(c), CHAR(k)) <= 0 &&
+			globcharcoll(CHAR(k), CHAR(pat[1])) <= 0)
+			ok = 1;
+		    pat += 2;
+		}
+		else if (c == k)
+		    ok = 1;
+	    }
+	    if (ok == negate_range)
+		return (0);
+	    break;
+	default:
+	    k = *name++;
+	    if (samecase(k) != samecase(c))
+		return (0);
+	    break;
+	}
+    }
+    return (*name == EOS);
+}
+
+/* free allocated data belonging to a glob_t structure */
+void
+globfree(pglob)
+    glob_t *pglob;
+{
+    register int i;
+    register char **pp;
+
+    if (pglob->gl_pathv != NULL) {
+	pp = pglob->gl_pathv + pglob->gl_offs;
+	for (i = pglob->gl_pathc; i--; ++pp)
+	    if (*pp)
+		xfree((ptr_t) *pp), *pp = NULL;
+	xfree((ptr_t) pglob->gl_pathv), pglob->gl_pathv = NULL;
+    }
+}

contrib/tcsh/glob.h

@@ -0,0 +1,71 @@
+/*
+ * Copyright (c) 1989 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Guido van Rossum.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ *	@(#)glob.h	5.6 (Berkeley) 4/3/91
+ */
+
+#ifndef _GLOB_H_
+#define	_GLOB_H_
+
+typedef struct {
+	int gl_pathc;		/* count of total paths so far */
+	int gl_matchc;		/* count of paths matching pattern */
+	int gl_offs;		/* reserved at beginning of gl_pathv */
+	int gl_flags;		/* copy of flags parameter to glob() */
+				/* copy of errfunc parameter to glob() */
+	int (*gl_errfunc) __P((const char *, int));
+	char **gl_pathv;	/* list of paths matching pattern */
+} glob_t;
+
+#define	GLOB_APPEND	0x001	/* append to output from previous call */
+#define	GLOB_DOOFFS	0x002	/* use gl_offs */
+#define	GLOB_ERR	0x004	/* return on error */
+#define	GLOB_MAGCHAR	0x008	/* pattern had globbing characters */
+#define	GLOB_MARK	0x010	/* append / to matching directories */
+#define	GLOB_NOCHECK	0x020	/* return pattern itself if nothing matches */
+#define	GLOB_NOSORT	0x040	/* don't sort */
+#define	GLOB_QUOTE	0x080	/* quote special chars with \ */
+#define GLOB_NOMAGIC	0x100	/* like GLOB_NOCHECK but only if the pattern
+				 * did not have any magic characters */
+#define	GLOB_ALTNOT	0x200	/* use alternate glob character [^ not !] */
+
+#define	GLOB_NOSPACE	(-1)	/* malloc call failed */
+#define	GLOB_ABEND	(-2)	/* unignored error */
+
+int glob __P((const char *, int, int (*)(const char *, int), glob_t *));
+void globfree __P((glob_t *));
+int globcharcoll __P((int, int));
+
+#endif /* !_GLOB_H_ */

contrib/tcsh/imake.config

@@ -0,0 +1,65 @@
+/*
+ * $Id: imake.config,v 1.4 1995/03/05 03:18:09 christos Exp $
+ *
+ * config.Imakefile for for tcsh 6.00
+ * Marc Horowitz, MIT SIPB
+ */
+
+/* installed location of tcsh, if different than the default in
+	pathnames.h */
+/* #define TcshPath /afs/sipb/project/tcsh/tcsh */
+
+/* The following #define's may be used to cause tcsh to link against
+these libraries.  If you have one of the machines which is defined in
+the Imakefile, the correct libraries will automatically be used.  It's
+better to set up new definitions in the Imakefile than to put them
+here if you're defining support for a new machine, rather than
+configuring for local hacks. */
+/* #define UseLibTermcap */
+/* #define UseLibCurses */
+/* #define UseLibNet */
+/* #define UseLibSocket */
+/* #define UseLibBsd */
+/* #define UseLibC_S */
+/* #define UseLibSun */
+/* #define UseLibCposix */
+/* #define UseLibInet */
+/* #define UseLibDir */
+/* #define UseLibX */
+/* #define UseLibIntl */
+/* #define UseLibPosix */
+/* #define UseLibDirent */
+
+/* define if you want to use gcc.  Your site.def file may already do
+this, but it shouldn't hurt. */
+/* #define HasGcc */
+
+/* define if you have some different compiler than cc or gcc */
+/* #define MyCC xlc */
+
+/* define if you have Hesiod passwd information, and want tcsh to use it */
+/* #define HESIOD */
+
+/* define if you have AFS and want to use kerberos passwd authentication */
+/* #define AFS */
+/* define as well if your version of AFS is 3.3 or higher */
+/* #define AFS33 */
+
+/* defines installation dir if different from /usr/local.  The
+executable will be put in TcshTop/bin/tcsh, and the man page in
+TcshTop/man/man1/tcsh.1 */
+/* #define TcshTop /afs/sipb/project/tcsh */
+
+/* define any of the following if you want to change the compiler flags */
+/* #define MyCflags */
+/* #define MyDefines */
+/* #define MyIncludes */
+/* #define MyLibs */
+
+/* By default, the compiler debug flags are -O.  Define this if you
+want them to be something else. */
+/* #define CDebugFlags -g -O */
+
+/* If you want HOSTTYPE to be something other than the default in
+tc.vers.c, define it here */
+/* #define HostType decmips */

contrib/tcsh/install-sh

@@ -0,0 +1,251 @@
+#!/bin/sh
+#
+# install - install a program, script, or datafile
+# This comes from X11R5 (mit/util/scripts/install.sh).
+#
+# Copyright 1991 by the Massachusetts Institute of Technology
+#
+# Permission to use, copy, modify, distribute, and sell this software and its
+# documentation for any purpose is hereby granted without fee, provided that
+# the above copyright notice appear in all copies and that both that
+# copyright notice and this permission notice appear in supporting
+# documentation, and that the name of M.I.T. not be used in advertising or
+# publicity pertaining to distribution of the software without specific,
+# written prior permission.  M.I.T. makes no representations about the
+# suitability of this software for any purpose.  It is provided "as is"
+# without express or implied warranty.
+#
+# Calling this script install-sh is preferred over install.sh, to prevent
+# `make' implicit rules from creating a file called install from it
+# when there is no Makefile.
+#
+# This script is compatible with the BSD install script, but was written
+# from scratch.  It can only install one file at a time, a restriction
+# shared with many OS's install programs.
+
+
+# set DOITPROG to echo to test this script
+
+# Don't use :- since 4.3BSD and earlier shells don't like it.
+doit="${DOITPROG-}"
+
+
+# put in absolute paths if you don't have them in your path; or use env. vars.
+
+mvprog="${MVPROG-mv}"
+cpprog="${CPPROG-cp}"
+chmodprog="${CHMODPROG-chmod}"
+chownprog="${CHOWNPROG-chown}"
+chgrpprog="${CHGRPPROG-chgrp}"
+stripprog="${STRIPPROG-strip}"
+rmprog="${RMPROG-rm}"
+mkdirprog="${MKDIRPROG-mkdir}"
+
+transformbasename=""
+transform_arg=""
+instcmd="$mvprog"
+chmodcmd="$chmodprog 0755"
+chowncmd=""
+chgrpcmd=""
+stripcmd=""
+rmcmd="$rmprog -f"
+mvcmd="$mvprog"
+src=""
+dst=""
+dir_arg=""
+
+while [ x"$1" != x ]; do
+    case $1 in
+	-c) instcmd="$cpprog"
+	    shift
+	    continue;;
+
+	-d) dir_arg=true
+	    shift
+	    continue;;
+
+	-m) chmodcmd="$chmodprog $2"
+	    shift
+	    shift
+	    continue;;
+
+	-o) chowncmd="$chownprog $2"
+	    shift
+	    shift
+	    continue;;
+
+	-g) chgrpcmd="$chgrpprog $2"
+	    shift
+	    shift
+	    continue;;
+
+	-s) stripcmd="$stripprog"
+	    shift
+	    continue;;
+
+	-t=*) transformarg=`echo $1 | sed 's/-t=//'`
+	    shift
+	    continue;;
+
+	-b=*) transformbasename=`echo $1 | sed 's/-b=//'`
+	    shift
+	    continue;;
+
+	*)  if [ x"$src" = x ]
+	    then
+		src=$1
+	    else
+		# this colon is to work around a 386BSD /bin/sh bug
+		:
+		dst=$1
+	    fi
+	    shift
+	    continue;;
+    esac
+done
+
+if [ x"$src" = x ]
+then
+	echo "install:	no input file specified"
+	exit 1
+else
+	true
+fi
+
+if [ x"$dir_arg" != x ]; then
+	dst=$src
+	src=""
+	
+	if [ -d $dst ]; then
+		instcmd=:
+		chmodcmd=""
+	else
+		instcmd=mkdir
+	fi
+else
+
+# Waiting for this to be detected by the "$instcmd $src $dsttmp" command
+# might cause directories to be created, which would be especially bad 
+# if $src (and thus $dsttmp) contains '*'.
+
+	if [ -f $src -o -d $src ]
+	then
+		true
+	else
+		echo "install:  $src does not exist"
+		exit 1
+	fi
+	
+	if [ x"$dst" = x ]
+	then
+		echo "install:	no destination specified"
+		exit 1
+	else
+		true
+	fi
+
+# If destination is a directory, append the input filename; if your system
+# does not like double slashes in filenames, you may need to add some logic
+
+	if [ -d $dst ]
+	then
+		dst="$dst"/`basename $src`
+	else
+		true
+	fi
+fi
+
+## this sed command emulates the dirname command
+dstdir=`echo $dst | sed -e 's,[^/]*$,,;s,/$,,;s,^$,.,'`
+
+# Make sure that the destination directory exists.
+#  this part is taken from Noah Friedman's mkinstalldirs script
+
+# Skip lots of stat calls in the usual case.
+if [ ! -d "$dstdir" ]; then
+defaultIFS='	
+'
+IFS="${IFS-${defaultIFS}}"
+
+oIFS="${IFS}"
+# Some sh's can't handle IFS=/ for some reason.
+IFS='%'
+set - `echo ${dstdir} | sed -e 's@/@%@g' -e 's@^%@/@'`
+IFS="${oIFS}"
+
+pathcomp=''
+
+while [ $# -ne 0 ] ; do
+	pathcomp="${pathcomp}${1}"
+	shift
+
+	if [ ! -d "${pathcomp}" ] ;
+        then
+		$mkdirprog "${pathcomp}"
+	else
+		true
+	fi
+
+	pathcomp="${pathcomp}/"
+done
+fi
+
+if [ x"$dir_arg" != x ]
+then
+	$doit $instcmd $dst &&
+
+	if [ x"$chowncmd" != x ]; then $doit $chowncmd $dst; else true ; fi &&
+	if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dst; else true ; fi &&
+	if [ x"$stripcmd" != x ]; then $doit $stripcmd $dst; else true ; fi &&
+	if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dst; else true ; fi
+else
+
+# If we're going to rename the final executable, determine the name now.
+
+	if [ x"$transformarg" = x ] 
+	then
+		dstfile=`basename $dst`
+	else
+		dstfile=`basename $dst $transformbasename | 
+			sed $transformarg`$transformbasename
+	fi
+
+# don't allow the sed command to completely eliminate the filename
+
+	if [ x"$dstfile" = x ] 
+	then
+		dstfile=`basename $dst`
+	else
+		true
+	fi
+
+# Make a temp file name in the proper directory.
+
+	dsttmp=$dstdir/#inst.$$#
+
+# Move or copy the file name to the temp name
+
+	$doit $instcmd $src $dsttmp &&
+
+	trap "rm -f ${dsttmp}" 0 &&
+
+# and set any options; do chmod last to preserve setuid bits
+
+# If any of these fail, we abort the whole thing.  If we want to
+# ignore errors from any of these, just make sure not to ignore
+# errors from the above "$doit $instcmd $src $dsttmp" command.
+
+	if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; else true;fi &&
+	if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; else true;fi &&
+	if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; else true;fi &&
+	if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; else true;fi &&
+
+# Now rename the file to the real destination.
+
+	$doit $rmcmd -f $dstdir/$dstfile &&
+	$doit $mvcmd $dsttmp $dstdir/$dstfile 
+
+fi &&
+
+
+exit 0

contrib/tcsh/ma.setp.c

@@ -0,0 +1,618 @@
+/*
+ * Copyright (c) 1990 Carnegie Mellon University
+ * All Rights Reserved.
+ * 
+ * Permission to use, copy, modify and distribute this software and its
+ * documentation is hereby granted, provided that both the copyright
+ * notice and this permission notice appear in all copies of the
+ * software, derivative works or modified versions, and any portions
+ * thereof, and that both notices appear in supporting documentation.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS" AND CARNEGIE MELLON UNIVERSITY
+ * DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS.  IN NO EVENT
+ * SHALL CARNEGIE MELLON UNIVERSITY BE LIABLE FOR ANY SPECIAL, DIRECT,
+ * INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER
+ * RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
+ * CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
+ * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+ *
+ * Users of this software agree to return to Carnegie Mellon any
+ * improvements or extensions that they make and grant Carnegie the
+ * rights to redistribute these changes.
+ *
+ * Export of this software is permitted only after complying with the
+ * regulations of the U.S. Deptartment of Commerce relating to the
+ * Export of Technical Data.
+ */
+/*
+ *  setpath --- smart interface for setting path variables
+ *
+ *  usage:	setpath(paths, cmds, localsyspath, dosuffix, printerrors)
+ *		char **paths, **cmds, *localsyspath;
+ *		int dosuffix, printerrors;
+ *
+ *  The 'paths' argument is a list of pointers to path lists of the
+ *  form "name=value" where name is the name of the path and value
+ *  is a colon separated list of directories.  There can never be
+ *  more than MAXDIRS (64) directories in a path.
+ *
+ *  The 'cmds' argument may be a sequence of any of the following:
+ *	-r			reset path to default
+ *	-i newpath		insert newpath before localsyspath
+ *	-ia oldpath newpath	insert newpath after oldpath
+ *	-ib oldpath newpath	insert newpath before oldpath
+ *	-i# newpath		insert newpath at position #
+ *	-d oldpath		delete oldpath
+ *	-d#			delete path at position #
+ *	-c oldpath newpath	change oldpath to newpath
+ *	-c# newpath		change position # to newpath
+ *
+ *  The "-i newpath" command is equivilent to "-ib 'localsyspath' newpath".
+ *
+ *  If 'dosuffix' is true, the appropriate suffix will be added to
+ *  all command operands for any system path in 'paths'.
+ *
+ *  Both of the 'paths' and 'cmds' lists are terminated by a NULL
+ *  entry.
+ *
+ *  if 'printerrors' is true, setpath will printf error diagnostics.
+ *
+ *  WARNING !!!: Under no circumstances should anyone change this
+ *  module without fully understanding the impact on the C shell.
+ *  The C shell has it's own malloc and printf routines and this
+ *  module was carefully written taking that into account.  Do not
+ *  use any stdio routines from this module except printf.
+ *
+ **********************************************************************
+ * HISTORY
+ *
+ * Revision 1.4  90/12/11  17:58:44  mja
+ * 	Add copyright/disclaimer for distribution.
+ * 
+ * 05-Jun-88  Glenn Marcy (gm0w) at Carnegie-Mellon University
+ *	Make all non-entry points static.
+ *
+ * 30-Apr-88  Glenn Marcy (gm0w) at Carnegie-Mellon University
+ *	Added -r switch to reset paths to their default values.
+ *
+ * 06-Jan-86  Glenn Marcy (gm0w) at Carnegie-Mellon University
+ *	Created from old setpath program for the shell.
+ *
+ **********************************************************************
+ */
+#include "sh.h"
+RCSID("$Id: ma.setp.c,v 1.12 1996/04/26 19:18:36 christos Exp $")
+
+#ifdef MACH
+
+#define MAXDIRS 64		/* max directories on a path */
+#ifndef NULL
+# define NULL 0
+#endif
+
+static int npaths;		/* # pathlist arguments */
+
+static struct pelem {
+    struct pelem *pnext;	/* pointer to next path */
+    char *pname;		/* name of pathlist */
+    char *psuf;			/* suffix for pathlist */
+    char *pdef;			/* default for pathlist */
+    int pdirs;			/* # directories on each pathlist */
+    char *pdir[MAXDIRS];	/* directory names for each pathlist */
+} *pathhead = NULL;
+
+static struct {
+    char *name;
+    char *suffix;
+    char *defalt;
+} syspath[] = {
+    "PATH",	"/bin",		":/usr/ucb:/bin:/usr/bin",
+    "CPATH",	"/include",	":/usr/include",
+    "LPATH",	"/lib",		":/lib:/usr/lib",
+    "MPATH",	"/man",		":/usr/man",
+    "EPATH",	"/maclib",	"",
+    0, 0, 0
+};
+
+static int sflag;
+static int eflag;
+
+#define INVALID { \
+	if (eflag) xprintf(CGETS(10, 1, \
+				 "setpath: invalid command '%s'.\n"), cmd); \
+	freepaths(); \
+	return(-1); \
+}
+
+#define TOOFEW { \
+	if (eflag) xprintf(CGETS(10, 2, \
+		 "setpath: insufficient arguments to command '%s'.\n"), cmd); \
+	freepaths(); \
+	return(-1); \
+}
+
+static int initpaths	__P((char **));
+static void savepaths	__P((char **));
+static void freepaths	__P((void));
+static void rcmd	__P((char *));
+static void icmd	__P((char *, char *));
+static void iacmd	__P((char *, char *));
+static void ibcmd	__P((char *, char *));
+static void incmd	__P((char *, int));
+static void insert	__P((struct pelem *, int, char *));
+static void dcmd	__P((char *));
+static void dncmd	__P((int));
+static void delete	__P((struct pelem *, int));
+static void ccmd	__P((char *, char *));
+static void cncmd	__P((char *, int));
+static void change	__P((struct pelem *, int, char *));
+static int locate	__P((struct pelem *, char *));
+
+
+
+int
+setpath(paths, cmds, localsyspath, dosuffix, printerrors)
+register char **paths, **cmds, *localsyspath;
+int dosuffix, printerrors;
+{
+    register char *cmd, *cmd1, *cmd2;
+    register int ncmd;
+
+    sflag = dosuffix;
+    eflag = printerrors;
+    if (initpaths(paths) < 0)
+	return(-1);
+    if (npaths == 0)
+	return(0);
+    for (ncmd = 0; cmd = cmds[ncmd]; ncmd++) {
+	if (cmd[0] != '-')
+	    INVALID;
+	cmd1 = cmds[ncmd+1];
+	cmd2 = cmds[ncmd+2];
+	switch (cmd[1]) {
+	case 'r':
+	    if (cmd[2] != '\0')
+		INVALID;
+	    rcmd(localsyspath);
+	    break;
+	case 'i':
+	    if (cmd[2] == '\0') {
+		ncmd++;
+		if (cmd1 == NULL) TOOFEW;
+		icmd(cmd1, localsyspath);
+	    } else if (isdigit(cmd[2])) {
+		ncmd++;
+		if (cmd1 == NULL) TOOFEW;
+		incmd(cmd1, atoi(cmd+2));
+	    } else if (cmd[3] != '\0' || (cmd[2] != 'a' && cmd[2] != 'b')) {
+		INVALID;
+	    } else {
+		ncmd += 2;
+		if (cmd1 == NULL || cmd2 == NULL) TOOFEW;
+		if (cmd[2] == 'a')
+		    iacmd(cmd1, cmd2);
+		else
+		    ibcmd(cmd1, cmd2);
+	    }
+	    break;
+	case 'd':
+	    if (cmd[2] == '\0') {
+		ncmd++;
+		if (cmd1 == NULL) TOOFEW;
+		dcmd(cmd1);
+	    } else if (isdigit(cmd[2]))
+		dncmd(atoi(cmd+2));
+	    else {
+		INVALID;
+	    }
+	    break;
+	case 'c':
+	    if (cmd[2] == '\0') {
+		ncmd += 2;
+		if (cmd1 == NULL || cmd2 == NULL) TOOFEW;
+		ccmd(cmd1, cmd2);
+	    } else if (isdigit(cmd[2])) {
+		ncmd++;
+		if (cmd1 == NULL) TOOFEW;
+		cncmd(cmd1, atoi(cmd+2));
+	    } else {
+		INVALID;
+	    }
+	    break;
+	default:
+	    INVALID;
+	}
+    }
+    savepaths(paths);
+    freepaths();
+    return(0);
+}
+
+static int
+initpaths(paths)
+register char **paths;
+{
+    register char *path, *val, *p, *q;
+    register int i, done;
+    register struct pelem *pe, *pathend;
+
+    freepaths();
+    for (npaths = 0; path = paths[npaths]; npaths++) {
+	val = index(path, '=');
+	if (val == NULL) {
+	    if (eflag)
+		xprintf(CGETS(10, 3,
+			      "setpath: value missing in path '%s'\n"), path);
+	    freepaths();
+	    return(-1);
+	}
+	*val++ = '\0';
+	pe = (struct pelem *)xmalloc((unsigned)(sizeof(struct pelem)));
+	setzero((char *) pe, sizeof(struct pelem));
+	if (pathhead == NULL)
+	    pathhead = pathend = pe;
+	else {
+	    pathend->pnext = pe;
+	    pathend = pe;
+	}
+	p = strsave(path);
+	pe->pname = p;
+	pe->psuf = "";
+	pe->pdef = "";
+	for (i = 0; syspath[i].name; i++)
+	    if (strcmp(pe->pname, syspath[i].name) == 0) {
+		pe->psuf = syspath[i].suffix;
+		pe->pdef = syspath[i].defalt;
+		break;
+	    }
+	q = val;
+	for (;;) {
+	    q = index(p = q, ':');
+	    done = (q == NULL);
+	    if (!done)
+		*q++ = '\0';
+	    p = strsave(p);
+	    pe->pdir[pe->pdirs] = p;
+	    pe->pdirs++;
+	    if (done)
+		break;
+	}
+    }
+    return(0);
+}
+
+static void
+savepaths(paths)
+register char **paths;
+{
+    register char *p, *q;
+    register int npath, i, len;
+    register struct pelem *pe;
+
+    for (npath = 0, pe = pathhead; pe; npath++, pe = pe->pnext) {
+	len = strlen(pe->pname) + 1;
+	if (pe->pdirs == 0)
+	    len++;
+	else for (i = 0; i < pe->pdirs; i++)
+	    len += strlen(pe->pdir[i]) + 1;
+	p = xmalloc((unsigned)len);
+	paths[npath] = p;
+	for (q = pe->pname; *p = *q; p++, q++);
+	*p++ = '=';
+	if (pe->pdirs != 0) {
+	    for (i = 0; i < pe->pdirs; i++) {
+		for (q = pe->pdir[i]; *p = *q; p++, q++);
+		*p++ = ':';
+	    }
+	    p--;
+	}
+	*p = '\0';
+    }
+}
+
+static void
+freepaths()
+{
+    register char *p;
+    register int i;
+    register struct pelem *pe;
+
+    if (npaths == 0 || pathhead == NULL)
+	return;
+    while (pe = pathhead) {
+	if (pe->pname) {
+	    for (i = 0; i < pe->pdirs; i++) {
+		if (pe->pdir[i] == NULL)
+		    continue;
+		p = pe->pdir[i];
+		pe->pdir[i] = NULL;
+		xfree((ptr_t) p);
+	    }
+	    pe->pdirs = 0;
+	    p = pe->pname;
+	    pe->pname = NULL;
+	    xfree((ptr_t) p);
+	}
+	pathhead = pe->pnext;
+	xfree((ptr_t) pe);
+    }
+    npaths = 0;
+}
+
+/***********************************************
+ ***    R E S E T   A   P A T H N A M E    ***
+ ***********************************************/
+
+static void
+rcmd(localsyspath)		/* reset path with localsyspath */
+char *localsyspath;
+{
+    register int n, done;
+    register char *new, *p;
+    register struct pelem *pe;
+    char newbuf[MAXPATHLEN+1];
+
+    for (pe = pathhead; pe; pe = pe->pnext) {
+	new = newbuf;
+	*new = '\0';
+	if (localsyspath != NULL) {
+	    *new = ':';
+	    (void) strcpy(new + 1, localsyspath);
+	    (void) strcat(new, pe->psuf);
+	}
+	(void) strcat(new, pe->pdef);
+	for (n = 0; n < pe->pdirs; n++) {
+	    if (pe->pdir[n] == NULL)
+		continue;
+	    p = pe->pdir[n];
+	    pe->pdir[n] = NULL;
+	    xfree((ptr_t) p);
+	}
+	pe->pdirs = 0;
+	for (;;) {
+	    new = index(p = new, ':');
+	    done = (new == NULL);
+	    if (!done)
+		*new++ = '\0';
+	    p = strsave(p);
+	    pe->pdir[pe->pdirs] = p;
+	    pe->pdirs++;
+	    if (done)
+		break;
+	}
+    }
+}
+
+/***********************************************
+ ***    I N S E R T   A   P A T H N A M E    ***
+ ***********************************************/
+
+static void
+icmd(path, localsyspath)	/* insert path before localsyspath */
+char *path, *localsyspath;
+{
+    register int n;
+    register char *new;
+    register struct pelem *pe;
+    char newbuf[MAXPATHLEN+1];
+
+    for (pe = pathhead; pe; pe = pe->pnext) {
+	if (sflag)
+	    new = localsyspath;
+	else {
+	    new = newbuf;
+	    (void) strcpy(new, localsyspath);
+	    (void) strcat(new, pe->psuf);
+	}
+	n = locate(pe, new);
+	if (n >= 0)
+	    insert(pe, n, path);
+	else
+	    insert(pe, 0, path);
+    }
+}
+
+static void
+iacmd(inpath, path)		/* insert path after inpath */
+char *inpath, *path;
+{
+    register int n;
+    register struct pelem *pe;
+
+    for (pe = pathhead; pe; pe = pe->pnext) {
+	n = locate(pe, inpath);
+	if (n >= 0)
+	    insert(pe, n + 1, path);
+	else
+	    xprintf(CGETS(10, 4, "setpath: %s not found in %s\n"),
+		    inpath, pe->pname);
+    }
+}
+
+static void
+ibcmd(inpath, path)		/* insert path before inpath */
+char *inpath, *path;
+{
+    register int n;
+    register struct pelem *pe;
+
+    for (pe = pathhead; pe; pe = pe->pnext) {
+	n = locate(pe, inpath);
+	if (n >= 0)
+	    insert(pe, n, path);
+	else
+	    xprintf(CGETS(10, 4, "setpath: %s not found in %s\n",
+		    inpath, pe->pname));
+    }
+}
+
+static void
+incmd(path, n)			/* insert path at position n */
+char *path;
+int n;
+{
+    register struct pelem *pe;
+
+    for (pe = pathhead; pe; pe = pe->pnext)
+	insert(pe, n, path);
+}
+
+static void
+insert(pe, loc, key)
+register struct pelem *pe;
+register int loc;
+register char *key;
+{
+    register int i;
+    register char *new;
+    char newbuf[2000];
+
+    if (sflag) {		/* add suffix */
+	new = newbuf;
+	(void) strcpy(new, key);
+	(void) strcat(new, pe->psuf);
+    } else
+	new = key;
+    new = strsave(new);
+    for (i = pe->pdirs; i > loc; --i)
+	pe->pdir[i] = pe->pdir[i-1];
+    if (loc > pe->pdirs)
+	loc = pe->pdirs;
+    pe->pdir[loc] = new;
+    pe->pdirs++;
+}
+
+/***********************************************
+ ***    D E L E T E   A   P A T H N A M E    ***
+ ***********************************************/
+
+static void
+dcmd(path)			/* delete path */
+char *path;
+{
+    register int n;
+    register struct pelem *pe;
+
+    for (pe = pathhead; pe; pe = pe->pnext) {
+	n = locate(pe, path);
+	if (n >= 0)
+	    delete(pe, n);
+	else
+	    xprintf(CGETS(10, 4, "setpath: %s not found in %s\n"),
+		    path, pe->pname);
+    }
+}
+
+static void
+dncmd(n)			/* delete at position n */
+int n;
+{
+    register struct pelem *pe;
+
+    for (pe = pathhead; pe; pe = pe->pnext) {
+	if (n < pe->pdirs)
+	    delete(pe, n);
+	else
+	    xprintf(CGETS(10, 5,
+			    "setpath: %d not valid position in %s\n"),
+		    n, pe->pname);
+    }
+}
+
+static void
+delete(pe, n)
+register struct pelem *pe;
+int n;
+{
+    register int d;
+
+    xfree((ptr_t) (pe->pdir[n]));
+    for (d = n; d < pe->pdirs - 1; d++)
+	pe->pdir[d] = pe->pdir[d+1];
+    --pe->pdirs;
+}
+
+/***********************************************
+ ***    C H A N G E   A   P A T H N A M E    ***
+ ***********************************************/
+
+static void
+ccmd(inpath, path)		/* change inpath to path */
+char *inpath, *path;
+{
+    register int n;
+    register struct pelem *pe;
+
+    for (pe = pathhead; pe; pe = pe->pnext) {
+	n = locate(pe, inpath);
+	if (n >= 0)
+	    change(pe, n, path);
+	else
+	    xprintf(CGETS(10, 4, "setpath: %s not found in %s\n"),
+		    inpath, pe->pname);
+    }
+}
+
+static void
+cncmd(path, n)		/* change at position n to path */
+char *path;
+int n;
+{
+    register struct pelem *pe;
+
+    for (pe = pathhead; pe; pe = pe->pnext) {
+	if (n < pe->pdirs)
+	    change(pe, n, path);
+	else
+	    xprintf(CGETS(10, 5,
+			    "setpath: %d not valid position in %s\n"),
+		    n, pe->pname);
+    }
+}
+
+static void
+change(pe, loc, key)
+register struct pelem *pe;
+register int loc;
+register char *key;
+{
+    register char *new;
+    char newbuf[MAXPATHLEN+1];
+
+    if (sflag) {		/* append suffix */
+	new = newbuf;
+	(void) strcpy(new, key);
+	(void) strcat(new, pe->psuf);
+    } else
+	new = key;
+    new = strsave(new);
+    xfree((ptr_t) (pe->pdir[loc]));
+    pe->pdir[loc] = new;
+}
+
+/***************************************
+ ***    F I N D   P A T H N A M E    ***
+ ***************************************/
+
+static int
+locate(pe, key)
+register struct pelem *pe;
+register char *key;
+{
+    register int i;
+    register char *realkey;
+    char keybuf[MAXPATHLEN+1];
+
+    if (sflag) {
+	realkey = keybuf;
+	(void) strcpy(realkey, key);
+	(void) strcat(realkey, pe->psuf);
+    } else
+	realkey = key;
+    for (i = 0; i < pe->pdirs; i++)
+	if (strcmp(pe->pdir[i], realkey) == 0)
+	    break;
+    return((i < pe->pdirs) ? i : -1);
+}
+#endif

contrib/tcsh/mi.termios.c

@@ -0,0 +1,393 @@
+/* $Header: /src/pub/tcsh/mi.termios.c,v 1.3 1996/04/26 19:18:38 christos Exp $ */
+/* termios.c - fake termios interface using sgtty interface 
+ * 	       by Magnus Doell and Bruce Evans.
+ *
+ */
+#include "sh.h"
+RCSID("$Id: mi.termios.c,v 1.3 1996/04/26 19:18:38 christos Exp $")
+
+#ifdef _MINIX
+
+
+/* Undefine everything that clashes with sgtty.h. */
+#undef B0
+#undef B50
+#undef B75
+#undef B110
+#undef B134
+#undef B150
+#undef B200
+#undef B300
+#undef B600
+#undef B1200
+#undef B1800
+#undef B2400
+#undef B4800
+#undef B9600
+#undef B19200
+#undef B28800
+#undef B38400
+#undef B57600
+#undef B115200
+/* Do not #undef CRMOD. We want a warning when they differ! */
+#undef ECHO
+/* Do not #undef XTABS. We want a warning when they differ! */
+
+/* Redefine some of the termios.h names just undefined with 'T_' prefixed
+ * to the name.  Don't bother with the low speeds - Minix does not support
+ * them.  Add support for higher speeds (speeds are now easy and don't need
+ * defines because they are not encoded).
+ */
+#define T_ECHO		000001
+
+#include <errno.h>
+#include <sgtty.h>
+
+static _PROTOTYPE( int tc_to_sg_speed, (speed_t speed) );
+static _PROTOTYPE( speed_t sg_to_tc_speed, (int speed) );
+#define B19200   192
+
+/* The speed get/set functions could be macros in the Minix implementation
+ * because there are speed fields in the structure with no fancy packing
+ * and it is not practical to check the values outside the driver.
+ * Where tests are necessary because the driver acts different from what
+ * POSIX requires, they are done in tcsetattr.
+ */
+
+speed_t cfgetispeed(termios_p)
+struct termios *termios_p;
+{
+    return termios_p->c_ispeed;
+}
+
+speed_t cfgetospeed(termios_p)
+struct termios *termios_p;
+{
+    return termios_p->c_ospeed;
+}
+
+speed_t cfsetispeed(termios_p, speed)
+struct termios *termios_p;
+speed_t speed;
+{
+    termios_p->c_ispeed = speed;
+    return 0;
+}
+
+speed_t cfsetospeed(termios_p, speed)
+struct termios *termios_p;
+speed_t speed;
+{
+    termios_p->c_ospeed = speed;
+    return 0;
+}
+
+static speed_t sg_to_tc_speed(speed)
+int speed;
+{
+    /* The speed encodings in sgtty.h and termios.h are different.  Both are
+     * inflexible.  Minix doesn't really support B0 but we map it through
+     * anyway.  It doesn't support B50, B75 or B134.
+     */
+    switch (speed) {
+	case B0: return 0;
+	case B110: return 110;
+	case B200: return 200;
+	case B300: return 300;
+	case B600: return 600;
+	case B1200: return 1200;
+	case B1800: return 1800;
+	case B2400: return 2400;
+	case B4800: return 4800;
+	case B9600: return 9600;
+	case B19200: return 19200;
+#ifdef B28800
+	case B28800: return 28800;
+#endif
+#ifdef B38400
+	case B38400: return 38400;
+#endif
+#ifdef B57600
+	case B57600: return 57600;
+#endif
+#ifdef B115200
+	case B115200: return 115200;
+#endif
+	default: return (speed_t)-1;
+    }
+}
+
+static int tc_to_sg_speed(speed)
+speed_t speed;
+{
+    /* Don't use a switch here in case the compiler is 16-bit and doesn't
+     * properly support longs (speed_t's) in switches.  It turns out the
+     * switch is larger and slower for most compilers anyway!
+     */
+    if (speed == 0) return 0;
+    if (speed == 110) return B110;
+    if (speed == 200) return B200;
+    if (speed == 300) return B300;
+    if (speed == 600) return B600;
+    if (speed == 1200) return B1200;
+    if (speed == 1800) return B1800;
+    if (speed == 2400) return B2400;
+    if (speed == 4800) return B4800;
+    if (speed == 9600) return B9600;
+    if (speed == 19200) return B19200;
+#ifdef B28800
+    if (speed == 28800) return B28800;
+#endif
+#ifdef B38400
+    if (speed == 38400) return B38400;
+#endif
+#ifdef B57600
+    if (speed == 57600) return B57600;
+#endif
+#ifdef B115200
+    if (speed == 115200) return B115200;
+#endif
+    return -1;
+}
+
+int tcgetattr(filedes, termios_p)
+int filedes;
+struct termios *termios_p;
+{
+    struct sgttyb sgbuf;
+    struct tchars tcbuf;
+
+    if (ioctl(filedes, TIOCGETP, &sgbuf) < 0
+	|| ioctl(filedes, TIOCGETC, (struct sgttyb *) &tcbuf) < 0)
+    {
+	return -1;
+    }
+
+    /* Minix input flags:
+     *   BRKINT:  forced off (break is not recognized)
+     *   IGNBRK:  forced on (break is not recognized)
+     *   ICRNL:   set if CRMOD is set and not RAW (CRMOD also controls output)
+     *   IGNCR:   forced off (ignoring cr's is not supported)
+     *   INLCR:   forced off (mapping nl's to cr's is not supported)
+     *   ISTRIP:  forced off (should be off for consoles, on for rs232 no RAW)
+     *   IXOFF:   forced off (rs232 uses CTS instead of XON/XOFF)
+     *   IXON:    forced on if not RAW
+     *   PARMRK:  forced off (no '\377', '\0', X sequence on errors)
+     * ? IGNPAR:  forced off (input with parity/framing errors is kept)
+     * ? INPCK:   forced off (input parity checking is not supported)
+     */
+    termios_p->c_iflag = IGNBRK;
+    if (!(sgbuf.sg_flags & RAW))
+    {
+	termios_p->c_iflag |= IXON;
+	if (sgbuf.sg_flags & CRMOD)
+	{
+	    termios_p->c_iflag |= ICRNL;
+	}
+    }
+
+    /* Minix output flags:
+     *   OPOST:   set if CRMOD or XTABS is set
+     *   XTABS:   copied from sg_flags
+     *   CRMOD:	  copied from sg_flags
+     */
+    termios_p->c_oflag = sgbuf.sg_flags & (CRMOD | XTABS);
+    if (termios_p->c_oflag)
+    {
+	termios_p->c_oflag |= OPOST;
+    }
+
+    /* Minix local flags:
+     *   ECHO:    set if ECHO is set
+     *   ECHOE:   set if ECHO is set (ERASE echoed as error-corecting backspace)
+     *   ECHOK:   set if ECHO is set ('\n' echoed after KILL char)
+     *   ECHONL:  forced off ('\n' not echoed when ECHO isn't set)
+     *   ICANON:  set if neither CBREAK nor RAW
+     *   IEXTEN:  forced off
+     *   ISIG:    set if not RAW
+     *   NOFLSH:  forced off (input/output queues are always flushed)
+     *   TOSTOP:  forced off (no job control)
+     */
+    termios_p->c_lflag = 0;
+    if (sgbuf.sg_flags & ECHO)
+    {
+	termios_p->c_lflag |= T_ECHO | ECHOE | ECHOK;
+    }
+    if (!(sgbuf.sg_flags & RAW))
+    {
+	termios_p->c_lflag |= ISIG;
+	if (!(sgbuf.sg_flags & CBREAK))
+	{
+	    termios_p->c_lflag |= ICANON;
+	}
+    }
+
+    /* Minix control flags:
+     *   CLOCAL:  forced on (ignore modem status lines - not quite right)
+     *   CREAD:   forced on (receiver is always enabled)
+     *   CSIZE:   CS5-CS8 correspond directly to BITS5-BITS8
+     *   CSTOPB:  set for B110 (driver will generate 2 stop-bits than)
+     *   HUPCL:   forced off
+     *   PARENB:  set if EVENP or ODDP is set
+     *   PARODD:  set if ODDP is set
+     */
+    termios_p->c_cflag = CLOCAL | CREAD;
+    switch (sgbuf.sg_flags & BITS8)
+    {
+	case BITS5: termios_p->c_cflag |= CS5; break;
+	case BITS6: termios_p->c_cflag |= CS6; break;
+	case BITS7: termios_p->c_cflag |= CS7; break;
+	case BITS8: termios_p->c_cflag |= CS8; break;
+    }
+    if (sgbuf.sg_flags & ODDP)
+    {
+	termios_p->c_cflag |= PARENB | PARODD;
+    }
+    if (sgbuf.sg_flags & EVENP)
+    {
+	termios_p->c_cflag |= PARENB;
+    }
+    if (sgbuf.sg_ispeed == B110)
+    {
+	termios_p->c_cflag |= CSTOPB;
+    }
+
+    /* Minix may give back different input and output baudrates,
+     * but only the input baudrate is valid for both.
+     * As our termios emulation will fail, if input baudrate differs
+     * from output baudrate, force them to be equal.
+     * Otherwise it would be very suprisingly not to be able to set
+     * the terminal back to the state returned by tcgetattr :).
+     */
+    termios_p->c_ospeed =
+    termios_p->c_ispeed =
+		sg_to_tc_speed((unsigned char) sgbuf.sg_ispeed);
+
+    /* Minix control characters correspond directly except VSUSP and the
+     * important VMIN and VTIME are not really supported.
+     */
+    termios_p->c_cc[VEOF] = tcbuf.t_eofc;
+    termios_p->c_cc[VEOL] = tcbuf.t_brkc;
+    termios_p->c_cc[VERASE] = sgbuf.sg_erase;
+    termios_p->c_cc[VINTR] = tcbuf.t_intrc;
+    termios_p->c_cc[VKILL] = sgbuf.sg_kill;
+    termios_p->c_cc[VQUIT] = tcbuf.t_quitc;
+    termios_p->c_cc[VSTART] = tcbuf.t_startc;
+    termios_p->c_cc[VSTOP] = tcbuf.t_stopc;
+    termios_p->c_cc[VMIN] = 1;
+    termios_p->c_cc[VTIME] = 0;
+    termios_p->c_cc[VSUSP] = 0;
+
+    return 0;
+}
+
+int tcsetattr(filedes, opt_actions, termios_p)
+int filedes;
+int opt_actions;
+struct termios *termios_p;
+{
+    struct sgttyb sgbuf;
+    struct tchars tcbuf;
+    int sgspeed;
+
+    /* Posix 1003.1-1988 page 135 says:
+     * Attempts to set unsupported baud rates shall be ignored, and it is
+     * implementation-defined whether an error is returned by any or all of
+     * cfsetispeed(), cfsetospeed(), or tcsetattr(). This refers both to
+     * changes to baud rates not supported by the hardware, and to changes
+     * setting the input and output baud rates to different values if the
+     * hardware does not support it.
+     * Ignoring means not to change the existing settings, doesn't it?
+     */
+    if ((termios_p->c_ispeed != 0 && termios_p->c_ispeed != termios_p->c_ospeed)
+	|| (sgspeed = tc_to_sg_speed(termios_p->c_ospeed)) < 0)
+    {
+	errno = EINVAL;
+	return -1;
+    }
+
+    sgbuf.sg_ispeed = sgbuf.sg_ospeed = sgspeed;
+    sgbuf.sg_flags = 0;
+
+    /* I don't know what should happen with requests that are not supported by
+     * old Minix drivers and therefore cannot be emulated.
+     * Returning an error may confuse the application (the values aren't really
+     * invalid or unsupported by the hardware, they just couldn't be satisfied
+     * by the driver). Not returning an error might be even worse because the
+     * driver will act different to what the application requires it to act
+     * after sucessfully setting the attributes as specified.
+     * Settings that cannot be emulated fully include:
+     *   c_ospeed != 110 && c_cflag & CSTOPB
+     *   c_ospeed == 110 && ! c_cflag & CSTOPB
+     *   (c_cc[VMIN] != 1 || c_cc[VTIME] != 0) && ! c_lflag & ICANON
+     *   c_lflag & ICANON && ! c_lflag & ISIG
+     * For the moment I just ignore these conflicts.
+     */
+
+    if (termios_p->c_oflag & OPOST)
+    {
+	/* CRMOD isn't Posix and may conflict with ICRNL, which is Posix,
+	 * so we just ignore it.
+	 */
+	if (termios_p->c_oflag & XTABS)
+	{
+		sgbuf.sg_flags |= XTABS;
+	}
+    }
+
+    if (termios_p->c_iflag & ICRNL)
+    {
+	/* We couldn't do it better :-(. */
+	sgbuf.sg_flags |= CRMOD;
+    }
+
+    if (termios_p->c_lflag & T_ECHO)
+    {
+	sgbuf.sg_flags |= ECHO;
+    }
+    if (!(termios_p->c_lflag & ICANON))
+    {
+	if (termios_p->c_lflag & ISIG)
+	{
+	     sgbuf.sg_flags |= CBREAK;
+	}
+	else
+	{
+	     sgbuf.sg_flags |= RAW;
+	}
+    }
+
+    switch (termios_p->c_cflag & CSIZE)
+    {
+	case CS5: sgbuf.sg_flags |= BITS5; break;
+	case CS6: sgbuf.sg_flags |= BITS6; break;
+	case CS7: sgbuf.sg_flags |= BITS7; break;
+	case CS8: sgbuf.sg_flags |= BITS8; break;
+    }
+    if (termios_p->c_cflag & PARENB)
+    {
+	if (termios_p->c_cflag & PARODD)
+	{
+	    sgbuf.sg_flags |= ODDP;
+	}
+	else
+	{
+	    sgbuf.sg_flags |= EVENP;
+	}
+    }
+
+    sgbuf.sg_erase = termios_p->c_cc[VERASE];
+    sgbuf.sg_kill = termios_p->c_cc[VKILL];
+
+    tcbuf.t_intrc = termios_p->c_cc[VINTR];
+    tcbuf.t_quitc = termios_p->c_cc[VQUIT];
+    tcbuf.t_startc = termios_p->c_cc[VSTART];
+    tcbuf.t_stopc = termios_p->c_cc[VSTOP];
+    tcbuf.t_eofc = termios_p->c_cc[VEOF];
+    tcbuf.t_brkc = termios_p->c_cc[VEOL];
+
+    return ioctl(filedes, TIOCSETP, &sgbuf) < 0 &&
+	   ioctl(filedes, TIOCSETC, (struct sgttyb *) &tcbuf) < 0 ?
+		-1 : 0;
+}
+#endif /* _MINIX */

contrib/tcsh/mi.varargs.h

@@ -0,0 +1,15 @@
+/* $Header: /src/pub/tcsh/mi.varargs.h,v 1.2 1996/04/26 19:18:39 christos Exp $ */
+/*
+ * mi.varargs.h: Correct varargs for minix
+ */
+#ifndef _h_mi_varargs
+#define _h_mi_varargs
+
+typedef char *va_list;
+
+#define  va_dcl		int va_alist;
+#define  va_start(p)	(p) = (va_list) &va_alist;
+#define  va_arg(p,type)	( (type *) ((p)+=sizeof(type)) )[-1]
+#define  va_end(p)
+
+#endif /* _h_mi_varargs */

contrib/tcsh/mi.wait.h

@@ -0,0 +1,44 @@
+/* The <sys/wait.h> header contains macros related to wait(). The value
+ * returned by wait() and waitpid() depends on whether the process 
+ * terminated by an exit() call, was killed by a signal, or was stopped
+ * due to job control, as follows:
+ *
+ *				 High byte   Low byte
+ *				+---------------------+
+ *	exit(status)		|  status  |    0     |
+ *				+---------------------+
+ *      killed by signal	|    0     |  signal  |
+ *				+---------------------+
+ *	stopped (job control)	|  signal  |   0177   |
+ *				+---------------------+
+ */
+
+#ifndef _WAIT_H
+#define _WAIT_H
+
+#ifndef _TYPES_H		/* not quite right */
+#include <sys/types.h>
+#endif
+
+#define __LOW(v)	((v) & 0377)
+#define __HIGH(v)	(((v) >> 8) & 0377)
+
+#define WNOHANG         1	/* do not wait for child to exit */
+#define WUNTRACED       2	/* for job control; not implemented */
+
+#define WIFEXITED(s)	(__LOW(s) == 0)		    /* normal exit */
+#define WEXITSTATUS(s)	(__HIGH(s))			    /* exit status */
+#define WTERMSIG(s)	(__LOW(s) & 0177)		    /* sig value */
+#define WIFSIGNALED(s)	((((unsigned int)(s)-1) & 0xFFFF) < 0xFF) /* signaled */
+#define WIFSTOPPED(s)	(__LOW(s) == 0177)		    /* stopped */
+#define WSTOPSIG(s)	(__HIGH(s) & 0377)		    /* stop signal */
+
+/* Function Prototypes. */
+#ifndef _ANSI_H
+#include <ansi.h>
+#endif
+
+_PROTOTYPE( pid_t wait, (int *_stat_loc)			   	   );
+_PROTOTYPE( pid_t waitpid, (pid_t _pid, int *_stat_loc, int _options)	   );
+
+#endif /* _WAIT_H */

contrib/tcsh/nls/C/set1

@@ -0,0 +1,140 @@
+$ $Id: set1,v 1.5 1998/06/27 12:27:55 christos Exp $
+$ Error messages
+$set 1 
+1 Syntax Error
+2 %s is not allowed
+3 Word too long
+4 $< line too long
+5 No file for $0
+6 Incomplete [] modifier
+7 $ expansion must end before ]
+8 Bad : modifier in $ (%c)
+9 Subscript error
+10 Badly formed number
+11 No more words
+12 Missing file name
+13 Internal glob error
+14 Command not found
+15 Too few arguments
+16 Too many arguments
+17 Too dangerous to alias that
+18 Empty if
+19 Improper then
+20 Words not parenthesized
+21 %s not found
+22 Improper mask
+23 No such limit
+24 Argument too large
+25 Improper or unknown scale factor
+26 Undefined variable
+27 Directory stack not that deep
+28 Bad signal number
+29 Unknown signal; kill -l lists signals
+30 Variable name must begin with a letter
+31 Variable name too long
+32 Variable name must contain alphanumeric characters
+33 No job control in this shell
+34 Expression Syntax
+35 No home directory
+36 Can't change to home directory
+37 Invalid null command
+38 Assignment missing expression
+39 Unknown operator
+40 Ambiguous
+41 %s: File exists
+42 Argument for -c ends in backslash
+43 Interrupted
+44 Subscript out of range
+45 Line overflow
+46 No such job
+47 Can't from terminal
+48 Not in while/foreach
+49 No more processes
+50 No match
+51 Missing %c
+52 Unmatched %c
+53 Out of memory
+54 Can't make pipe
+55 %s: %s
+56 %s
+57 Usage: jobs [ -l ]
+58 Arguments should be jobs or process id's
+59 No current job
+60 No previous job
+61 No job matches pattern
+62 Fork nesting > %d; maybe `...` loop
+63 No job control in subshells
+64 Sync fault: Process %d not found
+65 %sThere are suspended jobs
+66 %sThere are stopped jobs
+67 No other directory
+68 Directory stack empty
+69 Bad directory
+70 Usage: %s [-%s]%s
+71 No operand for -h flag
+72 Not a login shell
+73 Division by 0
+74 Mod by 0
+75 Bad scaling; did you mean "%s"?
+76 Can't suspend a login shell (yet)
+77 Unknown user: %s
+78 No $home variable set
+79 Usage: history [-%s] [# number of events]
+80 $, ! or < not allowed with $# or $?
+81 Newline in variable name
+82 * not allowed with $# or $?
+83 $?<digit> or $#<digit> not allowed
+84 Illegal variable name
+85 Newline in variable index
+86 Expansion buffer overflow
+87 Variable syntax
+88 Bad ! form
+89 No previous substitute
+90 Bad substitute
+91 No previous left hand side
+92 Right hand side too long
+93 Bad ! modifier: %c
+94 Modifier failed
+95 Substitution buffer overflow
+96 Bad ! arg selector
+97 No prev search
+98 %s: Event not found
+99 Too many )'s
+100 Too many ('s
+101 Badly placed (
+102 Missing name for redirect
+103 Ambiguous output redirect
+104 Can't << within ()'s
+105 Ambiguous input redirect
+106 Badly placed ()'s
+107 Alias loop
+108 No $watch variable set
+109 No scheduled events
+110 Usage: sched -<item#>.\nUsage: sched [+]hh:mm <command>
+111 Not that many scheduled events
+112 No command to run
+113 Invalid time for event
+114 Relative time inconsistent with am/pm
+115 Out of termcap string space
+116 Usage: settc %s [yes|no]
+117 Unknown capability `%s'
+118 Unknown termcap parameter `%%%c'
+119 Too many arguments for `%s' (%d)
+120 `%s' requires %d arguments
+121 Usage: echotc [-v|-s] [<capability> [<args>]]
+122 %s: %s. Wrong Architecture
+123 !# History loop
+124 Malformed file inquiry
+125 Selector overflow
+126 Unknown option: `-%s'\nUsage: %s [ -bcdefilmnqstvVxX -Dname[=value] ] [ argument ... ]
+127 Unknown option: `-%s'\nUsage: %s [ -bcdefFilmnqstvVxX ] [ argument ... ]
+128 Unknown option: `-%s'\nUsage: %s [ -bcdefilmnqstvVxX ] [ argument ... ]
+129 \nInvalid completion: "%s"
+130 \nInvalid %s: '%c'
+131 \nMissing separator '%c' after %s "%s"
+132 \nIncomplete %s: "%s"
+133 No operand for -m flag
+134 Usage: unlimit [-fh] [limits]
+135 $%S is read-only
+136 No such job
+137 Unknown colorls variable `%c%c'

contrib/tcsh/nls/C/set10

@@ -0,0 +1,8 @@
+$ $Id: set10,v 1.2 1995/03/19 18:07:15 christos Exp $
+$ ma.setp.c
+$set 10 
+1 setpath: invalid command '%s'.\n
+2 setpath: insufficient arguments to command '%s'.\n
+3 setpath: value missing in path '%s'\n
+4 setpath: %s not found in %s\n
+5 setpath: %d not valid position in %s\n

contrib/tcsh/nls/C/set11

@@ -0,0 +1,10 @@
+$ $Id: set11,v 1.2 1995/03/19 18:07:15 christos Exp $
+$ sh.c
+$set 11 
+1 Warning: no access to tty (%s).\n
+2 Thus no job control in this shell.\n
+3 You have %d mail messages.\n
+4 You have %d mail messages in %s.\n
+5 You have %smail.\n
+6 new 
+7 You have %smail in %s.\n

contrib/tcsh/nls/C/set12

@@ -0,0 +1,4 @@
+$ $Id: set12,v 1.3 1996/04/26 20:31:52 christos Exp $
+$ sh.dir.c
+$set 12 
+1 %s: Trying to start from "%s"\n

contrib/tcsh/nls/C/set13

@@ -0,0 +1,13 @@
+$ $Id: set13,v 1.2 1995/03/19 18:07:15 christos Exp $
+$ sh.exec.c
+$set 13 
+1 hash=%-4d dir=%-2d prog=%s\n
+2 %d hash buckets of %d bits each\n
+3 debug mask = 0x%08x\n
+4 %d hits, %d misses, %d%%\n
+5 %S: shell built-in command.\n
+6 %S: Command not found.\n
+7 where: / in command makes no sense\n
+8 %S is aliased to 
+9 %S is a shell built-in\n
+10 hash miss: 

contrib/tcsh/nls/C/set14

@@ -0,0 +1,6 @@
+$ $Id: set14,v 1.3 1998/11/24 18:18:06 christos Exp $
+$ sh.file.c
+$set 14 
+1 \nYikes!! Too many %s!!\n
+2 names in password file
+3 files

contrib/tcsh/nls/C/set15

@@ -0,0 +1,7 @@
+$ $Id: set15,v 1.3 1996/10/19 17:52:32 christos Exp $
+$ sh.func.c
+$set 15 
+1 %s: %s: Can't %s%s limit\n
+2 remove
+3 set
+4 \040hard

contrib/tcsh/nls/C/set16

@@ -0,0 +1,13 @@
+$ $Id: set16,v 1.3 1996/04/26 20:31:55 christos Exp $
+$ sh.lex.c
+$set 16 
+1 Reset tty pgrp from %d to %d\n
+2 \nUse "logout" to logout.\n
+3 \nUse "exit" to leave %s.\n
+4 seek to eval %x %x\n
+5 seek to alias %x %x\n
+6 seek to file %x\n
+7 Bad seek type %d\n
+8 tell eval %x %x\n
+9 tell alias %x %x\n
+10 tell file %x\n

contrib/tcsh/nls/C/set17

@@ -0,0 +1,16 @@
+$ $Id: set17,v 1.3 1996/10/19 17:52:33 christos Exp $
+$ sh.proc.c
+$set 17 
+1 BUG: waiting for background job!\n
+2 Exit %d\n
+3 BUG: process flushed twice
+4 Running 
+5 Signal 
+6 Exit %-25d
+7 Done
+8 BUG: status=%-9o
+9 \040(core dumped)
+10 \040(wd:
+11 wd now: 
+12 %S: Already suspended\n
+13 %S: Already stopped\n

contrib/tcsh/nls/C/set18

@@ -0,0 +1,4 @@
+$ $Id: set18,v 1.2 1995/03/19 18:07:15 christos Exp $
+$ sh.set.c
+$set 18 
+1 Warning: ridiculously long PATH truncated\n

contrib/tcsh/nls/C/set19

@@ -0,0 +1,15 @@
+$ $Id: set19,v 1.3 1996/04/26 20:31:58 christos Exp $
+$ tc.alloc.c
+$set 19 
+1 nbytes=%d: Out of memory\n
+2 free(%lx) called before any allocations.
+3 free(%lx) above top of memory.
+4 free(%lx) below bottom of memory.
+5 free(%lx) bad block.
+6 free(%lx) bad range check.
+7 free(%lx) bad block index.
+8 %s current memory allocation:\nfree:\t
+9 \nused:\t
+10 \n\tTotal in use: %d, total free: %d\n
+11 \tAllocated memory from 0x%lx to 0x%lx.  Real top at 0x%lx\n
+12 Allocated memory from 0x%lx to 0x%lx (%ld).\n

contrib/tcsh/nls/C/set2

@@ -0,0 +1,111 @@
+$ $Id: set2,v 1.4 1998/10/25 15:12:38 christos Exp $
+$ Signal names
+$set 2 
+1 Null signal
+2 Hangup
+3 Interrupt
+4 Quit
+5 Illegal instruction
+6 Trace/BPT trap
+7 Abort
+8 IOT trap
+9 System Crash Imminent
+10 Error exit
+11 EMT trap
+12 Floating exception
+13 Killed
+14 User signal 1
+15 User signal 2
+16 Segmentation fault
+17 Bus error
+18 Program range error
+19 Operand range error
+20 Bad system call
+21 Broken pipe
+22 Alarm clock
+23 Terminated
+24 Child status change
+25 Death of child
+26 Apollo-specific fault
+27 Child stopped or exited
+28 Child exited
+29 Power failure
+30 Resource Lost
+31 Break (Ctrl-Break)
+32 Input/output possible signal
+33 Asynchronous I/O (select)
+34 Urgent condition on I/O channel
+35 Multitasking wake-up
+36 Multitasking kill
+37 Fortran asynchronous I/O completion
+38 Recovery
+39 Uncorrectable memory error
+40 CPU time limit exceeded
+41 System shutdown imminent
+42 micro-tasking group-no wakeup flag set
+43 Thread error - (use cord -T for detailed info)
+44 CRAY Y-MP register parity error
+45 Information request
+46 Suspended (signal)
+47 Stopped (signal)
+48 Suspended
+49 Stopped
+50 Continued
+51 Suspended (tty input)
+52 Stopped (tty input)
+53 Suspended (tty output)
+54 Stopped (tty output)
+55 Window status changed
+56 Window size changed
+57 Phone status changed
+58 Cputime limit exceeded
+59 Filesize limit exceeded
+60 Virtual time alarm
+61 Profiling time alarm
+62 DIL signal
+63 Pollable event occured
+64 Process's lwps are blocked
+65 Special LWP signal
+66 Special CPR Signal
+67 Special CPR Signal
+68 First Realtime Signal
+69 Second Realtime Signal
+70 Third Realtime Signal
+71 Fourth Realtime Signal
+72 Fourth Last Realtime Signal
+73 Third Last Realtime Signal
+74 Second Last Realtime Signal
+75 Last Realtime Signal
+76 LAN Asyncronous I/O
+77 PTY read/write availability
+78 I/O intervention required
+79 HFT monitor mode granted
+80 HFT monitor mode should be relinguished
+81 HFT sound control has completed
+82 Data in HFT ring buffer
+83 Migrate process
+84 Secure attention key
+85 Reschedule
+86 Signaling SS$_DEBUG
+87 Priority changed
+88 True deadlock detected
+89 New input character
+90 Stack limit exceeded
+91 Unused signal
+92 LM overlay
+93 system freeze
+94 system defreeze
+95 dead lock
+96 exceeded memory size limit
+97 exceeded data size limit
+98 exceeded memory size limit of 32KB
+99 exce error for no memory
+100 check point start
+101 check point start of kernel
+102 restart start
+103 restart of kernel
+104 exeeded XMU size limit
+105 exeeded RLG0 limit
+106 exeeded RLG1 limit
+107 exeeded RLG2 limit
+108 exeeded RLG3 limit

contrib/tcsh/nls/C/set20

@@ -0,0 +1,41 @@
+$ $Id: set20,v 1.2 1995/03/19 18:07:15 christos Exp $
+$ tc.bind.c
+$set 20 
+1 Invalid key name `%S'\n
+2 Bad key name: %S\n
+3 Bad command name: %S\n
+4 Bad key spec %S\n
+5 Null string specification\n
+6 Standard key bindings\n
+7 Alternative key bindings\n
+8 Multi-character bindings\n
+9 Arrow key bindings\n
+10 %-15s->  is undefined\n
+11 BUG!!! %s isn't bound to anything.\n
+12 Usage: bindkey [options] [--] [KEY [COMMAND]]\n
+13     -a   list or bind KEY in alternative key map\n
+14     -b   interpret KEY as a C-, M-, F- or X- key name\n
+15     -s   interpret COMMAND as a literal string to be output\n
+16     -c   interpret COMMAND as a builtin or external command\n
+17     -v   bind all keys to vi bindings\n
+18     -e   bind all keys to emacs bindings\n
+19     -d   bind all keys to default editor's bindings\n
+20     -l   list editor commands with descriptions\n
+21     -r   remove KEY's binding\n
+22     -k   interpret KEY as a symbolic arrow-key name\n
+23     --   force a break from option processing\n
+24     -u   (or any invalid option) this message\n
+25 Without KEY or COMMAND, prints all bindings\n
+26 Without COMMAND, prints the binding for KEY.\n
+27 bad key specification -- null string\n
+28 bad key specification -- empty string\n
+29 Bad function-key specification.  Null key not allowed\n
+30 bad key specification -- malformed hex number\n
+31 bad key specification -- malformed octal number\n
+32 bad key specification -- malformed decimal number\n
+33 Bad function-key specification.\n
+34 Null key not allowed\n
+35 bad key specification -- unknown name "%S"\n
+36 usage: bind [KEY | COMMAND KEY | "emacs" | "vi" | "-a"]\n
+37 Invalid function
+38  %s\t\tis undefined\n

contrib/tcsh/nls/C/set21

@@ -0,0 +1,5 @@
+$ $Id: set21,v 1.2 1995/03/19 18:07:15 christos Exp $
+$ tc.disc.c
+$set 21 
+1 Couldn't get local chars.\n
+2 Couldn't set local chars.\n

contrib/tcsh/nls/C/set22

@@ -0,0 +1,17 @@
+$ $Id: set22,v 1.2 1995/03/19 18:07:15 christos Exp $
+$ tc.func.c
+$set 22 
+1 %S: \t aliased to 
+2 \nIncorrect passwd for %s\n
+3 Faulty alias 'precmd' removed.\n
+4 Faulty alias 'cwdcmd' removed.\n
+5 Faulty alias 'beepcmd' removed.\n
+6 Faulty alias 'periodic' removed.\n
+7 parsing command line\n
+8 Do you really want to delete all files? [n/y] 
+9 skipping deletion of files!\n
+10 command line now is:\n
+11 parsing command line\n
+12 in one of the lists\n
+13 command line now is:\n
+14 yY

contrib/tcsh/nls/C/set23

@@ -0,0 +1,34 @@
+$ $Id: set23,v 1.3 1996/04/26 20:32:00 christos Exp $
+$ tc.os.c
+$set 23 
+1 Bad cpu/site name
+2 Site path too long
+3 unknown
+4 site: %s\n
+5 %d: Site not found\n
+6 setlocal: %s: %s\n
+7 Site not found
+8 You're trapped in a universe you never made
+9 Getwarp failed
+10 Invalid warp
+11 Setwarp failed
+12 Illegal universe
+13 Unknown Error: %d
+14 sysname:  %s\n
+15 nodename: %s\n
+16 release:  %s\n
+17 version:  %s\n
+18 machine:  %s\n
+19 getwd: Cannot open ".." (%s)
+20 getwd: Cannot chdir to ".." (%s)
+21 getwd: Read error in ".." (%s)
+22 getwd: Cannot change back to "." (%s)
+23 getwd: Cannot stat "/" (%s)
+24 getwd: Cannot stat "." (%s)
+25 getwd: Cannot stat directory "%s" (%s)
+26 getwd: Cannot open directory "%s" (%s)
+27 getwd: Cannot find "." in ".." (%s)
+28 Invalid system type
+29 System type is not set
+30 Too many arguments
+31 Invalid argument

contrib/tcsh/nls/C/set24

@@ -0,0 +1,4 @@
+$ $Id: set24,v 1.2 1995/03/19 18:07:15 christos Exp $
+$ tc.sched.c
+$set 24 
+1 kludge

contrib/tcsh/nls/C/set25

@@ -0,0 +1,6 @@
+$ $Id: set25,v 1.2 1995/03/19 18:07:15 christos Exp $
+$ tc.sig.c
+$set 25 
+1 our wait %d\n
+2 error: bsd_signal(%d) signal out of range\n
+3 error: bsd_signal(%d) - sigaction failed, errno %d\n

contrib/tcsh/nls/C/set26

@@ -0,0 +1,15 @@
+$ $Id: set26,v 1.2 1995/03/19 18:07:15 christos Exp $
+$ tc.who.c
+$set 26 
+1 cannot stat %s.  Please "unset watch".\n
+2 %s cannot be opened.  Please "unset watch".\n
+3 BUG! last element is not whotail!\n
+4 backward: 
+5 BUG! first element is not whohead!\n
+6 new: %s/%s\n
+7 %n has %a %l from %m.
+8 %n has %a %l.
+9 logged on
+10 logged off
+11 replaced %s on
+12 local

contrib/tcsh/nls/C/set27

@@ -0,0 +1,8 @@
+$ $Id: set27,v 1.2 1995/03/19 18:07:15 christos Exp $
+$ tw.comp.c
+$set 27 
+1 command
+2 separator
+3 pattern
+4 range
+5 completion

contrib/tcsh/nls/C/set29

@@ -0,0 +1,4 @@
+$ $Id: set29,v 1.2 1995/03/19 18:07:15 christos Exp $
+$ tw.help.c
+$set 29 
+1 No help file for %S\n

contrib/tcsh/nls/C/set3

@@ -0,0 +1,117 @@
+$ $Id: set3,v 1.3 1995/04/24 14:12:51 christos Exp $
+$ Editor function descriptions
+$set 3 
+1 Move back a character
+2 Delete the character behind cursor
+3 Cut from beginning of current word to cursor - saved in cut buffer
+4 Cut from beginning of line to cursor - save in cut buffer
+5 Move to beginning of current word
+6 Move to beginning of line
+7 Capitalize the characters from cursor to end of current word
+8 Vi change case of character under cursor and advance one character
+9 Vi change to end of line
+10 Clear screen leaving current line on top
+11 Complete current word
+12 Tab forward through files
+13 Tab backward through files
+14 Complete current word ignoring programmable completions
+15 Copy current word to cursor
+16 Copy area between mark and cursor to cut buffer
+17 Expand to preceding word for which this is a prefix
+18 Delete character under cursor
+19 Delete character under cursor or signal end of file on an empty line
+20 Delete character under cursor or list completions if at end of line
+21 Delete character under cursor, list completions or signal end of file
+22 Cut from cursor to end of current word - save in cut buffer
+23 Adds to argument if started or enters digit
+24 Digit that starts argument
+25 Move to next history line
+26 Lowercase the characters from cursor to end of current word
+27 Indicate end of file
+28 Move cursor to end of line
+29 Exchange the cursor and mark
+30 Expand file name wildcards
+31 Expand history escapes
+32 Expand the history escapes in a line
+33 Expand variables
+34 Move forward one character
+35 Move forward to end of current word
+36 Exchange the two characters before the cursor
+37 Search in history backward for line beginning as current
+38 Search in history forward for line beginning as current
+39 Insert last item of previous command
+40 Incremental search forward
+41 Incremental search backward
+42 Clear line
+43 Cut to end of line and save in cut buffer
+44 Cut area between mark and cursor and save in cut buffer
+45 Cut the entire line and save in cut buffer
+46 List choices for completion
+47 List choices for completion overriding programmable completion
+48 List file name wildcard matches
+49 List choices for completion or indicate end of file if empty line
+50 Display load average and current process status
+51 Expand history escapes and insert a space
+52 Execute command
+53 Expand pathnames, eliminating leading .'s and ..'s
+54 Expand commands to the resulting pathname or alias
+55 Switch from insert to overwrite mode or vice versa
+56 Add 8th bit to next character typed
+57 Add the next character typed to the line verbatim
+58 Redisplay everything
+59 Restart stopped editor
+60 Look for help on current command
+61 This character is added to the line
+62 This character is the first in a character sequence
+63 Set the mark at cursor
+64 Correct the spelling of current word
+65 Correct the spelling of entire line
+66 Send character to tty in cooked mode
+67 Toggle between literal and lexical current history line
+68 Exchange the character to the left of the cursor with the one under
+69 Exchange the two characters before the cursor
+70 Tty delayed suspend character
+71 Tty flush output character
+72 Tty interrupt character
+73 Tty quit character
+74 Tty suspend character
+75 Tty allow output character
+76 Tty disallow output character
+77 Indicates unbound character
+78 Emacs universal argument (argument times 4)
+79 Move to previous history line
+80 Uppercase the characters from cursor to end of current word
+81 Vi goto the beginning of next word
+82 Vi enter insert mode after the cursor
+83 Vi enter insert mode at end of line
+84 Vi change case of character under cursor and advance one character
+85 Vi change prefix command
+86 Vi change to end of line
+87 Enter vi command mode (use alternative key bindings)
+88 Vi command mode complete current word
+89 Vi move to previous character (backspace)
+90 Vi delete prefix command
+91 Vi move to the end of the current space delimited word
+92 Vi move to the end of the current word
+93 Vi move to the character specified backward
+94 Vi move to the character specified forward
+95 Vi move up to the character specified backward
+96 Vi move up to the character specified forward
+97 Enter vi insert mode
+98 Enter vi insert mode at beginning of line
+99 Vi repeat current character search in the same search direction
+100 Vi repeat current character search in the opposite search direction
+101 Vi repeat current search in the same search direction
+102 Vi repeat current search in the opposite search direction
+103 Vi replace character under the cursor with the next character typed
+104 Vi replace mode
+105 Vi search history backward
+106 Vi search history forward
+107 Vi replace character under the cursor and enter insert mode
+108 Vi replace entire line
+109 Vi move to the previous word
+110 Vi move to the next word
+111 Vi undo last change
+112 Vi goto the beginning of line
+113 Perform which of current command
+114 Paste cut buffer at cursor position

contrib/tcsh/nls/C/set30

@@ -0,0 +1,16 @@
+$ $Id: set30,v 1.4 1996/10/19 17:52:34 christos Exp $
+$ tw.parse.c
+$set 30 
+1 starting_a_command %d\n
+2 complete %d 
+3 complete %d %S\n
+4 %s: Internal match error.\n
+5 items
+6 rows
+7 There are %d %s, list them anyway? [n/y] 
+8 looking = %d\n
+9 \ntcsh internal error: I don't know what I'm looking for!\n
+10 not a directory
+11 not found
+12 unreadable
+13 yY

contrib/tcsh/nls/C/set31

@@ -0,0 +1,7 @@
+$ $Id: set31,v 1.2 1995/03/19 18:07:15 christos Exp $
+$ vms.termcap.c
+$set 31 
+1 Can't open TERMCAP: [%s]\n
+2 Can't open %s.\n
+3 Found %s in %s.\n
+4 No match found for %s in file %s\n

contrib/tcsh/nls/C/set4

@@ -0,0 +1,45 @@
+$ $Id: set4,v 1.2 1995/03/19 18:07:15 christos Exp $
+$ Termcap strings
+$set 4
+1 add new blank line
+2 audible bell
+3 clear to bottom
+4 clear to end of line
+5 cursor to horiz pos
+6 clear screen
+7 delete a character
+8 delete a line
+9 start delete mode
+10 end delete mode
+11 end insert mode
+12 cursor from status line
+13 home cursor
+14 insert character
+15 start insert mode
+16 insert padding
+17 sends cursor down
+18 sends cursor left
+19 sends cursor right
+20 sends cursor up
+21 begin bold
+22 end attributes
+23 non destructive space
+24 end standout
+25 begin standout
+26 cursor to status line
+27 cursor up one
+28 begin underline
+29 end underline
+30 visible bell
+31 delete multiple chars
+32 cursor down multiple
+33 insert multiple chars
+34 cursor left multiple
+35 cursor right multiple
+36 cursor up multiple
+37 Has automatic margins
+38 Can use physical tabs
+39 Number of lines
+40 Number of columns
+41 Has meta key
+42 Newline ignored at right margin

contrib/tcsh/nls/C/set5

@@ -0,0 +1,4 @@
+$ $Id: set5,v 1.2 1995/03/19 18:07:15 christos Exp $
+$ ed.chared.c
+$set 5
+1 Load average unavailable\n

contrib/tcsh/nls/C/set6

@@ -0,0 +1,11 @@
+$ $Id: set6,v 1.2 1995/03/19 18:07:15 christos Exp $
+$ ed.inputl.c
+$set 6
+1 ERROR: illegal command from key 0%o\r\n
+2 yes\n
+3 edit\n
+4 abort\n
+5 no\n
+6 No matching command\n
+7 Ambiguous command\n
+8 *** editor fatal ERROR ***\r\n\n

contrib/tcsh/nls/C/set7

@@ -0,0 +1,30 @@
+$ $Id: set7,v 1.3 1996/04/26 20:32:04 christos Exp $
+$ ed.screen.c
+$set 7
+1 \n\tTcsh thinks your terminal has the\n
+2 \tfollowing characteristics:\n\n
+3 \tIt has %d columns and %d lines\n
+4 \tIt has %s meta key\n
+5 a
+6 no
+7 \tIt can%s use tabs\n
+8 not
+9 \tIt %s automatic margins\n
+10 has
+11 does not have
+12 \tIt %s magic margins\n
+13 (empty)
+14 yes
+15 no
+16 ERROR: cannot delete\r\n
+17 DeleteChars: num is riduculous: %d\r\n
+18 ERROR: cannot insert\r\n
+19 StartInsert: num is riduculous: %d\r\n
+20 %s: Cannot open /etc/termcap.\n
+21 %s: No entry for terminal type "%s"\n
+22 %s: using dumb terminal settings.\n
+23 %s: WARNING: Your terminal cannot move up.\n
+24 Editing may be odd for long lines.\n
+25 no clear EOL capability.\n
+26 no delete char capability.\n
+27 no insert char capability.\n

contrib/tcsh/nls/C/set8

@@ -0,0 +1,5 @@
+$ $Id: set8,v 1.2 1995/03/19 18:07:15 christos Exp $
+$ ed.term.c
+$set 8
+1 Unknown switch
+2 Invalid argument

contrib/tcsh/nls/C/set9

@@ -0,0 +1,12 @@
+$ $Id: set9,v 1.2 1995/03/19 18:07:15 christos Exp $
+$ ed.xmap.c
+$set 9
+1 AddXkey: Null extended-key not allowed.\n
+2 AddXkey: sequence-lead-in command not allowed\n
+3 DeleteXkey: Null extended-key not allowed.\n
+4 Unbound extended key "%S"\n
+5 Some extended keys too long for internal print buffer
+6 Enumerate: BUG!! Null ptr passed\n!
+7 no input
+8 Something must follow: %c\n
+9 Octal constant does not fit in a char.\n

contrib/tcsh/nls/Makefile

@@ -0,0 +1,21 @@
+
+SUBDIRS=	C german french italian ja greek spanish
+#GENCAT=	gencat -new
+GENCAT=		gencat
+
+catalogs:
+	@for i in ${SUBDIRS} ; \
+	do \
+	    echo "$$i"; \
+	    cd $$i; \
+	    cat set[0-9] set[0-9][0-9] > ../../tcsh.$$i.m; \
+	    cd ..; \
+	    ${GENCAT} ../tcsh.$$i.cat ../tcsh.$$i.m; \
+	done
+
+clean:
+	@for i in ${SUBDIRS} ; \
+	do \
+	    rm -f $$i/*~; \
+	    rm -f ../tcsh.$$i.cat ../tcsh.$$i.m; \
+	done

contrib/tcsh/nls/french/set1

@@ -0,0 +1,140 @@
+$ $Id: set1,v 1.3 1998/06/27 12:27:57 christos Exp $
+$ Messages d 'erreur
+$set 1 
+1 Erreur de syntaxe
+2 %s n'est pas autorisé
+3 Mot trop long
+4 $< ligne trop longue
+5 Pas de fichier pour $0
+6 Modificateur [] incomplet
+7 $ l'expansion doit se terminer avant ]
+8 Mauvais : modificateur dans $ (%c)
+9 Erreur d'indice
+10 Numéro mal formé
+11 Plus de mots
+12 Nom de fichier manquant
+13 Erreur globale interne
+14 Commande introuvable
+15 Trop peu d'arguments
+16 Trop d'arguments
+17 Trop dangereux d'attribuer un alias à cela
+18 `If' vide
+19 `Then' incorrect
+20 Les mots ne sont pas placés entre parenthèses
+21 %s introuvable
+22 Masque incorrect
+23 Pas de limite de ce type
+24 Argument trop long
+25 Facteur d'échelle incorrect ou inconnu
+26 Variable pas définie
+27 La pile de répertoires n'a pas cette taille
+28 Mauvais numéro de signal
+29 Signal inconnu; "kill -l" permet de lister les signaux
+30 Le nom de la variable doit commencer par une lettre
+31 Le nom de la variable est trop long
+32 Le nom de la variable ne doit contenir que des caractères alphanumériques
+33 Pas de gestion des travaux dans ce shell
+34 Syntaxe de l'expression
+35 Pas de répertoire personnel
+36 Impossible de passer dans le répertoire personnel
+37 Commande nulle incorrecte
+38 Il manque l'affectation dans l'expression
+39 Opérateur inconnu
+40 ambigu
+41 %s: Le fichier existe
+42 L'argument pour -c se termine avec un anti-slash
+43 Interrompu
+44 Indice hors limites
+45 Dépassement de capacité de ligne
+46 Pas de travail de ce type
+47 Impossible à partir d'un terminal
+48 Vous n'êtes pas dans une boucle while ou foreach
+49 Plus de processus
+50 Pas de correspondance
+51 %c manquant
+52 %c sans correspondance
+53 Mémoire insuffisante
+54 Impossible de créer un tube
+55 %s: %s
+56 %s
+57 Syntaxe: jobs [ -l ]
+58 Les arguments doivent être des ID de processus ou des numéros de travaux
+59 Pas de travail en cours
+60 Pas de travail précédent
+61 Pas de travail de cette forme
+62 Emboîtement des `Fork' > %d; peut-être une boucle `...`
+63 Pas de gestion des travaux dans les sous-shells
+64 Faute `Sync': Processus %d pas trouvé
+65 %s Il y a des travaux interrompus
+66 %s Il y a des travaux arrêtés
+67 Pas d'autre répertoire
+68 La pile de répertoires est vide
+69 Répertoire incorrect
+70 Syntaxe: %s [-%s]%s
+71 Pas d'opérande pour l'indicateur -h
+72 Ce n'est pas un shell de connexion
+73 Division par zéro
+74 Modulo par zéro
+75 Mise à l'échelle incorrecte ; cela signifie-t-il ``%s'' ?
+76 Impossible d'interrompre un shell de connexion
+77 Utilisateur inconnu : %s
+78 Pas de variable `$home' définie
+79 Syntaxe: history [-%s] [# nombre d'évènements]
+80 $, ! ou < pas autorisés avec $# or $?
+81 Retour-chariot dans un nom de variable
+82 * pas autorisé avec $# or $?
+83 $?<digit> ou $#<digit> pas autorisé
+84 Nom de variable incorrect
+85 Retour-chariot dans l'index de variable
+86 Dépassement de capacité de la mémoire tampon d'expansion
+87 Syntaxe de variable
+88 Forme ! incorrecte
+89 Pas de remplacement précédent
+90 Remplacement incorrect
+91 Pas de partie gauche précédente
+92 Partie droite trop longue
+93 Modificateur ! incorrect: %c
+94 Echec du modificateur
+95 Dépassement de capacité de la mémoire tampon de substitution
+96 Sélecteur d'argument ! incorrect
+97 Pas de recherche précédente
+98 %s: événement introuvable
+99 Trop de caractères )
+100 Trop de caractères (
+101 Caractère ( mal placé
+102 Il manque un nom pour rediriger
+103 Redirection de sortie ambigue
+104 Pas de << entre les caractères ( et )
+105 Redirection d'entrée ambigue
+106 Caractères () mal placés
+107 Boucle dans les alias
+108 Pas de variable `$watch' définie
+109 Pas d'évènement prévu
+110 Syntaxe: sched -<#numéro>.\nSyntaxe: sched [+]hh:mm <commande>
+111 Pas tant d'évènements prévus
+112 Pas de commande à lancer
+113 Temps incorrect pour l'évènement
+114 Temps relatif incompatible avec am/pm
+115 Pas assez de place pour la chaine termcap
+116 Syntaxe: settc %s [yes|no]
+117 Capacité `%s' inconnue
+118 Paramètre termcap inconnu `%%%c'
+119 Trop d'arguments pour `%s' (%d)
+120 `%s' nécessite %d arguments
+121 Syntaxe: echotc [-v|-s] [<capacité> [<args>]]
+122 %s: %s. Mauvaise Architecture
+123 !# Boucle dans l'historique
+124 Mauvaise recherche de fichier
+125 Dépassement de capacité de sélecteur
+126 Option inconnue: `-%s'\nSyntaxe: %s [ -bcdefilmnqstvVxX -Dnom[=valeur] ] [ argument ... ]
+127 Option inconnue: `-%s'\nSyntaxe: %s [ -bcdefFilmnqstvVxX ] [ argument ... ]
+128 Option inconnue: `-%s'\nSyntaxe: %s [ -bcdefilmnqstvVxX ] [ argument ... ]
+129 \nComplément incorrect: "%s"
+130 \n%s incorrect: '%c'
+131 \nIl manque le séparateur '%c' après %s "%s"
+132 \n%s incomplet: "%s" 
+133 Pas d'opérande pour l'indicateur -m
+134 Syntaxe: unlimit [-fh] [limites]
+135 $%S est en lecture seule
+136 Pas de travail de ce type
+137 Unknown colorls variable `%c%c'

contrib/tcsh/nls/french/set10

@@ -0,0 +1,8 @@
+$ $Id: set10,v 1.1 1995/04/25 14:04:35 christos Exp $
+$ ma.setp.c
+$set 10 
+1 setpath: commande incorrecte '%s'.\n
+2 setpath: pas assez d'arguments pour la commande '%s'.\n
+3 setpath: donnée manquante dans le chemin '%s'\n
+4 setpath: %s pas trouvé dans %s\n
+5 setpath: %d pas une position correcte dans %s\n

contrib/tcsh/nls/french/set11

@@ -0,0 +1,10 @@
+$ $Id: set11,v 1.1 1995/04/25 14:04:35 christos Exp $
+$ sh.c
+$set 11 
+1 Attention: pas d'accès au tty (%s).\n
+2 Ainsi pas de contrôle de job dans ce shell.\n
+3 Vous avez%d messages courrier (mail).\n
+4 Vous avez %d messages courrier (mail) dans %s.\n
+5 Vous avez du %scourrier.\n
+6 nouveau 
+7 Vous avez du %scourrier dans %s.\n

contrib/tcsh/nls/french/set12

@@ -0,0 +1,4 @@
+$ $Id: set12,v 1.2 1996/04/26 20:45:51 christos Exp $
+$ sh.dir.c
+$set 12 
+1 %s: Essaie de démarrer à partir de "%s"\n

contrib/tcsh/nls/french/set13

@@ -0,0 +1,13 @@
+$ $Id: set13,v 1.1 1995/04/25 14:04:35 christos Exp $
+$ sh.exec.c
+$set 13 
+1 hash=%-4d dir=%-2d prog=%s\n
+2 %d groupes de hashage de %d bits chacun\n
+3 masque de déboguage = 0x%08x\n
+4 %d réussis, %d manqués, %d%%\n
+5 %S: commande intégrée au shell.\n
+6 %S: Commande pas trouvée.\n
+7 où: / dans la commande n'a pas de sens\n
+8 %S est un alias avec 
+9 %S est intégré(e) au shell\n
+10 hashage manqués: 

contrib/tcsh/nls/french/set14

@@ -0,0 +1,6 @@
+$ $Id: set14,v 1.1 1995/04/25 14:04:35 christos Exp $
+$ sh.file.c
+$set 14 
+1 \nTrop de %s !!\n
+2 noms dans le fichier des mots de passe
+3 fichiers

contrib/tcsh/nls/french/set15

@@ -0,0 +1,7 @@
+$ $Id: set15,v 1.1 1995/04/25 14:04:35 christos Exp $
+$ sh.func.c
+$set 15 
+1 %s: %s: ne peut %s la limite%s\n
+2 enlever
+3 positionner
+4  matérielle

contrib/tcsh/nls/french/set16

@@ -0,0 +1,13 @@
+$ $Id: set16,v 1.2 1996/04/26 20:45:55 christos Exp $
+$ sh.lex.c
+$set 16 
+1 Réinitialise le groupe de processus des terminaux de %d à %d\n
+2 \nUtilisez "logout" pour vous déconnecter.\n
+3 \nUtilisez "exit" pour quitter %s.\n
+4 seek to eval %x %x\n
+5 seek to alias %x %x\n
+6 seek to file %x\n
+7 Mauvais type pour seek %d\n
+8 tell eval %x %x\n
+9 tell alias %x %x\n
+10 tell file %x\n

contrib/tcsh/nls/french/set17

@@ -0,0 +1,16 @@
+$ $Id: set17,v 1.2 1996/10/19 17:52:38 christos Exp $
+$ sh.proc.c
+$set 17 
+1 BUG: attente de travail en tâche de fond !\n
+2 Sortie %d\n
+3 BUG: processus vidé deux fois
+4 Tourne 
+5 Signal 
+6 Sortie %-25d
+7 Fait
+8 BUG: état=%-9o
+9 \040(core dumped)
+10 \040(wd:
+11 wd maintenant: 
+12 %S: Déjà suspendu\n
+13 %S: Déjà arrêté\n

contrib/tcsh/nls/french/set18

@@ -0,0 +1,4 @@
+$ $Id: set18,v 1.1 1995/04/25 14:04:35 christos Exp $
+$ sh.set.c
+$set 18 
+1 Attention: le PATH exagérément long est tronqué\n

contrib/tcsh/nls/french/set19

@@ -0,0 +1,15 @@
+$ $Id: set19,v 1.2 1996/04/26 20:45:59 christos Exp $
+$ tc.alloc.c
+$set 19 
+1 nbytes=%d: Plus de mémoire\n
+2 free(%lx) appelé avant allocation.
+3 free(%lx) au delà de la limite memoire.
+4 free(%lx) en deçà de la limite memoire.
+5 free(%lx) mauvais bloc.
+6 free(%lx) limites incorrectes.
+7 free(%lx) index de bloc incorrect.
+8 %s allocation mémoire actuelle:\nfree:\t
+9 \nutilisé:\t
+10 \n\tTotal utilisé: %d, total libre: %d\n
+11 \tMémoire allouée de 0x%lx à 0x%lx.  Limite réelle supérieure à 0x%lx\n
+12 Mémoire allouée de 0x%lx à 0x%lx (%ld).\n

contrib/tcsh/nls/french/set2

@@ -0,0 +1,94 @@
+$ $Id: set2,v 1.2 1997/10/27 23:33:53 christos Exp $
+$ Messages Signaux
+$set 2
+1 Signal nul
+2 Interrompu
+3 Arrêté
+4 Sortie
+5 Instruction interdite
+6 Piège Trace/BPT
+7 Abandon
+8 Piège IOT
+9 Plantage système imminent
+10 Sortie erreur
+11 Piège EMT
+12 Exception de calcul en virgule flottante
+13 Supprimé
+14 Signal utilisateur 1
+15 Signal utilisateur 2
+16 Incident de segmentation
+17 Erreur de bus
+18 Program range error
+19 Operand range error
+20 Appel système incorrect
+21 Tube détruit
+22 Alarme
+23 Terminé
+24 L'état du fils a changé
+25 Mort du fils
+26 Faute spécifique Apollo
+27 Fils arrêté ou sorti
+28 Fils sorti
+29 Coupure d'alimentation
+30 Ressource perdue
+31 Break (Ctrl-Break)
+32 Signal d'E-S possible
+33 Entrée-Sortie asynchrone (select)
+34 Condition urgente sur canal d'E-S
+35 Reprise multi-tâche
+36 Terminaison multi-tâche
+37 Achèvement d'E-S asynchrone Fortran
+38 Reprise
+39 Erreur mémoire irrécupérable
+40 Limite temps CPU dépassée
+41 Arrêt du système imminent
+42 Groupe micro-tasking-pas d'option de réveil définie
+43 Erreur de thread - (utilisez cord -T pour plus d'infos)
+44 Erreur de parité de registre du CRAY Y-MP
+45 Demande d'information
+46 Interrompu (Signal)
+47 Stoppé (Signal)
+48 Interrompu
+49 Stoppé
+50 Continue
+51 Entrée tty suspendue
+52 Entrée tty arrêtée
+53 Sortie tty suspendue
+54 Sortie tty arrêtée
+55 Etat de la fenêtre modifié
+56 Taille de la fenêtre modifiée
+57 Etat du téléphone modifié
+58 Limite temps CPU dépassée
+59 Taille limite de fichier dépassée
+60 Signal de l'horloge virtuelle
+61 Signal de profil
+62 Signal DIL
+63 Un évènement à scruter est arrivé
+64 Process's lwps are blocked
+65 Signal Special LWP
+66 Signal Special CPR
+67 Signal Special CPR
+68 Premier signal temps réel
+69 Deuxième signal temps réel
+70 Troisième signal temps réel
+71 Quatrième signal temps réel
+72 Quatrième signal temps réel avant la fin
+73 Antépénultième signal temps réel
+74 Avant-dernier signal temps réel
+75 Dernier signal temps réel
+76 E-S asynchrone LAN
+77 Lecture/Ecriture PTY disponible
+78 Intervention E-S nécessaire
+79 Mode moniteur HFT accordé
+80 Le mode moniteur HFT doit être abandonné
+81 Le contrôle du son HFT est terminé
+82 Données en buffer circulaire HFT
+83 Processus de transfert
+84 Touche d'attention sécurisée
+85 Re-séquencement
+86 Signal SS$_DEBUG
+87 Priorité modifiée
+88 detecté
+89 Nouveau caractère d'entrée
+90 Stack limit exceeded
+91 Unused signal

contrib/tcsh/nls/french/set20

@@ -0,0 +1,41 @@
+$ $Id: set20,v 1.1 1995/04/25 14:04:35 christos Exp $
+$ tc.bind.c
+$set 20 
+1 Nom de touche incorrect `%S'\n
+2 Mauvais nom de touche: %S\n
+3 Mauvais nom de commande: %S\n
+4 Mauvaise touche spécifiée %S\n
+5 Chaine nulle spécifiée\n
+6 Définition de touches standard\n
+7 Définition de touches alternatives\n
+8 Définition Multi-caractères\n
+9 Définition des touches de direction\n
+10 %-15s->  n'est pas défini\n
+11 BUG!!! %s n'est lié à rien.\n
+12 Usage: bindkey [options] [--] [TOUCHE [COMMANDE]]\n
+13     -a   liste ou définit la TOUCHE dans la table des touches alternatives\n
+14     -b   interprète TOUCHE comme un nom de touche C-, M-, F- or X-\n
+15     -s   interprète COMMANDE comme une chaine littérale devant être sortie\n
+16     -c   interprète COMMANDE comme une commande intégrée ou externe\n
+17     -v   redéfinit toutes les touches pour vi\n
+18     -e   redéfinit toutes les touches pour emacs\n
+19     -d   redéfinit toutes les touches pour de l'éditeur par defaut\n
+20     -l   liste les commandes de l'éditeur avec descriptions\n
+21     -r   enlève la correspondance pour la TOUCHE\n
+22     -k   interprète TOUCHE comme un nom de touche de direction symbolique\n
+23     --   force un arrêt dans le traitement de l'option\n
+24     -u   (ou toute option incorrecte) ce message\n
+25 Sans TOUCHE ni COMMANDE, imprime toutes les associations\n
+26 Sans COMMANDE, imprime l'association pour TOUCHE.\n
+27 mauvaise spécification de touche -- chaine nulle\n
+28 mauvaise spécification de touche -- chaine vide\n
+29 mauvaise spécification de touche de fonction.  Touche nulle pas autorisé\n
+30 mauvaise spécification de touche -- nombre hexa mal formé\n
+31 mauvaise spécification de touche -- nombre octal mal formé\n
+32 mauvaise spécification de touche -- nombre décimal mal formé\n
+33 Mauvaise spécification de touche de fonction.\n
+34 Touche nulle pas autorisé\n
+35 Mauvaise spécification de touche -- nom inconnu "%S"\n
+36 Syntaxe: bind [TOUCHE | COMMANDE TOUCHE | "emacs" | "vi" | "-a"]\n
+37 Fonction incorrecte
+38  %s\t\tn'est pas défini\n

contrib/tcsh/nls/french/set21

@@ -0,0 +1,5 @@
+$ $Id: set21,v 1.1 1995/04/25 14:04:35 christos Exp $
+$ tc.disc.c
+$set 21 
+1 ne peut obtenir les caractères locaux.\n
+2 ne peut définir les catactères locaux.\n

contrib/tcsh/nls/french/set22

@@ -0,0 +1,17 @@
+$ $Id: set22,v 1.1 1995/04/25 14:04:35 christos Exp $
+$ tc.func.c
+$set 22 
+1 %S: \t a comme alias 
+2 \nMot de passe incorrect pour %s\n
+3 Erreur alias 'precmd' enlevé.\n
+4 Erreur alias 'cwdcmd' enlevé.\n
+5 Erreur alias 'beepcmd' enlevé.\n
+6 Erreur alias 'periodic' enlevé.\n
+7 étude de la ligne de commande\n
+8 Voulez vous vraiment supprimer tous les fichiers? [n/y] 
+9 passe la suppression des fichiers!\n
+10 la ligne de commande est maintenant :\n
+11 étude de la ligne de commande\n
+12 dans une des listes\n
+13 la ligne de commande est maintenant :\n
+14 OoyY

contrib/tcsh/nls/french/set23

@@ -0,0 +1,34 @@
+$ $Id: set23,v 1.2 1996/04/26 20:46:04 christos Exp $
+$ tc.os.c
+$set 23 
+1 Mauvais nom de cpu/site
+2 Chemin du site trop mong
+3 inconnu
+4 site: %s\n
+5 %d: Site pas trouvé\n
+6 setlocal: %s: %s\n
+7 Site pas trouvé
+8 Vous êtes piégé dans un univers que vous n'avez jamais créé
+9 Getwarp a échoué
+10 warp invalide
+11 Setwarp a échoué
+12 Univers incorrect
+13 Erreur inconnue : %d
+14 sysname:  %s\n
+15 nodename: %s\n
+16 release:  %s\n
+17 version:  %s\n
+18 machine:  %s\n
+19 getwd: Ne peut ouvrir ".." (%s)
+20 getwd: Ne peut effectuer chdir vers ".." (%s)
+21 getwd: Erreur en lecture dans ".." (%s)
+22 getwd: Ne peut revenir à "." (%s)
+23 getwd: Ne peut effectuer stat "/" (%s)
+24 getwd: Ne peut effectuer stat "." (%s)
+25 getwd: Ne peut effectuer stat sur répertoire "%s" (%s)
+26 getwd: Ne peut ouvrir le répertoire "%s" (%s)
+27 getwd: Ne peut trouver "." dans ".." (%s)
+28 Type de système incorrect
+29 Le type de système n'est pas défini
+30 XXX: Too many arguments 
+31 XXX: Invalid argument

contrib/tcsh/nls/french/set24

@@ -0,0 +1,4 @@
+$ $Id: set24,v 1.1 1995/04/25 14:04:35 christos Exp $
+$ tc.sched.c
+$set 24 
+1 kludge

contrib/tcsh/nls/french/set25

@@ -0,0 +1,6 @@
+$ $Id: set25,v 1.1 1995/04/25 14:04:35 christos Exp $
+$ tc.sig.c
+$set 25 
+1 notre attente %d\n
+2 erreur: bsd_signal(%d) signal hors limites\n
+3 erreur: bsd_signal(%d) - sigaction a échoué, errno %d\n

contrib/tcsh/nls/french/set26

@@ -0,0 +1,15 @@
+$ $Id: set26,v 1.1 1995/04/25 14:04:35 christos Exp $
+$ tc.who.c
+$set 26 
+1 ne peut effectuer stat %s.  S.V.P effectuez "unset watch".\n
+2 %s ne peut être ouvert.  S.V.P effectuez "unset watch".\n
+3 BUG! le dernier élément n'est pas whotail!\n
+4 arrière: 
+5 BUG! le premier élément n'est pas whohead!\n
+6 nouveau: %s/%s\n
+7 %n a %a %l from %m.
+8 %n a %a %l.
+9 connecté
+10 déconnecté
+11 remplacé %s
+12 local

contrib/tcsh/nls/french/set27

@@ -0,0 +1,8 @@
+$ $Id: set27,v 1.1 1995/04/25 14:04:35 christos Exp $
+$ tw.comp.c
+$set 27 
+1 commande
+2 séparateur
+3 motif
+4 intervalle
+5 complément

contrib/tcsh/nls/french/set29

@@ -0,0 +1,4 @@
+$ $Id: set29,v 1.1 1995/04/25 14:04:35 christos Exp $
+$ tw.help.c
+$set 29 
+1 Pas de fichier d'aide pour %S\n

contrib/tcsh/nls/french/set3

@@ -0,0 +1,117 @@
+$ $Id: set3,v 1.1 1995/04/25 14:04:35 christos Exp $
+$ Description des fonctions éditeur
+$set 3 
+1 Recule d'un caractère
+2 Efface le caractère derrière le curseur
+3 Coupe depuis le début du mot jusqu'au curseur - sauvegardé dans le tampon de copie
+4 Coupe depuis le début de la ligne jusqu'au curseur - sauvegardé dans le tampon de copie
+5 Va au début du mot courant
+6 Va au début de la ligne
+7 Met en majuscules les caractères depuis le curseur jusqu'à la fin du mot
+8 Vi change la casse du caractère sous le curseur et avance d'un caractère
+9 Vi change jusqu'à la fin de la ligne
+10 Efface l'écran en laissant la ligne courant au dessus
+11 Complète le mot courant
+12 Tab avance parmi les fichiers
+13 Tab recule parmi les fichiers
+14 Complète le mot courant en ignorant les compléments programmables
+15 Copie le mot courant jusqu'au curseur
+16 Copie la zone entre la marque et le curseur dans le tampon de copie
+17 Développe vers le mot précédent pour lequel c'est un préfixe
+18 Efface le caractère sous le curseur
+19 Efface le caractère sous le curseur, ou signale la fin de fichier si ligne vide
+20 Efface le caractère sous le curseur, ou liste les compléments si fin de ligne
+21 Efface le caractère sous le curseur, liste les compléments ou signale la fin de fichier
+22 Coupe depuis le curseur jusqu'à la fin du mot courant - sauvegardé dans le tampon de copie
+23 Ajoute aux arguments si démarré ou entre le chiffre
+24 Chiffre au début de l'argument
+25 Va à la prochaine ligne de l'historique
+26 Met en minuscules les caractères depuis le curseur jusqu'à la fin du mot
+27 Indique la fin de fichier
+28 Déplace le curseur à la fin de la ligne
+29 Echange le curseur et la marque
+30 Développe les jokers du nom de fichier
+31 Développe les échappements de l'historique
+32 Développe les échappements de l'historique en une ligne
+33 Développe les variables
+34 Avance d'un caractère
+35 Avance à la fin du mot courant
+36 Echange les deux caractères avant le curseur
+37 Cherche en arrière dans l'historique une ligne commençant comme la ligne courante
+38 Cherche en avant dans l'historique une ligne commençant comme la ligne courante
+39 Insère le dernier elément de la commande précédente
+40 Recherche en avant incrémentale
+41 Recherche en arrière incrémentale
+42 Efface la ligne
+43 Coupe jusqu'à la fin de la ligne et sauvegarde dans le tampon de copie
+44 Coupe la zone entre la marque et le curseur et sauvegarde dans le tampon de copie
+45 Coupe toute la ligne et sauvegarde dans le tampon de copie
+46 Liste les choix pour le complément
+47 Liste les choix pour le complément sur-définissant le complément programmable
+48 Liste les correspondances pour le nom de fichier avec joker
+49 Liste les choix pour le complément ou indique la fin de fichier si ligne vide
+50 Affiche la charge moyenne et l'état courant des processus
+51 Développe les échappements de l'historique et insère une espace
+52 Exécute la commande
+53 Développe les nom de répertoires, éliminant les `.' et `..' en tête
+54 Développe les commandes pour le chemin ou l'alias résultant
+55 Passe du mode insertion au mode recouvrement et vice-versa
+56 Ajoute le 8ième bit au prochain caractère saisi
+57 Ajoute le prochain caractère saisi à la ligne 
+58 Réaffiche tout
+59 Redémarre l'éditeur
+60 Cherche de l'aide pour la commande courante
+61 Ce caractère est ajouté à la ligne
+62 Ca caractère est le premier dans une séquence de caractères
+63 Définit la marque à la position du curseur
+64 Corrige la syntaxe du mot courant
+65 Corrige la syntaxe de la ligne complète
+66 Envoie le caractère au tty en mode 
+67 Bascule la ligne courante de l'historique entre le mode littéral et lexical
+68 Echange le caractère à la gauche du curseur avec celui en dessous du curseur
+69 Echange les deux caractères avant le curseur
+70 Caractère tty de suspension différé
+71 Caractère tty de vidage de sortie
+72 Caractère tty d'interruption
+73 Caractère tty de sortie
+74 Caractère tty de suspension
+75 Caractère tty de validation de sortie
+76 Caractère tty d'invalidation de sortie
+77 Indique un caractère pas attaché
+78 Argument universel Emacs (argument x 4)
+79 Va à la ligne précédente de l'historique
+80 Met en majuscule les caractères depuis le curseur jusqu'à la fin du mot courant
+81 Vi va au début du prochain mot
+82 Vi passe en mode insertion après le curseur
+83 Vi passe en mode insertion à la fin de la ligne
+84 Vi change la casse du caractère sous le curseur et avance d'un caractère
+85 Vi change la commande `prefix'
+86 Vi change jusqu'à la fin de la ligne
+87 Passe au mode de commande Vi (redéfinition des touches alternatives)
+88 Le mode commande de Vi complète le mot courant
+89 Vi va au caractère précédent (retour-arrière)
+90 Vi efface la commande `prefix'
+91 Vi va à la fin du mot courant délimité par des espaces
+92 Vi va à la fin du mot courant
+93 Vi va vers le caractère spécifié avant
+94 Vi va vers le caractère spécifié après
+95 Vi remonte vers le caractère spécifié avant
+96 Vi remonte vers le caractère spécifié après
+97 Passe en mode insertion Vi
+98 Passe en mode insertion Vi au début de la ligne
+99 Vi répète la recherche du caractère en cours dans la même direction
+100 Vi répète la recherche du caractère en cours dans la direction opposée
+101 Vi répète la recherche en cours dans la même direction
+102 Vi répète la recherche en cours dans la direction opposée
+103 Vi remplace le caractère sous le curseur avec le prochain caractère saisi
+104 Mode de remplacement Vi
+105 Vi cherche dans l'historique en arrière
+106 Vi cherche dans l'historique en avant
+107 Vi remplace le caractère sous le curseur et passe en mode insertion
+108 Vi remplace la ligne entière
+109 Vi va au mot précédent
+110 Vi va au prochain mot
+111 Vi défait la dernière modification
+112 Vi va au début de la ligne
+113 Exécute quelle commande en cours
+114 Colle le tampon de copie à la position du curseur

contrib/tcsh/nls/french/set30

@@ -0,0 +1,16 @@
+$ $Id: set30,v 1.2 1996/04/26 20:46:09 christos Exp $
+$ tw.parse.c
+$set 30 
+1 démarre une commande %d\n
+2 complete %d 
+3 complete %d %S\n
+4 %s: Erreur interne de correspondance.\n
+5 éléments
+6 colonnes
+7 Il y a %d %s, les lister quand même ? [n/y] 
+8 looking = %d\n
+9 \nerreur interne %s: Je ne sais pas ce que je recherche !\n
+10 pas un répertoire
+11 pas trouvé
+12 pas lisible
+13 oOyY

contrib/tcsh/nls/french/set31

@@ -0,0 +1,7 @@
+$ $Id: set31,v 1.1 1995/04/25 14:04:35 christos Exp $
+$ vms.termcap.c
+$set 31 
+1 Ne peut ouvrir TERMCAP: [%s]\n
+2 Ne peut ouvrir %s.\n
+3 Trouvé %s dans %s.\n
+4 Pas de correspondance trouvée pour %s dans le fichier %s\n

contrib/tcsh/nls/french/set4

@@ -0,0 +1,45 @@
+$ $Id: set4,v 1.1 1995/04/25 14:04:35 christos Exp $
+$ Termcap strings
+$set 4
+1 ajoute une nouvelle ligne vide
+2 bip audible
+3 efface jusqu'en bas
+4 efface jusqu'à la fin de la ligne
+5 curseur vers un position horizontale
+6 efface l'écran
+7 efface un caractère
+8 efface une ligne
+9 commence le mode d'effacement
+10 termine le mode d'effacement
+11 termine le mode d'insertion
+12 curseur de la ligne d'état
+13 curseur origine
+14 insère caractère
+15 commence le mode insertion
+16 insère du remplissage
+17 curseur vers le bas
+18 curseur vers la gauche
+19 curseur vers la droite
+20 curseur vers le haut
+21 commence le gras
+22 fin attributs
+23 espaces non-destructives
+24 fin mise en évidence
+25 commence mise en évidence
+26 curseur à la ligne d'état
+27 curseur d'une vers le haut
+28 commence souligné
+29 fin souligné
+30 bip `visible'
+31 efface plusiseurs caractères
+32 curseur vers le bas (plusieurs)
+33 insert plusieurs caractères
+34 curseur vers la gauche (plusieurs)
+35 curseur vers la droite (plusieurs)
+36 curseur vers le haut (plusieurs)
+37 A les marge automatiques
+38 Peut utiliser les tabulations physiques
+39 Nombre de lignes
+40 Nombre de colonnes
+41 A les touches `alternatives'
+42 retoure-chariot ignoré à la droite de la marge

contrib/tcsh/nls/french/set5

@@ -0,0 +1,4 @@
+$ $Id: set5,v 1.1 1995/04/25 14:04:35 christos Exp $
+$ ed.chared.c
+$set 5
+1 Charge moyenne indisponible\n

contrib/tcsh/nls/french/set6

@@ -0,0 +1,11 @@
+$ $Id: set6,v 1.1 1995/04/25 14:04:35 christos Exp $
+$ ed.inputl.c
+$set 6
+1 ERREUR: commande interdite de la touche 0%o\r\n
+2 oui\n
+3 edit\n
+4 arrête\n
+5 non\n
+6 Pas de commande correspondante\n
+7 Commande ambigue\n
+8 *** ERREUR fatale de l'éditeur ***\r\n\n

contrib/tcsh/nls/french/set7

@@ -0,0 +1,30 @@
+$ $Id: set7,v 1.2 1996/04/26 20:46:12 christos Exp $
+$ ed.screen.c
+$set 7
+1 \n\tTcsh a déterminé que votre terminal a les\n
+2 \tcaractéristiques suivantes :\n\n
+3 \tIl a %d colonnes et %d lignes\n
+4 \tIl %s touche `alternative'\n
+5 a une
+6 n'a pas de
+7 \tIl %speut utiliser les tabulations\n
+8 ne 
+9 \tIl %s les marges automatiques\n
+10 a
+11 n'a pas
+12 \tIl %s les marges magiques\n
+13 (vide)
+14 oui
+15 non
+16 ERREUR: ne peut pas effacer\r\n
+17 DeleteChars: num est ridicule: %d\r\n
+18 ERREUR: ne peut insérer\r\n
+19 StartInsert: num est ridicule: %d\r\n
+20 %s: Ne peut ouvrir /etc/termcap.\n
+21 %s: Pas d'entrée pour le type de terminal "%s"\n
+22 %s: utilise la configuration d'un terminal banal.\n
+23 %s: ATTENTION: Votre terminal ne peut effectuer de déplacement vers le haut.\n
+24 L'édition peut être incorrecte pour les longues lignes.\n
+25 pas de capacité d'effacement jusqu'à fin de ligne.\n
+26 pas de capacité d'effacement de caractère.\n
+27 pas de capacité d'insertion de caractère.\n