App-SeismicUnixGui

 view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/big_streams/immodpg.pl  view on Meta::CPAN

 so you don't need a linewlike the following:
 use warnings;
 
 When program starts change file is initialized to "no". --change file 
 is deleted and reset to a default "no" at the start. 
 change file is set to yes in Perl.
 however we are careful only to do so when the file indicates a previous 'no'
 and reset to no in fortran after fortran uses the setting
 When exiting the change file contains a "yes"

 Avoids asynchronous reading and writing crashes
 Lock files are not failsafe
 
 There are two types of methods:
 
 One method type only sets the message type (immodpg->set_option(message #)) and 
 indicates a forced change (immodpg->set_change(yes)) for use with fortran 
 program immodpg.for
 e.g., _setVbot_plus, _set_move_down.
 The gui shows a symbol for these cases

lib/App/SeismicUnixGui/big_streams/immodpg.pm  view on Meta::CPAN

=head2 sub _setVbot

Verify another lock file does not exist and
only then:

Create another lock file
while change file is written
that prevents fortran file from reading.
Then, delete the lock file
Avoids crash between asynchronous 
reading (fortran) and
writing (Perl) of files

=cut

sub _setVbot {
	my ($Vbot) = @_;

	if ( looks_like_number($Vbot)
		&& $immodpg->{_isVbot_changed_in_gui} eq $yes )

lib/App/SeismicUnixGui/big_streams/immodpg.pm  view on Meta::CPAN

=head2 sub _setVbot_upper_layer

Verify another lock file does not exist and
only then:

Create another lock file
while change file is written
that prevents fortran file from reading.
Then, delete the lock file
Avoids crash between asynchronous 
reading (fortran) and
writing (Perl) of files
_setVbot_upper_layer

=cut

sub _setVbot_upper_layer {
	my ($Vbot_upper_layer) = @_;

	if (   $Vbot_upper_layer ne $empty_string

lib/App/SeismicUnixGui/big_streams/immodpg.pm  view on Meta::CPAN

=head2 sub _setVbotNtop_factor

Verify another lock file does not exist and
only then:

Create another lock file
while change file is written
that prevents fortran file from reading.
Then, delete the lock file
Avoids crash between asynchronous 
reading (fortran) and
writing (Perl) of files
_setVbotNtop_factor

=cut

sub _setVbotNtop_factor {
	my ($VbotNtop_factor) = @_;

	if (   $VbotNtop_factor ne $empty_string

lib/App/SeismicUnixGui/big_streams/immodpg.pm  view on Meta::CPAN

	return ();
}

=head2 sub _setVbotNtop_multiply
Verify another lock file does not exist and
only then:
Create another lock file
while change file is written
that prevents fortran file from reading.
Then, delete the lock file
Avoids crash between asynchronous 
reading (fortran) and
writing (Perl) of files
_setVbotNtop_multiply

=cut

sub _setVbotNtop_multiply {
	my ($self) = @_;

	if (   looks_like_number( $immodpg->{_Vbot_multiplied} )

lib/App/SeismicUnixGui/big_streams/immodpg.pm  view on Meta::CPAN

=head2 sub _setVincrement

Verify another lock file does not exist and
only then:

Create another lock file
while change file is written
that prevents fortran file from reading.
Then, delete the lock file
Avoids crash between asynchronous 
reading (fortran) and
writing (Perl) of files

=cut

sub _setVincrement {
	my ($Vincrement) = @_;

		
	if (   $Vincrement ne $empty_string

lib/App/SeismicUnixGui/big_streams/immodpg.pm  view on Meta::CPAN

=head2 sub _setVtop

Verify another lock file does not exist and
only then:

Create another lock file
while change file is written
that prevents fortran file from reading.
Then, delete the lock file
Avoids crash between asynchronous 
reading (fortran) and
writing (Perl) of files

=cut

sub _setVtop {

	my ($Vtop) = @_;

	if ( looks_like_number($Vtop)

lib/App/SeismicUnixGui/big_streams/immodpg.pm  view on Meta::CPAN

=head2 sub _setVtop_lower_layer

Verify another lock file does not exist and
only then:

Create another lock file
while change file is written
that prevents fortran file from reading.
Then, delete the lock file
Avoids crash between asynchronous 
reading (fortran) and
writing (Perl) of files

=cut

sub _setVtop_lower_layer {
	my ($Vtop_lower_layer) = @_;

	if ( looks_like_number($Vtop_lower_layer)
		&& $immodpg->{_isVtop_lower_layer_changed_in_gui} eq $yes )

lib/App/SeismicUnixGui/big_streams/immodpg.pm  view on Meta::CPAN

=head2 sub _set_change

Verify another lock file does not exist and
only then:

Create another lock file
while change file is written
that prevents fortran file from reading.
Then, delete the lock file
Avoids crash between asynchronous 
reading (fortran) and
writing (Perl) of files

=cut

sub _set_change {

	my ($yes_or_no) = @_;

	if (   length($yes_or_no)

lib/App/SeismicUnixGui/big_streams/immodpg.pm  view on Meta::CPAN

=head2 sub _set_clip

Verify another lock file does not exist and
only then:

Create another lock file
while change file is written
that prevents fortran file from reading.
Then, delete the lock file
Avoids crash between asynchronous 
reading (fortran) and
writing (Perl) of files

=cut

sub _set_clip {
	my ($clip) = @_;

	if (   $clip ne $empty_string
		&& $immodpg->{_is_clip_changed_in_gui} eq $yes )

lib/App/SeismicUnixGui/big_streams/immodpg.pm  view on Meta::CPAN

=head2 sub _set_thickness_m

Verify another lock file does not exist and
only then:

Create another lock file
while change file is written
that prevents fortran file from reading.
Then, delete the lock file
Avoids crash between asynchronous 
reading (fortran) and
writing (Perl) of files

=cut

sub _set_thickness_m {
	my ($thickness_m) = @_;

	if (   $thickness_m ne $empty_string
		&& $immodpg->{_is_thickness_m_changed_in_gui} eq $yes )

lib/App/SeismicUnixGui/big_streams/immodpg.pm  view on Meta::CPAN

=head2 sub _set_thickness_increment_m

Verify another lock file does not exist and
only then:

Create another lock file
while change file is written
that prevents fortran file from reading.
Then, delete the lock file
Avoids crash between asynchronous 
reading (fortran) and
writing (Perl) of files

=cut

sub _set_thickness_increment_m {
	my ($thickness_increment_m) = @_;

	if (   $thickness_increment_m ne $empty_string
		&& $immodpg->{_is_layer_changed_in_gui} eq $yes )

lib/App/SeismicUnixGui/big_streams/immodpg.pm  view on Meta::CPAN

=head2 sub _fortran_layer

set layer
Verify another lock file does not exist and
only then:

Create another lock file
while change file is written
that prevents fortran file from reading.
Then, delete the lock file
Avoids crash between asynchronous 
reading (fortran) and
writing (Perl) of files


=cut

sub _fortran_layer {
	my ($layer) = @_;

	if (   $layer ne $empty_string

lib/App/SeismicUnixGui/big_streams/immodpg.pm  view on Meta::CPAN

=head2 sub _set_option

Verify another lock file does not exist and
only then:

Create another lock file
while change file is written
that prevents fortran file from reading.
Then, delete the lock file
Avoids crash between asynchronous 
reading (fortran) and
writing (Perl) of files


=cut

sub _set_option {

	my ($option) = @_;

lib/App/SeismicUnixGui/big_streams/immodpg.pm  view on Meta::CPAN

}

=head2 sub set_change
verify another lock file does not exist and
only then:

create another lock file
while change file is written.
that revents fortran file from reading
Then delete lock file
Aavoids crash between asynchronous 
reading (fortran) and
writing (Perl) of files

=cut

sub set_change {

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

	#	print("immodpg, set_change, yes_or_no:$yes_or_no\n");

lib/App/SeismicUnixGui/big_streams/immodpg.pm  view on Meta::CPAN

}

=head2 sub set_option
Verify another lock file does not exist and
only then:

Create another lock file
while change file is written
that prevents fortran file from reading.
Then, delete the lock file
Avoids crash between asynchronous 
reading (fortran) and
writing (Perl) of files

=cut

sub set_option {

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

	if ( looks_like_number($option)

lib/App/SeismicUnixGui/geopsy/dinver.pm  view on Meta::CPAN

Debug options:
  -debug-stream             Debug mode (redirect all logs to stdout)
  -plugin-list              Print the list of a available plugins
  -clear-plugins            Reset the list of a available plugins

Qt options:
  -nograb                   Tells Qt that it must never grab the mouse or the
                            keyboard
  -dograb                   Running under a debugger can cause an implicit
                            -nograb, use -dograb to override
  -sync                     Switches to synchronous mode for debugging
  -style <style>            Sets the application GUI style. Possible values are
                              motif
                              windows
                              platinum
                            If you compiled Qt with additional styles or have
                            additional styles as plugins these will be
                            available to the -style command line option
  -session <session>        Restore the application from an earlier session
  -reverse                  Sets the application's layout direction to right to
                            left

lib/App/SeismicUnixGui/geopsy/gpviewdcreport.pm  view on Meta::CPAN

  -n <N>                    Number of rigns
  -p <POLARISATION>         Polarisation: Vertical, Transverse or Radial

Refra options:
  -n <N>                    Number of sources

Qt options:
  -nograb                   Tells Qt that it must never grab the mouse or the keyboard
  -dograb                   Running under a debugger can cause an implicit -nograb, use -dograb to
                            override
  -sync                     Switches to synchronous mode for debugging
  -style <style>            Sets the application GUI style. Possible values are
                              motif
                              windows
                              platinum
                            If you compiled Qt with additional styles or have additional styles as
                            plugins these will be available to the -style command line option
  -session <session>        Restore the application from an earlier session
  -reverse                  Sets the application's layout direction to right to left
  -display <display>        Sets the X display (default is $DISPLAY)
  -geometry <geometry>      Sets the client geometry of the first window that is shown