BSD 4_4 release

[unix-history] / usr / src / bin / csh / csh.h

diff --git a/usr/src/bin/csh/csh.h b/usr/src/bin/csh/csh.h
index 3f40060..367b51e 100644 (file)
--- a/usr/src/bin/csh/csh.h
+++ b/usr/src/bin/csh/csh.h
@@ -1,108 +1,176 @@
-/* csh.h 4.5 82/12/30 */
-
-#include "sh.local.h"
-#include <time.h>
-#include <resource.h>
+/*-
+ * Copyright (c) 1980, 1991, 1993
+ *     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.
+ *
+ *     @(#)csh.h       8.1 (Berkeley) 5/31/93
+ */

 
 /*
 
 /*

- * C shell
+ * Fundamental definitions which may vary from system to system.

  *
  *

- * Bill Joy, UC Berkeley
- * October, 1978; May 1980
- *
- * Jim Kulp, IIASA, Laxenburg Austria
- * April, 1980
+ *     BUFSIZ          The i/o buffering size; also limits word size
+ *     MAILINTVL       How often to mailcheck; more often is more expensive
+ */
+#ifndef BUFSIZ
+#define        BUFSIZ  1024            /* default buffer size */
+#endif                         /* BUFSIZ */
+
+#define FORKSLEEP      10      /* delay loop on non-interactive fork failure */
+#define        MAILINTVL       600     /* 10 minutes */
+
+/*
+ * The shell moves std in/out/diag and the old std input away from units
+ * 0, 1, and 2 so that it is easy to set up these standards for invoked
+ * commands.

  */
  */

-#include <sys/param.h>
-#include <sys/stat.h>
+#define        FSHTTY  15              /* /dev/tty when manip pgrps */
+#define        FSHIN   16              /* Preferred desc for shell input */
+#define        FSHOUT  17              /* ... shell output */
+#define        FSHERR  18              /* ... shell diagnostics */
+#define        FOLDSTD 19              /* ... old std input */
+
+#ifdef PROF
+#define        xexit(n)        done(n)
+#endif
+
+#ifdef SHORT_STRINGS
+typedef short Char;
+
+#define SAVE(a) (Strsave(str2short(a)))
+#else
+typedef char Char;
+
+#define SAVE(a) (strsave(a))
+#endif
+
+/*
+ * Make sure a variable is not stored in a register by taking its address
+ * This is used where variables might be clobbered by longjmp.
+ */
+#define UNREGISTER(a)  (void) &a
+
+typedef void *ioctl_t;         /* Third arg of ioctl */
+
+typedef void *ptr_t;
+
+#include "const.h"
+#include "char.h"
+#include "err.h"
+
+#define xmalloc(i)     Malloc(i)
+#define xrealloc(p, i) Realloc(p, i)
+#define xcalloc(n, s)  Calloc(n, s)
+#define xfree(p)       Free(p)
+
+#include <stdio.h>
+FILE *cshin, *cshout, *csherr;

 
 #define        isdir(d)        ((d.st_mode & S_IFMT) == S_IFDIR)
 
 
 #define        isdir(d)        ((d.st_mode & S_IFMT) == S_IFDIR)
 

-#include <errno.h>
-#include <setjmp.h>
-#include <signal.h>
-#include <sys/times.h>
+typedef int bool;

 
 

-typedef        char    bool;
+#define        eq(a, b)        (Strcmp(a, b) == 0)

 
 

-#define        eq(a, b)        (strcmp(a, b) == 0)
+/* globone() flags */
+#define G_ERROR                0       /* default action: error if multiple words */
+#define G_IGNORE       1       /* ignore the rest of the words */
+#define G_APPEND       2       /* make a sentence by cat'ing the words */

 
 /*
  * Global flags
  */
 
 /*
  * Global flags
  */

-bool   chkstop;                /* Warned of stopped jobs... allow exit */
-bool   didcch;                 /* Have closed unused fd's for child */
-bool   didfds;                 /* Have setup i/o fd's for child */
-bool   doneinp;                /* EOF indicator after reset from readc */
-bool   exiterr;                /* Exit if error or non-zero exit status */
-bool   child;                  /* Child shell ... errors cause exit */
-bool   haderr;                 /* Reset was because of an error */
-bool   intty;                  /* Input is a tty */
-bool   intact;                 /* We are interactive... therefore prompt */
-bool   justpr;                 /* Just print because of :p hist mod */
-bool   loginsh;                /* We are a loginsh -> .login/.logout */
-bool   neednote;               /* Need to pnotify() */
-bool   noexec;                 /* Don't execute, just syntax check */
-bool   pjobs;                  /* want to print jobs if interrupted */
-bool   setintr;                /* Set interrupts on/off -> Wait intr... */
-bool   timflg;                 /* Time the next waited for command */
+bool    chkstop;               /* Warned of stopped jobs... allow exit */
+bool    didfds;                        /* Have setup i/o fd's for child */
+bool    doneinp;               /* EOF indicator after reset from readc */
+bool    exiterr;               /* Exit if error or non-zero exit status */
+bool    child;                 /* Child shell ... errors cause exit */
+bool    haderr;                        /* Reset was because of an error */
+bool    intty;                 /* Input is a tty */
+bool    intact;                        /* We are interactive... therefore prompt */
+bool    justpr;                        /* Just print because of :p hist mod */
+bool    loginsh;               /* We are a loginsh -> .login/.logout */
+bool    neednote;              /* Need to pnotify() */
+bool    noexec;                        /* Don't execute, just syntax check */
+bool    pjobs;                 /* want to print jobs if interrupted */
+bool    setintr;               /* Set interrupts on/off -> Wait intr... */
+bool    timflg;                        /* Time the next waited for command */
+bool    havhash;               /* path hashing is available */
+
+#ifdef FILEC
+bool    filec;                 /* doing filename expansion */
+#endif

 
 /*
  * Global i/o info
  */
 
 /*
  * Global i/o info
  */

-char   *arginp;                /* Argument input for sh -c and internal `xx` */
-int    onelflg;                /* 2 -> need line for -t, 1 -> exit on read */
-char   *file;                  /* Name of shell file for $0 */
+Char   *arginp;                        /* Argument input for sh -c and internal `xx` */
+int     onelflg;               /* 2 -> need line for -t, 1 -> exit on read */
+Char   *ffile;                 /* Name of shell file for $0 */

 
 

-char   *err;                   /* Error message from scanner/parser */
-int    errno;                  /* Error from C library routines */
-char   *shtemp;                /* Temp name for << shell files in /tmp */
-time_t time0;                  /* Time at which the shell started */
-struct rusage ru0;
+char   *seterr;                        /* Error message from scanner/parser */
+Char   *shtemp;                        /* Temp name for << shell files in /tmp */

 
 

-/*
- * Miscellany
- */
-char   *doldol;                /* Character pid for $$ */
-int    uid;                    /* Invokers uid */
-time_t chktim;                 /* Time mail last checked */
-short  shpgrp;                 /* Pgrp of shell */
-short  tpgrp;                  /* Terminal process group */
-/* If tpgrp is -1, leave tty alone! */
-short  opgrp;                  /* Initial pgrp and tty pgrp */
-int    oldisc;                 /* Initial line discipline or -1 */
-struct tms shtimes;            /* shell and child times for process timing */
+#include <sys/types.h>
+#include <sys/time.h>
+#include <sys/resource.h>
+
+struct timeval time0;          /* Time at which the shell started */
+struct rusage ru0;

 
 /*
 
 /*

- * These are declared here because they want to be
- * initialized in sh.init.c (to allow them to be made readonly)
+ * Miscellany

  */
  */

+Char   *doldol;                        /* Character pid for $$ */
+int    backpid;                /* Pid of the last background process */
+int     uid, euid;             /* Invokers uid */
+int     gid, egid;             /* Invokers gid */
+time_t  chktim;                        /* Time mail last checked */
+int     shpgrp;                        /* Pgrp of shell */
+int     tpgrp;                 /* Terminal process group */

 
 

-struct biltins {
-       char    *bname;
-       int     (*bfunct)();
-       short   minargs, maxargs;
-} bfunc[];
-
-#define        INF     1000
+/* If tpgrp is -1, leave tty alone! */
+int     opgrp;                 /* Initial pgrp and tty pgrp */

 
 

-struct srch {
-       char    *s_name;
-       short   s_value;
-} srchn[];

 
 /*
  * To be able to redirect i/o for builtins easily, the shell moves the i/o
  * descriptors it uses away from 0,1,2.
  * Ideally these should be in units which are closed across exec's
  * (this saves work) but for version 6, this is not usually possible.
 
 /*
  * To be able to redirect i/o for builtins easily, the shell moves the i/o
  * descriptors it uses away from 0,1,2.
  * Ideally these should be in units which are closed across exec's
  * (this saves work) but for version 6, this is not usually possible.

- * The desired initial values for these descriptors are defined in
- * sh.local.h.
+ * The desired initial values for these descriptors are F{SHIN,...}.

  */
  */

-short  SHIN;                   /* Current shell input (script) */
-short  SHOUT;                  /* Shell output */
-short  SHDIAG;                 /* Diagnostic output... shell errs go here */
-short  OLDSTD;                 /* Old standard input (def for cmds) */
+int   SHIN;                    /* Current shell input (script) */
+int   SHOUT;                   /* Shell output */
+int   SHERR;                   /* Diagnostic output... shell errs go here */
+int   OLDSTD;                  /* Old standard input (def for cmds) */

 
 /*
  * Error control
 
 /*
  * Error control


@@ -112,27 +180,41 @@ short     OLDSTD;                 /* Old standard input (def for cmds) */
  * Because of source commands and .cshrc we need nested error catches.
  */
 
  * Because of source commands and .cshrc we need nested error catches.
  */
 

-jmp_buf        reslab;
+#include <setjmp.h>
+jmp_buf reslab;
+
+#define        setexit()       (setjmp(reslab))
+#define        reset()         longjmp(reslab, 1)
+ /* Should use structure assignment here */
+#define        getexit(a)      bcopy((char *)reslab, ((char *)(a)), sizeof reslab)
+#define        resexit(a)      bcopy((char *)(a), (char *)reslab, sizeof reslab)

 
 

-#define        setexit()       setjmp(reslab)
-#define        reset()         longjmp(reslab)
-       /* Should use structure assignment here */
-#define        getexit(a)      copy((char *)(a), (char *)reslab, sizeof reslab)
-#define        resexit(a)      copy((char *)reslab, ((char *)(a)), sizeof reslab)
+Char   *gointr;                        /* Label for an onintr transfer */

 
 

-char   *gointr;                /* Label for an onintr transfer */
-int    (*parintr)();           /* Parents interrupt catch */
-int    (*parterm)();           /* Parents terminate catch */
+#include <signal.h>
+sig_t parintr;                 /* Parents interrupt catch */
+sig_t parterm;                 /* Parents terminate catch */

 
 /*
  * Lexical definitions.
  *
  * All lexical space is allocated dynamically.
 
 /*
  * Lexical definitions.
  *
  * All lexical space is allocated dynamically.

- * The eighth bit of characters is used to prevent recognition,
+ * The eighth/sixteenth bit of characters is used to prevent recognition,

  * and eventually stripped.
  */
  * and eventually stripped.
  */

-#define        QUOTE   0200            /* Eighth char bit used internally for 'ing */
-#define        TRIM    0177            /* Mask to strip quote bit */
+#define        META            0200
+#define        ASCII           0177
+#ifdef SHORT_STRINGS
+#define        CHAR            0377
+#define        QUOTE           0100000 /* 16nth char bit used for 'ing */
+#define        TRIM            0077777 /* Mask to strip quote bit */
+#else
+#define        CHAR            0177
+#define        QUOTE           0200    /* Eighth char bit used for 'ing */
+#define        TRIM            0177    /* Mask to strip quote bit */
+#endif
+
+int     AsciiOnly;             /* If set only 7 bits is expected in characters */

 
 /*
  * Each level of input has a buffered input structure.
 
 /*
  * Each level of input has a buffered input structure.


@@ -141,13 +223,35 @@ int       (*parterm)();           /* Parents terminate catch */
  * In other cases, the shell buffers enough blocks to keep all loops
  * in the buffer.
  */
  * In other cases, the shell buffers enough blocks to keep all loops
  * in the buffer.
  */

-struct Bin {
-       off_t   Bfseekp;                /* Seek pointer */
-       off_t   Bfbobp;                 /* Seekp of beginning of buffers */
-       off_t   Bfeobp;                 /* Seekp of end of buffers */
-       short   Bfblocks;               /* Number of buffer blocks */
-       char    **Bfbuf;                /* The array of buffer blocks */
-} B;
+struct Bin {
+    off_t   Bfseekp;           /* Seek pointer */
+    off_t   Bfbobp;            /* Seekp of beginning of buffers */
+    off_t   Bfeobp;            /* Seekp of end of buffers */
+    int     Bfblocks;          /* Number of buffer blocks */
+    Char  **Bfbuf;             /* The array of buffer blocks */
+}       B;
+
+/*
+ * This structure allows us to seek inside aliases
+ */
+struct Ain {
+    int type;
+#define I_SEEK -1              /* Invalid seek */
+#define A_SEEK 0               /* Alias seek */
+#define F_SEEK 1               /* File seek */
+#define E_SEEK 2               /* Eval seek */
+    union {
+       off_t _f_seek;
+       Char* _c_seek;
+    } fc;
+#define f_seek fc._f_seek
+#define c_seek fc._c_seek
+    Char **a_seek;
+} ;
+extern int aret;               /* What was the last character returned */
+#define SEEKEQ(a, b) ((a)->type == (b)->type && \
+                     (a)->f_seek == (b)->f_seek && \
+                     (a)->a_seek == (b)->a_seek)

 
 #define        fseekp  B.Bfseekp
 #define        fbobp   B.Bfbobp
 
 #define        fseekp  B.Bfseekp
 #define        fbobp   B.Bfbobp


@@ -155,28 +259,23 @@ struct    Bin {
 #define        fblocks B.Bfblocks
 #define        fbuf    B.Bfbuf
 
 #define        fblocks B.Bfblocks
 #define        fbuf    B.Bfbuf
 

-off_t  btell();
-

 /*
  * The shell finds commands in loops by reseeking the input
  * For whiles, in particular, it reseeks to the beginning of the
  * line the while was on; hence the while placement restrictions.
  */
 /*
  * The shell finds commands in loops by reseeking the input
  * For whiles, in particular, it reseeks to the beginning of the
  * line the while was on; hence the while placement restrictions.
  */

-off_t  lineloc;
+struct Ain lineloc;

 
 

-#ifdef TELL
-off_t  tell();
-bool   cantell;                        /* Is current source tellable ? */
-#endif
+bool    cantell;               /* Is current source tellable ? */

 
 /*
  * Input lines are parsed into doubly linked circular
  * lists of words of the following form.
  */
 
 /*
  * Input lines are parsed into doubly linked circular
  * lists of words of the following form.
  */

-struct wordent {
-       char    *word;
-       struct  wordent *prev;
-       struct  wordent *next;
+struct wordent {
+    Char   *word;
+    struct wordent *prev;
+    struct wordent *next;

 };
 
 /*
 };
 
 /*


@@ -199,9 +298,7 @@ struct      wordent {
  * process id's from `$$', and modified variable values (from qualifiers
  * during expansion in sh.dol.c) here.
  */
  * process id's from `$$', and modified variable values (from qualifiers
  * during expansion in sh.dol.c) here.
  */

-char   labuf[BUFSIZ];
-
-char   *lap;
+Char   *lap;

 
 /*
  * Parser structure
 
 /*
  * Parser structure


@@ -210,131 +307,153 @@ char    *lap;
  * flags are set bottom up during this process, to be propagated down
  * as needed during the semantics/exeuction pass (sh.sem.c).
  */
  * flags are set bottom up during this process, to be propagated down
  * as needed during the semantics/exeuction pass (sh.sem.c).
  */

-struct command {
-       short   t_dtyp;                         /* Type of node */
-       short   t_dflg;                         /* Flags, e.g. FAND|... */
-       union {
-               char    *T_dlef;                /* Input redirect word */
-               struct  command *T_dcar;        /* Left part of list/pipe */
-       } L;
-       union {
-               char    *T_drit;                /* Output redirect word */
-               struct  command *T_dcdr;        /* Right part of list/pipe */
-       } R;
+struct command {
+    short   t_dtyp;            /* Type of node                  */
+#define        NODE_COMMAND    1       /* t_dcom <t_dlef >t_drit        */
+#define        NODE_PAREN      2       /* ( t_dspr ) <t_dlef >t_drit    */
+#define        NODE_PIPE       3       /* t_dlef | t_drit               */
+#define        NODE_LIST       4       /* t_dlef ; t_drit               */
+#define        NODE_OR         5       /* t_dlef || t_drit              */
+#define        NODE_AND        6       /* t_dlef && t_drit              */
+    short   t_dflg;            /* Flags, e.g. F_AMPERSAND|...   */
+#define        F_SAVE  (F_NICE|F_TIME|F_NOHUP) /* save these when re-doing      */
+
+#define        F_AMPERSAND     (1<<0)  /* executes in background        */
+#define        F_APPEND        (1<<1)  /* output is redirected >>       */
+#define        F_PIPEIN        (1<<2)  /* input is a pipe               */
+#define        F_PIPEOUT       (1<<3)  /* output is a pipe              */
+#define        F_NOFORK        (1<<4)  /* don't fork, last ()ized cmd   */
+#define        F_NOINTERRUPT   (1<<5)  /* should be immune from intr's */
+/* spare */
+#define        F_STDERR        (1<<7)  /* redirect unit 2 with unit 1   */
+#define        F_OVERWRITE     (1<<8)  /* output was !                  */
+#define        F_READ          (1<<9)  /* input redirection is <<       */
+#define        F_REPEAT        (1<<10) /* reexec aft if, repeat,...     */
+#define        F_NICE          (1<<11) /* t_nice is meaningful          */
+#define        F_NOHUP         (1<<12) /* nohup this command            */
+#define        F_TIME          (1<<13) /* time this command             */
+    union {
+       Char   *T_dlef;         /* Input redirect word           */
+       struct command *T_dcar; /* Left part of list/pipe        */
+    }       L;
+    union {
+       Char   *T_drit;         /* Output redirect word          */
+       struct command *T_dcdr; /* Right part of list/pipe       */
+    }       R;

 #define        t_dlef  L.T_dlef
 #define        t_dcar  L.T_dcar
 #define        t_drit  R.T_drit
 #define        t_dcdr  R.T_dcdr
 #define        t_dlef  L.T_dlef
 #define        t_dcar  L.T_dcar
 #define        t_drit  R.T_drit
 #define        t_dcdr  R.T_dcdr

-       char    **t_dcom;                       /* Command/argument vector */
-       struct  command *t_dspr;                /* Pointer to ()'d subtree */
-       short   t_nice;
+    Char  **t_dcom;            /* Command/argument vector       */
+    struct command *t_dspr;    /* Pointer to ()'d subtree       */
+    int   t_nice;

 };
 
 };
 

-#define        TCOM    1               /* t_dcom <t_dlef >t_drit       */
-#define        TPAR    2               /* ( t_dspr ) <t_dlef >t_drit   */
-#define        TFIL    3               /* t_dlef | t_drit              */
-#define        TLST    4               /* t_dlef ; t_drit              */
-#define        TOR     5               /* t_dlef || t_drit             */
-#define        TAND    6               /* t_dlef && t_drit             */
-
-#define        FSAVE   (FNICE|FTIME|FNOHUP)    /* save these when re-doing */
-
-#define        FAND    (1<<0)          /* executes in background       */
-#define        FCAT    (1<<1)          /* output is redirected >>      */
-#define        FPIN    (1<<2)          /* input is a pipe              */
-#define        FPOU    (1<<3)          /* output is a pipe             */
-#define        FPAR    (1<<4)          /* don't fork, last ()ized cmd  */
-#define        FINT    (1<<5)          /* should be immune from intr's */
-/* spare */
-#define        FDIAG   (1<<7)          /* redirect unit 2 with unit 1  */
-#define        FANY    (1<<8)          /* output was !                 */
-#define        FHERE   (1<<9)          /* input redirection is <<      */
-#define        FREDO   (1<<10)         /* reexec aft if, repeat,...    */
-#define        FNICE   (1<<11)         /* t_nice is meaningful */
-#define        FNOHUP  (1<<12)         /* nohup this command */
-#define        FTIME   (1<<13)         /* time this command */
+
+/*
+ * These are declared here because they want to be
+ * initialized in sh.init.c (to allow them to be made readonly)
+ */
+
+extern struct biltins {
+    char   *bname;
+    void    (*bfunct) __P((Char **, struct command *));
+    short   minargs, maxargs;
+}       bfunc[];
+extern int nbfunc;
+
+extern struct srch {
+    char   *s_name;
+    short   s_value;
+}       srchn[];
+extern int nsrchn;

 
 /*
  * The keywords for the parser
  */
 
 /*
  * The keywords for the parser
  */

-#define        ZBREAK          0
-#define        ZBRKSW          1
-#define        ZCASE           2
-#define        ZDEFAULT        3
-#define        ZELSE           4
-#define        ZEND            5
-#define        ZENDIF          6
-#define        ZENDSW          7
-#define        ZEXIT           8
-#define        ZFOREACH        9
-#define        ZGOTO           10
-#define        ZIF             11
-#define        ZLABEL          12
-#define        ZLET            13
-#define        ZSET            14
-#define        ZSWITCH         15
-#define        ZTEST           16
-#define        ZTHEN           17
-#define        ZWHILE          18
+#define        T_BREAK         0
+#define        T_BRKSW         1
+#define        T_CASE          2
+#define        T_DEFAULT       3
+#define        T_ELSE          4
+#define        T_END           5
+#define        T_ENDIF         6
+#define        T_ENDSW         7
+#define        T_EXIT          8
+#define        T_FOREACH       9
+#define        T_GOTO          10
+#define        T_IF            11
+#define        T_LABEL         12
+#define        T_LET           13
+#define        T_SET           14
+#define        T_SWITCH        15
+#define        T_TEST          16
+#define        T_THEN          17
+#define        T_WHILE         18

 
 /*
  * Structure defining the existing while/foreach loops at this
  * source level.  Loops are implemented by seeking back in the
  * input.  For foreach (fe), the word list is attached here.
  */
 
 /*
  * Structure defining the existing while/foreach loops at this
  * source level.  Loops are implemented by seeking back in the
  * input.  For foreach (fe), the word list is attached here.
  */

-struct whyle {
-       off_t   w_start;                /* Point to restart loop */
-       off_t   w_end;                  /* End of loop (0 if unknown) */
-       char    **w_fe, **w_fe0;        /* Current/initial wordlist for fe */
-       char    *w_fename;              /* Name for fe */
-       struct  whyle *w_next;          /* Next (more outer) loop */
-} *whyles;
+struct whyle {
+    struct Ain   w_start;      /* Point to restart loop */
+    struct Ain   w_end;                /* End of loop (0 if unknown) */
+    Char  **w_fe, **w_fe0;     /* Current/initial wordlist for fe */
+    Char   *w_fename;          /* Name for fe */
+    struct whyle *w_next;      /* Next (more outer) loop */
+}      *whyles;

 
 /*
  * Variable structure
  *
 
 /*
  * Variable structure
  *

- * Lists of aliases and variables are sorted alphabetically by name
+ * Aliases and variables are stored in AVL balanced binary trees.

  */
  */

-struct varent {
-       char    **vec;          /* Array of words which is the value */
-       char    *name;          /* Name of variable/alias */
-       struct  varent *link;
-} shvhed, aliases;
+struct varent {
+    Char  **vec;               /* Array of words which is the value */
+    Char   *v_name;            /* Name of variable/alias */
+    struct varent *v_link[3];  /* The links, see below */
+    int     v_bal;             /* Balance factor */
+}       shvhed, aliases;
+
+#define v_left         v_link[0]
+#define v_right                v_link[1]
+#define v_parent       v_link[2]
+
+struct varent *adrof1();
+
+#define adrof(v)       adrof1(v, &shvhed)
+#define value(v)       value1(v, &shvhed)

 
 /*
  * The following are for interfacing redo substitution in
  * aliases to the lexical routines.
  */
 
 /*
  * The following are for interfacing redo substitution in
  * aliases to the lexical routines.
  */

-struct wordent *alhistp;               /* Argument list (first) */
-struct wordent *alhistt;               /* Node after last in arg list */
-char   **alvec;                        /* The (remnants of) alias vector */
+struct wordent *alhistp;       /* Argument list (first) */
+struct wordent *alhistt;       /* Node after last in arg list */
+Char  **alvec, *alvecp;                /* The (remnants of) alias vector */

 
 /*
  * Filename/command name expansion variables
  */
 
 /*
  * Filename/command name expansion variables
  */

-short  gflag;                          /* After tglob -> is globbing needed? */
+int   gflag;                   /* After tglob -> is globbing needed? */

 
 

-/*
- * A reasonable limit on number of arguments would seem to be
- * the maximum number of characters in an arg list / 6.
- */
-#define        GAVSIZ  NCARGS / 6
+#define MAXVARLEN 30           /* Maximum number of char in a variable name */

 
 /*
  * Variables for filename expansion
  */
 
 /*
  * Variables for filename expansion
  */

-char   **gargv;                        /* Pointer to the (stack) arglist */
-short  gargc;                          /* Number args in gargv */
-short  gnleft;
+extern Char **gargv;           /* Pointer to the (stack) arglist */
+extern long gargc;             /* Number args in gargv */

 
 /*
  * Variables for command expansion.
  */
 
 /*
  * Variables for command expansion.
  */

-char   **pargv;                        /* Pointer to the argv list space */
-char   *pargs;                         /* Pointer to start current word */
-short  pargc;                          /* Count of arguments in pargv */
-short  pnleft;                         /* Number of chars left in pargs */
-char   *pargcp;                        /* Current index into pargs */
+extern Char **pargv;           /* Pointer to the argv list space */
+extern long pargc;             /* Count of arguments in pargv */
+Char   *pargs;                 /* Pointer to start current word */
+long    pnleft;                        /* Number of chars left in pargs */
+Char   *pargcp;                        /* Current index into pargs */

 
 /*
  * History list
 
 /*
  * History list


@@ -347,96 +466,87 @@ char      *pargcp;                        /* Current index into pargs */
  * when history substitution includes modifiers, and thrown away
  * at the next discarding since their event numbers are very negative.
  */
  * when history substitution includes modifiers, and thrown away
  * at the next discarding since their event numbers are very negative.
  */

-struct Hist {
-       struct  wordent Hlex;
-       int     Hnum;
-       int     Href;
-       struct  Hist *Hnext;
-} Histlist;
-
-struct wordent paraml;                 /* Current lexical word list */
-int    eventno;                        /* Next events number */
-int    lastev;                         /* Last event reference (default) */
-
-char   HIST;                           /* history invocation character */
-char   HISTSUB;                        /* auto-substitute character */
-
-char   *Dfix1();
-struct varent *adrof(), *adrof1();
-char   **blkcat();
-char   **blkcpy();
-char   **blkend();
-char   **blkspl();
-char   *calloc();
-char   *cname();
-char   **copyblk();
-char   **dobackp();
-char   *domod();
-struct wordent *dosub();
-char   *exp3();
-char   *exp3a();
-char   *exp4();
-char   *exp5();
-char   *exp6();
-struct Hist *enthist();
-struct Hist *findev();
-struct wordent *freenod();
-char   *getenv();
-char   *getinx();
-struct varent *getvx();
-struct passwd *getpwnam();
-struct wordent *gethent();
-struct wordent *getsub();
-char   *getwd();
-char   *globone();
-struct biltins *isbfunc();
-char   **glob();
-char   *operate();
-int    phup();
-int    pintr();
-int    pchild();
-char   *putn();
-char   **saveblk();
-char   *savestr();
-char   *strcat();
-char   *strcpy();
-char   *strend();
-char   *strings();
-char   *strip();
-char   *strspl();
-char   *subword();
-struct command *syntax();
-struct command *syn0();
-struct command *syn1();
-struct command *syn1a();
-struct command *syn1b();
-struct command *syn2();
-struct command *syn3();
-int    tglob();
-int    trim();
-char   *value(), *value1();
-char   *xhome();
-char   *xname();
-char   *xset();
-
-#define        NOSTR   ((char *) 0)
+struct Hist {
+    struct wordent Hlex;
+    int     Hnum;
+    int     Href;
+    struct Hist *Hnext;
+}       Histlist;
+
+struct wordent paraml;         /* Current lexical word list */
+int     eventno;               /* Next events number */
+int     lastev;                        /* Last event reference (default) */
+
+Char    HIST;                  /* history invocation character */
+Char    HISTSUB;               /* auto-substitute character */
+
+/*
+ * strings.h:
+ */
+#ifndef SHORT_STRINGS
+#define Strchr(a, b)           strchr(a, b)
+#define Strrchr(a, b)          strrchr(a, b)
+#define Strcat(a, b)           strcat(a, b)
+#define Strncat(a, b, c)       strncat(a, b, c)
+#define Strcpy(a, b)           strcpy(a, b)
+#define Strncpy(a, b, c)       strncpy(a, b, c)
+#define Strlen(a)              strlen(a)
+#define Strcmp(a, b)           strcmp(a, b)
+#define Strncmp(a, b, c)       strncmp(a, b, c)
+
+#define Strspl(a, b)           strspl(a, b)
+#define Strsave(a)             strsave(a)
+#define Strend(a)              strend(a)
+#define Strstr(a, b)           strstr(a, b)
+
+#define str2short(a)           (a)
+#define blk2short(a)           saveblk(a)
+#define short2blk(a)           saveblk(a)
+#define short2str(a)           strip(a)
+#else
+#define Strchr(a, b)           s_strchr(a, b)
+#define Strrchr(a, b)          s_strrchr(a, b)
+#define Strcat(a, b)           s_strcat(a, b)
+#define Strncat(a, b, c)       s_strncat(a, b, c)
+#define Strcpy(a, b)           s_strcpy(a, b)
+#define Strncpy(a, b, c)       s_strncpy(a, b, c)
+#define Strlen(a)              s_strlen(a)
+#define Strcmp(a, b)           s_strcmp(a, b)
+#define Strncmp(a, b, c)       s_strncmp(a, b, c)
+
+#define Strspl(a, b)           s_strspl(a, b)
+#define Strsave(a)             s_strsave(a)
+#define Strend(a)              s_strend(a)
+#define Strstr(a, b)           s_strstr(a, b)
+#endif

 
 /*
  * setname is a macro to save space (see sh.err.c)
  */
 
 /*
  * setname is a macro to save space (see sh.err.c)
  */

-char   *bname;
-#define        setname(a)      bname = (a);
+char   *bname;

 
 

-#ifdef VFORK
-char   *Vsav;
-char   **Vav;
-char   *Vdp;
-#endif
+#define        setname(a)      (bname = (a))
+
+Char   *Vsav;
+Char   *Vdp;
+Char   *Vexpath;
+char  **Vt;
+
+Char  **evalvec;
+Char   *evalp;

 
 

-char   **evalvec;
-char   *evalp;
+/* word_chars is set by default to WORD_CHARS but can be overridden by
+   the worchars variable--if unset, reverts to WORD_CHARS */

 
 

-struct mesg {
-       char    *iname;         /* name from /usr/include */
-       char    *pname;         /* print name */
-} mesg[];
+Char   *word_chars;
+
+#define WORD_CHARS "*?_-.[]~=" /* default chars besides alnums in words */
+
+Char   *STR_SHELLPATH;
+
+#include <paths.h>
+#ifdef _PATH_BSHELL
+Char   *STR_BSHELL;
+#endif
+Char   *STR_WORD_CHARS;
+Char  **STR_environ;