Changeset 16595 for misc/runpugs/bin

Timestamp:

06/01/07 18:08:37 (18 months ago)

Author:

andara

Message:

[runpugs] - Settings now go in $HOME/.webtermrc (using Config::General).

Look at webtermrc for example settings.

• Prompt detection now more robust.
• Easier back-end testing with command-line REPLs (see /bin).

Location:

misc/runpugs/bin

Files:

• perl_repl.pl (modified) (1 diff)
• test_session.pl (modified) (1 diff)
• test_session_dispatcher.pl (modified) (2 diffs)

misc/runpugs/bin/perl_repl.pl

@@ -4 +4 @@
 #use lib '../lib','/home/andara/lib/perl/5.8.8';
 use Repl;
-
+my $prompt ='pugs> ';
+my $motd ='Simple Perl REPL';
 my $subref = sub {
         my $cmd = shift;
         my $res = eval($cmd);
-        return $res;
+        return ($res,$prompt);
 };
-my $prompt ='pugs> ';
-my $motd ='Simple Perl REPL';
+
 
 my $repl = new Repl {subref=>$subref,prompt=>$prompt,motd=>$motd};

misc/runpugs/bin/test_session.pl

@@ -13 +13 @@
 my $session=create_session($app);
 
-my $subref = sub {my $cmd=shift;my $res=$session->write($cmd);chomp $res; return $res;};
+my $subref = sub {my $cmd=shift;my $res=$session->write($cmd);chomp $res; return ($res,$session->{'prompt'});};
 
 my $prompt =$session->prompt;

misc/runpugs/bin/test_session_dispatcher.pl

@@ -7 +7 @@
 use Web::Terminal::Dispatcher;
 $Web::Terminal::Settings::port=2059;
-
-my $app=(defined $ARGV[0])?$ARGV[0]:2;
+my $app;
+if (defined $ARGV[0]){
+        $app=$ARGV[0];
+} else {
+die "Usage: $0 app (0|1|2) [id (default 42)].\n";
+}
 my $id=(defined $ARGV[1])?$ARGV[1]:42;
 $id='testsession'.$id;
@@ -17 +21 @@
 (my $reply,my $prompt,my $histref) =
 &Web::Terminal::Dispatcher::send($id,$ip,$app,1,$cmd);
-return $reply;
+return ($reply,$prompt);
 };