/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License (the "License").
 * You may not use this file except in compliance with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */

/*
 * Copyright 2009 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */
/*
 * Copyright 2019 Joyent, Inc.
 */

#include    <sun_sas.h>

/*
 * Discover an HBA node with  matching path.
 * The di_node_t argument should be the root of the device tree.
 * This routine assumes the locks have been taken
 */
static int
find_matching_hba(di_node_t node, void *arg)
{
        int *propData, rval;
        walkarg_t *wa = (walkarg_t *)arg;
        char    *devpath, fulldevpath[MAXPATHLEN];

        /* Skip stub(instance -1) nodes */
        if (IS_STUB_NODE(node)) {
                return (DI_WALK_CONTINUE);
        }

        rval = di_prop_lookup_ints(DDI_DEV_T_ANY, node,
            "sm-hba-supported", &propData);
        if (rval < 0) {
                return (DI_WALK_CONTINUE);
        } else {
                if ((devpath = di_devfs_path(node)) == NULL) {
                        /* still continue to see if there is matching one. */
                        return (DI_WALK_CONTINUE);
                }
                (void) snprintf(fulldevpath, MAXPATHLEN, "%s%s", DEVICES_DIR,
                    devpath);

                if ((strstr(fulldevpath, wa->devpath)) != NULL) {
                        *wa->flag = B_TRUE;
                        /* Found a node. No need to walk any more. */
                        di_devfs_path_free(devpath);
                        return (DI_WALK_TERMINATE);
                }
                di_devfs_path_free(devpath);
        }

        return (DI_WALK_CONTINUE);
}

/*
 * Refreshes information about an HBA
 *
 * Note: This routine holds the locks in write mode
 *       during most of the processing, and as such, will cause
 *       all other threads to block on entry into the library
 *       until the refresh is complete.  An optimization would be
 *       to put fine-grain locking in for the open_handle structures.
 */
void
Sun_sasRefreshAdapterConfiguration()
{
        const char                  ROUTINE[] =
            "Sun_sasRefreshAdapterConfiguration";
        struct sun_sas_hba          *hba_ptr;
        di_node_t                   root;
        hrtime_t                    start;
        hrtime_t                    end;
        double                      duration;
        walkarg_t                   wa;

        /*
         * We're going to be tweaking a lot of global lists, so write
         * lock them.
         */
        lock(&all_hbas_lock);
        lock(&open_handles_lock);

        start = gethrtime();
        /* Grab device tree */
        if ((root = di_init("/", DINFOCACHE)) == DI_NODE_NIL) {
                log(LOG_DEBUG, ROUTINE,
                    "Unable to load device tree for reason \"%s\"",
                    strerror(errno));
                unlock(&open_handles_lock);
                unlock(&all_hbas_lock);
                return;
        }

        end = gethrtime();
        duration = end - start;
        duration /= HR_SECOND;
        log(LOG_DEBUG, ROUTINE, "Device tree init took "
            "%.6f seconds", duration);

        for (hba_ptr = global_hba_head; hba_ptr != NULL;
            hba_ptr = hba_ptr->next) {
                wa.devpath = hba_ptr->device_path;
                wa.flag = (boolean_t *)calloc(1, sizeof (boolean_t));
                *wa.flag = B_FALSE;

                if (di_walk_node(root, DI_WALK_SIBFIRST, &wa,
                    find_matching_hba) != 0) {
                        log(LOG_DEBUG, ROUTINE, "di_walk_node failed.");
                        unlock(&open_handles_lock);
                        unlock(&all_hbas_lock);
                        S_FREE(wa.flag);
                        di_fini(root);
                        return;
                }

                if (*wa.flag == B_FALSE) {
                        /*
                         * Keep the HBA as it is including open handles
                         * per the SM-HBA standards. Just mark it as invalid.
                         */
                        log(LOG_DEBUG, ROUTINE, "No matching HBA found. %s",
                            hba_ptr->device_path);
                        hba_ptr->invalid = B_TRUE;
                }
                S_FREE(wa.flag);
        }

        /*
         * Now we marked missing HBA(s). Redisoover hbas to refresh
         * or add any new adapter to the hba list.
         * Simply call devtree_get_all_hbas().
         */
        if (devtree_get_all_hbas(root) != HBA_STATUS_OK) {
                log(LOG_DEBUG, ROUTINE, "devtree_get_all_hbas failed.");
        }
        di_fini(root);

        unlock(&open_handles_lock);
        unlock(&all_hbas_lock);
}