/************************************************************************
 * This file is part of trayfreq-archlinux.                             *
 *                                                                      *
 * trayfreq-archlinux is free software; you can redistribute it and/or  *
 * modify it under the terms of the GNU General Public License as       *
 * published by the Free Software Foundation; either version 3 of the   *
 * License, or (at your option) any later version.                      *
 *                                                                      *
 * trayfreq-archlinux is distributed in the hope that it will be useful,*
 * but WITHOUT ANY WARRANTY; without even the implied warranty of       *
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the        *
 * GNU General Public License for more details.                         *
 *                                                                      *
 * You should have received a copy of the GNU General Public License    *
 * along with trayfreq-archlinux. If not, see                           *
 * <http://www.gnu.org/licenses/>.                                      *
 ************************************************************************/

#include "getfreq.h"
#include "getcore.h"
#include "common.h"

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <glib.h>

/* [CORE][FREQUENCY NUMBER] */
char freqs[999][50][13];
int total_freqs;


/***********************************************************************
 * Initialise surrounding variables, get available freqs etc
 **********************************************************************/
void gf_init()
{
	gchar freq_string[500];

	int i = 0;
	for(i = 0; i < gc_number(); i++)
	{
		memset(freq_string, '\0', sizeof(freq_string) );

		// Get available governor freqs. If no governor, try next cpu
		if (gf_available(i, freq_string, sizeof(freq_string) ) == -1)
		{
			debug("Couldn't find freq scaling on core %d\n",i);
			continue;
		}

		// freq_string is a space separated list of freqs so
		// iterate over each frequency in freq_string
		gchar* curr = &freq_string[0];
		gchar* end_of_curr = g_strstr_len(curr, strlen(curr), " ");
		while(end_of_curr)
		{
			// TO DO : get rid of magic constants
			memset(freqs[i][total_freqs], '\0', 13); // TO DO: get rid of magic constant 13
			memmove(freqs[i][total_freqs], curr, end_of_curr - curr);

			curr = end_of_curr+1;
			end_of_curr = g_strstr_len(curr, strlen(curr), " ");
			total_freqs++;
		}
	}
	debug("Found %d frequencies\n",total_freqs);
}

/***********************************************************************
 * Return current frequency for core
 **********************************************************************/
int gf_current(int core)
{
	FILE* fd;
	char buff[13];
	char path[80];
	int freq;

	sprintf(path, "/sys/devices/system/cpu/cpu%d/cpufreq/scaling_cur_freq", core);

	if(!(fd = fopen(path, "r")))
	{
		debug("Couldn't open '%s'\n",path);
		return -1;
	}

	fgets(buff, 13, fd);

	freq = atoi(buff);
	fclose(fd);
	debug("Found freq %d on core %d\n",freq,core);
	return freq;
}


/***********************************************************************
 * Populate out with available frequencies for core
 **********************************************************************/
int gf_available(int core, char* out, int size)
{
	FILE* fd;
	char path[80];

	sprintf(path, "/sys/devices/system/cpu/cpu%d/cpufreq/scaling_available_frequencies", core);

	if(!(fd = fopen(path, "r")))
	{
		debug("Couldn't open '%s'\n",path);
		return -1;
	}

	fgets(out, size, fd);

	fclose(fd);
	return 0;
}

/***********************************************************************
 * Populate out with a formatted, units-added freq label for freq
 **********************************************************************/
void gf_get_frequency_label(int freq, char* out)
{
	if(freq >= 1000000) // >= 1 million KHz (1GHz)
		sprintf(out, "%.2f GHz", ((float)freq/1000000) );
	else
		sprintf(out, "%.2d MHz", freq/1000);

	debug("Prepared freq label '%s' for freq %d\n",out,freq);
}

/***********************************************************************
 * Return freq value at index for core, as a string
 **********************************************************************/
char* gf_freqa(int core, int index)
{
	return freqs[core][index];
}

/***********************************************************************
 * Return freq value at index for core, as an int
 **********************************************************************/
int gf_freqi(int core, int index)
{
	return atoi(gf_freqa(core, index));
}

/***********************************************************************
 * Return total number of frequencies
 **********************************************************************/
int gf_number()
{
	return total_freqs;
}