/**
   * NON-DOM INTERNAL: Within DOM actions,we sometimes need to be able to control which mutation
   * events are spawned. This version of the insertBefore operation allows us to do so. It is not
   * intended for use by application programs.
   */
  Node internalInsertBefore(Node newChild, Node refChild, boolean replace) throws DOMException {

    boolean errorChecking = ownerDocument.errorChecking;

    if (newChild.getNodeType() == Node.DOCUMENT_FRAGMENT_NODE) {
      // SLOW BUT SAFE: We could insert the whole subtree without
      // juggling so many next/previous pointers. (Wipe out the
      // parent's child-list, patch the parent pointers, set the
      // ends of the list.) But we know some subclasses have special-
      // case behavior they add to insertBefore(), so we don't risk it.
      // This approch also takes fewer bytecodes.

      // NOTE: If one of the children is not a legal child of this
      // node, throw HIERARCHY_REQUEST_ERR before _any_ of the children
      // have been transferred. (Alternative behaviors would be to
      // reparent up to the first failure point or reparent all those
      // which are acceptable to the target node, neither of which is
      // as robust. PR-DOM-0818 isn't entirely clear on which it
      // recommends?????

      // No need to check kids for right-document; if they weren't,
      // they wouldn't be kids of that DocFrag.
      if (errorChecking) {
        for (Node kid = newChild.getFirstChild(); // Prescan
            kid != null;
            kid = kid.getNextSibling()) {

          if (!ownerDocument.isKidOK(this, kid)) {
            throw new DOMException(
                DOMException.HIERARCHY_REQUEST_ERR,
                DOMMessageFormatter.formatMessage(
                    DOMMessageFormatter.DOM_DOMAIN, "HIERARCHY_REQUEST_ERR", null));
          }
        }
      }

      while (newChild.hasChildNodes()) {
        insertBefore(newChild.getFirstChild(), refChild);
      }
      return newChild;
    }

    if (newChild == refChild) {
      // stupid case that must be handled as a no-op triggering events...
      refChild = refChild.getNextSibling();
      removeChild(newChild);
      insertBefore(newChild, refChild);
      return newChild;
    }

    if (needsSyncChildren()) {
      synchronizeChildren();
    }

    if (errorChecking) {
      if (isReadOnly()) {
        throw new DOMException(
            DOMException.NO_MODIFICATION_ALLOWED_ERR,
            DOMMessageFormatter.formatMessage(
                DOMMessageFormatter.DOM_DOMAIN, "NO_MODIFICATION_ALLOWED_ERR", null));
      }
      if (newChild.getOwnerDocument() != ownerDocument && newChild != ownerDocument) {
        throw new DOMException(
            DOMException.WRONG_DOCUMENT_ERR,
            DOMMessageFormatter.formatMessage(
                DOMMessageFormatter.DOM_DOMAIN, "WRONG_DOCUMENT_ERR", null));
      }
      if (!ownerDocument.isKidOK(this, newChild)) {
        throw new DOMException(
            DOMException.HIERARCHY_REQUEST_ERR,
            DOMMessageFormatter.formatMessage(
                DOMMessageFormatter.DOM_DOMAIN, "HIERARCHY_REQUEST_ERR", null));
      }
      // refChild must be a child of this node (or null)
      if (refChild != null && refChild.getParentNode() != this) {
        throw new DOMException(
            DOMException.NOT_FOUND_ERR,
            DOMMessageFormatter.formatMessage(
                DOMMessageFormatter.DOM_DOMAIN, "NOT_FOUND_ERR", null));
      }

      // Prevent cycles in the tree
      // newChild cannot be ancestor of this Node,
      // and actually cannot be this
      if (ownerDocument.ancestorChecking) {
        boolean treeSafe = true;
        for (NodeImpl a = this; treeSafe && a != null; a = a.parentNode()) {
          treeSafe = newChild != a;
        }
        if (!treeSafe) {
          throw new DOMException(
              DOMException.HIERARCHY_REQUEST_ERR,
              DOMMessageFormatter.formatMessage(
                  DOMMessageFormatter.DOM_DOMAIN, "HIERARCHY_REQUEST_ERR", null));
        }
      }
    }

    // notify document
    ownerDocument.insertingNode(this, replace);

    // Convert to internal type, to avoid repeated casting
    ChildNode newInternal = (ChildNode) newChild;

    Node oldparent = newInternal.parentNode();
    if (oldparent != null) {
      oldparent.removeChild(newInternal);
    }

    // Convert to internal type, to avoid repeated casting
    ChildNode refInternal = (ChildNode) refChild;

    // Attach up
    newInternal.ownerNode = this;
    newInternal.isOwned(true);

    // Attach before and after
    // Note: firstChild.previousSibling == lastChild!!
    if (firstChild == null) {
      // this our first and only child
      firstChild = newInternal;
      newInternal.isFirstChild(true);
      newInternal.previousSibling = newInternal;
    } else {
      if (refInternal == null) {
        // this is an append
        ChildNode lastChild = firstChild.previousSibling;
        lastChild.nextSibling = newInternal;
        newInternal.previousSibling = lastChild;
        firstChild.previousSibling = newInternal;
      } else {
        // this is an insert
        if (refChild == firstChild) {
          // at the head of the list
          firstChild.isFirstChild(false);
          newInternal.nextSibling = firstChild;
          newInternal.previousSibling = firstChild.previousSibling;
          firstChild.previousSibling = newInternal;
          firstChild = newInternal;
          newInternal.isFirstChild(true);
        } else {
          // somewhere in the middle
          ChildNode prev = refInternal.previousSibling;
          newInternal.nextSibling = refInternal;
          prev.nextSibling = newInternal;
          refInternal.previousSibling = newInternal;
          newInternal.previousSibling = prev;
        }
      }
    }

    changed();

    // update cached length if we have any
    if (fNodeListCache != null) {
      if (fNodeListCache.fLength != -1) {
        fNodeListCache.fLength++;
      }
      if (fNodeListCache.fChildIndex != -1) {
        // if we happen to insert just before the cached node, update
        // the cache to the new node to match the cached index
        if (fNodeListCache.fChild == refInternal) {
          fNodeListCache.fChild = newInternal;
        } else {
          // otherwise just invalidate the cache
          fNodeListCache.fChildIndex = -1;
        }
      }
    }

    // notify document
    ownerDocument.insertedNode(this, newInternal, replace);

    checkNormalizationAfterInsert(newInternal);

    return newChild;
  } // internalInsertBefore(Node,Node,boolean):Node