Events: Difference between revisions
Content added Content deleted
m (→{{header|Perl 6}}: use perl6 syntax highlighting) |
(Add Nimrod) |
||
Line 458: | Line 458: | ||
<lang Mathematica>Print["Will exit in 4 seconds"]; Pause[4]; Quit[] |
<lang Mathematica>Print["Will exit in 4 seconds"]; Pause[4]; Quit[] |
||
->Will exit in 4 seconds</lang> |
->Will exit in 4 seconds</lang> |
||
=={{header|Nimrod}}== |
|||
{{trans|C}} |
|||
<lang nimrod>import posix |
|||
var p: array[2, cint] |
|||
discard pipe p |
|||
if fork() > 0: |
|||
discard close p[0] |
|||
discard sleep 1 |
|||
discard p[1].write(addr p[0], 1) |
|||
var x: cint = 0 |
|||
discard wait x |
|||
else: |
|||
discard close p[1] |
|||
discard p[0].read(addr p[1], 1) |
|||
echo "received signal from pipe"</lang> |
|||
=={{header|Oz}}== |
=={{header|Oz}}== |