public static void MatchVBScriptFunction_T2(ILog log) { const string input = "ignorethis obj.Func(1)"; const string funcStr = "obj.Func"; var statementList = new StatementList(log); var mainComp = TokenComparison.CreateVBScriptFunctionOrVar(null, null, null, null, log); statementList.Add(new StorePosAsVariable(log, "BeginPos")); statementList.Add(mainComp); Action <RunState> InitRunState = (runState) => { { var funcIndex = input.IndexOf(funcStr); IAssertion sub = new PositionAssertion(true, funcIndex, funcIndex + funcStr.Length); sub.Name = "sub"; runState.AddAssertion("sub", sub); } { var funcIndex = input.IndexOf(funcStr); IAssertion isEndOrArgList = new PositionAssertion( true, funcIndex + funcStr.Length, funcIndex + funcStr.Length + 3 ); isEndOrArgList.Name = "IsEndOrArgumentList"; runState.AddAssertion("IsEndOrArgumentList", isEndOrArgList); } }; Func <RunState, string, int, string> ReplaceFunc = (runState, _input, pos) => { var beginPos = (int)runState.GetVariable("BeginPos"); var str = input.Substring(beginPos, pos - beginPos); return(str); }; var parser = new Parser(log); int numMatches; parser.Extract(input, null, statementList, null, null, out numMatches, ReplaceFunc, InitRunState); System.Diagnostics.Debug.Assert(numMatches == 1); }
// From "response.write blah" // To "response.write(blah)" public static string AddParenthesisToFunctionCalls( ILog log, string input, out int numMatches, Action <Action <string, IAssertion> > fCreateAssertList = null) { // The parser object that will do the work Parser parser = new Parser(log); //// Parser options // This create a special line wrap Options parserOptions = TokenComparison.CreateVBScriptParserOptions(log); CharDelegateComparison isWhitespace = new CharDelegateComparison(log, Char.IsWhiteSpace); IOperation skipWhitespace = TokenComparison.SkipWhitespace(log); // State List <State> stateList = VBScriptState(log, parserOptions); // The main statement list StatementList mainStatements = new StatementList(log); // Capturing Dictionary <string, Capture> capturing = new Dictionary <string, Capture>(); // Function name capture Capture funcNameCapture = new Capture(log); funcNameCapture.Name = "FunctionName"; capturing.Add("funcName", funcNameCapture); mainStatements.Add(funcNameCapture); // Function name capture statements var vbScriptKeywords = TokenComparison.VBScriptKeywords(log, parserOptions); StatementList funcNameCaptureStatements = new StatementList(log); funcNameCapture.Comparison = funcNameCaptureStatements; funcNameCaptureStatements.Exclusion = vbScriptKeywords; //// Starts with whitespace or is the start of the input string StartOfInputStringComparison isStartOfString = new StartOfInputStringComparison(log); OrComparison startsWithWhitespaceOrIsStartOfInputString = new OrComparison(log); startsWithWhitespaceOrIsStartOfInputString.Add(isStartOfString); startsWithWhitespaceOrIsStartOfInputString.Add(isWhitespace); funcNameCaptureStatements.Add(startsWithWhitespaceOrIsStartOfInputString); // Skip whitespace funcNameCaptureStatements.Add(skipWhitespace); //// Function/sub name. //// For example: class1.Func or class1.Func"string arg" funcNameCaptureStatements.Add(TokenComparison.CreateVBScriptSub(parserOptions, name: null, log: log)); //// Arguments list // Skip whitespace and don't capture it mainStatements.Add(skipWhitespace); // Capture Capture argListCapture = new Capture(log); capturing.Add("funcArgs", argListCapture); mainStatements.Add(argListCapture); // Function argument list capture statements StatementList argListCaptureStatements = new StatementList(log); argListCapture.Comparison = argListCaptureStatements; // Skip the line wrap (and capture it) argListCaptureStatements.Add(parserOptions.SkipLineWrapOperation); // Concatenated single arguments // Delimited by whitespace, comma & or + var vbScriptConcatCommaOrWhitespaceOrEnd = TokenComparison.CreateVBScriptConcatCommaOrWhitespaceOrEnd(log, parserOptions); // Numbers var numberComparison = TokenComparison.CreateNumber(parserOptions, vbScriptConcatCommaOrWhitespaceOrEnd, "ArgsNumber", log: log); // VB script quoted strings var quotedText = TokenComparison.CreateVBScriptQuotedString(parserOptions, name: "Args quoted text", log: log); // VB script function which could include arguments, or a variable name var VbScriptFunctionOrVar = TokenComparison.CreateVBScriptFunctionOrVar( parserOptions, vbScriptConcatCommaOrWhitespaceOrEnd, vbScriptKeywords, "VbScriptFunctionOrVar", log: log); // Individual arguments // Types OrComparison individualArgumentTypes = new OrComparison(log); individualArgumentTypes.Add(numberComparison); individualArgumentTypes.Add(quotedText); individualArgumentTypes.Add(VbScriptFunctionOrVar); // List delimiter for the individual arguments OrComparison vbScriptConcactOrComma = new OrComparison(log); { var matchAmpersand = new CharComparison(log, parserOptions, '&'); matchAmpersand.Name = "ArgsStringConcatenation"; vbScriptConcactOrComma.Add(matchAmpersand); } vbScriptConcactOrComma.Add(new CharComparison(log, parserOptions, '+')); var isComma = new CharComparison(log, parserOptions, ','); vbScriptConcactOrComma.Add(isComma); DelimitedListComparison individualArgumentList = new DelimitedListComparison( log, parserOptions, individualArgumentTypes, seperator: vbScriptConcactOrComma ); individualArgumentList.MinAmount = 1; individualArgumentList.ItemTrim = skipWhitespace; // The argument list - comma seperated list of function arguments DelimitedListComparison argumentList = new DelimitedListComparison( log, parserOptions, individualArgumentList, seperator: isComma ); argumentList.Name = "ArgumentList"; argumentList.MinAmount = 1; argumentList.ItemTrim = skipWhitespace; argListCaptureStatements.Add(argumentList); Action <RunState> InitRunState = null; if (fCreateAssertList != null) { InitRunState = (runState) => { fCreateAssertList(runState.AddAssertion); }; } const string replaceWith = "'funcName'('funcArgs')"; string replaced = parser.Replace( input, replaceWith, mainStatements, capturing, stateList, out numMatches, null, InitRunState ); return(replaced); }