438
@verb #340:"add" this none this rxdo #7214
@program #340:"add" this none this
caller == this || $perm_utils:controls(caller_perms(), this) || raise(E_PERM)
{object, name} = args
if (!$perm_utils:controls(this.owner, object))
  raise(E_PERM, "You can only add objects you control to a module")
elseif (object in this.objects)
  raise(E_INVARG, "Object is already part of the module!")
endif
add_property(object, "module", this, {this.owner, "r"})
add_property(this, name, object, {this.owner, "r"})
this.objects = {@this.objects, object}
encname = this:_trans_to(name)
c = this:_open_connection()
this:_send_line(c, "Argument ", encname)
this:_send_line(c, "Directory ", encname)
this:_send_line(c, this.CVSROOT[2], "/", this.repository, "/", encname)
this:_send_line(c, "Directory .")
this:_send_line(c, tostr(this.CVSROOT[2], "/", this.repository))
this:_send_line(c, "add")
this:_handle_response(c)
this:_close_connection()
this.entries = {@this.entries, tostr("D/", encname, "////")}
"Last modified by manta (#7165) on Sun May  7 15:35:24 2000 MDT."
.

0