/ 
App-SeismicUnixGui-0.87.1
River stage zero No dependents
/ App::SeismicUnixGui::misc::oop_text

for writing object-oriented perl lines of text 2018 V 0.0.2

V 0.0.3 July 24 2018 includes data_in and data_out
 add \t to pod_prog_param
 V0.04 April 4 2019
  does not repeat program declaration

DOCUMENTATION

SYNOPSIS

PERL PROGRAM NAME: oop_text
AUTHOR: 	Juan Lorenzo
DATE: 	V 0.0.1	June 22 2017 

DESCRIPTION 
    

BASED ON:

USE

NOTES

Examples

SEISMIC UNIX NOTES

CHANGES and their DATES

private hash

sub set_data_io_LSU

write declare_data_in 
data can be indifferent formats,
e.g. su, text, binary etc. 

data can be for input or output
write declare_data_out 
data can be in different formats,
e.g. su, text, binary etc. 

data can be for input or output
write get_declare_pkgs 
V0.0.2 July 24 2018, includes data_out and  data_in
  write built flows 
		  print("oop_text,flows,prog_version_aref=@{$oop_text->{_prog_version_aref}}\n");
import standard perl
pod_headers 
and write to output file

sub instantiation

oop_instantiation_defaults removes duplicate file names

sub get_log_flows

sub get_pod_declare

sub pod_flows

sub get_pod_log_flows

sub set_pod_prog_param_setup

write pod on
Setup

sub get_pod_run_flows

sub get_print_flows

sub get_program_params

Sets labels and their values
 	print("oop_text,get_program_params,version=$oop_text->{_prog_version}\n");
 	print("oop_text,get_program_params,labels=@{$oop_text->{_prog_param_labels_aref}}\n");
 	print("oop_text,get_program_params,values=@{$oop_text->{_prog_param_values_aref}}\n");
 	print("oop_text,get_program_params,prog_name=$oop_text->{_prog_name}\n");

sub get_run_flows

sub set_message

sub set_filehandle

sub set_macro_head

sub set_macro_tail

sub set_prog_name

sub set_prog_version

sub set_prog_version_aref

print("oop_text,set_prog_version_aref,prog_version_aref=@{$hash_aref->{_items_versions_aref}}\n");
print("oop_text,set_prog_version_aref,prog_version_aref=@{$oop_text->{_prog_version_aref}}\n");

sub set_num_progs4flow

sub set_prog_names_aref

sub set_prog_param_values_aref

sub set_prog_param_labels_aref

sub get_use_pkg

	origanize output text in the declaration section
	of the perl script

	N.B. @{$oop_text->{_prog_names_aref}}[$j] contains other programs
	N.B. ref-array contains: 
e.g., 	use aliased 'App::SeismicUnixGui::misc::message';
	use aliased 'App::SeismicUnixGui::misc::flow';

output in the text file should look something like use aliased 'App::SeismicUnixGui::misc::message'; use aliased 'App::SeismicUnixGui::misc::flow'; use data_in use suxwigb

4-4-19: prevent repetition of programs being output

July 2022: program name needs to know its full path
within the project e.g., 
name is now App::SeismicGui::misc::name
use L_SU_global_constants, e.g.,->get_path4convert_file.