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

2009-04-03 03:45 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/rtl/dircmd.prg
    ! small fix in 'DIR <filemask>' DOS like output formatting.
      Note: this function uses strict DOS like 8.3 file name convention
            in the output so it will play well with long file names.
            Maybe we should change the output formatting?
This commit is contained in:
Przemyslaw Czerpak
2009-04-03 01:39:08 +00:00
parent 5b4e39f61b
commit e47c696099
2 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -8,6 +8,13 @@
2009-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2009-04-03 03:45 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/rtl/dircmd.prg
! small fix in 'DIR <filemask>' DOS like output formatting.
Note: this function uses strict DOS like 8.3 file name convention
in the output so it will play well with long file names.
Maybe we should change the output formatting?
2009-04-03 02:49 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/vm/hvm.c
* harbour/source/vm/fm.c

5
harbour/source/rtl/dircmd.prg
View File

@@ -128,8 +128,11 @@ STATIC PROCEDURE PutNormal( aDirEntry )
hb_FNameSplit( aDirEntry[ F_NAME ], NIL, @cName, @cExt )
/* strict DOS like formatting, it does not play well with long file names
* which does not used 8.3 DOS convention
*/
QOut( PadR( cName, 8 ) + " " +;
PadR( cExt, 3 ) + " " +;
PadR( Substr( cExt, 2 ), 3 ) + " " +;
Str( aDirEntry[ F_SIZE ], 8 ) + " " +;
DToC( aDirEntry[ F_DATE ] ) )