- * If the supplied selection's length is 0, the offset is treated as
- * the caret position and the enclosing partition is used to find
- * the element's name
- *
- * @return selected element's name or null if none is selected
- */
- protected abstract String getSearchString(ITextSelection selection);
-
- /**
- * @return name of the target module in which to search for the
- * declaration of the requested element if it can be deduced
- * from searchString; null if the search should
- * proceed through modules from the \@INC path and 'require's
- */
- protected abstract String getTargetModule(String searchString);
-
- protected void messageBox(String title, String message)
- {
- Shell shell;
- shell = PerlEditorPlugin.getWorkbenchWindow().getShell();
- MessageDialog.openInformation(shell, title, message);
- }
-
- /**
- * @param searchString
- * name of the element whose declaration we are looking for
- * @throws CoreException
- */
- private Result runWithSearchString(String searchString)
- {
- try { return _runWithSearchString(searchString); }
- catch (CoreException e)
- {
- getLog().log(e.getStatus());
- return new Result(Result.EXCEPTION, null, null, null);
- }
- }
-
- private Result _runWithSearchString(String searchString) throws CoreException
+package org.epic.perleditor.actions;
+
+import java.io.*;
+import java.util.*;
+import java.util.regex.Matcher;
+import java.util.regex.Pattern;
+
+import org.eclipse.core.resources.IFile;
+import org.eclipse.core.resources.IResource;
+import org.eclipse.core.runtime.*;
+import org.eclipse.jface.dialogs.MessageDialog;
+import org.eclipse.jface.text.*;
+import org.eclipse.swt.widgets.Shell;
+import org.eclipse.ui.*;
+import org.eclipse.ui.part.FileEditorInput;
+import org.epic.core.PerlCore;
+import org.epic.core.PerlProject;
+import org.epic.core.model.*;
+import org.epic.core.model.Package;
+import org.epic.core.util.FileUtilities;
+import org.epic.perleditor.PerlEditorPlugin;
+import org.epic.perleditor.editors.*;
+import org.epic.perleditor.editors.perl.SourceParser;
+
+/**
+ * Base class for implementations which attempt to find and open
+ * declaration of a selected syntactic element or, if no selection
+ * exists, of the element over whose invocation the caret is located.
+ * This class implements the following search heuristics:
+ *
+ *
+ * If the supplied selection's length is 0, the offset is treated as
+ * the caret position and the enclosing partition is used to find
+ * the element's name
+ *
+ * @return selected element's name or null if none is selected
+ */
+ protected abstract String getSearchString(ITextSelection selection);
+
+ /**
+ * @return name of the target module in which to search for the
+ * declaration of the requested element if it can be deduced
+ * from searchString; null if the search should
+ * proceed through modules from the \@INC path and 'require's
+ */
+ protected abstract String getTargetModule(String searchString);
+
+ protected void messageBox(String title, String message)
+ {
+ Shell shell;
+ shell = PerlEditorPlugin.getWorkbenchWindow().getShell();
+ MessageDialog.openInformation(shell, title, message);
+ }
+
+ /**
+ * @param searchString
+ * name of the element whose declaration we are looking for
+ * @throws CoreException
+ */
+ private Result runWithSearchString(String searchString)
+ {
+ try { return _runWithSearchString(searchString); }
+ catch (CoreException e)
+ {
+ getLog().log(e.getStatus());
+ return new Result(Result.EXCEPTION, null, null, null);
+ }
+ }
+
+ private Result _runWithSearchString(String searchString) throws CoreException
{
if (searchString == null) return Result.invalidSearch();
@@ -161,16 +161,16 @@ private Result _runWithSearchString(String searchString) throws CoreException
}
if (targetModule != null)
- {
- String localSearchString = getLocalSearchString(searchString);
- File moduleFile = findModuleFile(targetModule);
-
- if (moduleFile != null)
- {
- Result res = searchModuleFile(moduleFile, localSearchString);
- if (res.isFound()) return res;
- }
- else return Result.moduleNotFound(targetModule);
+ {
+ String localSearchString = getLocalSearchString(searchString);
+ File moduleFile = findModuleFile(targetModule);
+
+ if (moduleFile != null)
+ {
+ Result res = searchModuleFile(moduleFile, localSearchString);
+ if (res.isFound()) return res;
+ }
+ else return Result.moduleNotFound(targetModule);
}
else
{
@@ -254,80 +254,80 @@ private Result searchInUsedModules(String searchString, String[] usedModules) th
private File findModuleFile(String moduleName) throws CoreException
{
if (moduleName.length() == 0) return null;
-
- String fileSep = File.separatorChar == '\\' ? "\\\\" : File.separator;
- String modulePath = moduleName.replaceAll("::", fileSep) + ".pm";
- List dirs = getProject().getEffectiveIncPath();
-
- for (Iterator i = dirs.iterator(); i.hasNext();)
- {
- File dir = (File) i.next();
- if (".".equals(dir.getName())) dir = getCurrentDir();
- File f = new File(dir, modulePath);
- if (f.exists() && f.isFile()) return f;
- }
- return null;
- }
-
- /**
- * @param fromDir directory for resolving relative paths in 'require's
- * @param source source document for fromFile
- * @return an array with files 'required' by the given source text;
- * due to the regexp-based nature of the search only those
- * 'require's which use string literals or barewords are considered
- * @throws CoreException
- */
- private File[] findRequiredFiles(File fromDir, IDocument source) throws CoreException
- {
- String text = source.get();
- List elems =
- SourceParser.getElements(text, REQUIRE_REG_EXPR, "", "", true);
- List requiredFiles = new ArrayList();
-
- for (Iterator i = elems.iterator(); i.hasNext();)
- {
- ISourceElement elem = (ISourceElement) i.next();
- String elemText = elem.getName();
-
- if (elemText.indexOf("\"") != -1 ||
- elemText.indexOf("'") != -1)
- {
- // require 'some/literal/path.pm';
-
- Matcher m = Pattern.compile("['\"]([^'\"]*?)['\"]").matcher(elemText);
- if (m.find())
- {
- File requiredFile = new File(fromDir, m.group(1));
- if (requiredFile.isFile()) requiredFiles.add(requiredFile);
- }
- }
- else
- {
- // require Some::Module;
-
- Matcher m = Pattern.compile("([A-Za-z0-9:]+)").matcher(elemText);
- if (m.find())
- {
- File moduleFile = findModuleFile(m.group(1));
- if (moduleFile != null) requiredFiles.add(moduleFile);
- }
- }
- }
- return (File[]) requiredFiles.toArray(new File[requiredFiles.size()]);
- }
-
- /**
- * @return names of modules referenced by 'use' statements from
- * the given source text
- */
- private String[] findUsedModules(SourceFile sourceFile) throws CoreException
- {
- List names = new ArrayList();
- for (Iterator j = sourceFile.getPackages().iterator(); j.hasNext();)
- {
- Package pkg = (Package) j.next();
- for (Iterator i = pkg.getUses().iterator(); i.hasNext();)
- names.add(((ISourceElement) i.next()).getName());
+
+ String fileSep = File.separatorChar == '\\' ? "\\\\" : File.separator;
+ String modulePath = moduleName.replaceAll("::", fileSep) + ".pm";
+ List dirs = getProject().getEffectiveIncPath();
+
+ for (Iterator i = dirs.iterator(); i.hasNext();)
+ {
+ File dir = (File) i.next();
+ if (".".equals(dir.getName())) dir = getCurrentDir();
+ File f = new File(dir, modulePath);
+ if (f.exists() && f.isFile()) return f;
+ }
+ return null;
+ }
+
+ /**
+ * @param fromDir directory for resolving relative paths in 'require's
+ * @param source source document for fromFile
+ * @return an array with files 'required' by the given source text;
+ * due to the regexp-based nature of the search only those
+ * 'require's which use string literals or barewords are considered
+ * @throws CoreException
+ */
+ private File[] findRequiredFiles(File fromDir, IDocument source) throws CoreException
+ {
+ String text = source.get();
+ List elems =
+ SourceParser.getElements(text, REQUIRE_REG_EXPR, "", "", true);
+ List requiredFiles = new ArrayList();
+
+ for (Iterator i = elems.iterator(); i.hasNext();)
+ {
+ ISourceElement elem = (ISourceElement) i.next();
+ String elemText = elem.getName();
+
+ if (elemText.indexOf("\"") != -1 ||
+ elemText.indexOf("'") != -1)
+ {
+ // require 'some/literal/path.pm';
+
+ Matcher m = Pattern.compile("['\"]([^'\"]*?)['\"]").matcher(elemText);
+ if (m.find())
+ {
+ File requiredFile = new File(fromDir, m.group(1));
+ if (requiredFile.isFile()) requiredFiles.add(requiredFile);
+ }
+ }
+ else
+ {
+ // require Some::Module;
+
+ Matcher m = Pattern.compile("([A-Za-z0-9:]+)").matcher(elemText);
+ if (m.find())
+ {
+ File moduleFile = findModuleFile(m.group(1));
+ if (moduleFile != null) requiredFiles.add(moduleFile);
+ }
+ }
+ }
+ return (File[]) requiredFiles.toArray(new File[requiredFiles.size()]);
+ }
+
+ /**
+ * @return names of modules referenced by 'use' statements from
+ * the given source text
+ */
+ private String[] findUsedModules(SourceFile sourceFile) throws CoreException
+ {
+ List names = new ArrayList();
+ for (Iterator j = sourceFile.getPackages().iterator(); j.hasNext();)
+ {
+ Package pkg = (Package) j.next();
+ for (Iterator i = pkg.getUses().iterator(); i.hasNext();)
+ names.add(((ISourceElement) i.next()).getName());
}
return (String[]) names.toArray(new String[names.size()]);
}
@@ -372,354 +372,354 @@ private String[] findParents(SourceFile sourceFile) throws CoreException
/**
* @return the script's parent directory, if the action is executing
- * on a .pl script (to simulate the @INC entry used when actually
- * executing or compiling the script); '.' otherwise
- */
- private File getCurrentDir()
- {
- IEditorInput input = getEditor().getEditorInput();
- if (!(input instanceof IFileEditorInput)) return new File(".");
-
- IPath scriptFilePath = ((IFileEditorInput) input).getFile().getLocation();
- if (scriptFilePath == null) return new File(".");
-
- String ext = scriptFilePath.getFileExtension();
- if (ext == null || !ext.toLowerCase().equals("pm")) // not a module = script
- {
- return scriptFilePath.toFile().getParentFile();
- }
- else return new File(".");
- }
-
- private PerlEditor getEditor()
- {
- return action.getEditor();
- }
-
- private ILog getLog()
- {
- return action.getLog();
- }
-
- /**
- * @return project with the edited source file from which
- * OpenDeclaration was invoked
- */
- private PerlProject getProject()
- {
- IEditorInput input = getEditor().getEditorInput();
- IResource resource = (IResource) ((IAdaptable) input)
- .getAdapter(IResource.class);
-
- return PerlCore.create(resource.getProject());
- }
-
- /**
- * @return edited source document of the editor from which
- * OpenDeclaration was invoked
- */
- protected IDocument getSourceDocument()
- {
- return getSourceDocument(getEditor());
- }
-
- /**
- * @return document for the given source file, partitioned by PerlPartitioner
- */
- private IDocument getSourceDocument(File file) throws IOException
- {
- StringWriter sw = new StringWriter();
- BufferedReader r = null;
-
- try
- {
- r = new BufferedReader(new InputStreamReader(
- new FileInputStream(file), "ISO-8859-1")); // TODO use which encoding?
-
- char[] buf = new char[4096];
- int bread;
- while ((bread = r.read(buf)) > 0) sw.write(buf, 0, bread);
- IDocument doc = new Document(sw.toString());
- new PerlPartitioner(getLog(), doc);
- return doc;
- }
- finally
- {
- if (r != null) try { r.close(); } catch (IOException e) { }
- }
- }
-
- /**
- * @return edited source document in the given editor
- */
- private IDocument getSourceDocument(PerlEditor editor)
- {
- return editor.getDocumentProvider().getDocument(editor.getEditorInput());
- }
-
- /**
- * Searches the given editor for a declaration of the given element.
- * If found, the declaration is highlighted.
- *
- * @return an object indicating if the declaration was found
- */
- private Result searchEditor(PerlEditor editor, String searchString)
- throws CoreException
- {
- SourceFile sourceFile = editor.getSourceFile();
- sourceFile.parse();
- IRegion match = findDeclaration(sourceFile, searchString);
-
- if (match != null)
- {
- editor.getSite().getPage().activate(editor);
- editor.selectAndReveal(match.getOffset(), match.getLength());
- return Result.found();
- }
- else return Result.notFound(searchString);
- }
-
- /**
- * Searches a module file for a declaration of the given element.
- * The file is read from disk and might be external to the workspace.
- *
- * @return an object indicating if the declaration was found
- */
- private Result searchExternalFile(File moduleFile, String searchString)
- throws CoreException
- {
- try
- {
- SourceFile sourceFile = new SourceFile(
- getLog(), getSourceDocument(moduleFile));
- sourceFile.parse();
-
- IRegion match = findDeclaration(sourceFile, searchString);
- return match != null ? Result.found() : Result.notFound(searchString);
- }
- catch (IOException e)
- {
- getLog().log(new Status(
- IStatus.ERROR,
- PerlEditorPlugin.getPluginId(),
- IStatus.OK,
- "Could not read module file " + moduleFile.getAbsolutePath(),
- e));
- return Result.exception();
- }
- }
-
- /**
- * @param fromDir directory for resolving relative paths in 'require's
- * @param source document in which to look for 'require' statements;
- * the search continues recursively in these required files
- * @param visitedFiles
- * a set of already visited files (used to prevent endless loops)
- * @return an object indicating whether the element's declaration was found
- * in some file
- * @throws IOException
- * @throws CoreException
- */
- private Result searchInRequires(
- String searchString,
- File fromDir,
- IDocument source,
- Set visitedFiles) throws CoreException
- {
- File[] requiredFiles = findRequiredFiles(fromDir, source);
-
- for (int i = 0; i < requiredFiles.length; i++)
- {
- if (!visitedFiles.contains(requiredFiles[i]))
- {
- visitedFiles.add(requiredFiles[i]);
- Result res = searchModuleFile(requiredFiles[i], searchString);
-
- if (res.isFound()) return res;
- else
- {
- try
- {
- res = searchInRequires(
- searchString,
- requiredFiles[i].getParentFile(),
- getSourceDocument(requiredFiles[i]),
- visitedFiles);
-
- if (res.isFound()) return res;
- }
- catch (IOException e)
- {
- getLog().log(new Status(
- IStatus.ERROR,
- PerlEditorPlugin.getPluginId(),
- IStatus.OK,
- "Could not read module file " + requiredFiles[i].getAbsolutePath(),
- e));
- return Result.exception();
- }
- }
- }
- }
- return Result.notFound(searchString);
- }
-
- /**
- * Searches the given module file for a declaration of the given element.
- * The search first occurs in already open editors containing that file.
- * If the declaration is found, an attempt is made to open it in an editor,
- * if not possible, displays a message about the file's location.
- *
- * @return true if the declaration was found; false otherwise
- */
- private Result searchModuleFile(File moduleFile, String searchString)
- throws CoreException
- {
- IPath path = Path.fromOSString(moduleFile.getAbsolutePath());
- IFile fileInWorkspace = getProject().getProject()
- .getWorkspace().getRoot().getFileForLocation(path);
-
- if (fileInWorkspace != null)
- return searchModuleFile(moduleFile, fileInWorkspace, searchString);
- else
- {
- Result res = searchExternalFile(moduleFile, searchString);
- if (res.isFound())
- {
- IFileEditorInput input = FileUtilities.getFileEditorInput(path);
- PerlEditor newEditor = (PerlEditor)
- getEditor().getSite().getPage().openEditor(
- input,
- getEditor().getSite().getId());
-
- return searchEditor(newEditor, searchString);
- }
- else return res;
- }
- }
-
- /**
- * Just like {@link #searchModuleFile(File, String)}, but takes into account
- * that the module file to be searched is contained in the workspace.
- */
- private Result searchModuleFile(
- File moduleFile,
- IFile fileInWorkspace,
- String searchString) throws CoreException
- {
- IWorkbenchPage page = getEditor().getSite().getPage();
- IEditorPart editor = page.findEditor(new FileEditorInput(fileInWorkspace));
-
- if (editor instanceof PerlEditor)
- {
- return searchEditor((PerlEditor) editor, searchString);
- }
- else
- {
- Result res = searchExternalFile(moduleFile, searchString);
- if (!res.isFound()) return res;
-
- try
- {
- FileEditorInput input = new FileEditorInput(fileInWorkspace);
- PerlEditor newEditor = (PerlEditor)
- getEditor().getSite().getPage().openEditor(
- input,
- getEditor().getSite().getId());
-
- return searchEditor(newEditor, searchString);
- }
- catch (PartInitException e)
- {
- getLog().log(new Status(
- IStatus.ERROR,
- PerlEditorPlugin.getPluginId(),
- IStatus.OK,
- "Problems encountered while opening editor for " +
- moduleFile.getAbsolutePath(),
- e));
- return Result.exception();
- }
- }
- }
-
- /**
- * Used to report the result of the open declaration action.
- */
- public static class Result
- {
- /**
- * Declaration of the requested element was found successfully.
- */
- public static final int FOUND = 0;
-
- /**
- * Declaration of the requested element could not be found
- * using the implemented search algorithm.
- */
- public static final int NOT_FOUND = 1;
-
- /**
- * The target module in which the search was to be performed
- * could not be located.
- */
- public static final int MODULE_NOT_FOUND = 2;
-
- /**
- * No search was performed because no string was selected.
- */
- public static final int INVALID_SEARCH = 3;
-
- /**
- * An exception occurred and was logged during the search.
- */
- public static final int EXCEPTION = 4;
-
- public final int statusCode;
- public final String searchString;
- public final String targetModule;
- public final File moduleFile;
-
- private Result(
- int statusCode,
- String searchString,
- String targetModule,
- File moduleFile)
- {
- this.statusCode = statusCode;
- this.searchString = searchString;
- this.targetModule = targetModule;
- this.moduleFile = moduleFile;
- }
-
- public boolean isFound()
- {
- return statusCode == FOUND;
- }
-
- public static Result exception()
- {
- return new Result(EXCEPTION, null, null, null);
- }
-
- public static Result found()
- {
- return new Result(FOUND, null, null, null);
- }
-
- public static Result invalidSearch()
- {
- return new Result(INVALID_SEARCH, null, null, null);
- }
-
- public static Result moduleNotFound(String targetModule)
- {
- return new Result(MODULE_NOT_FOUND, null, targetModule, null);
- }
-
- public static Result notFound(String searchString)
- {
- return new Result(NOT_FOUND, searchString, null, null);
- }
- }
+ * on a .pl script (to simulate the @INC entry used when actually
+ * executing or compiling the script); '.' otherwise
+ */
+ private File getCurrentDir()
+ {
+ IEditorInput input = getEditor().getEditorInput();
+ if (!(input instanceof IFileEditorInput)) return new File(".");
+
+ IPath scriptFilePath = ((IFileEditorInput) input).getFile().getLocation();
+ if (scriptFilePath == null) return new File(".");
+
+ String ext = scriptFilePath.getFileExtension();
+ if (ext == null || !ext.toLowerCase().equals("pm")) // not a module = script
+ {
+ return scriptFilePath.toFile().getParentFile();
+ }
+ else return new File(".");
+ }
+
+ private PerlEditor getEditor()
+ {
+ return action.getEditor();
+ }
+
+ private ILog getLog()
+ {
+ return action.getLog();
+ }
+
+ /**
+ * @return project with the edited source file from which
+ * OpenDeclaration was invoked
+ */
+ private PerlProject getProject()
+ {
+ IEditorInput input = getEditor().getEditorInput();
+ IResource resource = (IResource) ((IAdaptable) input)
+ .getAdapter(IResource.class);
+
+ return PerlCore.create(resource.getProject());
+ }
+
+ /**
+ * @return edited source document of the editor from which
+ * OpenDeclaration was invoked
+ */
+ protected IDocument getSourceDocument()
+ {
+ return getSourceDocument(getEditor());
+ }
+
+ /**
+ * @return document for the given source file, partitioned by PerlPartitioner
+ */
+ private IDocument getSourceDocument(File file) throws IOException
+ {
+ StringWriter sw = new StringWriter();
+ BufferedReader r = null;
+
+ try
+ {
+ r = new BufferedReader(new InputStreamReader(
+ new FileInputStream(file), "ISO-8859-1")); // TODO use which encoding?
+
+ char[] buf = new char[4096];
+ int bread;
+ while ((bread = r.read(buf)) > 0) sw.write(buf, 0, bread);
+ IDocument doc = new Document(sw.toString());
+ new PerlPartitioner(getLog(), doc);
+ return doc;
+ }
+ finally
+ {
+ if (r != null) try { r.close(); } catch (IOException e) { }
+ }
+ }
+
+ /**
+ * @return edited source document in the given editor
+ */
+ private IDocument getSourceDocument(PerlEditor editor)
+ {
+ return editor.getDocumentProvider().getDocument(editor.getEditorInput());
+ }
+
+ /**
+ * Searches the given editor for a declaration of the given element.
+ * If found, the declaration is highlighted.
+ *
+ * @return an object indicating if the declaration was found
+ */
+ private Result searchEditor(PerlEditor editor, String searchString)
+ throws CoreException
+ {
+ SourceFile sourceFile = editor.getSourceFile();
+ sourceFile.parse();
+ IRegion match = findDeclaration(sourceFile, searchString);
+
+ if (match != null)
+ {
+ editor.getSite().getPage().activate(editor);
+ editor.selectAndReveal(match.getOffset(), match.getLength());
+ return Result.found();
+ }
+ else return Result.notFound(searchString);
+ }
+
+ /**
+ * Searches a module file for a declaration of the given element.
+ * The file is read from disk and might be external to the workspace.
+ *
+ * @return an object indicating if the declaration was found
+ */
+ private Result searchExternalFile(File moduleFile, String searchString)
+ throws CoreException
+ {
+ try
+ {
+ SourceFile sourceFile = new SourceFile(
+ getLog(), getSourceDocument(moduleFile));
+ sourceFile.parse();
+
+ IRegion match = findDeclaration(sourceFile, searchString);
+ return match != null ? Result.found() : Result.notFound(searchString);
+ }
+ catch (IOException e)
+ {
+ getLog().log(new Status(
+ IStatus.ERROR,
+ PerlEditorPlugin.getPluginId(),
+ IStatus.OK,
+ "Could not read module file " + moduleFile.getAbsolutePath(),
+ e));
+ return Result.exception();
+ }
+ }
+
+ /**
+ * @param fromDir directory for resolving relative paths in 'require's
+ * @param source document in which to look for 'require' statements;
+ * the search continues recursively in these required files
+ * @param visitedFiles
+ * a set of already visited files (used to prevent endless loops)
+ * @return an object indicating whether the element's declaration was found
+ * in some file
+ * @throws IOException
+ * @throws CoreException
+ */
+ private Result searchInRequires(
+ String searchString,
+ File fromDir,
+ IDocument source,
+ Set visitedFiles) throws CoreException
+ {
+ File[] requiredFiles = findRequiredFiles(fromDir, source);
+
+ for (int i = 0; i < requiredFiles.length; i++)
+ {
+ if (!visitedFiles.contains(requiredFiles[i]))
+ {
+ visitedFiles.add(requiredFiles[i]);
+ Result res = searchModuleFile(requiredFiles[i], searchString);
+
+ if (res.isFound()) return res;
+ else
+ {
+ try
+ {
+ res = searchInRequires(
+ searchString,
+ requiredFiles[i].getParentFile(),
+ getSourceDocument(requiredFiles[i]),
+ visitedFiles);
+
+ if (res.isFound()) return res;
+ }
+ catch (IOException e)
+ {
+ getLog().log(new Status(
+ IStatus.ERROR,
+ PerlEditorPlugin.getPluginId(),
+ IStatus.OK,
+ "Could not read module file " + requiredFiles[i].getAbsolutePath(),
+ e));
+ return Result.exception();
+ }
+ }
+ }
+ }
+ return Result.notFound(searchString);
+ }
+
+ /**
+ * Searches the given module file for a declaration of the given element.
+ * The search first occurs in already open editors containing that file.
+ * If the declaration is found, an attempt is made to open it in an editor,
+ * if not possible, displays a message about the file's location.
+ *
+ * @return true if the declaration was found; false otherwise
+ */
+ private Result searchModuleFile(File moduleFile, String searchString)
+ throws CoreException
+ {
+ IPath path = Path.fromOSString(moduleFile.getAbsolutePath());
+ IFile fileInWorkspace = getProject().getProject()
+ .getWorkspace().getRoot().getFileForLocation(path);
+
+ if (fileInWorkspace != null)
+ return searchModuleFile(moduleFile, fileInWorkspace, searchString);
+ else
+ {
+ Result res = searchExternalFile(moduleFile, searchString);
+ if (res.isFound())
+ {
+ IFileEditorInput input = FileUtilities.getFileEditorInput(path);
+ PerlEditor newEditor = (PerlEditor)
+ getEditor().getSite().getPage().openEditor(
+ input,
+ getEditor().getSite().getId());
+
+ return searchEditor(newEditor, searchString);
+ }
+ else return res;
+ }
+ }
+
+ /**
+ * Just like {@link #searchModuleFile(File, String)}, but takes into account
+ * that the module file to be searched is contained in the workspace.
+ */
+ private Result searchModuleFile(
+ File moduleFile,
+ IFile fileInWorkspace,
+ String searchString) throws CoreException
+ {
+ IWorkbenchPage page = getEditor().getSite().getPage();
+ IEditorPart editor = page.findEditor(new FileEditorInput(fileInWorkspace));
+
+ if (editor instanceof PerlEditor)
+ {
+ return searchEditor((PerlEditor) editor, searchString);
+ }
+ else
+ {
+ Result res = searchExternalFile(moduleFile, searchString);
+ if (!res.isFound()) return res;
+
+ try
+ {
+ FileEditorInput input = new FileEditorInput(fileInWorkspace);
+ PerlEditor newEditor = (PerlEditor)
+ getEditor().getSite().getPage().openEditor(
+ input,
+ getEditor().getSite().getId());
+
+ return searchEditor(newEditor, searchString);
+ }
+ catch (PartInitException e)
+ {
+ getLog().log(new Status(
+ IStatus.ERROR,
+ PerlEditorPlugin.getPluginId(),
+ IStatus.OK,
+ "Problems encountered while opening editor for " +
+ moduleFile.getAbsolutePath(),
+ e));
+ return Result.exception();
+ }
+ }
+ }
+
+ /**
+ * Used to report the result of the open declaration action.
+ */
+ public static class Result
+ {
+ /**
+ * Declaration of the requested element was found successfully.
+ */
+ public static final int FOUND = 0;
+
+ /**
+ * Declaration of the requested element could not be found
+ * using the implemented search algorithm.
+ */
+ public static final int NOT_FOUND = 1;
+
+ /**
+ * The target module in which the search was to be performed
+ * could not be located.
+ */
+ public static final int MODULE_NOT_FOUND = 2;
+
+ /**
+ * No search was performed because no string was selected.
+ */
+ public static final int INVALID_SEARCH = 3;
+
+ /**
+ * An exception occurred and was logged during the search.
+ */
+ public static final int EXCEPTION = 4;
+
+ public final int statusCode;
+ public final String searchString;
+ public final String targetModule;
+ public final File moduleFile;
+
+ private Result(
+ int statusCode,
+ String searchString,
+ String targetModule,
+ File moduleFile)
+ {
+ this.statusCode = statusCode;
+ this.searchString = searchString;
+ this.targetModule = targetModule;
+ this.moduleFile = moduleFile;
+ }
+
+ public boolean isFound()
+ {
+ return statusCode == FOUND;
+ }
+
+ public static Result exception()
+ {
+ return new Result(EXCEPTION, null, null, null);
+ }
+
+ public static Result found()
+ {
+ return new Result(FOUND, null, null, null);
+ }
+
+ public static Result invalidSearch()
+ {
+ return new Result(INVALID_SEARCH, null, null, null);
+ }
+
+ public static Result moduleNotFound(String targetModule)
+ {
+ return new Result(MODULE_NOT_FOUND, null, targetModule, null);
+ }
+
+ public static Result notFound(String searchString)
+ {
+ return new Result(NOT_FOUND, searchString, null, null);
+ }
+ }
}
\ No newline at end of file
diff --git a/org.epic.perleditor/src/org/epic/perleditor/actions/ToggleMarkOccurrencesAction.java b/org.epic.perleditor/src/org/epic/perleditor/actions/ToggleMarkOccurrencesAction.java
old mode 100755
new mode 100644
diff --git a/org.epic.regexp/.gitignore b/org.epic.regexp/.gitignore
new file mode 100644
index 00000000..5e56e040
--- /dev/null
+++ b/org.epic.regexp/.gitignore
@@ -0,0 +1 @@
+/bin