383
@verb #8045:"linesplit" this none this rd #8045
@program #8045:"linesplit" this none this
"Copied from Cecil (#7407):linesplit Jan  6 21:54:28 1997"
"Copied from Generic player (#6):linesplit by Slacker (#2) Jan  5 17:42:29 1997"
":linesplit(line,len) => list of substrings of line"
"used by :notify to split up long lines if .linelength>0"
{line, len} = args
cline = {}
while ($ansi_utils:length(line) > len)
  cutoff = rindex((aline = $ansi_utils:strip_codes(line))[1..len], " ")
  if (nospace = cutoff < 4 * len / 5)
    cutoff = len + 1
    nospace = aline[cutoff] != " "
  endif
  cutoff = cutoff + $ansi_utils:extra_space(line[1..cutoff])
  cline = {@cline, line[1..cutoff - 1]}
  line = (nospace ? " " | "") + line[cutoff..length(line)]
  $command_utils:suspend_if_needed()
endwhile
return {@cline, line}
"Last modified by Dax (#789) on Thu Jul  9 17:30:42 1998 EDT."
.

0