CUFP
GrandFather
<p>This is an Ook interpreter (see [http://www.dangermouse.net/esoteric/ook.html]). If you are an orangutan in an other worldly library you may find this useful for writing cataloging applications. Enjoy.</p>
<p>For debugging include maximum number of instructions to interpret on the command line: <c>Ook 2000</c></p>
<c>
use warnings;
use strict;
my %xlate =
(
'.?' => \&DoRight,
'?.' => \&DoLeft,
'..' => \&DoInc,
'!!' => \&DoDec,
'!.' => \&DoOut,
'.!' => \&DoIn,
'!?' => \&DoWhile,
'?!' => \&DoElihw
);
my @tape = 0; # Storage "Tape"
my $head = 0; # Read / Write head
my $pc = 0; # Program counter
my @stack; # Optimise loop handling
my $inBuffer;
my $debug = shift || 0;
my $steps = 0;
my $program = join " ", <DATA>;
$program =~ s/Ook([.?!])\s*Ook([?.!])\s*/$1$2 /gi;
my @code = map {$xlate{$_}} split " ", $program;
$code[$pc]->() while ($pc < @code);
sub debugPrint
{
return if ! $debug;
print $_[0] . ": PC $pc, Stack depth " . @stack . "\n";
die "Instruction count exceeded\n" if ++$steps > $debug;
}
sub DoRight
{
debugPrint ("DoRight");
$tape [++$head] ||= undef;
++$pc;
}
sub DoLeft
{
debugPrint ("DoLeft");
unshift @tape, 0 unless $head;
--$head if $head;
++$pc;
}
sub DoInc
{
debugPrint ("DoInc");
if (++$tape [$head] > 255)
{$tape [$head] = -255;}
++$pc;
}
sub DoDec
{
debugPrint ("DoDec");
if (--$tape [$head] < -255)
{$tape [$head] = 255;}
++$pc;
}
sub DoOut
{
debugPrint ("DoOut");
print chr ($tape [$head]);
++$pc;
}
sub DoIn
{
debugPrint ("DoIn");
if (! $inBuffer)
{$inBuffer = <STDIN>;}
$tape [$head] = ord substr $inBuffer, 0, 1, "";
++$pc;
}
sub DoWhile
{
debugPrint ("DoWhile");
if ($tape [$head])
{# Enter the loop
push @stack, $pc;
++$pc;
return;
}
# Skip the loop
my $nested = 1; # Keeps track of nested loops
my $startPc = $pc;
do
{
--$nested if $code [++$pc] == \&DoElihw;
++$nested if $code [$pc] == \&DoWhile;
die "Unmatched Ook! Ook? found at instruction $startPc\n" if $pc > @code;
}
while ($nested);
++$pc;
}
sub DoElihw
{
debugPrint ("DoElihw");
die "Unmatched Ook? Ook! found at instruction $pc\n" if ! @stack;
$pc = $stack [-1];
pop @stack;
}
</c>
<readmore title="Sample Ook program">
<c>
__DATA__
Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook! Ook? Ook! Ook! Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook! Ook?
Ook! Ook! Ook? Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook? Ook. Ook? Ook? Ook! Ook? Ook. Ook? Ook! Ook? Ook. Ook. Ook.
Ook. Ook. Ook! Ook. Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook! Ook?
Ook! Ook! Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook! Ook? Ook! Ook!
Ook? Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook?
Ook. Ook? Ook? Ook! Ook? Ook. Ook? Ook! Ook? Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook! Ook. Ook! Ook!
Ook! Ook! Ook! Ook. Ook. Ook. Ook! Ook. Ook. Ook? Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook! Ook? Ook! Ook! Ook. Ook?
Ook. Ook. Ook. Ook. Ook. Ook. Ook! Ook? Ook! Ook! Ook? Ook. Ook? Ook.
Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook. Ook? Ook. Ook? Ook? Ook!
Ook? Ook. Ook? Ook! Ook? Ook. Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook!
Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook!
Ook! Ook! Ook! Ook. Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook! Ook? Ook! Ook! Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook! Ook? Ook! Ook! Ook? Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook? Ook. Ook? Ook? Ook! Ook? Ook. Ook? Ook! Ook? Ook.
Ook. Ook. Ook! Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook! Ook. Ook. Ook. Ook! Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook! Ook. Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook!
Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook!
Ook! Ook! Ook! Ook. Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook! Ook. Ook. Ook?
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook! Ook?
Ook! Ook! Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook! Ook? Ook! Ook!
Ook? Ook. Ook? Ook. Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook. Ook?
Ook. Ook? Ook? Ook! Ook? Ook. Ook? Ook! Ook? Ook. Ook! Ook! Ook! Ook!
Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook!
Ook! Ook! Ook! Ook. Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook! Ook?
Ook! Ook! Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook! Ook? Ook! Ook!
Ook? Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook?
Ook. Ook? Ook? Ook! Ook? Ook. Ook? Ook! Ook? Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook! Ook. Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook! Ook? Ook! Ook! Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook! Ook? Ook! Ook! Ook? Ook. Ook? Ook. Ook. Ook. Ook. Ook.
Ook. Ook? Ook. Ook? Ook? Ook! Ook? Ook. Ook? Ook! Ook? Ook. Ook! Ook.
Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook. Ook. Ook? Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook! Ook? Ook! Ook!
Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook! Ook? Ook! Ook! Ook? Ook.
Ook? Ook. Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook. Ook? Ook. Ook?
Ook? Ook! Ook? Ook. Ook? Ook! Ook? Ook. Ook! Ook! Ook! Ook! Ook! Ook.
Ook! Ook! Ook! Ook. Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook! Ook? Ook! Ook! Ook. Ook? Ook. Ook. Ook. Ook.
Ook. Ook. Ook! Ook? Ook! Ook! Ook? Ook. Ook? Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook? Ook. Ook? Ook? Ook! Ook? Ook. Ook? Ook!
Ook? Ook. Ook! Ook. Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook!
Ook! Ook! Ook! Ook! Ook! Ook. Ook. Ook. Ook. Ook. Ook! Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook! Ook. Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook!
Ook! Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook! Ook.
</c>
</readmore>
<readmore title="Code to generate Ook! program to print a given string">
<c>
use warnings;
use strict;
my $line = "Just another Ook! hacker";
my $OokCode;
my @chars = split "", $line;
my $curVal = 0;
for my $curChr (@chars)
{
my $delta = ord ($curChr) - $curVal;
$curVal = ord ($curChr);
if ($delta > 0)
{$OokCode .= "+" while $delta--;}
elsif ($delta < 0)
{$OokCode .= "-" while $delta++;}
$OokCode .= "o";
}
my @subs =
(
['+' x 96, ">++++[->++++[-<<++++++>>]<]<"],
['+' x 72, ">++++++[->+++[-<<++++>>]<]<"],
['+' x 64, ">++++[->++++[-<<++++>>]<]<"],
['+' x 60, ">++++[->+++++[-<<+++>>]<]<"],
['+' x 48, ">+++[->++++[-<<++++>>]<]<"],
['+' x 36, ">+++[->+++[-<<++++>>]<]<"],
['+' x 32, ">++++[->++++[-<<++>>]<]<"],
['+' x 30, ">++[->+++++[-<<+++>>]<]<"],
['+' x 27, ">+++[->+++[-<<+++>>]<]<"],
);
$OokCode =~ s/\Q${$_}[0]\E/${$_}[1]/g for (@subs);
${$_}[0] =~ s/\+/-/g for @subs;
${$_}[1] =~ s/<(\++)/'-' x length ($1)/eg for @subs;
#$OokCode =~ s/\Q${$_}[0]\E/${$_}[1]/g for (@subs);
$OokCode =~ s/\+/Ook. Ook. /g;
$OokCode =~ s/\-/Ook! Ook! /g;
$OokCode =~ s/\</Ook? Ook. /g;
$OokCode =~ s/\>/Ook. Ook? /g;
$OokCode =~ s/\[/Ook! Ook? /g;
$OokCode =~ s/\]/Ook? Ook! /g;
$OokCode =~ s/i/Ook. Ook! /g;
$OokCode =~ s/(?<!O)o/Ook! Ook. /g;
print ((substr $OokCode, 0, 70, "") . "\n") while length $OokCode;
</c>
</readmore>
<p><small><b>Update:</b> add missing WikiPedia link</small><br/>
<small><b>Update:</b> include debugger and possibly fix Holli's problem</small><br/>
<small><b>Update:</b> A more interesting Ook! program</small><br/>
<small><b>Update:</b>Add code for Ook! generator per [merlyn]'s suggestion</small>
</p>
<div class="pmsig"><div class="pmsig-461912">
<hr>Perl is Huffman encoded by design.
</div></div>