stdLambda equation and some stdError additions

Author: sancarn

changelog.md

@@ -345,4 +345,6 @@ Before `08/07/2021` a change log was not kept. We have retrospectively gone back
 - 2025-06-11 `stdCOM` FEATURE - Added `PropertyStore_GetCount`, `PropertyStore_GetAt`, `PropertyStore_GetValue`, `PropertyStore_SetValue` and `PropertyStore_Commit` to work with `IPropertyStore`
 - 2025-06-23 `stdImage` FEATURE - Added `FindImage` to allow for automation through image searching. Thanks @KallunWillock!
 - 2025-06-24 `stdImage` FEATURE - Added `Typee`, `Width`, `Height`, `WidthBytes`, `Planes`, `BitsPixel` and `Bits` properties from `HBITMAP`. Thanks @Almesi!
-- 2025-06-25 `stdAcc` FIX - Fixed issue with `BFS` option in `FindFirst` and `FindAll`. Ultimately if the control is not present in the Accessibility group currently stdAcc can return a "Subscript out of range" error. This fix ensures that instead they simply return `nothing` (or an empty collection)
+- 2025-06-25 `stdAcc` FIX - Fixed issue with `BFS` option in `FindFirst` and `FindAll`. Ultimately if the control is not present in the Accessibility group currently stdAcc can return a "Subscript out of range" error. This fix ensures that instead they simply return `nothing` (or an empty collection)
+- 2025-06-26 `stdLambda` FEATURE - Added `Equation` property, which can be used to obtain the equation used to create the `stdLambda` object
+- 2025-06-26 `ALL` FEATURE - Added a new branch and a workflow to inject `stdError` stack tracing into all stdVBA class members.

src/WIP/stdError.cls

@@ -192,6 +192,9 @@ Private Function SerializeArgs(ByRef args As Variant) As String
     SerializeArgs = sArgs
 End Function
 
+'Serialize a value to a string representation.
+'@param value - The value to serialize.
+'@return - String representation of the value.
 Private Function Serialize(ByVal value As Variant) As String
     'Serialize the value to a string representation.
     select case VarType(value)
@@ -203,9 +206,19 @@ Private Function Serialize(ByVal value As Variant) As String
             Serialize = CStr(value)
         case vbDate
             Serialize = Format(value, "yyyy-mm-dd hh:nn:ss")
+        case vbNull
+            Serialize = "Null"
+        case vbEmpty
+            Serialize = "Empty"
         case vbObject
             'Serialize as #<Foo:0x00007ff9c18f7d10>
-            Serialize = "#<" & TypeName(value) & ":" & Hex(ObjPtr(value)) & ">""
+            If value Is Nothing Then
+                Serialize = "Nothing"
+            ElseIf TypeName(value) = "stdLambda" Then
+                Serialize = "#<stdLambda" & ":" & Hex(ObjPtr(value)) & " Equation='" &   value.Equation & "'>"
+            Else
+                Serialize = "#<" & TypeName(value) & ":" & Hex(ObjPtr(value)) & ">"
+            End If
         Case vbError
             Serialize = "#Error!"
         case Else

src/stdLambda.cls

@@ -363,6 +363,12 @@ Public Property Get oFunctExt() As Object
   Set oFunctExt = This.FunctionExtensions
 End Property
 
+'Get the equation which was used to create the lambda
+'@returns - The equation used to create the lambda
+Public Property Get Equation() as String
+    Equation = This.Equation
+End Property
+
 'Implementation of stdICallable::Run
 '@param params as Array<Variant> - Parameters to run the lambda with
 '@returns - The result of the lambda