private void checkFunction(final RefactoringStatus result) { if ((fFunction.getElementType() & IRElement.MASK_C2) != IRElement.R_COMMON_FUNCTION && (fFunction.getElementType() & IRElement.MASK_C2) != IRElement.R_COMMON_FUNCTION) { result.merge( RefactoringStatus.createFatalErrorStatus( Messages.FunctionToS4Method_error_SelectionAlreadyS4_message)); return; } final RAstNode node = (RAstNode) fFunction.getAdapter(IAstNode.class); if (RAst.hasErrors(node)) { result.merge( RefactoringStatus.createWarningStatus( Messages.FunctionToS4Method_warning_SelectionSyntaxError_message)); } // if (fSelectionRegion != null // && (fSelectionRegion.getOffset() != fOperationRegion.getOffset() || // fSelectionRegion.getLength() != fOperationRegion.getLength())) { // result.merge(RefactoringStatus.createWarningStatus("The selected code does not equal // exactly the found expression(s).")); // } RElementName elementName = fFunction.getElementName(); while (elementName.getNextSegment() != null) { elementName = elementName.getNamespace(); } fFunctionName = elementName.getDisplayName(); final ArgsDefinition argsDef = fFunction.getArgsDefinition(); final int count = (argsDef != null) ? argsDef.size() : 0; fVariablesList = new ArrayList(count); boolean dots = false; for (int i = 0; i < count; i++) { final Arg arg = argsDef.get(i); final Variable variable = new Variable(arg); if (variable.getName().equals(RTerminal.S_ELLIPSIS)) { dots = true; variable.init(true); } else { variable.init(!dots); } fVariablesList.add(variable); } }
public LoadReferenceRunnable( final RElementName name, final RProcess tool, final int stamp, final String cause) { super( "r/workspace/loadElements", //$NON-NLS-1$ NLS.bind("Load elements of {0} (requested for {1})", name.getDisplayName(), cause)); this.reference = null; this.name = name; this.process = tool; this.stamp = stamp; }
@Override public ICombinedRElement evalCombinedStruct( final RElementName name, final int options, final int depth, final IProgressMonitor monitor) throws CoreException { final String command = RElementName.createDisplayName( name, RElementName.DISPLAY_NS_PREFIX | RElementName.DISPLAY_EXACT); if (command == null) { throw new CoreException( new Status( IStatus.ERROR, RConsoleCorePlugin.PLUGIN_ID, 0, "Illegal R element name.", null)); } return evalCombinedStruct(command, options, depth, name, monitor); }
public static boolean isAccessAllowed(final RElementName name, final RWorkspace rWorkspace) { final Set<String> excludePkgs = LOAD_PKG_EXCLUDE_LIST; if (excludePkgs.isEmpty()) { return true; } final String pkgName; if (RElementName.isPackageFacetScopeType(name.getType())) { pkgName = name.getSegmentName(); } else if (name.getScope() != null && RElementName.isPackageFacetScopeType(name.getScope().getType())) { pkgName = name.getScope().getSegmentName(); } else { return true; } return (!(excludePkgs.contains("*") || excludePkgs.contains(pkgName)) // $NON-NLS-1$ || rWorkspace.isNamespaceLoaded(pkgName)); }
private void createChanges(final TextFileChange change, final SubMonitor progress) throws BadLocationException, CoreException { fSourceUnit.connect(progress.newChild(1)); try { final AbstractDocument document = fSourceUnit.getDocument(progress.newChild(1)); final RCodeStyleSettings codeStyle = RRefactoringAdapter.getCodeStyle(fSourceUnit); RAstNode firstParentChild = (RAstNode) fFunction.getAdapter(IAstNode.class); while (true) { final RAstNode parent = firstParentChild.getRParent(); if (parent == null || parent.getNodeType() == NodeType.SOURCELINES || parent.getNodeType() == NodeType.BLOCK) { break; } firstParentChild = parent; } final IRegion region = fAdapter.expandWhitespaceBlock(document, fOperationRegion); final int insertOffset = fAdapter .expandWhitespaceBlock( document, fAdapter.expandSelectionRegion( document, new Region(firstParentChild.getOffset(), 0), fOperationRegion)) .getOffset(); final FDef fdefNode = (FDef) fFunction.getAdapter(FDef.class); final IRegion fbodyRegion = fAdapter.expandWhitespaceBlock( document, fAdapter.expandSelectionRegion(document, fdefNode.getContChild(), fOperationRegion)); TextChangeCompatibility.addTextEdit( change, Messages.FunctionToS4Method_Changes_DeleteOld_name, new DeleteEdit(region.getOffset(), region.getLength())); final String nl = document.getDefaultLineDelimiter(); final String argAssign = codeStyle.getArgAssignString(); final StringBuilder sb = new StringBuilder(); sb.append("setGeneric(\""); // $NON-NLS-1$ sb.append(fFunctionName); sb.append("\","); // $NON-NLS-1$ sb.append(nl); sb.append("function("); // $NON-NLS-1$ boolean dots = false; for (final Variable variable : fVariablesList) { if (variable.getName().equals(RTerminal.S_ELLIPSIS)) { dots = true; } if (variable.getUseAsGenericArgument()) { sb.append( RElementName.create(RElementName.MAIN_DEFAULT, variable.getName()).getDisplayName()); sb.append(", "); // $NON-NLS-1$ } } if (!dots) { sb.append("..., "); // $NON-NLS-1$ } sb.delete(sb.length() - 2, sb.length()); sb.append(')'); if (codeStyle.getNewlineFDefBodyBlockBefore()) { sb.append(nl); } else { sb.append(' '); } sb.append('{'); sb.append(nl); sb.append("standardGeneric(\""); // $NON-NLS-1$ sb.append(fFunctionName); sb.append("\")"); // $NON-NLS-1$ sb.append(nl); sb.append("})"); // $NON-NLS-1$ sb.append(nl); sb.append(nl); final String genericDef = RRefactoringAdapter.indent(sb, document, firstParentChild.getOffset(), fSourceUnit); TextChangeCompatibility.addTextEdit( change, Messages.FunctionToS4Method_Changes_AddGenericDef_name, new InsertEdit(insertOffset, genericDef)); sb.setLength(0); sb.append("setMethod(\""); // $NON-NLS-1$ sb.append(fFunctionName); sb.append("\","); // $NON-NLS-1$ sb.append(nl); sb.append("signature("); // $NON-NLS-1$ boolean hasType = false; for (final Variable variable : fVariablesList) { if (variable.getUseAsGenericArgument() && variable.getArgumentType() != null) { hasType = true; sb.append( RElementName.create(RElementName.MAIN_DEFAULT, variable.getName()).getDisplayName()); sb.append(argAssign); sb.append("\""); // $NON-NLS-1$ sb.append(variable.getArgumentType()); sb.append("\", "); // $NON-NLS-1$ } } if (hasType) { sb.delete(sb.length() - 2, sb.length()); } sb.append("),"); // $NON-NLS-1$ sb.append(nl); sb.append("function("); // $NON-NLS-1$ final FDef.Args argsNode = fdefNode.getArgsChild(); for (final Variable variable : fVariablesList) { sb.append( RElementName.create(RElementName.MAIN_DEFAULT, variable.getName()).getDisplayName()); final FDef.Arg argNode = argsNode.getChild(variable.fArg.index); if (argNode.hasDefault()) { sb.append(argAssign); sb.append( document.get( argNode.getDefaultChild().getOffset(), argNode.getDefaultChild().getLength())); } sb.append(", "); // $NON-NLS-1$ } if (!fVariablesList.isEmpty()) { sb.delete(sb.length() - 2, sb.length()); } sb.append(')'); if (codeStyle.getNewlineFDefBodyBlockBefore() || fdefNode.getContChild().getNodeType() != NodeType.BLOCK) { sb.append(nl); } else { sb.append(' '); } sb.append(document.get(fbodyRegion.getOffset(), fbodyRegion.getLength()).trim()); sb.append(")"); // $NON-NLS-1$ sb.append(nl); final String methodDef = RRefactoringAdapter.indent(sb, document, firstParentChild.getOffset(), fSourceUnit); TextChangeCompatibility.addTextEdit( change, Messages.FunctionToS4Method_Changes_AddMethodDef_name, new InsertEdit(insertOffset, methodDef)); } finally { fSourceUnit.disconnect(progress.newChild(1)); } }
@Override public String getDisplayName() { return RElementName.createDisplayName(this, 0); }
@Override protected IElementName createElementName() { return RElementName.create(RElementName.RESOURCE, getResource().getName()); }