---

zsend.vtc

Go to the documentation of this file.

/* -*- C -*- */
Tzoutgoing ?:= new_assoc();
/*?
struct Tzoutgoing
{
  class;
  instance;
  recip;
  opcode;
  body;
  sig;
  sender;
};
?*/

func new_zoutgoing() [zout]
{
  zout = alloc(10, Tzoutgoing);
  zout->class = 0;
  zout->instance = 0;
  zout->recip = 0;
  zout->opcode = 0;
  zout->body = 0;
  zout->sig = 0;
  zout->sender = 0;
  return zout;
}

func zout_send(zout)
{
  (*zout->sender)(zout);
}

func zout_std_args(zout) [args, pos]
{
  args = " -n";
  if (zout->class && *zout->class)
    args += " -c " + sh_quote(zout->class);
  if (zout->instance && *zout->instance)
    args += " -i " + sh_quote(zout->instance);
  if (zout->opcode && *zout->opcode)
    args += " -O " + sh_quote(zout->opcode);
  if (zout->recip && *zout->recip)
  {
    /* If there are commas in the recipient, deal specially. */
    if (strchr(zout->recip, ','))
    {
      args += " -C";
      while (pos = strrchr(zout->recip, ','))
      {
        args += " " + sh_quote(pos + 1);
        *pos = '\0';
      }
      args += " " + sh_quote(zout->recip);
    }
    else
      args += " " + sh_quote(zout->recip);
  }
  if (zout->sig && *zout->sig)
    args += " -s " + sh_quote(zout->sig);
  return args;
}

---