/* Soil Sensor Data Decoding Module
 * Sensiplicity Systems
 * 
 *  Copyright 2015
 * 
 *  Department of Botany and Plant Pathology
 *  Center for Genome Research and Biocomputing
 *  Oregon State University
 *  Corvallis, OR 97331
 * 
 * This program is not free software; you can not redistribute it and/or
 * modify it at all.
 * 
 * This program 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. */
#include "soil-sensor.h"
#include "sense-net.h"

/* Type codes for soil sensors. */
const int TYPECODE_SOIL_1ZONE = 1;
const int TYPECODE_SOIL_2ZONE = 2;
const int TYPECODE_SOIL_4ZONE = 4;

/* Print a block of memory to the given stream as a hexadecimal constant, prefixed with "0x". */
static void print_hex_stream(FILE *stream, char *data, int size){
	if(0 == size)return;
	fprintf(stream, "0x");
	for(int i=0;i<size;i++){
		fprintf(stream, "%02hhX", data[i]);
	}
}

/* Print a CSV column header row to the given file. */
void soil_print_header(FILE *stream){
	fprintf(stream, "Node_Typecode, Type_Description, Bus, Node_ID, ");
	fprintf(stream, "Humidity_%%, Ambient_Temp_C, Soil_Temp_C, Light_%%, Idle_Voltage_V, Sending_Voltage_V, "
	                "Uptime_s, Measurement_Time_s, "
			"Number_of_Zones, Moisture_Zone0, Moisture_Zone1, Moisture_Zone2, Moisture_Zone3\n");
}

/* Parse data from a soil sensor and print a CSV line to the given file.
 * On success, 0 is returned. On error (wrong number of bytes), -1 is returned. */
int soil_parse_data(FILE *stream, int bus, node_t node, uint8_t *packet_data, uint8_t data_size){
	if(NULL == stream || NULL == node || NULL == packet_data || data_size != 27)return -1;
	struct measurement_data_t {
		float humidity; /* Ambient relative humidity. 0=0%, 4096=100% */
		float temp_ambient; /* Ambient temperature, in 1/16 (.125) degrees Celsius. */
		float temp_soil; /* Soil temperature, in 1/16 (.125) degrees Celsius. */
		float light; /* Current light level. 1-65535 (lower values indicate brighter light). */
		
		float volt_idle; /* Idle supply voltage, in 1/32 volt increments. (160 = 5V). */
		float volt_send; /* Supply voltage during transmission, 1/32 volt increments. (160 = 5V).
				* This is set internally by this module. */
		uint32_t uptime; /* Number of seconds since this sensor was powered on.
				* This field is set internally by this module. */
		uint32_t mtime; /* Uptime value at the time of measurement. */
		
		uint8_t zones; /* Number of zones present on this sensor node. */
		float moisture_z0; /* Moisture level in zone 0. Calibration TBD. */
		float moisture_z1; /* Moisture level in zone 1. Calibration TBD. */
		float moisture_z2; /* Moisture level in zone 2. Calibration TBD. */
		float moisture_z3; /* Moisture level in zone 3. Calibration TBD. */
	} m;
	m.humidity = (float) sn_uint16(packet_data, 0) / 40.96;
	m.temp_ambient = ((int16_t) sn_uint16(packet_data, 2)) * .0625;
	m.temp_soil = ((int16_t) sn_uint16(packet_data, 4)) * .0625;
	m.light = (65535.0 - (float) sn_uint16(packet_data, 6)) / 655.35;
	
	m.volt_idle = packet_data[8] * (1.0/32);
	m.volt_send = packet_data[9] * (1.0/32);
	
	m.uptime = sn_uint32(packet_data, 10);
	m.mtime = sn_uint32(packet_data, 14);
	
	m.zones = packet_data[18];
	m.moisture_z0 = sn_uint16(packet_data, 19);
	m.moisture_z1 = sn_uint16(packet_data, 21);
	m.moisture_z2 = sn_uint16(packet_data, 23);
	m.moisture_z3 = sn_uint16(packet_data, 25);
	
	int typecode;
	switch(m.zones){
		case 1:
			typecode = TYPECODE_SOIL_1ZONE;
			break;
		case 2:
			typecode = TYPECODE_SOIL_2ZONE;
			break;
		case 4:
			typecode = TYPECODE_SOIL_4ZONE;
			break;
		default:
			typecode = 0;
			break;
	}
	fprintf(stream, "%#06X, %s, %d, ", typecode,  sn_type_str(typecode), bus);
	print_hex_stream(stream, (char *) node, 9);
	fprintf(stream, ", ");
	
	fprintf(stream, "%3.1f, %3.2f, %3.2f, %3.2f, ", m.humidity, m.temp_ambient, m.temp_soil, m.light);
	fprintf(stream, "%01.2f, %01.2f, ", m.volt_idle, m.volt_send);
	fprintf(stream, "%u, %u, ", m.uptime, m.mtime);
	fprintf(stream, "%d, %3.0f,", m.zones, m.moisture_z0);
	if(m.zones > 1){
		fprintf(stream, " %3.1f,", m.moisture_z1);
	} else {
		fprintf(stream, ",");
	}
	if(m.zones > 2){
		fprintf(stream, " %3.1f,", m.moisture_z2);
	} else {
		fprintf(stream, ",");
	}
	if(m.zones > 3){
		fprintf(stream, " %3.1f\n", m.moisture_z3);
	} else {
		fprintf(stream, "\n");
	}
	
	return 0;
}