/*
 * 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>

/*
 * Frees the HBA Library.  Must be called after all HBA library functions
 * to free all resources
 */
HBA_STATUS
Sun_sasFreeLibrary(void)
{
	HBA_STATUS status;

	lock(&all_hbas_lock);

	status = FreeHBA(global_hba_head);

	/* re-initialize all global variables */
	global_hba_head = NULL;
	hba_count = 0;
	open_handle_index = 1;
	unlock(&all_hbas_lock);
	(void) mutex_destroy(&all_hbas_lock);
	(void) mutex_destroy(&open_handles_lock);

	/* free sysevent handle. */
	if (gSysEventHandle != NULL)
		sysevent_unbind_handle(gSysEventHandle);

	/* Reset our load count so we can be reloaded now */
	loadCount = 0;

	return (status);
}

/*
 * Internal routine to free up hba_ptr's (and all sub-structures)
 */
HBA_STATUS
FreeHBA(struct sun_sas_hba *hba)
{
	struct sun_sas_hba	*hba_ptr = NULL;
	struct sun_sas_hba	*last_hba_ptr = NULL;
	struct sun_sas_port	*hba_port = NULL;
	struct sun_sas_port	*last_hba_port = NULL;
	struct sun_sas_port	*tgt_port = NULL;
	struct sun_sas_port	*last_tgt_port = NULL;
	struct ScsiEntryList	*scsi_info = NULL;
	struct ScsiEntryList	*last_scsi_info = NULL;
	struct phy_info		*phy_ptr = NULL;
	struct phy_info		*last_phy = NULL;
	struct open_handle	*open_handle = NULL;
	struct open_handle	*last_open_handle = NULL;

	last_hba_ptr = NULL;
	/* walk through global_hba_head list freeing each handle */
	for (hba_ptr = hba; hba_ptr != NULL; hba_ptr = hba_ptr->next) {
		/* Free the nested structures (port and attached port) */
		hba_port = hba_ptr->first_port;
		while (hba_port != NULL) {
			/* Free discovered port structure list. */
			tgt_port = hba_port->first_attached_port;
			while (tgt_port != NULL) {
				/* Free target mapping data list first. */
				scsi_info = tgt_port->scsiInfo;
				while (scsi_info != NULL) {
					last_scsi_info = scsi_info;
					scsi_info = scsi_info->next;
					free(last_scsi_info);
				}
				last_tgt_port = tgt_port;
				tgt_port = tgt_port->next;
				free(last_tgt_port->port_attributes.\
				    PortSpecificAttribute.SASPort);
				free(last_tgt_port);
			}

			phy_ptr = hba_port->first_phy;
			while (phy_ptr != NULL) {
				last_phy = phy_ptr;
				phy_ptr = phy_ptr->next;
				free(last_phy);
			}

			last_hba_port = hba_port;
			hba_port = hba_port->next;
			free(last_hba_port->port_attributes.\
			    PortSpecificAttribute.SASPort);
			free(last_hba_port);
		}

		open_handle = hba_ptr->open_handles;
		while (open_handle != NULL) {
			last_open_handle = open_handle;
			open_handle = open_handle->next;
			free(last_open_handle);
		}
		/* Free up the top level HBA structure from the last spin */
		if (last_hba_ptr != NULL) {
			free(last_hba_ptr);
		}
		last_hba_ptr = hba_ptr;
	}
	if (last_hba_ptr != NULL) {
		free(last_hba_ptr);
	}

	return (HBA_STATUS_OK);
}