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

Added support for multiple classes definition on the same PRG

Browse Source
This commit is contained in:
Antonio Linares
1999-07-27 11:53:28 +00:00
parent 106d27c51b
commit df334ed6b5
1 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
harbour/include/classes.ch
View File

@@ -32,7 +32,9 @@
function <ClassName>() ;;
static oClass ;;
if oClass == nil ;;
oClass = TClass():New( <(ClassName)> [,<(SuperClass)>] ) ;
oClass = TClass():New( <(ClassName)> [,<(SuperClass)>] ) ;;
#define _CLASS_NAME_ <ClassName> ;;
#translate CLSMETH <ClassName> <MethodName>() => @<ClassName>_<MethodName>() ;
[ ; #define _Super_ <(SuperClass)> ]
#xcommand DATA <DataName1> [,<DataNameN>] => ;
@@ -42,7 +44,7 @@
oClass:AddClassData( <(DataName1)> ) [; oClass:AddClassData( <(DataNameN)> ) ]
#xcommand METHOD <MethodName>( [<params,...>] ) => ;
oClass:AddMethod( <(MethodName)>, @<MethodName>() )
oClass:AddMethod( <(MethodName)>, CLSMETH _CLASS_NAME_ <MethodName>() )
#xcommand METHOD <MethodName>( [<params,...>] ) CONSTRUCTOR => ;
oClass:AddInline( <(MethodName)>, {|Self [,<params>] | <MethodName>(Self [,<params>] ), Self } )
@@ -54,13 +56,14 @@
oClass:AddVirtual( <(MethodName)> )
#xcommand MESSAGE <MessageName> METHOD <MethodName>( [<params,...>] ) => ;
oClass:AddMethod( <(MessageName)>, @<MethodName>() )
oClass:AddMethod( <(MessageName)>, CLSMETH _CLASS_NAME_ <MethodName>() )
#xcommand ENDCLASS => oClass:Create() ;;
endif ;;
return oClass:Instance()
#xcommand METHOD <MethodName>([<params,...>]) CLASS <ClassName> => ;
static function <MethodName>( [<params>] ) ; local Self := QSelf()
#xcommand METHOD <MethodName>( [<params,...>] ) CLASS <ClassName> => ;
static function <ClassName>_<MethodName>( [<params>] ) ;;
local Self := QSelf()
#endif /* _CLASSES_CH */