Hello world/Web server: Difference between revisions
Content added Content deleted
m (→{{header|R}}) |
(Added Pike implementation) |
||
Line 1,465: | Line 1,465: | ||
Start server: |
Start server: |
||
<pre>$ pil @lib/http.l @lib/xhtml.l -'server 8080 "goodbye.l"' -wait</pre> |
<pre>$ pil @lib/http.l @lib/xhtml.l -'server 8080 "goodbye.l"' -wait</pre> |
||
=={{header|Pike}}== |
|||
<lang Pike> |
|||
void handle_request(Protocols.HTTP.Server.Request request) |
|||
{ |
|||
request->response_and_finish( ([ "data":"Goodbye, World!", |
|||
"type":"text/html" ]) ); |
|||
} |
|||
int main() |
|||
{ |
|||
Protocols.HTTP.Server.Port(handle_request, 8080); |
|||
return -1; // -1 is a special case that retirns control to the backend |
|||
} |
|||
</lang> |
|||
=={{header|Prolog}}== |
=={{header|Prolog}}== |