Hello world/Web server: Difference between revisions
Content added Content deleted
(→Tcl: Added implementation) |
|||
Line 142: | Line 142: | ||
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|Tcl}}== |
|||
<lang tcl>proc accept {chan addr port} { |
|||
while {[gets $chan] ne ""} {} |
|||
puts $chan "HTTP/1.1 200 OK\nConnection: close\nContent-Type: text/plain\n" |
|||
puts $chan "Goodbye, World!" |
|||
close $chan |
|||
} |
|||
socket -server accept 8080 |
|||
vwait forever</lang> |
|||
{{omit from|Locomotive Basic|No sockets}} |
{{omit from|Locomotive Basic|No sockets}} |