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

2012-11-02 13:41 UTC+0100 Viktor Szakats (harbour syenar.net)

Browse Source 
* bin/find.hb
    + only look for hbx files in 'include', 'contrib' and 'addons' 
      subdirs, in that order.
This commit is contained in:
Viktor Szakats
2012-11-02 12:42:20 +00:00
parent 40dd9664cf
commit 095ee6150a
2 changed files with 10 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-11-02 13:41 UTC+0100 Viktor Szakats (harbour syenar.net)
* bin/find.hb
+ only look for hbx files in 'include', 'contrib' and 'addons'
subdirs, in that order.
2012-11-02 13:09 UTC+0100 Viktor Szakats (harbour syenar.net)
* contrib/hbexpat/*.[c|h]
* contrib/hbzebra/*.[c|h]

6
harbour/bin/find.hb
View File

@@ -30,7 +30,9 @@
PROCEDURE Main( ... )
WalkDir( hb_DirBase() + ".." + hb_ps(), { ... } )
WalkDir( hb_DirBase() + ".." + hb_ps() + "include", { ... } )
WalkDir( hb_DirBase() + ".." + hb_ps() + "contrib", { ... } )
WalkDir( hb_DirBase() + ".." + hb_ps() + "addons" , { ... } )
RETURN
@@ -38,6 +40,8 @@ STATIC PROCEDURE WalkDir( cDir, aContains )
LOCAL aFile
cDir := hb_DirSepAdd( PathSepToSelf( cDir ) )
FOR EACH aFile IN Directory( cDir + hb_osFileMask(), "D" )
IF aFile[ F_NAME ] == "." .OR. aFile[ F_NAME ] == ".."
ELSEIF "D" $ aFile[ F_ATTR ]