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

some fixes on nested arrays recovering

Browse Source
This commit is contained in:
Antonio Linares
2002-03-05 20:25:34 +00:00
parent 9a2cea0e82
commit bdae62e404
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
harbour/source/rtl/persist.prg
View File

@@ -94,9 +94,12 @@ METHOD LoadFromText( cObjectText ) CLASS HBPersistent
endif
case Upper( LTrim( __StrToken( cLine, 1 ) ) ) == "ARRAY"
if Left( cToken := LTrim( __StrToken( cLine, 2 ) ), 2 ) == "::"
__ObjSendMsg( Self, "_" + SubStr( cToken, 3 ), Array( Val( __StrToken( cLine, 4 ) ) ) )
endif
cLine = SubStr( cLine, At( "::", cLine ) )
M->oSelf := Self
cLine := StrTran( cLine, "::", "oSelf:" )
cLine := StrTran( cLine, " LEN ", " = Array( " )
cLine := RTrim( StrTran( cLine, "=", ":=", , 1 ) ) + " )"
&( cLine )
case Left( cToken := LTrim( __StrToken( cLine, 1, "=" ) ), 2 ) == "::"
M->oSelf := Self