#======================================================================
#                    A N T S D E B U G . P L 
#                    doc: Sat Mar 21 14:18:37 2009
#                    dlm: Thu Aug 20 22:41:38 2009
#                    (c) 2009 A.M. Thurnherr
#                    uE-Info: 11 55 NIL 0 0 72 2 2 4 NIL ofnI
#======================================================================

# HISTORY:
#  Mar 21, 2009: - created from [abc]
#  Aug 20, 2009: tried to change prompt, to no avail...

{ my($term);

sub debug()
{
	unless (defined($term)) {
		use Term::ReadLine;
		$term = new Term::ReadLine 'debug';
    }
	do {
		my($expr) = $term->readline;
		return if ($expr eq 'return');
		$res = eval($expr);
		if 	(defined($res)) {						# no error
			print(STDERR "$res\n");
		} else {									# error
			print(STDERR "$@");
		}
	}
}

}
1;