[libsigrok.git] / src / hardware / kern-scale / api.c

/*
 * This file is part of the libsigrok project.
 *
 * Copyright (C) 2015 Uwe Hermann <uwe@hermann-uwe.de>
 *
 * 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 2 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, write to the Free Software
 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
 */

#include <glib.h>
#include <libsigrok/libsigrok.h>
#include "libsigrok-internal.h"
#include "protocol.h"

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

static const uint32_t devopts[] = {
	SR_CONF_SCALE,
	SR_CONF_CONTINUOUS,
	SR_CONF_LIMIT_SAMPLES | SR_CONF_SET,
	SR_CONF_LIMIT_MSEC | SR_CONF_SET,
};

static int dev_clear(const struct sr_dev_driver *di)
{
	return std_dev_clear(di, NULL);
}

static int init(struct sr_dev_driver *di, struct sr_context *sr_ctx)
{
	return std_init(sr_ctx, di, LOG_PREFIX);
}

static GSList *scan(struct sr_dev_driver *di, GSList *options)
{
	struct scale_info *scale;
	struct sr_config *src;
	GSList *l, *devices;
	const char *conn, *serialcomm;
	struct sr_dev_inst *sdi;
	struct drv_context *drvc;
	struct dev_context *devc;
	struct sr_serial_dev_inst *serial;
	int ret;
	size_t len;
	uint8_t buf[128];

	scale = (struct scale_info *)di;

	conn = serialcomm = NULL;
	for (l = options; l; l = l->next) {
		src = l->data;
		switch (src->key) {
		case SR_CONF_CONN:
			conn = g_variant_get_string(src->data, NULL);
			break;
		case SR_CONF_SERIALCOMM:
			serialcomm = g_variant_get_string(src->data, NULL);
			break;
		}
	}
	if (!conn)
		return NULL;

	if (!serialcomm)
		serialcomm = scale->conn;

	serial = sr_serial_dev_inst_new(conn, serialcomm);

	if (serial_open(serial, SERIAL_RDWR) != SR_OK)
		return NULL;

	sr_info("Probing serial port %s.", conn);

	drvc = di->context;
	devices = NULL;
	serial_flush(serial);

	sr_spew("Set O1 mode (continuous values, stable and unstable ones).");
	if (serial_write_nonblocking(serial, "O1\r\n", 4) != 4)
		goto scan_cleanup;
	/* Device replies with "A00\r\n" (OK) or "E01\r\n" (Error). Ignore. */

	/* Let's get a bit of data and see if we can find a packet. */
	len = sizeof(buf);
	ret = serial_stream_detect(serial, buf, &len, scale->packet_size,
				   scale->packet_valid, 3000, scale->baudrate);
	if (ret != SR_OK)
		goto scan_cleanup;

	sr_info("Found device on port %s.", conn);

	sdi = g_malloc0(sizeof(struct sr_dev_inst));
	sdi->status = SR_ST_INACTIVE;
	sdi->vendor = g_strdup(scale->vendor);
	sdi->model = g_strdup(scale->device);
	devc = g_malloc0(sizeof(struct dev_context));
	sdi->inst_type = SR_INST_SERIAL;
	sdi->conn = serial;
	sdi->priv = devc;
	sdi->driver = di;
	sr_channel_new(sdi, 0, SR_CHANNEL_ANALOG, TRUE, "Mass");
	drvc->instances = g_slist_append(drvc->instances, sdi);
	devices = g_slist_append(devices, sdi);

scan_cleanup:
	serial_close(serial);

	return devices;
}

static GSList *dev_list(const struct sr_dev_driver *di)
{
	return ((struct drv_context *)(di->context))->instances;
}

static int cleanup(const struct sr_dev_driver *di)
{
	return dev_clear(di);
}

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;

	(void)cg;

	if (sdi->status != SR_ST_ACTIVE)
		return SR_ERR_DEV_CLOSED;

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

	switch (key) {
	case SR_CONF_LIMIT_SAMPLES:
		devc->limit_samples = g_variant_get_uint64(data);
		break;
	case SR_CONF_LIMIT_MSEC:
		devc->limit_msec = g_variant_get_uint64(data);
		break;
	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)
{
	(void)sdi;
	(void)cg;

	switch (key) {
	case SR_CONF_SCAN_OPTIONS:
		*data = g_variant_new_fixed_array(G_VARIANT_TYPE_UINT32,
			scanopts, ARRAY_SIZE(scanopts), sizeof(uint32_t));
		break;
	case SR_CONF_DEVICE_OPTIONS:
		*data = g_variant_new_fixed_array(G_VARIANT_TYPE_UINT32,
			devopts, ARRAY_SIZE(devopts), sizeof(uint32_t));
		break;
	default:
		return SR_ERR_NA;
	}

	return SR_OK;
}

static int dev_acquisition_start(const struct sr_dev_inst *sdi, void *cb_data)
{
	struct dev_context *devc;
	struct sr_serial_dev_inst *serial;

	if (sdi->status != SR_ST_ACTIVE)
		return SR_ERR_DEV_CLOSED;

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

	devc->cb_data = cb_data;

	serial = sdi->conn;

	sr_spew("Set O1 mode (continuous values, stable and unstable ones).");
	if (serial_write_nonblocking(serial, "O1\r\n", 4) != 4)
		return SR_ERR;
	/* Device replies with "A00\r\n" (OK) or "E01\r\n" (Error). Ignore. */

	devc->num_samples = 0;
	devc->starttime = g_get_monotonic_time();

	/* Send header packet to the session bus. */
	std_session_send_df_header(cb_data, LOG_PREFIX);

	/* Poll every 50ms, or whenever some data comes in. */
	serial_source_add(sdi->session, serial, G_IO_IN, 50,
		      kern_scale_receive_data, (void *)sdi);

	return SR_OK;
}

static int dev_acquisition_stop(struct sr_dev_inst *sdi, void *cb_data)
{
	return std_serial_dev_acquisition_stop(sdi, cb_data, std_serial_dev_close,
			sdi->conn, LOG_PREFIX);
}

#define SCALE(ID, CHIPSET, VENDOR, MODEL, CONN, BAUDRATE, PACKETSIZE, \
			VALID, PARSE) \
	&(struct scale_info) { \
		{ \
			.name = ID, \
			.longname = VENDOR " " MODEL, \
			.api_version = 1, \
			.init = init, \
			.cleanup = cleanup, \
			.scan = scan, \
			.dev_list = dev_list, \
			.dev_clear = dev_clear, \
			.config_get = NULL, \
			.config_set = config_set, \
			.config_list = config_list, \
			.dev_open = std_serial_dev_open, \
			.dev_close = std_serial_dev_close, \
			.dev_acquisition_start = dev_acquisition_start, \
			.dev_acquisition_stop = dev_acquisition_stop, \
			.context = NULL, \
		}, \
		VENDOR, MODEL, CONN, BAUDRATE, PACKETSIZE, \
		VALID, PARSE, sizeof(struct CHIPSET##_info) \
	}

/*
 * Some scales have (user-configurable) 14-byte or 15-byte packets.
 * We transparently support both variants by specifying the larger value
 * below and due to the way the stream parser works.
 *
 * The scales have a standard baudrate (model dependent) as listed below,
 * but serial parameters are user-configurable. We support that by letting
 * the user override them via "serialcomm".
 */

SR_PRIV const struct scale_info *kern_scale_drivers[] = {
	SCALE(
		"kern-ew-6200-2nm", kern,
		"KERN", "EW 6200-2NM", "1200/8n2", 1200,
		15 /* (or 14) */, sr_kern_packet_valid, sr_kern_parse
	),
	NULL
};
Commit	Line	Data
9380ec2f UH	1	/*
	2	* This file is part of the libsigrok project.
	3	*
	4	* Copyright (C) 2015 Uwe Hermann <uwe@hermann-uwe.de>
	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 2 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, write to the Free Software
	18	* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
	19	*/
	20
607dcdea UH	21	#include <glib.h>
	22	#include <libsigrok/libsigrok.h>
	23	#include "libsigrok-internal.h"
9380ec2f UH	24	#include "protocol.h"
9380ec2f UH	25
607dcdea UH	26	static const uint32_t scanopts[] = {
	27	SR_CONF_CONN,
	28	SR_CONF_SERIALCOMM,
	29	};
	30
	31	static const uint32_t devopts[] = {
	32	SR_CONF_SCALE,
	33	SR_CONF_CONTINUOUS,
	34	SR_CONF_LIMIT_SAMPLES \| SR_CONF_SET,
	35	SR_CONF_LIMIT_MSEC \| SR_CONF_SET,
	36	};
	37
	38	static int dev_clear(const struct sr_dev_driver *di)
	39	{
	40	return std_dev_clear(di, NULL);
	41	}
9380ec2f UH	42
	43	static int init(struct sr_dev_driver di, struct sr_context sr_ctx)
	44	{
	45	return std_init(sr_ctx, di, LOG_PREFIX);
	46	}
	47
	48	static GSList scan(struct sr_dev_driver di, GSList *options)
	49	{
607dcdea UH	50	struct scale_info *scale;
	51	struct sr_config *src;
	52	GSList l, devices;
	53	const char conn, serialcomm;
	54	struct sr_dev_inst *sdi;
9380ec2f	55	struct drv_context *drvc;
607dcdea UH	56	struct dev_context *devc;
	57	struct sr_serial_dev_inst *serial;
	58	int ret;
	59	size_t len;
	60	uint8_t buf[128];
	61
	62	scale = (struct scale_info *)di;
	63
	64	conn = serialcomm = NULL;
	65	for (l = options; l; l = l->next) {
	66	src = l->data;
	67	switch (src->key) {
	68	case SR_CONF_CONN:
	69	conn = g_variant_get_string(src->data, NULL);
	70	break;
	71	case SR_CONF_SERIALCOMM:
	72	serialcomm = g_variant_get_string(src->data, NULL);
	73	break;
	74	}
	75	}
	76	if (!conn)
	77	return NULL;
9380ec2f	78
607dcdea UH	79	if (!serialcomm)
607dcdea UH	80	serialcomm = scale->conn;
9380ec2f	81
607dcdea	82	serial = sr_serial_dev_inst_new(conn, serialcomm);
9380ec2f	83
607dcdea UH	84	if (serial_open(serial, SERIAL_RDWR) != SR_OK)
607dcdea UH	85	return NULL;
9380ec2f	86
607dcdea	87	sr_info("Probing serial port %s.", conn);
9380ec2f	88
607dcdea UH	89	drvc = di->context;
	90	devices = NULL;
	91	serial_flush(serial);
9380ec2f	92
607dcdea UH	93	sr_spew("Set O1 mode (continuous values, stable and unstable ones).");
	94	if (serial_write_nonblocking(serial, "O1\r\n", 4) != 4)
	95	goto scan_cleanup;
	96	/* Device replies with "A00\r\n" (OK) or "E01\r\n" (Error). Ignore. */
9380ec2f	97
607dcdea UH	98	/* Let's get a bit of data and see if we can find a packet. */
	99	len = sizeof(buf);
	100	ret = serial_stream_detect(serial, buf, &len, scale->packet_size,
	101	scale->packet_valid, 3000, scale->baudrate);
	102	if (ret != SR_OK)
	103	goto scan_cleanup;
9380ec2f	104
607dcdea	105	sr_info("Found device on port %s.", conn);
9380ec2f	106
607dcdea	107	sdi = g_malloc0(sizeof(struct sr_dev_inst));
9380ec2f	108	sdi->status = SR_ST_INACTIVE;
607dcdea UH	109	sdi->vendor = g_strdup(scale->vendor);
	110	sdi->model = g_strdup(scale->device);
	111	devc = g_malloc0(sizeof(struct dev_context));
	112	sdi->inst_type = SR_INST_SERIAL;
	113	sdi->conn = serial;
	114	sdi->priv = devc;
	115	sdi->driver = di;
	116	sr_channel_new(sdi, 0, SR_CHANNEL_ANALOG, TRUE, "Mass");
	117	drvc->instances = g_slist_append(drvc->instances, sdi);
	118	devices = g_slist_append(devices, sdi);
	119
	120	scan_cleanup:
	121	serial_close(serial);
9380ec2f	122
607dcdea	123	return devices;
9380ec2f UH	124	}
9380ec2f UH	125
607dcdea	126	static GSList dev_list(const struct sr_dev_driver di)
9380ec2f	127	{
607dcdea	128	return ((struct drv_context *)(di->context))->instances;
9380ec2f UH	129	}
9380ec2f UH	130
607dcdea	131	static int cleanup(const struct sr_dev_driver *di)
9380ec2f	132	{
607dcdea	133	return dev_clear(di);
9380ec2f UH	134	}
	135
	136	static int config_set(uint32_t key, GVariant data, const struct sr_dev_inst sdi,
	137	const struct sr_channel_group *cg)
	138	{
607dcdea	139	struct dev_context *devc;
9380ec2f	140
9380ec2f UH	141	(void)cg;
	142
	143	if (sdi->status != SR_ST_ACTIVE)
	144	return SR_ERR_DEV_CLOSED;
	145
607dcdea UH	146	if (!(devc = sdi->priv))
	147	return SR_ERR_BUG;
	148
9380ec2f	149	switch (key) {
607dcdea UH	150	case SR_CONF_LIMIT_SAMPLES:
	151	devc->limit_samples = g_variant_get_uint64(data);
	152	break;
	153	case SR_CONF_LIMIT_MSEC:
	154	devc->limit_msec = g_variant_get_uint64(data);
	155	break;
9380ec2f	156	default:
607dcdea	157	return SR_ERR_NA;
9380ec2f UH	158	}
9380ec2f UH	159
607dcdea	160	return SR_OK;
9380ec2f UH	161	}
	162
	163	static int config_list(uint32_t key, GVariant *data, const struct sr_dev_inst sdi,
	164	const struct sr_channel_group *cg)
	165	{
9380ec2f	166	(void)sdi;
9380ec2f UH	167	(void)cg;
9380ec2f UH	168
9380ec2f	169	switch (key) {
607dcdea UH	170	case SR_CONF_SCAN_OPTIONS:
	171	*data = g_variant_new_fixed_array(G_VARIANT_TYPE_UINT32,
	172	scanopts, ARRAY_SIZE(scanopts), sizeof(uint32_t));
	173	break;
	174	case SR_CONF_DEVICE_OPTIONS:
	175	*data = g_variant_new_fixed_array(G_VARIANT_TYPE_UINT32,
	176	devopts, ARRAY_SIZE(devopts), sizeof(uint32_t));
	177	break;
9380ec2f UH	178	default:
	179	return SR_ERR_NA;
	180	}
	181
607dcdea	182	return SR_OK;
9380ec2f UH	183	}
	184
	185	static int dev_acquisition_start(const struct sr_dev_inst sdi, void cb_data)
	186	{
607dcdea UH	187	struct dev_context *devc;
607dcdea UH	188	struct sr_serial_dev_inst *serial;
9380ec2f UH	189
	190	if (sdi->status != SR_ST_ACTIVE)
	191	return SR_ERR_DEV_CLOSED;
	192
607dcdea UH	193	if (!(devc = sdi->priv))
	194	return SR_ERR_BUG;
	195
	196	devc->cb_data = cb_data;
	197
	198	serial = sdi->conn;
	199
	200	sr_spew("Set O1 mode (continuous values, stable and unstable ones).");
	201	if (serial_write_nonblocking(serial, "O1\r\n", 4) != 4)
	202	return SR_ERR;
	203	/* Device replies with "A00\r\n" (OK) or "E01\r\n" (Error). Ignore. */
	204
	205	devc->num_samples = 0;
	206	devc->starttime = g_get_monotonic_time();
	207
	208	/* Send header packet to the session bus. */
	209	std_session_send_df_header(cb_data, LOG_PREFIX);
	210
	211	/* Poll every 50ms, or whenever some data comes in. */
	212	serial_source_add(sdi->session, serial, G_IO_IN, 50,
	213	kern_scale_receive_data, (void *)sdi);
	214
9380ec2f UH	215	return SR_OK;
	216	}
	217
	218	static int dev_acquisition_stop(struct sr_dev_inst sdi, void cb_data)
	219	{
607dcdea UH	220	return std_serial_dev_acquisition_stop(sdi, cb_data, std_serial_dev_close,
	221	sdi->conn, LOG_PREFIX);
	222	}
9380ec2f	223
607dcdea UH	224	#define SCALE(ID, CHIPSET, VENDOR, MODEL, CONN, BAUDRATE, PACKETSIZE, \
	225	VALID, PARSE) \
	226	&(struct scale_info) { \
	227	{ \
	228	.name = ID, \
	229	.longname = VENDOR " " MODEL, \
	230	.api_version = 1, \
	231	.init = init, \
	232	.cleanup = cleanup, \
	233	.scan = scan, \
	234	.dev_list = dev_list, \
	235	.dev_clear = dev_clear, \
	236	.config_get = NULL, \
	237	.config_set = config_set, \
	238	.config_list = config_list, \
	239	.dev_open = std_serial_dev_open, \
	240	.dev_close = std_serial_dev_close, \
	241	.dev_acquisition_start = dev_acquisition_start, \
	242	.dev_acquisition_stop = dev_acquisition_stop, \
	243	.context = NULL, \
	244	}, \
	245	VENDOR, MODEL, CONN, BAUDRATE, PACKETSIZE, \
	246	VALID, PARSE, sizeof(struct CHIPSET##_info) \
	247	}
9380ec2f	248
607dcdea UH	249	/*
	250	* Some scales have (user-configurable) 14-byte or 15-byte packets.
	251	* We transparently support both variants by specifying the larger value
	252	* below and due to the way the stream parser works.
	253	*
	254	* The scales have a standard baudrate (model dependent) as listed below,
	255	* but serial parameters are user-configurable. We support that by letting
	256	* the user override them via "serialcomm".
	257	*/
9380ec2f	258
607dcdea UH	259	SR_PRIV const struct scale_info *kern_scale_drivers[] = {
	260	SCALE(
	261	"kern-ew-6200-2nm", kern,
	262	"KERN", "EW 6200-2NM", "1200/8n2", 1200,
	263	15 /* (or 14) */, sr_kern_packet_valid, sr_kern_parse
	264	),
	265	NULL
9380ec2f	266	};