00001 // +-------------------------------------------------------------------------+ 00002 // | I__n__t__e__L__i__b 0.6.10 development | 00003 // | Copyright (c) Andrey Vikt. Stolyarov <crocodil_AT_croco.net> 2000-2007. | 00004 // | | 00005 // | This is free software. The library part is available under | 00006 // | GNU LESSER GENERAL PUBLIC LICENSE v.2.1. | 00007 // | GNU LGPL v2.1 is found in docs/gnu_gpl2.txt, or at http://www.gnu.org | 00008 // | Please see also docs/readme.txt and visit http://www.intelib.org | 00009 // | | 00010 // | !!! THERE IS NO WARRANTY OF ANY KIND, NEITHER EXPRESSED NOR IMPLIED !!! | 00011 // +-------------------------------------------------------------------------+ 00012 00013 00014 00015 00016 #include "extvar.hpp" 00017 00018 #if INTELIB_TEXT_REPRESENTATIONS == 1 00019 #include <stdio.h> // for snprintf 00020 00021 SString SExpressionIndirect::TextRepresentation() const 00022 { 00023 char buf[32]; 00024 snprintf(buf, sizeof(buf), "#<EXTVAR @%x>", (int)Addr()); 00025 return SString(buf); 00026 } 00027 #endif 00028 00029 void SExpressionIndirectAccessor:: 00030 Call(const SReference& param, IntelibContinuation &lf) const 00031 { 00032 SExpressionIndirect *p = 00033 static_cast<SExpressionIndirect*>(param.GetPtr()); 00034 lf.AgentReturn(p->Value(), p); 00035 }
1.4.1