'
' Code (C) by T.F.Temucin alias TFT
'

Import mojo

'___________________________________ FileIO Class _____________________________________
'
' 	InitFileIO() muss bei OnCreate() aufgerufen werden

Function InitFileIO()
	New FileIO()
End

'-------------------------------------------------------------------------------------
'Funktions Aufrufe erzeugen um sie ausserhalb der Classe aufrufen zu können.

Function FileAddValue(Key:String,Value:String)
	FileIO.FileIOC.AddValue(Key,Value)
	Return 0
End

Function FileGetValue:String(Key:String)
	Return FileIO.FileIOC.GetValue(Key)
End

Class FileIO
	

	Global FileIOC:FileIO
	
	Method New()
	
		' der zeiger auf sich selbst wird für aufrufe aus Functionen heraus benötigt
		FileIOC = Self
		OnCreate()
		
	End
	
	Method OnCreate:VOID()
		
		'SaveState("") ' löscht die system Info ( Cooki )
		
		If LoadState.Length()<4
			SaveState("System=NULL~n")
		EndIf
		
		'Print "OnCreate"
		
		'Print "Add System Test"
		Add("Game","MauMau")
		Print "Finde Game "+Get("Game")
		
		'Print "Add System2 Test"
		Add("NickName","Gustaffo")
		Print "Finde NickName "+Get("NickName")					

		Add("EMail","Manfred.Mustermann@hotmail.com")
		Print "Finde EMail "+Get("EMail")	

		Add("Key","sedr-vvfd-sder-frtd-ddse")
		Print "Finde Key "+Get("Key")						

	End
	
	Method Delete( Key:String )
		
		'Print "DEL:Len = "+LoadState.Length()
		If LoadState.Length() >3
			Local newsystemlist:String
			Local systemList:String[] = LoadState.Split("~n")
			For Local sl:String = EachIn systemList
				If sl.Length()>0
					'Print "System Entry <"+sl+"> "+sl.Length()
					Local sp:String[] = sl.Split("=")
					If sp[0] = Key
						sl = ""
					Else
						newsystemlist += sl+"~n"
					EndIf
				Else
					'Print "System Entry < NULL > "
				EndIf
			Next
			SaveState(newsystemlist)
		EndIf
	
	End
	
	Method Add(Key:String,Value:String)
		Delete(Key)
		Local newsystemlist:String = LoadState() + Key+"="+Value+"~n"
		SaveState(newsystemlist)
	End
	
	Method Get:String(Key:String)
		
		If LoadState.Length() >3
			
			Local systemList:String[] = LoadState.Split("~n")
			For Local sl:String = EachIn systemList
				Local sp:String[] = sl.Split("=")
				If sp[0] = Key
					Return sp[1]
				EndIf
			Next
			'Print "SystemKey not found"
			
		Else
			'Print "SystemList empty"
		EndIf
		Return ""
	End
	
End