@verb #555:"trimwhite" this none this rxdo #60
@program #555:"trimwhite" this none this
"Returns the text after removing any whitespace from the top or bottom."
":trimwhite({'', ' ', 'first ', '', ' last', ''}) => {'first ', '', ' last'}"
{text} = args
while (text && !(text[1] && $string_utils:trimr(text[1])))
  text = listdelete(text, 1)
endwhile
while (text && !(text[$] && $string_utils:trimr(text[$])))
  text = listdelete(text, length(text))
endwhile
return text
"Last modified by Dax (#789) on Wed Jan 16 22:37:26 2002 MST."
.