[ViewVC] Annotation of: cvs/AnyEvent-MP/eg/chat_client

#!/opt/bin/perl

use common::sense;
use AnyEvent::MP;

my ($nick, $servernode) = @ARGV;

initialise_node "slave/", $servernode;

$| = 1;

my $servernode = (resolve_node $servernode)->recv;

my $port = port;

my ($client, $server);

sub server_connect {
   print "\rconnecting...\n";

   $client = port {
      print "\r  \r@_\n> ";
      0
   };
   mon $client, sub {
      print "\rdisconnected @_\n";
      &server_connect;
   };

   $server = spawn $servernode, "::client_connect", $client, $nick;
   mon $server, $client;
}

server_connect;

my $w = AE::io 0, 0, sub {
   chomp (my $line = <STDIN>);
   print "> ";
   snd $server, $line;
};

print "> ";
AE::cv->recv;

Revision:	1.4
Committed:	Fri Aug 14 15:38:02 2009 UTC (17 years, 1 month ago) by root
Branch:	MAIN
Changes since 1.3:	+27 -56 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.2	#!/opt/bin/perl
2
3	root	1.4	use common::sense;
4	elmex	1.1	use AnyEvent::MP;
5
6	root	1.4	my ($nick, $servernode) = @ARGV;
7	elmex	1.1
8	root	1.4	initialise_node "slave/", $servernode;
9	elmex	1.3
10	root	1.4	$\| = 1;
11	elmex	1.3
12	root	1.4	my $servernode = (resolve_node $servernode)->recv;
13	elmex	1.1
14	root	1.4	my $port = port;
15	elmex	1.1
16	root	1.4	my ($client, $server);
17	elmex	1.1
18	root	1.4	sub server_connect {
19			print "\rconnecting...\n";
20	elmex	1.1
21	root	1.4	$client = port {
22			print "\r \r@_\n> ";
23			0
24			};
25			mon $client, sub {
26			print "\rdisconnected @_\n";
27			&server_connect;
28			};
29	elmex	1.1
30	root	1.4	$server = spawn $servernode, "::client_connect", $client, $nick;
31			mon $server, $client;
32			}
33	elmex	1.1
34	root	1.4	server_connect;
35	elmex	1.1
36	root	1.4	my $w = AE::io 0, 0, sub {
37			chomp (my $line = <STDIN>);
38			print "> ";
39			snd $server, $line;
40	root	1.2	};
41	elmex	1.1
42	root	1.4	print "> ";
43			AE::cv->recv;
44	elmex	1.1