Remove unused COMMENT state from Fortran lexers

Author: idodeclare

src/org/opensolaris/opengrok/analysis/fortran/FortranSymbolTokenizer.lex

@@ -23,10 +23,8 @@
  */
 
 package org.opensolaris.opengrok.analysis.fortran;
-import java.io.IOException;
-import java.io.Reader;
-import org.opensolaris.opengrok.analysis.JFlexTokenizer;
 
+import org.opensolaris.opengrok.analysis.JFlexTokenizer;
 %%
 %public
 %class FortranSymbolTokenizer
@@ -41,7 +39,7 @@ super(in);
 %char
 
 // (OK to exclude LSTRING state used in FortranXref.)
-%state STRING COMMENT SCOMMENT QSTRING
+%state STRING SCOMMENT QSTRING
 
 %include Common.lexh
 %include Fortran.lexh
@@ -73,15 +71,11 @@ super(in);
  \'     { yybegin(YYINITIAL); }
 }
 
-<COMMENT> {
-"*/"    { yybegin(YYINITIAL);}
-}
-
 <SCOMMENT> {
 {WhiteSpace}    {}
 {EOL}    { yybegin(YYINITIAL);}
 }
 
-<YYINITIAL, STRING, COMMENT, SCOMMENT, QSTRING> {
+<YYINITIAL, STRING, SCOMMENT, QSTRING> {
 [^]    {}
 }

src/org/opensolaris/opengrok/analysis/fortran/FortranXref.lex

@@ -30,7 +30,6 @@ package org.opensolaris.opengrok.analysis.fortran;
 import org.opensolaris.opengrok.analysis.JFlexXrefSimple;
 import org.opensolaris.opengrok.web.HtmlConsts;
 import org.opensolaris.opengrok.web.Util;
-
 %%
 %public
 %class FortranXref
@@ -49,7 +48,7 @@ import org.opensolaris.opengrok.web.Util;
 
 File = [a-zA-Z]{FNameChar}* ".inc"
 
-%state  STRING COMMENT SCOMMENT QSTRING LCOMMENT
+%state  STRING SCOMMENT QSTRING LCOMMENT
 
 %include Common.lexh
 %include CommonURI.lexh
@@ -128,13 +127,6 @@ File = [a-zA-Z]{FNameChar}* ".inc"
  }
 }
 
-<COMMENT> {
-"*/"    {
-    out.write(yytext());
-    yypop();
- }
-}
-
 <SCOMMENT> {
 {WhspChar}*{EOL}      { yypop();
                   startNewLine();}
@@ -150,15 +142,15 @@ File = [a-zA-Z]{FNameChar}* ".inc"
 }
 
 
-<YYINITIAL, STRING, COMMENT, SCOMMENT, QSTRING> {
+<YYINITIAL, STRING, SCOMMENT, QSTRING> {
 [&<>\'\"]    { out.write(htmlize(yytext())); }
 {WhspChar}*{EOL}      { startNewLine(); }
  {WhiteSpace}   { out.write(yytext()); }
  [!-~]  { out.write(yycharat(0)); }
  [^\n]      { }
 }
 
-<STRING, COMMENT, SCOMMENT, STRING, QSTRING> {
+<SCOMMENT, STRING, QSTRING> {
 {FPath}
         { out.write(Util.breadcrumbPath(urlPrefix+"path=",yytext(),'/'));}