MAPL_scan_pattern_in_file Module

Functions

public function matchbgn(string, substring)

Arguments

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

Return Value logical

public function matches(string, substring)

Arguments

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

Return Value logical

Subroutines

public subroutine go_last_patn(iunps, substring, outline, rew)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	iunps
character(len=*),	intent(in)			::	substring
character(len=150),	intent(out)			::	outline
logical,	intent(in)			::	rew

public subroutine scan_begin(iunps, substring, rew)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	iunps
character(len=*),	intent(in)			::	substring
logical,	intent(in)			::	rew

public subroutine scan_contain(iunps, stop_string, rew)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	iunps
character(len=*),	intent(in)			::	stop_string
logical,	intent(in)			::	rew

public subroutine scan_count_match_bgn(iunps, string, count, rew)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	iunps
character(len=*),	intent(in)			::	string
integer,	intent(out)			::	count
logical,	intent(in)			::	rew

public subroutine scan_write_begin_with_line1_flush_Left(ur, uw, L1)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ur
integer,	intent(in)			::	uw
character(len=*),	intent(in)			::	L1

public subroutine scan_write_between_line1_line2_flush_Left(ur, uw, L1, L2)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ur
integer,	intent(in)			::	uw
character(len=*),	intent(in)			::	L1
character(len=*),	intent(in)			::	L2

public subroutine split_string_by_seperator(string_in, length_mx, seperator_in, mxseg, nseg, str_piece, jstatus)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=length_mx),	intent(in)			::	string_in
integer,	intent(in)			::	length_mx
character(len=length_mx),	intent(in)			::	seperator_in
integer,	intent(in)			::	mxseg
integer,	intent(out)			::	nseg
character(len=length_mx),	intent(out)			::	str_piece(mxseg)
integer,	intent(out)			::	jstatus

public subroutine split_string_by_space(string_in, length_mx, mxseg, nseg, str_piece, jstatus)

print, ‘index=’, i write(6,) ‘str_piece(wc)=’, trim(str_piece(wc))

Arguments

Type	Intent	Optional	Attributes		Name
character(len=length_mx),	intent(in)			::	string_in
integer,	intent(in)			::	length_mx
integer,	intent(in)			::	mxseg
integer,	intent(out)			::	nseg
character(len=length_mx),	intent(out)			::	str_piece(mxseg)
integer,	intent(out)			::	jstatus