Пример

AleXp 25.11.2005 10:32

@InsertSpaces[text;max_length;symbol]
##################################
# Разбивает длинные слова в тексте. Возвращает текст в котором максимальная длина каждого слова не превышает заданной длины.
#
#   ^InsertSpaces[
#	string $text;
#	int $max_length = 75;
#	string $symbol = " "
#   ]
$max_length(^max_length.int(75))
$symbol[^if((def $symbol) && (^symbol.length[] == 1)){$symbol}{ }]
$result[^text.match[(\w{$max_length,}?)][gs]{${match.1}$symbol}]
#end @InsertSpaces[]