275
@verb #340:"_trans_from" this none this rxdo #7214
@program #340:"_trans_from" this none this
":trans_from(string)"
"Returns the original string passed to the :trans_to, given the transation"
{string} = args
if (index(string, "^"))
  out = ""
  state = 0
  for x in [1..length(string)]
    c = string[x]
    if (state == 1)
      out = out + (c == "^" ? "^" | this.trans_from[c in this.trans_to])
      state = 0
    elseif (c == "^")
      state = 1
    else
      out = out + c
    endif
  endfor
else
  out = string
endif
return out
"Last modified by manta (#7165) on Thu May  4 20:18:26 2000 MDT."
.

0