author | A.M. Thurnherr <athurnherr@yahoo.com> |
Tue, 29 Jun 2021 12:11:22 -0400 | |
changeset 45 | 90f620beec6b |
parent 0 | a5233793bf69 |
permissions | -rw-r--r-- |
#====================================================================== # 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;