feedsdata = {}
;č na klíče je třeba dávat bacha
;č 1. serializator je dává do dolního registru
;č 2. HaveItem je podvodná funkce, která sere na registr
;č 3. takže budeme muset srát na registr i my.
;č 4. URLy v feedsdata budeme převadět do dolního registru, 
;č    takže budou možné kolize. Pořád je to lepší jak 
;č    převádět do dolního všechno, 
;č    nebo používat nějaké hešy pro indexy feedsdata   
;č 5. Metametody nechcu, bude je volat i deserializator. 
;č    Ne pro nej to dělám.
;č 6. Meta- a vázané metody se uloží spolu s tabulkou,
;č    můžou být pak zbytečné potíže s aktualizací


Function fd_Get(feedid$, key)
	feedid$ = LowerStr(feedid$)
	Local t = RawGet(feedsdata, feedid$)
	If GetType(t) = #TABLE Then Return(RawGet(t, key))
	Return(Nil)
EndFunction 

Function fd_Set(feedid$, key, value)
	feedid$ = LowerStr(feedid$)
	Local t = RawGet(feedsdata, feedid$)
	If GetType(t) <> #TABLE 
		t = {}
		feedsdata[feedid$] = t
	EndIf
	RawSet(t, key, value)
EndFunction 

;udm kudžem byrjem pajmíško...
Function fd_isEqualOrSet(feedid$, key, value)
	feedid$ = LowerStr(feedid$)
	Local t = RawGet(feedsdata, feedid$)
	If GetType(t) <> #TABLE 
		t = {}
		feedsdata[feedid$] = t
	EndIf
		
	If RawGet(t, key) = value Then Return(True)
	;č nic? 
	RawSet(t, key, value)
	Return(False)
EndFunction 

/* ;easy to understand, but so elegant  
Function feedsdata:CheckAndSet(feedid$, key, value)
	If HaveItem(self, feedid$)
		Local t = self[feedid$]
		If RawGet(t, key) = value
			Return(False)
		Else
			RawSet(t, key, value)
			Return(True)
		Endif 
	EndIf 
	
	self[feedid$] = {}
	RawSet(self[feedid$], key, value)
EndFunction 
*/