MNet - a simple networking module

LOL, I know. Ask my wife. ;)

Global isServer:Bool = True

<uses-permission android:name="android.permission.INTERNET" />
<uses-permission android:name="android.permission.ACCESS_NETWORK_STATE" />

public String Get( String url, int timeoutConnection, int timeoutSocket )
  {
    HttpURLConnection con = null;
    InputStream is = null;
    try 
    {
      URL connectToURL = new URL( url );
      con = ( HttpURLConnection )connectToURL.openConnection();
      con.setReadTimeout( timeoutSocket );
      con.setConnectTimeout( timeoutConnection );
      con.setRequestMethod( "GET" );
      con.setDoInput( true );
      // Start the query
      con.connect();
      is = con.getInputStream();
    }
    catch( IOException e )
    {
      _result = "ERR_HttpGet " + e.getMessage();
    }
    return convertStreamToString( is );
  }

Import mnet
Import mojo

Function Main()
	New Program
End

Class Program extends App

	Field server:Socket
	Field messages:List<String> = new List<String>()
	
	Method OnCreate()
		SetUpdateRate(60)
		server = New Socket()
		server.Init()
		server.CreateServer(644)
	End
	
	Method OnUpdate()
		server.UpdateServer()
		Local m:String = server.Receive()
		if m <> "" Then messages.AddLast(m)
		if KeyDown(KEY_ESCAPE)
			server.Close()
			Error("")
		End
	End
	
	Method OnRender()
		Cls()
		SetColor(255, 255, 255)
		DrawText("server", 10, 10)
		DrawText("clients: " + server.GetNumberOfClients(), 10, 30)
		DrawText("client: " + server.GetLastClient(), 10, 45)
		Local y = 65
		DrawText("Messages:", 10, y)
		For Local m:String = eachin messages
			y += 20
			DrawText(">" + m + "<", 10, y)
		Next
	End

End

Import mojo
Import mnet

Function Main()
	New Program
End

Class Program extends App

	Field connection:Socket
	
	Method OnCreate()
		SetUpdateRate(60)
		connection = New Socket()
		connection.Init()
		connection.ConnectToServer("localhost", 644)
	End
	
	Method OnUpdate()
		if KeyHit(KEY_SPACE)
			connection.SendBroadcast("broadcast")
			connection.Send("send")
		End
		if KeyDown(KEY_ESCAPE)
			connection.Close()
			Error("")
		End
	End
	
	Method OnRender()
		Cls()
		SetColor(255, 255, 255)
		DrawText("client", 10, 10)
	End

End

....
  public String convertStreamToString( InputStream is )
  {
// this line is new, java seems to handle undefined as NULL:
	if (is == null) return "ERROR no Connection";

    StringBuilder sb = new StringBuilder();
    try
    {
      BufferedReader reader = new BufferedReader( new InputStreamReader( is ) );
      String line = null;
      while( ( line = reader.readLine() ) != null )
....

MNet_Http.prototype.Get = function( url, timeoutConnection, timeoutSocket )
{
  try
  {
    var client = new XMLHttpRequest();
    client.open( "GET", url, false );
    client.send( null );
    _httpResponse = client.responseText;
    return _httpResponse;
  }
  catch( e )
  {
// this line is new. Author forgot to return something, when a error occurs:
  	return "ERROR no Connection";
  }
}