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

2002-03-03 19:35 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2002-03-03 16:33:36 +00:00
parent 156073172c
commit 99e4b88dd5
2 changed files with 39 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -7,6 +7,10 @@
For example:
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
* source/rtl/persist.prg
* added 254 as linelength to MLCount call in LoadFromText so
it matches later call to MemoLine
* source\common\hbffind.c
* fixed the "Directory() can't see files with cleared
archive bits" problem.

36
harbour/source/rtl/dbsdf.prg
View File

@@ -59,9 +59,10 @@ HB_FILE_VER( "$Id$" )
#define AppendEOL( handle ) FWRITE( handle, CHR( 13 ) + CHR( 10 ) )
#define AppendEOF( handle ) FWRITE( handle, CHR( 26 ) )
#define SkipEOL( handle ) FSEEK( handle, 2, FS_RELATIVE )
PROCEDURE __dbSDF( lExport, cFile, aFields, bFor, bWhile, nNext, nRecord, lRest )
LOCAL index, handle, cFileName := cFile, nStart, nCount, oErr
LOCAL index, handle, cFileName := cFile, nStart, nCount, oErr, nFileLen, aStruct
// Process the file name argument.
index := RAT( ".", cFileName )
@@ -186,6 +187,24 @@ PROCEDURE __dbSDF( lExport, cFile, aFields, bFor, bWhile, nNext, nRecord, lRest
// This simplifies the looping logic.
bWhile := {||.T.}
END IF
nFileLen := FSEEK( handle,0,FS_END )
FSEEK( handle,0 )
aStruct := DBSTRUCT()
WHILE FSEEK( handle,0,FS_RELATIVE ) + 1 <= nFileLen
IF EMPTY( aFields )
// Process all fields.
FOR index := 1 TO FCOUNT()
FieldPut( index,ImportFixed( handle,index,aStruct )
NEXT index
ELSE
// Process the specified fields.
FOR index := 1 TO LEN( aFields )
FieldPut( FIELDPOS( aFields[ index ] ),ImportFixed( handle,FIELDPOS( aFields[ index ],aStruct )
NEXT index
END IF
// Set up for the start of the next record.
SkipEOL( handle )
END WHILE
FCLOSE( handle )
END IF
*/
@@ -207,3 +226,18 @@ STATIC FUNCTION ExportFixed( handle, xField )
END CASE
RETURN .T.
STATIC FUNCTION ImportFixed( handle, index, aStruct )
LOCAL cBuffer
FREAD( handle, @cBuffer, aStruct[ index,3 ] )
DO CASE
CASE aStruct[ index,2 ] == "C"
RETURN cBuffer
CASE aStruct[ index,2 ] == "D"
RETURN HB_STOD( cBuffer )
CASE aStruct[ index,2 ] == "L"
RETURN iif( cBuffer == "T",.T.,.F. )
CASE aStruct[ index,2 ] == "N"
RETURN VAL( cBuffer )
END CASE
RETURN cBuffer