Return to pa_request.C CVS log

Up to [parser3project] / parser3 / src / main

Annotation of parser3/src/main/pa_request.C, revision 1.6

1.1       paf         1: /*
1.6     ! paf         2: $Id: pa_request.C,v 1.5 2001/03/10 15:44:32 paf Exp $
1.1       paf         3: */
                      4: 
                      5: #include "pa_request.h"
1.3       paf         6: #include "pa_wwrapper.h"
                      7: #include "pa_common.h"
                      8: #include "pa_vclass.h"
                      9: #include "classes/_root.h"
                     10: #include "classes/_env.h"
1.6     ! paf        11: #include "core.h"
1.3       paf        12: 
                     13: #include <stdio.h>
                     14: 
                     15: Request::Request(Pool& apool) : Pooled(apool),
                     16:        stack(apool),
                     17:        root_class(apool),
                     18:        env_class(apool),
                     19:        fclasses(apool),
                     20:        fclasses_array(apool),
                     21:        lang(String::Untaint_lang::HTML_TYPO)
                     22: {
                     23:        // root class
                     24:        initialize_root_class(pool(), root_class);
                     25:        // adding root superclass, 
                     26:        //   parent of all classes, 
                     27:        //   operators holder
1.6     ! paf        28:        classes().put(*root_class_name, &root_class);
1.3       paf        29: 
                     30:        // env class
                     31:        initialize_env_class(pool(), env_class);
1.6     ! paf        32:        classes().put(*env_class_name, &env_class);
1.3       paf        33: }
1.1       paf        34: 
                     35: void Request::core() {
1.3       paf        36:        TRY {
1.5       paf        37:                char *auto_file="Y:\\parser3\\src\\auto.p";
1.6     ! paf        38:                use(auto_file, auto_class_name, false/*ignore possible error*/);
1.5       paf        39: 
                     40:                char *test_file="Y:\\parser3\\src\\test.p";
1.6     ! paf        41:                use(test_file, run_class_name);
1.3       paf        42: 
                     43:                char *result=execute_MAIN();
                     44:                printf("result-----------------\n%sEOF----------------\n", result);
                     45:        } 
                     46:        CATCH(e) {
                     47:                printf("\nERROR: ");
                     48:                const String *problem_source=e.problem_source();
                     49:                if(problem_source) {
                     50:                        const Origin& origin=problem_source->origin();
                     51:                        if(origin.file)
                     52:                                printf("%s(%d): ",
                     53:                                origin.file, 1+origin.line);
                     54:                        printf("'%s' ", 
                     55:                                problem_source->cstr());
                     56:                }
                     57:                printf("%s", e.comment());
1.1       paf        58:                const String *type=e.type();
                     59:                if(type) {
                     60:                        printf("  type: %s", type->cstr());
                     61:                        const String *code=e.code();
                     62:                        if(code)
                     63:                                printf(", code: %s", code->cstr());
                     64:                }
1.3       paf        65:                printf("\n");
1.1       paf        66:        }
1.3       paf        67:        END_CATCH
1.1       paf        68: }
                     69: 
1.5       paf        70: VClass *Request::use(char *file, String *name, bool fail_on_read_problem) {
1.3       paf        71:        // TODO: обнаружить|решить cyclic dependences
1.5       paf        72:        char *source=file_read(pool(), file, fail_on_read_problem);
1.3       paf        73:        if(!source)
1.5       paf        74:                return 0;
1.3       paf        75: 
1.5       paf        76:        // compile loaded class
1.4       paf        77:        VClass& vclass=COMPILE(source, name, file);
1.1       paf        78: 
1.4       paf        79:        // locate and execute possible @auto[] static method
1.5       paf        80:        execute_static_method(vclass, *auto_method_name, false /*no result needed*/);
                     81:        return &vclass;
1.1       paf        82: }
                     83: 
1.3       paf        84: char *Request::execute_MAIN() {
1.5       paf        85:        // locate class with @main[] & execute it
1.3       paf        86:        for(int i=classes_array().size(); --i>=0;) {
                     87:                VClass *vclass=static_cast<VClass *>(classes_array().get(i));
1.5       paf        88:                char *result=execute_static_method(*vclass, *main_method_name, true /*result needed*/);
1.4       paf        89:                if(result)
                     90:                        return result;
1.3       paf        91:        }
                     92:        
                     93:        THROW(0,0,
                     94:                0, 
                     95:                "'"MAIN_METHOD_NAME"' method not found");
                     96:        return 0;
1.1       paf        97: }