SuperStrict

Framework Text.PersistenceXml
Import BRL.StandardIO

Type TRect
	Field x:Int
	Field y:Int
	Field w:Int
	Field h:Int
	Field ignoreMe:String = "Hello" {nopersist}
End Type

Type TObj
	Field text:String
	Field numbersi:Int[]
	Field numbersf:Float[]
	Field numbersd:Double[]
	Field numbersl:Long[]
	Field multi:Int[,,]
	Field circularRef:TTest
	Field refNull:TTest
	Field emptyList:TList = New TList
	Field list:TList = New TList
	Field rect:TRect = New TRect
	
	Field map:TMap = New TMap
	Field map2:TMap = New TMap
		
	Function Set:TObj()
		Local this:TObj = New TObj
		
		this.text = "woot"
		this.numbersi = [ 1, 2, 3, 4, 5, 6 ]
		this.numbersf = [ 1.0, 2.0, 3.0, 4.0, 5.0, 6.0 ]
		this.numbersd = [ 1.0:Double, 2.0:Double, 3.0:Double, 4.0:Double, 5.0:Double, 6.0:Double ]
		this.numbersl = [ 1:Long, 2:Long, 3:Long, 4:Long, 5:Long, 6:Long ]
		this.multi    = New Int[3,4,5]
		this.multi[0,0,0] = 22
		this.multi[1,2,2] = 33
		this.multi[2,3,4] = 44
		this.list.AddLast("Item 1")
		this.rect.x = 100
		this.rect.y = 200
		this.rect.w = 300
		this.rect.h = 400
		
		this.map.Insert("Key 1", "Value 1")
		
		Return this
	End Function
	
End Type

Type TTest
	Field one:String
	Field two:Int
	Field three:Float
	Field four:Double
	Field five:Long
	
	Field obj:TObj
	
	Field rects:TRect[]
	
	Function Set:TTest()
		Local this:TTest = New TTest
		
		this.one = "Hello World"
		this.two = 155
		this.three = 3.33
		this.four = 2.95
		this.five = 222
		
		this.obj = TObj.Set()
		this.obj.circularRef = this
		
		this.rects = New TRect[2]
		'rects[0] = New TRect ' <- null!
		this.rects[1] = New TRect
		this.rects[1].y = 125
		
		Return this
	End Function
	
End Type

' register as a default serializer
TXMLPersistenceBuilder.RegisterDefault(New TRectXmlSerializer)

Local test:TTest = TTest.Set()
Local persist:TPersist = New TXMLPersistenceBuilder.Build()

' ++  Serialize to a String
Local s:String = persist.SerializeToString(test)
Print s

persist.Free()

' ++  De-serialize the String
Local obj:Object = persist.DeSerializeObject(s)
persist.Free()

' ++ Create a Stream and Serialize the current object to it.
Local stream:TStream = WriteStream("example.bmo")
persist.SerializeToStream(obj, stream)
stream.Close()

persist.Free()

' ++ De-serialize from a Stream.
stream = ReadStream("example.bmo")
obj = persist.DeSerializeFromStream(stream)
persist.Free()

' ++ Serialize and output the latest object... all should be well :-)
TPersist.format = True
Print persist.SerializeToString(obj)


Type TRectXMLSerializer Extends TXMLSerializer

	Global nil:TNode = New TMap._root

	Method TypeName:String()
		Return "TRect"
	End Method
	
	Method Serialize(tid:TTypeId, obj:Object, node:TxmlNode)
		Local rect:TRect = TRect(obj)
		Local sb:TStringBuilder = New TStringBuilder
		sb.AppendInt(rect.x)
		sb.Append(",").AppendInt(rect.y)
		sb.Append(",").AppendInt(rect.w)
		sb.Append(",").AppendInt(rect.h)
		node.SetContent(sb.ToString())
	End Method
	
	Method Deserialize:Object(objType:TTypeId, node:TxmlNode)
		Local rect:TRect = TRect(CreateObjectInstance(objType, node))
		Local parts:String[] = node.GetContent().Split(",")
		If parts.length = 4 Then
			rect.x = Int(parts[0])
			rect.y = Int(parts[1])
			rect.w = Int(parts[2])
			rect.h = Int(parts[3])
		End If
		Return rect	
	End Method

	Method Clone:TXMLSerializer()
		Return New TRectXMLSerializer
	End Method

End Type