Return to structs.h CVS log

Up to [CSRG BSD Unix] / 42BSD / ucb / lisp / franz / h

Annotation of 42BSD/ucb/lisp/franz/h/structs.h, revision 1.1

1.1     ! root        1: /*                                     -[Sat Jan 29 14:00:31 1983 by jkf]-
        !             2:  *     structs.h                       $Locker:  $
        !             3:  * random structure definitions 
        !             4:  *
        !             5:  * $Header: /na/franz/franz/h/structs.h,v 1.1 83/01/29 14:07:48 jkf Exp $
        !             6:  *
        !             7:  * (c) copyright 1982, Regents of the University of California
        !             8:  */
        !             9: 
        !            10: /* 
        !            11:  * this file contains auxiliary structure definitions which are used by
        !            12:  * just a few files.
        !            13:  */
        !            14: 
        !            15: /* transfer table structures. */
        !            16: 
        !            17: #define TRENTS 510
        !            18: 
        !            19: struct trent
        !            20: {
        !            21:     lispval (*fcn)();          /* function to call                     */
        !            22:     lispval name;      /* symbol which is the function to call */
        !            23: };
        !            24: 
        !            25: struct trtab
        !            26: {
        !            27:     struct trtab *nxtt;                        /* pointer to next transfer table */
        !            28:     struct trent trentrs[TRENTS];      /* entries                        */
        !            29:     int        sentinal;                       /* must be zero                   */
        !            30: };
        !            31: 
        !            32: 
        !            33: 
        !            34: struct heads {
        !            35:        struct heads *link;
        !            36:        char *pntr;
        !            37: };
        !            38: 
        !            39: 
        !            40: struct types
        !            41: {
        !            42:        char    *next_free;
        !            43:        int     space_left,
        !            44:                space,
        !            45:                type,
        !            46:                type_len;               /*  note type_len is in units of int */
        !            47:        lispval *items,
        !            48:                *pages,
        !            49:                *type_name;
        !            50:        struct heads
        !            51:                *first;
        !            52:        char    *next_pure_free;
        !            53: 
        !            54: };
        !            55: 
        !            56: struct str_x
        !            57: {
        !            58:        char    *next_free;
        !            59:        int     space_left;
        !            60: };

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