SuperStrict

Framework brl.blitz
Import brl.standardio
Import brl.retro

Local s:String="Hallo, das ist ein Test~nLOL"


Type TTest
End Type
Local t:TTest=New TTest

'StringTest
Local Stringaddr:Byte Ptr=Varptr(s)
Print "Typ: "+GetTypeName(Stringaddr)
Print "Inhalt des Strings: "+ReadMemString(Stringaddr)

Print "~n"
'TypeTest
Local Typeaddr:Byte Ptr=Varptr(t)
Print "Typ: "+GetTypeName(Typeaddr)
Print "Inhalt des Strings: "+ReadMemString(Typeaddr)

Function ReadMemString:String(addr:Byte Ptr)
	'TMPFunc
	Extern
		Function __CheckString()="bbStringFind"
	End Extern

	'Checken ob String:  = AddrOf----bbStringFind
	If Not ((Byte Ptr(Int Ptr(Int Ptr(Int Ptr(addr)[0])[0])[12]))=Byte Ptr(__CheckString)) Return "Es ist kein String"
	'
	Local l:Int=Int Ptr(Int Ptr(addr)[0])[2]
	Local sp:Byte Ptr=Byte Ptr(Int Ptr(addr)[0])
	Local str:String=""
	For Local i:Short=0 Until l*2 Step 2
		str:+Chr(sp[12+i]+sp[12+(i+1)])
	Next
	Return str
End Function

Function GetTypeName:String(addr:Byte Ptr)
	Local p:Int Ptr=Int Ptr(Int Ptr(addr)[0])
	
	Rem
	
	struct BBString{
		BBClass*	clas;			-> 0
		int		refs;				-> 1
		int		length;				-> 2
		BBChar	buf[];				-> 3+...
	};
	end rem

	Local clas:Int Ptr=Int Ptr(Byte Ptr(p[0]))
	
	
	Rem
	struct BBClass{
		//extends BBGCPool
		BBClass*	super;
		void		(*free)( BBObject *o );
		
		BBDebugScope*debug_scope;				-> 2
	
		int		instance_size;
	
		void		(*ctor)( BBObject *o );
		void		(*dtor)( BBObject *o );
		
		BBString*	(*ToString)( BBObject *x );
		int		(*Compare)( BBObject *x,BBObject *y );
		BBObject*	(*SendMessage)( BBObject *m,BBObject *s );
		void		(*_reserved1_)();
		void		(*_reserved2_)();
		void		(*_reserved3_)();
		
		void*	vfns[32];
	};
	end rem
	
	Local debug:Int Ptr=Int Ptr(Byte Ptr(clas[2]))
	
	Rem
	struct BBDebugScope{
		int				kind;
		const char		*name;
		BBDebugDecl		decls[1];
	};
	end rem
	
	Return String.fromcstring(Byte Ptr(debug[1]))
End Function