Return to structs.h CVS log

Up to [CSRG BSD Unix] / 41BSD / cmd / lisp / h

Annotation of 41BSD/cmd/lisp/h/structs.h, revision 1.1

1.1     ! root        1: /* sccs id %W% %G% */
        !             2: 
        !             3: /* 
        !             4:  * this file contains auxiliary structure definitions which are used by
        !             5:  * just a few files.
        !             6:  */
        !             7: 
        !             8: /* transfer table structures. */
        !             9: 
        !            10: #define TRENTS 510
        !            11: 
        !            12: struct trent
        !            13: {
        !            14:     lispval (*fcn)();          /* function to call                     */
        !            15:     lispval name;      /* symbol which is the function to call */
        !            16: };
        !            17: 
        !            18: struct trtab
        !            19: {
        !            20:     struct trtab *nxtt;                        /* pointer to next transfer table */
        !            21:     struct trent trentrs[TRENTS];      /* entries                        */
        !            22:     int        sentinal;                       /* must be zero                   */
        !            23: };
        !            24: 
        !            25: 
        !            26: 
        !            27: struct heads {
        !            28:        struct heads *link;
        !            29:        char *pntr;
        !            30: };
        !            31: 
        !            32: 
        !            33: struct types
        !            34: {
        !            35:        char    *next_free;
        !            36:        int     space_left,
        !            37:                space,
        !            38:                type,
        !            39:                type_len;               /*  note type_len is in units of int */
        !            40:        lispval *items,
        !            41:                *pages,
        !            42:                *type_name;
        !            43:        struct heads
        !            44:                *first;
        !            45: 
        !            46: };

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