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

2012-11-07 04:26 UTC+0100 Viktor Szakats (harbour syenar.net)

Browse Source 
* contrib/hbformat/hbfuncs.prg
    * minor cleanup to how contrib .hbx parsing is optimized out.
This commit is contained in:
Viktor Szakats
2012-11-07 03:27:23 +00:00
parent 2c4d86c392
commit d77cccf97d
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

@@ -16,6 +16,10 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-11-07 04:26 UTC+0100 Viktor Szakats (harbour syenar.net)
* contrib/hbformat/hbfuncs.prg
* minor cleanup to how contrib .hbx parsing is optimized out.
2012-11-07 04:18 UTC+0100 Viktor Szakats (harbour syenar.net)
* extras/httpsrv/cgifunc.prg
* extras/httpsrv/modules/tableservletdb.prg

9
harbour/contrib/hbformat/hbfuncs.prg
View File

@@ -56,22 +56,23 @@ PROCEDURE __hbformat_BuildListOfFunctions( /* @ */ cFunctions, cHBXList )
LOCAL aFile
LOCAL cName
LOCAL lAnyHBR
LOCAL lContribHBR := .F.
/* from built-in core .hbx file */
HBXToFuncList( @cFunctions, __harbour_hbx() )
/* from .hbr container files */
lAnyHBR := .F.
FOR EACH aFile IN Directory( hb_DirBase() + "*.hbr" )
lAnyHBR := .T.
IF hb_FileMatch( hb_FNameName( aFile[ F_NAME ] ), "contrib" )
lContribHBR := .T.
ENDIF
FOR EACH cName IN hb_Deserialize( hb_ZUncompress( hb_MemoRead( hb_DirBase() + aFile[ F_NAME ] ) ) )
cFunctions += "," + cName:__enumKey()
NEXT
NEXT
/* from standalone .hbx files in some known locations */
IF ! lAnyHBR
IF ! lContribHBR
WalkDir( hb_DirBase() + ".." + hb_ps() + "contrib", @cFunctions )
ENDIF
WalkDir( hb_DirBase() + ".." + hb_ps() + "addons", @cFunctions )