1bc
@verb #1112:"parse_unit" this none this rxdo #60
@program #1112:"parse_unit" this none this
{unit} = args
if (m = match(unit, "met%(er%)$"))
  "convert 'meter' into 'metre', which is how all our units are written.. for some reason."
  unit[m[3][1][1]..m[3][1][2]] = "re"
endif
for y in (this.units)
  if (unit in y[2])
    return unit
  endif
endfor
return 0
"Last modified by Lao-Tzu (#8084) on Mon Jan 14 15:29:26 2002 MST."
.

0