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

Added support for CLASSDATA, MESSAGE ... METHOD and VIRTUAL methods

Browse Source
This commit is contained in:
Antonio Linares
1999-07-15 12:47:27 +00:00
parent 59fd6c440a
commit 3494c884c6
1 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
harbour/include/classes.ch
View File

@@ -32,11 +32,15 @@
function <ClassName>() ;;
static oClass ;;
if oClass == nil ;;
oClass = TClass():New( <(ClassName)> [,<(SuperClass)>] )
oClass = TClass():New( <(ClassName)> [,<(SuperClass)>] ) ;
[ ; #define _Super_ <(SuperClass)> ]
#xcommand DATA <DataName1> [,<DataNameN>] => ;
oClass:AddData( <(DataName1)> ) [; oClass:AddData( <(DataNameN)> ) ]
#xcommand CLASSDATA <DataName1> [,<DataNameN>] => ;
oClass:AddClassData( <(DataName1)> ) [; oClass:AddClassData( <(DataNameN)> ) ]
#xcommand METHOD <MethodName>( [<params,...>] ) => ;
oClass:AddMethod( <(MethodName)>, @<MethodName>() )
@@ -46,6 +50,12 @@
#xcommand METHOD <MethodName>( [<params,...>] ) INLINE <Code,...> => ;
oClass:AddInline( <(MethodName)>, {|Self [,<params>] | <Code> } )
#xcommand METHOD <MethodName>( [<params,...>] ) VIRTUAL => ;
oClass:AddVirtual( <(MethodName)> )
#xcommand MESSAGE <MessageName> METHOD <MethodName>( [<params,...>] ) => ;
oClass:AddMethod( <(MessageName)>, @<MethodName>() )
#xcommand ENDCLASS => oClass:Create() ;;
endif ;;
return oClass:Instance()