View/Edit #8713:send

Name(s): send

1:  {animals, msg, ?data = 0} = args
2:  "set_task_perms(caller_perms());"
3:  for x in (animals)
4:    if (!x:isa($msganimal))
5:      continue
6:    endif
7:    $scheduler:run(100.0, x, "receive", {msg, data}, #9878, #9878)
8:    "fork (0)"
9:    "    x:receive(msg, data);"
10:   "  endfork"
11: endfor
12: "Last modified by Lao-Tzu (#8084) on Wed Dec  5 06:09:36 2001 MST."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: michele (#9878)

You are not logged in.