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

2000-10-18 01:30 UTC+0800 Ron Pinkas <ron@profit-master.com>

Browse Source 
* contrib/dot/pp.prg
      ! More corrections and refinments in pre-processing
      * Improved handling of command line parameters (no longer requires -P, -CCH doesn't require -U)
      ! Corrected handling of file extension.

    * include/hbclass.ch
      * Corrected <MethodName> to \<MethodName> when result marker not a match marker.
      * Corrected <params,...> to <param> (result marker used match marker format).
This commit is contained in:
Ron Pinkas
2000-10-18 08:29:28 +00:00
parent 3ce6cc25d2
commit b0277b2fbc
3 changed files with 546 additions and 288 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harbour/ChangeLog
View File

@@ -1,3 +1,13 @@
2000-10-18 01:30 UTC+0800 Ron Pinkas <ron@profit-master.com>
* contrib/dot/pp.prg
! More corrections and refinments in pre-processing
* Improved handling of command line parameters (no longer requires -P, -CCH doesn't require -U)
! Corrected handling of file extension.
* include/hbclass.ch
* Corrected <MethodName> to \<MethodName> when result marker not a match marker.
* Corrected <params,...> to <param> (result marker used match marker format).
2000-10-17 21:15 UTC+0200 JFL (mafact) <jfl@mafact.com>
* include/hbclass.ch
* Minor typo's corrected as John's indication

821
harbour/contrib/dot/pp.prg
View File

File diff suppressed because it is too large Load Diff

3
harbour/include/hbclass.ch
View File

@@ -136,7 +136,7 @@ DECLARE TClass ;
s_oClass := TClass():New( <(ClassName)>, __HB_CLS_PAR ([ <(SuperClass1)> ] [ ,<(SuperClassN)> ] ) ) ;;
#undef _CLASS_NAME_ ;;
#define _CLASS_NAME_ <ClassName> ;;
#translate CLSMETH <ClassName> <MethodName>() => @<ClassName>_<MethodName>() ;
#translate CLSMETH <ClassName> \<MethodName>() => @<ClassName>_\<MethodName>() ;
[ ; #translate Super( <SuperClassN> ) : => ::<SuperClassN>: ] ;
[ ; #translate Super( <SuperClass1> ) : => ::<SuperClass1>: ] ;
[ ; #translate Super() : => ::<SuperClass1>: ] ;
@@ -194,7 +194,6 @@ DECLARE TClass ;
s_oClass:AddInline( "_" + <(DataName1)>, {|Self, param| Self:<DataName2> := param }, HB_OO_CLSTP_EXPORTED )
#xcommand VAR <DataName1> IS <DataName2> TO <oObject> => ;
_HB_MEMBER \{[AS <type>] <DataName1>\} ;;
s_oClass:AddInline( <(DataName1)>, {|Self| Self:<oObject>:<DataName2> }, HB_OO_CLSTP_EXPORTED + HB_OO_CLSTP_READONLY ) ;;
s_oClass:AddInline( "_" + <(DataName1)>, {|Self, param| Self:<oObject>:<DataName2> := param }, HB_OO_CLSTP_EXPORTED )