mem.h

浏览该文件的文档.

#ifndef INC_MEM_H
 
#define INC_MEM_H
#include "global.h"
#include "tex_constant.h" // [const] MEM_MAX, MEM_MIN, MEM_BOT, MEM_TOP, HYPH_SIZE, MAX_QUARTER_WORD, MAX_HALF_WORD
 
 
#define null 0
 
#define link(x) (mem[(x)].hh.rh)
#define info(x) (mem[(x)].hh.UU.lh)
 
#define empty_flag      MAX_HALF_WORD
#define is_empty(x)    (link(x) == empty_flag)
#define node_size       info
#define llink(x)        info(x+1)
#define rlink(x)        link(x+1)
 
#ifdef tt_STAT
#define FREE_AVAIL(x)   (link(x) = avail, avail = (x), dyn_used -= CHAR_NODE_SIZE)
 
#define FAST_GET_AVAIL(x)               \
    do {                                \
        if (((x) = avail) != null) {    \
            type(x) = charnodetype;     \
            avail = link(x);            \
            link(x) = null;             \
            dyn_used += CHAR_NODE_SIZE; \
        } else {                        \
            (x) = get_avail();          \
        }                               \
    } while (0)
// end #define FAST_GET_AVAIL(x)
#else
// not defined(tt_STAT)
 
#define FREE_AVAIL(x) (link(x) = avail, avail = (x))
 
#define FAST_GET_AVAIL(x)           \
    do {                            \
        if (((x) = avail)) {        \
            type(x) = charnodetype; \
            avail = link(x);        \
            link(x) = 0;            \
        } else {                    \
            (x) = get_avail();      \
        }                           \
    } while (0)
// end #define FAST_GET_AVAIL(x)
#endif // #121,122: tt_STAT // end group S115x132_P44x49
 
/* P2C compatibility */
#define P_clrbits_B(trie, idx, z, w) trie[(idx) >> 3] &= ~(1 << ((idx)&7))
#define P_getbits_UB(trie, h, z, w) (trie[(h) >> 3] & (1 << ((h)&7)))
#define P_putbits_UB(trie, h, y, z, w) trie[(h) >> 3] |= 1 << ((h)&7)
 
#define zeroglue        MEM_BOT
#define filglue         (zeroglue + gluespecsize)
#define fillglue        (filglue + gluespecsize)
#define ssglue          (fillglue + gluespecsize)
#define filnegglue      (ssglue + gluespecsize)
#define lomemstatmax    (filnegglue + gluespecsize - 1)
 
#define pageinshead     (MEM_TOP-CHAR_NODE_SIZE+1)
#define contribhead     (pageinshead-CHAR_NODE_SIZE)
#define pagehead        (contribhead-CHAR_NODE_SIZE)
#define temphead        (pagehead-CHAR_NODE_SIZE)
#define holdhead        (temphead-CHAR_NODE_SIZE)
#define adjusthead      (holdhead-CHAR_NODE_SIZE)
#define active          (adjusthead-CHAR_NODE_SIZE-CHAR_NODE_SIZE)
#define alignhead       (active-CHAR_NODE_SIZE)
#define endspan         (alignhead-CHAR_NODE_SIZE)
#define omittemplate    (endspan-CHAR_NODE_SIZE)
#define nulllist        (omittemplate-CHAR_NODE_SIZE)
#define ligtrick        (nulllist-CHAR_NODE_SIZE)
#define garbage         (ligtrick)
#define backuphead      (ligtrick-CHAR_NODE_SIZE)
#define himemstatmin    (backuphead)
#define himemstatusage  14 // end group S162x172_P58x61
 
 
// tex only
extern Pointer temp_ptr;
extern Integer var_used;
extern Integer dyn_used;
extern Pointer avail; // tex/expand
extern Pointer rover;
 
// tex, lexer
extern Pointer lo_mem_max;
extern Pointer hi_mem_min;
extern Pointer mem_end;
 
// tex|texmac|tex_inc, scan, 
extern MemoryWord mem[MEM_MAX - MEM_MIN + 1];
 
// [ #162~172: MEMORY LAYOUT ]
#ifdef tt_DEBUG
extern UChar free_cells[(MEM_MAX - MEM_MIN + 8) / 8];
extern UChar was_free[(MEM_MAX - MEM_MIN + 8) / 8];
extern Pointer was_mem_end, was_lo_max, was_hi_min;
extern Boolean panicking;
#endif // #165: tt_DEBUG
 
 
extern Pointer get_lo_mem_max(void);
extern Pointer get_avail(void);
extern void flush_list(HalfWord p);
extern HalfWord get_node(Integer s);
extern void free_node(Pointer p, HalfWord s);
extern void sort_avail(void);
 
// tex only
extern void check_mem(Boolean printlocs);
extern void search_mem(Pointer p);
extern void mem_init_once();
extern void mem_var_init();
 
#endif /* INC_MEM_H */