/*******************************************************************************
* Copyright (c) 2009 Anyware Technologies and others.
* All rights reserved. This program and the accompanying materials
* are made available under the terms of the Eclipse Public License v1.0
* which accompanies this distribution, and is available at
* http://www.eclipse.org/legal/epl-v10.html
*
* Contributors:
* Gaetan Morice (Anyware Technologies) - initial implementation
*******************************************************************************/
package ccw.builder;
import java.util.ArrayList;
import java.util.Collection;
import java.util.HashMap;
import java.util.List;
import java.util.Map;
import java.util.regex.Matcher;
import java.util.regex.Pattern;
import org.eclipse.core.resources.IFile;
import org.eclipse.core.resources.IFolder;
import org.eclipse.core.resources.IMarker;
import org.eclipse.core.resources.IResource;
import org.eclipse.core.resources.IResourceVisitor;
import org.eclipse.core.runtime.CoreException;
import org.eclipse.ui.WorkbenchException;
import org.eclipse.ui.texteditor.MarkerUtilities;
import ccw.CCWPlugin;
import ccw.ClojureCore;
import ccw.editors.clojure.CompileLibAction;
import ccw.repl.IConnectionClient;
import ccw.repl.SafeConnection;
import clojure.tools.nrepl.Connection;
import clojure.tools.nrepl.Connection.Response;
public class ClojureVisitor implements IResourceVisitor {
private Map.Entry<IFolder, IFolder> currentSrcFolder;
private Map<IFolder, IFolder> srcFolders;
private final List<String> clojureLibs = new ArrayList<String>();
private final SafeConnection replConnection;
public ClojureVisitor() {
replConnection = null;
}
public ClojureVisitor (SafeConnection repl) {
this.replConnection = repl;
}
public void visit (Map<IFolder, IFolder> srcFolders) throws CoreException {
this.srcFolders = new HashMap<IFolder, IFolder>(srcFolders);
for(Map.Entry<IFolder, IFolder> srcFolderEntry : srcFolders.entrySet()){
setSrcFolder(srcFolderEntry);
srcFolderEntry.getKey().accept(this);
}
if (replConnection != null) {
try {
replConnection.withConnection(new IConnectionClient() {
@Override public <T> T withConnection(Connection c) {
for (String maybeLibName: clojureLibs) {
// System.out.println("compiling:'" + maybeLibName + "'");
String compileLibCommand = CompileLibAction.compileLibCommand(maybeLibName);
// System.out.println("Sending command: '" + compileLibCommand + "'");
Response res = c.send("op", "eval", "code", compileLibCommand);
// System.out.println("compilation response: '" + res + "'");
if (res.values().isEmpty()) {
// System.out.println(("oops, weird error when compiling '" + maybeLibName + "'"));
} else {
Object result = res.values().get(0);
// System.out.println("ClojureVisitor: " + result);
if (result instanceof Map) {
Map resultMap = (Map) result;
Collection<Map> response = (Collection<Map>)resultMap.get("response");
if (response != null) {
Map<?,?> errorMap = (Map<?,?>) response.iterator().next();
if (errorMap != null) {
String message = (String) errorMap.get("message");
if (message != null) {
// System.out.println("error message:" + message);
Matcher matcher = ERROR_MESSAGE_PATTERN.matcher(message);
if (matcher.matches()) {
// System.out.println("match found for message:'" + message + "'");
String messageBody = matcher.group(MESSAGE_GROUP);
String filename = matcher.group(FILENAME_GROUP);
String lineStr = matcher.group(LINE_GROUP);
// System.out.println("message:" + messageBody);
// System.out.println("file:" + filename);
// System.out.println("line:" + lineStr);
if (!NO_SOURCE_FILE.equals(filename)) {
createMarker(filename, Integer.parseInt(lineStr), messageBody);
}
} else {
// System.out.println("no match found for message:'" + message + "'");
}
}
}
}
}
}
}
return null;
}}, 20000);
} catch (Exception e) {
throw new WorkbenchException(
String.format("Could not visit: %s.\nDid you kill the project's JVM during the build?", clojureLibs), e);
}
}
}
//"java.lang.Exception: Unable to resolve symbol: pairs in this context (sudoku_solver.clj:130)"
private static final Pattern ERROR_MESSAGE_PATTERN = Pattern.compile("^(java.lang.Exception: )?(.*)\\((.+):(\\d+)\\)$");
private static final int MESSAGE_GROUP = 2;
private static final int FILENAME_GROUP = 3;
private static final int LINE_GROUP = 4;
private static final String NO_SOURCE_FILE = "NO_SOURCE_FILE";
public boolean visit(IResource resource) throws CoreException {
if (resource instanceof IFile) {
String maybeLibName = ClojureCore.findMaybeLibNamespace(
(IFile) resource, currentSrcFolder.getKey().getFullPath());
if (maybeLibName != null) {
clojureLibs.add(maybeLibName);
// System.out.println("maybe lib: " + resource.getLocation() + " recognized as a lib");
} else {
// System.out.println("maybe lib: " + resource.getLocation() + " NOT recognized as a lib");
}
}
return true;
}
private void createMarker(final String filename, final int line, final String message) {
try {
// System.out.println("(trying to) create a marker for " + filename);
for (IFolder srcFolder: srcFolders.keySet()) {
srcFolder.accept(new IResourceVisitor() {
public boolean visit(IResource resource) throws CoreException {
if (resource.getType() == IResource.FILE) {
// System.out.println(" file found: " + resource.getName());
if (resource.getName().equals(filename)) {
Map attrs = new HashMap();
MarkerUtilities.setLineNumber(attrs, line);
MarkerUtilities.setMessage(attrs, message);
attrs.put(IMarker.SEVERITY, IMarker.SEVERITY_ERROR);
MarkerUtilities.createMarker(resource, attrs, ClojureBuilder.CLOJURE_COMPILER_PROBLEM_MARKER_TYPE);
// System.out.println("created marker !");
}
}
return true;
}
});
}
} catch (CoreException e) {
CCWPlugin.logError("error while creating marker for file : " + filename + " at line " + line
+ " with message :'" + message + "'", e);
}
}
public String[] getClojureLibs() {
return clojureLibs.toArray(new String[clojureLibs.size()]);
}
/**
* @param srcFolder
*/
public void setSrcFolder(Map.Entry<IFolder, IFolder> srcFolder) {
this.currentSrcFolder = srcFolder;
}
}