Changeset View
Changeset View
Standalone View
Standalone View
externals/cowsay/Wrap.pm.diff
- This file was added.
| *** Wrap.pm.in Thu May 22 00:21:42 1997 | |||||
| --- Wrap.pm Fri Nov 12 10:00:15 1999 | |||||
| *************** | |||||
| *** 3,9 **** | |||||
| require Exporter; | |||||
| @ISA = (Exporter); | |||||
| ! @EXPORT = qw(wrap); | |||||
| @EXPORT_OK = qw($columns); | |||||
| $VERSION = 97.011701; | |||||
| --- 3,9 ---- | |||||
| require Exporter; | |||||
| @ISA = (Exporter); | |||||
| ! @EXPORT = qw(wrap fill); | |||||
| @EXPORT_OK = qw($columns); | |||||
| $VERSION = 97.011701; | |||||
| *************** | |||||
| *** 66,71 **** | |||||
| --- 66,90 ---- | |||||
| print "-----------$r---------\n" if $debug;; | |||||
| return $r; | |||||
| + } | |||||
| + | |||||
| + ## Copied up from below. | |||||
| + sub fill | |||||
| + { | |||||
| + my ($ip, $xp, @raw) = @_; | |||||
| + my @para; | |||||
| + my $pp; | |||||
| + | |||||
| + for $pp (split(/\n\s+/, join("\n",@raw))) { | |||||
| + $pp =~ s/\s+/ /g; | |||||
| + my $x = wrap($ip, $xp, $pp); | |||||
| + push(@para, $x); | |||||
| + } | |||||
| + | |||||
| + # if paragraph_indent is the same as line_indent, | |||||
| + # separate paragraphs with blank lines | |||||
| + | |||||
| + return join ($ip eq $xp ? "\n\n" : "\n", @para); | |||||
| } | |||||
| 1; | |||||