fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2012-06-20 15:17 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

Browse Source 
* harbour/include/hbclass.ch
    + added support for
         DESTRUCTOR FUNCTION <FuncName>[()]
      in class declaration. It allows to define as object
      destructors external functions, i.e. defined in C
This commit is contained in:
Przemyslaw Czerpak
2012-06-20 13:17:57 +00:00
parent 340fc44e05
commit e97461df65
2 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -16,6 +16,13 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-06-20 15:17 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* harbour/include/hbclass.ch
+ added support for
DESTRUCTOR FUNCTION <FuncName>[()]
in class declaration. It allows to define as object
destructors external functions, i.e. defined in C
2012-06-20 13:02 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* harbour/src/rtl/valtype.c
* harbour/include/harbour.hbx

2
harbour/include/hbclass.ch
View File

@@ -331,6 +331,8 @@ DECLARE HBClass ;
_HB_MEMBER __HB_CLS_ASFUNC(<MethodName>);;
__HB_CLS_DECLARE_METHOD __HB_CLS_PARAMS(<MethodName>) _CLASS_NAME_ ;;
oClass:SetDestructor( @__HB_CLS_ASID( __HB_CLS_MTHNAME _CLASS_NAME_ <MethodName> )() )
#xcommand DESTRUCTOR FUNCTION <FuncName> => ;
oClass:SetDestructor( @__HB_CLS_ASID( <FuncName> )() )
#xcommand ON ERROR <MethodName> => ERROR HANDLER <MethodName>
#xcommand ERROR HANDLER <MethodName> => ;