![[TEST] Document Foundation Community](https://communitytest.documentfoundation.org/images/discourse-logo-sketch.png){kind=logo}
Hi,
I'm traying to build a recursive CopyValue(aVariant) function. The idea is a simple copy for scalar values, a recursive Items copy for array (max 5 dimensions arrays), and a call to Clone() method for (pseudo) objects. The function can't copy structures, I will use (pseudo) objects Clone() method...
But my code (Cf. "TEST COPY VALUE CODE" below) failed at CopyArray in Select Case 2 at line :
result(i1 - Bounds(1,1), i2 - Bounds(2,1)) = CopyValue(value)
The error message (in french) is :
"L'erreur #91 (Variable d'objet non définie) s'est produite à la ligne 90 dans _DataUtil"
The error is triggered with the recursive function call at CopyValue(value). It look's like reentrance is not supported by the function... I'm using LibreOffice 5.2.7.2. (x32) with Linux Debian. I tested also with LIbreOffice 5.4.2.2 (x64) with Windows.
So to test recursive call I tried with a recursive sample function, CalculateFactorial(Number). And it's work fine. The sample is :
Sub TestFactorial
Msgbox CalculateFactorial( 42 ) ' Displays 1,40500611775288E+51
Msgbox CalculateFactorial( -42 ) ' Displays "Invalid number for factorial!"
Msgbox CalculateFactorial( 3.14 ) ' Displays "Invalid number for factorial!"
End Sub
Function CalculateFactorial( Number )
If Number < 0 Or Number <> Int( Number ) Then
CalculateFactorial = "Invalid number for factorial!"
ElseIf Number = 0 Then
CalculateFactorial = 1
Else
' This is the recursive call:
CalculateFactorial = Number * CalculateFactorial( Number - 1 )
Endif
End Function
I'm wondering If my problem is coming from the fact recursive call could be only at result affectation line. In this sample it's the line :
CalculateFactorial = Number * CalculateFactorial( Number - 1 )
But I can't imagine a simple way to do the same with my algorithm, because copying an array need a For Next recursive call for each item ... An array is not a Lisp list ...
I may imagine two solutions :
1. Using Lisp paradigm with first() and rest() functions, splitting array... But how to build an array reference starting with LBound()+1 item of the array ?
2. Trying serialize the recursive array to a large String value and use an other unserialize function to rebuild the structure ....
Do you know if an other CopyValue already exist ? An other Idea ?
Thank you for your advises !
Patrick
Rem