Hello world/Web server: Difference between revisions
Content added Content deleted
(add Mathematica) |
|||
Line 1,045: | Line 1,045: | ||
The task becomes simply .. |
The task becomes simply .. |
||
<lang lb>print "hello world!" </lang> |
<lang lb>print "hello world!" </lang> |
||
=={{header|Mathematica}}== |
|||
<lang Mathematica>listener = |
|||
SocketListen["127.0.0.1:8080", |
|||
Function[{assoc}, |
|||
With[{client = assoc["SourceSocket"]}, |
|||
WriteString[client, |
|||
"HTTP/1.0 200 OK\nContent-Length: 16\n\nGoodbye, World!\n"]; |
|||
Close[client]]]] |
|||
SystemOpen["http://127.0.0.1:8080"]</lang> |
|||
Clean up: |
|||
<lang Mathematica>DeleteObject[listener]; |
|||
Close[listener["Socket"]]</lang> |
|||
=={{header|Modula-2}}== |
=={{header|Modula-2}}== |