LispXref.lex revision 8a5f2a4f972e418d7fedcc8e0fdaca0d4844e1b0
/*
* 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 2006 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
/*
* Cross reference a Lisp file
*/
package org.opensolaris.opengrok.analysis.lisp;
import java.util.*;
import java.io.*;
import org.opensolaris.opengrok.web.Util;
import org.opensolaris.opengrok.configuration.RuntimeEnvironment;
%%
%public
%class LispXref
%unicode
%ignorecase
%int
%line
%{
Writer out;
String urlPrefix = RuntimeEnvironment.getInstance().getUrlPrefix();
private HashMap<String, HashMap<Integer, String>> defs = null;
private int nestedComment;
public void setDefs(HashMap<String, HashMap<Integer, String>> defs) {
this.defs = defs;
}
public void reInit(char[] buf, int len) {
yyreset((Reader) null);
zzBuffer = buf;
zzEndRead = len;
zzAtEOF = true;
zzStartRead = 0;
nestedComment = 0;
}
public void write(Writer out) throws IOException {
this.out = out;
Util.readableLine(1, out);
yyline = 2;
while(yylex() != YYEOF) {
}
}
public int getLine() {
return yyline-2;
}
public static void main(String argv[]) {
if (argv.length <= 1) {
System.out.println("Usage : java LispXref <inputfile> <outfile> <ctags binary> ");
}
else {
Date start = new Date();
LispXref scanner = null;
try {
//Ctags ctags = new Ctags(argv[2]);
scanner = new LispXref( new BufferedReader(new FileReader(argv[0])));
//scanner.setDefs(ctags.doCtags(argv[0] + "\n"));
BufferedWriter out = new BufferedWriter(new FileWriter(argv[1]));
out.write("<html><head><style>a{text-decoration:none;color:#444499;} .I{color:#000099;} .K{color:#000000; font-weight:bold;} .N{color:brown;} .c{color:grey;} .s{color:green;} .hl{color: black; font-weight:bold; text-decoration:none; background-color:#eee; margin-right:.2em;padding-left:.2em;padding-right:.5em;} .l{color: #666699; text-decoration:none; font-weight:normal;background-color:#eee; margin-right:.2em;padding-left:.2em;padding-right:.5em;} .d{color:#909; font-weight:bold; font-style:italic;} .f{color:#909;} .mf{color:#909;}</style></head><body><pre>");
scanner.write(out);
out.write("</pre></body></html>");
out.close();
}
catch (Exception e) {
e.printStackTrace();
}
long span = ((new Date()).getTime() - start.getTime());
System.err.println("took: "+ span + " msec");
}
}
%}
WhiteSpace = [ \t\f\r]+
Identifier = [\-\+\*\!\@\$\%\&\/\?\.\,\:\{\}\=a-zA-Z0-9_\<\>]+
URIChar = [\?\+\%\&\:\/\.\@\_\;\=\$\,\-\!\~\*\\]
FNameChar = [a-zA-Z0-9_\-\.]
File = [a-zA-Z] {FNameChar}+ "." ([a-zA-Z]+)
Path = "/"? [a-zA-Z]{FNameChar}* ("/" [a-zA-Z]{FNameChar}*[a-zA-Z0-9])+
Number = ([0-9][0-9]*|[0-9]+.[0-9]+|"#" [boxBOX] [0-9a-fA-F]+)
%state STRING COMMENT SCOMMENT
%%
<YYINITIAL>{
{Identifier} { String id = yytext();
if (Consts.kwd.contains(id.toLowerCase())) {
out.write("<b>");out.write(id);out.write("</b>");
} else {
HashMap<Integer, String> tags;
if(defs != null && (tags = defs.get(id)) != null) {
int sz = 0;
boolean written = false;
if (tags.containsKey(new Integer(yyline-1))) {
out.write("<a class=\"d\" name=\"");
out.write(id);
out.write("\">");
out.write(id);
out.write("</a>");
written = true;
break;
} else if (tags.size() == 1) {
out.write("<a class=\"f\" href=\"#");
out.write(id);
out.write("\">");
out.write(id);
out.write("</a>");
} else {
out.write("<span class=\"mf\">");
out.write(id);
out.write("</span>");
}
} else {
out.write("<a href=\"");
out.write(urlPrefix);
out.write("defs=");
out.write(id);
out.write("\">");
out.write(id);
out.write("</a>");
}
}
}
{Number} { out.write("<span class=\"n\">");
out.write(zzBuffer, zzStartRead, zzMarkedPos-zzStartRead);
out.write("</span>"); }
\" { yybegin(STRING);out.write("<span class=\"s\">\"");}
";" { yybegin(SCOMMENT);out.write("<span class=\"c\">;");}
}
<STRING> {
\" {WhiteSpace} \" { out.write(zzBuffer, zzStartRead, zzMarkedPos-zzStartRead);}
\" { yybegin(YYINITIAL); out.write("\"</span>"); }
\\\\ { out.write("\\\\"); }
\\\" { out.write("\\\""); }
}
<YYINITIAL, COMMENT> {
"#|" { yybegin(COMMENT);
if (nestedComment++ == 0) { out.write("<span class=\"c\">"); }
out.write("#|");
}
}
<COMMENT> {
"|#" { out.write("|#");
if (--nestedComment == 0) {
yybegin(YYINITIAL);
out.write("</span>");
}
}
}
<SCOMMENT> {
{WhiteSpace}*\n { yybegin(YYINITIAL); out.write("</span>");Util.readableLine(yyline, out);}
}
<YYINITIAL, STRING, COMMENT, SCOMMENT> {
"&" {out.write( "&amp;");}
"<" {out.write( "&lt;");}
">" {out.write( "&gt;");}
{WhiteSpace}*\n { Util.readableLine(yyline, out); }
{WhiteSpace} { out.write(zzBuffer, zzStartRead, zzMarkedPos-zzStartRead); }
[!-~] { out.write(yycharat(0)); }
. { }
}
<STRING, COMMENT, SCOMMENT> {
{Path}
{ out.write(Util.breadcrumbPath(urlPrefix+"path=",yytext(),'/'));}
{File}
{
out.write("<a href=\""+urlPrefix+"path=");
out.write(zzBuffer, zzStartRead, zzMarkedPos-zzStartRead);out.write("\">");
out.write(zzBuffer, zzStartRead, zzMarkedPos-zzStartRead);out.write("</a>");}
("http" | "https" | "ftp" ) "://" ({FNameChar}|{URIChar})+[a-zA-Z0-9/]
{
out.write("<a href=\"");
out.write(zzBuffer, zzStartRead, zzMarkedPos-zzStartRead);out.write("\">");
out.write(zzBuffer, zzStartRead, zzMarkedPos-zzStartRead);out.write("</a>");}
{FNameChar}+ "@" {FNameChar}+ "." {FNameChar}+
{
for(int mi = zzStartRead; mi < zzMarkedPos; mi++) {
if(zzBuffer[mi] != '@') {
out.write(zzBuffer[mi]);
} else {
out.write(" (at) ");
}
}
}
}