chars.hhf

来自「High Level assembly language(HLA)软件」· HHF 代码 · 共 94 行

#if( ! @defined( chars_hhf ))
?chars_hhf := true;

#includeOnce( "os.hhf" )

namespace chars;

	const
		#if( @global:os.win32 )
			dir_sep	:= '\';
		#else
			dir_sep := '/';
		#endif


	readonly
		AlphaChars		:cset; @external( "CHARS_ALPHACHARS" );
		Alphanum		:cset; @external( "CHARS_ALPHANUM" );
		CtrlCset		:cset; @external( "CHARS_CTRLCSET" );
		DigitsCset		:cset; @external( "CHARS_DIGITSCSET" );
		GraphicCset		:cset; @external( "CHARS_GRAPHICCSET" );
		LowerCaseCset	:cset; @external( "CHARS_LOWERCASECSET" );
		WhiteSpaceCset	:cset; @external( "CHARS_WHITESPACECSET" );
		UpperCaseCset	:cset; @external( "CHARS_UPPERCASECSET" );
		HexDigitsCset	:cset; @external( "CHARS_HEXDIGITSCSET" );
		
		
	procedure toUpper( c:byte in al );
		@use eax; 
		@returns( "AL" ); 
		@external( "CHARS_TOUPPER" );

	procedure toLower( c:byte in al ); 
		@use eax; 
		@returns( "AL" );
		@external( "CHARS_TOLOWER" );

	procedure isAlpha( c:byte in al );
		@use eax; 
		@returns( "AL" );
		@external( "CHARS_ISALPHA" );

	procedure isUpper( c:byte in al );
		@use eax; 
		@returns( "AL" );
		@external( "CHARS_ISUPPER" );

	procedure isLower( c:byte in al );
		@use eax; 
		@returns( "AL" );
		@external( "CHARS_ISLOWER" );

	procedure isAlphaNum( c:byte in al );
		@use eax; 
		@returns( "AL" );
		@external( "CHARS_ISALPHANUM" );

	procedure isDigit( c:byte in al );
		@use eax; 
		@returns( "AL" );
		@external( "CHARS_ISDIGIT" );

	procedure isXDigit( c:byte in al );
		@use eax; 
		@returns( "AL" );
		@external( "CHARS_ISXDIGIT" );

	procedure isGraphic( c:byte in AL );
		@use eax; 
		@returns( "AL" );
		@external( "CHARS_ISGRAPHIC" );

	procedure isSpace( c:byte in al );
		@use eax; 
		@returns( "AL" );
		@external( "CHARS_ISSPACE" );

	procedure isASCII( c:byte in al );
		@use eax; 
		@returns( "AL" );
		@external( "CHARS_ISASCII" );

	procedure isCtrl( c:byte in al );
		@use eax; 
		@returns( "AL" );
		@external( "CHARS_ISCTRL" );

end chars;




#endif