Return to pa_valiased.C CVS log

Up to [parser3project] / parser3 / src / types

Annotation of parser3/src/types/pa_valiased.C, revision 1.3

1.2       paf         1: /** @file
                      2:        Parser: aliased class.
                      3: 
1.1       paf         4:        Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
1.2       paf         5: 
1.1       paf         6:        Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
                      7: 
1.3     ! paf         8:        $Id: pa_valiased.C,v 1.2 2001/03/19 22:44:23 paf Exp $
1.1       paf         9: */
                     10: 
                     11: #include "pa_valiased.h"
                     12: #include "pa_vstateless_class.h"
                     13: 
                     14: Value *VAliased::get_element(const String& aname) {
                     15:        // $CLASS=my class=myself
                     16:        if(aname==CLASS_NAME)
                     17:                return fclass_alias;
                     18:        // $BASE=my parent
1.3     ! paf        19:        if(aname==BASE_NAME) {
        !            20:                Value *result=fclass_alias->base();
        !            21:                if(result->get_class()->base()) // all classes have silent ROOT superclass.
        !            22:                        return result;
        !            23:                else
        !            24:                        THROW(0, 0,
        !            25:                                &aname,
        !            26:                                "undefined");
        !            27:        }
1.1       paf        28: 
                     29:        return 0;
                     30: }