C# IInput.Peek方法代码示例

		///////////////////////////////////////////////////////////////////////////

		private void ParseMacro( int depth, IInput input, StringBuilder sb )
		{
			// ******
			char quoteStartChar = gc.SeqOpenQuote.FirstChar;

			// ******
			while( true ) {
				//
				// first quote check
				//
				if( quoteStartChar == input.Peek() && gc.SeqOpenQuote.Starts(input) ) {
					//
					// GetQuotedText() strips the outer quotes but perserves inner quotes; but
					// first we need to eat the open quote
					//
					gc.SeqOpenQuote.Skip( input );
					sb.Append( gc.GetQuotedText(input, true) );
				}

				// ******				
				char ch = input.Next();

				if( SC.NO_CHAR == ch ) {
					ThreadContext.MacroError( "defmacro/pushmacro: end of input before (#endmacro) found" );
				}
				
				// ******				
				//
				// (#defmacro ...
				// (#pushmacro ...
				//
				if( SC.OPEN_PAREN == ch && input.StartsWith(BLOCK_FOREACH_START) ) {
					//
					// get recursive
					//
					input.Skip( BLOCK_FOREACH_START.Length );

					if( ! char.IsWhiteSpace(input.Peek()) ) {
						ThreadContext.MacroError( "expected white space following \"(#defmacro\"" );
					}
					
					sb.Append( BLOCK_FOREACH_INJECT );
					ParseMacro( 1 + depth, input, sb );
					sb.Append( BLOCK_ENDFOREACH_INJECT );
					continue;
				}

				else if( SC.OPEN_PAREN == ch && input.StartsWith(BLOCK_FOREACH_END) ) {
					input.Skip( BLOCK_FOREACH_END.Length );
					return;
				}

				else {
					sb.Append( ch );
				}
			}
		}

		private void ParseMacro( int depth, IInput input, StringBuilder sb )
		{
			// ******
			char quoteStartChar = gc.SeqOpenQuote.FirstChar;

			// ******
			while( true ) {
				//
				// first quote check
				//
				if( quoteStartChar == input.Peek() && gc.SeqOpenQuote.Starts(input) ) {
					//
					// GetQuotedText() strips the outer quotes but perserves inner quotes; but
					// first we need to eat the open quote
					//
					gc.SeqOpenQuote.Skip( input );
					sb.Append( gc.GetQuotedText(input, true) );
				}

				// ******				
				char ch = input.Next();

				// ******				
				if( SC.NO_CHAR == ch ) {
					ThreadContext.MacroError( "block error: end of input before (#endblock) found" );
				}
				
				// ******				
				//
				// (#block ...
				//
				if( SC.OPEN_PAREN == ch && input.StartsWith(BLOCK_START) ) {
					//
					// get recursive
					//
					input.Skip( BLOCK_START.Length );

					// ******
					sb.Append( BLOCK_INJECT );
					ParseMacro( 1 + depth, input, sb );
					sb.Append( BLOCKEND_INJECT );
					continue;
				}

				else if( SC.OPEN_PAREN == ch && input.StartsWith(BLOCK_END) ) {
					input.Skip( BLOCK_END.Length );
					return;
				}

				else {
					sb.Append( ch );
				}
			}
		}

		///////////////////////////////////////////////////////////////////////////

		private void ParseMacro( IInput input, StringBuilder sb )
		{
			// ******
			char quoteStartChar = gc.SeqOpenQuote.FirstChar;

			// ******
			while( true ) {
				//
				// first quote check - allows (#endarray) to be embedded in the text
				//
				if( quoteStartChar == input.Peek() && gc.SeqOpenQuote.Starts(input) ) {
					//
					// GetQuotedText() strips the outer quotes but perserves inner quotes; but
					// first we need to eat the open quote
					//
					gc.SeqOpenQuote.Skip( input );
					sb.Append( gc.GetQuotedText(input, true) );
				}

				// ******				
				char ch = input.Next();

				if( SC.NO_CHAR == ch ) {
					ThreadContext.MacroError( "deflist: end of input before (#endlist) found" );
				}
				
				if( SC.OPEN_PAREN == ch && input.StartsWith(ENDLIST) ) {
					input.Skip( ENDLIST.Length );
					return;
				}

				else {
					sb.Append( ch );
				}
			}
		}

		/////////////////////////////////////////////////////////////////////////////

		public MacroExpression ParseExpression( IInput input )
		{
			// ******
			var exList = new MacroExpression( new NmpStringList() );

			// ******
			//
			// first token is the name of the macro
			//
			string	token = rootName;
			bool		haveFreshToken = true;

			// ******
			while( true ) {
				bool isRootNode = 0 == exList.Count;
				bool allDone = false;

				char ch = input.Peek();

				if( haveFreshToken ) {
					allDone = HandleFreshToken( isRootNode, token, char.IsWhiteSpace(ch), exList, input );
					haveFreshToken = false;
				}
				
				if( SC.DOT == ch ) {
					//
					// '.'
					//
					input.Skip( 1 );
					token = GetToken( input );
				
					if( string.IsNullOrEmpty(token) ) {
						//
						// does not return
						//
						UnexpectedCharacter( input.Peek(), "expecting identifier (member name)" );
					}
				
					// ******
					haveFreshToken = true;
				}

// jpm 11 April 13; change back to NOT check for (# because its more correct that what
// we ended up with - that is, without the check its possible for the user to create a
// macro (across multiple lines using '-' at end of line and comments ;;) where we
// get "something()(#defmacro..)" glued together as the result of a macro atempting to
// call a method - not what was intended
//
				//else if( SC.OPEN_PAREN == ch && SC.HASH != input.Peek(1) ) {
				else if( SC.OPEN_PAREN == ch ) {
					//
					// '(' NOT "(#"
					//
					input.Skip( 1 );
					exList.Add( MethodCall(isRootNode, token, haveFreshToken, input) );
					haveFreshToken = false;
				}

				else if( SC.OPEN_BRACKET == ch ) {
					//
					// '['
					//
					input.Skip( 1 );
					exList.Add( IndexMember(isRootNode, token, haveFreshToken, input) );
					haveFreshToken = false;                                               
				}

				else if( SC.ATCHAR == ch && SC.OPEN_BRACKET == input.Peek(1) ) {
					input.Skip( 2 );
					ParseMacroOptions( input, exList.MacroInstructions );
				}
				else {
					//
					// end of expression
					//

					/*	

						should put whatever we do here just before the end of the
						method - get it out of here for cleanthlyness sake


						if is altInvocationExpression and we did not detect it as a method in HandleFreshToken()
							
							we've hit ')' or some char we don't know what to do with

						we could gather up "... )" and add to MacroOptions

							or error

							or just eat it
					*/

					//if( isAltInvocationExpression && ! allDone ) {
					//	//NmpStringList strArgs = argScanner( input, RecognizedCharType.CloseParenChar );
					//	NmpStringList strArgs = scanner.ArgScanner( input, RecognizedCharType.CloseParenChar );
					//}

//.........这里部分代码省略.........

		/////////////////////////////////////////////////////////////////////////////

		public override string ParseBlock( Expression exp, IInput input )
		{
			// ******
			//
			// remove any newline following the closing paren (#macro ...)
			//
			if( SC.NEWLINE == input.Peek() ) {
				input.Skip( 1 );
			}

			// ******
			StringBuilder macroText = new StringBuilder();
			ParseMacro( input, macroText );

			// ******
			//
			// remove any newline following the closing paren for the (#endmacro)
			//
			if( SC.NEWLINE == input.Peek() ) {
				input.Skip( 1 );
			}

			// ******
			return macroText.ToString();
		}

		///////////////////////////////////////////////////////////////////////////

		private void ParseMacro( int depth, IInput input, StringBuilder sb )
		{
			// ******
			char quoteStartChar = gc.SeqOpenQuote.FirstChar;

			// ******
			while( true ) {
				//
				// first quote check
				//
				if( quoteStartChar == input.Peek() && gc.SeqOpenQuote.Starts(input) ) {
					//
					// GetQuotedText() strips the outer quotes but perserves inner quotes; but
					// first we need to eat the open quote
					//
					gc.SeqOpenQuote.Skip( input );
					sb.Append( gc.GetQuotedText(input, true) );
				}

				// ******				
				char ch = input.Next();

				if( SC.NO_CHAR == ch ) {
					ThreadContext.MacroError( "defmacro/pushmacro: end of input before (#endmacro) found" );
				}
				
				// ******				
				//
				// (#defmacro ...
				// (#pushmacro ...
				//
				if( SC.OPEN_PAREN == ch && input.StartsWith(DEFMACRO_START) ) {
					//
					// get recursive
					//
					input.Skip( DEFMACRO_START.Length );

					if( ! char.IsWhiteSpace(input.Peek()) ) {
						ThreadContext.MacroError( "expected white space following \"(#defmacro\"" );
					}
					
					sb.Append( DEFMACRO_INJECT );
					ParseMacro( 1 + depth, input, sb );
					sb.Append( ENDMACRO_INJECT );
					continue;
				}

		//
		// easier / shorter way to do this - duping code from above
		//
				else if( SC.OPEN_PAREN == ch && input.StartsWith(PUSHMACRO_START) ) {
					//
					// get recursive
					//
					input.Skip( PUSHMACRO_START.Length );

					if( ! char.IsWhiteSpace(input.Peek()) ) {
						ThreadContext.MacroError( "expected white space following \"(#defmacro\"" );
					}
					
					sb.Append( PUSHMACRO_INJECT );
					ParseMacro( 1 + depth, input, sb );
					sb.Append( ENDMACRO_INJECT );
					continue;
				}

					//case SC.EMBED_BEGIN_INBLOCK_EXPAND_CHAR:
					//	if( 0 == depth ) {
					//		//
					//		// only for the outermost macro code
					//		//
					//		sb.Append( HandleEmbedMacroBlock(input) );
					//		continue;
					//	}
					//	break;

				else if( SC.OPEN_PAREN == ch && input.StartsWith(ENDMACRO) ) {
					input.Skip( ENDMACRO.Length );
					return;
				}

				else {
					sb.Append( ch );
				}
			}
		}

		// (#if bool_expression )
		//
		// ... (#elseif ...) / (#else)
		//
		// (#endif)

//		///////////////////////////////////////////////////////////////////////////
//
//		
//string	IfElseEndifPatterns =
//
//@"(?x)\A
//(
//\(\#if[ \t]|
//\(\#elseif[ \t]|
//\(\#else\)|
//\(\#endif\)|
//
//)
//";
//
		
		///////////////////////////////////////////////////////////////////////////

		private StringBuilder IfProcessor( IInput input, bool processing, int depth )
		{
		StringBuilder	result = new StringBuilder();
		bool	inElse = false;
		bool done = false;
		
		/*
		
			processing says whether we are saving text or not
			
				text is only saved if processing is true
			
			depth is how may if statements deep we are into the process
			
				depth zero is the first level after examining the truth of the outermost if, at this
				level processing can be toggled by the else statement and NOT have an else token reinjected
				into the code
				
				at levels greather than zero if/else/endif tokens are reinjected into the code to be
				processed after the text has been pushed back onto the input and is scanned again
		
		
		*/

			// ******
			char quoteStartChar = gc.SeqOpenQuote.FirstChar;
			
			// ******
			while( true ) {
				//
				// first quote check
				//
				if( quoteStartChar == input.Peek() && gc.SeqOpenQuote.Starts(input) ) {
					//
					// GetQuotedText() strips the outer quotes but perserves inner quotes; but
					// first we need to eat the open quote
					//
					gc.SeqOpenQuote.Skip( input );
					string text = gc.GetQuotedText( input, true );

					if( processing ) {
						result.Append( text );
					}
				}

				// ******				
				char ch = input.Next();

				// ******				
				if( SC.NO_CHAR == ch ) {
					ThreadContext.MacroError( "IfHandler: end of input before (#endif) found" );
					return result;
				}
				
				// ******				
				//
				// (#if ...
				//
				if( SC.OPEN_PAREN == ch && input.StartsWith(IF_START) ) {
					//
					// get recursive
					//
					input.Skip( IF_START.Length );

					if( ! char.IsWhiteSpace(input.Peek()) ) {
						ThreadContext.MacroError( "expected white space following \"(#if\"" );
					}
					
					if( processing ) {
						result.Append( IF_INJECT );
					}

					result.Append( IfProcessor(input, processing, 1 + depth) );
					continue;
				}
				
//.........这里部分代码省略.........

		/////////////////////////////////////////////////////////////////////////////

		public override string ParseBlock( Expression exp, IInput input )
		{
			// ******
			var args = GetMacroArgsAsTuples( exp ) as NmpTuple<bool>;
			bool initialIfIsTrue = args.Item1;

			//  ******
			string	result = string.Empty;
			StringBuilder text = new StringBuilder();
			bool	processing = initialIfIsTrue;
		
			// ******
			if( SC.NEWLINE == input.Peek() ) {
				input.Skip( 1 );
			}

			// ******
			return IfProcessor( input, processing, DEPTH_ZERO ).ToString();
		}

		/////////////////////////////////////////////////////////////////////////////

		public virtual RecognizedCharType Next( IInput input, out TokenMap tm )
		{
/*

	powershell support for a leaing $ presumes that Next() is only called by
	NmpScanner and that IsMacroIdentifierStartChar() and IsValidMacroIdentifier()
	are never called to validate a powershell name - because they will not be validated

	THIS IS PROBABLY INVALID

*/


			// ******
			RecognizedCharType rct = TestCharType( input );
			
			//
			// must tread tokens that start with '$' special - should do this check for
			// alt token starts as well but since we're going to disallow alt token starts
			// for macros as we rebuild this thing we'll ignore that
			//
			if(	RecognizedCharType.TokenStartChar == rct
					&& (SC.DOLLAR == input.Peek() || SC.HASH == input.Peek()) 
					&& ! IsValidInnerTokenChar(input.Peek(1)) ) {
				//
				// a token that starts with a $ can ONLY be followed by a '.' or a valid token
				//
				if( SC.DOT != input.Peek(1) ) {
					tm = null;
					return RecognizedCharType.JustAChar;
				}
			}

			// ******
			if( RecognizedCharType.TokenStartChar == rct || RecognizedCharType.AltTokenStartChar == rct ) {
				tm = new TokenMap();

				// ******
				if( RecognizedCharType.AltTokenStartChar == rct ) {
					//
					// skip "(#" to find token
					//
					tm.Token = PeekToken( input, altTokenStart.CountChars );
					tm.MatchLength = altTokenStart.CountChars + tm.Token.Length;
					tm.IsAltTokenFormat = true;
				}
				else {
					tm.Token = PeekToken( input, 0 );
					tm.MatchLength = tm.Token.Length;
					tm.IsAltTokenFormat = false;
				}

				// ******
				return RecognizedCharType.TokenStart;
			}

			// ******
			tm = null;
			return rct;
		}

		/////////////////////////////////////////////////////////////////////////////

		private RecognizedCharType TestCharType( IInput input )
		{
			// ******
			char ch = input.Peek();
			
			// ******
			if( input.RemainderCount > 2 ) {
				if( altTokenStart.FirstChar == ch && altTokenStart.Matches(input, 0) ) {
					
					char char3 = input.Peek( altTokenStart.CountChars );
					if( IsStartChar(char3) ) {
						return RecognizedCharType.AltTokenStartChar;
					}
				}
			}

			// ******
			return NonAltTokenTestCharType( ch );
		}

		///////////////////////////////////////////////////////////////////////////////
		//
		//private string PeekPwrShellToken( IInput input, int startIndex, char startChar )
		//{
		//	// ******
		//	StringBuilder sb = new StringBuilder();
		//	sb.Append( startChar );
		//
		//	// ******
		//	//
		//	// skip '$'
		//	//
		//	++startIndex;
		//
		//	for( int i = startIndex; ; i++ ) {
		//		char ch = input.Peek( i );
		//
		//		if( char.IsLetterOrDigit(ch) || '_' == ch ) {
		//			sb.Append( ch );
		//		}
		//		else {
		//			break;
		//		}
		//	}
		//
		//	// ******
		//	return sb.ToString();
		//}
		//
		
		/////////////////////////////////////////////////////////////////////////////
		
		private string PeekToken( IInput input, int startIndex )
		{
			// ******
			char ch = input.Peek( startIndex );

			//
			// if we're allowing $ as a start char then we can't differentiate
			// for powershell - user will just have to use legal powershell names
			// - perhaps can show some error in macro lookup
			//
			////
			//// powershell names are different
			////
			//if( IsPowershellStartChar(ch) ) {
			//	return PeekPwrShellToken( input, startIndex, ch );
			//}

			// ******
			StringBuilder sb = new StringBuilder();
		
			// ******
			//for( int i = startIndex; ; i++ ) {
			//	ch = input.Peek( i );
			//
			//	//
			//	// first char has already been validated so we're just checking for
			//	// any character that is valid within a macro name since that includes
			//	// all characters that can start a macro name
			//	//
			//	if( char.IsLetterOrDigit(ch) || '_' == ch || SC.HASH == ch ) {
			//		sb.Append( ch );
			//	}
			//	else if( PUNCT_TERM_CHAR == ch ) {
			//		//
			//		// last char can be '&' - added so we
			//		// can do things like this (##& and #macro& followed
			//		// immedatly by text
			//		//
			//		sb.Append( ch );
			//		break;
			//	}
			//	else {
			//		break;
			//	}
			//}
		
			//
			// first char already validated
			//
			sb.Append( input.Peek(startIndex) );

			for( int i = 1 + startIndex; ; i++ ) {
				ch = input.Peek( i );
		
				//
				// check for valid char OTHER than the start char
				//
				if( char.IsLetterOrDigit(ch) || '_' == ch || SC.HASH == ch ) {
					sb.Append( ch );
				}
				else if( PUNCT_TERM_CHAR == ch ) {
					//
					// last char can be '&' - added so we
					// can do things like this (##& and #macro& followed
					// immedatly by text
					//
					sb.Append( ch );
					break;
//.........这里部分代码省略.........