.pg
.x Run-Time Library (STR$) Routines
.lt
------------------------------------------------------------------------
Run-Time Library (STR$) Routines
------------------------------------------------------------------------
.el
.b 3
^&
.lt
macro				formal-arguements
.el
\&
.b
.lt
STR$ADD				asign,aexp,adigits,-
				bsign,bexp,bdigits,-
				csign,cexp,cdigits

STR$ANALYZE_SDESC		inp_dsc,len,data_adr

STR$APPEND			dst_str,src_str

STR$CASE_BLIND_COMPARE		src1_str,src2_str

STR$COMPARE			src1_str,src2_str

STR$COMPARE_EQL			src1_str,src2_str

STR$COMPARE_MULTI		src1_str,src2_str,-
				[case_blind_flag],[foreign_lang]

STR$CONCAT			dst_str,src1_str,-
				[src2_str],[src3_str],[src4_str],[src5_str],-
				[src6_str],[src7_str],[src8_str],[src9_str],-
				[src10_str],[src11_str],[src12_str],-
				[src13_str],[src14_str],[src15_str],-
				[src16_str],[src17_str],[src18_str],-
				[src19_str],[src20_str]

STR$COPY_DX			dst_str,src_str

STR$COPY_R			dst_str,src_len,src_str

STR$DIVIDE			asign,aexp,adigits,-
				bsign,bexp,bdigits,tot_digits,-
				rnd_trunc,csign,cexp,cdigits

STR$DUPL_CHAR			dst_str,[length],[char]

STR$FIND_FIRST_IN_SET		src_str,set_of_chars

STR$FIND_FIRST_NOT_IN_SET	src_str,set_of_chars

STR$FIND_FIRST_SUBSTRING	src_str,index,sub_string_index,-
				[sub_string1],[sub_string2],[sub_string3],-
				[sub_string4],[sub_string5],[sub_string6],-
				[sub_string7],[sub_string8],[sub_string9],-
				[sub_string10],[sub_string11],[sub_string12],-
				[sub_string13],[sub_string14],[sub_string15],-
				[sub_string16],[sub_string17],[sub_string18],-
				[sub_string19],[sub_string20]

STR$FREE1_DX			dsc_adr

STR$GET1_DX			len,str

STR$LEFT			dst_str,src_str,end_pos

STR$LEN_EXTR			dst_str,src_str,start_pos,length

STR$MATCH_WILD			cand_str,pattern_str

STR$MUL				asign,aexp,adigits,-
				bsign,bexp,bdigits,-
				csign,cexp,cdigits

STR$POSITION			src_str,sub_str,[start_pos]		

STR$POS_EXTR			dst_str,src_str,start_pos,end_pos

STR$PREFIX			dst_str,src_str

STR$RECIP			asign,aexp,adigits,-
				bsign,bexp,bdigits,-
				csign,cexp,cdigits

STR$REPLACE			dst_str,src_str,start_pos,end_pos,rpl_str

STR$RIGHT			dst_str,src_str,start_pos

STR$ROUND			places,trunc_flg,-
				asign,aexp,adigits,-
				csign,cexp,cdigits

STR$TRANSLATE			dst_str,src_str,trans_str,match_str

STR$TRIM			dst_str,src_str,[out_len]

STR$UPCASE			dst_str,src_str
.el