Anonymous user
Events: Difference between revisions
Add Nimrod
m (→{{header|Perl 6}}: use perl6 syntax highlighting) |
(Add Nimrod) |
||
Line 458:
<lang Mathematica>Print["Will exit in 4 seconds"]; Pause[4]; Quit[]
->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}}==
|