9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
156 lines
3.7 KiB
Plaintext
156 lines
3.7 KiB
Plaintext
/*
|
|
* Author....: David Barrett
|
|
* CIS ID....: 72037,105
|
|
*
|
|
* This is an original work by David Barrett and is placed in the
|
|
* public domain.
|
|
*
|
|
* Modification history:
|
|
* ---------------------
|
|
*
|
|
* Rev 1.3 28 Sep 1992 22:04:18 GLENN
|
|
* A few users have reported that these functions do not support
|
|
* multi-dimensional arrays. Until the bugs are verified and
|
|
* workarounds or re-writes devised, a warning has been placed in the
|
|
* documentation.
|
|
*
|
|
* Rev 1.2 15 Aug 1991 23:06:06 GLENN
|
|
* Forest Belt proofread/edited/cleaned up doc
|
|
*
|
|
* Rev 1.1 14 Jun 1991 19:52:54 GLENN
|
|
* Minor edit to file header
|
|
*
|
|
* Rev 1.0 07 Jun 1991 23:39:38 GLENN
|
|
* Initial revision.
|
|
*
|
|
*
|
|
*/
|
|
|
|
FUNCTION ft_SaveArr( aArray, cFileName, /* @ */ nErrorCode )
|
|
|
|
LOCAL nHandle, lRet
|
|
|
|
nHandle := FCreate( cFileName )
|
|
nErrorCode := FError()
|
|
IF nErrorCode == 0
|
|
lRet := _ftsavesub( aArray, nHandle, @nErrorCode )
|
|
FClose( nHandle )
|
|
IF lRet .AND. FError() != 0
|
|
nErrorCode := FError()
|
|
lRet := .F.
|
|
ENDIF
|
|
ELSE
|
|
lRet := .F.
|
|
ENDIF
|
|
|
|
RETURN lRet
|
|
|
|
STATIC FUNCTION _ftsavesub( xMemVar, nHandle, /* @ */ nErrorCode )
|
|
|
|
LOCAL cValType, nLen, cString
|
|
|
|
LOCAL lRet := .T.
|
|
|
|
cValType := ValType( xMemVar )
|
|
FWrite( nHandle, cValType, 1 )
|
|
IF FError() == 0
|
|
SWITCH cValType
|
|
CASE "A"
|
|
nLen := Len( xMemVar )
|
|
FWrite( nHandle, L2Bin( nLen ), 4 )
|
|
IF FError() == 0
|
|
AEval( xMemVar, {| xMemVar1 | lRet := _ftsavesub( xMemVar1, nHandle ) } )
|
|
ELSE
|
|
lRet := .F.
|
|
ENDIF
|
|
EXIT
|
|
CASE "B"
|
|
lRet := .F.
|
|
EXIT
|
|
CASE "C"
|
|
nLen := Len( xMemVar )
|
|
FWrite( nHandle, L2Bin( nLen ), 4 )
|
|
FWrite( nHandle, xMemVar )
|
|
EXIT
|
|
CASE "D"
|
|
nLen := 8
|
|
FWrite( nHandle, L2Bin( nLen ), 4 )
|
|
FWrite( nHandle, DToC( xMemVar ) )
|
|
EXIT
|
|
CASE "L"
|
|
nLen := 1
|
|
FWrite( nHandle, L2Bin( nLen ), 4 )
|
|
FWrite( nHandle, iif( xMemVar, "T", "F" ) )
|
|
EXIT
|
|
CASE "N"
|
|
cString := Str( xMemVar )
|
|
nLen := Len( cString )
|
|
FWrite( nHandle, L2Bin( nLen ), 4 )
|
|
FWrite( nHandle, cString )
|
|
EXIT
|
|
ENDSWITCH
|
|
ELSE
|
|
lRet := .F.
|
|
ENDIF
|
|
nErrorCode := FError()
|
|
|
|
RETURN lRet
|
|
|
|
FUNCTION ft_RestArr( cFileName, /* @ */ nErrorCode )
|
|
|
|
LOCAL nHandle, aArray
|
|
|
|
nHandle := FOpen( cFileName )
|
|
nErrorCode := FError()
|
|
IF nErrorCode == 0
|
|
aArray := _ftrestsub( nHandle, @nErrorCode )
|
|
FClose( nHandle )
|
|
ELSE
|
|
aArray := {}
|
|
ENDIF
|
|
|
|
RETURN aArray
|
|
|
|
STATIC FUNCTION _ftrestsub( nHandle, /* @ */ nErrorCode )
|
|
|
|
LOCAL cValType, nLen, cLenStr, xMemVar, cMemVar, nk
|
|
|
|
cValType := " "
|
|
FRead( nHandle, @cValType, 1 )
|
|
cLenStr := Space( 4 )
|
|
FRead( nHandle, @cLenStr, 4 )
|
|
nLen := Bin2L( cLenStr )
|
|
nErrorCode := FError()
|
|
IF nErrorCode == 0
|
|
SWITCH cValType
|
|
CASE "A"
|
|
xMemVar := {}
|
|
FOR nk := 1 TO nLen
|
|
AAdd( xMemVar, _ftrestsub( nHandle ) ) // Recursive call
|
|
NEXT
|
|
EXIT
|
|
CASE "C"
|
|
xMemVar := Space( nLen )
|
|
FRead( nHandle, @xMemVar, nLen )
|
|
EXIT
|
|
CASE "D"
|
|
cMemVar := Space( 8 )
|
|
FRead( nHandle, @cMemVar, 8 )
|
|
xMemVar := CToD( cMemVar ) /* TOFIX: It's not Y2K compatible, and it needs same _SET_DATEFORMAT on save and load */
|
|
EXIT
|
|
CASE "L"
|
|
cMemVar := " "
|
|
FRead( nHandle, @cMemVar, 1 )
|
|
xMemVar := ( cMemVar == "T" )
|
|
EXIT
|
|
CASE "N"
|
|
cMemVar := Space( nLen )
|
|
FRead( nHandle, @cMemVar, nLen )
|
|
xMemVar := Val( cMemVar )
|
|
EXIT
|
|
ENDSWITCH
|
|
nErrorCode := FError()
|
|
ENDIF
|
|
|
|
RETURN xMemVar
|