28b
@verb #1112:"convert" this none this rxdo #7788
@program #1112:"convert" this none this
if (!listassoc("table", callers(), 2))
  this.convert_counter = this.convert_counter + 1
endif
if (listassoc(args[2], this.units, 1) || listassoc(args[3], this.units, 1))
  raise(E_INVARG, "Invalid unit present")
endif
what = args[1]
from = args[2]
to = args[3]
for x in (this.units)
  if (to in x[2])
    totype = x in this.units
  endif
  if (from in x[2])
    fromtype = x in this.units
  endif
endfor
if (totype != fromtype)
  raise(E_INVARG, "Type of arguments are not alike.")
endif
return this:("convert_" + tostr(totype))(@args)
.

0