reference: Socket examples

git-svn-id: svn://ultimatepp.org/upp/trunk@1694 f0d560ea-af0d-0410-9eb7-867de7ffcac7

reference/SocketServer/SocketServer.cpp

@@ -0,0 +1,26 @@
+#include <Web/Web.h>
+
+using namespace Upp;
+
+CONSOLE_APP_MAIN
+{
+	Socket server;
+	if(!ServerSocket(server, 3214)) {
+		Cout() << "Unable to initialize server socket!\n";
+		SetExitCode(1);
+		return;
+	}
+	Cout() << "Waiting for requests..\n";
+	for(;;) {
+		Socket s;
+		if(server.Accept(s)) {
+			String w = s.ReadUntil('\n');
+			Cout() << "Request: " << w << '\n';
+			if(w == "time")
+				s.Write(AsString(GetSysTime()));
+			else
+				s.Write(AsString(3 * atoi(~w)));
+			s.Write("\n");
+		}
+	}
+}

reference/SocketServer/SocketServer.upp

@@ -0,0 +1,12 @@
+description "Example of using server Socket - its counterpart is SocketClient\377";
+
+uses
+	Core,
+	Web;
+
+file
+	SocketServer.cpp;
+
+mainconfig
+	"" = "";
+

reference/SocketServer/init

@@ -0,0 +1,5 @@
+#ifndef _SocketServer_icpp_init_stub
+#define _SocketServer_icpp_init_stub
+#include "Core/init"
+#include "Web/init"
+#endif