[libsigrok.git] / src / hardware / hp-3478a / api.c

/*
 * This file is part of the libsigrok project.
 *
 * Copyright (C) 2017-2021 Frank Stettner <frank-stettner@gmx.net>
 *
 * 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 "scpi.h"
#include "protocol.h"

static const uint32_t scanopts[] = {
	SR_CONF_CONN,
};

static const uint32_t drvopts[] = {
	SR_CONF_MULTIMETER,
};

static const uint32_t devopts[] = {
	SR_CONF_CONTINUOUS,
	SR_CONF_LIMIT_SAMPLES | SR_CONF_GET | SR_CONF_SET,
	SR_CONF_LIMIT_MSEC | SR_CONF_GET | SR_CONF_SET,
	SR_CONF_MEASURED_QUANTITY | SR_CONF_GET | SR_CONF_SET | SR_CONF_LIST,
	SR_CONF_RANGE | SR_CONF_GET | SR_CONF_SET | SR_CONF_LIST,
	SR_CONF_DIGITS | SR_CONF_GET | SR_CONF_SET | SR_CONF_LIST,
};

static const struct {
	enum sr_mq mq;
	enum sr_mqflag mqflag;
} mqopts[] = {
	{SR_MQ_VOLTAGE, SR_MQFLAG_DC},
	{SR_MQ_VOLTAGE, SR_MQFLAG_AC},
	{SR_MQ_CURRENT, SR_MQFLAG_DC},
	{SR_MQ_CURRENT, SR_MQFLAG_AC},
	{SR_MQ_RESISTANCE, 0},
	{SR_MQ_RESISTANCE, SR_MQFLAG_FOUR_WIRE},
};

static const struct {
	enum sr_mq mq;
	enum sr_mqflag mqflag;
	int range_exp;
	const char *range_str;
} rangeopts[] = {
	/* -99 is a dummy exponent for auto ranging. */
	{SR_MQ_VOLTAGE, SR_MQFLAG_DC,             -99,   "Auto"},
	{SR_MQ_VOLTAGE, SR_MQFLAG_DC,              -2,   "30mV"},
	{SR_MQ_VOLTAGE, SR_MQFLAG_DC,              -1,   "300mV"},
	{SR_MQ_VOLTAGE, SR_MQFLAG_DC,               0,   "3V"},
	{SR_MQ_VOLTAGE, SR_MQFLAG_DC,               1,   "30V"},
	{SR_MQ_VOLTAGE, SR_MQFLAG_DC,               2,   "300V"},
	/* -99 is a dummy exponent for auto ranging. */
	{SR_MQ_VOLTAGE, SR_MQFLAG_AC,             -99,   "Auto"},
	{SR_MQ_VOLTAGE, SR_MQFLAG_AC,              -1,   "300mV"},
	{SR_MQ_VOLTAGE, SR_MQFLAG_AC,               0,   "3V"},
	{SR_MQ_VOLTAGE, SR_MQFLAG_AC,               1,   "30V"},
	{SR_MQ_VOLTAGE, SR_MQFLAG_AC,               2,   "300V"},
	/* -99 is a dummy exponent for auto ranging. */
	{SR_MQ_CURRENT, SR_MQFLAG_DC,             -99,   "Auto"},
	{SR_MQ_CURRENT, SR_MQFLAG_DC,              -1,   "300mV"},
	{SR_MQ_CURRENT, SR_MQFLAG_DC,               0,   "3V"},
	/* -99 is a dummy exponent for auto ranging. */
	{SR_MQ_CURRENT, SR_MQFLAG_AC,             -99,   "Auto"},
	{SR_MQ_CURRENT, SR_MQFLAG_AC,              -1,   "300mV"},
	{SR_MQ_CURRENT, SR_MQFLAG_AC,               0,   "3V"},
	/* -99 is a dummy exponent for auto ranging. */
	{SR_MQ_RESISTANCE, 0,                     -99,   "Auto"},
	{SR_MQ_RESISTANCE, 0,                       1,   "30"},
	{SR_MQ_RESISTANCE, 0,                       2,   "300"},
	{SR_MQ_RESISTANCE, 0,                       3,   "3k"},
	{SR_MQ_RESISTANCE, 0,                       4,   "30k"},
	{SR_MQ_RESISTANCE, 0,                       5,   "300k"},
	{SR_MQ_RESISTANCE, 0,                       6,   "3M"},
	{SR_MQ_RESISTANCE, 0,                       7,   "30M"},
	/* -99 is a dummy exponent for auto ranging. */
	{SR_MQ_RESISTANCE, SR_MQFLAG_FOUR_WIRE,   -99,   "Auto"},
	{SR_MQ_RESISTANCE, SR_MQFLAG_FOUR_WIRE,     1,   "30R"},
	{SR_MQ_RESISTANCE, SR_MQFLAG_FOUR_WIRE,     2,   "300R"},
	{SR_MQ_RESISTANCE, SR_MQFLAG_FOUR_WIRE,     3,   "3kR"},
	{SR_MQ_RESISTANCE, SR_MQFLAG_FOUR_WIRE,     4,   "30kR"},
	{SR_MQ_RESISTANCE, SR_MQFLAG_FOUR_WIRE,     5,   "300kR"},
	{SR_MQ_RESISTANCE, SR_MQFLAG_FOUR_WIRE,     6,   "3MR"},
	{SR_MQ_RESISTANCE, SR_MQFLAG_FOUR_WIRE,     7,   "30MR"},
};

/** Available digits as strings. */
static const char *digits[] = {
	"3.5", "4.5", "5.5",
};

/** Mapping between devc->digits and digits string. */
static const char *digits_map[] = {
	"", "", "", "", "3.5", "4.5", "5.5",
};

static struct sr_dev_driver hp_3478a_driver_info;

static int create_front_channel(struct sr_dev_inst *sdi, int chan_idx)
{
	struct sr_channel *channel;
	struct channel_context *chanc;

	chanc = g_malloc(sizeof(*chanc));
	chanc->location = TERMINAL_FRONT;

	channel = sr_channel_new(sdi, chan_idx++, SR_CHANNEL_ANALOG, TRUE, "P1");
	channel->priv = chanc;

	return chan_idx;
}

static struct sr_dev_inst *probe_device(struct sr_scpi_dev_inst *scpi)
{
	int ret;
	struct sr_dev_inst *sdi;
	struct dev_context *devc;

	/*
	 * The device cannot get identified by means of SCPI queries.
	 * Neither shall non-SCPI requests get emitted before reliable
	 * identification of the device. Assume that we only get here
	 * when user specs led us to believe it's safe to communicate
	 * to the expected kind of device.
	 */

	sdi = g_malloc0(sizeof(struct sr_dev_inst));
	sdi->vendor = g_strdup("Hewlett-Packard");
	sdi->model = g_strdup("3478A");
	sdi->conn = scpi;
	sdi->driver = &hp_3478a_driver_info;
	sdi->inst_type = SR_INST_SCPI;

	devc = g_malloc0(sizeof(struct dev_context));
	sr_sw_limits_init(&devc->limits);
	sdi->priv = devc;

	/* Get actual status (function, digits, ...). */
	ret = hp_3478a_get_status_bytes(sdi);
	if (ret != SR_OK)
		return NULL;

	create_front_channel(sdi, 0);

	return sdi;
}

static GSList *scan(struct sr_dev_driver *di, GSList *options)
{
	const char *conn;

	/* Only scan for a device when conn= was specified. */
	conn = NULL;
	(void)sr_serial_extract_options(options, &conn, NULL);
	if (!conn)
		return NULL;

	return sr_scpi_scan(di->context, options, probe_device);
}

static int dev_open(struct sr_dev_inst *sdi)
{
	return sr_scpi_open(sdi->conn);
}

static int dev_close(struct sr_dev_inst *sdi)
{
	return sr_scpi_close(sdi->conn);
}

static int config_get(uint32_t key, GVariant **data,
	const struct sr_dev_inst *sdi, const struct sr_channel_group *cg)
{
	struct dev_context *devc;
	int ret;
	GVariant *arr[2];
	unsigned int i;
	const char *range_str;

	(void)cg;

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

	switch (key) {
	case SR_CONF_LIMIT_SAMPLES:
	case SR_CONF_LIMIT_MSEC:
		return sr_sw_limits_config_get(&devc->limits, key, data);
	case SR_CONF_MEASURED_QUANTITY:
		ret = hp_3478a_get_status_bytes(sdi);
		if (ret != SR_OK)
			return ret;
		arr[0] = g_variant_new_uint32(devc->measurement_mq);
		arr[1] = g_variant_new_uint64(devc->measurement_mq_flag);
		*data = g_variant_new_tuple(arr, 2);
		break;
	case SR_CONF_RANGE:
		ret = hp_3478a_get_status_bytes(sdi);
		if (ret != SR_OK)
			return ret;
		range_str = "Auto";
		for (i = 0; i < ARRAY_SIZE(rangeopts); i++) {
			if (rangeopts[i].mq == devc->measurement_mq &&
					rangeopts[i].mqflag == devc->measurement_mq_flag &&
					rangeopts[i].range_exp == devc->range_exp) {
				range_str = rangeopts[i].range_str;
				break;
			}
		}
		*data = g_variant_new_string(range_str);
		break;
	case SR_CONF_DIGITS:
		ret = hp_3478a_get_status_bytes(sdi);
		if (ret != SR_OK)
			return ret;
		*data = g_variant_new_string(digits_map[devc->digits]);
		break;
	default:
		return SR_ERR_NA;
	}

	return SR_OK;
}

static int config_set(uint32_t key, GVariant *data,
	const struct sr_dev_inst *sdi, const struct sr_channel_group *cg)
{
	struct dev_context *devc;
	enum sr_mq mq;
	enum sr_mqflag mq_flags;
	GVariant *tuple_child;
	unsigned int i;
	const char *range_str;
	const char *digits_str;

	(void)cg;

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

	switch (key) {
	case SR_CONF_LIMIT_SAMPLES:
	case SR_CONF_LIMIT_MSEC:
		return sr_sw_limits_config_set(&devc->limits, key, data);
	case SR_CONF_MEASURED_QUANTITY:
		tuple_child = g_variant_get_child_value(data, 0);
		mq = g_variant_get_uint32(tuple_child);
		g_variant_unref(tuple_child);
		tuple_child = g_variant_get_child_value(data, 1);
		mq_flags = g_variant_get_uint64(tuple_child);
		g_variant_unref(tuple_child);
		return hp_3478a_set_mq(sdi, mq, mq_flags);
	case SR_CONF_RANGE:
		range_str = g_variant_get_string(data, NULL);
		for (i = 0; i < ARRAY_SIZE(rangeopts); i++) {
			if (rangeopts[i].mq == devc->measurement_mq &&
					rangeopts[i].mqflag == devc->measurement_mq_flag &&
					g_strcmp0(rangeopts[i].range_str, range_str) == 0) {
				return hp_3478a_set_range(sdi, rangeopts[i].range_exp);
			}
		}
		return SR_ERR_NA;
	case SR_CONF_DIGITS:
		digits_str = g_variant_get_string(data, NULL);
		for (i = 0; i < ARRAY_SIZE(rangeopts); i++) {
			if (g_strcmp0(digits_map[i], digits_str) == 0)
				return hp_3478a_set_digits(sdi, i);
		}
		return SR_ERR_NA;
	default:
		return SR_ERR_NA;
	}

	return SR_OK;
}

static int config_list(uint32_t key, GVariant **data,
	const struct sr_dev_inst *sdi, const struct sr_channel_group *cg)
{
	struct dev_context *devc;
	int ret;
	unsigned int i;
	GVariant *gvar, *arr[2];
	GVariantBuilder gvb;

	/* Only handle standard keys when no device instance is given. */
	if (!sdi)
		return STD_CONFIG_LIST(key, data, sdi, cg, scanopts, drvopts, devopts);

	devc = sdi->priv;

	switch (key) {
	case SR_CONF_SCAN_OPTIONS:
	case SR_CONF_DEVICE_OPTIONS:
		return STD_CONFIG_LIST(key, data, sdi, cg, scanopts, drvopts, devopts);
	case SR_CONF_MEASURED_QUANTITY:
		/*
		 * TODO: move to std.c as
		 *       SR_PRIV GVariant *std_gvar_measured_quantities()
		 */
		g_variant_builder_init(&gvb, G_VARIANT_TYPE_ARRAY);
		for (i = 0; i < ARRAY_SIZE(mqopts); i++) {
			arr[0] = g_variant_new_uint32(mqopts[i].mq);
			arr[1] = g_variant_new_uint64(mqopts[i].mqflag);
			gvar = g_variant_new_tuple(arr, 2);
			g_variant_builder_add_value(&gvb, gvar);
		}
		*data = g_variant_builder_end(&gvb);
		break;
	case SR_CONF_RANGE:
		ret = hp_3478a_get_status_bytes(sdi);
		if (ret != SR_OK)
			return ret;
		g_variant_builder_init(&gvb, G_VARIANT_TYPE_ARRAY);
		for (i = 0; i < ARRAY_SIZE(rangeopts); i++) {
			if (rangeopts[i].mq == devc->measurement_mq &&
					rangeopts[i].mqflag == devc->measurement_mq_flag) {
				g_variant_builder_add(&gvb, "s", rangeopts[i].range_str);
			}
		}
		*data = g_variant_builder_end(&gvb);
		break;
	case SR_CONF_DIGITS:
		*data = g_variant_new_strv(ARRAY_AND_SIZE(digits));
		break;
	default:
		return SR_ERR_NA;
	}

	return SR_OK;
}

static int dev_acquisition_start(const struct sr_dev_inst *sdi)
{
	struct sr_scpi_dev_inst *scpi;
	struct dev_context *devc;

	scpi = sdi->conn;
	devc = sdi->priv;

	sr_sw_limits_acquisition_start(&devc->limits);
	std_session_send_df_header(sdi);

	/*
	 * NOTE: For faster readings, there are some things one can do:
	 *     - Turn off the display: sr_scpi_send(scpi, "D3SIGROK").
	 *     - Set the line frequency to 60Hz via switch (back of the unit).
	 *     - Set to 3.5 digits measurement.
	 */

	/* Set to internal trigger. */
	sr_scpi_send(scpi, "T1");
	/* Get device status. */
	hp_3478a_get_status_bytes(sdi);

	return sr_scpi_source_add(sdi->session, scpi, G_IO_IN, 100,
			hp_3478a_receive_data, (void *)sdi);
}

static int dev_acquisition_stop(struct sr_dev_inst *sdi)
{
	struct sr_scpi_dev_inst *scpi;

	scpi = sdi->conn;

	sr_scpi_source_remove(sdi->session, scpi);
	std_session_send_df_end(sdi);

	/* Set to internal trigger. */
	sr_scpi_send(scpi, "T1");
	/* Turn on display. */
	sr_scpi_send(scpi, "D1");

	return SR_OK;
}

static struct sr_dev_driver hp_3478a_driver_info = {
	.name = "hp-3478a",
	.longname = "HP 3478A",
	.api_version = 1,
	.init = std_init,
	.cleanup = std_cleanup,
	.scan = scan,
	.dev_list = std_dev_list,
	.dev_clear = std_dev_clear,
	.config_get = config_get,
	.config_set = config_set,
	.config_list = config_list,
	.dev_open = dev_open,
	.dev_close = dev_close,
	.dev_acquisition_start = dev_acquisition_start,
	.dev_acquisition_stop = dev_acquisition_stop,
	.context = NULL,
};
SR_REGISTER_DEV_DRIVER(hp_3478a_driver_info);
Commit	Line	Data
1d9eebf4 FS	1	/*
	2	* This file is part of the libsigrok project.
	3	*
569165c0	4	* Copyright (C) 2017-2021 Frank Stettner <frank-stettner@gmx.net>
1d9eebf4 FS	5	*
	6	* This program is free software: you can redistribute it and/or modify
	7	* it under the terms of the GNU General Public License as published by
	8	* the Free Software Foundation, either version 3 of the License, or
	9	* (at your option) any later version.
	10	*
	11	* This program is distributed in the hope that it will be useful,
	12	* but WITHOUT ANY WARRANTY; without even the implied warranty of
	13	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	14	* GNU General Public License for more details.
	15	*
	16	* You should have received a copy of the GNU General Public License
	17	* along with this program. If not, see <http://www.gnu.org/licenses/>.
	18	*/
	19
	20	#include <config.h>
d2c1730a	21	#include "scpi.h"
1d9eebf4 FS	22	#include "protocol.h"
1d9eebf4 FS	23
d2c1730a FS	24	static const uint32_t scanopts[] = {
	25	SR_CONF_CONN,
	26	};
	27
	28	static const uint32_t drvopts[] = {
	29	SR_CONF_MULTIMETER,
	30	};
	31
	32	static const uint32_t devopts[] = {
	33	SR_CONF_CONTINUOUS,
	34	SR_CONF_LIMIT_SAMPLES \| SR_CONF_GET \| SR_CONF_SET,
	35	SR_CONF_LIMIT_MSEC \| SR_CONF_GET \| SR_CONF_SET,
	36	SR_CONF_MEASURED_QUANTITY \| SR_CONF_GET \| SR_CONF_SET \| SR_CONF_LIST,
e5137b93	37	SR_CONF_RANGE \| SR_CONF_GET \| SR_CONF_SET \| SR_CONF_LIST,
7812a5c8	38	SR_CONF_DIGITS \| SR_CONF_GET \| SR_CONF_SET \| SR_CONF_LIST,
d2c1730a FS	39	};
	40
	41	static const struct {
	42	enum sr_mq mq;
	43	enum sr_mqflag mqflag;
	44	} mqopts[] = {
	45	{SR_MQ_VOLTAGE, SR_MQFLAG_DC},
e5137b93	46	{SR_MQ_VOLTAGE, SR_MQFLAG_AC},
d2c1730a	47	{SR_MQ_CURRENT, SR_MQFLAG_DC},
e5137b93	48	{SR_MQ_CURRENT, SR_MQFLAG_AC},
d2c1730a	49	{SR_MQ_RESISTANCE, 0},
d2c1730a	50	{SR_MQ_RESISTANCE, SR_MQFLAG_FOUR_WIRE},
e5137b93 FS	51	};
e5137b93 FS	52
e5137b93 FS	53	static const struct {
	54	enum sr_mq mq;
	55	enum sr_mqflag mqflag;
	56	int range_exp;
	57	const char *range_str;
	58	} rangeopts[] = {
	59	/* -99 is a dummy exponent for auto ranging. */
	60	{SR_MQ_VOLTAGE, SR_MQFLAG_DC, -99, "Auto"},
	61	{SR_MQ_VOLTAGE, SR_MQFLAG_DC, -2, "30mV"},
	62	{SR_MQ_VOLTAGE, SR_MQFLAG_DC, -1, "300mV"},
	63	{SR_MQ_VOLTAGE, SR_MQFLAG_DC, 0, "3V"},
	64	{SR_MQ_VOLTAGE, SR_MQFLAG_DC, 1, "30V"},
	65	{SR_MQ_VOLTAGE, SR_MQFLAG_DC, 2, "300V"},
	66	/* -99 is a dummy exponent for auto ranging. */
	67	{SR_MQ_VOLTAGE, SR_MQFLAG_AC, -99, "Auto"},
	68	{SR_MQ_VOLTAGE, SR_MQFLAG_AC, -1, "300mV"},
	69	{SR_MQ_VOLTAGE, SR_MQFLAG_AC, 0, "3V"},
	70	{SR_MQ_VOLTAGE, SR_MQFLAG_AC, 1, "30V"},
	71	{SR_MQ_VOLTAGE, SR_MQFLAG_AC, 2, "300V"},
	72	/* -99 is a dummy exponent for auto ranging. */
	73	{SR_MQ_CURRENT, SR_MQFLAG_DC, -99, "Auto"},
	74	{SR_MQ_CURRENT, SR_MQFLAG_DC, -1, "300mV"},
	75	{SR_MQ_CURRENT, SR_MQFLAG_DC, 0, "3V"},
	76	/* -99 is a dummy exponent for auto ranging. */
	77	{SR_MQ_CURRENT, SR_MQFLAG_AC, -99, "Auto"},
	78	{SR_MQ_CURRENT, SR_MQFLAG_AC, -1, "300mV"},
	79	{SR_MQ_CURRENT, SR_MQFLAG_AC, 0, "3V"},
	80	/* -99 is a dummy exponent for auto ranging. */
	81	{SR_MQ_RESISTANCE, 0, -99, "Auto"},
	82	{SR_MQ_RESISTANCE, 0, 1, "30"},
	83	{SR_MQ_RESISTANCE, 0, 2, "300"},
	84	{SR_MQ_RESISTANCE, 0, 3, "3k"},
	85	{SR_MQ_RESISTANCE, 0, 4, "30k"},
	86	{SR_MQ_RESISTANCE, 0, 5, "300k"},
	87	{SR_MQ_RESISTANCE, 0, 6, "3M"},
	88	{SR_MQ_RESISTANCE, 0, 7, "30M"},
	89	/* -99 is a dummy exponent for auto ranging. */
	90	{SR_MQ_RESISTANCE, SR_MQFLAG_FOUR_WIRE, -99, "Auto"},
	91	{SR_MQ_RESISTANCE, SR_MQFLAG_FOUR_WIRE, 1, "30R"},
	92	{SR_MQ_RESISTANCE, SR_MQFLAG_FOUR_WIRE, 2, "300R"},
	93	{SR_MQ_RESISTANCE, SR_MQFLAG_FOUR_WIRE, 3, "3kR"},
	94	{SR_MQ_RESISTANCE, SR_MQFLAG_FOUR_WIRE, 4, "30kR"},
	95	{SR_MQ_RESISTANCE, SR_MQFLAG_FOUR_WIRE, 5, "300kR"},
	96	{SR_MQ_RESISTANCE, SR_MQFLAG_FOUR_WIRE, 6, "3MR"},
	97	{SR_MQ_RESISTANCE, SR_MQFLAG_FOUR_WIRE, 7, "30MR"},
d2c1730a FS	98	};
d2c1730a FS	99
7812a5c8 FS	100	/** Available digits as strings. */
	101	static const char *digits[] = {
	102	"3.5", "4.5", "5.5",
	103	};
	104
c8260fa8	105	/** Mapping between devc->digits and digits string. */
7812a5c8 FS	106	static const char *digits_map[] = {
	107	"", "", "", "", "3.5", "4.5", "5.5",
	108	};
	109
3f34a402	110	static struct sr_dev_driver hp_3478a_driver_info;
d2c1730a FS	111
d2c1730a FS	112	static int create_front_channel(struct sr_dev_inst *sdi, int chan_idx)
1d9eebf4	113	{
d2c1730a FS	114	struct sr_channel *channel;
d2c1730a FS	115	struct channel_context *chanc;
1d9eebf4	116
d2c1730a FS	117	chanc = g_malloc(sizeof(*chanc));
d2c1730a FS	118	chanc->location = TERMINAL_FRONT;
1d9eebf4	119
d2c1730a FS	120	channel = sr_channel_new(sdi, chan_idx++, SR_CHANNEL_ANALOG, TRUE, "P1");
d2c1730a FS	121	channel->priv = chanc;
1d9eebf4	122
d2c1730a FS	123	return chan_idx;
d2c1730a FS	124	}
1d9eebf4	125
d2c1730a FS	126	static struct sr_dev_inst probe_device(struct sr_scpi_dev_inst scpi)
	127	{
	128	int ret;
	129	struct sr_dev_inst *sdi;
	130	struct dev_context *devc;
	131
8ef4fb33 FS	132	/*
	133	* The device cannot get identified by means of SCPI queries.
	134	* Neither shall non-SCPI requests get emitted before reliable
	135	* identification of the device. Assume that we only get here
	136	* when user specs led us to believe it's safe to communicate
	137	* to the expected kind of device.
	138	*/
	139
d2c1730a FS	140	sdi = g_malloc0(sizeof(struct sr_dev_inst));
	141	sdi->vendor = g_strdup("Hewlett-Packard");
	142	sdi->model = g_strdup("3478A");
	143	sdi->conn = scpi;
	144	sdi->driver = &hp_3478a_driver_info;
	145	sdi->inst_type = SR_INST_SCPI;
	146
	147	devc = g_malloc0(sizeof(struct dev_context));
	148	sr_sw_limits_init(&devc->limits);
	149	sdi->priv = devc;
	150
	151	/* Get actual status (function, digits, ...). */
	152	ret = hp_3478a_get_status_bytes(sdi);
	153	if (ret != SR_OK)
	154	return NULL;
	155
	156	create_front_channel(sdi, 0);
	157
	158	return sdi;
	159	}
	160
	161	static GSList scan(struct sr_dev_driver di, GSList *options)
	162	{
8ef4fb33 FS	163	const char *conn;
	164
	165	/* Only scan for a device when conn= was specified. */
	166	conn = NULL;
	167	(void)sr_serial_extract_options(options, &conn, NULL);
	168	if (!conn)
	169	return NULL;
	170
d2c1730a	171	return sr_scpi_scan(di->context, options, probe_device);
1d9eebf4 FS	172	}
	173
	174	static int dev_open(struct sr_dev_inst *sdi)
	175	{
04c4a677	176	return sr_scpi_open(sdi->conn);
1d9eebf4 FS	177	}
	178
	179	static int dev_close(struct sr_dev_inst *sdi)
	180	{
04c4a677	181	return sr_scpi_close(sdi->conn);
1d9eebf4 FS	182	}
	183
	184	static int config_get(uint32_t key, GVariant **data,
	185	const struct sr_dev_inst sdi, const struct sr_channel_group cg)
	186	{
d2c1730a	187	struct dev_context *devc;
1d9eebf4	188	int ret;
d2c1730a	189	GVariant *arr[2];
e5137b93 FS	190	unsigned int i;
e5137b93 FS	191	const char *range_str;
1d9eebf4	192
1d9eebf4 FS	193	(void)cg;
1d9eebf4 FS	194
dd143eb2 FS	195	if (!sdi)
dd143eb2 FS	196	return SR_ERR_ARG;
2881eef6	197	devc = sdi->priv;
d2c1730a	198
1d9eebf4	199	switch (key) {
d2c1730a FS	200	case SR_CONF_LIMIT_SAMPLES:
	201	case SR_CONF_LIMIT_MSEC:
	202	return sr_sw_limits_config_get(&devc->limits, key, data);
	203	case SR_CONF_MEASURED_QUANTITY:
	204	ret = hp_3478a_get_status_bytes(sdi);
	205	if (ret != SR_OK)
	206	return ret;
	207	arr[0] = g_variant_new_uint32(devc->measurement_mq);
569165c0	208	arr[1] = g_variant_new_uint64(devc->measurement_mq_flag);
d2c1730a FS	209	*data = g_variant_new_tuple(arr, 2);
d2c1730a FS	210	break;
e5137b93 FS	211	case SR_CONF_RANGE:
	212	ret = hp_3478a_get_status_bytes(sdi);
	213	if (ret != SR_OK)
	214	return ret;
	215	range_str = "Auto";
	216	for (i = 0; i < ARRAY_SIZE(rangeopts); i++) {
	217	if (rangeopts[i].mq == devc->measurement_mq &&
569165c0	218	rangeopts[i].mqflag == devc->measurement_mq_flag &&
e5137b93 FS	219	rangeopts[i].range_exp == devc->range_exp) {
	220	range_str = rangeopts[i].range_str;
	221	break;
	222	}
	223	}
	224	*data = g_variant_new_string(range_str);
	225	break;
7812a5c8 FS	226	case SR_CONF_DIGITS:
	227	ret = hp_3478a_get_status_bytes(sdi);
	228	if (ret != SR_OK)
	229	return ret;
c8260fa8	230	*data = g_variant_new_string(digits_map[devc->digits]);
7812a5c8	231	break;
1d9eebf4 FS	232	default:
	233	return SR_ERR_NA;
	234	}
	235
d2c1730a	236	return SR_OK;
1d9eebf4 FS	237	}
	238
	239	static int config_set(uint32_t key, GVariant *data,
	240	const struct sr_dev_inst sdi, const struct sr_channel_group cg)
	241	{
d2c1730a FS	242	struct dev_context *devc;
	243	enum sr_mq mq;
	244	enum sr_mqflag mq_flags;
	245	GVariant *tuple_child;
e5137b93 FS	246	unsigned int i;
e5137b93 FS	247	const char *range_str;
7812a5c8	248	const char *digits_str;
1d9eebf4	249
1d9eebf4 FS	250	(void)cg;
1d9eebf4 FS	251
dd143eb2 FS	252	if (!sdi)
dd143eb2 FS	253	return SR_ERR_ARG;
2881eef6	254	devc = sdi->priv;
d2c1730a	255
1d9eebf4	256	switch (key) {
d2c1730a FS	257	case SR_CONF_LIMIT_SAMPLES:
	258	case SR_CONF_LIMIT_MSEC:
	259	return sr_sw_limits_config_set(&devc->limits, key, data);
	260	case SR_CONF_MEASURED_QUANTITY:
	261	tuple_child = g_variant_get_child_value(data, 0);
	262	mq = g_variant_get_uint32(tuple_child);
883db4da	263	g_variant_unref(tuple_child);
d2c1730a FS	264	tuple_child = g_variant_get_child_value(data, 1);
	265	mq_flags = g_variant_get_uint64(tuple_child);
	266	g_variant_unref(tuple_child);
	267	return hp_3478a_set_mq(sdi, mq, mq_flags);
e5137b93 FS	268	case SR_CONF_RANGE:
	269	range_str = g_variant_get_string(data, NULL);
	270	for (i = 0; i < ARRAY_SIZE(rangeopts); i++) {
	271	if (rangeopts[i].mq == devc->measurement_mq &&
569165c0	272	rangeopts[i].mqflag == devc->measurement_mq_flag &&
e5137b93 FS	273	g_strcmp0(rangeopts[i].range_str, range_str) == 0) {
	274	return hp_3478a_set_range(sdi, rangeopts[i].range_exp);
	275	}
	276	}
	277	return SR_ERR_NA;
7812a5c8 FS	278	case SR_CONF_DIGITS:
	279	digits_str = g_variant_get_string(data, NULL);
	280	for (i = 0; i < ARRAY_SIZE(rangeopts); i++) {
	281	if (g_strcmp0(digits_map[i], digits_str) == 0)
	282	return hp_3478a_set_digits(sdi, i);
	283	}
	284	return SR_ERR_NA;
1d9eebf4	285	default:
d2c1730a	286	return SR_ERR_NA;
1d9eebf4 FS	287	}
1d9eebf4 FS	288
d2c1730a	289	return SR_OK;
1d9eebf4 FS	290	}
	291
	292	static int config_list(uint32_t key, GVariant **data,
	293	const struct sr_dev_inst sdi, const struct sr_channel_group cg)
	294	{
e5137b93 FS	295	struct dev_context *devc;
e5137b93 FS	296	int ret;
d2c1730a FS	297	unsigned int i;
	298	GVariant gvar, arr[2];
	299	GVariantBuilder gvb;
1d9eebf4	300
dd143eb2 FS	301	/* Only handle standard keys when no device instance is given. */
	302	if (!sdi)
	303	return STD_CONFIG_LIST(key, data, sdi, cg, scanopts, drvopts, devopts);
	304
2881eef6	305	devc = sdi->priv;
e5137b93	306
1d9eebf4	307	switch (key) {
d2c1730a FS	308	case SR_CONF_SCAN_OPTIONS:
	309	case SR_CONF_DEVICE_OPTIONS:
	310	return STD_CONFIG_LIST(key, data, sdi, cg, scanopts, drvopts, devopts);
	311	case SR_CONF_MEASURED_QUANTITY:
	312	/*
	313	* TODO: move to std.c as
	314	* SR_PRIV GVariant *std_gvar_measured_quantities()
	315	*/
	316	g_variant_builder_init(&gvb, G_VARIANT_TYPE_ARRAY);
	317	for (i = 0; i < ARRAY_SIZE(mqopts); i++) {
	318	arr[0] = g_variant_new_uint32(mqopts[i].mq);
	319	arr[1] = g_variant_new_uint64(mqopts[i].mqflag);
	320	gvar = g_variant_new_tuple(arr, 2);
	321	g_variant_builder_add_value(&gvb, gvar);
	322	}
	323	*data = g_variant_builder_end(&gvb);
	324	break;
e5137b93 FS	325	case SR_CONF_RANGE:
	326	ret = hp_3478a_get_status_bytes(sdi);
	327	if (ret != SR_OK)
	328	return ret;
	329	g_variant_builder_init(&gvb, G_VARIANT_TYPE_ARRAY);
	330	for (i = 0; i < ARRAY_SIZE(rangeopts); i++) {
	331	if (rangeopts[i].mq == devc->measurement_mq &&
569165c0	332	rangeopts[i].mqflag == devc->measurement_mq_flag) {
e5137b93 FS	333	g_variant_builder_add(&gvb, "s", rangeopts[i].range_str);
	334	}
	335	}
	336	*data = g_variant_builder_end(&gvb);
	337	break;
7812a5c8 FS	338	case SR_CONF_DIGITS:
	339	*data = g_variant_new_strv(ARRAY_AND_SIZE(digits));
	340	break;
1d9eebf4 FS	341	default:
	342	return SR_ERR_NA;
	343	}
	344
d2c1730a	345	return SR_OK;
1d9eebf4 FS	346	}
	347
	348	static int dev_acquisition_start(const struct sr_dev_inst *sdi)
	349	{
d2c1730a FS	350	struct sr_scpi_dev_inst *scpi;
	351	struct dev_context *devc;
	352
	353	scpi = sdi->conn;
	354	devc = sdi->priv;
1d9eebf4	355
d2c1730a FS	356	sr_sw_limits_acquisition_start(&devc->limits);
	357	std_session_send_df_header(sdi);
	358
	359	/*
	360	* NOTE: For faster readings, there are some things one can do:
	361	* - Turn off the display: sr_scpi_send(scpi, "D3SIGROK").
	362	* - Set the line frequency to 60Hz via switch (back of the unit).
7812a5c8	363	* - Set to 3.5 digits measurement.
d2c1730a FS	364	*/
	365
	366	/* Set to internal trigger. */
	367	sr_scpi_send(scpi, "T1");
	368	/* Get device status. */
	369	hp_3478a_get_status_bytes(sdi);
	370
04c4a677	371	return sr_scpi_source_add(sdi->session, scpi, G_IO_IN, 100,
d2c1730a	372	hp_3478a_receive_data, (void *)sdi);
1d9eebf4 FS	373	}
	374
	375	static int dev_acquisition_stop(struct sr_dev_inst *sdi)
	376	{
d2c1730a FS	377	struct sr_scpi_dev_inst *scpi;
	378
	379	scpi = sdi->conn;
	380
	381	sr_scpi_source_remove(sdi->session, scpi);
	382	std_session_send_df_end(sdi);
1d9eebf4	383
d2c1730a FS	384	/* Set to internal trigger. */
	385	sr_scpi_send(scpi, "T1");
	386	/* Turn on display. */
	387	sr_scpi_send(scpi, "D1");
1d9eebf4 FS	388
	389	return SR_OK;
	390	}
	391
3f34a402	392	static struct sr_dev_driver hp_3478a_driver_info = {
1d9eebf4 FS	393	.name = "hp-3478a",
	394	.longname = "HP 3478A",
	395	.api_version = 1,
	396	.init = std_init,
	397	.cleanup = std_cleanup,
	398	.scan = scan,
	399	.dev_list = std_dev_list,
	400	.dev_clear = std_dev_clear,
	401	.config_get = config_get,
	402	.config_set = config_set,
	403	.config_list = config_list,
	404	.dev_open = dev_open,
	405	.dev_close = dev_close,
	406	.dev_acquisition_start = dev_acquisition_start,
	407	.dev_acquisition_stop = dev_acquisition_stop,
	408	.context = NULL,
	409	};
1d9eebf4	410	SR_REGISTER_DEV_DRIVER(hp_3478a_driver_info);