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

2012-07-26 17:08 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* contrib/hbide/tags.prg
    ! Fixed: to honor "CREATE CLASS " notation. It was breaking 
       functions list navigation.
This commit is contained in:
Pritpal Bedi
2012-07-27 00:09:49 +00:00
parent 62ae6ff728
commit fd885bbe1a
2 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -16,6 +16,11 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-07-26 17:08 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbide/tags.prg
! Fixed: to honor "CREATE CLASS " notation. It was breaking
functions list navigation.
2012-07-27 01:20 UTC+0200 Viktor Szakats (harbour syenar.net)
+ extras/hbusb/hbusb.hbc
+ extras/hbusb/hbusb.hbp

3
harbour/contrib/hbide/tags.prg
View File

@@ -226,6 +226,7 @@ FUNCTION Summarize( aText, cComments, aSumData, nFileType )
LEFTEQUAL( cLine, 'EXIT FUNC' ) .OR. ;
LEFTEQUAL( cLine, 'EXIT PROC' ) .OR. ;
LEFTEQUAL( cLine, 'CLASS ' ) .OR. ;
LEFTEQUAL( cLine, 'CREATE CLASS ' ) .OR. ;
LEFTEQUAL( cLine, 'INIT CLASS ' )
// check for multiline declaration
@@ -262,7 +263,7 @@ FUNCTION Summarize( aText, cComments, aSumData, nFileType )
aAdd( aSummary, Str( nLine, 5, 0 ) + ': ' + c )
IF ! lInClass
lInClass := LEFTEQUAL( cLine, 'CLASS ' )
lInClass := LEFTEQUAL( cLine, 'CLASS ' ) .OR. LEFTEQUAL( cLine, 'CREATE CLASS ' )
ENDIF
ELSEIF LEFTEQUAL( cLine, "#PRAGMA BEGINDUMP" )
nType := 1