Return to pa_vclass.C CVS log

Up to [parser3project] / parser3 / src / main

Annotation of parser3/src/main/pa_vclass.C, revision 1.3

1.1       paf         1: /*
1.3     ! paf         2: $Id: pa_vclass.C,v 1.1 2001/03/08 17:16:36 paf Exp $
1.1       paf         3: */
                      4: 
                      5: #include "pa_vclass.h"
1.3     ! paf         6: #include "pa_vstring.h"
1.1       paf         7: 
1.3     ! paf         8: Value *VClass::get_element(const String& aname) {
        !             9:        // $NAME=my name
        !            10:        if(aname==NAME_NAME)
        !            11:                return NEW VString(fclass_alias->name());
        !            12:        // $CLASS=my class=myself
        !            13:        if(aname==CLASS_NAME)
        !            14:                return fclass_alias;
        !            15:        // $BASE=my parent
        !            16:        if(aname==BASE_NAME)
        !            17:                return fclass_alias->base();
        !            18:        // $method=junction(self+class+method)
        !            19:        if(Junction *junction=get_junction(*this, aname))
        !            20:                return NEW VJunction(*junction);
        !            21:        // $field=static field
        !            22:        return get_field(aname);
        !            23: }
        !            24: 
        !            25: // object_class, operator_class: (field)=value - static values only
        !            26: void VClass::put_element(const String& name, Value *value) {
        !            27:        set_field(name, value);
        !            28: }