Return to structs.h CVS log

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

Annotation of 40BSD/cmd/lisp/h/structs.h, revision 1.1.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.