App-SeismicUnixGui
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\B.metadata
\B.project
\B.FileHistory.txt
\B.Makefile.PL.swp
\bchain.sh
\bCHANGES
\bMYMETA\.
\btbd.pl
\bcpan-upload.sh
\btbd
# Skip temporary, backup files,
# and directories
\barchive/
\B.bashrc
\B.itemp_
\B.temp
\B.tbd
\B.num_samples
\btbd/
\bbck/
\btemp/
lib/App/SeismicUnixGui/images/working\ images/lightning.xbm \
lib/App/SeismicUnixGui/images/working\ images/lightning.xcf \
lib/App/SeismicUnixGui/images/working\ images/lightning.xpm \
lib/App/SeismicUnixGui/messages/About.pm \
lib/App/SeismicUnixGui/messages/FileDialog_button_messages.pm \
lib/App/SeismicUnixGui/messages/FileDialog_close_messages.pm \
lib/App/SeismicUnixGui/messages/SuMessages.pm \
lib/App/SeismicUnixGui/messages/archive/About.pm_bck \
lib/App/SeismicUnixGui/messages/archive/help_button_messages.pm_bck \
lib/App/SeismicUnixGui/messages/archive/help_button_messages_old.pm \
lib/App/SeismicUnixGui/messages/backup_project_selector_messages.pm \
lib/App/SeismicUnixGui/messages/color_listbox_messages.pm \
lib/App/SeismicUnixGui/messages/flows_messages.pm \
lib/App/SeismicUnixGui/messages/help_button_messages.pm \
lib/App/SeismicUnixGui/messages/iPick_messages.pm \
lib/App/SeismicUnixGui/messages/immodpg_messages.pm \
lib/App/SeismicUnixGui/messages/message_director.pm \
lib/App/SeismicUnixGui/messages/notes.pl \
lib/App/SeismicUnixGui/messages/null_messages.pm \
lib/App/SeismicUnixGui/messages/project_selector_messages.pm \
lib/App/SeismicUnixGui/messages/run_button_messages.pm \
lib/App/SeismicUnixGui/misc/L_SU_path.pm \
lib/App/SeismicUnixGui/misc/Math.pm \
lib/App/SeismicUnixGui/misc/PID.pm \
lib/App/SeismicUnixGui/misc/Project_Variables.pm \
lib/App/SeismicUnixGui/misc/SeismicUnix.pm \
lib/App/SeismicUnixGui/misc/a2su.pm \
lib/App/SeismicUnixGui/misc/algebra_by.pm \
lib/App/SeismicUnixGui/misc/archive/L_SU_global_constants.pm \
lib/App/SeismicUnixGui/misc/archive/L_SU_global_constants.pm_bck \
lib/App/SeismicUnixGui/misc/archive/Point.pm \
lib/App/SeismicUnixGui/misc/archive/backup_project_selector.pm \
lib/App/SeismicUnixGui/misc/archive/binding2.pm \
lib/App/SeismicUnixGui/misc/archive/canvas_data.pm \
lib/App/SeismicUnixGui/misc/archive/canvas_graph.pm \
lib/App/SeismicUnixGui/misc/archive/control.pm \
lib/App/SeismicUnixGui/misc/archive/pdl_su.pm \
lib/App/SeismicUnixGui/misc/archive/segdread.pm \
lib/App/SeismicUnixGui/misc/archive/t \
lib/App/SeismicUnixGui/misc/array.pm \
lib/App/SeismicUnixGui/misc/big_streams_param.pm \
lib/App/SeismicUnixGui/misc/binding.pm \
'lib/App/SeismicUnixGui/images/working images/lightning.xbm' 'blib/lib/App/SeismicUnixGui/images/working images/lightning.xbm' \
'lib/App/SeismicUnixGui/images/working images/lightning.xcf' 'blib/lib/App/SeismicUnixGui/images/working images/lightning.xcf' \
'lib/App/SeismicUnixGui/images/working images/lightning.xpm' 'blib/lib/App/SeismicUnixGui/images/working images/lightning.xpm' \
'lib/App/SeismicUnixGui/messages/About.pm' 'blib/lib/App/SeismicUnixGui/messages/About.pm' \
'lib/App/SeismicUnixGui/messages/FileDialog_button_messages.pm' 'blib/lib/App/SeismicUnixGui/messages/FileDialog_button_messages.pm' \
'lib/App/SeismicUnixGui/messages/FileDialog_close_messages.pm' 'blib/lib/App/SeismicUnixGui/messages/FileDialog_close_messages.pm' \
'lib/App/SeismicUnixGui/messages/SuMessages.pm' 'blib/lib/App/SeismicUnixGui/messages/SuMessages.pm' \
'lib/App/SeismicUnixGui/messages/archive/About.pm_bck' 'blib/lib/App/SeismicUnixGui/messages/archive/About.pm_bck' \
'lib/App/SeismicUnixGui/messages/archive/help_button_messages.pm_bck' 'blib/lib/App/SeismicUnixGui/messages/archive/help_button_messages.pm_bck' \
'lib/App/SeismicUnixGui/messages/archive/help_button_messages_old.pm' 'blib/lib/App/SeismicUnixGui/messages/archive/help_button_messages_old.pm' \
'lib/App/SeismicUnixGui/messages/backup_project_selector_messages.pm' 'blib/lib/App/SeismicUnixGui/messages/backup_project_selector_messages.pm' \
'lib/App/SeismicUnixGui/messages/color_listbox_messages.pm' 'blib/lib/App/SeismicUnixGui/messages/color_listbox_messages.pm' \
'lib/App/SeismicUnixGui/messages/flows_messages.pm' 'blib/lib/App/SeismicUnixGui/messages/flows_messages.pm' \
'lib/App/SeismicUnixGui/messages/help_button_messages.pm' 'blib/lib/App/SeismicUnixGui/messages/help_button_messages.pm' \
'lib/App/SeismicUnixGui/messages/iPick_messages.pm' 'blib/lib/App/SeismicUnixGui/messages/iPick_messages.pm' \
'lib/App/SeismicUnixGui/messages/immodpg_messages.pm' 'blib/lib/App/SeismicUnixGui/messages/immodpg_messages.pm' \
'lib/App/SeismicUnixGui/messages/message_director.pm' 'blib/lib/App/SeismicUnixGui/messages/message_director.pm'
$(NOECHO) $(ABSPERLRUN) -MExtUtils::Install -e 'pm_to_blib({@ARGV}, '\''$(INST_LIB)/auto'\'', q[$(PM_FILTER)], '\''$(PERM_DIR)'\'')' -- \
'lib/App/SeismicUnixGui/messages/notes.pl' 'blib/lib/App/SeismicUnixGui/messages/notes.pl' \
'lib/App/SeismicUnixGui/messages/null_messages.pm' 'blib/lib/App/SeismicUnixGui/messages/null_messages.pm' \
'lib/App/SeismicUnixGui/messages/project_selector_messages.pm' 'blib/lib/App/SeismicUnixGui/messages/project_selector_messages.pm' \
'lib/App/SeismicUnixGui/misc/L_SU_path.pm' 'blib/lib/App/SeismicUnixGui/misc/L_SU_path.pm' \
'lib/App/SeismicUnixGui/misc/Math.pm' 'blib/lib/App/SeismicUnixGui/misc/Math.pm' \
'lib/App/SeismicUnixGui/misc/PID.pm' 'blib/lib/App/SeismicUnixGui/misc/PID.pm' \
'lib/App/SeismicUnixGui/misc/Project_Variables.pm' 'blib/lib/App/SeismicUnixGui/misc/Project_Variables.pm' \
'lib/App/SeismicUnixGui/misc/SeismicUnix.pm' 'blib/lib/App/SeismicUnixGui/misc/SeismicUnix.pm' \
'lib/App/SeismicUnixGui/misc/a2su.pm' 'blib/lib/App/SeismicUnixGui/misc/a2su.pm' \
'lib/App/SeismicUnixGui/misc/algebra_by.pm' 'blib/lib/App/SeismicUnixGui/misc/algebra_by.pm' \
'lib/App/SeismicUnixGui/misc/archive/L_SU_global_constants.pm' 'blib/lib/App/SeismicUnixGui/misc/archive/L_SU_global_constants.pm' \
'lib/App/SeismicUnixGui/misc/archive/L_SU_global_constants.pm_bck' 'blib/lib/App/SeismicUnixGui/misc/archive/L_SU_global_constants.pm_bck' \
'lib/App/SeismicUnixGui/misc/archive/Point.pm' 'blib/lib/App/SeismicUnixGui/misc/archive/Point.pm' \
'lib/App/SeismicUnixGui/misc/archive/backup_project_selector.pm' 'blib/lib/App/SeismicUnixGui/misc/archive/backup_project_selector.pm' \
'lib/App/SeismicUnixGui/misc/archive/binding2.pm' 'blib/lib/App/SeismicUnixGui/misc/archive/binding2.pm' \
'lib/App/SeismicUnixGui/misc/archive/canvas_data.pm' 'blib/lib/App/SeismicUnixGui/misc/archive/canvas_data.pm' \
'lib/App/SeismicUnixGui/misc/archive/canvas_graph.pm' 'blib/lib/App/SeismicUnixGui/misc/archive/canvas_graph.pm' \
'lib/App/SeismicUnixGui/misc/archive/control.pm' 'blib/lib/App/SeismicUnixGui/misc/archive/control.pm'
$(NOECHO) $(ABSPERLRUN) -MExtUtils::Install -e 'pm_to_blib({@ARGV}, '\''$(INST_LIB)/auto'\'', q[$(PM_FILTER)], '\''$(PERM_DIR)'\'')' -- \
'lib/App/SeismicUnixGui/misc/archive/pdl_su.pm' 'blib/lib/App/SeismicUnixGui/misc/archive/pdl_su.pm' \
'lib/App/SeismicUnixGui/misc/archive/segdread.pm' 'blib/lib/App/SeismicUnixGui/misc/archive/segdread.pm' \
'lib/App/SeismicUnixGui/misc/archive/t' 'blib/lib/App/SeismicUnixGui/misc/archive/t' \
'lib/App/SeismicUnixGui/misc/array.pm' 'blib/lib/App/SeismicUnixGui/misc/array.pm' \
'lib/App/SeismicUnixGui/misc/big_streams_param.pm' 'blib/lib/App/SeismicUnixGui/misc/big_streams_param.pm' \
lib/App/SeismicUnixGui/big_streams/BackupProject.pl view on Meta::CPAN
$project_directory = $control->get_ticksBgone();
print("BackupProject.pl, project_directory = $project_directory \n");
my $HOME = $L_SU_local_user_constants->get_home();
my $tar_input = $HOME . '/'. $project_directory;
=head2 Verify project is a true SUG project
collect project names
compare backup project against project names
=cut
my @PROJECT_HOME_aref = $L_SU_local_user_constants->get_PROJECT_HOMES_aref();
my @project_name_aref = $L_SU_local_user_constants->get_project_names();
my $CONFIGURATION = $L_SU_local_user_constants->get_CONFIGURATION();
my @project_pathNname = @{ $PROJECT_HOME_aref[0] };
my @project_name = @{ $project_name_aref[0] };
lib/App/SeismicUnixGui/big_streams/BackupProject.pl view on Meta::CPAN
=cut
$L_SU_local_user_constants->set_PROJECT_name($project_directory);
my $project_exists = $L_SU_local_user_constants->get_PROJECT_exists();
print("BackupProject.pl,Does project $project_directory exist? ans=$project_exists\n");
=pod
check to see that the project directory contains Project.config
If Project.config exists then
copy this file with the Project during the backup
=cut
if ( $project_exists ) {
my $Project_configuration_exists = $L_SU_local_user_constants->user_configuration_Project_config_exists();
print("BackupProject.pl, Project_configuration_exists=$Project_configuration_exists \n");
if ($Project_configuration_exists) {
lib/App/SeismicUnixGui/big_streams/RestoreProject.pl view on Meta::CPAN
config_superflows has a special configuration file
for program with a name=Project
=cut
my ( $ref_parameter, $ref_value ) =
$readfiles->configs($old_Project_config_file);
my @value = @$ref_value;
my $old_username_from_backup = $value[7];
$config_superflows->set_program_name( \$prog_name ); # needed
# remove ticks around critical values
$control->set_infection( $value[0] );
my $home_value = $control->get_ticksBgone();
$control->set_infection( $value[1] );
my $project_value = $control->get_ticksBgone();
$control->set_infection( $value[7] );
my $subuser_value = $control->get_ticksBgone();
$control->set_infection($old_username_from_backup);
$old_username_from_backup = $control->get_ticksBgone();
my $dir2find = $old_username_from_backup;
my $instruction3;
# for updating new_Project_config file
$home_value =~ s/$old_username_from_backup/$current_username/;
$project_value =~ s/$old_username_from_backup/$current_username/;
$subuser_value =~ s/$old_username_from_backup/$current_username/;
# print(" home_value = $home_value\n");
# print(" project_value = $project_value\n");
# print(" subuser_value = $subuser_value\n");
$value[0] = $home_value;
$value[1] = $project_value;
$value[7] = $subuser_value;
my $hash_ref = {
lib/App/SeismicUnixGui/big_streams/RestoreProject.pl view on Meta::CPAN
=cut
# my $from1 = $new_Project_config_file; # has the current user name
# my $to1 = $ACTIVE_PROJECT;
#
## print("Copying $from1 to $to1\n");
#
# copy( $from1, $to1 );
if ( $old_username_from_backup ne $current_username ) {
# Replace old folder names with current username
my $starting_point = $HOME . '/' . $tutorial_name;
# print(" RestoreProject.pl,project_directory=$tutorial_name\n");
# print(" Looking for directories within the project to be restored...\n");
# print("old_username_from_backup=$old_username_from_backup\n");
my @original_list =
`(find $starting_point -name $dir2find -type d -print 2>/dev/null)`;
my $original_list_length = scalar @original_list;
my @new_list = @original_list;
# print("list is $original_list_length\n");
print("@new_list\n");
=pod
lib/App/SeismicUnixGui/big_streams/RestoreProject.pl view on Meta::CPAN
# print("$instruction2\n");
my $from = $old_Project_config_file;
my $to = $new_Project_config_file;
copy( $from, $to );
print("RestoreProject.pl, Copying from $from to $to\n");
my ( $ref_parameter, $ref_value ) =
$readfiles->configs($old_Project_config_file);
my @value = @$ref_value;
my $old_username_from_backup = $value[7];
# print(" RestoreProject.pl,old username=$value[7]\n");
# print(" RestoreProject.pl,old old_username_from_backup=$old_username_from_backup\n");
=head2
Replace old username from backup-up Project.config file
with the name of the current username
config_superflows has a special configuration file
for program with a name=Project
=cut
$config_superflows->set_program_name( \$prog_name ); # needed
$control->set_infection( $value[0] );
my $home_value = $control->get_ticksBgone();
$control->set_infection( $value[1] );
my $project_value = $control->get_ticksBgone();
$control->set_infection( $value[7] );
my $subuser_value = $control->get_ticksBgone();
$control->set_infection($old_username_from_backup);
$old_username_from_backup = $control->get_ticksBgone();
my $dir2find = $old_username_from_backup;
$home_value =~ s/$old_username_from_backup/$current_username/;
$project_value =~ s/$old_username_from_backup/$current_username/;
$subuser_value =~ s/$old_username_from_backup/$current_username/;
# print(" home_value = $home_value\n");
# print(" project_value= $project_value\n");
# print(" subuser_value = $subuser_value\n");
# restore ticks to the strings
$control->set_first_name_string($home_value);
$home_value = $control->get_w_single_quotes();
$control->set_first_name_string($project_value);
lib/App/SeismicUnixGui/big_streams/RestoreProject.pl view on Meta::CPAN
# my $from1 = $new_Project_config_file; # has the current user name
# my $to1 = $ACTIVE_PROJECT;
#
## print("Copying $from1 to $to1\n");
#
# copy( $from1, $to1 );
# avoid extra work
if ( $old_username_from_backup ne $current_username ) {
# Replace old folder names with current username
my $starting_point = $HOME . '/' . $new_project_dir_name;
# print(" RestoreProject.pl,project_directory=$new_project_dir_name\n");
# print(" Looking for directories within the project to be restored...\n");
# print("old_username_from_backup=$old_username_from_backup\n");
my @original_list =
`(find $starting_point -name $dir2find -type d -print 2>/dev/null)`;
my $original_list_length = scalar @original_list;
my @new_list = @original_list;
# print("list is $original_list_length\n");
my $instruction3;
# perform replacement here
lib/App/SeismicUnixGui/developer/code/sunix/update_main_version_number.pl view on Meta::CPAN
for ( my $count = 0 ; $count < $max_num_files; $count++ ) {
#for ( my $count = 2 ; $count < 3; $count++ ) {
$file_bck[$count] = $file[$count] . '_bck';
$inbound[$count] = $path2file[$count] . '/' . $file[$count];
$outbound[$count] = $path2file[$count] . '/' . $file[$count];
$outbound_bck[$count] = $path2file[$count] . '/archive/' . $file_bck[$count];
# save a backup file
system("cp $inbound[$count] $outbound_bck[$count]");
# slurp every file
$manage_files_by2->set_pathNfile( $inbound[$count] );
my $slurp_ref = manage_files_by2->get_whole();
my @slurp = @$slurp_ref;
my $length_of_slurp = scalar @slurp;
for ( my $line_idx = 0 ; $line_idx < $length_of_slurp ; $line_idx++ ) {
lib/App/SeismicUnixGui/fortran/src/immodpg.for view on Meta::CPAN
! write modified model to file immodpg.out
!
OPEN(UNIT=IOUT,FILE=outbound_model_bin,STATUS='UNKNOWN',
+ FORM='UNFORMATTED')
do K=1,NL+1
write(IOUT) VT(K),VB(K),DZ(K),
+ VST(K),VSB(K),RHOT(K),RHOB(K)
enddo
CLOSE(UNIT=IOUT)
!
! write backup modified model to file immodpg.out
!
OPEN(UNIT=IOUT,FILE=outbound_model_bin_bck,
+ STATUS='UNKNOWN', FORM='UNFORMATTED')
do K=1,NL+1
write(IOUT) VT(K),VB(K),DZ(K),
+ VST(K),VSB(K),RHOT(K),RHOB(K)
enddo
CLOSE(UNIT=IOUT)
lib/App/SeismicUnixGui/messages/immodpg_messages.pm view on Meta::CPAN
$message[0] = ("Warning: Interactive Fortran should not run in
background. Is SeismicUnixGui running in the foreground? \n
If it is not, on command line
(1) enter: 'fg', return, return,
or
(2) run SeismicUnixGui again, but without '&' \n
(immodpg_message=0)\n");
$message[1] =("Warning: Corrupt layer in model.
Possible solutions: \n
(1) Copy backup file .immodpg.out to
'immodpg.out'
or
(2) Delete immodpg.out and possibly
.immodpg.out, too; and Restart immodpg\n
(immodpg_message=1)
");
return ( \@message );
}
lib/App/SeismicUnixGui/messages/message_director.pm view on Meta::CPAN
package App::SeismicUnixGui::messages::message_director;
use Moose;
our $VERSION = '0.0.1';
use aliased 'App::SeismicUnixGui::messages::FileDialog_button_messages';
use aliased 'App::SeismicUnixGui::messages::FileDialog_close_messages';
use aliased 'App::SeismicUnixGui::messages::backup_project_selector_messages';
use aliased 'App::SeismicUnixGui::messages::color_listbox_messages';
use aliased 'App::SeismicUnixGui::messages::help_button_messages';
use aliased 'App::SeismicUnixGui::misc::save_button_messages';
use aliased 'App::SeismicUnixGui::messages::flows_messages';
use aliased 'App::SeismicUnixGui::messages::immodpg_messages';
use aliased 'App::SeismicUnixGui::messages::iPick_messages';
use aliased 'App::SeismicUnixGui::messages::run_button_messages';
use aliased 'App::SeismicUnixGui::messages::null_messages';
use aliased 'App::SeismicUnixGui::messages::project_selector_messages';
use aliased 'App::SeismicUnixGui::messages::superflow_messages';
my $flows = flows_messages->new();
my $FileDialog_button = FileDialog_button_messages->new();
my $FileDialog_close = FileDialog_button_messages->new();
my $backup_project_selector = backup_project_selector_messages->new();
my $help_button = help_button_messages->new();
my $run_button = run_button_messages->new();
my $save_button = save_button_messages->new();
my $superflow = superflow_messages->new();
my $null = null_messages->new();
my $project_selector = project_selector_messages->new();
my $iPick = iPick_messages->new();
my $immodpg = immodpg_messages->new();
my $color_listbox = color_listbox_messages->new();
lib/App/SeismicUnixGui/messages/project_selector_messages.pm view on Meta::CPAN
package App::SeismicUnixGui::messages::project_selector_messages;
use Moose;
our $VERSION = '0.0.1';
sub get {
my ( $self) = @_;
my @message;
$message[0] = (
"Select ONLY one project; then click [OK], (backup_project_selector_message=2)\n"
);
return ( \@message );
}
1;
lib/App/SeismicUnixGui/misc/config_superflows.pm view on Meta::CPAN
_prog_name_sref => '',
};
my $files_LSU = files_LSU->new();
$out_hash_ref->{_ref_labels} = $in_hash_ref->{_names_aref};
$out_hash_ref->{_ref_values} = $in_hash_ref->{_values_aref};
# N.B. IT is NOT $in_hash_ref->{_prog_name_sref};
$out_hash_ref->{_prog_name_sref} =
$config_superflows->{_program_name_sref}; # backup
# print("config_superflows,save,out_hash_ref, ${$out_hash_ref->{_prog_name_sref}}\n");
# print("config_superflows,save,out_hash_ref,@{$out_hash_ref->{_ref_values}}[1]\n");
# print("config_superflows,save,out_hash_ref,@{$out_hash_ref->{_ref_labels}}\n");
# print("config_superflows,save,values are,@{$out_hash_ref->{_ref_values}}\n");
if ( ${ $out_hash_ref->{_prog_name_sref} } eq 'Project' ) {
# Single special case
# print("CASE config_superflows,save, for special Project case\n");
lib/App/SeismicUnixGui/misc/manage_files_by.pm view on Meta::CPAN
return ( \@TIME, \@OFFSET, $num_rows );
}
sub overwriting {
# overwrite old Sunix file
#get file names
my ($ref_backup_file) = shift @_;
my ($ref_old_file) = shift @_;
my ($ref_new_file) = shift @_;
print("\nReplacing $$ref_old_file with $$ref_new_file \n");
print("\nKeeping old name $$ref_old_file \n");
print("\nBackup is $$ref_backup_file \n");
system(" mv $$ref_old_file $$ref_backup_file");
system(" mv $$ref_new_file $$ref_old_file ");
}
sub read_1col {
# this function reads 1 col from a text file
my ($ref_origin) = shift @_;
lib/App/SeismicUnixGui/script/BackupProject view on Meta::CPAN
# global variable SeismicUnixGui_script locates main folder
if [ -z "${SeismicUnixGui_script}" ]; then
echo "global variable SeismicUnixGui_script must first be set"
echo "e.g. in .bashrc: "
echo " export SeismicUnixGui_script=/Location/of/script/folder"
else
# run backupProject.pl
# echo "perl $SeismicUnixGui_script/../big_streams/BackupProject.pl"
perl $SeismicUnixGui_script/../big_streams/BackupProject.pl
fi
lib/App/SeismicUnixGui/script/RestoreProject view on Meta::CPAN
# global variable SeismicUnixGui_script locates main folder
if [ -z "${SeismicUnixGui_script}" ]; then
echo "global variable SeismicUnixGui_script must first be set"
echo "e.g. in .bashrc: "
echo " export SeismicUnixGui_script=/Location/of/script/folder"
else
# run backupProject.pl
# echo "perl $SeismicUnixGui_script/../big_streams/RestoreProject.pl"
perl $SeismicUnixGui_script/../big_streams/RestoreProject.pl
fi
lib/App/SeismicUnixGui/script/RestoreTutorial view on Meta::CPAN
# global variable SeismicUnixGui_script locates main folder
if [ -z "${SeismicUnixGui_script}" ]; then
echo "global variable SeismicUnixGui_script must first be set"
echo "e.g. in .bashrc: "
echo " export SeismicUnixGui_script=/Location/of/script/folder"
else
# run backupProject.pl
# echo "perl $SeismicUnixGui_script/../big_streams/RestoreProject.pl Servilleta"
perl $SeismicUnixGui_script/../big_streams/RestoreProject.pl Servilleta
fi
( run in 0.678 second using v1.01-cache-2.11-cpan-49f99fa48dc )