SuperStrict

Const _int:Byte = 255
Const _String:Byte = 254
Const _Byte:Byte = 253
Const _Short:Byte = 252
Const _minInt:Int = 2 ^ 32
Const _maxInt:Int = Abs(_minInt)
Print _minInt

Local clientSocket:TSocket = CreateUDPSocket()
Local serverSocket:TSocket = CreateUDPSocket()

Print DottedIP(HostIp("localhost"))

clientSocket.Bind(8000)
serverSocket.Bind(8001)
clientSocket.Connect(HostIp("localhost") , 8001)


Local clientStream:TSocketStream = CreateSocketStream(clientSocket)


Local puffer:TStreamPuffer = New TStreamPuffer

puffer.WriteByte(200)
puffer.WriteString("omg wtf bbq? 32434234234wefddsfasdfasdgahfdhsgjkhfkajrfhwekrhewjkcvhdfsgjkawhertjkwehriuewheiurzh3245h32riueh8937rz9e8rz23h9r2h398")
puffer.Send(clientStream)


Local serverStream:TSocketStream = CreateSocketStream(serverSocket)

Local bufferLen:Int = serverStream.ReadInt()
Local buffer:Byte[] = New Byte[bufferLen]
serverStream.Read(Varptr(buffer[0]), bufferLen)
Print "okay?"
TStreamPuffer.DebugPrintPuffer(buffer)

serverStream.Close()
clientStream.Close()
serverSocket.Close()
clientSocket.Close()

Local by:Byte[] = [Byte(55), Byte(66), Byte(77), Byte(88)]
Print Byte2Int(Int2Bytes(1337))

Type TStreamPuffer
	Field data:String = ""
	
	Method WriteInt(zahl:Int)
		Self.data:+Chr(_int) + IntToString(zahl)
	End Method
	
	Method WriteString(str:String)
		Self.data:+Chr(_String) + IntToString(Len(str)) + str
	End Method
	
	Method WriteByte(zahl:Byte)
		Self.data:+Chr(_Byte) + Chr(zahl)
	End Method
	
	Method Send(StreamTo:TSocketStream)
		Print "Data: " + Self.data
		StreamTo.WriteInt(Len(Self.data))
		StreamTo.Write(Self.data.ToCString(), Len(Self.data))
		
		Print "Daten senden abgeschlossen. Gesendete Bytes: " + Len(Self.data)
	End Method
		
	Method IntToString:String(zahl:Int)
		Return Chr((zahl & 255) Shl 24) + Chr((zahl & 255) Shl 16) + Chr((zahl & 255) Shl 8) + Chr((zahl & 255))
	End Method
	
	Function DebugPrintPuffer(data:Byte[])
		Local dataPos:Int = 0
		
		While dataPos < Len(data)
			Print "DATAPOS: " + dataPos
			Select data[dataPos]
				Case _int
					Print "INTEGER: " + Byte2Int(data[dataPos + 1..dataPos + 5])
					dataPos:+5
				Case _String
					Local laenge:Int = Byte2Int(data[dataPos + 1..datapos + 5]) + 1
					Print "STRING LAENGE: " + laenge
					dataPos:+4
					Print "STRING: " + String.FromBytes(Varptr(data[dataPos]), laenge)
					dataPos:+laenge
				Case _Byte
					Print "BYTE: " + data[dataPos + 1]
					dataPos:+1
				Default
					Print "nix? :( " + dataPos
				End Select
				dataPos:+1
		Wend
	End Function
End Type

Function Int2Bytes:Byte[] (zahl:Int)
	Return[Byte(zahl Shr 24), Byte((zahl Shr 16) & 255), Byte((zahl Shr 8) & 255), Byte(zahl & 255)]
End Function

Function Byte2Int:Int(zahl:Byte[])
	Return Byte(zahl[0] Shl 24) | Byte((zahl[1] Shl 16) & 255) | Byte((zahl[2] Shl 8) & 255) | Byte(zahl[3] & 255)
End Function