Return to frame.h CVS log

Up to [Research Unix] / researchv9 / jtools / src / pi

Annotation of researchv9/jtools/src/pi/frame.h, revision 1.1.1.1

1.1       root        1: #ifndef FRAME_H
                      2: #define FRAME_H
                      3: #ifndef UNIV_H
                      4: #include "univ.h"
                      5: #endif
                      6: 
                      7: struct FpFrame {
                      8:        long    fp;
                      9:        Func    *func;
                     10:        Frame   *frame;
                     11: };
                     12: 
                     13: class CallStk {
                     14: public:
                     15:        Core    *core;
                     16:        long    size;
                     17:        FpFrame *fpf;
                     18:                CallStk(long, Core*);
                     19:                ~CallStk();
                     20:        Frame   frame(long);
                     21: };
                     22: 
                     23: class Frame : public PadRcv { friend Globals; friend SrcText; friend Process;
                     24:        long    saved(int,int);
                     25:        void    pickvar(Var*);
                     26:        Index   varcarte();
                     27:        Index   regcarte();
                     28:        long    regloc(int,int);
                     29:        void    ambiguous(char*, class BlkVars&);
                     30:        void    pop();
                     31: PUBLIC(Frame,U_FRAME)
                     32:        long    level;          /* deepest() = 1; main() = core->stacksize() */
                     33:        Core    *core;
                     34:        long    fp;
                     35:        long    ap;
                     36:        long    pc;
                     37:        long    nargs;
                     38:        long    regbase;
                     39:        long    regsave;        /* VAX: mask; mac32: no of regs */
                     40:        Func    *func;
                     41:                Frame(Core*);   /* cfront bug */
                     42:                Frame();
                     43:        Cslfd   *peek(long, Cslfd* = 0);
                     44:        Index   carte();
                     45:        Pad     *pad;
                     46:        Phrase  *phraset;
                     47:        SymTab  *symtab();
                     48:        Var     *idtosym(char*);
                     49:        char    *blockmove(long, long, long);
                     50:        char    *special(char*, long);
                     51:        char    *help();
                     52:        char    *makephrase(Expr*,long=0);
                     53:        char    *peekstring(long, char* = 0 );
                     54:        char    *poke(long,long,int);
                     55:        char    *pokedbl(long,double,int);
                     56:        char    *text(Bls&);
                     57:        int     addsymbols();
                     58:        int     changes(long verbose = 0);
                     59:        long    locate(Var*);
                     60:        void    opencallersframe();
                     61:        Frame   *caller();
                     62:        void    freekey(long);
                     63:        void    hostclose();
                     64:        char    *kbd(char*);
                     65:        void    select(long=0);
                     66: virtual        void    banner();
                     67: virtual        void    open(long=0);
                     68: };
                     69: 
                     70: class Globals : public Frame {
                     71:        Index   ix;
                     72: PUBLIC(Frame,U_FRAME)
                     73:                Globals(Core *);
                     74:        void    open(long=0);
                     75:        void    addvars(Menu*);
                     76:        void    banner();
                     77: };
                     78: 
                     79: #endif

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