Return to data.c CVS log

Up to [CSRG BSD Unix] / 3BSD / cmd / lisp

Annotation of 3BSD/cmd/lisp/data.c, revision 1.1

1.1     ! root        1: #include <stdio.h>
        !             2: 
        !             3: #include       "global.h"
        !             4: #include       "gtabs.h"
        !             5: 
        !             6: lispval lispsys[SIGNIF];       /* lisp data used by system */
        !             7: 
        !             8: lispval gftab[GFTABLEN];       /* global function table for interpreter */
        !             9: 
        !            10: lispval gctab[GCTABLEN] =      /* global constant table for interpreter */
        !            11:        {nil,0,SMALL(-1),SMALL(0),SMALL(1),SMALL(2),SMALL(3),SMALL(4)};
        !            12: 
        !            13: 
        !            14: /* Port definitions *****************************************************/
        !            15: FILE   *piport,                /* standard input port          */
        !            16:        *poport,                /* standard output port         */
        !            17:        *errport,               /* port for error messages      */
        !            18:        *rdrport,               /* temporary port for readr     */
        !            19:        *proport;               /* port for protocal            */
        !            20: int    lineleng =      80;             /* line length desired          */
        !            21: int    rlevel;                 /* used to indicate depth of recursion
        !            22:                                   in reader.  No longer really necessary */
        !            23: char   keybin =        FALSE;          /* logical flag: using keyboard */
        !            24: char   protflag =      FALSE;          /* logical flag: want protocall */
        !            25: char   rbktf;                          /* logical flag: ] mode         */
        !            26: 
        !            27: 
        !            28: /* name stack ***********************************************************/
        !            29: struct argent          *namptr,                /* temporary pointer    */
        !            30:                        *nplim;                 /* don't have this = np */
        !            31: struct nament          *bnp,                   /* top of bind stack    */
        !            32:                        *orgbnp,                /* absolute bottom of ""*/
        !            33:                        *bnplim;                /* absolute top of ""   */
        !            34: 
        !            35: 
        !            36: /* the typeing table ****************************************************/
        !            37: #ifndef ROWAN
        !            38: char typetab[TTSIZE] = {UNBO,ATOM,INT,INT,PORT};
        !            39: #else
        !            40: char typetab[TTSIZE] = {UNBO,ATOM,INT,INT,INT,PORT};
        !            41: #endif
        !            42: 
        !            43: /* hashing things *******************************************************/
        !            44: struct atom    *hasht[HASHTOP];
        !            45: int    hash;                                   /* set by ratom         */
        !            46: int    atmlen;                 /* length of atom including final null  */
        !            47: 
        !            48: 
        !            49: /* big string buffer for whomever needs it ******************************/
        !            50: char   strbuf[STRBLEN];
        !            51: char   *endstrb        = strbuf + 255;
        !            52: 
        !            53: /* set by sstatus commands */
        !            54: int uctolc = 0;                /* when set, uc chars in atoms go to lc */
        !            55: int dmpmode = 413;     /* default mode for dumplisp 
        !            56:                           (note this is decimal not octal) */
        !            57: 
        !            58: /* break and error declarations *****************************************/
        !            59: int    depth = 0;              /* depth of nested breaks               */
        !            60: lispval        contval;                /* the value being returned up          */
        !            61: struct argent *orgnp;          /* used by top level to reset to start  */
        !            62: int    retval;                 /* used by each error/prog call         */
        !            63: 
        !            64: 
        !            65: /* other stuff **********************************************************/
        !            66: lispval        ftemp,vtemp,argptr,ttemp;       /* temporaries: use briefly     */
        !            67: int itemp;
        !            68: lispval sigacts[16];                   /* for catching interrupts      */
        !            69: int sigstruck,sigdelay;                        /* for catching interrupts      */
        !            70: lispval stattab[16];                   /* miscelleneous options        */
        !            71: 
        !            72: /*  interpreter globals    */
        !            73: 
        !            74: int lctrace;
        !            75: int fvirgin;
        !            76: int GCtime;
        !            77: int errp;                      /* where are lying through our teeth. This
        !            78:                                   is a pointer to inside a function. */

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.