462
@verb #49:"parse_invoke" this none this rxdo #60
@program #49:"parse_invoke" this none this
":parse_invoke(string,verb)"
" string is the actual commandline string indicating what we are to edit"
" verb is the command verb that is attempting to invoke the editor"
if (!(string = args[1]))
  player:tell({"Usage:  " + args[2] + " <note>   (where <note> is some note object)", "        " + args[2] + "          (continues editing an unsaved note)"})
elseif (1 == (note = this:note_match_failed(string)))
elseif ($ERR == typeof(text = this:note_text(note)))
  player:tell("Couldn't retrieve text:  ", text)
else
  for on in [1..length(this.objects)]
    if (this.objects[on] == note && this.active[on] != player)
      player:tell("Sharing violation!")
      player:tell("The requested text is being edited by ", this.active[on].name, ".  Please wait until ", $gender_utils:pronoun(this.active[on], "ps"), " finishes.  This MOO doesn't support CVS yet.")
      return 0
    endif
  endfor
  return {note, text}
endif
return 0
"Last modified by Dax (#789) on Tue May  3 15:38:52 2005 MDT."
.

0