Return to expr.h CVS log

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

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

1.1       root        1: #ifndef EXPR_H
                      2: #define EXPR_H
                      3: #ifndef UNIV_H
                      4: #include "univ.h"
                      5: #endif
                      6: #include "dtype.pub"
                      7: #include "op.h"
                      8: #include "format.pub"
                      9: >pri
                     10: 
                     11: enum EDisc{
                     12:        E_UNARY         = 1,
                     13:        E_BINARY        = 2,
                     14:        E_LCONST        = 3,
                     15:        E_DCONST        = 4,
                     16:        E_ID            = 5,
                     17:        E_SYMNODE       = 6,
                     18: };
                     19: 
                     20: char *OpName(Op);
                     21: >
                     22: 
                     23: class Spy{
                     24:        friend  Expr;
                     25:        friend  Phrase;
                     26:        Bls     b;
                     27:                Spy()   {}
                     28: };
                     29: 
                     30: class Expr : private PadRcv {
                     31: >pub
                     32:        char    pub_filler[4];
                     33: >pri
                     34:        friend  Phrase;
                     35:        EDisc   edisc;
                     36:        char    *under(Expr*);
                     37:        char    *left(Expr*);
                     38:        char    *evalunary(Frame*);
                     39:        char    *evalbinary(Frame*);
                     40:        char    *evalindex(Frame*,Expr*,long);
                     41:        char    *evalcast();
                     42:        char    *ascii(Frame*,int limit);
                     43:        char    *enumformat();
                     44:        char    *utypeformat(Frame*, Bls&);
                     45:        char    *getval(Frame*);
                     46:        char    *evaldotarrow(Frame*);
                     47:        char    *evalcall(Frame*);
                     48:        char    *evalassign(Frame*);
                     49:        char    *invalidoperands(char* =0);
                     50:        char    *evaltextcomma(Frame*, Bls&);
                     51:        char    *doevaltext(Frame*, Bls&);
                     52:        Expr    *actual(int i);
                     53:        char    *eval(Frame*);
                     54:        char    *evalenv(Frame*);
                     55:        Index   castcarte();
                     56:        char    *textunary();
                     57:        char    *textbinary();
                     58:        char    *evalrange();
                     59:        char    *floaterror();
                     60:        char    *evalflop();
                     61:        void    catchfpe();
                     62:        char    *enumid(Frame*);
                     63: static double  *fp1;
                     64: static double  *fp2;
                     65: static char    *fpe;
                     66: >
                     67: PUBLIC(Expr,U_EXPR)
                     68:                Expr(); 
                     69:                Expr(EDisc, Op, Expr*, Expr*, Cslfd, char*, int, Symbol*);
                     70:        char    *id;
                     71:        Symbol  *sym;
                     72:        Expr    *sub1;
                     73:        Expr    *sub2;
                     74:        DType   type;
                     75:        Cslfd   val;
                     76:        long    addr;
                     77:        Spy     *spy;
                     78:        short   bitaddr;
                     79:        char    op;
                     80:        char    evalerr;
                     81:        char    *evaltext(Frame*, Bls&);
                     82:        char    *text();
                     83:        Index   carte(Frame*);
                     84:        int     format();
                     85:        void    setspy(long);
                     86:        void    reformat(int,int=0);
                     87: };
                     88: 
                     89: Expr   *E_Id(char*),
                     90:        *E_Sym(Symbol*),
                     91:        *E_Unary(Op,Expr*),
                     92:        *E_Binary(Expr*,Op,Expr*),
                     93:        *E_IConst(long);
                     94: #endif

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