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

2012-04-09 00:07 UTC+0200 Viktor Szakats (harbour syenar.net)

Browse Source 
* bin/hb3rdpat.hbs
    * formatting
This commit is contained in:
Viktor Szakats
2012-04-08 22:08:30 +00:00
parent 720b6d6a1d
commit 85f6e67dda
2 changed files with 6 additions and 2 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-04-09 00:07 UTC+0200 Viktor Szakats (harbour syenar.net)
* bin/hb3rdpat.hbs
* formatting
2012-04-09 00:04 UTC+0200 Viktor Szakats (harbour syenar.net)
* utils/hbmk2/hbmk2.prg
* bin/hb3rdpat.hbs

4
harbour/bin/hb3rdpat.hbs
View File

@@ -302,7 +302,7 @@ PROCEDURE Main( ... )
ErrorLevel( 1 )
QUIT
ELSE
ASort( aDir,,, { | tmp, tmp1 | tmp[ F_NAME ] < tmp1[ F_NAME ] } )
ASort( aDir,,, {| tmp, tmp1 | tmp[ F_NAME ] < tmp1[ F_NAME ] } )
cFileName := aDir[ 1 ][ F_NAME ]
ENDIF
ENDIF
@@ -601,7 +601,7 @@ STATIC FUNCTION WalkAndFind( cTop, cLookFor )
cTop += iif( Right( cTop, 1 ) $ "/\", "", hb_ps() )
aDir := Directory( cTop + hb_osFileMask(), "D" )
ASort( aDir,,, { |aLeft| !( "D" $ aLeft[ F_ATTR ] ) } ) /* Files first */
ASort( aDir,,, {| aLeft | !( "D" $ aLeft[ F_ATTR ] ) } ) /* Files first */
FOR EACH aDirEntry IN aDir
IF !( "D" $ aDirEntry[ F_ATTR ] )