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

*** empty log message ***

Browse Source
This commit is contained in:
Antonio Linares
1999-08-06 18:18:16 +00:00
parent 219a56b2b4
commit c7488d7867
2 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
19990806-19:55 GMT+1 Antonio Linares <alinares@fivetech.com>
* include/classes.ch
* Added support for SETGET methods
19990806-19:55 GMT+1 Antonio Linares <alinares@fivetech.com>
* makefile.b32
* hvm module added

9
harbour/include/classes.ch
View File

@@ -44,18 +44,19 @@
#xcommand CLASSDATA <DataName1> [,<DataNameN>] => ;
oClass:AddClassData( <(DataName1)> ) [; oClass:AddClassData( <(DataNameN)> ) ]
#xcommand METHOD <MethodName>( [<params,...>] ) => ;
#xcommand METHOD <MethodName>( [<params,...>] ) [ CONSTRUCTOR ] => ;
oClass:AddMethod( <(MethodName)>, CLSMETH _CLASS_NAME_ <MethodName>() )
#xcommand METHOD <MethodName>( [<params,...>] ) CONSTRUCTOR => ;
oClass:AddInline( <(MethodName)>, {|Self [,<params>] | <MethodName>(Self [,<params>] ), Self } )
#xcommand METHOD <MethodName>( [<params,...>] ) INLINE <Code,...> => ;
oClass:AddInline( <(MethodName)>, {|Self [,<params>] | <Code> } )
#xcommand METHOD <MethodName>( [<params,...>] ) VIRTUAL => ;
oClass:AddVirtual( <(MethodName)> )
#xcommand METHOD <MethodName>( [<params,...>] ) SETGET => ;
oClass:AddMethod( <(MethodName)>, CLSMETH _CLASS_NAME_ <MethodName>() ) ;;
oClass:AddMethod( "_" + <(MethodName)>, CLSMETH _CLASS_NAME_ <MethodName>() )
#xcommand MESSAGE <MessageName> METHOD <MethodName>( [<params,...>] ) => ;
oClass:AddMethod( <(MessageName)>, CLSMETH _CLASS_NAME_ <MethodName>() )