forked from lloyddewit/RScript
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathclsRElementOperator.vb
31 lines (26 loc) · 1.26 KB
/
clsRElementOperator.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Public Class clsRElementOperator
Inherits clsRElementAssignable
Public bFirstParamOnRight As Boolean = False
Public strTerminator As String = "" 'only used for '[' and '[[' operators
Public lstParameters As New List(Of clsRParameter)
Public Sub New(clsToken As clsRToken, Optional bBracketedNew As Boolean = False,
Optional bFirstParamOnRightNew As Boolean = False)
MyBase.New(clsToken, Nothing, bBracketedNew)
bFirstParamOnRight = bFirstParamOnRightNew
End Sub
'''--------------------------------------------------------------------------------------------
''' <summary> TODO. </summary>
'''
''' <returns> as debug string. </returns>
'''--------------------------------------------------------------------------------------------
Public Overloads Function GetAsDebugString() As String
Dim strTxt As String = "ElementOperator: " & vbLf &
"bFirstParamOnRight: " & bFirstParamOnRight & vbLf &
"strTerminator: " & strTerminator & vbLf &
"lstRParameters" & vbLf
For Each clsParameter As clsRParameter In lstParameters
strTxt &= clsParameter.GetAsDebugString()
Next
Return strTxt
End Function
End Class