// Copyright(c) 2018-2020, Intel Corporation
//
// Redistribution  and  use  in source  and  binary  forms,  with  or  without
// modification, are permitted provided that the following conditions are met:
//
// * Redistributions of  source code  must retain the  above copyright notice,
//   this list of conditions and the following disclaimer.
// * Redistributions in binary form must reproduce the above copyright notice,
//   this list of conditions and the following disclaimer in the documentation
//   and/or other materials provided with the distribution.
// * Neither the name  of Intel Corporation  nor the names of its contributors
//   may be used to  endorse or promote  products derived  from this  software
//   without specific prior written permission.
//
// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
// AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING,  BUT NOT LIMITED TO,  THE
// IMPLIED WARRANTIES OF  MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
// ARE DISCLAIMED.  IN NO EVENT  SHALL THE COPYRIGHT OWNER  OR CONTRIBUTORS BE
// LIABLE  FOR  ANY  DIRECT,  INDIRECT,  INCIDENTAL,  SPECIAL,  EXEMPLARY,  OR
// CONSEQUENTIAL  DAMAGES  (INCLUDING,  BUT  NOT LIMITED  TO,  PROCUREMENT  OF
// SUBSTITUTE GOODS OR SERVICES;  LOSS OF USE,  DATA, OR PROFITS;  OR BUSINESS
// INTERRUPTION)  HOWEVER CAUSED  AND ON ANY THEORY  OF LIABILITY,  WHETHER IN
// CONTRACT,  STRICT LIABILITY,  OR TORT  (INCLUDING NEGLIGENCE  OR OTHERWISE)
// ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,  EVEN IF ADVISED OF THE
// POSSIBILITY OF SUCH DAMAGE.

#include <getopt.h>
#include "fpgainfo.h"
#include "tempinfo.h"
#include "bmcdata.h"
#include "board.h"
#include <sys/stat.h>
#include <opae/fpga.h>
#include <wchar.h>

/*
 * Print help
 */
void temp_help(void)
{
	printf("\nPrint thermal metrics\n"
	       "        fpgainfo temp [-h]\n"
	       "                -h,--help           Print this help\n"
	       "\n");
}

static void print_temp_info(fpga_token token)
{
	fpga_properties props;
	fpga_object obj = NULL;
	fpga_metric_info metrics_info[METRICS_MAX_NUM];
	fpga_metric metrics[METRICS_MAX_NUM];
	uint64_t num_metrics;
	uint64_t num_metrics_info;
	fpga_result res = FPGA_OK;
	uint64_t pkg_temp;
	struct stat st;

	res = fpgaGetProperties(token, &props);
	ON_FPGAINFO_ERR_GOTO(res, out_destroy, "Failure reading properties from token");

	fpgainfo_board_info(token);
	fpgainfo_print_common("//****** TEMP ******//", props);

	if (!stat("/sys/bus/pci/drivers/intel-fpga-pci", &st)) {

		res = fpgaTokenGetObject(token, PKG_TEMP_NAME, &obj, FPGA_OBJECT_GLOB);
		ON_FPGAINFO_ERR_GOTO(res, out_destroy, "Failure getting temp object from token");
		res = fpgaObjectRead64(obj, &pkg_temp, FPGA_OBJECT_SYNC);
		ON_FPGAINFO_ERR_GOTO(res, out_destroy, "Failure reading package temperature value");
		printf("%-32s : %02ld %s\n", "Package Temperature", pkg_temp, "Centigrade");
	}

	if (!stat("/sys/bus/pci/drivers/dfl-pci", &st)) {

		res = fpgaTokenGetObject(token, PKG_TEMP_UPS_DRV_NAME, &obj, FPGA_OBJECT_GLOB);
		ON_FPGAINFO_ERR_GOTO(res, out_destroy, "Failure getting temp object from token");
		res = fpgaObjectRead64(obj, &pkg_temp, FPGA_OBJECT_SYNC);
		ON_FPGAINFO_ERR_GOTO(res, out_destroy, "Failure reading package temperature value");
		printf("%-32s : %02ld %s\n", "Package Temperature", pkg_temp, "Milli Centigrade");
	}

	res = get_metrics(token, FPGA_THERMAL, metrics_info, &num_metrics_info, metrics, &num_metrics);
	ON_FPGAINFO_ERR_GOTO(res, out_destroy, "reading metrics from BMC");

	print_metrics(metrics_info, num_metrics_info, metrics, num_metrics);

out_destroy:
	if (obj) {
		res = fpgaDestroyObject(&obj);
		ON_FPGAINFO_ERR_GOTO(res, out_exit, "destroying object");
	}

	res = fpgaDestroyProperties(&props);
	ON_FPGAINFO_ERR_GOTO(res, out_exit, "destroying properties");

out_exit:
	return;
}

fpga_result temp_filter(fpga_properties *filter, int argc, char *argv[])
{
	(void)argc;
	(void)argv;
	fpga_result res = FPGA_OK;
	res = fpgaPropertiesSetObjectType(*filter, FPGA_DEVICE);
	fpgainfo_print_err("setting type to FPGA_DEVICE", res);
	return res;
}

fpga_result temp_command(fpga_token *tokens, int num_tokens, int argc,
			 char *argv[])
{
	(void)tokens;
	(void)num_tokens;
	(void)argc;
	(void)argv;

	fpga_result res = FPGA_OK;

	optind = 0;
	struct option longopts[] = {
		{"help", no_argument, NULL, 'h'},
		{0, 0, 0, 0},
	};

	int getopt_ret;
	int option_index;

	while (-1
	       != (getopt_ret = getopt_long(argc, argv, ":h", longopts,
					    &option_index))) {
		const char *tmp_optarg = optarg;

		if ((optarg) && ('=' == *tmp_optarg)) {
			++tmp_optarg;
		}

		switch (getopt_ret) {
		case 'h': /* help */
			temp_help();
			return res;

		case ':': /* missing option argument */
			fprintf(stderr, "Missing option argument\n");
			temp_help();
			return FPGA_INVALID_PARAM;

		case '?':
		default: /* invalid option */
			fprintf(stderr, "Invalid cmdline options\n");
			temp_help();
			return FPGA_INVALID_PARAM;
		}
	}

	int i = 0;
	for (i = 0; i < num_tokens; ++i) {
		print_temp_info(tokens[i]);
	}

	return res;
}