Echo server: Difference between revisions
Content added Content deleted
(Added BaCon version.) |
|||
Line 457: | Line 457: | ||
ExitApp</lang> |
ExitApp</lang> |
||
A [[/AutoHotkey Client|client]] is also available for testing this code. |
A [[/AutoHotkey Client|client]] is also available for testing this code. |
||
=={{header|BaCon}}== |
|||
SIGNAL SIG_IGN, SIGCHLD |
|||
WHILE TRUE |
|||
OPEN "localhost:12321" FOR SERVER AS echo |
|||
PRINT "Incoming connection from: ", GETPEER$(echo) |
|||
spawn = FORK |
|||
IF spawn = 0 THEN |
|||
REPEAT |
|||
RECEIVE data$ FROM echo |
|||
UNTIL RIGHT$(data$, 1) = NL$ |
|||
SEND data$ & CR$ & NL$ TO echo |
|||
CLOSE SERVER echo |
|||
ENDFORK |
|||
ELIF spawn > 0 THEN |
|||
CLOSE SERVER echo |
|||
ENDIF |
|||
WEND |
|||
Input from other terminal: |
|||
<pre># echo "Hello world" | netcat 127.0.0.1 12321 |
|||
Hello world |
|||
# echo "Hello world" | netcat 127.0.0.1 12321 |
|||
Hello world |
|||
# echo "Hello world" | netcat 127.0.0.1 12321 |
|||
Hello world |
|||
# echo "Hello world" | netcat 127.0.0.1 12321 |
|||
Hello world</pre> |
|||
Output: |
|||
<pre>Incoming connection from: 127.0.0.1:36778 |
|||
Incoming connection from: 127.0.0.1:36780 |
|||
Incoming connection from: 127.0.0.1:36782 |
|||
Incoming connection from: 127.0.0.1:36784</pre> |
|||
=={{header|BBC BASIC}}== |
=={{header|BBC BASIC}}== |