/*
 * This file and its contents are supplied under the terms of the
 * Common Development and Distribution License ("CDDL"), version 1.0.
 * You may only use this file in accordance with the terms of version
 * 1.0 of the CDDL.
 *
 * A full copy of the text of the CDDL should have accompanied this
 * source.  A copy of the CDDL is also available via the Internet at
 * http://www.illumos.org/license/CDDL.
 */

/*
 * Copyright 2019, Joyent, Inc.
 */

#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <stdio.h>
#include <string.h>
#include <unistd.h>
#include <libnvpair.h>
#include <sys/sensors.h>
#include <sys/fm/protocol.h>
#include <fm/topo_mod.h>
#include <topo_sensor.h>

#include "chip.h"

static const char *chip_sensor_base = "/dev/sensors/temperature/cpu";

int
chip_create_core_temp_sensor(topo_mod_t *mod, tnode_t *pnode)
{
	int err;
	int32_t chip, core;
	char buf[PATH_MAX];
	struct stat st;

	core = topo_node_instance(pnode);
	if (topo_prop_get_int32(pnode, PGNAME(CORE), CORE_CHIP_ID, &chip,
	    &err) != 0) {
		return (topo_mod_seterrno(mod, err));
	}

	if (snprintf(buf, sizeof (buf), "%s/chip%d.core%d", chip_sensor_base,
	    chip, core) >= sizeof (buf)) {
		return (topo_mod_seterrno(mod, EMOD_UNKNOWN));
	}

	/*
	 * Some systems have per-core sensors. Others have it on a per-die aka
	 * procnode basis. Check to see if the file exists before we attempt to
	 * do something.
	 */
	if (stat(buf, &st) != 0) {
		int32_t procnode;

		if (errno != ENOENT) {
			return (topo_mod_seterrno(mod, EMOD_UNKNOWN));
		}

		if (topo_prop_get_int32(pnode, PGNAME(CORE), CORE_PROCNODE_ID,
		    &procnode, &err) != 0) {
			return (topo_mod_seterrno(mod, err));
		}

		if (snprintf(buf, sizeof (buf), "%s/procnode.%d",
		    chip_sensor_base, procnode) >= sizeof (buf)) {
			return (topo_mod_seterrno(mod, EMOD_UNKNOWN));
		}
	}

	return (topo_sensor_create_scalar_sensor(mod, pnode, buf, "temp"));
}

int
chip_create_chip_temp_sensor(topo_mod_t *mod, tnode_t *pnode)
{
	int32_t chip;
	char buf[PATH_MAX];

	chip = topo_node_instance(pnode);

	if (snprintf(buf, sizeof (buf), "%s/chip%d", chip_sensor_base,
	    chip) >= sizeof (buf)) {
		return (topo_mod_seterrno(mod, EMOD_UNKNOWN));
	}

	return (topo_sensor_create_scalar_sensor(mod, pnode, buf, "temp"));
}