Return to pa_wcontext.C CVS log

Up to [parser3project] / parser3 / src / types

Annotation of parser3/src/types/pa_wcontext.C, revision 1.24.2.5

1.6       paf         1: /**    @file
                      2:        Parser: write context class.
                      3: 
1.24.2.3  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.20      paf         6: */
1.6       paf         7: 
1.24.2.5! paf         8: static const char* IDENT_WCONTEXT_C="$Date: 2003/01/31 14:03:55 $";
1.1       paf         9: 
                     10: #include "pa_wcontext.h"
                     11: 
                     12: // appends a fstring to result
1.24.2.4  paf        13: void WContext::write(Pool& /*apool*/, ValuePtr avalue, StringPtr asource) {
1.18      paf        14:        if(fvalue) { // already have value?
                     15:                // must not construct twice
1.24.2.1  paf        16:                if(asource)
1.17      paf        17:                        throw Exception("parser.runtime",
1.24.2.1  paf        18:                                asource,
1.19      paf        19:                                "contains illegal assignment attempt of %s to %s %s, use constructor",
1.24.2.1  paf        20:                                avalue->type(), 
1.18      paf        21:                                        fvalue->get_class()->name_cstr(), fvalue->type());
                     22:                else            
1.17      paf        23:                        throw Exception("parser.runtime",
1.24.2.1  paf        24:                                fvalue->get_class()?fvalue->get_class()->name():Exception::undefined_source,
1.19      paf        25:                                "%s may not be overwritten with %s %s, use constructor",
1.18      paf        26:                                fvalue->type(), 
1.24.2.1  paf        27:                                        avalue->get_class()->name_cstr(), avalue->type());
1.5       paf        28:        } else 
1.24.2.1  paf        29:                fvalue=avalue;
1.23      paf        30: }
                     31: 
                     32: 
                     33: void WContext::detach_junctions() {
1.24.2.1  paf        34:        Array_iterator<JunctionPtr> i(junctions);
1.23      paf        35:        while(i.has_next())
1.24.2.1  paf        36:                i.next()->reattach(fparent);
1.23      paf        37:        // someday free junctions
1.24.2.1  paf        38:        // the day has come?
1.23      paf        39: }