Changing the 2nd argument of substring due to errors in indexing fortran code by FortranXref.lex (#4689)

navinp0304 · vladak · web-flow · commit 5289f7a8c3ee · 2025-01-06T14:24:43.000+01:00
Co-authored-by: Vladimir Kotal &lt;vladimir.kotal@oracle.com&gt;
diff --git a/opengrok-indexer/src/main/jflex/analysis/fortran/FortranXref.lex b/opengrok-indexer/src/main/jflex/analysis/fortran/FortranXref.lex
@@ -93,7 +93,7 @@ File = [a-zA-Z]{FNameChar}* "." ("i"|"inc")
     onNonSymbolMatched(cmatch.substring(0, 1), yychar);
     String file = cmatch.substring(1, cmatch.length() - 1);
     onFilelikeMatched(file, yychar + 1);
-    onNonSymbolMatched(cmatch.substring(cmatch.length() - 1, 1), yychar + 1 + file.length());
+    onNonSymbolMatched(cmatch.substring(cmatch.length() - 1, cmatch.length()), yychar + 1 + file.length());
 }
 
 /*{Hier}

Original file line number	Diff line number	Diff line change
`@@ -93,7 +93,7 @@ File = [a-zA-Z]{FNameChar}* "." ("i"\|"inc")`
`93`	`93`	`onNonSymbolMatched(cmatch.substring(0, 1), yychar);`
`94`	`94`	`String file = cmatch.substring(1, cmatch.length() - 1);`
`95`	`95`	`onFilelikeMatched(file, yychar + 1);`
`96`		`- onNonSymbolMatched(cmatch.substring(cmatch.length() - 1, 1), yychar + 1 + file.length());`
	`96`	`+ onNonSymbolMatched(cmatch.substring(cmatch.length() - 1, cmatch.length()), yychar + 1 + file.length());`
`97`	`97`	`}`
`98`	`98`
`99`	`99`	`/*{Hier}`