Ooops, Wrap.pm.diff should be in there. Heh.

This commit is contained in:
tony 2000-05-29 17:55:24 +00:00
parent df9da77a6c
commit 38fed456fa
3 changed files with 52 additions and 2 deletions

View File

@ -1,6 +1,7 @@
3.03 27 May 1999
3.03 28 May 1999
- Added cows/tux.cow, as suggested by xmanoel@i.am
- Compatibility with 5.6.0, due to a change in qw().
- Renamed devil.cow to daemon.cow, since I know better. :-)
3.02 04 November 1999
- Fixed boneheaded code placement so that cowsay -l actually works.

View File

@ -3,6 +3,7 @@ INSTALL
LICENSE
MANIFEST
README
Wrap.pm.diff
install.sh
pgp_public_key.txt
cowsay
@ -14,8 +15,8 @@ cows/bud-frogs.cow
cows/bunny.cow
cows/cheese.cow
cows/cower.cow
cows/daemon.cow
cows/default.cow
cows/devil.cow
cows/dragon-and-cow.cow
cows/dragon.cow
cows/elephant-in-snake.cow
@ -50,6 +51,7 @@ cows/telebears.cow
cows/three-eyes.cow
cows/turkey.cow
cows/turtle.cow
cows/tux.cow
cows/udder.cow
cows/vader-koala.cow
cows/www.cow

47
Wrap.pm.diff Normal file
View File

@ -0,0 +1,47 @@
*** 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;