View/Edit #8689:send_parcel

Name(s): send_parcel

1:  {to, tport, data} = args
2:  if (!(id = to in $list_utils:slice(this.routes, 1)) && to != "bcast")
3:    return E_INVARG
4:  endif
5:  parcel = "@@ " + toliteral({$network.moo_name, task_id(), to, tport, random(), data})
6:  if (to != "bcast")
7:    notify(this:match(this.routes[id][2]), parcel)
8:  else
9:    for moo in (children(this))
10:     notify(moo, parcel)
11:     suspend(0)
12:   endfor
13: endif
14: return 1
15: "Last modified by {list} (#9895) on Mon Jul  9 15:40:49 2001 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: {list} (#9895)

You are not logged in.