493
@verb #340:"commit" this none this rxdo #7214
@program #340:"commit" this none this
c = this:_open_connection()
log_entry = $command_utils:read("a log entry for your changes (viewable later with @cvs log)")
this:_send_line(c, "Argument -m ", log_entry)
for o in (this.objects)
  name = this:get_name_for_object(o)
  this:_send_line(c, "Directory .")
  this:_send_line(c, tostr(this.CVSROOT[3], "/", this.repository, "/", name))
  {_o, @encnames} = this:parse_spec(tostr(o))
  for encname in (encnames)
    if (e = this:_get_entry(encname))
      {lcontents, contents} = this:_contents(o, encname)
      if (value_hash(contents) != e[rindex(e, "/") + 1..$])
        this:_send_line(c, "Argument ", encname)
        this:_send_line(c, "Entry ", e)
        this:_send_line(c, "Modified ", encname)
        this:_send_line(c, "u=rw,g=r,o=r")
        this:_send_line(c, tostr(lcontents))
        for x in (contents)
          this:_send_line(c, x)
        endfor
      endif
    endif
  endfor
endfor
this:_send_line(c, "ci")
this:_handle_response(c)
this:_close_connection(c)
"Last modified by manta (#7165) on Thu May  4 20:33:01 2000 MDT."
.

0