Changeset 14430 for misc/runpugs/bin

Timestamp:

10/22/06 01:36:47 (2 years ago)

Author:

andara

Message:

[runpugs]
-improved error handling (try not to die).
-Web::Terminal: new generic version with command history, supports GHCi and
many more. (not live yet)

Files:

• misc/runpugs/bin/termdispatcher2.pl (modified) (1 diff)

misc/runpugs/bin/termdispatcher2.pl

@@ -14 +14 @@
 my $cmd=$ARGV[1] || 'my $a='.$id.';say "Hello, $a";';
 #my $cmd='my $a='.$id.';say "Hello, $a";';
-my $prompt='pugs> ';
+#my $prompt='pugs> ';
+my $prompt='Prelude> ';
 print "Sending msg $id: $cmd\n";
 my $ip="127.0.0.1";
-my $reply = &Web::Terminal::Dispatcher::send($id,$ip,$prompt.$cmd);
+(my $reply,my $histref) = &Web::Terminal::Dispatcher::send($id,$ip,$prompt.$cmd);
 print $reply;
+print "\nHistory\n";
+for my $entry (@{$histref}) {
+print "\t$entry\n";
+}