flamehorizon / lapis Goto Github PK

Update following methods to accept lambda:

• All
• Any
• Average
• Count
• Convert (Select)
• First
• Last
• Min
• Max
• SelectOne (Single)
• Sum
• Where

Current state

Right now, if I would want to get the last item from the filtered set I have to make this call.

' Sort a set where all elements are lower than 10 and return the biggest number.
CollectionExt.Last CollectionExt.Sort(CollectionExt.Where(Source, Lambda.Create("$1 < 10")))

Proposed state

Create a class which encapsulates every CollectionExt method to enable fluent calls.

' Sort a set where all elements are lower than 10 and return the biggest number.
Dim Items As New LpCollection
Items.Where(Lambda.Create("$1 < 10")).Sort.Last

When user calls Count property of an Collection datatype in lambda expression, application throws an Object doesn't support this property or method on line System.CopyVariant StdCallByName, rtcCallByName(Obj, StrPtr(FuncName), CallerType, Args, &H409).

This issue does not appear when lambda gets Scripting.Dictionary data type.

Example

Private Sub ThisDoesNotWork()
    Debug.Print Lambda.Create("$1.Count = 1").Run(New Collection)
End Sub

Update following methods in docs.:

• All
• Some (Any)
• Average
• Count
• Convert (Select)
• First
• Last
• Max
• Min
• SelectOne (Single)
• Sum
• Where

Codebase require to have a single method with body like below:

    If IsObject(Source) Then
        Set Destination = Source
    Else
        Destination = Source
    End If