Return to execute.C CVS log

Up to [parser3project] / parser3 / src / main

Annotation of parser3/src/main/execute.C, revision 1.18

1.1       paf         1: /*
1.18    ! paf         2:   $Id: execute.C,v 1.17 2001/02/22 13:33:28 paf Exp $
1.1       paf         3: */
                      4: 
1.8       paf         5: #include "pa_array.h" 
1.1       paf         6: #include "code.h"
1.11      paf         7: #include "pa_request.h"
1.15      paf         8: #include "pa_vstring.h"
1.1       paf         9: 
                     10: #include <stdio.h>
                     11: 
1.11      paf        12: 
1.1       paf        13: char *opcode_name[]={
1.18    ! paf        14:        "VALUE",  "CODE_ARRAY",
1.1       paf        15:        "WITH_ROOT",    "WITH_SELF",    "WITH_READ",    "WITH_WRITE",
                     16:        "CONSTRUCT",
                     17:        "EXPRESSION_EVAL",      "MODIFY_EVAL",
1.18    ! paf        18:        "WRITE",
        !            19:        "GET_ELEMENT",  "GET_ELEMENT__WRITE",
1.1       paf        20:        "CREATE_EWPOOL",        "REDUCE_EWPOOL",
                     21:        "CREATE_RWPOOL",        "REDUCE_RWPOOL",
                     22:        "GET_METHOD_FRAME",
                     23:        "CREATE_JUNCTION",
                     24:        "STORE_PARAM",
                     25:        "CALL"
                     26: };
                     27: 
1.9       paf        28: void dump(int level, const Array& ops) {
                     29:        int size=ops.size();
1.1       paf        30:        for(int i=0; i<size; i++) {
1.10      paf        31:                int code=reinterpret_cast<int>(ops.quick_get(i));
1.1       paf        32:                printf("%*s%s", level*4, "", opcode_name[code]);
                     33: 
1.18    ! paf        34:                if(code==OP_VALUE) {
1.15      paf        35:                        Value *value=static_cast<Value *>(ops.quick_get(++i));
                     36:                        printf(" \"%s\"", value->get_string()->cstr());
                     37:                }
1.1       paf        38:                printf("\n");
                     39: 
                     40:                if(code==OP_CODE_ARRAY) {
1.10      paf        41:                        const Array *local_ops=reinterpret_cast<const Array *>(ops.quick_get(++i));
1.9       paf        42:                        dump(level+1, *local_ops);
1.1       paf        43:                }
                     44:        }
                     45: }
                     46: 
1.11      paf        47: void Request::execute(Array& ops) {
1.16      paf        48:        if(0) {
1.12      paf        49:                puts("---------------------------");
                     50:                dump(0, ops);
                     51:                puts("---------------------------");
                     52:        }
                     53: 
1.11      paf        54:        int size=ops.size();
                     55:        for(int i=0; i<size; i++) {
                     56:                int code=reinterpret_cast<int>(ops.quick_get(i));
1.17      paf        57:                printf("%d:%s", stack.top(), opcode_name[code]);
1.11      paf        58: 
                     59:                if(code==OP_CODE_ARRAY) {
                     60:                        const Array *local_ops=reinterpret_cast<const Array *>(ops.quick_get(++i));
                     61:                        //dump(level+1, *local_ops);
                     62:                }
1.13      paf        63:                
1.11      paf        64:                switch(code) {
                     65:                case OP_WITH_WRITE: 
                     66:                        {
1.13      paf        67:                                stack.push(wcontext);
                     68:                                break;
1.11      paf        69:                        }
1.15      paf        70:                case OP_WITH_READ: 
                     71:                        {
                     72:                                stack.push(rcontext);
                     73:                                break;
                     74:                        }
1.13      paf        75:                        
1.18    ! paf        76:                case OP_VALUE:
1.15      paf        77:                        {
                     78:                                Value *value=static_cast<Value *>(ops.quick_get(++i));
1.16      paf        79:                                printf(" \"%s\"", value->get_string()->cstr());
1.15      paf        80:                                stack.push(value);
                     81:                                break;
                     82:                        }
                     83:                        
1.11      paf        84:                case OP_CONSTRUCT:
                     85:                        {
1.13      paf        86:                                Value *value=static_cast<Value *>(stack.pop());
1.18    ! paf        87:                                VString *name=static_cast<VString *>(stack.pop());
1.13      paf        88:                                Value *ncontext=static_cast<Value *>(stack.pop());
                     89:                                ncontext->put_element(*name, value);
                     90:                                break;
1.11      paf        91:                        }
1.13      paf        92:                        
1.18    ! paf        93:                case OP_WRITE:
1.13      paf        94:                        {
                     95:                                Value *value=static_cast<Value *>(stack.pop());
1.14      paf        96:                                wcontext->write(value);
1.13      paf        97:                                break;
1.14      paf        98:                        }
1.13      paf        99:                        
1.15      paf       100:                case OP_GET_ELEMENT:
1.11      paf       101:                        {
1.17      paf       102:                                Value *value=get_element();
                    103:                                stack.push(value);
                    104:                                break;
                    105:                        }
                    106: 
1.18    ! paf       107:                case OP_GET_ELEMENT__WRITE:
1.17      paf       108:                        {
                    109:                                Value *value=get_element();
                    110:                                wcontext->write(value);
                    111:                                break;
                    112:                        }
                    113: 
                    114:                case OP_CREATE_EWPOOL:
                    115:                        {
                    116:                                stack.push(wcontext);
                    117:                                wcontext=NEW WContext(pool(), 0 /* empty */);
                    118:                                break;
                    119:                        }
                    120:                case OP_REDUCE_EWPOOL:
                    121:                        {
                    122:                                Value *value=wcontext->value();
                    123:                                wcontext=static_cast<WContext *>(stack.pop());
1.13      paf       124:                                stack.push(value);
                    125:                                break;
1.15      paf       126:                        }
1.13      paf       127:                        
1.11      paf       128:                default:
1.16      paf       129:                        printf("\tTODO");
1.11      paf       130:                        break;
                    131:                }
1.16      paf       132:                printf("\n");
1.11      paf       133:        }
1.1       paf       134: }
1.17      paf       135: 
                    136: Value *Request::get_element() {
1.18    ! paf       137:        VString *name=static_cast<VString *>(stack.pop());
1.17      paf       138:        Value *ncontext=static_cast<Value *>(stack.pop());
                    139:        Value *value=ncontext->get_element(*name); // name áûâàåò method, òîãäà âûäà¸ò new junction(ÀÂÒÎÂÛ×ÈÑËßÒÜ=false, root,self,rcontext,wcontext,code)
                    140:        // name áûâàåò èìÿ junction, òîãäà èëè îñòàâëÿåò â ïîêîå, èëè âû÷èñëÿåò â çàâèñèìîñòè îò ôëàãà ÀÂÒÎÂÛ×ÈÑËßÒÜ
                    141:        return value;
                    142: }