362
@verb #51:"parse_number" this none this rxdo #60
@program #51:"parse_number" this none this
"parse_number(who,string,before)   interprets string as a line number.  In the event that string is `.', `before' tells us which line to use.  Return 0 if string is bogus."
if (!(corrupt = this:ok(who = args[1])))
  return corrupt
endif
last = length(this.texts[who])
ins = this.inserting[who] - 1
string = args[2]
after = !args[3]
if (!string)
  return 0
elseif ("." == string)
  return ins + after
elseif (!(i = index("_^$", string[slen = length(string)])))
  return toint(string)
else
  start = {ins + 1, ins, last + 1}[i]
  n = 1
  if (slen > 1 && !(n = toint(string[1..slen - 1])))
    return 0
  elseif (i % 2)
    return start - n
  else
    return start + n
  endif
endif
"Last modified by Dax (#789) on Tue May  3 14:09:30 2005 MDT."
.

0