Const DC_TYPE_CNTR:Byte = %00000000	'0
Const DC_TYPE_BANK:Byte = %00000001	'1
Const DC_TYPE_BYTE:Byte = %00000010	'2
Const DC_TYPE_SHRT:Byte = %00000011	'3
Const DC_TYPE_INTE:Byte = %00000100	'4
Const DC_TYPE_FLOT:Byte = %00000101	'5
Const DC_TYPE_DBLE:Byte = %00000110	'6
Const DC_TYPE_STNG:Byte = %00000111	'7
Const DC_TYPE_CMMT:Byte = %00001000	'8
Const DC_FRMT_CNTR_OPEN:Byte = %11111110
Const DC_FRMT_CNTR_CLSE:Byte = %11111111

?Debug
Global _DebugDepth:String = ""
?
Type DCContainer
	'Members
	Field m_Parent:DCContainer
	Field m_Name:String
	Field m_Type:Byte
	Field m_Data:Object
	
	'Con/Decon
	Method New()
	End Method
	Method Destroy()
		If m_Type = DC_TYPE_CNTR
			For Local dcData:DCContainer = EachIn TList(m_Data)
				dcData.Destroy()
			Next
			TList(m_Data).clear()
		End If
		m_Name = Null
		m_Type = Null
		m_Data = Null
	End Method
	
	'Save/Load
	Method Save:Byte(File:String)
		If m_Type = DC_TYPE_CNTR And m_Parent = Null
			Local fStream:TStream = WriteFile(File)
			If fStream
				?Debug
				_DebugDepth = ""
				DebugLog _DebugDepth + "Saving to File '" + File + "'..."
				_DebugDepth = "  "
				?
				Self.Write(fStream)
				CloseFile(fStream)
				?Debug
				_DebugDepth = ""
				DebugLog _DebugDepth + "Done!"
				?
				Return True
			Else
				Return False
			EndIf
		Else
			Return False
		End If
	End Method
	
	'Private Write
	Method Write(fStream:TStream)
		Select m_Type
			Case DC_TYPE_CNTR
				?Debug
				DebugLog _DebugDepth + "Writing Container '" + m_Name + "'..."
				_DebugDepth = _DebugDepth + "  "
				?
				fStream.WriteByte(DC_TYPE_CNTR)
				fStream.WriteString(m_Name)
				fStream.WriteByte(DC_FRMT_CNTR_OPEN)
				For Local dcData:DCContainer = EachIn TList(m_Data)
					dcData.Write(fStream)
				Next
				fStream.WriteByte(DC_FRMT_CNTR_CLSE)
				
				?Debug
				_DebugDepth = _DebugDepth[0.._DebugDepth.Length - 2]
				DebugLog _DebugDepth + "Wrote Container '" + m_Name + "'."
				?
			Case DC_TYPE_BANK
				?Debug
				DebugLog _DebugDepth + "Writing Bank '" + m_Name + "' with " + TBank(m_Data).Size() + "b Size..."
				?
				fStream.WriteByte(DC_TYPE_BANK)
				fStream.WriteString(m_Name)
				fStream.WriteInt(TBank(m_Data).Size())
				fStream.Write(TBank(m_Data).Buf(), TBank(m_Data).Size())
			Case DC_TYPE_STNG
				?Debug
				DebugLog _DebugDepth + "Writing String '" + m_Name + "': " + String(m_Data) + "..."
				fStream.WriteByte(DC_TYPE_BYTE)
				fStream.WriteString(m_Name)
				fStream.WriteString(String(m_Data))
				?
		End Select
	End Method
End Type

Function DC_CreateContainer:DCContainer(Parent:DCContainer, Name:String)
	If Parent = Null Or Parent.m_Type = DC_TYPE_CNTR
		Local DC:DCContainer = New DCContainer
		DC.m_Name = Name
		DC.m_Type = DC_TYPE_CNTR
		DC.m_Data = New TList
		DC.m_Parent = Parent
		If DC.m_Parent <> Null
			 TList(DC.m_Parent.m_Data).AddLast(DC)
		EndIf
		Return DC
	EndIf
	Return Null
End Function
Function DC_CreateBank:DCContainer(Parent:DCContainer, Name:String, Bank:TBank)
	If Parent <> Null Or Parent.m_Type = DC_TYPE_CNTR
		Local DC:DCContainer = New DCContainer
		DC.m_Name = Name
		DC.m_Type = DC_TYPE_BANK
		DC.m_Data = Bank
		DC.m_Parent = Parent
		If DC.m_Parent <> Null
			 TList(DC.m_Parent.m_Data).AddLast(DC)
		EndIf
		Return DC
	End If
	Return Null
End Function
Function DC_CreateString:DCContainer(Parent:DCContainer, Name:String, Data:String)
	If Parent <> Null Or Parent.m_Type = DC_TYPE_CNTR
		Local DC:DCContainer = New DCContainer
		DC.m_Name = Name
		DC.m_Type = DC_TYPE_STNG
		DC.m_Data = Data
		DC.m_Parent = Parent
		If DC.m_Parent <> Null
			 TList(DC.m_Parent.m_Data).AddLast(DC)
		EndIf
		Return DC
	End If
	Return Null
End Function