/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License (the "License").
* You may not use this file except in compliance with the License.
*
* See LICENSE.txt included in this distribution for the specific
* language governing permissions and limitations under the License.
*
* When distributing Covered Code, include this CDDL HEADER in each
* file and include the License file at LICENSE.txt.
* If applicable, add the following below this CDDL HEADER, with the
* fields enclosed by brackets "[]" replaced with your own identifying
* information: Portions Copyright [yyyy] [name of copyright owner]
*
* CDDL HEADER END
*/
/*
* Copyright (c) 2009, 2016, Oracle and/or its affiliates. All rights reserved.
*/
/*
* Cross reference a Fortran file
*/
package org.opensolaris.opengrok.analysis.fortran;
import org.opensolaris.opengrok.analysis.JFlexXref;
import java.io.IOException;
import java.io.Writer;
import java.io.Reader;
import org.opensolaris.opengrok.web.Util;
%%
%public
%class FortranXref
%extends JFlexXref
%unicode
%ignorecase
%int
%{
// TODO move this into an include file when bug #16053 is fixed
@Override
protected int getLineNumber() { return yyline; }
@Override
protected void setLineNumber(int x) { yyline = x; }
%}
WhiteSpace = [ \t\f]+
EOL = \r|\n|\r\n
Identifier = [a-zA-Z_] [a-zA-Z0-9_]+
Label = [0-9]+
URIChar = [\?\+\%\&\:\/\.\@\_\;\=\$\,\-\!\~\*\\]
FNameChar = [a-zA-Z0-9_\-\.]
File = [a-zA-Z]{FNameChar}* ".inc"
Path = "/"? [a-zA-Z]{FNameChar}* ("/" [a-zA-Z]{FNameChar}*[a-zA-Z0-9])+
Number = ([0-9]+\.[0-9]+|[0-9][0-9]*|"0x" [0-9a-fA-F]+ )([udl]+)?
%state STRING COMMENT SCOMMENT QSTRING LCOMMENT
%%
<YYINITIAL>{
^{Label} { out.write("<span class=\"n\">"); out.write(yytext()); out.write("</span>"); }
^[^ \t\f\r\n]+ {
yypush(LCOMMENT, "</span>");
out.write("<span class=\"c\">");
Util.htmlize(yytext(), out);
}
{Identifier} {
String id = yytext();
writeSymbol(id, Consts.kwd, yyline);
}
"<" ({File}|{Path}) ">" {
out.write("&lt;");
String file = yytext();
file = file.substring(1, file.length() - 1);
out.write("<a href=\""+urlPrefix+"path=");
out.write(file);out.write("\">");
out.write(file);out.write("</a>");
out.write("&gt;");
}
/*{Hier}
{ out.write(Util.breadcrumbPath(urlPrefix+"defs=",yytext(),'.'));}
*/
{Number} { out.write("<span class=\"n\">"); out.write(yytext()); out.write("</span>"); }
\" { yypush(STRING, "</span>"); out.write("<span class=\"s\">\"");}
\' { yypush(QSTRING, "</span>"); out.write("<span class=\"s\">\'");}
\! { yypush(SCOMMENT, "</span>"); out.write("<span class=\"c\">!");}
}
<STRING> {
\" {WhiteSpace} \" { out.write(yytext());}
\" { out.write('"'); yypop(); }
\\\\ { out.write("\\\\"); }
\\\" { out.write("\\\""); }
}
<QSTRING> {
"\\\\" { out.write("\\\\"); }
"\\'" { out.write("\\\'"); }
\' {WhiteSpace} \' { out.write(yytext()); }
\' { out.write('\''); yypop(); }
}
<COMMENT> {
"*/" { out.write("*/"); yypop(); }
}
<SCOMMENT> {
{WhiteSpace}*{EOL} { yypop();
startNewLine();}
}
<LCOMMENT> {
"&" {out.write( "&amp;");}
"<" {out.write( "&lt;");}
">" {out.write( "&gt;");}
{WhiteSpace}*{EOL} { yypop();
startNewLine();}
{WhiteSpace} { out.write(yytext()); }
[!-~] { out.write(yycharat(0)); }
[^\n] { writeUnicodeChar(yycharat(0)); }
}
<YYINITIAL, STRING, COMMENT, SCOMMENT, QSTRING> {
"&" {out.write( "&amp;");}
"<" {out.write( "&lt;");}
">" {out.write( "&gt;");}
{WhiteSpace}*{EOL} { startNewLine(); }
{WhiteSpace} { out.write(yytext()); }
[!-~] { out.write(yycharat(0)); }
[^\n] { }
}
<STRING, COMMENT, SCOMMENT, STRING, QSTRING> {
{Path}
{ out.write(Util.breadcrumbPath(urlPrefix+"path=",yytext(),'/'));}
{File}
{
String path = yytext();
out.write("<a href=\""+urlPrefix+"path=");
out.write(path);out.write("\">");
out.write(path);out.write("</a>");}
("http" | "https" | "ftp" ) "://" ({FNameChar}|{URIChar})+[a-zA-Z0-9/]
{
appendLink(yytext());
}
{FNameChar}+ "@" {FNameChar}+ "." {FNameChar}+
{
writeEMailAddress(yytext());
}
}