view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/specs/NMO_Vel_Stk/sudmofkcw_spec.pm  view on Meta::CPAN

package App::SeismicUnixGui::specs::NMO_Vel_Stk::sudmofkcw_spec;
use Moose;
our $VERSION = '0.0.1';

use aliased 'App::SeismicUnixGui::configs::big_streams::Project_config';
use App::SeismicUnixGui::misc::SeismicUnix
  qw($bin $ps $segy $su $suffix_bin $suffix_ps $suffix_segy $suffix_su $suffix_txt $txt);
use aliased 'App::SeismicUnixGui::misc::L_SU_global_constants';
use aliased 'App::SeismicUnixGui::sunix::NMO_Vel_Stk::sudmofkcw';
my $get       = L_SU_global_constants->new();
my $Project   = Project_config->new();
my $sudmofkcw = sudmofkcw->new();

my $var = $get->var();

my $empty_string     = $var->{_empty_string};
my $true             = $var->{_true};
my $false            = $var->{_false};
my $file_dialog_type = $get->file_dialog_type_href();
my $flow_type        = $get->flow_type_href();

my $DATA_SEISMIC_BIN  = $Project->DATA_SEISMIC_BIN();
my $DATA_SEISMIC_SEGY = $Project->DATA_SEISMIC_SEGY();
my $DATA_SEISMIC_SU   = $Project->DATA_SEISMIC_SU();     # output data directory
my $DATA_SEISMIC_TXT  = $Project->DATA_SEISMIC_TXT();    # output data directory
my $PL_SEISMIC        = $Project->PL_SEISMIC();
my $PS_SEISMIC        = $Project->PS_SEISMIC();
my $max_index         = 12;

my $sudmofkcw_spec = {
	_CONFIG                => $PL_SEISMIC,
	_DATA_DIR_IN           => $DATA_SEISMIC_BIN,
	_DATA_DIR_OUT          => $DATA_SEISMIC_SU,
	_binding_index_aref    => '',
	_suffix_type_in        => $su,
	_data_suffix_in        => $suffix_su,
	_suffix_type_out       => $su,
	_data_suffix_out       => $suffix_su,
	_file_dialog_type_aref => '',
	_flow_type_aref        => '',
	_has_infile            => $true,
	_has_outpar            => $false,
	_has_pipe_in           => $true,
	_has_pipe_out          => $true,
	_has_redirect_in       => $true,
	_has_redirect_out      => $true,
	_has_subin_in          => $false,
	_has_subin_out         => $false,
	_is_data               => $false,
	_is_first_of_2         => $true,
	_is_first_of_3or_more  => $true,
	_is_first_of_4or_more  => $true,
	_is_last_of_2          => $false,
	_is_last_of_3or_more   => $false,
	_is_last_of_4or_more   => $false,
	_is_suprog             => $true,
	_is_superflow          => $false,
	_max_index             => $max_index,
	_prefix_aref           => '',
	_suffix_aref           => '',
};

=head2  sub binding_index_aref

=cut

sub binding_index_aref {

	my $self = @_;

	my @index;

	# first binding index (index=0)
	# connects to second item (index=1)
	# in the parameter list
	#	$index[0] = 1; # inbound item is  bound
	#	$index[1]	= 2; # inbound item is  bound
	#	$index[2]	= 8; # outbound item is  bound

	$sudmofkcw_spec->{_binding_index_aref} = \@index;
	return ();

}

=head2  sub file_dialog_type_aref

type of dialog (Data, Flow, SaveAs) is needed by binding
one type of dialog for each index
=cut

sub file_dialog_type_aref {

	my $self = @_;

	my @type;

	my $index_aref = get_binding_index_aref();
	my @index      = @$index_aref;

	# bound index will look for data
	$type[0] = '';

	#	$type[$index[0]] = $file_dialog_type->{_Data};
	#	$type[$index[1]]	=  $file_dialog_type->{_Data};
	#	$type[$index[2]]	=  $file_dialog_type->{_Data};

	$sudmofkcw_spec->{_file_dialog_type_aref} = \@type;
	return ();

}

=head2  sub flow_type_aref

=cut

sub flow_type_aref {

	my $self = @_;

	my @type;

	$type[0] = $flow_type->{_user_built};

	$sudmofkcw_spec->{_flow_type_aref} = \@type;
	return ();

}

=head2 sub get_binding_index_aref

=cut

sub get_binding_index_aref {

	my $self = @_;
	my @index;

	if ( $sudmofkcw_spec->{_binding_index_aref} ) {

		my $index_aref = $sudmofkcw_spec->{_binding_index_aref};
		return ($index_aref);

	}
	else {
		print(
"sudmofkcw_spec, get_binding_index_aref, missing binding_index_aref\n"
		);
		return ();
	}

	my $index_aref = $sudmofkcw_spec->{_binding_index_aref};
}

=head2 sub get_binding_length

=cut

sub get_binding_length {

	my $self = @_;

	if ( $sudmofkcw_spec->{_binding_index_aref} ) {

		my $binding_length = scalar @{ $sudmofkcw_spec->{_binding_index_aref} };
		return ($binding_length);

	}
	else {
		print("sudmofkcw_spec, get_binding_length, missing binding_length\n");
		return ();
	}

	return ();
}

=head2 sub get_file_dialog_type_aref

=cut

sub get_file_dialog_type_aref {

	my $self = @_;
	if ( $sudmofkcw_spec->{_file_dialog_type_aref} ) {

		my $index_aref = $sudmofkcw_spec->{_file_dialog_type_aref};
		return ($index_aref);

	}
	else {
		print(
"sudmofkcw_spec, get_file_dialog_type_aref, missing get_file_dialog_type_aref\n"
		);
		return ();
	}

	return ();
}

=head2 sub get_flow_type_aref

=cut

sub get_flow_type_aref {

	my $self = @_;

	if ( $sudmofkcw_spec->{_flow_type_aref} ) {

		my $index_aref = $sudmofkcw_spec->{_flow_type_aref};
		return ($index_aref);

	}
	else {
		print("sudmofkcw_spec, get_flow_type_aref, missing flow_type_aref\n");
		return ();
	}

}

=head2 sub get_incompatibles

=cut

sub get_incompatibles {

	my $self = @_;
	my @needed;

	my @_need_both;

lib/App/SeismicUnixGui/specs/NMO_Vel_Stk/sudmofkcw_spec.pm  view on Meta::CPAN

	my $self = @_;

	if ( $sudmofkcw_spec->{_prefix_aref} ) {

		my $prefix_aref = $sudmofkcw_spec->{_prefix_aref};
		return ($prefix_aref);

	}
	else {
		print("sudmofkcw_spec, get_prefix_aref, missing prefix_aref\n");
		return ();
	}

	return ();
}

=head2 sub get_suffix_aref

=cut

sub get_suffix_aref {

	my $self = @_;

	if ( $sudmofkcw_spec->{_suffix_aref} ) {

		my $suffix_aref = $sudmofkcw_spec->{_suffix_aref};
		return ($suffix_aref);

	}
	else {
		print("$sudmofkcw_spec, get_suffix_aref, missing suffix_aref\n");
		return ();
	}

	return ();
}

=head2  sub prefix_aref

Include in the Set up
sections of an output Poop flow.

prefixes and suffixes to parameter labels
are filtered by sunix_pl

=cut

sub prefix_aref {

	my $self = @_;

	my @prefix;

	for ( my $i = 0 ; $i < $max_index ; $i++ ) {

		$prefix[$i] = $empty_string;

	}

	#	my $index_aref = get_binding_index_aref();
	#	my @index       = @$index_aref;

	# label 2 in GUI is input xx_file and needs a home directory
	#	$prefix[ $index[0] ] = '$DATA_SEISMIC_BIN' . ".'/'.";

	# label 3 in GUI is input yy_file and needs a home directory
	#	$prefix[ $index[1] ] = '$DATA_SEISMIC_TXT' . ".'/'.";

	# label 9 in GUI is input zz_file and needs a home directory
	#	$prefix[ $index[2] ] = '$DATA_SEISMIC_SU' . ".'/'.";

	$sudmofkcw_spec->{_prefix_aref} = \@prefix;
	return ();

}

=head2  sub suffix_aref

Initialize suffixes as empty
values

=cut

sub suffix_aref {

	my $self = @_;

	my @suffix;

	for ( my $i = 0 ; $i < $max_index ; $i++ ) {

		$suffix[$i] = $empty_string;

	}

	#	my $index_aref = get_binding_index_aref();
	#	my @index       = @$index_aref;

	# label 2 in GUI is input xx_file and needs a home directory
	#	$suffix[ $index[0] ] = ''.'' . '$suffix_bin';

	# label 3 in GUI is input yy_file and needs a home directory
	#	$suffix[ $index[1] ] = ''.'' . '$suffix_bin';

	# label 9 in GUI is output zz_file and needs a home directory
	#	$suffix[ $index[2] ] = ''.'' . '$suffix_su';

	$sudmofkcw_spec->{_suffix_aref} = \@suffix;
	return ();

}

=head2 sub variables


return a hash array 
with definitions
 
=cut

sub variables {

	my ($self) = @_;
	my $hash_ref = $sudmofkcw_spec;
	return ($hash_ref);
}

1;