File Coverage

blib/lib/Games/Solitaire/BlackHole/Solver/App.pm

Criterion	Covered	Total	%
statement	76	84	90.4
branch	18	30	60.0
condition	4	6	66.6
subroutine	5	5	100.0
pod	1	1	100.0
total	104	126	82.5

package Games::Solitaire::BlackHole::Solver::App;
$Games::Solitaire::BlackHole::Solver::App::VERSION = '0.18.0';
use 5.014;
use Moo;

extends('Games::Solitaire::BlackHole::Solver::App::Base');


sub run
{
    my $self      = shift;
    my $RANK_KING = $self->_RANK_KING;

    $self->_process_cmd_line(
        {
            extra_flags => {}
        }
    );

    STDOUT->autoflush(1);
    if ( @ARGV > 1 )
    {
        $self->_do_not_err_on_exceeding_max_iters_limit(1);
        return $self->_multi_filename_run();
    }
    $self->_do_not_err_on_exceeding_max_iters_limit(0);
    my $global_verdict = 1;
    foreach my $board_fn (@ARGV)
    {
        delete $self->{_BOARD_CTR};
        my $verdict = 0;
        $self->_calc_lines( $board_fn, );
        $self->_set_up_solver( 0, [ 1, $RANK_KING ] );

        $self->_next_task;

    QUEUE_LOOP:
        while ( my $state = $self->_get_next_state_wrapper )
        {
            # The foundation
            my $no_cards = 1;

            my @_pending;

            if (1)
            {
                $self->_find_moves( \@_pending, $state, \$no_cards );
            }

            if ($no_cards)
            {
                $self->_trace_solution( $state, );
                $verdict = 1;

                # $self->_output_handle->print("END solved run\n");
                last QUEUE_LOOP;
            }
            last QUEUE_LOOP
                if not $self->_process_pending_items( \@_pending, $state );
        }
        $self->_end_report( $verdict, );
        if ( not $verdict )
        {
            $global_verdict = 0;
        }
    }
    return $self->_my_exit( $global_verdict, );
}

use Games::Solitaire::BlackHole::Solver::_BoardsStream ();

sub _multi_filename_run
{
    my $self      = shift;
    my $RANK_KING = $self->_RANK_KING;

    my $SOFT_EXCEEDED  = $self->_do_not_err_on_exceeding_max_iters_limit();
    my $global_verdict = 1;
    my $boards_stream =
        Games::Solitaire::BlackHole::Solver::_BoardsStream->new( _width => 0, );
BOARD_FN:
    while ( $boards_stream->_fh() or @ARGV )
    {
        my $board_fn;
        my $board_s = '';
        if ( $boards_stream->_fh() )
        {
            ( $board_fn, $board_s ) = $boards_stream->_fetch();
            $self->_pending_board_lines( [ split /\n/ms, $board_s ] );
        }
        elsif (@ARGV)
        {
            my $arg = shift(@ARGV);
            if ( $arg eq "readconsec" )
            {
                my $fn        = shift(@ARGV) or die "readconsec arguments";
                my $_width    = shift(@ARGV) or die "readconsec arguments";
                my $_boardidx = shift(@ARGV) or die "readconsec arguments";
                $boards_stream->_reset( $fn, $_width, $_boardidx, );
                redo BOARD_FN;
            }
            else
            {
                $board_fn = $arg;
            }
        }
        my $board_display_fn = $board_fn;
        $board_display_fn =~
            s#([^A-Za-z0-9_\-/\.=\\\:])#sprintf("%%{%x}", ord($1))#egms;
        if (0)
        {
            die "dangerous board filename '${board_fn}'!";
        }
        $self->_output_handle->printf( "[= Starting file %s =]\n",
            $board_display_fn );
        delete $self->{_BOARD_CTR};
        my $verdict = 0;
        $self->_calc_lines( $board_fn, );
        $self->_set_up_solver( 0, [ 1, $RANK_KING ] );

        $self->_next_task;

    MFN_QUEUE_LOOP:
        while ( my $state = $self->_get_next_state_wrapper )
        {
            # The foundation
            my $no_cards = 1;

            my @_pending;

            if (1)
            {
                $self->_find_moves( \@_pending, $state, \$no_cards );
            }

            if ($no_cards)
            {
                $self->_trace_solution( $state, );
                $verdict = 1;

                # $self->_output_handle->print("END solved run\n");
                last MFN_QUEUE_LOOP;
            }
            last MFN_QUEUE_LOOP
                if not $self->_process_pending_items( \@_pending, $state );
        }
        if ($SOFT_EXCEEDED)
        {
            if ( $SOFT_EXCEEDED and $self->_max_iters_limit_exceeded() )
            {
                $verdict = 0;
            }
        }
        $self->_end_report( $verdict, );
        if ( not $verdict )
        {
            $global_verdict = 0;
        }
        $self->_output_handle->printf( "[= END of file %s =]\n",
            $board_display_fn );
    }
    return $self->_my_exit( $global_verdict, );
}


1;

__END__