@verb #3425:"lambda_string_utils_left" this none this rxd #3425
@program #3425:"lambda_string_utils_left" this none this
{text, len, ?fill = " "} = args
abslen = abs(len)
out = tostr(text)
outlen = $msg:string_length(out)
if (outlen < abslen)
  "shorter than required length, add fill"
  return out + $string_utils:space(outlen - abslen, fill)
elseif (len <= 0)
  "negative length means we want to truncate when the text is longer than abs(len)"
  return $string_utils:slice_tagged(out, abslen)
else
  "otherwise leave the string untouched"
  return out
endif
"Last modified by Janus (#3425) on Mon Dec  4 12:18:17 2000 MST."
.