Return to classes.C CVS log

Up to [parser3project] / parser3 / src / classes

Annotation of parser3/src/classes/classes.C, revision 1.19

1.2       paf         1: /** @file
                      2:        Parser: @b Methoded and Methoded_array classes.
                      3: 
1.19    ! paf         4:        Copyright (c) 2001-2003 ArtLebedev Group (http://www.artlebedev.com)
1.15      paf         5:        Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
1.16      paf         6: */
1.2       paf         7: 
1.19    ! paf         8: static const char* IDENT_CLASSES_C="$Date: 2003/03/24 09:39:52 $";
1.2       paf         9: 
                     10: #include "classes.h"
                     11: #include "pa_request.h"
                     12: 
                     13: // Methoded
                     14: 
                     15: void Methoded::register_directly_used(Request& r) {
1.19    ! paf        16:        if(used_directly()) {
1.2       paf        17:                r.classes().put(name(), this);
1.19    ! paf        18:        }
        !            19: 
        !            20:        // prevent system classes from modification [calling add_method]
        !            21:        // ^process[$string:CLASS]{@method} prohibited from now on...
        !            22:        this->lock();
1.2       paf        23: }
                     24: 
                     25: // Methoded_array
                     26: 
                     27: // global variable
                     28: 
1.19    ! paf        29: Methoded_array& methoded_array() {
        !            30:        static Methoded_array* result=0;
        !            31:        if(!result)
        !            32:                result=new Methoded_array;
        !            33: 
        !            34:        return *result;
        !            35: }
1.2       paf        36: 
                     37: // methods
                     38: 
1.19    ! paf        39: Methoded_array::Methoded_array() {
1.2       paf        40: #      include "classes.inc"
                     41: }
                     42: 
1.19    ! paf        43: static void configure_admin_one(Methoded_array::element_type methoded, Request *r) {
        !            44:        if(methoded)
        !            45:                methoded->configure_admin(*r);
1.2       paf        46: }
1.3       paf        47: void Methoded_array::configure_admin(Request& r) {
                     48:        for_each(configure_admin_one, &r);
                     49: }
                     50: 
1.19    ! paf        51: static void configure_user_one(Methoded_array::element_type methoded, Request *r) {
        !            52:        if(methoded)
        !            53:                methoded->configure_user(*r);
1.3       paf        54: }
                     55: void Methoded_array::configure_user(Request& r) {
                     56:        for_each(configure_user_one, &r);
1.2       paf        57: }
                     58: 
1.19    ! paf        59: static void register_one(Methoded_array::element_type methoded, Request *r) {
        !            60:        if(methoded)
        !            61:                methoded->register_directly_used(*r);
1.2       paf        62: }
                     63: void Methoded_array::register_directly_used(Request& r) {
                     64:        for_each(register_one, &r);
                     65: }