Return to structs.h CVS log

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

Annotation of 43BSD/ucb/lisp/franz/h/structs.h, revision 1.1.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.