Skip to content

Commit

Permalink
initial import from tarball off http://www.nog.net/~tony/warez/cowsay…
Browse files Browse the repository at this point in the history
  • Loading branch information
schacon committed Mar 10, 2010
0 parents commit 37ab00b
Show file tree
Hide file tree
Showing 57 changed files with 1,390 additions and 0 deletions.
31 changes: 31 additions & 0 deletions ChangeLog
Original file line number Diff line number Diff line change
@@ -0,0 +1,31 @@
3.03 28 May 1999
- Added cows/tux.cow, as suggested by [email protected]
- 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.

3.01 01 November 1999
- Fixed compatibility issues between the Text::Wrap module
that changed between 5.005_02 and 5.005_03.
- Fixed tab expansion issues with Text::Tabs.

3.0 13 April 1999, released 14 August 1999
- Rewritten into Perl 5 and presented to the world.

-- Not present in CVS from here on down --

2.x Date?
- Arbitrary messages.
- Figlet support (-n).
- Line wrap length (-w).
- Multiple pre-set expressions.
- Better arg parsing loop.
- Message from stdin or command line.

1.0 Date?
- SUBJECT is VERB OBJECT

$Id: ChangeLog,v 1.4 2000/05/29 17:55:24 tony Exp $
This file is part of cowsay. (c) 1999-2000 Tony Monroe.
15 changes: 15 additions & 0 deletions INSTALL
Original file line number Diff line number Diff line change
@@ -0,0 +1,15 @@
=================
Installing cowsay
=================

If you really want to get things installed a nice and pretty way,

sh install.sh

It will ask approximately one question. If you can't answer it,
you need serious help.

If the install goes well, you can start cowing immediately! Just
be sure to read the manual page first...

$Id: INSTALL,v 1.1 1999/08/14 08:03:17 tony Exp $
36 changes: 36 additions & 0 deletions LICENSE
Original file line number Diff line number Diff line change
@@ -0,0 +1,36 @@
==============
cowsay License
==============

cowsay is distributed under the same licensing terms as Perl: the
Artistic License or the GNU General Public License. If you don't
want to track down these licenses and read them for yourself, use
the parts that I'd prefer:

(0) I wrote it and you didn't.

(1) Give credit where credit is due if you borrow the code for some
other purpose.

(2) If you have any bugfixes or suggestions, please notify me so
that I may incorporate them.

(3) If you try to make money off of cowsay, you suck.

===============
cowsay Legalese
===============

(0) Copyright (c) 1999 Tony Monroe. All rights reserved. All
lefts may or may not be reversed at my discretion.

(1) This software package can be freely redistributed or modified
under the terms described above in the "cowsay License" section
of this file.

(2) cowsay is provided "as is," with no warranties whatsoever,
expressed or implied. If you want some implied warranty about
merchantability and/or fitness for a particular purpose, you will
not find it here, because there is no such thing here.

(3) I hate legalese.
11 changes: 11 additions & 0 deletions MANIFEST
Original file line number Diff line number Diff line change
@@ -0,0 +1,11 @@
ChangeLog Changes to recent versions.
INSTALL Instructions for installing cowsay.
LICENSE The license for use and redistribution of cowsay.
MANIFEST This file.
README Read this first. Really.
Wrap.pm.diff Diff for Text/Wrap.pm.
cows/* Support files used by cowsay.
cowsay Main cowsay executable.
cowsay.1 Main cowsay manual page.
install.sh cowsay installation script.
pgp_public_key.txt Verify the signature file with this key.
38 changes: 38 additions & 0 deletions README
Original file line number Diff line number Diff line change
@@ -0,0 +1,38 @@
===========
cowsay 3.03
===========

cowsay is a configurable talking cow, written in Perl. It operates
much as the figlet program does, and it written in the same spirit
of silliness.

cowsay is actually a pretty old program. It has not really been
released before, and I am releasing it in the hope that someone
other than myself will be amused by it.

The first major version of cowsay had one cow and one message
template: $foo is $verb $bar. Not very flexible, but people managed
to do pretty interesting things with it. The second major version
scrapped many of the limitations of the first, by allowing arbitrary
messages, multiple cowfiles, and even support for cows talking in
figlet. The third version was a rewrite of the second into Perl
5, whereupon the code got a lot smaller and more manageable. :-)

If you are using Perl 5.004, you may have problems with Text::Wrap.
(Yeesh, this module changes more than it should...) I've included
a diff for the Text::Wrap (version 97.011701) that is shipped with
5.004_04; the concept is simple enough that even older Perls can
take advantage of this silly little patch; if there is a "sub fill"
in the documentation for the module, copy it to a more useful
section of that file. If not, just take "sub fill" wholesale from
the patch. Oh, and consider upgrading to 5.005_03 or later.
Please. You'll like it, I promise.

To install cowsay, consult the INSTALL file in this directory.

For the terms and conditions of use, consult the LICENSE file in
this directory.

-- Tony Monroe ([email protected])

$Id: README,v 1.3 2000/05/28 06:24:46 tony Exp $
47 changes: 47 additions & 0 deletions Wrap.pm.diff
Original file line number Diff line number Diff line change
@@ -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;
23 changes: 23 additions & 0 deletions cows/beavis.zen.cow
Original file line number Diff line number Diff line change
@@ -0,0 +1,23 @@
##
## Beavis, with Zen philosophy removed.
##
$the_cow = <<EOC;
$thoughts __------~~-,
$thoughts ,' ,
/ \\
/ :
| '
| |
| |
| _-- |
_| =-. .-. ||
o|/o/ _. |
/ ~ \\ |
(____\@) ___~ |
|_===~~~.` |
_______.--~ |
\\________ |
\\ |
__/-___-- -__
/ _ \\
EOC
16 changes: 16 additions & 0 deletions cows/bong.cow
Original file line number Diff line number Diff line change
@@ -0,0 +1,16 @@
##
## A cow with a bong, from [email protected]
##
$the_cow = <<EOC;
$thoughts
$thoughts
^__^
_______/($eyes)
/\\/( /(__)
| W----|| |~|
|| || |~| ~~
|~| ~
|_| o
|#|/
_+#+_
EOC
12 changes: 12 additions & 0 deletions cows/bud-frogs.cow
Original file line number Diff line number Diff line change
@@ -0,0 +1,12 @@
##
## The Budweiser frogs
##
$the_cow = <<EOC;
$thoughts
$thoughts
oO)-. .-(Oo
/__ _\\ /_ __\\
\\ \\( | ()~() | )/ /
\\__|\\ | (-___-) | /|__/
' '--' ==`-'== '--' '
EOC
10 changes: 10 additions & 0 deletions cows/bunny.cow
Original file line number Diff line number Diff line change
@@ -0,0 +1,10 @@
##
## A cute little wabbit
##
$the_cow = <<EOC;
$thoughts
$thoughts \\
\\ /\\
( )
.( o ).
EOC
23 changes: 23 additions & 0 deletions cows/cheese.cow
Original file line number Diff line number Diff line change
@@ -0,0 +1,23 @@
##
## The cheese from milk & cheese
##
$the_cow = <<EOC;
$thoughts
$thoughts
_____ _________
/ \\_/ |
| ||
| ||
| ###\\ /### | |
| 0 \\/ 0 | |
/| | |
/ | < |\\ \\
| /| | | |
| | \\_______/ | | |
| | | / /
/|| /|||
----------------|
| | | |
*** ***
/___\\ /___\\
EOC
14 changes: 14 additions & 0 deletions cows/cower.cow
Original file line number Diff line number Diff line change
@@ -0,0 +1,14 @@
##
## A cowering cow
##
$the_cow = <<EOC;
$thoughts
$thoughts
,__, | |
(oo)\\| |___
(__)\\| | )\\_
| |_w | \\
| | || *

Cower....
EOC
24 changes: 24 additions & 0 deletions cows/daemon.cow
Original file line number Diff line number Diff line change
@@ -0,0 +1,24 @@
##
## 4.4 >> 5.4
##
$the_cow = <<EOC;
$thoughts , ,
$thoughts /( )`
$thoughts \\ \\___ / |
/- _ `-/ '
(/\\/ \\ \\ /\\
/ / | ` \\
O O ) / |
`-^--'`< '
(_.) _ ) /
`.___/` /
`-----' /
<----. __ / __ \\
<----|====O)))==) \\) /====
<----' `--' `.__,' \\
| |
\\ /
______( (_ / \\______
,' ,-----' | \\
`--{__________) \\/
EOC
7 changes: 7 additions & 0 deletions cows/default.cow
Original file line number Diff line number Diff line change
@@ -0,0 +1,7 @@
$the_cow = <<"EOC";
$thoughts ^__^
$thoughts ($eyes)\\_______
(__)\\ )\\/\\
$tongue ||----w |
|| ||
EOC
21 changes: 21 additions & 0 deletions cows/dragon-and-cow.cow
Original file line number Diff line number Diff line change
@@ -0,0 +1,21 @@
##
## A dragon smiting a cow, possible credit to [email protected]
##
$the_cow = <<EOC;
$thoughts ^ /^
$thoughts / \\ // \\
$thoughts |\\___/| / \\// .\\
$thoughts /O O \\__ / // | \\ \\ *----*
/ / \\/_/ // | \\ \\ \\ |
\@___\@` \\/_ // | \\ \\ \\/\\ \\
0/0/| \\/_ // | \\ \\ \\ \\
0/0/0/0/| \\/// | \\ \\ | |
0/0/0/0/0/_|_ / ( // | \\ _\\ | /
0/0/0/0/0/0/`/,_ _ _/ ) ; -. | _ _\\.-~ / /
,-} _ *-.|.-~-. .~ ~
\\ \\__/ `/\\ / ~-. _ .-~ /
\\____($eyes) *. } { /
( (--) .----~-.\\ \\-` .~
//__\\\\ \\__ Ack! ///.----..< \\ _ -~
// \\\\ ///-._ _ _ _ _ _ _{^ - - - - ~
EOC
21 changes: 21 additions & 0 deletions cows/dragon.cow
Original file line number Diff line number Diff line change
@@ -0,0 +1,21 @@
##
## The Whitespace Dragon
##
$the_cow = <<EOC;
$thoughts / \\ //\\
$thoughts |\\___/| / \\// \\\\
/0 0 \\__ / // | \\ \\
/ / \\/_/ // | \\ \\
\@_^_\@'/ \\/_ // | \\ \\
//_^_/ \\/_ // | \\ \\
( //) | \\/// | \\ \\
( / /) _|_ / ) // | \\ _\\
( // /) '/,_ _ _/ ( ; -. | _ _\\.-~ .-~~~^-.
(( / / )) ,-{ _ `-.|.-~-. .~ `.
(( // / )) '/\\ / ~-. _ .-~ .-~^-. \\
(( /// )) `. { } / \\ \\
(( / )) .----~-.\\ \\-' .~ \\ `. \\^-.
///.----..> \\ _ -~ `. ^-` ^-_
///-._ _ _ _ _ _ _}^ - - - - ~ ~-- ,.-~
/.-~
EOC
14 changes: 14 additions & 0 deletions cows/elephant-in-snake.cow
Original file line number Diff line number Diff line change
@@ -0,0 +1,14 @@
##
## Do we need to explain this?
##
$the_cow = <<EOC;
$thoughts
$thoughts ....
........ .
. .
. .
......... .......
..............................

Elephant inside ASCII snake
EOC
15 changes: 15 additions & 0 deletions cows/elephant.cow
Original file line number Diff line number Diff line change
@@ -0,0 +1,15 @@
##
## An elephant out and about
##
$the_cow = <<EOC;
$thoughts /\\ ___ /\\
$thoughts // \\/ \\/ \\\\
(( O O ))
\\\\ / \\ //
\\/ | | \\/
| | | |
| | | |
| o |
| | | |
|m| |m|
EOC
Loading

0 comments on commit 37ab00b

Please sign in to comment.