libacme-brainfck-perl-1.1.1/0000755000232200023220000000000010034553216017250 5ustar pbuilderpbuilder00000000000000libacme-brainfck-perl-1.1.1/debian/0000755000232200023220000000000010034553217020473 5ustar pbuilderpbuilder00000000000000libacme-brainfck-perl-1.1.1/debian/copyright0000644000232200023220000000034210034552223022421 0ustar pbuilderpbuilder00000000000000The author is: Jaldhar H. Vyas . Copyright (c) 2004, Consolidated Braincells Inc. Licensed with no warranties under the Crowley Public License: "Do what thou wilt shall be the whole of the license." libacme-brainfck-perl-1.1.1/debian/rules0000755000232200023220000000310710034552223021550 0ustar pbuilderpbuilder00000000000000#!/usr/bin/make -f #-*- makefile -*- # Made with the aid of dh_make, by Craig Small # Sample debian/rules that uses debhelper. GNU copyright 1997 by Joey Hess. # Some lines taken from debmake, by Christoph Lameter. # Uncomment this to turn on verbose mode. #export DH_VERBOSE=1 export DH_COMPAT=3 PACKAGE=$(shell dh_listpackages) ifndef PERL PERL = /usr/bin/perl endif ifndef DESTDIR DESTDIR=.. endif TMP =`pwd`/debian/$(PACKAGE) build: build-stamp build-stamp: dh_testdir # Add here commands to compile the package. $(PERL) Build.PL ./Build touch build-stamp clean: dh_testdir dh_testroot rm -f build-stamp # Add here commands to clean up after the build process. -./Build realclean dh_clean install: dh_testdir dh_testroot dh_clean -k dh_installdirs # Add here commands to install the package into debian/tmp. ./Build install installdirs=vendor destdir=$(TMP) # Build architecture-independent files here. binary-indep: build install # We have nothing to do by default. # Build architecture-dependent files here. binary-arch: build install # dh_testversion dh_testdir dh_testroot dh_installdocs README dh_installexamples dh_installcron dh_installman dh_installchangelogs Changes dh_link dh_strip dh_compress dh_fixperms dh_installdeb dh_perl dh_shlibdeps dh_gencontrol dh_md5sums dh_builddeb --destdir=$(DESTDIR) source diff: @echo >&2 'source and diff are obsolete - use dpkg-source -b'; false binary: binary-indep binary-arch .PHONY: build clean binary-indep binary-arch binary libacme-brainfck-perl-1.1.1/debian/control0000644000232200023220000000162710034552223022100 0ustar pbuilderpbuilder00000000000000Source: libacme-brainfck-perl Section: interpreters Priority: optional Build-Depends: debhelper (>= 3.0.5), perl (>= 5.6.0-17), libmodule-build-perl Maintainer: Jaldhar H. Vyas Standards-Version: 3.6.1 Package: libacme-brainfck-perl Architecture: all Depends: ${perl:Depends} Provides: libacme-brainfuck-perl Description: Embed Brainf*ck in your perl code Brainf*ck (yes, there is a u there.) is about the tiniest Turing-complete programming language you can get. A language is Turing-complete if it can model the operations of a Turing machine--an abstract model of a computer defined by the British mathematician Alan Turing in 1936. A Turing machine consists only of an endless sequence of memory cells and a pointer to one particular memory cell. Yet it is theoretically capable of performing any computation. This module will allow you to mix Brainf*ck with your perl code. libacme-brainfck-perl-1.1.1/debian/changelog0000644000232200023220000000237110034552223022344 0ustar pbuilderpbuilder00000000000000libacme-brainfck-perl (1.1.1) unstable; urgency=low * New upstream version. * Apparently I need a build dependency on libmodule-build-perl. * Really uploaded to Debian this time. (Closes: #160014) * Note to ftpmaster: the package name and provides: implements the denaughtification scheme proposed when I first tried to upload this. -- Jaldhar H. Vyas Tue, 6 Apr 2004 11:56:29 -0400 libacme-brainfck-perl (1.1.0) unstable; urgency=low * New upstream version. -- Jaldhar H. Vyas Tue, 6 Apr 2004 00:56:13 -0400 libacme-brainfuck-perl (1.0.1-1) unstable; urgency=low * First upload to debian. (Closes: #160014) -- Jaldhar H. Vyas Sun, 22 Sep 2002 22:22:12 -0400 libacme-brainfuck-perl (1.0.0-1) unstable; urgency=low * New upstream version. -- Jaldhar H. Vyas Tue, 3 Sep 2002 14:42:55 -0400 libacme-brainfuck-perl (0.9.1-1) unstable; urgency=low * New upstream version. -- Jaldhar H. Vyas Fri, 30 Aug 2002 23:19:31 -0400 libacme-brainfuck-perl (0.9.0-1) unstable; urgency=low * Initial Release. -- Jaldhar H. Vyas Fri, 30 Aug 2002 00:41:47 -0400 Local variables: mode: debian-changelog End: libacme-brainfck-perl-1.1.1/debian/libacme-brainfck-perl.examples0000644000232200023220000000001310034552223026332 0ustar pbuilderpbuilder00000000000000examples/* libacme-brainfck-perl-1.1.1/Changes0000644000232200023220000000122010034552223020533 0ustar pbuilderpbuilder00000000000000$Id: Changes,v 1.4 2002/09/23 02:26:31 jaldhar Exp $ Revision history for Perl extension Acme::Brainfuck. 1.1.1 Tue Apr 06 11:59:00 2004 Debian package needed a build dependency on libmodule-build-perl 1.1.0 Tue Apr 06 00:37:00 2004 Switched to Module::Build. Really uploaded to Debian for the first time. 1.0.1 Tue Sep 22 22:15:00 2002 Uploaded to Debian for the first time. 1.0.0 Tue Sep 03 14:30:00 2002 Finished test suite by adding tests for , . # ~ Uploaded to CPAN 0.9.1 Fri Aug 30 23:25:00 2002 Optimized sequences of + - < > by merging them into one perl statement. 0.9.0 Thu Aug 29 07:40:00 2002 First publicly released version. libacme-brainfck-perl-1.1.1/examples/0000755000232200023220000000000010034552223021063 5ustar pbuilderpbuilder00000000000000libacme-brainfck-perl-1.1.1/examples/math.pl0000644000232200023220000000020310034552223022344 0ustar pbuilderpbuilder00000000000000#!/usr/bin/env perl use Acme::Brainfuck; use strict; use warnings; my $answer = +++[>++++++<-]> ; print "3 * 6 = $answer \n"; libacme-brainfck-perl-1.1.1/examples/jabh.pl0000644000232200023220000000045010034552223022323 0ustar pbuilderpbuilder00000000000000#!/usr/bin/env perl use Acme::Brainfuck; print "Just another "; ++++++[>++++++++++++++++<-]> ++.-- >+++[<++++++>-]<.>[-]+++[<------>-]< +.- +++++++++.--------- ++++++++++++++.-------------- ++++++.------ >+++[<+++++++>-]<.>[-]+++[<------->-]< +++.--- +++++++++++.----------- print " hacker.\n"; libacme-brainfck-perl-1.1.1/examples/helloworld.pl0000644000232200023220000000012010034552223023564 0ustar pbuilderpbuilder00000000000000#!/usr/bin/env perl use Acme::Brainfuck; print "Hello world!", chr ++++++++++ ; libacme-brainfck-perl-1.1.1/examples/reverse.pl0000644000232200023220000000035410034552223023075 0ustar pbuilderpbuilder00000000000000#!/usr/bin/env perl use Acme::Brainfuck qw/verbose/; while(1) { print "Say something to Backwards Man and then press enter: "; +[->,----------]< print 'Backwards Man says, "'; [+++++++++++.<]< print "\" to you too.\n"; ~ } libacme-brainfck-perl-1.1.1/examples/countdown.pl0000644000232200023220000000032110034552223023434 0ustar pbuilderpbuilder00000000000000#!/usr/bin/env perl use Acme::Brainfuck qw/verbose/; print "Countdown commencing...\n"; ++++++++++[>+>+<<-] >>+++++++++++++++++++++++++++++++++++++++++++++++<< ++++++++++[>>.-<.<-] print "We have liftoff!\n"; libacme-brainfck-perl-1.1.1/MANIFEST0000644000232200023220000000054110034552223020376 0ustar pbuilderpbuilder00000000000000Build.PL Changes debian/changelog debian/control debian/copyright debian/libacme-brainfck-perl.examples debian/rules examples/countdown.pl examples/helloworld.pl examples/jabh.pl examples/math.pl examples/reverse.pl lib/Acme/Brainfuck.pm Makefile.PL MANIFEST MANIFEST.SKIP META.yml README t/0-signature.t t/1.t SIGNATURE Added here by Module::Build libacme-brainfck-perl-1.1.1/MANIFEST.SKIP0000644000232200023220000000012410034552223021140 0ustar pbuilderpbuilder00000000000000^_build/ ^Build$ ^blib/ ~$ \.bak$ ^Makefile$ ^pm_to_blib$ ^MANIFEST\.SKIP$ CVS .svn libacme-brainfck-perl-1.1.1/lib/0000755000232200023220000000000010034552223020013 5ustar pbuilderpbuilder00000000000000libacme-brainfck-perl-1.1.1/lib/Acme/0000755000232200023220000000000010034552223020660 5ustar pbuilderpbuilder00000000000000libacme-brainfck-perl-1.1.1/lib/Acme/Brainfuck.pm0000644000232200023220000001333510034552223023127 0ustar pbuilderpbuilder00000000000000# # See POD documentation below for description, copyright and licensing info. # # $Id: Brainfuck.pm,v 1.5 2002/09/23 02:26:31 jaldhar Exp $ # package Acme::Brainfuck; use Filter::Simple; use strict; use warnings; #remember to change this in the POD too. our $VERSION = '1.1.1'; # The memory pointer and memory cells of our Turing machine. our $p = 0; our @m = (); # The basic Brainfuck instructions. Extras will be added in import(). our $ops = '+-<>,.[]'; # Whether or not we accept extra instructions. our $verbose = 0; # print out filtered text? our $debug = 0; sub import() { shift; foreach (@_) { if (/^verbose$/) { $ops .= '~#'; $verbose = 1; } if (/^debug$/) { $debug = 1; } } } FILTER_ONLY code => sub { my $ret = $_; while ($ret =~ /\s ([\Q$ops\E]+) \s/gsx) { my $code = $1; my $len = length($1); my $at = pos($ret) - ($len + 1); $code =~ s/^/do { /g; $code =~ s/$/P; }; /g; $code =~ s/(\++)/"P += ".length($1).";" /eg; $code =~ s/(\-+)/"P -= ".length($1).";" /eg; $code =~ s/(<+)/"\$Acme::Brainfuck::p -= ".length($1).";" /eg; $code =~ s/(>+)/"\$Acme::Brainfuck::p += ".length($1).";" /eg; $code =~ s/\./print chr P; /g; $code =~ s/,/P = ord getc;/g; $code =~ s/\[/while(P){/g; $code =~ s/\]/}; /g; if ($verbose) { $code =~ s/~/\$Acme::Brainfuck::p = 0;\@Acme::Brainfuck::m = (); /g; $code =~ s/\#/print STDERR sprintf\('\$p = %d \$m[\$p]= %d', \$Acme::Brainfuck::p, P\), "\\n"; /g; } $code =~ s/P/\$Acme::Brainfuck::m\[\$Acme::Brainfuck::p\]/g; substr($ret, $at, $len, $code); } $_ = $ret; print $_ if $debug; }; 1; __END__ =pod =head1 NAME Acme::Brainfuck - Embed Brainfuck in your perl code =head1 SYNOPSIS #!/usr/bin/env perl use Acme::Brainfuck; print 'Hello world!', chr ++++++++++. ; =head1 DESCRIPTION Brainfuck is about the tiniest Turing-complete programming language you can get. A language is Turing-complete if it can model the operations of a Turing machine--an abstract model of a computer defined by the British mathematician Alan Turing in 1936. A Turing machine consists only of an endless sequence of memory cells and a pointer to one particular memory cell. Yet it is theoretically capable of performing any computation. With this module, you can embed Brainfuck instructions delimited by whitespace into your perl code. It will be translated into Perl as parsed. Brainfuck has just just 8 instructions (well more in this implementation, see L below.) which are as follows =head2 Instructions =over 4 =item + Increment Increase the value of the current memory cell by one. =item - Decrement Decrease the value of the current memory cell by one. =item > Forward Move the pointer to the next memory cell. =item < Back Move the pointer to the previous memory cell. =item , Input Read a byte from Standard Input and store it in the current memory cell. =item . Output Write the value of the current memory cell to standard output. =item [ Loop If the value of the current memory cell is 0, continue to the cell after the next ']'. =item ] Next Go back to the last previous '['. =back =head2 Extensions to ANSI Brainfuck This implementation has extra instructions available. In order to avoid such terrible bloat, they are only available if you use the I pragma like so: use Acme::Brainfuck qw/verbose/; The extra instructions are: =over 4 =item ~ Reset Resets the pointer to the first memory cell and clear all memory cells. =item # Peek Prints the values of the memory pointer and the current memory cell to STDERR. See also L below. =back =head2 Debugging By using the I pragma like this: use Acme::Brainfuck qw/debug/; you can dump out the generated perl code. (Caution: it is not pretty.) The key to understanding it is that the memory pointer is represented by I<$p>, and the memory array by I<@m> Therefore the value of the current memory cell is I<$m[$p]>. =head1 RETURN VALUE Each sequence of Brainfuck instructions becomes a Perl block and returns the value of the current memory cell. =head1 EXAMPLES =head2 JABH #!/usr/bin/env perl use Acme::Brainfuck; print "Just another "; ++++++[>++++++++++++++++<-]> ++.-- >+++[<++++++>-]<.>[-]+++[<------>-]< +.- +++++++++.--------- ++++++++++++++.-------------- ++++++.------ >+++[<+++++++>-]<.>[-]+++[<------->-]< +++.--- +++++++++++.----------- print " hacker.\n"; =head2 Countdown #!/usr/bin/env perl use strict; use Acme::Brainfuck qw/verbose/; print "Countdown commencing...\n"; ++++++++++[>+>+<<-] >>+++++++++++++++++++++++++++++++++++++++++++++++<< ++++++++++[>>.-<.<-] print "We have liftoff!\n"; =head2 Reverse #!/usr/bin/env perl use Acme::Brainfuck qw/verbose/; while(1) { print "Say something to Backwards Man and then press enter: "; +[->,----------]< print 'Backwards Man says, "'; [+++++++++++.<]< print "\" to you too.\n"; ~ } =head2 Math #!/usr/bin/env perl use Acme::Brainfuck; use strict; use warnings; my $answer = +++[>++++++<-]> ; print "3 * 6 = $answer \n"; =head1 VERSION 1.1.1 Apr 06, 2004 =head1 AUTHOR Jaldhar H. Vyas Ejaldhar@braincells.comE =head1 THANKS Urban Mueller - The inventor of Brainfuck. Damian Conway - For twisting perl to hitherto unimaginable heights of weirdness. Marco Nippula Ehttp://www.hut.fi/~mnippula/E - Some code in this module comes from his F Mr. Rock - Who has a nice Brainfuck tutorial at L. Some of the example code comes from there. =head1 COPYRIGHT AND LICENSE Copyright (c) 2004, Consolidated Braincells Inc. Licensed with no warranties under the Crowley Public License: "Do what thou wilt shall be the whole of the license." =cut libacme-brainfck-perl-1.1.1/META.yml0000644000232200023220000000044210034552223020516 0ustar pbuilderpbuilder00000000000000--- #YAML:1.0 name: Acme-Brainfuck version: 1.1.1 author: - Jaldhar H. Vyas abstract: Embed Brainfuck in your perl code license: unrestricted provides: Acme::Brainfuck: file: lib/Acme/Brainfuck.pm version: 1.1.1 generated_by: Module::Build version 0.24 libacme-brainfck-perl-1.1.1/t/0000755000232200023220000000000010034552223017510 5ustar pbuilderpbuilder00000000000000libacme-brainfck-perl-1.1.1/t/0-signature.t0000644000232200023220000000076710034552223022045 0ustar pbuilderpbuilder00000000000000use Test::More tests => 1; SKIP: { if (!eval { require Module::Signature; 1 }) { skip("Next time around, consider install Module::Signature, ". "so you can verify the integrity of this distribution.", 1); } elsif (!eval { require Socket; Socket::inet_aton('wwwkeys.pgp.net') }) { skip("Cannot connect to the keyserver", 1); } else { ok(Module::Signature::verify() == Module::Signature::SIGNATURE_OK() => "Valid signature" ); } } libacme-brainfck-perl-1.1.1/t/1.t0000644000232200023220000000561010034552223020037 0ustar pbuilderpbuilder00000000000000# # $Id: test.pl,v 1.2 2002/09/03 18:26:11 jaldhar Exp $ # # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' use Test::More tests => 6; BEGIN { use_ok('Acme::Brainfuck', qw/verbose/) }; my $a = +++[>+++<-]> ; ok ( $a == 9, ' Do + - < > [ ] work?'); $a = "\t"; tie *STDIN, 'Tie::Handle::Scalar', \$a; my $b = , ; ok ( $b == 9, ' Does , work?'); untie *STDIN; $a = ''; tie *STDOUT, 'Tie::Handle::Scalar', \$a; .. ok ( $a eq "\t\t", ' Does . work?'); untie *STDOUT; $a = ''; tie *STDERR, 'Tie::Handle::Scalar', \$a; # ok ( $a eq "\$p = 1 \$m[\$p]= 9\n", ' Does # work?'); untie *STDERR; $a = ~ ; ok ( $a == 0, ' Does ~ work?'); no Acme::Brainfuck; # # This is Tie::Handle::Scalar # It is reproduced in full here as it isn't a core module so it may not # be installed everywhere. # package Tie::Handle::Scalar; use base 'Tie::Handle'; use Carp; use FileHandle; sub TIEHANDLE { my $class = bless {}, shift; my ($stringref) = @_; if (! defined($stringref)) { my $temp_s = ''; $stringref = \$temp_s; } if (ref($stringref) ne "SCALAR") { croak "need a reference to a scalar,"; } $class->{position} = 0; $class->{data} = $stringref; $class->{end} = 0; my $tmpfile = $class->{tmpfile} = '.tmp.' . $$; $class->{fh} = new FileHandle "$tmpfile", O_RDWR|O_CREAT or croak "$tmpfile: $!"; $class->{FILENO} = $class->{fh}->fileno(); $class; } sub FILENO { my $class = shift; return $class->{FILENO}; } sub WRITE { my $class = shift; my($buf,$len,$offset) = @_; $offset = 0 if (! defined $offset); my $data = substr($buf, $offset, $len); my $n = length($data); $class->print($data); return $n; } sub PRINT { my $class = shift; ${$class->{data}} .= join('', @_); $class->{position} = length(${$class->{data}}); 1; } sub PRINTF { my $class = shift; my $fmt = shift; $class->PRINT(sprintf $fmt, @_); } sub READ { my $class = shift; my ($buf,$len,$offset) = @_; $offset = 0 if (! defined $offset); my $data = ${ $class->{data} }; if ($class->{end} >= length($data)) { return 0; } $buf = substr($data,$offset,$len); $_[0] = $buf; $class->{end} += length($buf); return length($buf); } sub READLINE { my $class = shift; if ($class->{end} >= length(${ $class->{data} })) { return undef; } my $recsep = $/; my $rod = substr(${ $class->{data} }, $class->{end}, -1); $rod =~ m/^(.*)$recsep{0,1}/; # use 0,1 for line sep to include possible no \n on last line my $line = $1 . $recsep; $class->{end} += length($line); return $line; } sub CLOSE { my $class = shift; if (-e $class->{tmpfile}) { $class->{fh}->close(); unlink $class->{tmpfile} or warn $!; } $class = undef; 1; } sub DESTROY { my $class = shift; if (-e $class->{tmpfile}) { unlink $class->{tmpfile} or warn $!; } $class = undef; 1;undef $class; } libacme-brainfck-perl-1.1.1/README0000644000232200023220000000260610034552223020131 0ustar pbuilderpbuilder00000000000000Acme::Brainfuck version 1.1.1 ============================= Brainfuck is about the tiniest Turing-complete programming language you can get. A language is Turing-complete if it can model the operations of a Turing machine--an abstract model of a computer defined by the British mathematician Alan Turing in 1936. A Turing machine consists only of an endless sequence of memory cells and a pointer to one particular memory cell. Yet it is theoretically capable of performing any computation. This module will allow you to mix Brainfuck with your perl code. INSTALLATION This module should work with any version of perl from 5.005 on up. However if you are using a version prior to 5.7.0, you will have to install the Filter::Simple module and dependencies yourself. Newer versions include this as part of the core. If you have the Module::Signature module installed, you can verify the integrity of this distribution by typing: cpansign -v Then to install this module type the following: perl Makefile.PL make make test make install or perl Build.PL Build Build test Build install COPYRIGHT AND LICENCE By Jaldhar H. Vyas Copyright (c) 2004, Consolidated Braincells Inc. Licensed with no warranties under the Crowley Public License: "Do what thou wilt shall be the whole of the license." $Id: README,v 1.5 2002/09/23 02:26:31 jaldhar Exp $ libacme-brainfck-perl-1.1.1/Build.PL0000644000232200023220000000074410034552223020546 0ustar pbuilderpbuilder00000000000000#!/usr/bin/perl -w # # $Id$ # use strict; use warnings; use Module::Build; # accomodate with CPAN autoinstall shift(@ARGV) if $ARGV[0] && $ARGV[0] eq 'Build'; Module::Build->new( module_name => 'Acme::Brainfuck', license => 'unrestricted', dist_version_from => 'lib/Acme/Brainfuck.pm', dist_author => 'Jaldhar H. Vyas ', requires => { }, create_makefile_pl => 'traditional', sign => 1, )->create_build_script; libacme-brainfck-perl-1.1.1/Makefile.PL0000644000232200023220000000046710034552223021226 0ustar pbuilderpbuilder00000000000000# Note: this file was auto-generated by Module::Build::Compat version 0.03 use ExtUtils::MakeMaker; WriteMakefile ( 'PL_FILES' => {}, 'INSTALLDIRS' => 'site', 'NAME' => 'Acme::Brainfuck', 'VERSION_FROM' => 'lib/Acme/Brainfuck.pm', 'PREREQ_PM' => {} ) ; libacme-brainfck-perl-1.1.1/SIGNATURE0000644000232200023220000000364310034552234020541 0ustar pbuilderpbuilder00000000000000This file contains message digests of all files listed in MANIFEST, signed via the Module::Signature module, version 0.35. To verify the content in this distribution, first make sure you have Module::Signature installed, then type: % cpansign -v It would check each file's integrity, as well as the signature's validity. If "==> Signature verified OK! <==" is not displayed, the distribution may already have been compromised, and you should not run its Makefile.PL or Build.PL. -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 SHA1 d86d46a07ed2324e4f2bc1e0df5517330c021107 Build.PL SHA1 8dce57798c24487939b7eb1d7173f60ce3c8353e Changes SHA1 95429256413a58684fbc9c0d644c715132f6adff MANIFEST SHA1 1ebd2f0a2008546d3fbad5a41ed189d946ed3c4e MANIFEST.SKIP SHA1 8d9e03b8b2e564e162e97133c4ca7a1cfaee0f64 META.yml SHA1 58514e315cda25821bbee74ed0969c8b7858da5a Makefile.PL SHA1 415a20b1a979e22b1a483c246c271a0e19642cf2 README SHA1 5e3ae48a991749e03f913dc6d09cb44c25c717c8 debian/changelog SHA1 0b2de4bb80fa2754983d96d71b2f7bae332861ce debian/control SHA1 852aa2c93cd7fcf0f5110e7b6d56ba72c2198201 debian/copyright SHA1 e9df0269ff17651bbf6cde7a2aa8c63fda11877c debian/libacme-brainfck-perl.examples SHA1 e836e40794376e45b8c2daeccb6f2a1bf8cec968 debian/rules SHA1 e0d67abeef7a35851dbef65a13f80051b2abc7b7 examples/countdown.pl SHA1 b2e48e46347f0b9daf4fe0aea4a31c61ce23e264 examples/helloworld.pl SHA1 ea3ab39ff65a07d63861a03e7c36b31c0860f440 examples/jabh.pl SHA1 77773892a1e0e8db1f886eef11c92ef0296e18a6 examples/math.pl SHA1 cf1a131568321693c06f5ab26b6f70a6197b95ca examples/reverse.pl SHA1 4c8b9362b8a29d1462fbdd2b7450f9e8296d40de lib/Acme/Brainfuck.pm SHA1 0f25a2d86f8f5eda690df8da9964f0b3c3bca15c t/0-signature.t SHA1 6dc8f046e103d07cd18fd3e721c98677ae550ba5 t/1.t -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.4 (GNU/Linux) iD8DBQFActScogwpTl2CN6gRAjqpAKC2eTqp+s7myAQjs3wz4mP8RUJjsACgmy9R Q3ryvjGlibeTgbhbq1gPdLs= =I2au -----END PGP SIGNATURE-----