55a
@verb #51:"here_huh" this none this rxdo #60
@program #51:"here_huh" this none this
"This catches subst and find commands that don't fit into the usual model, e.g., s/.../.../ without the space after the s, and find commands without the verb `find'.  Still behaves in annoying ways (e.g., loses if the search string contains multiple whitespace), but better than before."
if (caller != this && caller_perms() != player)
  return E_PERM
endif
{verb, args} = args
"the input_get_raw transformation is done in :subst (and :find, :regexp_subst) rather than here, because otherwise it could happen twice (once here, and once in the other verb)."
"verb = player:input_get_raw(verb);"
"args = $list_utils:map_arg(player, \"input_get_raw\", args);"
v = 1
vmax = min(length(verb), 5)
while (v <= vmax && (verb[v] == "subst"[v] || verb[v] == "regexp_subst"[v]))
  v = v + 1
endwhile
argstr = $code_utils:argstr(verb, args)
if (v > 1 && (v <= length(verb) && ((vl = verb[v]) < "A" || vl > "Z")))
  argstr = verb[v..length(verb)] + (argstr && " ") + argstr
  if (verb[1] == "s")
    this:subst()
  elseif (verb[1] == "r")
    this:regexp_subst()
  endif
  return 1
elseif ("/" == verb[1])
  argstr = verb + (argstr && " ") + argstr
  this:find()
  return 1
else
  return 0
endif
"Last modified by Lao-Tzu (#8084) on Mon Dec 10 06:12:17 2001 MST."
.

0