1 #======================================================================

     2 #                    A N T S D E B U G . P L 

     3 #                    doc: Sat Mar 21 14:18:37 2009

     4 #                    dlm: Thu Aug 20 22:41:38 2009

     5 #                    (c) 2009 A.M. Thurnherr

     6 #                    uE-Info: 11 55 NIL 0 0 72 2 2 4 NIL ofnI

     7 #======================================================================

     8 

     9 # HISTORY:

    10 #  Mar 21, 2009: - created from [abc]

    11 #  Aug 20, 2009: tried to change prompt, to no avail...

    12 

    13 { my($term);

    14 

    15 sub debug()

    16 {

    17 	unless (defined($term)) {

    18 		use Term::ReadLine;

    19 		$term = new Term::ReadLine 'debug';

    20     }

    21 	do {

    22 		my($expr) = $term->readline;

    23 		return if ($expr eq 'return');

    24 		$res = eval($expr);

    25 		if 	(defined($res)) {						# no error

    26 			print(STDERR "$res\n");

    27 		} else {									# error

    28 			print(STDERR "$@");

    29 		}

    30 	}

    31 }

    32 

    33 }

    34 1;