./ 0000755 0002000 0000144 00000000000 14631400100 007715 5 ustar sts users ./AUTHORS 0000644 0002000 0000144 00000000277 14164333043 011007 0 ustar sts users Authors of Colorize.
Steven Schubiger. Main author.
Urs Fässler. Suggestions on refactoring cleaning lines.
Axel Beckert. Help with Debian Packaging.
Elias Diem. Initial .gitignore.
./lib/ 0000755 0002000 0000144 00000000000 14164333043 010477 5 ustar sts users ./lib/Colorize/ 0000755 0002000 0000144 00000000000 14164333043 012265 5 ustar sts users ./lib/Colorize/Common.pm 0000644 0002000 0000144 00000001753 14164333043 014061 0 ustar sts users package Colorize::Common;
use strict;
use warnings;
use base qw(Exporter);
use constant true => 1;
use File::Temp qw(tempfile);
our (@EXPORT_OK, %EXPORT_TAGS);
my @defaults;
@defaults = qw($source $compiler);
@EXPORT_OK = (qw($compiler_flags %BUF_SIZE $valgrind_command $write_to_tmpfile), @defaults);
%EXPORT_TAGS = ('defaults' => [ @defaults ]);
our ($source, $compiler, $compiler_flags, %BUF_SIZE, $valgrind_command, $write_to_tmpfile);
#---------------#
# START of data #
#---------------#
$source = 'colorize.c';
$compiler = 'gcc';
$compiler_flags = '-ansi -pedantic -Wall -Wextra -Wformat -Wswitch-default -Wuninitialized -Wunused -Wno-unused-function -Wno-unused-parameter';
%BUF_SIZE = (
normal => 1024,
short => 10,
);
$valgrind_command = 'valgrind';
$write_to_tmpfile = sub
{
my ($content) = @_;
my ($fh, $tmpfile) = tempfile(UNLINK => true);
print {$fh} $content;
close($fh);
return $tmpfile;
};
#-------------#
# END of data #
#-------------#
1;
./readme.pl 0000755 0002000 0000144 00000001027 14164333043 011526 0 ustar sts users #!/usr/bin/perl
use strict;
use warnings;
my $readme = 'README';
my $readme_cgit = 'README.cgit';
die "$0: $readme does not exist\n" unless -e $readme;
open(my $fh, '<', $readme) or die "Cannot open $readme for reading: $!\n";
my $text = do { local $/; <$fh> };
close($fh);
$text = do {
local $_ = $text;
s/</g;
s/>/>/g;
$_
};
print "Writing $readme_cgit\n";
open($fh, '>', $readme_cgit) or die "Cannot open $readme_cgit for writing: $!\n";
print {$fh} <<"CGIT";
$text
CGIT
close($fh);
./Makefile 0000644 0002000 0000144 00000001450 14164333043 011371 0 ustar sts users .PHONY: check check_valgrind install clean release readme
.SUFFIXES:
.SUFFIXES: .c .o
SHELL=/bin/sh
CC=gcc
CFLAGS:=-ansi -pedantic $(CFLAGS)
FLAGS= # command-line macro
colorize: colorize.c
perl ./version.pl > version.h
$(CC) $(CPPFLAGS) $(CFLAGS) $(LDFLAGS) -o colorize colorize.c \
-DCPPFLAGS="\"$(CPPFLAGS)\"" -DCFLAGS="\"$(CFLAGS)\"" -DLDFLAGS="\"$(LDFLAGS)\"" \
-DHAVE_VERSION $(FLAGS)
check:
perl ./test.pl --regular
check_valgrind:
@which valgrind >/dev/null 2>&1 || (printf '%s\n' "valgrind not found" && exit 1)
perl ./test.pl --valgrind || exit 0
install:
test ! -d $(DESTDIR)/usr/bin && mkdir -p $(DESTDIR)/usr/bin || exit 0
cp colorize $(DESTDIR)/usr/bin
clean:
rm -f a.out colorize debug.txt version.h
release:
sh ./release.sh
readme:
perl ./readme.pl
./release.sh 0000755 0002000 0000144 00000000556 14164333043 011716 0 ustar sts users #!/bin/sh
source_file="colorize.c"
man_file="colorize.1"
printf '%s\n' "Setting version for $source_file"
perl -i -pe 's/(?<=#define VERSION ")([^"]+)(?=")/sprintf("%.2f",$1+0.01)/e' $source_file
printf '%s\n' "Setting version for $man_file"
perl -i -pe 's/(?<=\.TH COLORIZE 1 "\d{4}-\d{2}-\d{2}" "colorize v)([^"]+)(?=")/sprintf("%.2f",$1+0.01)/e' $man_file
exit 0
./README 0000644 0002000 0000144 00000004423 14164333043 010614 0 ustar sts users colorize
========
Description
-----------
Colorize aims at being a small, independent and handy command-line
text colorizing tool. It emits ANSI escape sequences in order to
color lines of text; also, sequences emitted by colorize or foreign
programs may be cleared.
The main code is written in C (c89 mostly), whereas the test script
consists of Perl code.
Colorize is known to build and test successfully on Linux and
Net/Open/MirBSD. Other platforms are untested, so be prepared for
it to eventually not work as expected there.
Requirements
------------
gcc
make
perl
valgrind (optional)
Build instructions
------------------
Issue `make' to build colorize.
Once completed, run the tests with `make check'.
Then you should most likely have a working binary.
Next, install it with `make install' (may require elevated
user permissions).
Finally, clean up the working directory through `make clean'.
Customizing instructions
------------------------
The default character ('/') which separates the foreground
from the background color may be redefined:
`make FLAGS=-DCOLOR_SEP_CHAR_COLON' -> defines as ':'
`make FLAGS=-DCOLOR_SEP_CHAR_SLASH' -> defines as '/'
Debugging instructions
----------------------
For the sake of completeness, colorize can be also built with
debugging output by issuing `make FLAGS=-DDEBUG'. The intention
is to provide some memory allocation diagnostics (and might be
extended in future). Usually, a debugging build is not required.
Furthermore, tests can be run through valgrind by issuing, for
example, `make check_valgrind 2>&1 | tee valgrind.out'. The
file provided here for the `tee' invocation will be populated
with the captured output from both standard output and error
stream.
Configuration File
------------------
A user configuration file may be populated with options and
according values. See man page source file `colorize.1' for
details.
Documentation
-------------
See man page source file: colorize.1.
Usage example
-------------
In ~/.bashrc:
| ls_color() {
| ls "$@" | colorize green -
| }
| alias ls=ls_color
This excerpt defines an alias which will set the color being
printed for literal ls invocations to green.
Afterword
---------
Let me know, if you have ideas, bug reports, patches, etc.
Author
------
Steven Schubiger
./test.pl 0000755 0002000 0000144 00000022005 14164333043 011247 0 ustar sts users #!/usr/bin/perl
use strict;
use warnings;
use lib qw(lib);
use constant true => 1;
use constant false => 0;
use Colorize::Common qw(:defaults $compiler_flags %BUF_SIZE $valgrind_command $write_to_tmpfile);
use File::Find;
use File::Temp qw(tmpnam);
use Getopt::Long qw(:config no_auto_abbrev no_ignore_case);
use Test::Harness qw(runtests);
use Test::More;
my $tests = 32;
my $valgrind_cmd = '';
{
my ($regular, $valgrind);
GetOptions(regular => \$regular, valgrind => \$valgrind) or exit;
if (not $regular || $valgrind) {
die "$0: neither --regular nor --valgrind specified, exiting\n";
}
elsif ($regular && $valgrind) {
die "$0: both --regular and --valgrind specified, exiting\n";
}
$valgrind_cmd = "$valgrind_command " if $valgrind;
}
{
my @test_files;
find ({ wanted => sub { push @test_files, $File::Find::name if /\.t$/ } }, 't');
eval { runtests(sort @test_files) } or warn $@;
}
plan tests => $tests;
SKIP: {
skip "$source does not exist", $tests unless -e $source;
my $binary = tmpnam();
skip 'compiling failed', $tests unless system("$compiler $compiler_flags -o $binary $source") == 0;
unlink $binary;
my $program = tmpnam();
skip 'compiling failed (normal)', $tests unless system("$compiler -DTEST -DBUF_SIZE=$BUF_SIZE{normal} -o $program $source") == 0;
is(system("$valgrind_cmd$program --help >/dev/null"), 0, 'exit value for help screen');
is(system("$valgrind_cmd$program --version >/dev/null"), 0, 'exit value for version data');
is(qx(printf '%s\n' "hello world" | $valgrind_cmd$program none/none), "hello world\n", 'line read from stdin with newline');
is(qx(printf %s "hello world" | $valgrind_cmd$program none/none), "hello world", 'line read from stdin without newline');
my $text = do { local $/; };
my $infile1 = $write_to_tmpfile->($text);
is_deeply([split /\n/, qx(cat $infile1 | $valgrind_cmd$program none/none)], [split /\n/, $text], 'text read from stdin');
is_deeply([split /\n/, qx($valgrind_cmd$program none/none $infile1)], [split /\n/, $text], 'text read from file');
{
my @fg_colors = (30..37, 39);
my @bg_colors = (40..47, 49);
my @bold_colors = map "1;$_", @fg_colors;
my @values = (@fg_colors, @bg_colors, @bold_colors, 0);
my $ok = true;
foreach my $value (@values) {
$ok &= qx(printf %s "\e[${value}m" | $valgrind_cmd$program --clean) eq '';
}
ok($ok, 'clean color sequences');
}
my $check_clean = sub
{
my ($type) = @_;
my $switch = "--$type";
is(qx(printf %s "\e[35mhello\e[0m \e[36mworld\e[0m" | $valgrind_cmd$program $switch), 'hello world', "$type colored words");
is(qx(printf %s "hello world" | $program Magenta | $valgrind_cmd$program $switch), 'hello world', "$type colored line");
is_deeply([split /\n/, qx($program cyan $infile1 | $valgrind_cmd$program $switch)], [split /\n/, $text], "$type colored text");
{
my @attrs = qw(bold underscore blink reverse concealed);
my $ok = true;
foreach my $attr (@attrs) {
$ok &= qx(printf %s "$attr" | $program green --attr=$attr | $valgrind_cmd$program $switch) eq $attr;
}
ok($ok, "$type attribute");
my $attrs = join ',', @attrs;
is(qx(printf %s "$attrs" | $program green --attr=$attrs | $valgrind_cmd$program $switch), $attrs, "$type attributes");
}
ok(qx(printf %s "\e[\e[33m" | $valgrind_cmd$program $switch) eq "\e[", "$type with invalid sequence");
{
my $ok = true;
foreach my $option (qw(--attr=bold --exclude-random=black --omit-color-empty)) {
$ok &= qx($valgrind_cmd$program $option $switch $infile1 2>&1 >/dev/null) =~ /switch has no meaning with/;
}
ok($ok, "$type strict options");
}
};
$check_clean->($_) foreach qw(clean clean-all);
is(qx(printf %s "\e[4munderline\e[24m" | $valgrind_cmd$program --clean-all), 'underline', 'clean-all color sequences');
my $check_clean_buf = sub
{
my ($program_buf, $type) = @_;
my $switch = "--$type";
# Check that line chunks are printed when cleaning text without sequences
my $short_text = 'Linux dev 2.6.32-5-openvz-686 #1 SMP Sun Sep 23 11:40:07 UTC 2012 i686 GNU/Linux';
is(qx(printf %s "$short_text" | $valgrind_cmd$program_buf $switch), $short_text, "print ${\length $short_text} bytes (BUF_SIZE=$BUF_SIZE{short}, $type)");
};
SKIP: {
my $program_buf = tmpnam();
skip 'compiling failed (short buffer)', 2 unless system("$compiler -DTEST -DBUF_SIZE=$BUF_SIZE{short} -o $program_buf $source") == 0;
$check_clean_buf->($program_buf, $_) foreach qw(clean clean-all);
unlink $program_buf;
}
my $repeated = join "\n", ($text) x 7;
my $infile2 = $write_to_tmpfile->($repeated);
is_deeply([split /\n/, qx(cat $infile2 | $valgrind_cmd$program none/none)], [split /\n/, $repeated], "read ${\length $repeated} bytes (BUF_SIZE=$BUF_SIZE{normal})");
{
my $colored_text = qx(printf '%s\n' "foo bar baz" | $valgrind_cmd$program red);
my $sequences = 0;
$sequences++ while $colored_text =~ /\e\[\d+m/g;
is($sequences, 2, 'count of sequences printed');
}
{
# Check that a 'none' foreground color (with a background color present)
# will be substituted by 'default'.
my $colored_text = qx(printf %s "foo bar baz" | $valgrind_cmd$program none/black);
is($colored_text, "\e[40m\e[39mfoo bar baz\e[0m", 'no color sequences printed');
}
is(qx(printf %s "hello\nworld\r\n" | $valgrind_cmd$program none/none), "hello\nworld\r\n", 'stream mode');
is(system(qq(printf '%s\n' "hello world" | $valgrind_cmd$program random --exclude-random=black >/dev/null)), 0, 'switch exclude-random');
{
my $infile = $write_to_tmpfile->("foo\n\nbar");
is_deeply([split /\n/, qx($valgrind_cmd$program yellow --omit-color-empty $infile)],
[split /\n/, "\e[33mfoo\e[0m\n\n\e[33mbar\e[0m"],
'switch omit-color-empty');
}
SKIP: {
skip 'valgrind not found', 1 unless system('which valgrind >/dev/null 2>&1') == 0;
like(qx(valgrind $program none/none $infile1 2>&1 >/dev/null), qr/no leaks are possible/, 'valgrind memleaks');
}
{
my $debug = tmpnam();
is(system("$compiler -DDEBUG -o $debug $source"), 0, 'debugging build');
unlink $debug if -e $debug;
}
print <<'EOT';
Colors
======
EOT
foreach my $color (qw(none black red green yellow blue magenta cyan white default random)) {
system(qq(printf '%s\n' "$color" | $program $color));
next if $color eq 'none';
my $bold_color = ucfirst $color;
system(qq(printf '%s\n' "$bold_color" | $program $bold_color));
}
print <<'EOT';
Attributes
==========
EOT
foreach my $attr (qw(bold underscore blink reverse concealed)) {
system(qq(printf '%s\n' "$attr" | $program green --attr=$attr));
}
unlink $program;
};
__DATA__
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Vivamus urna mauris, ultricies faucibus placerat sit amet, rutrum eu
nisi. Quisque dictum turpis non augue iaculis tincidunt nec a arcu. Donec euismod sapien ac dui blandit et adipiscing risus
semper. Sed ornare ligula magna, vitae molestie eros. Praesent ligula est, euismod a luctus non, porttitor quis nunc. Fusce vel
imperdiet turpis. Proin vitae mauris neque, fringilla vestibulum sapien. Pellentesque vitae nibh ipsum, non cursus diam. Cras
vitae ligula mauris. Etiam tortor enim, varius nec adipiscing sed, lobortis et quam. Quisque convallis, diam sagittis adipiscing
adipiscing, mi nibh fermentum sapien, et iaculis nisi sem sit amet odio. Cras a tortor at nibh tristique vehicula dapibus eu velit.
Vivamus porttitor purus eget leo suscipit sed posuere ligula gravida. In mollis velit quis leo pharetra gravida. Ut libero nisi,
elementum sed varius tincidunt, hendrerit ut dui. Duis sit amet ante eget velit dictum ultrices. Nulla tempus, lacus eu dignissim
feugiat, turpis mauris volutpat urna, quis commodo lorem augue id justo. Aenean consequat interdum sapien, sit amet
imperdiet ante dapibus at. Pellentesque viverra sagittis tincidunt. Quisque rhoncus varius magna, sit amet rutrum arcu
tincidunt eget. Etiam a lacus nec mauris interdum luctus sed in lacus. Ut pulvinar, augue at dictum blandit, nisl massa pretium
ligula, in iaculis nulla nisi iaculis nunc.
Vivamus id eros nunc. Cras facilisis iaculis ante sit amet consequat. Nunc vehicula imperdiet sem, ac vehicula neque
condimentum sed. Phasellus metus lacus, molestie ullamcorper imperdiet in, condimentum ut tellus. Nullam dignissim dui ut
enim ullamcorper in tempus risus posuere. Ut volutpat enim eleifend diam convallis tristique. Proin porttitor augue sed sapien
sagittis quis facilisis purus sodales. Integer auctor dolor rhoncus nisl consequat adipiscing. Aliquam eget ante sit amet quam
porta eleifend.
./doc/ 0000755 0002000 0000144 00000000000 14164333043 010476 5 ustar sts users ./doc/screenshots/ 0000755 0002000 0000144 00000000000 14164333043 013036 5 ustar sts users ./doc/screenshots/colorize.html 0000644 0002000 0000144 00000001572 14164333043 015557 0 ustar sts users
colorize Screenshots
./doc/screenshots/colorize/ 0000755 0002000 0000144 00000000000 14164333043 014664 5 ustar sts users ./doc/screenshots/colorize/colorize3.jpg 0000644 0002000 0000144 00000134670 14164333043 017312 0 ustar sts users JFIF H H C C
Q{Ѻm9xU\#sr?GGlx5@kytvN^#Y 9|`Gx,Rx<C?& +'#v,W1C~g3~ik_\<`*pc@
|@C̀Q@@3y,7. UP ]GO>L
dw|,`S@2`|52)`t(X4
H 9< $~a | @|g@t
@9|9`Y`[<)&`- ty`?: OX9`[<畀 $ K os@?:&@#L
W O`@h? sʀ@@W1/Ci$< _$<:~y`
QL
< 䀴^Q<
^i,g`yxyh#t
W07:_4//@ H
yh!0 L/"
W {: s '@@~@ y y=x@ 4y \|6y͞pyg'Xg g '@Lx| t 9伈? | tx G!*+G!]6o#g>L
^|7$<
>th O8U䀏>O9@ Ky9 :<