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

2007-11-11 16:05 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* contrib/xhb/hbcompat.ch
     + Added extended At() translation to hb_At()

   * contrib/tip/ftpcln.prg
     ! Changed extended At() to hb_At(). (Thanks Petr)
This commit is contained in:
Viktor Szakats
2007-11-11 15:05:43 +00:00
parent f110caef78
commit 292dd19552
3 changed files with 17 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -8,6 +8,13 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2007-11-11 16:05 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* contrib/xhb/hbcompat.ch
+ Added extended At() translation to hb_At()
* contrib/tip/ftpcln.prg
! Changed extended At() to hb_At(). (Thanks Petr)
2007-11-11 14:51 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* contrib/rdd_ads/make_b32.bat
* contrib/rdd_ads/make_vc.bat

18
harbour/contrib/tip/ftpcln.prg
View File

@@ -821,13 +821,13 @@ METHOD listFiles( cFileSpec ) CLASS tIPClientFTP
IF Empty( cEntry ) //PM:09-08-2007 Needed because of the new HB_aTokens()
HB_ADel(aList, cEntry:__enumIndex(), .T.)
hb_ADel(aList, cEntry:__enumIndex(), .T.)
ELSE
aFile := Array( F_LEN+3 )
nStart := 1
nEnd := At( Chr(32), cEntry, nStart )
nEnd := hb_At( Chr(32), cEntry, nStart )
// file permissions (attributes)
aFile[F_ATTR] := SubStr( cEntry, nStart, nEnd-nStart )
@@ -835,44 +835,44 @@ METHOD listFiles( cFileSpec ) CLASS tIPClientFTP
// # of links
DO WHILE SubStr( cEntry, ++nStart, 1 ) == " " ; ENDDO
nEnd := At( Chr(32), cEntry, nStart )
nEnd := hb_At( Chr(32), cEntry, nStart )
aFile[F_LEN+1]:= Val( SubStr( cEntry, nStart, nEnd-nStart ) )
nStart := nEnd
// owner name
DO WHILE SubStr( cEntry, ++nStart, 1 ) == " " ; ENDDO
nEnd := At( Chr(32), cEntry, nStart )
nEnd := hb_At( Chr(32), cEntry, nStart )
aFile[F_LEN+2]:= SubStr( cEntry, nStart, nEnd-nStart )
nStart := nEnd
// group name
DO WHILE SubStr( cEntry, ++nStart, 1 ) == " " ; ENDDO
nEnd := At( Chr(32), cEntry, nStart )
nEnd := hb_At( Chr(32), cEntry, nStart )
aFile[F_LEN+3]:= SubStr( cEntry, nStart, nEnd-nStart )
nStart := nEnd
// file size
DO WHILE SubStr( cEntry, ++nStart, 1 ) == " " ; ENDDO
nEnd := At( Chr(32), cEntry, nStart )
nEnd := hb_At( Chr(32), cEntry, nStart )
aFile[F_SIZE] := Val( SubStr( cEntry, nStart, nEnd-nStart ) )
nStart := nEnd
// Month
DO WHILE SubStr( cEntry, ++nStart, 1 ) == " " ; ENDDO
nEnd := At( Chr(32), cEntry, nStart )
nEnd := hb_At( Chr(32), cEntry, nStart )
cMonth := SubStr( cEntry, nStart, nEnd-nStart )
cMonth := PadL( AScan( aMonth, cMonth ), 2, "0" )
nStart := nEnd
// Day
DO WHILE SubStr( cEntry, ++nStart, 1 ) == " " ; ENDDO
nEnd := At( Chr(32), cEntry, nStart )
nEnd := hb_At( Chr(32), cEntry, nStart )
cDay := SubStr( cEntry, nStart, nEnd-nStart )
nStart := nEnd
// year
DO WHILE SubStr( cEntry, ++nStart, 1 ) == " " ; ENDDO
nEnd := At( Chr(32), cEntry, nStart )
nEnd := hb_At( Chr(32), cEntry, nStart )
cYear := SubStr( cEntry, nStart, nEnd-nStart )
nStart := nEnd

1
harbour/contrib/xhb/hbcompat.ch
View File

@@ -135,6 +135,7 @@
#xtranslate RAScan([<x,...>]) => hb_RAScan(<x>)
#xtranslate AIns(<a>,<n>,[<x,...>]) => hb_AIns(<a>,<n>,<x>)
#xtranslate ADel(<a>,<n>,<l>) => hb_ADel(<a>,<n>,<l>)
#xtranslate At(<a>,<b>,[<x,...>]) => hb_At(<a>,<b>,<x>)
#xtranslate ISPOINTER( <xValue> ) => hb_ISPOINTER( <xValue> )