00001 /***************************************************************************** 00002 * Copyright (C) 2011 by Benjamin Hadorn (b_hadorn@bluewin.ch) 00003 ***************************************************************************** 00004 * Project : Zeus Base Library 00005 * Module : BorlandSynchronizeObject 00006 * Package : Zeus.ZeusBase.System.Platforms 00007 * Author : Benjamin Hadorn 00008 * Date : 27.12.2011 00009 * System : Zeus-Framework 00010 ***************************************************************************** 00011 * Licence: * 00012 * This library is free software; you can redistribute it and/or modify * 00013 * it under the terms of the GNU Lesser General Public License as * 00014 * published by the Free Software Foundation; either version * 00015 * 2.1 of the License, or (at your option) any later version. * 00016 * * 00017 * This library is distributed in the hope that it will be useful, * 00018 * but WITHOUT ANY WARRANTY; without even the implied warranty of * 00019 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * 00020 * GNU Lesser General Public License for more details. * 00021 * * 00022 * You should have received a copy of the GNU Lesser General Public * 00023 * License along with this library; if not, write to the Free Software * 00024 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110, USA * 00025 *****************************************************************************/ 00026 00027 /***************************************************************************** 00028 * Changes: 00029 * 27.12.2011 bha: created zeus 2.0 00030 *****************************************************************************/ 00031 00032 00033 #ifndef BorlandSynchronizeObjectH 00034 #define BorlandSynchronizeObjectH 00035 //--------------------------------------------------------------------------- 00036 00037 #if defined(__BCPLUSPLUS__) 00038 00039 #include <zeusbase/System/CriticalSection.h> 00040 00041 BEGIN_NAMESPACE_Zeus 00042 00043 /***************************************************************************/ 00047 /***************************************************************************/ 00048 class TBorlandSynchronizeObject : public TSynchronizeObject 00049 { 00050 public: 00052 typedef void __fastcall (__closure *TSynchEvent)(void); 00053 00054 /************************************************************************/ 00058 /************************************************************************/ 00059 inline TBorlandSynchronizeObject(TSynchEvent pEvent) 00060 { 00061 m_pEvent = pEvent; 00062 } 00063 00064 /************************************************************************/ 00068 /************************************************************************/ 00069 inline void checkForError() 00070 { 00072 m_rLock.enter(); 00073 if (this->hasError()) 00074 { 00075 m_pEvent = NULL; 00076 } 00077 m_rLock.leave(); 00079 } 00080 00081 /************************************************************************/ 00084 /************************************************************************/ 00085 inline virtual void MQUALIFIER process() 00086 { 00088 m_rLock.enter(); 00089 if (m_pEvent != NULL) 00090 { 00091 m_pEvent(); 00092 } 00093 m_rLock.leave(); 00095 } 00096 00097 protected: 00098 /************************************************************************/ 00101 /************************************************************************/ 00102 inline virtual ~TBorlandSynchronizeObject() 00103 {} 00104 00105 private: 00107 TSynchEvent m_pEvent; 00108 }; 00109 00110 END_NAMESPACE_Zeus 00111 00112 #endif //defined(__BCPLUSPLUS__) 00113 00114 #endif