strings.hhf

High Level assembly language(HLA)软件

				
					"#error "
					"( " 
						"""Could not match parameters to the '" +
						macroName + 
						"' function"" " 
					") "
					
				"#endif "
				
			"#endmacro ";
			
		theMacro
		
	#endmacro
	
	
	
	#macro strpat4( string macroName ):theMacro;
	
		?theMacro :text :=
		
			"#macro " + macroName + "( parms[] ); "
		
				"?@global:str.parmCnt := @elements( parms ); "
				"#if( @global:str.parmCnt = 4 ) "
				
					"@text( ""@global:str." + macroName + "4""  ) "
					"( "
						"@text( parms[0] ), " 
						"@text( parms[1] ), " 
						"@text( parms[2] ), " 
						"@text( parms[3] ) "
					") "
					
				"#elseif( @global:str.parmCnt = 5 ) "
				
					"@text( ""@global:str." + macroName + "5"" ) "
					"( "
						"@text( parms[0] ), " 
						"@text( parms[1] ), " 
						"@text( parms[2] ), " 
						"@text( parms[3] ), " 
						"@text( parms[4] ) "
					") "
					
				"#elseif( @global:str.parmCnt = 6 ) "
				
					"@text( ""@global:str." + macroName + "6"" ) "
					"( "
						"@text( parms[0] ), " 
						"@text( parms[1] ), " 
						"@text( parms[2] ), " 
						"@text( parms[3] ), " 
						"@text( parms[4] ), " 
						"@text( parms[5] ) "
					") "
					
				"#else "
				
					"#error "
					"( " 
						"""Could not match parameters to the '" +
						macroName + 
						"' function"" " 
					") "
					
				"#endif "
				
			"#endmacro ";
			
		theMacro
		
	#endmacro
	
	

	// Cset pattern matching procedures:
	

	strpat2( oneCset );
			
	procedure oneCset2( src:string; cst:cset ); 
		@returns( "al" );
		@external( "STR_ONECSET2" );
									
	procedure oneCset3( src:string; cst:cset; rem:string ); 
		@returns( "al" );
		@external( "STR_ONECSET3" );
									
	procedure oneCset4( src:string; cst:cset; rem:string; mat:string ); 
		@returns( "al" );
		@external( "STR_ONECSET4" );
									


	strpat2( upToCset );
			
	procedure upToCset2( src:string; cst:cset ); 
		@returns( "al" );
		@external( "STR_UPTOCSET2" );

	procedure upToCset3( src:string; cst:cset; rem:string ); 
		@returns( "al" );
		@external( "STR_UPTOCSET3" );

	procedure upToCset4( src:string; cst:cset; rem:string; mat:string ); 
		@returns( "al" );
		@external( "STR_UPTOCSET4" );




	strpat2( zeroOrOneCset );
			
	procedure zeroOrOneCset2( src:string; cst:cset ); 
		@returns( "al" );
		@external( "STR_ZEROORONECSET2" );
		
	procedure zeroOrOneCset3( src:string; cst:cset; rem:string ); 
		@returns( "al" );
		@external( "STR_ZEROORONECSET3" );
		
	procedure zeroOrOneCset4( src:string; cst:cset; rem:string; mat:string ); 
		@returns( "al" );
		@external( "STR_ZEROORONECSET4" );
		


	strpat2( zeroOrMoreCset );
			
	procedure zeroOrMoreCset2( src:string; cst:cset ); 
		@returns( "al" );
		@external( "STR_ZEROORMORECSET2" );
		
	procedure zeroOrMoreCset3( src:string; cst:cset; rem:string ); 
		@returns( "al" );
		@external( "STR_ZEROORMORECSET3" );
		
	procedure zeroOrMoreCset4( src:string; cst:cset; rem:string; mat:string ); 
		@returns( "al" );
		@external( "STR_ZEROORMORECSET4" );
		


	strpat2( oneOrMoreCset );
			
	procedure oneOrMoreCset2( src:string; cst:cset ); 
		@returns( "al" );
		@external( "STR_ONEORMORECSET2" );
		
	procedure oneOrMoreCset3( src:string; cst:cset; rem:string ); 
		@returns( "al" );
		@external( "STR_ONEORMORECSET3" );
		
	procedure oneOrMoreCset4( src:string; cst:cset; rem:string; mat:string ); 
		@returns( "al" );
		@external( "STR_ONEORMORECSET4" );

		


	strpat3( exactlyNCset );
			
	procedure exactlyNCset3( src:string; cst:cset; n:uns32 ); 
		@returns( "al" );
		@external( "STR_EXACTLYNCSET3" );

	procedure exactlyNCset4( src:string; cst:cset; n:uns32; rem:string ); 
		@returns( "al" );
		@external( "STR_EXACTLYNCSET4" );

	procedure exactlyNCset5( src:string; cst:cset; n:uns32; rem:string; mat:string ); 
		@returns( "al" );
		@external( "STR_EXACTLYNCSET5" );




	strpat3( firstNCset );
			
	procedure firstNCset3( src:string; cst:cset; n:uns32 ); 
		@returns( "al" );
		@external( "STR_FIRSTNCSET3" );

	procedure firstNCset4( src:string; cst:cset; n:uns32; rem:string ); 
		@returns( "al" );
		@external( "STR_FIRSTNCSET4" );

	procedure firstNCset5( src:string; cst:cset; n:uns32; rem:string; mat:string ); 
		@returns( "al" );
		@external( "STR_FIRSTNCSET5" );



	strpat3( norLessCset );
			
	procedure norLessCset3( src:string; cst:cset; n:uns32 ); 
		@returns( "al" );
		@external( "STR_NORLESSCSET3" );
		
	procedure norLessCset4( src:string; cst:cset; n:uns32; rem:string ); 
		@returns( "al" );
		@external( "STR_NORLESSCSET4" );
		
	procedure norLessCset5( src:string; cst:cset; n:uns32; rem:string; mat:string ); 
		@returns( "al" );
		@external( "STR_NORLESSCSET5" );
		



	strpat3( norMoreCset );
			
	procedure norMoreCset3( src:string; cst:cset; n:uns32 ); 
		@returns( "al" );
		@external( "STR_NORMORECSET3" );
		
	procedure norMoreCset4( src:string; cst:cset; n:uns32; rem:string ); 
		@returns( "al" );
		@external( "STR_NORMORECSET4" );
		
	procedure norMoreCset5( src:string; cst:cset; n:uns32; rem:string; mat:string ); 
		@returns( "al" );
		@external( "STR_NORMORECSET5" );
		




	strpat4( ntoMCset );
			
	procedure ntoMCset4( src:string; cst:cset; n:uns32; m:uns32 ); 
		@returns( "al" );
		@external( "STR_NTOMCSET4" );
		
	procedure ntoMCset5( src:string; cst:cset; n:uns32; m:uns32; rem:string ); 
		@returns( "al" );
		@external( "STR_NTOMCSET5" );
		
	procedure ntoMCset6
	( 
		src	:string; 
		cst	:cset; 
		n	:uns32; 
		m	:uns32; 
		rem	:string; 
		mat	:string 
	); 
		@returns( "al" );
		@external( "STR_NTOMCSET6" );
		


	strpat4( exactlyNtoMCset );
			
	procedure exactlyNtoMCset4( src:string; cst:cset; n:uns32; m:uns32 ); 
		@returns( "al" );
		@external( "STR_EXACTLYNTOMCSET4" );
		
	procedure exactlyNtoMCset5( src:string; cst:cset; n:uns32; m:uns32; rem:string ); 
		@returns( "al" );
		@external( "STR_EXACTLYNTOMCSET5" );
		
	procedure exactlyNtoMCset6
	( 
		src	:string; 
		cst	:cset; 
		n	:uns32; 
		m	:uns32; 
		rem	:string; 
		mat	:string 
	); 
		@returns( "al" );
		@external( "STR_EXACTLYNTOMCSET6" );
		




	// Character matching routines.


	strpat2( oneChar );
			
	procedure oneChar2( src:string; c:char ); 
		@returns( "al" );
		@external( "STR_ONECHAR2" );

	procedure oneChar3( src:string; c:char; rem:string ); 
		@returns( "al" );
		@external( "STR_ONECHAR3" );

	procedure oneChar4( src:string; c:char; rem:string; mat:string ); 
		@returns( "al" );
		@external( "STR_ONECHAR4" );



	strpat2( upToChar );
			
	procedure upToChar2( src:string; c:char ); 
		@returns( "al" );
		@external( "STR_UPTOCHAR2" );

	procedure upToChar3( src:string; c:char; rem:string ); 
		@returns( "al" );
		@external( "STR_UPTOCHAR3" );

	procedure upToChar4( src:string; c:char; rem:string; mat:string ); 
		@returns( "al" );
		@external( "STR_UPTOCHAR4" );



	strpat2( zeroOrOneChar );
			
	procedure zeroOrOneChar2( src:string; c:char ); 
		@returns( "al" );
		@external( "STR_ZEROORONECHAR2" );
		
	procedure zeroOrOneChar3( src:string; c:char; rem:string ); 
		@returns( "al" );
		@external( "STR_ZEROORONECHAR3" );
		
	procedure zeroOrOneChar4( src:string; c:char; rem:string; mat:string ); 
		@returns( "al" );
		@external( "STR_ZEROORONECHAR4" );
		


	strpat2( zeroOrMoreChar );
			
	procedure zeroOrMoreChar2( src:string; c:char ); 
		@returns( "al" );
		@external( "STR_ZEROORMORECHAR2" );
		
	procedure zeroOrMoreChar3( src:string; c:char; rem:string ); 
		@returns( "al" );
		@external( "STR_ZEROORMORECHAR3" );
		
	procedure zeroOrMoreChar4( src:string; c:char; rem:string; mat:string ); 
		@returns( "al" );
		@external( "STR_ZEROORMORECHAR4" );
		


	strpat2( oneOrMoreChar );
			
	procedure oneOrMoreChar2( src:string; c:char ); 
		@returns( "al" );
		@external( "STR_ONEORMORECHAR2" );
		
	procedure oneOrMoreChar3( src:string; c:char; rem:string ); 
		@returns( "al" );
		@external( "STR_ONEORMORECHAR3" );
		
	procedure oneOrMoreChar4( src:string; c:char; rem:string; mat:string ); 
		@returns( "al" );
		@external( "STR_ONEORMORECHAR4" );
		


	strpat3( exactlyNChar );
			
	procedure exactlyNChar3( src:string; c:char; n:uns32 ); 
		@returns( "al" );
		@external( "STR_EXACTLYNCHAR3" );
		
	procedure exactlyNChar4( src:string; c:char; n:uns32; rem:string ); 
		@returns( "al" );
		@external( "STR_EXACTLYNCHAR4" );
		
	procedure exactlyNChar5( src:string; c:char; n:uns32; rem:string; mat:string ); 
		@returns( "al" );
		@external( "STR_EXACTLYNCHAR5" );
		


	strpat3( firstNChar );
			
	procedure firstNChar3( src:string; c:char; n:uns32 ); 
		@returns( "al" );
		@external( "STR_FIRSTNCHAR3" );

	procedure firstNChar4( src:string; c:char; n:uns32; rem:string ); 
		@returns( "al" );
		@external( "STR_FIRSTNCHAR4" );

	procedure firstNChar5( src:string; c:char; n:uns32; rem:string; mat:string ); 
		@returns( "al" );
		@external( "STR_FIRSTNCHAR5" );



	strpat3( norLessChar );
			
	procedure norLessChar3( src:string; c:char; n:uns32 ); 
		@returns( "al" );
		@external( "STR_NORLESSCHAR3" );
		
	procedure norLessChar4( src:string; c:char; n:uns32; rem:string ); 
		@returns( "al" );
		@external( "STR_NORLESSCHAR4" );
		
	procedure norLessChar5( src:string; c:char; n:uns32; rem:string; mat:string ); 
		@returns( "al" );
		@external( "STR_NORLESSCHAR5" );
		


	strpat3( norMoreChar );
			
	procedure norMoreChar3( src:string; c:char; n:uns32 ); 
		@returns( "al" );
		@external( "STR_NORMORECHAR3" );
		
	procedure norMoreChar4( src:string; c:char; n:uns32; rem:string ); 
		@returns( "al" );
		@external( "STR_NORMORECHAR4" );
		
	procedure norMoreChar5( src:string; c:char; n:uns32; rem:string; mat:string ); 
		@returns( "al" );
		@external( "STR_NORMORECHAR5" );
		


	strpat4( ntoMChar );
			
	procedure ntoMChar4( src:string; c:char; n:uns32; m:uns32 ); 
		@returns( "al" );
		@external( "STR_NTOMCHAR4" );
		
	procedure ntoMChar5( src:string; c:char; n:uns32; m:uns32; rem:string ); 
		@returns( "al" );
		@external( "STR_NTOMCHAR5" );
		
	procedure ntoMChar6
	( 
		src:string; 
		c:char; 
		n:uns32; 
		m:uns32; 
		rem:string; 
		mat:string 
	); 
		@returns( "al" );
		@external( "STR_NTOMCHAR6" );
		


	strpat4( exactlyNtoMChar );
			
	procedure exactlyNtoMChar4( src:string; c:char; n:uns32; m:uns32 ); 
		@returns( "al" );
		@external( "STR_EXACTLYNTOMCHAR4" );

	procedure exactlyNtoMChar5( src:string; c:char; n:uns32; m:uns32; rem:string ); 
		@returns( "al" );
		@external( "STR_EXACTLYNTOMCHAR5" );

	procedure exactlyNtoMChar6
	( 
		src	:string; 
		c	:char; 
		n	:uns32; 
		m	:uns32; 
		rem	:string; 
		mat	:string 
	); 
		@returns( "al" );
		@external( "STR_EXACTLYNTOMCHAR6" );





	// Case insensitive Character matching routines.


	strpat2( oneiChar );
			
	procedure oneiChar2( src:string; c:char ); 
		@returns( "al" );
		@external( "STR_ONEICHAR2" );

	procedure oneiChar3( src:string; c:char; rem:string ); 
		@returns( "al" );
		@external( "STR_ONEICHAR3" );

	procedure oneiChar4( src:string; c:char; rem:string; mat:string ); 
		@returns( "al" );
		@external( "STR_ONEICHAR4" );
		


	strpat2( upToiChar );
			
	procedure upToiChar2( src:string; c:char ); 
		@returns( "al" );
		@external( "STR_UPTOICHAR2" );

	procedure upToiChar3( src:string; c:char; rem:string ); 
		@returns( "al" );
		@external( "STR_UPTOICHAR3" );

	procedure upToiChar4( src:string; c:char; rem:string; mat:string ); 
		@returns( "al" );
		@external( "STR_UPTOICHAR4" );



	strpat2( zeroOrOneiChar );
			
	procedure zeroOrOneiChar2( src:string; c:char ); 
		@returns( "al" );
		@external( "STR_ZEROORONEICHAR2" );
		
	procedure zeroOrOneiChar3( src:string; c:char; rem:string ); 
		@returns( "al" );
		@external( "STR_ZEROORONEICHAR3" );
		
	procedure zeroOrOneiChar4( src:string; c:char; rem:string; mat:string ); 
		@returns( "al" );
		@external( "STR_ZEROORONEICHAR4" );
		


	strpat2( zeroOrMoreiChar );
			
	procedure zeroOrMoreiChar2( src:string; c:char ); 
		@returns( "al" );
		@external( "STR_ZEROORMOREICHAR2" );
		
	procedure zeroOrMoreiChar3( src:string; c:char; rem:string ); 
		@returns( "al" );
		@external( "STR_ZEROORMOREICHAR3" );
		
	procedure zeroOrMoreiChar4( src:string; c:char; rem:string; mat:string ); 
		@returns( "al" );
		@external( "STR_ZEROORMOREICHAR4" );
		


	strpat2( oneOrMoreiChar );
			
	procedure oneOrMoreiChar2( src:string; c:char ); 
		@returns( "al" );
		@external( "STR_ONEORMOREICHAR2" );
		
	procedure oneOrMoreiChar3( src:string; c:char; rem:string ); 
		@returns( "al" );	
		@external( "STR_ONEORMOREICHAR3" );
		
	procedure oneOrMoreiChar4( src:string; c:char; rem:string; mat:string ); 
		@returns( "al" );
		@external( "STR_ONEORMOREICHAR4" );
		


	strpat3( exactlyNiChar );
			
	procedure exactlyNiChar3( src:string; c:char; n:uns32 ); 
		@returns( "al" );
		@external( "STR_EXACTLYNICHAR3" );

	procedure exactlyNiChar4( src:string; c:char; n:uns32; rem:string ); 
		@returns( "al" );
		@external( "STR_EXACTLYNICHAR4" );

	procedure exactlyNiChar5( src:string; c:char; n:uns32; rem:string; mat:string ); 
		@returns( "al" );
		@external( "STR_EXACTLYNICHAR5" );



	strpat3( firstNiChar );
			
	procedure firstNiChar3( src:string; c:char; n:uns32 ); 
		@returns( "al" );
		@external( "STR_FIRSTNICHAR3" );

	procedure firstNiChar4( src:string; c:char; n:uns32; rem:string ); 
		@returns( "al" );
		@external( "STR_FIRSTNICHAR4" );

	procedure firstNiChar5( src:string; c:char; n:uns32; rem:string; mat:string ); 
		@returns( "al" );
		@external(