forked from enlightenment/enlightenment
parent
b70f5a0ecc
commit
6eb29844c6
|
@ -0,0 +1,410 @@
|
|||
/*
|
||||
* vim:ts=8:sw=3:sts=8:noexpandtab:cino=>5n-3f0^-2{2
|
||||
*/
|
||||
#include "e.h"
|
||||
#include "e_mod_main.h"
|
||||
|
||||
#ifdef __FreeBSD__
|
||||
#include <sys/types.h>
|
||||
#include <sys/sysctl.h>
|
||||
#endif
|
||||
|
||||
static int sensor_type = SENSOR_TYPE_NONE;
|
||||
static char *sensor_name = NULL;
|
||||
static int poll_interval = 32;
|
||||
static int cur_poll_interval = 32;
|
||||
|
||||
static char *sensor_path = NULL;
|
||||
#ifdef __FreeBSD__
|
||||
static int mib[5];
|
||||
#endif
|
||||
static Ecore_Poller *poller = NULL;
|
||||
static int ptemp = 0;
|
||||
static int have_temp = 0;
|
||||
|
||||
static void init(void);
|
||||
static int check(void);
|
||||
static int poll_cb(void *data);
|
||||
|
||||
Ecore_List *
|
||||
temperature_get_i2c_files()
|
||||
{
|
||||
Ecore_List *result;
|
||||
Ecore_List *therms;
|
||||
char path[PATH_MAX];
|
||||
|
||||
result = ecore_list_new();
|
||||
if (result)
|
||||
{
|
||||
ecore_list_free_cb_set(result, free);
|
||||
/* Look through all the i2c devices. */
|
||||
therms = ecore_file_ls("/sys/bus/i2c/devices");
|
||||
if (therms)
|
||||
{
|
||||
char *name;
|
||||
|
||||
while ((name = ecore_list_next(therms)))
|
||||
{
|
||||
Ecore_List *files;
|
||||
|
||||
/* Search each device for temp*_input, these should be
|
||||
* i2c temperature devices. */
|
||||
snprintf(path, sizeof(path),
|
||||
"/sys/bus/i2c/devices/%s", name);
|
||||
files = ecore_file_ls(path);
|
||||
if (files)
|
||||
{
|
||||
char *file;
|
||||
|
||||
while ((file = ecore_list_next(files)))
|
||||
{
|
||||
if ((!strncmp("temp", file, 4)) &&
|
||||
(!strcmp("_input", &file[strlen(file) - 6])))
|
||||
{
|
||||
char *f;
|
||||
|
||||
snprintf(path, sizeof(path),
|
||||
"/sys/bus/i2c/devices/%s/%s",
|
||||
name, file);
|
||||
f = strdup(path);
|
||||
if (f) ecore_list_append(result, f);
|
||||
}
|
||||
}
|
||||
ecore_list_destroy(files);
|
||||
}
|
||||
}
|
||||
ecore_list_destroy(therms);
|
||||
}
|
||||
ecore_list_first_goto(result);
|
||||
}
|
||||
return result;
|
||||
}
|
||||
|
||||
static void
|
||||
init(void)
|
||||
{
|
||||
Ecore_List *therms;
|
||||
char path[PATH_MAX];
|
||||
#ifdef __FreeBSD__
|
||||
int len;
|
||||
#endif
|
||||
|
||||
if ((!sensor_type) || ((!sensor_name) || (sensor_name[0] == 0)))
|
||||
{
|
||||
if (sensor_name) free(sensor_name);
|
||||
if (sensor_path) free(sensor_path);
|
||||
sensor_path = NULL;
|
||||
#ifdef __FreeBSD__
|
||||
/* TODO: FreeBSD can also have more temperature sensors! */
|
||||
sensor_type = SENSOR_TYPE_FREEBSD;
|
||||
sensor_name = strdup("tz0");
|
||||
#else
|
||||
therms = ecore_file_ls("/proc/acpi/thermal_zone");
|
||||
if ((therms) && (!ecore_list_empty_is(therms)))
|
||||
{
|
||||
char *name;
|
||||
|
||||
name = ecore_list_next(therms);
|
||||
sensor_type = SENSOR_TYPE_LINUX_ACPI;
|
||||
sensor_name = strdup(name);
|
||||
ecore_list_destroy(therms);
|
||||
}
|
||||
else
|
||||
{
|
||||
if (therms) ecore_list_destroy(therms);
|
||||
if (ecore_file_exists("/proc/omnibook/temperature"))
|
||||
{
|
||||
sensor_type = SENSOR_TYPE_OMNIBOOK;
|
||||
sensor_name = strdup("dummy");
|
||||
}
|
||||
else if (ecore_file_exists("/sys/devices/temperatures/sensor1_temperature"))
|
||||
{
|
||||
sensor_type = SENSOR_TYPE_LINUX_PBOOK;
|
||||
sensor_name = strdup("dummy");
|
||||
}
|
||||
else if (ecore_file_exists("/sys/devices/temperatures/cpu_temperature"))
|
||||
{
|
||||
sensor_type = SENSOR_TYPE_LINUX_MACMINI;
|
||||
sensor_name = strdup("dummy");
|
||||
}
|
||||
else if (ecore_file_exists("/sys/devices/platform/coretemp.0/temp1_input"))
|
||||
{
|
||||
sensor_type = SENSOR_TYPE_LINUX_INTELCORETEMP;
|
||||
sensor_name = strdup("dummy");
|
||||
}
|
||||
else
|
||||
{
|
||||
therms = temperature_get_i2c_files();
|
||||
if (therms)
|
||||
{
|
||||
char *name;
|
||||
|
||||
if ((name = ecore_list_next(therms)))
|
||||
{
|
||||
if (ecore_file_exists(name))
|
||||
{
|
||||
int len;
|
||||
|
||||
snprintf(path, sizeof(path),
|
||||
"%s", ecore_file_file_get(name));
|
||||
len = strlen(path);
|
||||
if (len > 6) path[len - 6] = '\0';
|
||||
sensor_type = SENSOR_TYPE_LINUX_I2C;
|
||||
sensor_path = strdup(name);
|
||||
sensor_name = strdup(path);
|
||||
}
|
||||
}
|
||||
ecore_list_destroy(therms);
|
||||
}
|
||||
}
|
||||
}
|
||||
#endif
|
||||
}
|
||||
if ((sensor_type) && (sensor_name) && (!sensor_path))
|
||||
{
|
||||
switch (sensor_type)
|
||||
{
|
||||
case SENSOR_TYPE_NONE:
|
||||
break;
|
||||
case SENSOR_TYPE_FREEBSD:
|
||||
#ifdef __FreeBSD__
|
||||
snprintf(path, sizeof(path), "hw.acpi.thermal.%s.temperature",
|
||||
sensor_name);
|
||||
sensor_path = strdup(path);
|
||||
len = 5;
|
||||
sysctlnametomib(sensor_path, mib, &len);
|
||||
#endif
|
||||
break;
|
||||
case SENSOR_TYPE_OMNIBOOK:
|
||||
sensor_path = strdup("/proc/omnibook/temperature");
|
||||
break;
|
||||
case SENSOR_TYPE_LINUX_MACMINI:
|
||||
sensor_path = strdup("/sys/devices/temperatures/cpu_temperature");
|
||||
break;
|
||||
case SENSOR_TYPE_LINUX_PBOOK:
|
||||
sensor_path = strdup("/sys/devices/temperatures/sensor1_temperature");
|
||||
break;
|
||||
case SENSOR_TYPE_LINUX_INTELCORETEMP:
|
||||
sensor_path = strdup("/sys/devices/platform/coretemp.0/temp1_input");
|
||||
break;
|
||||
case SENSOR_TYPE_LINUX_I2C:
|
||||
therms = ecore_file_ls("/sys/bus/i2c/devices");
|
||||
if (therms)
|
||||
{
|
||||
char *name;
|
||||
|
||||
while ((name = ecore_list_next(therms)))
|
||||
{
|
||||
snprintf(path, sizeof(path),
|
||||
"/sys/bus/i2c/devices/%s/%s_input",
|
||||
name, sensor_name);
|
||||
if (ecore_file_exists(path))
|
||||
{
|
||||
sensor_path = strdup(path);
|
||||
/* We really only care about the first
|
||||
* one for the default. */
|
||||
break;
|
||||
}
|
||||
}
|
||||
ecore_list_destroy(therms);
|
||||
}
|
||||
break;
|
||||
case SENSOR_TYPE_LINUX_ACPI:
|
||||
snprintf(path, sizeof(path),
|
||||
"/proc/acpi/thermal_zone/%s/temperature",
|
||||
sensor_name);
|
||||
sensor_path = strdup(path);
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
static int
|
||||
check(void)
|
||||
{
|
||||
FILE *f;
|
||||
int ret = 0;
|
||||
int temp = 0;
|
||||
char buf[PATH_MAX];
|
||||
#ifdef __FreeBSD__
|
||||
int len;
|
||||
#endif
|
||||
|
||||
/* TODO: Make standard parser. Seems to be two types of temperature string:
|
||||
* - Somename: <temp> C
|
||||
* - <temp>
|
||||
*/
|
||||
switch (sensor_type)
|
||||
{
|
||||
case SENSOR_TYPE_NONE:
|
||||
/* TODO: Slow down poller? */
|
||||
break;
|
||||
case SENSOR_TYPE_FREEBSD:
|
||||
#ifdef __FreeBSD__
|
||||
len = sizeof(temp);
|
||||
if (sysctl(mib, 5, &temp, &len, NULL, 0) != -1)
|
||||
{
|
||||
temp = (temp - 2732) / 10;
|
||||
ret = 1;
|
||||
}
|
||||
else
|
||||
goto error;
|
||||
#endif
|
||||
break;
|
||||
case SENSOR_TYPE_OMNIBOOK:
|
||||
f = fopen(sensor_path, "r");
|
||||
if (f)
|
||||
{
|
||||
char dummy[4096];
|
||||
|
||||
fgets(buf, sizeof(buf), f); buf[sizeof(buf) - 1] = 0;
|
||||
if (sscanf(buf, "%s %s %i", dummy, dummy, &temp) == 3)
|
||||
ret = 1;
|
||||
else
|
||||
goto error;
|
||||
fclose(f);
|
||||
}
|
||||
else
|
||||
goto error;
|
||||
break;
|
||||
case SENSOR_TYPE_LINUX_MACMINI:
|
||||
case SENSOR_TYPE_LINUX_PBOOK:
|
||||
f = fopen(sensor_path, "rb");
|
||||
if (f)
|
||||
{
|
||||
fgets(buf, sizeof(buf), f); buf[sizeof(buf) - 1] = 0;
|
||||
if (sscanf(buf, "%i", &temp) == 1)
|
||||
ret = 1;
|
||||
else
|
||||
goto error;
|
||||
fclose(f);
|
||||
}
|
||||
else
|
||||
goto error;
|
||||
break;
|
||||
case SENSOR_TYPE_LINUX_INTELCORETEMP:
|
||||
case SENSOR_TYPE_LINUX_I2C:
|
||||
f = fopen(sensor_path, "r");
|
||||
if (f)
|
||||
{
|
||||
fgets(buf, sizeof(buf), f);
|
||||
buf[sizeof(buf) - 1] = 0;
|
||||
|
||||
/* actually read the temp */
|
||||
if (sscanf(buf, "%i", &temp) == 1)
|
||||
ret = 1;
|
||||
else
|
||||
goto error;
|
||||
/* Hack for temp */
|
||||
temp = temp / 1000;
|
||||
fclose(f);
|
||||
}
|
||||
else
|
||||
goto error;
|
||||
break;
|
||||
case SENSOR_TYPE_LINUX_ACPI:
|
||||
f = fopen(sensor_path, "r");
|
||||
if (f)
|
||||
{
|
||||
char *p, *q;
|
||||
fgets(buf, sizeof(buf), f); buf[sizeof(buf) - 1] = 0;
|
||||
fclose(f);
|
||||
p = strchr(buf, ':');
|
||||
if (p)
|
||||
{
|
||||
p++;
|
||||
while (*p == ' ') p++;
|
||||
q = strchr(p, ' ');
|
||||
if (q) *q = 0;
|
||||
temp = atoi(p);
|
||||
ret = 1;
|
||||
}
|
||||
else
|
||||
goto error;
|
||||
}
|
||||
else
|
||||
goto error;
|
||||
break;
|
||||
}
|
||||
|
||||
if (ret) return temp;
|
||||
|
||||
return -999;
|
||||
error:
|
||||
sensor_type = SENSOR_TYPE_NONE;
|
||||
if (sensor_name) free(sensor_name);
|
||||
sensor_name = NULL;
|
||||
if (sensor_path) free(sensor_path);
|
||||
sensor_path = NULL;
|
||||
return -999;
|
||||
}
|
||||
|
||||
static int
|
||||
poll_cb(void *data)
|
||||
{
|
||||
int t;
|
||||
int pp;
|
||||
|
||||
t = check();
|
||||
pp = cur_poll_interval;
|
||||
if (t != ptemp)
|
||||
{
|
||||
cur_poll_interval /= 2;
|
||||
if (cur_poll_interval < 4) cur_poll_interval = 4;
|
||||
}
|
||||
else
|
||||
{
|
||||
cur_poll_interval *= 2;
|
||||
if (cur_poll_interval > 256) cur_poll_interval = 256;
|
||||
}
|
||||
/* adapt polling based on if temp changes - every time it changes,
|
||||
* halve the time between polls, otherwise double it, between 4 and
|
||||
* 256 ticks */
|
||||
if (pp != cur_poll_interval)
|
||||
{
|
||||
if (poller) ecore_poller_del(poller);
|
||||
poller = ecore_poller_add(ECORE_POLLER_CORE, cur_poll_interval,
|
||||
poll_cb, NULL);
|
||||
}
|
||||
if (t != ptemp)
|
||||
{
|
||||
if (t == -999) printf("ERROR\n");
|
||||
else printf("%i\n", t);
|
||||
fflush(stdout);
|
||||
}
|
||||
ptemp = t;
|
||||
return 1;
|
||||
}
|
||||
|
||||
int
|
||||
main(int argc, char *argv[])
|
||||
{
|
||||
if (argc != 4)
|
||||
{
|
||||
printf("ARGS INCORRECT!\n");
|
||||
return 0;
|
||||
}
|
||||
sensor_type = atoi(argv[1]);
|
||||
sensor_name = strdup(argv[2]);
|
||||
if (!strcmp(sensor_name, "(null)"))
|
||||
{
|
||||
free(sensor_name);
|
||||
sensor_name = NULL;
|
||||
}
|
||||
poll_interval = atoi(argv[3]);
|
||||
cur_poll_interval = poll_interval;
|
||||
|
||||
ecore_init();
|
||||
|
||||
init();
|
||||
|
||||
if (poller) ecore_poller_del(poller);
|
||||
poller= ecore_poller_add(ECORE_POLLER_CORE, cur_poll_interval,
|
||||
poll_cb, NULL);
|
||||
poll_cb(NULL);
|
||||
|
||||
ecore_main_loop_begin();
|
||||
ecore_shutdown();
|
||||
|
||||
return 0;
|
||||
}
|
Loading…
Reference in New Issue