scpi-pps: Use thread safe SCPI functions, return float not double.

[libsigrok.git] / src / hardware / scpi-pps / protocol.c

/*
 * This file is part of the libsigrok project.
 *
 * Copyright (C) 2014 Bert Vermeulen <bert@biot.com>
 *
 * This program 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.
 *
 * 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.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */

#include <config.h>
#include <string.h>
#include <strings.h>
#include <stdarg.h>
#include "scpi.h"
#include "protocol.h"

SR_PRIV int select_channel(const struct sr_dev_inst *sdi, struct sr_channel *ch)
{
	struct dev_context *devc;
	struct pps_channel *cur_pch, *new_pch;
	int ret;

	if (g_slist_length(sdi->channels) == 1)
		return SR_OK;

	devc = sdi->priv;
	if (ch == devc->cur_channel)
		return SR_OK;

	new_pch = ch->priv;
	if (devc->cur_channel) {
		cur_pch = devc->cur_channel->priv;
		if (cur_pch->hw_output_idx == new_pch->hw_output_idx) {
			/* Same underlying output channel. */
			devc->cur_channel = ch;
			return SR_OK;
		}
	}

	if ((ret = sr_scpi_cmd(sdi, devc->device->commands, SCPI_CMD_SELECT_CHANNEL,
			new_pch->hwname)) >= 0)
		devc->cur_channel = ch;

	return ret;
}

SR_PRIV int scpi_pps_receive_data(int fd, int revents, void *cb_data)
{
	struct dev_context *devc;
	struct sr_datafeed_packet packet;
	struct sr_datafeed_analog analog;
	struct sr_analog_encoding encoding;
	struct sr_analog_meaning meaning;
	struct sr_analog_spec spec;
	const struct sr_dev_inst *sdi;
	struct sr_channel *next_channel;
	struct pps_channel *pch;
	const struct channel_spec *ch_spec;
	int ret;
	float f;
	GVariant *gvdata;
	const GVariantType *gvtype;
	int cmd;

	(void)fd;
	(void)revents;

	if (!(sdi = cb_data))
		return TRUE;

	if (!(devc = sdi->priv))
		return TRUE;

	pch = devc->cur_channel->priv;
	if (pch->mq == SR_MQ_VOLTAGE) {
		gvtype = G_VARIANT_TYPE_DOUBLE;
		cmd = SCPI_CMD_GET_MEAS_VOLTAGE;
	} else if (pch->mq == SR_MQ_FREQUENCY) {
		gvtype = G_VARIANT_TYPE_DOUBLE;
		cmd = SCPI_CMD_GET_MEAS_FREQUENCY;
	} else if (pch->mq == SR_MQ_CURRENT) {
		gvtype = G_VARIANT_TYPE_DOUBLE;
		cmd = SCPI_CMD_GET_MEAS_CURRENT;
	} else if (pch->mq == SR_MQ_POWER) {
		gvtype = G_VARIANT_TYPE_DOUBLE;
		cmd = SCPI_CMD_GET_MEAS_POWER;
	} else {
		return SR_ERR;
	}

	//sr_scpi_cmd(sdi, devc->device->commands, cmd, pch->hwname); <- api.c 1x called
	//sr_scpi_cmd(sdi, devc->device->commands, cmd); <- protocol.c xx called
	ret = sr_scpi_cmd_resp(sdi, devc->device->commands, &gvdata, gvtype, cmd);
	if (ret != SR_OK)
		return ret;

	ch_spec = &devc->device->channels[pch->hw_output_idx];
	packet.type = SR_DF_ANALOG;
	packet.payload = &analog;
	/* Note: digits/spec_digits will be overridden later. */
	sr_analog_init(&analog, &encoding, &meaning, &spec, 0);
	analog.meaning->channels = g_slist_append(NULL, devc->cur_channel);
	analog.num_samples = 1;
	analog.meaning->mq = pch->mq;
	if (pch->mq == SR_MQ_VOLTAGE) {
		analog.meaning->unit = SR_UNIT_VOLT;
		analog.encoding->digits = ch_spec->voltage[4];
		analog.spec->spec_digits = ch_spec->voltage[3];
	} else if (pch->mq == SR_MQ_CURRENT) {
		analog.meaning->unit = SR_UNIT_AMPERE;
		analog.encoding->digits = ch_spec->current[4];
		analog.spec->spec_digits = ch_spec->current[3];
	} else if (pch->mq == SR_MQ_POWER) {
		analog.meaning->unit = SR_UNIT_WATT;
		analog.encoding->digits = ch_spec->power[4];
		analog.spec->spec_digits = ch_spec->power[3];
	}
	analog.meaning->mqflags = SR_MQFLAG_DC;
	f = (float)g_variant_get_double(gvdata);
	analog.data = &f;
	sr_session_send(sdi, &packet);
	g_slist_free(analog.meaning->channels);

	if (g_slist_length(sdi->channels) > 1) {
		next_channel = sr_next_enabled_channel(sdi, devc->cur_channel);
		if (select_channel(sdi, next_channel) != SR_OK) {
			sr_err("Failed to select channel %s", next_channel->name);
			return FALSE;
		}
	}

	return TRUE;
}