view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/sunix/statsMath/sumax.pm  view on Meta::CPAN

        $sumax->{_Step} = $sumax->{_Step} . ' key1=' . $sumax->{_key1};

    }
    else {
        print("sumax, key1, missing key1,\n");
    }
}

=head2 sub key2 


=cut

sub key2 {

    my ( $self, $key2 ) = @_;
    if ( $key2 ne $empty_string ) {

        $sumax->{_key2} = $key2;
        $sumax->{_note} = $sumax->{_note} . ' key2=' . $sumax->{_key2};
        $sumax->{_Step} = $sumax->{_Step} . ' key2=' . $sumax->{_key2};

    }
    else {
        print("sumax, key2, missing key2,\n");
    }
}

=head2 sub mode 


=cut

sub mode {

    my ( $self, $mode ) = @_;
    if ( $mode ne $empty_string ) {

        $sumax->{_mode} = $mode;
        $sumax->{_note} = $sumax->{_note} . ' mode=' . $sumax->{_mode};
        $sumax->{_Step} = $sumax->{_Step} . ' mode=' . $sumax->{_mode};

    }
    else {
        print("sumax, mode, missing mode,\n");
    }
}

=head2 sub outpar 


=cut

sub outpar {

    my ( $self, $outpar ) = @_;
    if ( defined $outpar
        && $outpar ne $empty_string )
    {

        use Scalar::Util qw(looks_like_number);

        my $control = App::SeismicUnixGui::misc::control->new();

        # we should have a string and not a number
        my $fmt = 0;
        $fmt = looks_like_number($outpar);

        if ($fmt) {

# print("sumax,outpar, outpar_value looks like a number BUT should be a string\n");

        }
        else {
            # print("sumax,outpar, looks like a string: $outpar\n");

            $control->set_back_slashBgone($outpar);
            $outpar = $control->get_back_slashBgone();

            # print("sumax,outpar without back_slashes looks like $outpar \n");
        }

        $sumax->{_outpar} = $outpar;

        # print("sumax,outpar, $outpar\n");

        if (   defined $sumax->{_output}
            && $sumax->{_output} ne $empty_string
            && $sumax->{_outpar} ne '/dev/tty' )
        {

            my $Project = Project_config->new();

            my $base_file_name = $outpar;
            my $output         = $sumax->{_output};

            if ( $output eq 'segy' ) {

                my $DATA_SEISMIC_SEGY = $Project->DATA_SEISMIC_SEGY();
                $sumax->{_outpar} = $DATA_SEISMIC_SEGY . '/' . $base_file_name;

            }
            elsif ( $output eq 'ascii' ) {

                my $DATA_SEISMIC_TXT = $Project->DATA_SEISMIC_TXT();
                $sumax->{_outpar} = $DATA_SEISMIC_TXT . '/' . $base_file_name;

            }
            elsif ( $output eq 'binary' ) {

                my $DATA_SEISMIC_BIN = $Project->DATA_SEISMIC_BIN();
                $sumax->{_outpar} = $DATA_SEISMIC_BIN . '/' . $base_file_name;

            }
            else {
                print("sumax,outpar, unexpected output parameter\n");
            }

        }
        else {
            # print("sumax,outpar,missing output or output is /dev/tty \n");
        }

        $sumax->{_note} = $sumax->{_note} . ' outpar=' . $sumax->{_outpar};
        $sumax->{_Step} = $sumax->{_Step} . ' outpar=' . $sumax->{_outpar};

    }
    else {
        print("sumax, outpar, missing outpar,\n");
    }
}

=head2 sub output 


=cut

sub output {

    my ( $self, $output ) = @_;