-
Notifications
You must be signed in to change notification settings - Fork 0
/
StringBuilder_thinBASICInterface.inc
319 lines (224 loc) · 11.9 KB
/
StringBuilder_thinBASICInterface.inc
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
'
' StringBuilder thinBASIC interface
'
#Include Once ".\StringBuilder_Implementation.inc"
'-----------------------------------------------------------------------------
Function StringBuilder_LoadSymbols() As Long
'-----------------------------------------------------------------------------
Local RetCode As Long
Local pStringBuilder As Dword
pStringBuilder = thinBasic_Class_Add("StringBuilder", 0)
If pStringBuilder Then
thinBasic_Class_AddMethod (pStringBuilder, "_Create" , %thinBasic_ReturnNone , CodePtr(StringBuilder_Create) )
thinBasic_Class_AddMethod (pStringBuilder, "_Destroy" , %thinBasic_ReturnNone , CodePtr(StringBuilder_Destroy) )
thinBasic_Class_AddMethod (pStringBuilder, "Add" , %thinBasic_ReturnCodeLong , CodePtr(StringBuilder_Add) )
thinBasic_Class_AddMethod (pStringBuilder, "AddLine" , %thinBasic_ReturnCodeLong , CodePtr(StringBuilder_AddLine) )
thinBasic_Class_AddMethod (pStringBuilder, "Clear" , %thinBasic_ReturnCodeLong , CodePtr(StringBuilder_Clear) )
thinBasic_Class_AddMethod (pStringBuilder, "ToString" , %thinBasic_ReturnString , CodePtr(StringBuilder_ToString) )
thinBasic_Class_AddProperty (pStringBuilder, "Char" , %thinBasic_ReturnString , CodePtr(StringBuilder_Property_Char) )
thinBasic_Class_AddProperty (pStringBuilder, "CharCode" , %thinBasic_ReturnCodeByte , CodePtr(StringBuilder_Property_CharCode) )
thinBasic_Class_AddProperty (pStringBuilder, "Length" , %thinBasic_ReturnCodeDWord , CodePtr(StringBuilder_Property_Length) )
thinBasic_Class_AddProperty (pStringBuilder, "Capacity" , %thinBasic_ReturnCodeDWord , CodePtr(StringBuilder_Property_Capacity) )
thinBasic_Class_AddProperty (pStringBuilder, "DataPTR" , %thinBasic_ReturnCodeDWord , CodePtr(StringBuilder_Property_DataPtr) )
thinBasic_Class_AddProperty (pStringBuilder, "VarPTR" , %thinBasic_ReturnCodeDWord , CodePtr(StringBuilder_Property_VarPtr) )
Function = 0
Else
Function = 1
End If
End Function
'-----------------------------------------------------------------------------
Sub StringBuilder_Create(ByVal pObject As Dword)
'-----------------------------------------------------------------------------
Dim oObject(1& To 1&) As iThinStringBuilder At pObject
oObject(1&) = Class "thinStringBuilder"
If IsNothing(oObject(1&)) Then
thinbasic_RunTimeError ( %ERR__MODULE_SPECIFIC, "Failed to instantiate StringBuilder" )
End If
Dim initialCapacity As Ext
Dim initialText As String
If thinBasic_CheckOpenParens_Optional() And thinBasic_ErrorFree() Then
If thinBasic_CheckCloseParens_Optional() And thinBasic_ErrorFree() Then
oObject(1&).Initialize1()
Else
Select Case thinBasic_DetermineType
Case %thinBasic_ReturnNumber
thinBasic_ParseNumber initialCapacity
If thinBasic_CheckCloseParens_Mandatory() And thinBasic_ErrorFree() Then
oObject(1&).Initialize2(ByCopy initialCapacity)
End If
Case %thinBasic_ReturnString
thinBasic_ParseString initialText
If thinBasic_CheckCloseParens_Mandatory() And thinBasic_ErrorFree() Then
oObject(1&).Initialize3(initialText)
End If
End Select
End If
Else
oObject(1&).Initialize1()
End If
End Sub
'-----------------------------------------------------------------------------
Function StringBuilder_Destroy(ByVal pObject As Dword) As Long
'-----------------------------------------------------------------------------
Dim oObject(1& To 1&) As iThinStringBuilder At pObject
oObject(1&) = Nothing
End Function
'-----------------------------------------------------------------------------
Function StringBuilder_Add(ByVal pObject As Dword) As Long
'-----------------------------------------------------------------------------
Dim oObject(1& To 1&) As iThinStringBuilder At pObject
Dim addedText As String
If thinBasic_CheckOpenParens_Mandatory() And thinBasic_ErrorFree() Then
thinBasic_ParseString addedText
If thinBasic_ErrorFree() Then
oObject(1&).Add(addedText)
End If
While thinBasic_CheckComma_Optional() And thinBasic_ErrorFree()
thinBasic_ParseString addedText
oObject(1&).Add(addedText)
Wend
thinBasic_CheckCloseParens_Mandatory()
End If
End Function
'-----------------------------------------------------------------------------
Function StringBuilder_AddLine(ByVal pObject As Dword) As Long
'-----------------------------------------------------------------------------
Dim oObject(1& To 1&) As iThinStringBuilder At pObject
Dim addedText As String
If thinBasic_CheckOpenParens_Mandatory() And thinBasic_ErrorFree() Then
thinBasic_ParseString addedText
If thinBasic_CheckCloseParens_Mandatory() And thinBasic_ErrorFree() Then
oObject(1&).AddLine(addedText)
End If
End If
End Function
'-----------------------------------------------------------------------------
Function StringBuilder_Clear(ByVal pObject As Dword) As Long
'-----------------------------------------------------------------------------
If thinBasic_CheckOpenParens_optional Then
thinBasic_CheckCloseParens_Mandatory
End If
If thinBasic_ErrorFree Then
Dim oObject(1& To 1&) As iThinStringBuilder At pObject
oObject(1&).Clear()
End If
End Function
'-----------------------------------------------------------------------------
Function StringBuilder_ToString(ByVal pObject As Dword) As String
'-----------------------------------------------------------------------------
If thinBasic_CheckOpenParens_optional Then
thinBasic_CheckCloseParens_Mandatory
End If
If thinBasic_ErrorFree Then
Dim oObject(1& To 1&) As iThinStringBuilder At pObject
Function = oObject(1&).ToString()
End If
End Function
'-----------------------------------------------------------------------------
Function StringBuilder_Property_Char(ByVal pObject As Dword, ByVal lAction As Long) As String
'-----------------------------------------------------------------------------
ReDim oObject(1& To 1&) As iThinStringBuilder At pObject
Dim position As Ext
If thinBasic_CheckOpenParens_Mandatory() And thinBasic_ErrorFree() Then
thinBasic_ParseNumber position
If thinBasic_CheckCloseParens_Mandatory() And thinBasic_ErrorFree() Then
Select Case Long lAction
Case %Class_Action_Get
Function = oObject(1&).Char(ByCopy position)
Case %Class_Action_Set
Local lEqualType As Long
lEqualType = thinBasic_CheckEqualType_Mandatory
If thinBasic_ErrorFree Then
If lEqualType = %Equal_EQ Then
Dim character As String
thinBasic_ParseString character
If thinBasic_ErrorFree Then
oObject(&1).Char(ByCopy position) = character
End If
End If
End If
End Select
End If
End If
End Function
'-----------------------------------------------------------------------------
Function StringBuilder_Property_CharCode(ByVal pObject As Dword, ByVal lAction As Long) As Byte
'-----------------------------------------------------------------------------
ReDim oObject(1& To 1&) As iThinStringBuilder At pObject
Dim position As Ext
If thinBasic_CheckOpenParens_Mandatory() And thinBasic_ErrorFree() Then
thinBasic_ParseNumber position
If thinBasic_CheckCloseParens_Mandatory() And thinBasic_ErrorFree() Then
Select Case Long lAction
Case %Class_Action_Get
Function = oObject(1&).CharCode(ByCopy position)
Case %Class_Action_Set
Local lEqualType As Long
lEqualType = thinBasic_CheckEqualType_Mandatory
If thinBasic_ErrorFree Then
If lEqualType = %Equal_EQ Then
Dim characterCode As Ext
thinBasic_ParseNumber characterCode
If thinBasic_ErrorFree Then
oObject(&1).CharCode(ByCopy position) = characterCode
End If
End If
End If
End Select
End If
End If
End Function
'-----------------------------------------------------------------------------
Function StringBuilder_Property_Length(ByVal pObject As Dword, ByVal lAction As Long) As Dword
'-----------------------------------------------------------------------------
ReDim oObject(1& To 1&) As iThinStringBuilder At pObject
Select Case Long lAction
Case %Class_Action_Get
Function = oObject(1&).Length
Case %Class_Action_Set
thinbasic_RunTimeError ( %ERR__MODULE_SPECIFIC, "Assignment to Length is not supported." )
End Select
End Function
'-----------------------------------------------------------------------------
Function StringBuilder_Property_Capacity(ByVal pObject As Dword, ByVal lAction As Long) As Dword
'-----------------------------------------------------------------------------
ReDim oObject(1& To 1&) As iThinStringBuilder At pObject
Select Case Long lAction
Case %Class_Action_Get
Function = oObject(1&).Capacity
Case %Class_Action_Set
Local lEqualType As Long
lEqualType = thinBasic_CheckEqualType_Mandatory
If thinBasic_ErrorFree Then
If lEqualType = %Equal_EQ Then
Dim capacity As Ext
thinBasic_ParseNumber capacity
If thinBasic_ErrorFree Then
oObject(&1).Capacity = capacity
End If
End If
End If
End Select
End Function
'-----------------------------------------------------------------------------
Function StringBuilder_Property_DataPtr(ByVal pObject As Dword, ByVal lAction As Long) As Dword
'-----------------------------------------------------------------------------
ReDim oObject(1& To 1&) As iThinStringBuilder At pObject
Select Case Long lAction
Case %Class_Action_Get
Function = oObject(1&).DataPtr
Case %Class_Action_Set
thinbasic_RunTimeError ( %ERR__MODULE_SPECIFIC, "Assignment to DataPtr is not supported." )
End Select
End Function
'-----------------------------------------------------------------------------
Function StringBuilder_Property_VarPtr(ByVal pObject As Dword, ByVal lAction As Long) As Dword
'-----------------------------------------------------------------------------
ReDim oObject(1& To 1&) As iThinStringBuilder At pObject
Select Case Long lAction
Case %Class_Action_Get
Function = oObject(1&).VarPtr
Case %Class_Action_Set
thinbasic_RunTimeError ( %ERR__MODULE_SPECIFIC, "Assignment to DataPtr is not supported." )
End Select
End Function