A-M baby

Task/Hello-world-Web-server/J/hello-world-web-server-1.j

@@ -0,0 +1 @@
+'Goodbye, World!'

Task/Hello-world-Web-server/J/hello-world-web-server-2.j

@@ -0,0 +1,27 @@
+hello=: verb define
+ 8080 hello y NB. try to use port 8080 by default
+:
+ port=: x
+ require 'socket'
+ coinsert 'jsocket'
+ sdclose ; sdcheck sdgetsockets ''
+ server=: {. ; sdcheck sdsocket ''
+ sdcheck sdbind server; AF_INET; ''; port
+ sdcheck sdlisten server, 1
+ while. 1 do.
+  while.
+    server e. ready=: >{. sdcheck sdselect (sdcheck sdgetsockets ''),'';'';<1e3
+  do.
+    sdcheck sdaccept server
+  end.
+  for_socket. ready do.
+   request=: ; sdcheck sdrecv socket, 65536 0
+   sdcheck (socket responseFor request) sdsend socket, 0
+   sdcheck sdclose socket
+  end.
+ end.
+)
+
+responseFor=: dyad define
+ 'HTTP/1.0 200 OK',CRLF,'Content-Type: text/plain',CRLF,CRLF,'Goodbye, World!',CRLF
+)

Task/Hello-world-Web-server/J/hello-world-web-server-3.j

@@ -0,0 +1 @@
+hello''