total 76
drwxr-x--- 1 peter peter  4096 Sep 16 21:52 .
drwxr-xr-x 1 root  root   4096 Sep 15 11:21 ..
-rw-r--r-- 1 peter peter   220 Jan  6  2022 .bash_logout
-rw-r--r-- 1 peter peter  3771 Jan  6  2022 .bashrc
-rw-r--r-- 1 peter peter   807 Jan  6  2022 .profile
drwxr-xr-x 9 peter peter  4096 Dec  1  2024 cowsay-3.8.4
-rw-r--r-- 1 peter peter 41206 Sep 16 21:52 cowsay.tar.gz
drwxr-xr-x 2 peter peter  4096 Sep 16 21:52 result

total 108
drwxr-xr-x 9 peter peter  4096 Dec  1  2024 .
drwxr-x--- 1 peter peter  4096 Sep 16 21:52 ..
-rw-r--r-- 1 peter peter   181 Dec  1  2024 .editorconfig
drwxr-xr-x 2 peter peter  4096 Dec  1  2024 .github
-rw-r--r-- 1 peter peter   759 Dec  1  2024 .gitignore
-rw-r--r-- 1 peter peter  4177 Dec  1  2024 CHANGELOG.md
-rw-r--r-- 1 peter peter   872 Dec  1  2024 CONTRIBUTORS.md
-rw-r--r-- 1 peter peter   190 Dec  1  2024 INSTALL
-rw-r--r-- 1 peter peter 35147 Dec  1  2024 LICENSE.txt
-rw-r--r-- 1 peter peter  3884 Dec  1  2024 Makefile
-rw-r--r-- 1 peter peter   369 Dec  1  2024 README
-rw-r--r-- 1 peter peter  4023 Dec  1  2024 README.md
drwxr-xr-x 3 peter peter  4096 Dec  1  2024 archive
drwxr-xr-x 2 peter peter  4096 Dec  1  2024 bin
drwxr-xr-x 2 peter peter  4096 Dec  1  2024 doc-project
drwxr-xr-x 3 peter peter  4096 Dec  1  2024 man
drwxr-xr-x 3 peter peter  4096 Dec  1  2024 man-src
drwxr-xr-x 3 peter peter  4096 Dec  1  2024 share
bash: ./configure: No such file or directory

# Makefile for Cowsay

PACKAGE_TARNAME = cowsay

prefix = /usr/local
exec_prefix = ${prefix}
bindir = ${exec_prefix}/bin
datarootdir = ${prefix}/share
datadir = ${datarootdir}
docdir = ${datarootdir}/doc/${PACKAGE_TARNAME}
sysconfdir = ${prefix}/etc
mandir=${datarootdir}/man

pkgdatadir = ${datadir}/${PACKAGE_TARNAME}
cowsdir = ${pkgdatadir}/cows
sitecowsdir = ${pkgdatadir}/site-cows

pkgsysconfdir = ${sysconfdir}/${PACKAGE_TARNAME}
cowpathdir = ${pkgsysconfdir}/cowpath.d

srcdir = .

SHELL = /bin/sh

# Make standard tools overridable, e.g. for testing with busybox.
ASCIIDOCTOR = asciidoctor
AWK = awk
CUT = cut
GREP = grep
EGREP = $(GREP) -E
INSTALL = install -c
INSTALL_PROGRAM = $(INSTALL)
INSTALL_DATA = ${INSTALL} -m 644
INSTALL_DIR = $(INSTALL) -d
LN = ln
LN_S = $(LN) -s
PRINTF = printf
SORT = sort
WC = wc

# If you implement support for *.pm cows, add share/cows/*.pm here.
#
# Note that this is a list of shell globs to be evaluated by the shell, not a list of
# files to be evaluated by make.
COW_FILES = share/cowsay/cows/*.cow

.PHONY: all
all:
	@echo "Nothing to do - 'make all' is a no-op."

.PHONY: clean
clean:
	@echo "Nothing to do - 'make clean' is a no-op."

# The 'man' target creates cowsay.1, cowthink.1, and other man pages.
#
# The 'man' target is intended for use at authoring time, not at build time, so it is not
# part of the normal build sequence, and its outputs are checked into the source repo.
#
# This is partially to simplify the build process, and partially to preserve the internal
# "update" timestamp inside the man pages. We also do this at authoring time instead of
# install time to avoid introducing a dependency on Asciidoctor for users.

.PHONY: man
man: man-src/man1/cowsay.1.adoc man/man1/cowsay.1

# asciidoctor generates both cowsay.1 and cowthink.1, but the cowthink.1 uses an '.so'
# include macro that doesn't work on some systems, but symlinks do.
# cowthink.1 is generated as a side effect of cowsay.1, but I'm not sure how
# to declare that without a redundant target definition.
# Must delete any existing cowthink.1 symlink *first*, or it may clobber the cowsay.1 file
# with the wrong contents.
man/man1/cowsay.1: man-src/man1/cowsay.1.adoc
	mkdir -p man/man1
	rm -f man/man1/cowthink.1
	$(ASCIIDOCTOR) -b manpage -D man/man1 man-src/man1/cowsay.1.adoc
	rm -f man/man1/cowthink.1
	$(LN_S) cowsay.1 man/man1/cowthink.1

.PHONY: install
install:
	$(INSTALL_DIR) $(DESTDIR)$(cowpathdir)
	$(INSTALL_DIR) $(DESTDIR)$(bindir)
	$(INSTALL_PROGRAM) bin/cowsay $(DESTDIR)$(bindir)/cowsay
	$(LN_S) cowsay $(DESTDIR)$(bindir)/cowthink
	$(INSTALL_DIR) $(DESTDIR)$(mandir)/man1
	$(INSTALL_DATA) man/man1/cowsay.1 $(DESTDIR)$(mandir)/man1/cowsay.1
	$(LN_S) cowsay.1 $(DESTDIR)$(mandir)/man1/cowthink.1
	$(INSTALL_DIR) $(DESTDIR)$(cowsdir)
	$(INSTALL_DATA) $(COW_FILES) $(DESTDIR)$(cowsdir)
	$(INSTALL_DIR) $(DESTDIR)$(sitecowsdir)

.PHONY: uninstall
uninstall:
	@set -e; \
	for f in \
	  $(DESTDIR)$(bindir)/cowsay \
	  $(DESTDIR)$(bindir)/cowthink \
	  $(DESTDIR)$(mandir)/man1/cowsay.1 \
	  $(DESTDIR)$(mandir)/man1/cowthink.1 \
        ; do \
	  if test -f "$$f" || test -L "$$f"; then \
	    echo "rm -f $$f"; \
	    rm -f "$$f"; \
	  fi; \
	done
	@set -e; \
	for cow in $(COW_FILES); do \
	  dcow="$(DESTDIR)$(cowsdir)/$$(basename "$$cow")"; \
	  if test -f "$$dcow"; then \
	    echo "rm -f $$dcow"; \
	    rm -f "$$dcow"; \
	  fi; \
	done
	@set -e; \
	for dir in $(cowsdir) $(sitecowsdir) $(pkgdatadir) $(cowpathdir) $(pkgsysconfdir); do \
	  $(PRINTF) "%s\n" "$$dir"; \
	done \
	| $(AWK) '{ print length, $$0 }' | $(SORT) -n -r | $(CUT) -d" " -f2- \
	| while read dir; do \
	  if test "x$$($(PRINTF) "%s" "$$dir" | $(EGREP) '/.*/$(PACKAGE_TARNAME)(/|$$)' | $(WC) -c)" != x0; then \
	    dd="$(DESTDIR)$${dir}"; \
	    if test -d "$$dd"; then \
	      echo "rmdir $$dd"; \
	      rmdir "$$dd" ||:; \
	    fi; \
	  fi; \
	done

total 20
drwxr-xr-x 2 peter peter 4096 Dec  1  2024 .
drwxr-xr-x 9 peter peter 4096 Dec  1  2024 ..
-rwxr-xr-x 1 peter peter 9713 Dec  1  2024 cowsay
lrwxrwxrwx 1 peter peter    6 Dec  1  2024 cowthink -> cowsay
#!/usr/bin/env perl

##
## Cowsay
##

use Cwd 'abs_path';
use File::Basename;
use File::Find;
use Getopt::Std;
use Text::Tabs qw(expand);
use Text::Wrap qw(wrap fill $columns);

$Getopt::Std::STANDARD_HELP_VERSION = 1;

$VERSION = "3.8.4";
$progname = basename($0);
$eyes = "oo";
$tongue = "  ";
$pathsep = detect_pathsep();
@cowpath = pick_cowpath();
@message = ();
$thoughts = "";

# Yeah, this is rude, I know. But hopefully it gets around a nasty little version
# dependency.

$Text::Wrap::initial_tab = 8;
$Text::Wrap::subsequent_tab = 8;
$Text::Wrap::tabstop = 8;

%opts = (
    'e'         =>      'oo',
    'f'         =>      'default.cow',
    'n'         =>      0,
    'T'         =>      '  ',
    'W'         =>      40,
);

getopts('bCde:f:ghlLnNprstT:wW:y', \%opts);

if ($opts{'h'}) {
    &HELP_MESSAGE;
    exit(0);
}
&list_cowfiles if $opts{'l'};

$random = $opts{'r'};
$enable_full_color = $opts{'C'};
$borg = $opts{'b'};
$dead = $opts{'d'};
$greedy = $opts{'g'};
$paranoid = $opts{'p'};
$stoned = $opts{'s'};
$tired = $opts{'t'};
$wired = $opts{'w'};
$young = $opts{'y'};
$eyes = substr($opts{'e'}, 0, 2);
$tongue = substr($opts{'T'}, 0, 2);
$specified_cow = $opts{'f'};
$cow_file_path = "";
$the_cow = "";

&slurp_input;
$Text::Wrap::columns = $opts{'W'};
[command output truncated]

    @cowpath = uniquify_list(@cowpath);

    return @cowpath;
}

sub uniquify_list {
    my %seen;
    my @unique = grep { !$seen{$_}++ } @_;
    return @unique;
}

sub list_cowfiles {
    if (-t STDOUT) {
        list_cowfiles_pretty();
    } else {
        list_cowfiles_parseable();
    }
    exit(0);
}

my @found_cows;
my $search_start_dir;

sub find_cowfile_callback() {
    if (-f && /\.(cow)$/) {
        my $rel_file = substr($File::Find::name, length($search_start_dir) + 1);
        my $cow_name = $rel_file;
        $cow_name =~ s/\.(cow)$//;
        push @found_cows, $cow_name;
    }
}

sub list_cows_in_cowdir {
    my ($cowdir) = @_;
    @found_cows = ();
    $search_start_dir = $cowdir;
    find(\&find_cowfile_callback, $cowdir);
    return \@found_cows;
}

sub list_cowfiles_parseable {
    my $cows = defined_cows();
    print join("\n", @$cows), "\n";
}

sub defined_cows {
    my $basedir;
    my %cowfiles;
    for my $d (@cowpath) {
        next unless -d $d;
        my $cows = list_cows_in_cowdir($d);
        for my $cow (@$cows) {
            $cowfiles{$cow} = $cow;
        }
    }
    my @cowfiles = sort keys %cowfiles;
    return \@cowfiles;
}

sub defined_cows_structured {
    my $cows = defined_cows();
    my %cows;
    my @truecolor = ();
    my @basic = ();
    for (@$cows) {
        if (m|^truecolor/|) {
            push @truecolor, $_;
        } else {

install -c -d /usr/local/etc/cowsay/cowpath.d
install: cannot create directory '/usr/local/etc/cowsay': Permission denied
make: *** [Makefile:82: install] Error 1
install -c -d /usr/local/etc/cowsay/cowpath.d
install: cannot create directory '/usr/local/etc/cowsay': Permission denied
make: *** [Makefile:82: install] Error 1

install -c -d /home/peter/result/home/peter/result/etc/cowsay/cowpath.d
install -c -d /home/peter/result/home/peter/result/bin
install -c bin/cowsay /home/peter/result/home/peter/result/bin/cowsay
ln -s cowsay /home/peter/result/home/peter/result/bin/cowthink
install -c -d /home/peter/result/home/peter/result/share/man/man1
install -c -m 644 man/man1/cowsay.1 /home/peter/result/home/peter/result/share/man/man1/cowsay.1
ln -s cowsay.1 /home/peter/result/home/peter/result/share/man/man1/cowthink.1
install -c -d /home/peter/result/home/peter/result/share/cowsay/cows
install -c -m 644 share/cowsay/cows/*.cow /home/peter/result/home/peter/result/share/cowsay/cows
install -c -d /home/peter/result/home/peter/result/share/cowsay/site-cows

total 20
drwxr-xr-x 5 peter peter 4096 Sep 16 21:53 .
drwxr-x--- 1 peter peter 4096 Sep 16 21:52 ..
drwxr-xr-x 2 peter peter 4096 Sep 16 21:52 bin
drwxr-xr-x 3 peter peter 4096 Sep 16 21:52 etc
drwxr-xr-x 4 peter peter 4096 Sep 16 21:52 share

total 20
drwxr-xr-x 2 peter peter 4096 Sep 16 21:52 .
drwxr-xr-x 5 peter peter 4096 Sep 16 21:53 ..
-rwxr-xr-x 1 peter peter 9713 Sep 16 21:52 cowsay
lrwxrwxrwx 1 peter peter    6 Sep 16 21:52 cowthink -> cowsay
#!/usr/bin/env perl

##
## Cowsay
##

use Cwd 'abs_path';
use File::Basename;
use File::Find;
use Getopt::Std;
use Text::Tabs qw(expand);
use Text::Wrap qw(wrap fill $columns);

$Getopt::Std::STANDARD_HELP_VERSION = 1;

$VERSION = "3.8.4";
$progname = basename($0);
$eyes = "oo";
$tongue = "  ";
$pathsep = detect_pathsep();
@cowpath = pick_cowpath();
@message = ();
$thoughts = "";

# Yeah, this is rude, I know. But hopefully it gets around a nasty little version
# dependency.

$Text::Wrap::initial_tab = 8;
$Text::Wrap::subsequent_tab = 8;
$Text::Wrap::tabstop = 8;

%opts = (
    'e'         =>      'oo',
    'f'         =>      'default.cow',
    'n'         =>      0,
    'T'         =>      '  ',
    'W'         =>      40,
);

getopts('bCde:f:ghlLnNprstT:wW:y', \%opts);

if ($opts{'h'}) {
    &HELP_MESSAGE;
    exit(0);
}
&list_cowfiles if $opts{'l'};

$random = $opts{'r'};
$enable_full_color = $opts{'C'};
$borg = $opts{'b'};
$dead = $opts{'d'};
$greedy = $opts{'g'};
$paranoid = $opts{'p'};
$stoned = $opts{'s'};
$tired = $opts{'t'};
$wired = $opts{'w'};
$young = $opts{'y'};
$eyes = substr($opts{'e'}, 0, 2);
$tongue = substr($opts{'T'}, 0, 2);
$specified_cow = $opts{'f'};
$cow_file_path = "";
$the_cow = "";

&slurp_input;
$Text::Wrap::columns = $opts{'W'};
@message = ($opts{'n'} ? expand(@message) : 
            split("\n", fill("", "", @message)));
&construct_balloon;
&construct_face;
&pick_cow;
&read_cow;
print @balloon_lines;
print $the_cow;

sub detect_pathsep {
    # One of these days, we'll get it ported to Windows. Yeah, right.
    if (($^O eq "MSWin32") or ($^O eq "Windows_NT")) {  # Many perls, eek!
        return ';';
    } else {
        return ':';
    }
}

sub pick_cowpath {
    my $exe_file = abs_path(__FILE__);
    my $parent_dir = dirname($exe_file);
    my $parent_dir_base = basename($parent_dir);
    my ($prefix_dir, $share_cowsay, $real_prefix_dir, $etc_dir);
    # prefix is the parent dir of bin/, in which cowsay must live
    $prefix_dir = dirname($parent_dir);
    $share_cowsay = "$prefix_dir/share/cowsay";
    $real_prefix_dir = abs_path($prefix_dir);
    if ($real_prefix_dir eq "/usr") {
        $etc_dir = "/etc";
    } else {
        $etc_dir = "$real_prefix_dir/etc";
    }

    my @cowpath;
    my @default_cowpath = ("$share_cowsay/site-cows", "$share_cowsay/cows");

    my $cowpath_d_dir = "$etc_dir/cowsay/cowpath.d";
    if (-d $cowpath_d_dir) {
        my $dh;
        opendir($dh, $cowpath_d_dir);
        my @files = readdir($dh);
        closedir($dh);
        foreach (@files) {
            my $file = "$cowpath_d_dir/$_";
            if (-f $file && $file =~ /\.path$/) {
                open my $fh, '<', $file
                    or die "Could not read cowpath file $file: $!\n";
                while (my $entry = <$fh>) {
                    chomp $entry;
                    push @default_cowpath, $entry;
                }
                close($fh);
            }
        }
    }

total 20
drwxr-xr-x 5 peter peter 4096 Sep 16 21:53 .
drwxr-x--- 1 peter peter 4096 Sep 16 21:52 ..
drwxr-xr-x 2 peter peter 4096 Sep 16 21:52 bin
lrwxrwxrwx 1 peter peter   29 Sep 16 21:53 cowsay -> /home/peter/result/bin/cowsay
drwxr-xr-x 3 peter peter 4096 Sep 16 21:52 etc
drwxr-xr-x 4 peter peter 4096 Sep 16 21:52 share