#!/usr/bin/perl
#  yapsh - Yet Another Perl Shell
#  Copyright (C) 2001 Drake Wilson
#  This program is free software; you can redistribute it and/or
#  modify it under the terms of the GNU General Public License
#  as published by the Free Software Foundation; either version 2
#  of the License, or (at your option) any later version.
#  
#  This program is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#  
#  If you wish to receive a copy of the GNU General Public License, write to the Free Software
#  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA, or see
#  <http://www.gnu.org/copyleft/gpl.html>.
#  
#  You can contact me by e-mail at drake@libcom.com.

use strict 'subs';
use Term::ReadLine;
use Shell;
my (@brackets, %special, $nprompt, $bprompt, $reader, $command, $toe);
@brackets = (%special = ());
$nprompt="& ";
$bprompt=". ";
$reader=new Term::ReadLine 'perl shell';

print "This is yapsh v1.0.  See source for license...\n\n";

{
    print $nprompt;
    last unless (defined($_ = $reader->readline()));
    $command="";
    do
    {
	{
	    my ($foo,$qux);
	    foreach $foo (keys %special)
	    {
		if ($_ eq $foo)
		{
		    $qux = $special{$foo};
		    &$qux();
		}
	    }
	}
	$_ = scalar reverse $_;
	{
	    my $ch;
	    while ($ch = chop $_)
	    {
		$command .= $ch;
		foreach ('{','(','[')
		{
		    push @brackets, $ch if ($ch eq $_);
		}
		foreach ('}',')',']')
		{
		    if ($ch eq $_)
		    {
			$ch = '[' if ($ch eq ']'); 
			$ch = '(' if ($ch eq ')');
			$ch = '{' if ($ch eq '}');
			warn "Mismatched parentheses.\n" unless ($ch eq pop @brackets);
		    }
		}
	    }
	}
	if (@brackets)
	{
	    $command .= " ";
	    print $bprompt;
	    $_ = $reader->readline();
	}
    } while (@brackets);
    eval ($command);
    warn "$@\n" if ($@);
    redo;
}
__END__

=head1 yapsh - Yet Another Perl Shell

As the title implies, this is -- yet another Perl Shell.  Any
text typed in will be interpreted as Perl and executed immediately,
unless there are unmatched open brackets, in which case a different
prompt will be displayed to allow the user to continue until the
bracket becomes matched.

See the Shell.pm documentation for more information.

=head1 COPYRIGHT

Copyright (C) 2001 Drake Wilson, drake@libcom.com.