Anonymous user
Synchronous concurrency: Difference between revisions
Added coroutine-version
m (Added comment for two synchronous tasks) |
(Added coroutine-version) |
||
Line 788:
=={{header|PicoLisp}}==
PicoLisp has no threads, but synchronous background tasks and asynchronous
signal handlers, or coroutines.
===Using background tasks and signals===
The following two tasks communicate via UDP, so in fact they don't need to run
within the same process and not even the same machine. "input.txt" would rather
Line 816 ⟶ 817:
If the two cases of 'sigio' in the printing task are replaced with 'task',
that task would also be synchronous. The resulting behavior is the same.
===Using coroutines===
Coroutines are available only in the 64-bit version.
<lang PicoLisp>(co 'unit1
(yield) # Allow 'unit2' to start
(in "input.txt" # Read the file
(while (line T) # Send each line
(yield @ 'unit2) ) ) # to 'unit2'
(prinl
(yield NIL 'unit2) # Send 'NIL' for "Done", receive count
" lines" ) )
(co 'unit2
(let Cnt 0 # Init counter
(while (yield NIL 'unit1) # Receive line
(println @) # Print it
(inc 'Cnt) ) # Increment count
(yield Cnt 'unit1) ) ) # Send count to 'unit1'</lang>
=={{header|Python}}==
| |||