Type TGuiCallback Abstract
	Method Call(obj:TGuiElement) Abstract
End Type

SuperStrict

Type TExampleType

	Field integer:Int
	Field str$
	Field samp:TExampleType
	
	Method __sleep$[]()  'Vgl. http://php.net/manual/en/language.oop5.magic.php#object.wakeup
	
		DebugLog "sleep"
		Return ["integer", "samp"]
		
	End Method

	Method __wakeup()
	
		DebugLog "wakeup"
		
	End Method

	
End Type

Local samp:TExampleType = New TExampleType
samp.integer = 123
samp.str = "Hello World & Co."

Local innerSamp:TExampleType = New TExampleType
samp.samp = innerSamp
innerSamp.integer = 42
innerSamp.str = "<|>"

Local xml$ = ObjectToXML(samp)
Print xml
Local cp:TExampleType = TExampleType(XMLToObject(xml))
DebugStop


Function XMLEntities$(str$)
  str = Replace(str, "&" , "&" )
  str = Replace(str, "<" , "<"  )
  str = Replace(str, ">" , ">"  )
  str = Replace(str, "~q", """)
  Return str
End Function

Function XMLRemoveEntities$(str$)
  str = Replace(str, "<"  , "<" )
  str = Replace(str, ">"  , ">" )
  str = Replace(str, """, "~q")
  str = Replace(str, "&" , "&" )
  Return str
End Function


Function ConvertObject$(o:Object)

	If Not o Then Return "Null"

	Local tid:TTypeId = TTypeId.ForObject(o)
	Local name$ = tid.Name()
	
	Local str$
	
	Local fields:TList
	
	Local smth:TMethod = tid.FindMethod("__sleep")
	If smth Then
	
		Local result$[] = String[] (smth.Invoke(o, New Object[0]))
		fields = New TList
		For Local fname$ = EachIn result
		
			Local fld:TField = tid.FindField(fname)
			If Not fld Then RuntimeError "__sleep returned field "+fname+", which could not be found in "+name
			fields.AddLast fld
			
		Next
		
	Else
	
		fields = tid.EnumFields()
		
	EndIf
	
	For Local fld:TField = EachIn fields
	
		Local fname$ = fld.Name()
		str :+ "<"+fname+">"
	
		Select fld.TypeId()
		
			Case ByteTypeId, ShortTypeId, IntTypeId
			
				str :+ fld.GetInt(o)
				
			Case LongTypeId
			
				str :+ fld.GetLong(o)

			Case FloatTypeId
			
				str :+ fld.GetFloat(o)
				
			Case DoubleTypeId
			
				str :+ fld.GetDouble(o)
				
			Case StringTypeId
			
				str :+ XMLEntities(fld.GetString(o))

			Default
			
				str :+ ConvertObject(fld.Get(o))
				
		End Select
		str :+ "</"+fname+">"
		
	Next
	
	Return str
	
End Function

Function ObjectToXML$(o:Object)

	Local tid:TTypeId = TTypeId.ForObject(o)
	Local name$ = tid.Name()

	Return "<"+name+">"+ConvertObject(o)+"</"+name+">"
	
End Function

Function ConvertXML:Object(markup$, tid:TTypeId)

	DebugLog "ConvertXML: "+markup+" ["+tid.Name()+"]"

	If markup.Trim().ToLower() = "null" Then Return Null
	
	Local o:Object = tid.NewObject()
	Repeat
	
		markup = markup.Trim()
		If markup = "" Then Exit
		If markup[0] <> Asc("<") Then RuntimeError "Error in XML Setup"
		Local pos:Int = markup.Find(">")
		If pos = -1 Then RuntimeError "Error in XML Setup"
		Local name$ = markup[1..pos]
		If Not name Then RuntimeError "Error in XML Setup"
		Local fld:TField = tid.FindField(name)
		If Not fld Then RuntimeError "Referring to unknown field "+name+" of type "+tid.Name()
		Local open:Int = 1
		Local start:Int = pos+1
		pos = 0
		Repeat
		
			pos = markup.Find("<", pos+1)
			If pos = -1 Or pos = markup.length-1 Then RuntimeError "Error in XML Setup"
			If markup[pos+1] = Asc("/") Then
			
				open :- 1
				
			Else
			
				open :+ 1
				
			EndIf
			
		Until open = 0
		Local slice$ = markup[pos+2..pos+2+name.length]
		If slice <> name Then RuntimeError "Error in XML Setup"
		Local innerMarkup$ = markup[start..pos]
		Select fld.TypeId()
		
			Case ByteTypeId, ShortTypeId, IntTypeId
			
				fld.SetInt o, Int(innerMarkup)
				
			Case LongTypeId
			
				fld.SetLong o, Long(innerMarkup)
				
			Case FloatTypeId
			
				fld.SetFloat o, Float(innerMarkup)
				
			Case DoubleTypeId
			
				fld.SetFloat o, Double(innerMarkup)
				
			Case StringTypeId
			
				fld.SetString o, XMLRemoveEntities(innerMarkup)
				
			Default
			
				fld.Set o, ConvertXML(innerMarkup, fld.TypeId())
				
		End Select
		markup = markup[pos+3+name.length..]
	
	Forever
	Local wmth:TMethod = tid.FindMethod("__wakeup")
	If wmth Then
	
		wmth.Invoke(o, New Object[0])
		
	EndIf
	Return o
	
End Function

Function XMLToObject:Object(xml$)

	If Not xml.StartsWith("<") Then RuntimeError "Error in XML Markup"
	Local pos:Int = xml.Find(">")
	If pos = -1 Then RuntimeError "Error in XML Markup"
	Local name$ = xml[1..pos]
	If Not name Then RuntimeError "Error in XML Setup"
	Local tid:TTypeId = TTypeId.ForName(name)
	If Not tid Then RuntimeError "Could not find Type "+name
	If Not xml.EndsWith("</"+name+">") Then RuntimeError "Error in XML Markup"
	Local innerMarkup$ = xml[pos+1..xml.length-name.length-3]
	Return ConvertXML(innerMarkup, tid)
	
End Function

Function XMLEntities$(str$)
  str = Replace(str, "&" , "&" )
  str = Replace(str, "<" , "&lt;"  )
  str = Replace(str, ">" , "&gt;"  )
  str = Replace(str, "~q", "&quot;")
  Return str
End Function

Function XMLRemoveEntities$(str$)
  str = Replace(str, "&lt;"  , "<" )
  str = Replace(str, "&gt;"  , ">" )
  str = Replace(str, "&quot;", "~q")
  str = Replace(str, "&amp;" , "&" )
  Return str
End Function