%REM
	Copyright 2022-2023 HCL America, Inc.
	Licensed under the Apache License, Version 2.0 (the "License"); 
	you may not use this file except in compliance with the License. 
	You may obtain a copy of the License at

	http://www.apache.org/licenses/LICENSE-2.0

	Unless required by applicable law or agreed to in writing, 
	software distributed under the License is distributed on an "AS IS" BASIS, 
	WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 
	See the License for the specific language governing permissions and limitations under the License	
%END REM

Option Public
Option Declare

' Modify use statement as appropriate for your environent to point to relative path
Use "../../../src/VoltScriptJsonConverter" 



Class Session

    Public id as String
    Public title as String
    Public products as Variant

End Class

Class StringToArraySerializer as AbstractJsonConverter
    Function fromJson(source as JsonObject) as Variant
        fromJson = Split(source.scalarValue, ",")
    End Function
End Class

Sub Initialize()
    Call sample1()
End Sub

Sub sample1()
    Dim json as String
    Dim session as Session
    Dim helper as New JsonConversionHelper
    Dim strToArrSer as New StringToArraySerializer()

    json = |{
    "id": "Ad16",
    "title": "Colaborate around Business Applications in Communities",
    "products": "Domino,Connections,Volt"
  }|

    Call helper.withCustomConverter("products", strToArrSer)
    Set session = helper.fromJsonString(json, "Session", "deser-60")
    Print UBound(session.products) & " products"
End Sub