From bdae62e404250ff832ac1b83541c2e97fedceaf3 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Tue, 5 Mar 2002 20:25:34 +0000 Subject: [PATCH] some fixes on nested arrays recovering --- harbour/source/rtl/persist.prg | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/harbour/source/rtl/persist.prg b/harbour/source/rtl/persist.prg index 01b06bf266..e30426603b 100644 --- a/harbour/source/rtl/persist.prg +++ b/harbour/source/rtl/persist.prg @@ -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