[ViewVC] Diff of: cvs/cvsroot/AnyEvent-MP/MP.pm

Comparing cvsroot/AnyEvent-MP/MP.pm (file contents):
Revision 1.142 by root, Fri Mar 23 13:44:01 2012 UTC vs.
Revision 1.153 by root, Sat Nov 2 01:30:49 2019 UTC

    # execute callbacks in $SELF port context
    my $timer = AE::timer 1, 0, psub {
       die "kill the port, delayed";
    };
+   # distributed database - modification
+   db_set $family => $subkey [=> $value]  # add a subkey
+   db_del $family => $subkey...           # delete one or more subkeys
+   db_reg $family => $port [=> $value]    # register a port
+   # distributed database - queries
+   db_family $family => $cb->(\%familyhash)
+   db_keys   $family => $cb->(\@keys)
+   db_values $family => $cb->(\@values)
+   # distributed database - monitoring a family
+   db_mon $family => $cb->(\%familyhash, \@added, \@changed, \@deleted)
 =head1 DESCRIPTION
 This module (-family) implements a simple message passing framework.
 Despite its simplicity, you can securely message other processes running
 each other. To do this, nodes should listen on one or more local transport
 endpoints - binds.
 Currently, only standard C<ip:port> specifications can be used, which
 specify TCP ports to listen on. So a bind is basically just a tcp socket
-in listening mode thta accepts conenctions form other nodes.
+in listening mode that accepts connections from other nodes.
 =item seed nodes
 When a node starts, it knows nothing about the network it is in - it
 needs to connect to at least one other node that is already in the
 network. These other nodes are called "seed nodes".
 Seed nodes themselves are not special - they are seed nodes only because
 some other node I<uses> them as such, but any node can be used as seed
-node for other nodes, and eahc node cna use a different set of seed nodes.
+node for other nodes, and eahc node can use a different set of seed nodes.
 In addition to discovering the network, seed nodes are also used to
-maintain the network - all nodes using the same seed node form are part of
+maintain the network - all nodes using the same seed node are part of the
-the same network. If a network is split into multiple subnets because e.g.
+same network. If a network is split into multiple subnets because e.g. the
-the network link between the parts goes down, then using the same seed
+network link between the parts goes down, then using the same seed nodes
-nodes for all nodes ensures that eventually the subnets get merged again.
+for all nodes ensures that eventually the subnets get merged again.
 Seed nodes are expected to be long-running, and at least one seed node
 should always be available. They should also be relatively responsive - a
 seed node that blocks for long periods will slow down everybody else.
 Any node that loads the L<AnyEvent::MP::Global> module becomes a global
 node and tries to keep connections to all other nodes. So while it can
 make sense to make every node "global" in small networks, it usually makes
 sense to only make seed nodes into global nodes in large networks (nodes
-keep connections to seed nodes and global nodes, so makign them the same
+keep connections to seed nodes and global nodes, so making them the same
 reduces overhead).
 =back
 =head1 VARIABLES/FUNCTIONS
 package AnyEvent::MP;
 use AnyEvent::MP::Config ();
 use AnyEvent::MP::Kernel;
-use AnyEvent::MP::Kernel qw(%NODE %PORT %PORT_DATA $UNIQ $RUNIQ $ID);
+use AnyEvent::MP::Kernel qw(
+   %NODE %PORT %PORT_DATA $UNIQ $RUNIQ $ID
+   add_node load_func
+   NODE $NODE
+   configure
+   node_of port_is_local
+   snd kil
+   db_set db_del
+   db_mon db_family db_keys db_values
+);
 use common::sense;
 use Carp ();
 use AnyEvent ();
 use Guard ();
 use base "Exporter";
-our $VERSION = $AnyEvent::MP::Config::VERSION;
+our $VERSION = '2.02'; # also in MP/Config.pm
 our @EXPORT = qw(
-   NODE $NODE *SELF node_of after
    configure
+   NODE $NODE
+   *SELF
+   node_of port_is_local
+   snd kil
-   snd rcv mon mon_guard kil psub peval spawn cal
+   port rcv mon mon_guard psub peval spawn cal
-   port
    db_set db_del db_reg
    db_mon db_family db_keys db_values
+   after
 );
 our $SELF;
 sub _self_die() {
 =item $nodeid = node_of $port
 Extracts and returns the node ID from a port ID or a node ID.
+=item $is_local = port_is_local $port
+Returns true iff the port is a local port.
 =item configure $profile, key => value...
 =item configure key => value...
 Before a node can talk to other nodes on the network (i.e. enter
 =over 4
 =item norc => $boolean (default false)
 If true, then the rc file (e.g. F<~/.perl-anyevent-mp>) will I<not>
-be consulted - all configuraiton options must be specified in the
+be consulted - all configuration options must be specified in the
 C<configure> call.
 =item force => $boolean (default false)
 IF true, then the values specified in the C<configure> will take
 =item step 2, bind listener sockets
 The next step is to look up the binds in the profile, followed by binding
 aemp protocol listeners on all binds specified (it is possible and valid
-to have no binds, meaning that the node cannot be contacted form the
+to have no binds, meaning that the node cannot be contacted from the
 outside. This means the node cannot talk to other nodes that also have no
 binds, but it can still talk to all "normal" nodes).
 If the profile does not specify a binds list, then a default of C<*> is
 used, meaning the node will bind on a dynamically-assigned port on every
 =cut
 sub rcv($@);
 my $KILME = sub {
-   (my $tag = substr $_[0], 0, 30) =~ s/([\x20-\x7e])/./g;
+   (my $tag = substr $_[0], 0, 30) =~ s/([^\x20-\x7e])/./g;
    kil $SELF, unhandled_message => "no callback found for message '$tag'";
 };
 sub port(;&) {
    my $id = $UNIQ . ++$ID;
 sub rcv($@) {
    my $port = shift;
    my ($nodeid, $portid) = split /#/, $port, 2;
-   $NODE{$nodeid} == $NODE{""}
+   $nodeid eq $NODE
       or Carp::croak "$port: rcv can only be called on local ports, caught";
    while (@_) {
       if (ref $_[0]) {
          if (my $self = $PORT_DATA{$portid}) {
    $port
 }
 =item peval $port, $coderef[, @args]
-Evaluates the given C<$codref> within the contetx of C<$port>, that is,
+Evaluates the given C<$codref> within the context of C<$port>, that is,
-when the code throews an exception the C<$port> will be killed.
+when the code throws an exception the C<$port> will be killed.
 Any remaining args will be passed to the callback. Any return values will
 be returned to the caller.
 This is useful when you temporarily want to execute code in the context of
 =item db_values $family => $cb->(\@values)
 Same as C<db_family>, except it only queries the family I<values> and passes them
 as array reference to the callback.
-=item $guard = db_mon $family => $cb->($familyhash, \@added, \@changed, \@deleted)
+=item $guard = db_mon $family => $cb->(\%familyhash, \@added, \@changed, \@deleted)
-Creates a monitor on the given database family. Each time a key is set
+Creates a monitor on the given database family. Each time a key is
-or or is deleted the callback is called with a hash containing the
+set or is deleted the callback is called with a hash containing the
 database family and three lists of added, changed and deleted subkeys,
 respectively. If no keys have changed then the array reference might be
 C<undef> or even missing.
 If not called in void context, a guard object is returned that, when
       return unless %$family;
       undef $guard;
       print "My::Module::workers now nonempty\n";
    };
-Example: print all changes to the family "AnyRvent::Fantasy::Module".
+Example: print all changes to the family "AnyEvent::Fantasy::Module".
-   my $guard = db_mon AnyRvent::Fantasy::Module => sub {
+   my $guard = db_mon AnyEvent::Fantasy::Module => sub {
       my ($family, $a, $c, $d) = @_;
       print "+$_=$family->{$_}\n" for @$a;
       print "*$_=$family->{$_}\n" for @$c;
       print "-$_=$family->{$_}\n" for @$d;
 filter messages without dequeuing them.
 This is not a philosophical difference, but simply stems from AnyEvent::MP
 being event-based, while Erlang is process-based.
-You cna have a look at L<Coro::MP> for a more Erlang-like process model on
+You can have a look at L<Coro::MP> for a more Erlang-like process model on
 top of AEMP and Coro threads.
 =item * Erlang sends are synchronous, AEMP sends are asynchronous.
 Sending messages in Erlang is synchronous and blocks the process until
-a conenction has been established and the message sent (and so does not
+a connection has been established and the message sent (and so does not
 need a queue that can overflow). AEMP sends return immediately, connection
 establishment is handled in the background.
 =item * Erlang suffers from silent message loss, AEMP does not.
 C<grp_mon> can be replaced by C<db_mon> with minor changes - C<db_mon>
 passes a hash as first argument, and an extra C<$chg> argument that can be
 ignored:
   db_mon $group => sub {
-     my ($ports, $add, $chg, $lde) = @_;
+     my ($ports, $add, $chg, $del) = @_;
      $ports = [keys %$ports];
      # now $ports, $add and $del are the same as
      # were originally passed by grp_mon.
      ...
 =back
 =head1 LOGGING
-AnyEvent::MP does not normally log anything by itself, but sinc eit is the
+AnyEvent::MP does not normally log anything by itself, but since it is the
-root of the contetx hierarchy for AnyEvent::MP modules, it will receive
+root of the context hierarchy for AnyEvent::MP modules, it will receive
 all log messages by submodules.
 =head1 SEE ALSO
 L<AnyEvent::MP::Intro> - a gentle introduction.

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing cvsroot/AnyEvent-MP/MP.pm (file contents): Revision 1.142 by root, Fri Mar 23 13:44:01 2012 UTC vs. Revision 1.153 by root, Sat Nov 2 01:30:49 2019 UTC

Diff Legend

Comparing cvsroot/AnyEvent-MP/MP.pm (file contents):
Revision 1.142 by root, Fri Mar 23 13:44:01 2012 UTC vs.
Revision 1.153 by root, Sat Nov 2 01:30:49 2019 UTC