#525521555

Committed 28 May 2025 04:25PM UTC coverage: 82.274% (-0.01%) from 82.286%

Build # #525521555

Build Type

push

github

Committed by

hurricup

Commit Message

PerlNameSuggestionProvider cleanup

Run Details

8 of 9 new or added lines in 1 file covered. (88.89%)

20 existing lines in 6 files now uncovered.

30880 of 37533 relevant lines covered (82.27%)

0.82 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

95.29

/plugin/core/src/main/java/com/perl5/lang/perl/idea/refactoring/PerlNameSuggestionProvider.java

/*
 * Copyright 2015-2025 Alexandr Evstigneev
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 * http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */

package com.perl5.lang.perl.idea.refactoring;

import com.intellij.openapi.diagnostic.Logger;
import com.intellij.openapi.util.NotNullLazyValue;
import com.intellij.openapi.util.Ref;
import com.intellij.openapi.util.io.FileUtil;
import com.intellij.openapi.util.text.StringUtil;
import com.intellij.psi.ElementManipulator;
import com.intellij.psi.ElementManipulators;
import com.intellij.psi.PsiElement;
import com.intellij.psi.codeStyle.SuggestedNameInfo;
import com.intellij.psi.tree.IElementType;
import com.intellij.psi.tree.TokenSet;
import com.intellij.psi.util.PsiTreeUtil;
import com.intellij.psi.util.PsiUtilCore;
import com.intellij.refactoring.rename.NameSuggestionProvider;
import com.intellij.util.ObjectUtils;
import com.intellij.util.containers.ContainerUtil;
import com.perl5.lang.perl.PerlLanguage;
import com.perl5.lang.perl.idea.codeInsight.typeInference.value.PerlCallValue;
import com.perl5.lang.perl.idea.codeInsight.typeInference.value.PerlValue;
import com.perl5.lang.perl.idea.codeInsight.typeInference.value.PerlValuesManager;
import com.perl5.lang.perl.idea.intellilang.PerlInjectionMarkersService;
import com.perl5.lang.perl.lexer.PerlElementTypes;
import com.perl5.lang.perl.lexer.PerlTokenSets;
import com.perl5.lang.perl.parser.PerlParserUtil;
import com.perl5.lang.perl.psi.*;
import com.perl5.lang.perl.psi.PerlAssignExpression.PerlAssignValueDescriptor;
import com.perl5.lang.perl.psi.impl.PerlSubCallElement;
import com.perl5.lang.perl.psi.mixins.PerlStatementMixin;
import com.perl5.lang.perl.psi.properties.PerlLexicalScope;
import com.perl5.lang.perl.psi.utils.PerlResolveUtil;
import com.perl5.lang.perl.psi.utils.PerlVariableType;
import com.perl5.lang.perl.util.PerlPackageUtil;
import org.jetbrains.annotations.Contract;
import org.jetbrains.annotations.NotNull;
import org.jetbrains.annotations.Nullable;

import java.io.File;
import java.util.*;
import java.util.function.Function;
import java.util.stream.Collectors;

import static com.perl5.lang.perl.lexer.PerlTokenSets.*;
import static com.perl5.lang.perl.parser.PerlElementTypesGenerated.*;


public class PerlNameSuggestionProvider implements NameSuggestionProvider {
  private static final Logger LOG = Logger.getInstance(PerlNameSuggestionProvider.class);
  private static final String EXPRESSION = "expression";
  private static final String ANON = "anon";
  private static final String REFERENCE = "reference";
  private static final String REF = "ref";
  private static final String SCALAR = "scalar";
  private static final String VALUE = "value";
  private static final List<String> SCALAR_BASE_NAMES = Arrays.asList(SCALAR, VALUE);
  private static final String ARRAY = "array";
  private static final String ANON_ARRAY = Objects.requireNonNull(join(ANON, ARRAY));
  private static final String ARRAY_REF = Objects.requireNonNull(join(ARRAY, REF));
  private static final String LIST = "list";
  private static final List<String> ARRAY_BASE_NAMES = Arrays.asList(ARRAY, LIST);
  private static final List<String> ANON_ARRAY_BASE_NAMES = ContainerUtil.append(ARRAY_BASE_NAMES, ANON_ARRAY, ARRAY_REF);
  private static final String HASH = "hash";
  private static final String ANON_HASH = Objects.requireNonNull(join(ANON, HASH));
  private static final String HASH_REF = Objects.requireNonNull(join(HASH, REF));
  private static final String MAP = "map";
  private static final String DICT = "dict";
  private static final List<String> HASH_BASE_NAMES = Arrays.asList(HASH, MAP, DICT);
  private static final List<String> ANON_HASH_BASE_NAMES = ContainerUtil.append(HASH_BASE_NAMES, ANON_HASH, HASH_REF);
  private static final String NUMBER = "number";
  private static final String STRING = "string";
  private static final String COMMAND_OUTPUT = "command_output";
  private static final String PATTERN = "pattern";
  private static final String REGEX = "regex";
  private static final List<String> REGEX_BASE_NAMES = Arrays.asList(PATTERN, REGEX);
  private static final String PACKAGE = "package";
  private static final String NAMESPACE = "namespace";
  private static final String MODULE = "module";
  private static final List<String> PACKAGE_BASE_NAMES = Arrays.asList(PACKAGE, NAMESPACE, MODULE);
  private static final int PACKAGE_CHUNKS_TO_USE = 3;
  private static final String PATH = "path";
  private static final String PATH_TO = "path_to";
  private static final String ABSOLUTE_PATH_TO = "absolute_path_to";
  private static final String RELATIVE_PATH_TO = "relative_path_to";
  private static final String PATH_NAME = "pathname";
  private static final List<String> BASE_PATH_NAMES = Arrays.asList(PATH, PATH_NAME);
  private static final int FILE_CHUNKS_TO_USE = 2;
  private static final String ELEMENT = "element";
  private static final String ITEM = "item";
  private static final String SLICE = "slice";
  private static final int MAX_GENERATED_NAME_LENGTH = 40;
  private static final String SUB = "sub";
  private static final String ANON_SUB = Objects.requireNonNull(join(ANON, SUB));
  private static final String LAMBDA = "lambda";
  private static final String CODE_REF = Objects.requireNonNull(join("code", REF));
  private static final String CODE_REFERENCE = Objects.requireNonNull(join("code", REFERENCE));
  private static final List<String> BASE_ANON_SUB_NAMES = Arrays.asList(ANON_SUB, LAMBDA, CODE_REF, CODE_REFERENCE);
  private static final String RESULT = "result";
  private static final String DO_RESULT = "do_result";
  private static final String EVAL_RESULT = "eval_result";
  private static final String SORTED = "sorted";
  private static final String MAPPED = "mapped";
  private static final String GREPPED = "filtered";
  private static final String STRING_LIST_NAME = "string_list";

  private static final NotNullLazyValue<Map<IElementType, String>> FIXED_NAMES = NotNullLazyValue.createValue(() -> {
    Map<IElementType, String> namesMap = new HashMap<>();
    namesMap.put(STRING_LIST, STRING_LIST_NAME);
    namesMap.put(COMMA_SEQUENCE_EXPR, LIST);
    namesMap.put(SUB_EXPR, CODE_REF);
    namesMap.put(DO_BLOCK_EXPR, DO_RESULT);
    namesMap.put(EVAL_EXPR, EVAL_RESULT);
    namesMap.put(PerlElementTypes.ANON_ARRAY, ANON_ARRAY);
    namesMap.put(PerlElementTypes.ANON_HASH, ANON_HASH);
    namesMap.put(NUMBER_CONSTANT, NUMBER);
    return Collections.unmodifiableMap(namesMap);
  });
  private static final NotNullLazyValue<TokenSet> ELEMENTS_WITH_BASE_NAMES = NotNullLazyValue.createValue(() -> TokenSet.orSet(
    TokenSet.create(FIXED_NAMES.get().keySet().toArray(IElementType.EMPTY_ARRAY)),
    PerlTokenSets.CAST_EXPRESSIONS,
    PerlTokenSets.SLICES,
    REGEX_OPERATIONS
  ));

  @Override
  public @Nullable SuggestedNameInfo getSuggestedNames(@Nullable PsiElement targetElement,
                                                       @Nullable PsiElement contextElement,
                                                       @NotNull Set<String> result) {
    suggestAndAddRecommendedName(targetElement, contextElement, result);
    return SuggestedNameInfo.NULL_INFO;
  }

  @Contract("null, _, _ -> null")
  private void suggestAndAddRecommendedName(@Nullable PsiElement targetElement,
                                            @Nullable PsiElement contextElement,
                                            @NotNull Set<? super String> result) {
    if (targetElement == null || !targetElement.getLanguage().isKindOf(PerlLanguage.INSTANCE)) {
      return;
    }

    String recommendedName = null;
    Set<String> suggestedNames = new LinkedHashSet<>();

    if (targetElement instanceof PerlHeredocOpener) {
      result.addAll(PerlInjectionMarkersService.getInstance(targetElement.getProject()).getSupportedMarkers());
    }
    else if (targetElement instanceof PerlVariableDeclarationElement variableDeclarationElement) {
      PerlVariable declaredVariable = variableDeclarationElement.getVariable();
      switch (declaredVariable) {
        case PsiPerlScalarVariable ignored -> suggestedNames.addAll(SCALAR_BASE_NAMES);
        case PsiPerlArrayVariable ignored -> suggestedNames.addAll(ARRAY_BASE_NAMES);
        case PsiPerlHashVariable ignored -> suggestedNames.addAll(HASH_BASE_NAMES);
        default -> {
        }
      }
      recommendedName = adjustNamesToBeUniqueFor(
        targetElement,
        variableDeclarationElement.getActualType(),
        declaredVariable.getName(),
        suggestAndAddRecommendedNameForVariable(variableDeclarationElement, contextElement, suggestedNames),
        suggestedNames
      );
    }

    result.addAll(suggestedNames);
    if (recommendedName == null) {
      if (!suggestedNames.isEmpty()) {
        suggestedNames.iterator().next();
      }
    }
  }

  /**
   * Attempts for figure out a variable name from {@code declaration} and/or {@code contextElement}. Adds suggestions to the {@code result}
   * and return recommended name if any
   */
  private @Nullable String suggestAndAddRecommendedNameForVariable(@NotNull PerlVariableDeclarationElement declaration,
                                                                   @Nullable PsiElement ignoredContextElement,
                                                                   @NotNull Set<? super String> result) {
    PerlAssignExpression assignmentExpression = PerlAssignExpression.getAssignmentExpression(declaration);
    if (assignmentExpression == null) {
      return null;
    }
    PerlAssignValueDescriptor rightSideDescriptor = assignmentExpression.getRightPartOfAssignment(declaration);
    if (rightSideDescriptor == null || rightSideDescriptor.getStartIndex() != 0) {
      return null;
    }
    List<PsiElement> elements = rightSideDescriptor.getElements();
    if (elements.isEmpty()) {
      return null;
    }
    // fixme array_element if index is more than one
    // fixme we could analyze all elements
    return suggestAndAddRecommendedName(elements.getFirst(), result);
  }

  private @Nullable String suggestAndAddRecommendedName(@Nullable PsiElement expression, @NotNull Set<? super String> result) {
    if (expression instanceof PsiPerlParenthesisedExpr parenthesisedExpr) {
      return suggestAndAddRecommendedName(parenthesisedExpr.getExpr(), result);
    }
    String recommendation = null;
    IElementType expressionType = PsiUtilCore.getElementType(expression);
    if (STRINGS.contains(expressionType)) {
      recommendation = suggestAndAddNameForString((PerlString)expression, result);
    }
    else if (expressionType == HASH_ELEMENT) {
      String resultString = Objects.requireNonNull(join(HASH, ELEMENT));
      result.add(resultString);
      result.add(join(HASH, ITEM));
      recommendation = suggestNamesForElements(((PsiPerlHashElement)expression).getExpr(),
                                               false, ((PsiPerlHashElement)expression).getHashIndex().getExpr(),
                                               result,
                                               resultString);
    }
    else if (expressionType == ARRAY_ELEMENT) {
      String resultString = Objects.requireNonNull(join(ARRAY, ELEMENT));
      result.add(resultString);
      result.add(join(ARRAY, ITEM));
      recommendation = suggestNamesForElements(((PsiPerlArrayElement)expression).getExpr(),
                                               false, ((PsiPerlArrayElement)expression).getArrayIndex().getExpr(),
                                               result,
                                               resultString);
    }
    else if (expressionType == DEREF_EXPR) {
      recommendation = suggestAndGetForDereference(expression, result, null);
    }
    else if (expressionType == GREP_EXPR) {
      recommendation = suggestAndGetGrepMapSortNames(expression, GREPPED, result);
    }
    else if (expressionType == MAP_EXPR) {
      recommendation = suggestAndGetGrepMapSortNames(expression, MAPPED, result);
    }
    else if (expressionType == SORT_EXPR) {
      recommendation = suggestAndGetGrepMapSortNames(expression, SORTED, result);
    }
    else if (expressionType == SUB_CALL) {
      recommendation = suggestAndGetForCall((PerlSubCallElement)expression, result, null);
    }
    else if (expressionType == SUB_EXPR) {
      result.addAll(BASE_ANON_SUB_NAMES);
    }
    else if (REGEX_OPERATIONS.contains(expressionType)) {
      result.addAll(REGEX_BASE_NAMES);
    }
    else if (expressionType == PerlElementTypes.ANON_HASH) {
      result.addAll(ANON_HASH_BASE_NAMES);
    }
    else if (expressionType == PerlElementTypes.ANON_ARRAY) {
      result.addAll(ANON_ARRAY_BASE_NAMES);
    }

    if (ELEMENTS_WITH_BASE_NAMES.get().contains(expressionType)) {
      recommendation = getBaseName(expression);
    }
    /*
    qw/list/
    (1,2,3)
    for my $var (@array){
    }
    */
    ContainerUtil.addIfNotNull(result, recommendation);
    return recommendation;
  }

  private String suggestAndGetForDereference(@NotNull PsiElement expression,
                                             @NotNull Set<? super String> result,
                                             @SuppressWarnings("SameParameterValue") String initialRecommendation) {
    PsiElement[] children = expression.getChildren();
    PsiElement element = children[children.length - 1];
    PsiElement baseElement = children[children.length - 2];

    if (element instanceof PsiPerlHashIndex hashIndex) {
      var recommendation = Objects.requireNonNull(join(HASH, ELEMENT));
      result.add(recommendation);
      result.add(join(HASH, ITEM));

      return suggestNamesForElements(baseElement, true, hashIndex.getExpr(), result, recommendation);
    }
    else if (element instanceof PsiPerlArrayIndex arrayIndex) {
      var recommendation = Objects.requireNonNull(join(ARRAY, ELEMENT));
      result.add(recommendation);
      result.add(join(ARRAY, ITEM));

      return suggestNamesForElements(baseElement, true, arrayIndex.getExpr(), result, recommendation);
    }
    else if (element instanceof PerlSubCallElement subCallElement) {
      return suggestAndGetForCall(subCallElement, result, initialRecommendation);
    }
    else if (element instanceof PsiPerlParenthesisedCallArguments) {
      return join(getBaseName(baseElement), RESULT);
    }
    return initialRecommendation;
  }

  private static String suggestAndGetForCall(@NotNull PerlSubCallElement subCall,
                                             @NotNull Set<? super String> result,
                                             String recommendation) {
    PsiPerlMethod method = subCall.getMethod();
    if (method == null) {
      return recommendation;
    }
    PerlCallValue callValue = PerlCallValue.from(method);
    if (callValue == null) {
      return recommendation;
    }

    PerlValue subNameValue = callValue.getSubNameValue();

    if (subNameValue.canRepresentSubName("new")) {
      PerlValue namespaceNameValue = callValue.getNamespaceNameValue();
      Collection<String> variantsFromObjectClass = getVariantsFromPerlValueNamespaces(method, namespaceNameValue);
      result.addAll(variantsFromObjectClass);
      if (!variantsFromObjectClass.isEmpty()) {
        recommendation = variantsFromObjectClass.iterator().next();
      }
    }
    else {
      Ref<String> recommendationRef = Ref.create(recommendation);
      for (String subName : subNameValue.resolve(method).getSubNames()) {
        String normalizedName = join(subName.replaceAll("^(_+|get_*|set_*)", ""));
        if (StringUtil.isNotEmpty(normalizedName)) {
          result.add(normalizedName);
          recommendationRef.set(normalizedName);
        }
      }
      recommendation = recommendationRef.get();
      result.addAll(getVariantsFromEntityValueNamespaces(subCall));
    }
    return recommendation;
  }

  private String suggestAndGetGrepMapSortNames(@Nullable PsiElement expression,
                                               @NotNull String prefix,
                                               @NotNull Set<? super String> result) {
    String recommendedName = join(prefix, VALUE);
    result.add(recommendedName);
    String fullName = getBaseName(expression);
    if (StringUtil.isNotEmpty(fullName)) {
      recommendedName = fullName;
      result.add(fullName);
    }
    return recommendedName;
  }

  private static String suggestAndAddNameForString(@NotNull PerlString expression, @NotNull Set<? super String> result) {
    result.add(STRING);
    if (expression instanceof PsiPerlStringXq) {
      result.add(COMMAND_OUTPUT);
      return COMMAND_OUTPUT;
    }
    String recommendedString = STRING;
    if (expression.getChildren().length != 0) {
      return recommendedString;
    }
    String nameFromManipulator = getNameFromManipulator(expression);
    if (nameFromManipulator != null) {
      result.add(nameFromManipulator);
      recommendedString = nameFromManipulator;
    }

    String valueText = ElementManipulators.getValueText(expression);
    if (PerlString.looksLikePackage(valueText)) {
      result.addAll(PACKAGE_BASE_NAMES);
      List<String> namespaceVariants = getVariantsFromNamespaceName(valueText);
      result.addAll(namespaceVariants);
      if (!namespaceVariants.isEmpty() && STRING.equals(recommendedString)) {
        recommendedString = namespaceVariants.getFirst();
      }
    }
    else{
      String independentPath = FileUtil.toSystemIndependentName(valueText);
      if (PerlString.looksLikePath(independentPath)) {
        result.addAll(BASE_PATH_NAMES);
        List<String> pathVariants = getVariantsFromPath(independentPath);
        result.addAll(pathVariants);
        if (!pathVariants.isEmpty() && STRING.equals(recommendedString)) {
          recommendedString = pathVariants.getFirst();
        }
      }
    }
    return recommendedString;
  }

  @Contract("null->null")
  private static @Nullable String getBaseName(@Nullable PsiElement element) {
    if (element == null) {
      return null;
    }
    String nameFromKey = getNameFromManipulator(element);
    if (StringUtil.isNotEmpty(nameFromKey)) {
      return nameFromKey;
    }

    IElementType elementType = PsiUtilCore.getElementType(element);

    String fixedName = FIXED_NAMES.get().get(elementType);
    if (fixedName != null) {
      return fixedName;
    }
    else if (elementType == GREP_EXPR) {
      return join(GREPPED, getBaseName(((PerlGrepExpr)element).getExpr()));
    }
    else if (elementType == MAP_EXPR) {
      return join(MAPPED, getBaseName(((PerlMapExpr)element).getExpr()));
    }
    else if (elementType == SORT_EXPR) {
      return join(SORTED, getBaseName(((PerlSortExpr)element).getTarget()));
    }
    else if (elementType == ARRAY_SLICE) {
      return join(getBaseName(((PsiPerlArraySlice)element).getExpr()), SLICE);
    }
    else if (elementType == HASH_SLICE) {
      return join(getBaseName(((PsiPerlHashSlice)element).getExpr()), SLICE);
    }
    else if (BLOCK_LIKE_CONTAINERS.contains(elementType)) {
      PsiElement[] blockChildren = element.getChildren();
      if (blockChildren.length == 1) {
        PsiElement perlStatement = blockChildren[0];
        if (perlStatement instanceof PerlStatementMixin statementMixin &&
            !statementMixin.hasModifier()) {
          return getBaseName(((PsiPerlStatement)perlStatement).getExpr());
        }
      }
    }
    else if (REGEX_OPERATIONS.contains(elementType)) {
      return PATTERN;
    }
    else if (VARIABLES.contains(elementType)) {
      return join(((PerlVariable)element).getName());
    }
    else if (CAST_EXPRESSIONS.contains(elementType)) {
      PsiPerlExpr targetExpr = ((PerlCastExpression)element).getExpr();
      PsiPerlBlock targetBlock = ((PerlCastExpression)element).getBlock();
      return derefName(getBaseName(targetExpr == null ? targetBlock : targetExpr));
    }

    return null;
  }

  /**
   * Suggests names for hash/array elements
   *
   * @param baseExpr       variable from index expression
   * @param derefBase      if true, base name going to be stripped from ref/reference
   * @param indexExpr      expressions from index expression
   * @param result         result to add recommendations to
   * @param recommendation base recommendation name
   * @return recommended name
   */
  private static @NotNull String suggestNamesForElements(@Nullable PsiElement baseExpr,
                                                         boolean derefBase,
                                                         @Nullable PsiElement indexExpr,
                                                         @NotNull Set<? super String> result,
                                                         @NotNull String recommendation) {
    String singularName = null;
    String baseExprName = getBaseName(baseExpr);
    if (derefBase) {
      baseExprName = derefName(baseExprName);
    }

    if (StringUtil.isNotEmpty(baseExprName)) {
      singularName = ObjectUtils.notNull(StringUtil.unpluralize(baseExprName), baseExprName);
      String variableNameElement = join(singularName, ELEMENT);
      if (StringUtil.isNotEmpty(variableNameElement)) {
        result.add(variableNameElement);
        recommendation = variableNameElement;
      }
      ContainerUtil.addIfNotNull(result, join(singularName, ITEM));
    }

    String nameFromKey = getBaseName(indexExpr);
    if (indexExpr instanceof PerlString) {
      if (StringUtil.isEmpty(nameFromKey)) {
        LOG.debug("Unable to extract name from: ", indexExpr, "; '", indexExpr.getText(), "'");
        recommendation = "element";
      }
      else {
        recommendation = nameFromKey;
      }
    }

    if (StringUtil.isNotEmpty(nameFromKey) && !(indexExpr instanceof PsiPerlNumberConstant)) {
      result.add(nameFromKey);
      if (StringUtil.isNotEmpty(singularName)) {
        String join = join(singularName, nameFromKey);
        ContainerUtil.addIfNotNull(result, join);
      }
    }
    return recommendation;
  }

  private static @NotNull Collection<String> getVariantsFromEntityValueNamespaces(@Nullable PsiElement contextElement) {
    if (contextElement == null) {
      return Collections.emptyList();
    }
    return getVariantsFromPerlValueNamespaces(contextElement, PerlValuesManager.from(contextElement));
  }

  private static @NotNull Collection<String> getVariantsFromPerlValueNamespaces(@NotNull PsiElement contextElement,
                                                                                @Nullable PerlValue perlValue) {
    if (PerlValuesManager.isUnknown(perlValue)) {
      return Collections.emptyList();
    }
    Set<String> result = new LinkedHashSet<>();
    perlValue.resolve(contextElement).getNamespaceNames().forEach(it -> result.addAll(getVariantsFromNamespaceName(it)));
    return result;
  }

  private static @NotNull List<String> getVariantsFromNamespaceName(@Nullable String packageName) {
    if (StringUtil.isEmptyOrSpaces(packageName)) {
      return Collections.emptyList();
    }
    List<String> packageChunks = PerlPackageUtil.split(packageName);
    if (packageChunks.isEmpty()) {
      return Collections.emptyList();
    }
    int chunksNumber = Math.min(packageChunks.size(), PACKAGE_CHUNKS_TO_USE);
    List<String> result = new ArrayList<>(chunksNumber);
    for (int i = 1; i <= chunksNumber; i++) {
      String baseName = join(packageChunks.subList(chunksNumber - i, chunksNumber));
      ContainerUtil.addIfNotNull(result, baseName);
    }
    return result;
  }

  private static @NotNull List<String> getVariantsFromPath(@NotNull String pathName) {
    File file = new File(pathName);
    String fileName = file.getName();
    if (StringUtil.isEmptyOrSpaces(fileName)) {
      return Collections.emptyList();
    }

    List<String> fileNameParts = StringUtil.split(StringUtil.trimLeading(fileName, '.'), ".");
    int chunksNumber = Math.min(fileNameParts.size(), FILE_CHUNKS_TO_USE);
    List<String> result = new ArrayList<>();
    for (int i = 1; i <= chunksNumber; i++) {
      String baseFileName = join(fileNameParts.subList(0, i));
      if (baseFileName != null) {
        result.add(baseFileName);
        if (file.isAbsolute()) {
          ContainerUtil.addIfNotNull(result, join(ABSOLUTE_PATH_TO, baseFileName));
        }
        else {
          ContainerUtil.addIfNotNull(result, join(RELATIVE_PATH_TO, baseFileName));
        }
        ContainerUtil.addIfNotNull(result, join(PATH_TO, baseFileName));
      }
    }
    return result;
  }

  /**
   * Fills {@code result} with names suggested for the {@code targetElement} and returns the recommended name
   */
  public static @NotNull String getRecommendedName(@NotNull PsiElement expression,
                                                   @NotNull PsiElement contextElement,
                                                   @NotNull PerlVariableType variableType) {
    String suggestedName = getInstance().suggestAndAddRecommendedName(expression, new LinkedHashSet<>());
    return StringUtil.notNullize(
      adjustNamesToBeUniqueFor(contextElement, variableType, null, suggestedName, Collections.emptySet()),
      EXPRESSION);
  }

  private static @NotNull PerlNameSuggestionProvider getInstance() {
    return Objects.requireNonNull(EP_NAME.findExtension(PerlNameSuggestionProvider.class));
  }

  public static void suggestNames(@NotNull PerlVariableDeclarationElement variableDeclarationElement, @NotNull Set<? super String> result) {
    getInstance().suggestAndAddRecommendedName(variableDeclarationElement, null, result);
  }

  @Contract("null->null")
  private static @Nullable String join(@Nullable String @Nullable ... source) {
    return source == null ? null : join(Arrays.asList(source));
  }

  private static @Nullable String join(@NotNull List<String> source) {
    var result = source.stream()
      .filter(chunk -> !StringUtil.isEmptyOrSpaces(chunk))
      .collect(Collectors.joining("_"))
      .toLowerCase(Locale.getDefault());
    return validateName(result);
  }

  private static @Nullable String spacedToSnakeCase(@NotNull String source) {
    return join(source.toLowerCase(Locale.getDefault()).split("\\W+"));
  }

  @Contract("null->null")
  private static @Nullable String validateName(@Nullable String name) {
    return StringUtil.isNotEmpty(name) && name.length() <= MAX_GENERATED_NAME_LENGTH && PerlParserUtil.isIdentifier(name) ? name : null;
  }

  @Contract("null->null")
  private static @Nullable String getNameFromManipulator(@Nullable PsiElement element) {
    if (element == null) {
      return null;
    }
    ElementManipulator<PsiElement> manipulator = ElementManipulators.getManipulator(element);
    if (manipulator == null) {
      return null;
    }
    return spacedToSnakeCase(ElementManipulators.getValueText(element));
  }

  @Contract("null->null")
  private static @Nullable String derefName(@Nullable String name) {
    return removeChunk(removeChunk(name, REFERENCE + "s?"), REF + "s?");
  }

  /**
   * @return original {@code name} with {@code chunk} removed. Chunk removed with underscore prefix
   */
  @Contract("null,_->null")
  private static @Nullable String removeChunk(@Nullable String name, @NotNull String chunk) {
    if (name == null) {
      return null;
    }
    return validateName(name.replaceAll("_+" + chunk + "_+", "_").replaceAll("(_+" + chunk + "$|^" + chunk + "_+)", ""));
  }

  /**
   * Collects existing variables names for the {@code contextElement} and processing names from the {@code names} by adding
   * a number if variable of {@code variableType} with original name exists in scope. Modifying passed names.
   *
   * @return potentially adjusted {@code recommendedName}
   */
  @Contract("_,_,_,null,_->null")
  public static @Nullable String adjustNamesToBeUniqueFor(@NotNull PsiElement contextElement,
                                                          @NotNull PerlVariableType variableType,
                                                          @Nullable String currentName,
                                                          @Nullable String recommendedName,
                                                          @NotNull Set<String> names) {
    if (names.isEmpty() && recommendedName == null) {
      return null;
    }
    Set<String> existingNames = collectExistingNames(contextElement, variableType);
    Function<String, String> fun = originalName -> {
      if (originalName == null) {
        return null;
      }
      if (!existingNames.contains(originalName) || originalName.equals(currentName)) {
        return originalName;
      }
      else {
        for (int i = 1; i < Integer.MAX_VALUE; i++) {
          String adjustedName = originalName + i;
          if (!existingNames.contains(adjustedName)) {
            return adjustedName;
          }
        }
        return null;
      }
    };
    if (!names.isEmpty()) {
      LinkedHashSet<String> result = new LinkedHashSet<>();
      names.forEach(it -> result.add(fun.apply(it)));
      names.clear();
      names.addAll(result);
    }
    return fun.apply(recommendedName);
  }

  /**
   * Traverses a subtree after a baseElement and walk ups from the baseElement, collecting all variable names.
   */
  public static @NotNull Set<String> collectExistingNames(@Nullable PsiElement baseElement, @NotNull PerlVariableType variableType) {
    if (baseElement == null) {
      return Collections.emptySet();
    }
    Set<String> names = new HashSet<>();
    PsiElement closestScope = PsiTreeUtil.getParentOfType(baseElement, PerlLexicalScope.class, false);
    if (closestScope == null) {
      LOG.error("Unable to find scope for an " + baseElement);
    }
    else {
      PsiElement[] children = closestScope.getChildren();
      PerlRecursiveVisitor recursiveVisitor = new PerlRecursiveVisitor() {
        @Override
        public void visitPerlVariable(@NotNull PerlVariable o) {
          if (o.getActualType() == variableType) {
            ContainerUtil.addIfNotNull(names, o.getName());
          }
        }
      };
      for (int i = children.length - 1; i >= 0; i--) {
        PsiElement child = children[i];
        child.accept(recursiveVisitor);
        if (PsiTreeUtil.isAncestor(child, baseElement, false)) {
          break;
        }
      }
    }

    PerlResolveUtil.treeWalkUp(baseElement, (element, __) -> {
      if (element instanceof PerlVariable perlVariable && perlVariable.getActualType() == variableType) {
        ContainerUtil.addIfNotNull(names, perlVariable.getName());
      }
      return true;
    });

    return names;
  }
}

Camelcade / Perl5-IDEA / #525521555

Source File Press 'n' to go to next uncovered line, 'b' for previous

Source File
Press 'n' to go to next uncovered line, 'b' for previous