From: realraum <realraum@realraum.at>
Date: Sun, 3 Jul 2011 20:32:28 +0000 (+0000)
Subject: added Dart Framework
X-Git-Url: https://git.realraum.at/?a=commitdiff_plain;h=31361cd72433476cc5f87b28e68d3b2f4da129a9;p=svn42.git

added Dart Framework
---

diff --git a/dart/Dart.pm b/dart/Dart.pm
new file mode 100644
index 0000000..9f5fd3c
--- /dev/null
+++ b/dart/Dart.pm
@@ -0,0 +1,176 @@
+
+package Dart;
+use strict;
+use base 'Exporter';
+# new Dart(player_names=>[ 'lala', 'popo' ]);
+## Player, Rank, Active, 
+
+sub new
+{
+  my $invocant = shift;
+  my $class = ref($invocant) || $invocant;
+  my (%params) =@_;
+  my $self  = bless {}, $class;
+  die "Missing player_names" if not ref $params{player_names} eq 'ARRAY';
+  die "Missing player_names" if @{$params{player_names}};
+  $self->{player}=[];
+  $self->{current_player}=0;
+  my $player_counter=0;
+  for my $player_name (@{$params{player_names}}) 
+  {
+    $player_counter++;
+    $self->add_player(&create_player(name=>$player_name,rank=>undef,active=>1));
+  }
+  $self->{active_player_count}=$player_counter;
+  $self->{player_count}=$player_counter;
+  $self->{round}=1;
+  $self->{max_shoots_per_player}=3;
+  $self->{current_shoot_count}=0;
+  
+  $self->callback('init');
+  return $self;
+}
+
+sub reset_game
+{
+  my $self=shift;
+}
+
+sub callback
+{
+  my $self=shift;
+  my $callbackname = shift;
+  if ($self->{callbacks}->{$callbackname})
+  {
+    return $self->{callbacks}->{$callbackname}->($self,@_);
+  } else {
+    return 1;
+  }
+}
+
+sub run
+{
+  my $self=shift;
+  my ($data_in_fh,$sound_out_fh)=@_;
+#  $data_in_fh ||= STDIN;
+#  $sound_out_fh ||= STDOUT;
+  $self->{sound_out_fh}=$sound_out_fh;
+
+  while ( my $shoot_data = <$data_in_fh>)
+  {
+    #print STDERR $schuss;
+    my ($mult,$number) = split /\s+/, $shoot_data;
+
+    if ($mult =~/^\d$/)
+    {
+      die "Unexpected input" if not $number=~/^\d+$/;
+      $self->shoot($mult,$number);
+    } elsif ($mult eq 'btn') {
+      $self->next_player();
+    }
+  }
+}
+
+sub shoot
+{
+  my $self=shift;
+  my ($mult,$number)=@_;
+  if ($self->{current_shoot_count} < $self->{max_shoots_per_player})
+  {
+    $self->{current_shoot}={mult=>$mult,number=>$number};
+    $self->{current_shoot_count}++;
+    return $self->callback('shoot',$mult,$number);
+  } else {
+    return 0;
+  }
+}
+
+sub shout_last_shoot
+{
+  my $self=shift;
+  if ($self->{current_shoot}{mult} == 2) {
+    $self->shout('double');
+  } elsif ($self->{current_shoot}{mult} == 3) {
+    $self->shout('triple');
+  }
+
+  $self->shout($self->{current_shoot}{number});
+}
+
+sub shout
+{
+  my $self=shift;
+  my ($what)=@_;
+  my $fh = $self->{sound_out_fh};
+  print $fh "$what\n";
+}
+
+sub next_player
+{
+  my $self=shift;
+  $self->callback('before_next_player');
+  $self->{current_shoot_count}=0;
+  ($self->{current_player},my $new_round)=get_next_active_player($self->{current_player});
+  $self->shout("player");
+  $self->shout($self->{player}[$self->{current_player}]{name});
+  $self->next_round() if $new_round;
+  return $self->callback('next_player');
+}
+
+sub get_next_active_player
+{
+  my ($players_ref,$current_player)=@_;
+  my $num_players=@$players_ref;
+  my $new_round=0;
+  do
+  {
+    $current_player++;
+    if($current_player>=$num_players)
+    {
+      die "Error no remaining active players" if $new_round;
+      $current_player=0;
+      $new_round=1;
+    }
+  }
+  while (not $players_ref->[$current_player]{active});
+  return ($current_player,$new_round);
+}
+
+sub next_round
+{
+  my $self=shift;
+  $self->{round}++;
+  return $self->callback('next_round');
+}
+
+sub deactivate_current_player
+{
+  my $self=shift;
+  my ($rank)=@_;
+  $self->{player}[$self->{current_player}]{rank}=$rank;
+  $self->{player}[$self->{current_player}]{active}=0;
+  $self->{active_player_count}--;
+  $self->end_game() if not $self->{active_player_count};
+}
+
+
+sub end_game
+{
+  my $self=shift;
+  return $self->callback('end_game');
+}
+
+sub add_player
+{ 
+  my $self=shift;
+  my ($player) = @_;
+  push @{$self->{player}}, $player;
+}
+
+sub create_player
+{
+  return {@_};
+  #my %player_attributes=@_;
+  #my $player = {%player_attributes};
+  #return $player;
+}
diff --git a/dart/dart-fullcricket.pl b/dart/dart-fullcricket.pl
index 743909c..1823624 100755
--- a/dart/dart-fullcricket.pl
+++ b/dart/dart-fullcricket.pl
@@ -6,12 +6,12 @@ use strict;
 #my $termios = new POSIX::Termios;
 #$termios->getattr;
 #my $term = Term::Cap->Tgetent( { OSPEED => $termios->getospeed } );
-my $sieb=0;
+my $sieb=1;
 my @prim = qw / 2 3 5 7 11 13 17 19 /;
 
 sub gueltig{
     my ($zahl,$mult) = @_;
-    return 1;
+    return $zahl>1;
   };