// e.g.

//   void tailCall aka replace(Computable x) {...}

// to:

//   void tailCall(Computable x) {...}

//   final void replace(Computable x) { tailCall(x); }

// (or the other way around)

svoid tok_akaFunctionNames(LS tok) {

  int i;

  bool useFinal = true;

  while ((i = jfind(tok, "<id> aka <id>")) >= 0) {

    int iName1 = i, _iLastName = i+4;

    while (eqGet(tok, _iLastName+2, "aka")

      && isIdentifier(get(tok, _iLastName+4)))

      _iLastName += 4;

    int iLastName = _iLastName;

    // find arguments

    int iOpening = indexOf(tok, iLastName, "(");

    int iClosing = findEndOfBracketPart2(tok, iOpening)-1;

    // find all names

    new LS names;

    for (int j = iName1; j <= iLastName; j += 4)

      names.add(tok.get(j));

    // find javax modifiers, return type & modifiers

    int iType = tok_leftScanJavaxModifiers(tok, iName1);

    iType = tok_leftScanType(tok, iType);

    int iStart = leftScanModifiers(tok, tok_leftScanTypeArgsOpt(tok, iType));

    // parse argument list

    LS _args = subList(tok, iOpening+1, iClosing);

    LS args = tok_parseArgsDeclList2(_args);

    // analyze return type

    LS type = subList(tok, iType-1, iName1); // return type

    bool isVoid = containsOneOf(codeTokens(type), javaxVoidAliases());

    // drop all but first name

    clearTokens(tok, iName1+1, iLastName+1);

    int iBodyOpen = indexOfAny(tok, iClosing, "{", ";");

    bool hasBody = eqGet(tok, iBodyOpen, "{");

    // The following logic is nasty, but the tests in test_tok_akaFunctionNames

    // make it alright

    // modifiers include return type actually

    LS tokModifiers = cloneSubList(tok, iStart, iName1-1);

    bool isAbstract = tokModifiers.remove("abstract");

    bool isDefault = tokModifiers.contains("default");

    tokModifiers.remove("synchronized");

    if (!isDefault && !isAbstract && !hasBody) {

      set isDefault;

      tokModifiers.add(0, "default ");

    }

    S modifiers = join(tokModifiers);

    if (isDefault && !hasBody)

      replaceElementInSubList(tok, iStart, iType, "default", "");

    // make synonyms final unless we're in an interface

    if (!isDefault && !contains(tokModifiers, "final"))

      modifiers = "final " + modifiers;

    S _modifiers = modifiers;

    //S exceptionClauses = joinSubList(tok, iClosing+1, iBodyOpen-1);

    // add synonyms

    tokPrepend(tok, iStart, joinMap(dropFirst(names), name ->

      _modifiers + " "

      + name

      // arguments and declared exceptions

      + joinSubList(tok, iLastName+1, iBodyOpen-1)

      + "{ " + stringIf(!isVoid, "return ")

      + first(names) + "(" + joinWithComma(lmap tok_lastIdentifier(args)) + "); }\n"));

    reTok(tok, iStart, iLastName+1);

  }

}