M_prep – prep

Uses

- iso_fortran_env
- M_list
- M_expr
- M_strings
- M_CLI2
- M_io

Variables

G_MAN G_MAN_COLLECT G_MAN_FILE G_MAN_FILE_POSITION G_MAN_PRINT G_cmd G_comment G_comment_count G_comment_style G_condop G_cpp G_dc G_debug G_extract G_extract_auto G_extract_flag G_extract_start G_extract_start0 G_extract_stop G_extract_stop0 G_file G_file_dictionary G_ident G_ihelp G_inc_count G_inc_files G_inparcel G_io_total_lines G_iocount G_iout G_iout_init G_iwidth G_lang G_line_length G_line_number G_llwrite G_nestl G_nestl_max G_noenv G_outline G_outtype G_parcel_dictionary G_parcelcount G_scratch_file G_scratch_lun G_source G_system_on G_var_len G_verbose G_write macro num

Derived Types

file_stack parcel_stack

Functions

en ends_in getdate true_or_false

Variables

Type	Visibility	Attributes		Name		Initial
character(len=:),	public,	allocatable, save	::	G_MAN
logical,	public,	save	::	G_MAN_COLLECT	=	.false.
character(len=:),	public,	allocatable	::	G_MAN_FILE
character(len=10),	public		::	G_MAN_FILE_POSITION	=	'ASIS '
logical,	public,	save	::	G_MAN_PRINT	=	.false.
character(len=:),	public,	allocatable, save	::	G_cmd
character(len=:),	public,	allocatable	::	G_comment
integer,	public		::	G_comment_count	=	0
character(len=10),	public		::	G_comment_style	=	' '
logical,	public,	save	::	G_condop(0:G_nestl_max)
logical,	public		::	G_cpp
logical,	public		::	G_dc
logical,	public,	save	::	G_debug	=	.false.
logical,	public,	save	::	G_extract	=	.false.
logical,	public,	save	::	G_extract_auto	=	.true.
logical,	public,	save	::	G_extract_flag	=	.false.
character(len=:),	public,	allocatable, save	::	G_extract_start
character(len=:),	public,	allocatable, save	::	G_extract_start0
character(len=:),	public,	allocatable, save	::	G_extract_stop
character(len=:),	public,	allocatable, save	::	G_extract_stop0
character(len=:),	public,	allocatable, save	::	G_file
type(file_stack),	public		::	G_file_dictionary(250)
logical,	public		::	G_ident	=	.false.
integer,	public		::	G_ihelp	=	stdout
integer,	public		::	G_inc_count	=	0
character(len=G_line_length),	public		::	G_inc_files(50)
logical,	public,	save	::	G_inparcel	=	.false.
integer,	public		::	G_io_total_lines	=	0
integer,	public		::	G_iocount	=	0
integer,	public		::	G_iout
integer,	public,	save	::	G_iout_init
integer,	public		::	G_iwidth
character(len=:),	public,	allocatable, save	::	G_lang
integer,	public,	parameter	::	G_line_length	=	4096
integer,	public,	save	::	G_line_number	=	0
logical,	public		::	G_llwrite	=	.true.
integer,	public		::	G_nestl	=	0
integer,	public,	parameter	::	G_nestl_max	=	20
logical,	public		::	G_noenv	=	.false.
character(len=G_line_length),	public		::	G_outline
character(len=10),	public		::	G_outtype	=	'asis'
type(parcel_stack),	public		::	G_parcel_dictionary(500)
integer,	public		::	G_parcelcount	=	0
character(len=:),	public,	allocatable, save	::	G_scratch_file
integer,	public,	save	::	G_scratch_lun	=	-1
character(len=G_line_length),	public		::	G_source
logical,	public,	save	::	G_system_on	=	.false.
integer,	public,	parameter	::	G_var_len	=	63
logical,	public,	save	::	G_verbose	=	.false.
logical,	public		::	G_write	=	.true.
type(dictionary),	public,	save	::	macro
integer,	public,	parameter	::	num	=	2048

Derived Types

type, public :: file_stack

Components

Type	Visibility		Name		Initial
character(len=G_line_length),	public	::	filename
integer,	public	::	line_number	=	0
integer,	public	::	unit_number

type, public :: parcel_stack

Components

Type	Visibility		Name		Initial
integer,	public	::	line_number	=	0
character(len=G_line_length),	public	::	name
integer,	public	::	unit_number

Functions

public function en(errnum, translate) result(english)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	errnum
character(len=*),	intent(in)			::	translate

Return Value character(len=:),allocatable

public pure function ends_in(string) result(ending)

Arguments

Type	Intent	Optional	Attributes		Name
character,	intent(in)			::	string

Return Value character,allocatable

public function getdate(name) result(s)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in),	optional		::	name

Return Value character(len=:),allocatable

public function true_or_false(line, ipos1, ipos2)

Arguments

Type	Intent		Name
character(len=G_line_length),	intent(in)	::	line
integer,	intent(in)	::	ipos1
integer,	intent(in)	::	ipos2

Return Value logical

Subroutines

public subroutine check_name(line)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	line

public subroutine cond()

Arguments

None

public subroutine crib_help(lun)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	lun

public subroutine def(verb, opts, noelse, eb)

Arguments

Type	Intent		Name
character(len=*),	intent(in)	::	verb
character(len=*),	intent(in)	::	opts
integer,	intent(out)	::	noelse
logical		::	eb

public subroutine defines()

Arguments

None

public subroutine dissect2(verb, init, pars, error_return)

Arguments

Type	Intent	Optional		Name
character(len=*),	intent(in)		::	verb
character(len=*),	intent(in)		::	init
character(len=*),	intent(in)		::	pars
integer,	intent(out),	optional	::	error_return

public subroutine document(opts)

G_scratch_file=scratch(‘prep_scratch.’)) THIS HAS TO BE A UNIQUE NAME – IMPROVE THIS

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	opts

public subroutine else(verb, opts, noelse, eb)

Arguments

Type		Name
character(len=*)	::	verb
character(len=*)	::	opts
integer	::	noelse
logical	::	eb

public subroutine endif(noelse, eb)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(out)			::	noelse
logical,	intent(out)			::	eb

public subroutine exe()

Arguments

None

public subroutine expand_variables(line)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	line

public subroutine findit(line)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=G_line_length)				::	line

public subroutine flushit()

Arguments

None

public subroutine format_g_man()

Arguments

None

public subroutine get_os_type()

Determine the OS type by guessing

Arguments

None

public subroutine ident(opts)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	opts

public subroutine if(opts, noelse, eb)

Arguments

Type	Intent		Name
character(len=*),	intent(in)	::	opts
integer,	intent(out)	::	noelse
logical		::	eb

public subroutine import(line)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	line

public subroutine include(line, iunit)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=G_line_length),	intent(in)			::	line
integer,	intent(in)			::	iunit

public subroutine includes()

Arguments

None

public subroutine opens()

Arguments

None

public subroutine output_cmd(opts)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	opts

public subroutine parcel_case(opts)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	opts

public subroutine post(parcel_name)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	parcel_name

public subroutine prepost(opts)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	opts

public subroutine print_comment_block()

Arguments

None

public subroutine put(opts)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	opts

public subroutine set(line)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	line

public subroutine setup(help_text, version_text)

!!$! which is preferred; but a blank value or “END” on a $BLOCK directive does as well.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=:),	intent(out),		allocatable	::	help_text(:)
character(len=:),	intent(out),		allocatable	::	version_text(:)

public subroutine show_state(list, msg)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in),	optional		::	list
character(len=*),	intent(in)			::	msg

public subroutine stop(opts)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	opts

public subroutine stop_prep(errnum, translate, message, stop_value)

Arguments

Type	Intent	Optional		Name
integer,	intent(in)		::	errnum
character(len=*),	intent(in)		::	translate
character(len=*),	intent(in)		::	message
integer,		optional	::	stop_value

public subroutine undef(opts)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	opts

public subroutine unset(opts)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	opts

public subroutine warn_prep(message)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	message

public subroutine write_arguments()

Arguments

None

public subroutine write_err(msg)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	msg

public subroutine write_get_arguments()

Arguments

None

public subroutine write_out(line)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	line

public subroutine www(line)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	line

M_prep Module

Contents

Uses

Contents

Variables

Derived Types

type, public :: file_stack

Components

type, public :: parcel_stack

Components

Functions

public function en(errnum, translate) result(english)

Arguments

Return Value character(len=:),allocatable

public pure function ends_in(string) result(ending)

Arguments

Return Value character,allocatable

public function getdate(name) result(s)

Arguments

Return Value character(len=:),allocatable

public function true_or_false(line, ipos1, ipos2)

Arguments

Return Value logical

Subroutines

public subroutine check_name(line)

Arguments

public subroutine cond()

Arguments

public subroutine crib_help(lun)

Arguments

public subroutine def(verb, opts, noelse, eb)

Arguments

public subroutine defines()

Arguments

public subroutine dissect2(verb, init, pars, error_return)

Arguments

public subroutine document(opts)

Arguments

public subroutine else(verb, opts, noelse, eb)

Arguments

public subroutine endif(noelse, eb)

Arguments

public subroutine exe()

Arguments

public subroutine expand_variables(line)

Arguments

public subroutine findit(line)

Arguments

public subroutine flushit()

Arguments

public subroutine format_g_man()

Arguments

public subroutine get_os_type()

Arguments

public subroutine ident(opts)

Arguments

public subroutine if(opts, noelse, eb)

Arguments

public subroutine import(line)

Arguments

public subroutine include(line, iunit)

Arguments

public subroutine includes()

Arguments

public subroutine opens()

Arguments

public subroutine output_cmd(opts)

Arguments

public subroutine parcel_case(opts)

Arguments

public subroutine post(parcel_name)

Arguments

public subroutine prepost(opts)

Arguments

public subroutine print_comment_block()

Arguments

public subroutine put(opts)

Arguments

public subroutine set(line)

Arguments