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 "slocatn.hpp" 00017 #if INTELIB_TEXT_REPRESENTATIONS == 1 00018 #include "sstring.hpp" 00019 #endif 00020 00021 IntelibTypeId SExpressionLocation::TypeId(&SExpression::TypeId, false); 00022 00023 SExpressionLocation::SExpressionLocation(const SReference &ss, SReference *loc) 00024 : SExpression(TypeId), superstructure(ss), location_pointer(loc) 00025 {} 00026 00027 SExpressionLocation::~SExpressionLocation() 00028 {} 00029 00030 #if INTELIB_TEXT_REPRESENTATIONS == 1 00031 SString SExpressionLocation::TextRepresentation() const 00032 { 00033 return "#<MEMORY-LOCATION>"; 00034 } 00035 #endif 00036 00037 IntelibX_not_a_location:: 00038 IntelibX_not_a_location(SReference a_param) 00039 : IntelibX("not a location", a_param) {} 00040
1.4.1