[libsigrok.git] / src / hardware / pipistrello-ols / protocol.c

/*
 * This file is part of the libsigrok project.
 *
 * Copyright (C) 2013 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 "protocol.h"

extern SR_PRIV struct sr_dev_driver p_ols_driver_info;
static struct sr_dev_driver *di = &p_ols_driver_info;

SR_PRIV int write_shortcommand(struct dev_context *devc, uint8_t command)
{
	uint8_t buf[1];
	int bytes_written;

	sr_dbg("Sending cmd 0x%.2x.", command);
	buf[0] = command;
	bytes_written = ftdi_write_data(devc->ftdic, buf, 1);
	if (bytes_written < 0) {
		sr_err("Failed to write FTDI data (%d): %s.",
		       bytes_written, ftdi_get_error_string(devc->ftdic));
		return SR_ERR;
	} else if (bytes_written != 1) {
		sr_err("FTDI write error, only %d/%d bytes written: %s.",
		       bytes_written, 1, ftdi_get_error_string(devc->ftdic));
		return SR_ERR;
	}

	return SR_OK;
}

SR_PRIV int write_longcommand(struct dev_context *devc, uint8_t command, uint8_t *data)
{
	uint8_t buf[5];
	int bytes_written;

	sr_dbg("Sending cmd 0x%.2x data 0x%.2x%.2x%.2x%.2x.", command,
			data[0], data[1], data[2], data[3]);
	buf[0] = command;
	buf[1] = data[0];
	buf[2] = data[1];
	buf[3] = data[2];
	buf[4] = data[3];
	bytes_written = ftdi_write_data(devc->ftdic, buf, 5);
	if (bytes_written < 0) {
		sr_err("Failed to write FTDI data (%d): %s.",
		       bytes_written, ftdi_get_error_string(devc->ftdic));
		return SR_ERR;
	} else if (bytes_written != 5) {
		sr_err("FTDI write error, only %d/%d bytes written: %s.",
		       bytes_written, 1, ftdi_get_error_string(devc->ftdic));
		return SR_ERR;
	}

	return SR_OK;
}

SR_PRIV int p_ols_open(struct dev_context *devc)
{
	int ret;

	/* Note: Caller checks devc and devc->ftdic. */

	/* Select interface B, otherwise communication will fail. */
	ret = ftdi_set_interface(devc->ftdic, INTERFACE_B);
	if (ret < 0) {
		sr_err("Failed to set FTDI interface B (%d): %s", ret,
		       ftdi_get_error_string(devc->ftdic));
		return SR_ERR;
	}
	sr_dbg("FTDI chip interface B set successfully.");

	/* Check for the device and temporarily open it. */
	ret = ftdi_usb_open_desc(devc->ftdic, USB_VENDOR_ID, USB_DEVICE_ID,
				 USB_IPRODUCT, NULL);
	if (ret < 0) {
		/* Log errors, except for -3 ("device not found"). */
		if (ret != -3)
			sr_err("Failed to open device (%d): %s", ret,
			       ftdi_get_error_string(devc->ftdic));
		return SR_ERR;
	}
	sr_dbg("FTDI device opened successfully.");

	/* Purge RX/TX buffers in the FTDI chip. */
	if ((ret = ftdi_usb_purge_buffers(devc->ftdic)) < 0) {
		sr_err("Failed to purge FTDI RX/TX buffers (%d): %s.",
		       ret, ftdi_get_error_string(devc->ftdic));
		goto err_open_close_ftdic;
	}
	sr_dbg("FTDI chip buffers purged successfully.");

	/* Reset the FTDI bitmode. */
	ret = ftdi_set_bitmode(devc->ftdic, 0xff, BITMODE_RESET);
	if (ret < 0) {
		sr_err("Failed to reset the FTDI chip bitmode (%d): %s.",
		       ret, ftdi_get_error_string(devc->ftdic));
		goto err_open_close_ftdic;
	}
	sr_dbg("FTDI chip bitmode reset successfully.");

	/* Set the FTDI latency timer to 16. */
	ret = ftdi_set_latency_timer(devc->ftdic, 16);
	if (ret < 0) {
		sr_err("Failed to set FTDI latency timer (%d): %s.",
		       ret, ftdi_get_error_string(devc->ftdic));
		goto err_open_close_ftdic;
	}
	sr_dbg("FTDI chip latency timer set successfully.");

	/* Set the FTDI read data chunk size to 64kB. */
	ret = ftdi_read_data_set_chunksize(devc->ftdic, 64 * 1024);
	if (ret < 0) {
		sr_err("Failed to set FTDI read data chunk size (%d): %s.",
		       ret, ftdi_get_error_string(devc->ftdic));
		goto err_open_close_ftdic;
	}
	sr_dbg("FTDI chip read data chunk size set successfully.");
	
	return SR_OK;

err_open_close_ftdic:
	ftdi_usb_close(devc->ftdic);
	return SR_ERR;
}

SR_PRIV int p_ols_close(struct dev_context *devc)
{
	int ret;

	/* Note: Caller checks devc and devc->ftdic. */

	if ((ret = ftdi_usb_close(devc->ftdic)) < 0) {
		sr_err("Failed to close FTDI device (%d): %s.",
		       ret, ftdi_get_error_string(devc->ftdic));
		return SR_ERR;
	}

	return SR_OK;
}

SR_PRIV int p_ols_configure_channels(const struct sr_dev_inst *sdi)
{
	struct dev_context *devc;
	const struct sr_channel *ch;
	const GSList *l;
	int channel_bit, stage, i;
	char *tc;

	devc = sdi->priv;

	devc->channel_mask = 0;
	for (i = 0; i < NUM_TRIGGER_STAGES; i++) {
		devc->trigger_mask[i] = 0;
		devc->trigger_value[i] = 0;
		devc->trigger_edge[i] = 0;
	}

	devc->num_stages = 0;
	for (l = sdi->channels; l; l = l->next) {
		ch = (const struct sr_channel *)l->data;
		if (!ch->enabled)
			continue;

		if (ch->index >= devc->max_channels) {
			sr_err("Channels over the limit of %d\n", devc->max_channels);
			return SR_ERR;
		}

		/*
		 * Set up the channel mask for later configuration into the
		 * flag register.
		 */
		channel_bit = 1 << (ch->index);
		devc->channel_mask |= channel_bit;

		if (!ch->trigger)
			continue;

		/* Configure trigger mask and value. */
		stage = 0;
		for (tc = ch->trigger; tc && *tc; tc++) {
			devc->trigger_mask[stage] |= channel_bit;
			if ((*tc == '1') || (*tc == 'r'))
				devc->trigger_value[stage] |= channel_bit;
			if ((*tc == 'r') || (*tc == 'f'))
				devc->trigger_edge[stage] |= channel_bit;
			stage++;
			/* Only supporting parallel mode, with up to 4 stages. */
			if (stage > 3)
				return SR_ERR;
		}
		if (stage > devc->num_stages)
			devc->num_stages = stage - 1;
	}

	return SR_OK;
}

SR_PRIV struct sr_dev_inst *p_ols_get_metadata(uint8_t *buf, int bytes_read, struct dev_context *devc)
{
	struct sr_dev_inst *sdi;
	struct sr_channel *ch;
	uint32_t tmp_int, ui;
	uint8_t key, type, token;
	GString *tmp_str, *devname, *version;
	guchar tmp_c;
	int index, i;

	sdi = sr_dev_inst_new(0, SR_ST_INACTIVE, NULL, NULL, NULL);
	sdi->driver = di;
	sdi->priv = devc;

	devname = g_string_new("");
	version = g_string_new("");

	index = 0;
	while (index < bytes_read) {
		key = buf[index++];
		if (key == 0x00) {
			sr_dbg("Got metadata key 0x00, metadata ends.");
			break;
		}
		type = key >> 5;
		token = key & 0x1f;
		switch (type) {
		case 0:
			/* NULL-terminated string */
			tmp_str = g_string_new("");
			while ((index < bytes_read) && ((tmp_c = buf[index++]) != '\0'))
				g_string_append_c(tmp_str, tmp_c);
			sr_dbg("Got metadata key 0x%.2x value '%s'.",
			       key, tmp_str->str);
			switch (token) {
			case 0x01:
				/* Device name */
				devname = g_string_append(devname, tmp_str->str);
				break;
			case 0x02:
				/* FPGA firmware version */
				if (version->len)
					g_string_append(version, ", ");
				g_string_append(version, "FPGA version ");
				g_string_append(version, tmp_str->str);
				break;
			case 0x03:
				/* Ancillary version */
				if (version->len)
					g_string_append(version, ", ");
				g_string_append(version, "Ancillary version ");
				g_string_append(version, tmp_str->str);
				break;
			default:
				sr_info("Unknown token 0x%.2x: '%s'",
					token, tmp_str->str);
				break;
			}
			g_string_free(tmp_str, TRUE);
			break;
		case 1:
			/* 32-bit unsigned integer */
			tmp_int = 0;
			for (i = 0; i < 4; i++) {
				tmp_int = (tmp_int << 8) | buf[index++];
			}
			sr_dbg("Got metadata key 0x%.2x value 0x%.8x.",
			       key, tmp_int);
			switch (token) {
			case 0x00:
				/* Number of usable channels */
				for (ui = 0; ui < tmp_int; ui++) {
					if (!(ch = sr_channel_new(ui, SR_CHANNEL_LOGIC, TRUE,
							p_ols_channel_names[ui])))
						return 0;
					sdi->channels = g_slist_append(sdi->channels, ch);
				}
				break;
			case 0x01:
				/* Amount of sample memory available (bytes) */
				devc->max_samples = tmp_int;
				break;
			case 0x02:
				/* Amount of dynamic memory available (bytes) */
				/* what is this for? */
				break;
			case 0x03:
				/* Maximum sample rate (hz) */
				devc->max_samplerate = tmp_int;
				break;
			case 0x04:
				/* protocol version */
				devc->protocol_version = tmp_int;
				break;
			default:
				sr_info("Unknown token 0x%.2x: 0x%.8x.",
					token, tmp_int);
				break;
			}
			break;
		case 2:
			/* 8-bit unsigned integer */
			tmp_c = buf[index++];
			sr_dbg("Got metadata key 0x%.2x value 0x%.2x.",
			       key, tmp_c);
			switch (token) {
			case 0x00:
				/* Number of usable channels */
				for (ui = 0; ui < tmp_c; ui++) {
					if (!(ch = sr_channel_new(ui, SR_CHANNEL_LOGIC, TRUE,
							p_ols_channel_names[ui])))
						return 0;
					sdi->channels = g_slist_append(sdi->channels, ch);
				}
				break;
			case 0x01:
				/* protocol version */
				devc->protocol_version = tmp_c;
				break;
			default:
				sr_info("Unknown token 0x%.2x: 0x%.2x.",
					token, tmp_c);
				break;
			}
			break;
		default:
			/* unknown type */
			break;
		}
	}

	sdi->model = devname->str;
	sdi->version = version->str;
	g_string_free(devname, FALSE);
	g_string_free(version, FALSE);

	return sdi;
}

SR_PRIV int p_ols_set_samplerate(const struct sr_dev_inst *sdi,
		const uint64_t samplerate)
{
	struct dev_context *devc;

	devc = sdi->priv;
	if (devc->max_samplerate && samplerate > devc->max_samplerate)
		return SR_ERR_SAMPLERATE;

	if (samplerate > CLOCK_RATE) {
		sr_info("Enabling demux mode.");
		devc->flag_reg |= FLAG_DEMUX;
		devc->flag_reg &= ~FLAG_FILTER;
		devc->max_channels = NUM_CHANNELS / 2;
		devc->cur_samplerate_divider = (CLOCK_RATE * 2 / samplerate) - 1;
	} else {
		sr_info("Disabling demux mode.");
		devc->flag_reg &= ~FLAG_DEMUX;
		devc->flag_reg |= FLAG_FILTER;
		devc->max_channels = NUM_CHANNELS;
		devc->cur_samplerate_divider = (CLOCK_RATE / samplerate) - 1;
	}

	/* Calculate actual samplerate used and complain if it is different
	 * from the requested.
	 */
	devc->cur_samplerate = CLOCK_RATE / (devc->cur_samplerate_divider + 1);
	if (devc->flag_reg & FLAG_DEMUX)
		devc->cur_samplerate *= 2;
	if (devc->cur_samplerate != samplerate)
		sr_info("Can't match samplerate %" PRIu64 ", using %"
		       PRIu64 ".", samplerate, devc->cur_samplerate);

	return SR_OK;
}


SR_PRIV int p_ols_receive_data(int fd, int revents, void *cb_data)
{
	struct dev_context *devc;
	struct sr_dev_inst *sdi;
	struct sr_datafeed_packet packet;
	struct sr_datafeed_logic logic;
	uint32_t sample;
	int num_channels, offset, j;
	int bytes_read, index;
	unsigned int i;
	unsigned char byte;

	(void)fd;
	(void)revents;

	sdi = cb_data;
	devc = sdi->priv;

	if (devc->num_transfers++ == 0) {
		devc->raw_sample_buf = g_try_malloc(devc->limit_samples * 4);
		if (!devc->raw_sample_buf) {
			sr_err("Sample buffer malloc failed.");
			return FALSE;
		}
		/* fill with 1010... for debugging */
		memset(devc->raw_sample_buf, 0x82, devc->limit_samples * 4);
	}

	if (devc->num_samples < devc->limit_samples) {

		num_channels = 0;
		for (i = NUM_CHANNELS; i > 0x02; i /= 2) {
			if ((devc->flag_reg & i) == 0) {
				num_channels++;
			}
		}

		/* Get a block of data. */
		bytes_read = ftdi_read_data(devc->ftdic, devc->ftdi_buf, FTDI_BUF_SIZE);
		if (bytes_read < 0) {
			sr_err("Failed to read FTDI data (%d): %s.",
			       bytes_read, ftdi_get_error_string(devc->ftdic));
			sdi->driver->dev_acquisition_stop(sdi, sdi);
			return FALSE;
		}
		if (bytes_read == 0) {
			sr_spew("Received 0 bytes, nothing to do.");
			return TRUE;
		}

		sr_dbg("Received %d bytes", bytes_read);

		index = 0;
		while (index < bytes_read) {
			byte = devc->ftdi_buf[index++];
			devc->cnt_bytes++;

			devc->sample[devc->num_bytes++] = byte;
			sr_spew("Received byte 0x%.2x.", byte);
			if (devc->num_bytes == num_channels) {
				devc->cnt_samples++;
				devc->cnt_samples_rle++;
				/*
				 * Got a full sample. Convert from the OLS's little-endian
				 * sample to the local format.
				 */
				sample = devc->sample[0] | (devc->sample[1] << 8) \
						| (devc->sample[2] << 16) | (devc->sample[3] << 24);
				sr_spew("Received sample 0x%.*x.", devc->num_bytes * 2, sample);
				if (devc->flag_reg & FLAG_RLE) {
					/*
					 * In RLE mode the high bit of the sample is the
					 * "count" flag, meaning this sample is the number
					 * of times the previous sample occurred.
					 */
					if (devc->sample[devc->num_bytes - 1] & 0x80) {
						/* Clear the high bit. */
						sample &= ~(0x80 << (devc->num_bytes - 1) * 8);
						devc->rle_count = sample;
						devc->cnt_samples_rle += devc->rle_count;
						sr_dbg("RLE count: %u.", devc->rle_count);
						devc->num_bytes = 0;
						continue;
					}
				}
				devc->num_samples += devc->rle_count + 1;
				if (devc->num_samples > devc->limit_samples) {
					/* Save us from overrunning the buffer. */
					devc->rle_count -= devc->num_samples - devc->limit_samples;
					devc->num_samples = devc->limit_samples;
				}

				if (num_channels < 4) {
					/*
					 * Some channel groups may have been turned
					 * off, to speed up transfer between the
					 * hardware and the PC. Expand that here before
					 * submitting it over the session bus --
					 * whatever is listening on the bus will be
					 * expecting a full 32-bit sample, based on
					 * the number of channels.
					 */
					j = 0;
					memset(devc->tmp_sample, 0, 4);
					for (i = 0; i < 4; i++) {
						if (((devc->flag_reg >> 2) & (1 << i)) == 0) {
							/*
							 * This channel group was
							 * enabled, copy from received
							 * sample.
							 */
							devc->tmp_sample[i] = devc->sample[j++];
						} else if (devc->flag_reg & FLAG_DEMUX && (i > 2)) {
							/* group 2 & 3 get added to 0 & 1 */
							devc->tmp_sample[i - 2] = devc->sample[j++];
						}
					}
					memcpy(devc->sample, devc->tmp_sample, 4);
					sr_spew("Expanded sample: 0x%.8x.", sample);
				}

				/*
				 * Pipistrello OLS sends its sample buffer backwards.
				 * store it in reverse order here, so we can dump
				 * this on the session bus later.
				 */
				offset = (devc->limit_samples - devc->num_samples) * 4;
				for (i = 0; i <= devc->rle_count; i++) {
					memcpy(devc->raw_sample_buf + offset + (i * 4),
					       devc->sample, 4);
				}
				memset(devc->sample, 0, 4);
				devc->num_bytes = 0;
				devc->rle_count = 0;
			}
		}
		return TRUE;
	} else {
		/*
		 * We've acquired all the samples we asked for -- we're done.
		 * Send the (properly-ordered) buffer to the frontend.
		 */
		sr_dbg("Received %d bytes, %d samples, %d decompressed samples.",
				devc->cnt_bytes, devc->cnt_samples,
				devc->cnt_samples_rle);
		if (devc->trigger_at != -1) {
			/*
			 * A trigger was set up, so we need to tell the frontend
			 * about it.
			 */
			if (devc->trigger_at > 0) {
				/* There are pre-trigger samples, send those first. */
				packet.type = SR_DF_LOGIC;
				packet.payload = &logic;
				logic.length = devc->trigger_at * 4;
				logic.unitsize = 4;
				logic.data = devc->raw_sample_buf +
					(devc->limit_samples - devc->num_samples) * 4;
				sr_session_send(cb_data, &packet);
			}

			/* Send the trigger. */
			packet.type = SR_DF_TRIGGER;
			sr_session_send(cb_data, &packet);

			/* Send post-trigger samples. */
			packet.type = SR_DF_LOGIC;
			packet.payload = &logic;
			logic.length = (devc->num_samples * 4) - (devc->trigger_at * 4);
			logic.unitsize = 4;
			logic.data = devc->raw_sample_buf + devc->trigger_at * 4 +
				(devc->limit_samples - devc->num_samples) * 4;
			sr_session_send(cb_data, &packet);
		} else {
			/* no trigger was used */
			packet.type = SR_DF_LOGIC;
			packet.payload = &logic;
			logic.length = devc->num_samples * 4;
			logic.unitsize = 4;
			logic.data = devc->raw_sample_buf +
				(devc->limit_samples - devc->num_samples) * 4;
			sr_session_send(cb_data, &packet);
		}
		g_free(devc->raw_sample_buf);

		sdi->driver->dev_acquisition_stop(sdi, cb_data);
	}

	return TRUE;
}
Commit	Line	Data
4bd80e12	1	/*
	2	* This file is part of the libsigrok project.
	3	*
	4	* Copyright (C) 2013 Bert Vermeulen <bert@biot.com>
	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 "protocol.h"
	21
	22	extern SR_PRIV struct sr_dev_driver p_ols_driver_info;
	23	static struct sr_dev_driver *di = &p_ols_driver_info;
	24
	25	SR_PRIV int write_shortcommand(struct dev_context *devc, uint8_t command)
	26	{
	27	uint8_t buf[1];
	28	int bytes_written;
	29
	30	sr_dbg("Sending cmd 0x%.2x.", command);
	31	buf[0] = command;
	32	bytes_written = ftdi_write_data(devc->ftdic, buf, 1);
	33	if (bytes_written < 0) {
	34	sr_err("Failed to write FTDI data (%d): %s.",
	35	bytes_written, ftdi_get_error_string(devc->ftdic));
	36	return SR_ERR;
	37	} else if (bytes_written != 1) {
	38	sr_err("FTDI write error, only %d/%d bytes written: %s.",
	39	bytes_written, 1, ftdi_get_error_string(devc->ftdic));
	40	return SR_ERR;
	41	}
	42
	43	return SR_OK;
	44	}
	45
	46	SR_PRIV int write_longcommand(struct dev_context devc, uint8_t command, uint8_t data)
	47	{
	48	uint8_t buf[5];
	49	int bytes_written;
	50
	51	sr_dbg("Sending cmd 0x%.2x data 0x%.2x%.2x%.2x%.2x.", command,
	52	data[0], data[1], data[2], data[3]);
	53	buf[0] = command;
	54	buf[1] = data[0];
	55	buf[2] = data[1];
	56	buf[3] = data[2];
	57	buf[4] = data[3];
	58	bytes_written = ftdi_write_data(devc->ftdic, buf, 5);
	59	if (bytes_written < 0) {
	60	sr_err("Failed to write FTDI data (%d): %s.",
	61	bytes_written, ftdi_get_error_string(devc->ftdic));
	62	return SR_ERR;
	63	} else if (bytes_written != 5) {
	64	sr_err("FTDI write error, only %d/%d bytes written: %s.",
65	bytes_written, 1, ftdi_get_error_string(devc->ftdic));
66	return SR_ERR;
67	}
68
69	return SR_OK;
70	}
71
72	SR_PRIV int p_ols_open(struct dev_context *devc)
73	{
74	int ret;
75
76	/* Note: Caller checks devc and devc->ftdic. */
77
78	/* Select interface B, otherwise communication will fail. */
79	ret = ftdi_set_interface(devc->ftdic, INTERFACE_B);
80	if (ret < 0) {
81	sr_err("Failed to set FTDI interface B (%d): %s", ret,
82	ftdi_get_error_string(devc->ftdic));
83	return SR_ERR;
84	}
85	sr_dbg("FTDI chip interface B set successfully.");
86
87	/* Check for the device and temporarily open it. */
88	ret = ftdi_usb_open_desc(devc->ftdic, USB_VENDOR_ID, USB_DEVICE_ID,
89	USB_IPRODUCT, NULL);
90	if (ret < 0) {
91	/* Log errors, except for -3 ("device not found"). */
92	if (ret != -3)
93	sr_err("Failed to open device (%d): %s", ret,
94	ftdi_get_error_string(devc->ftdic));
95	return SR_ERR;
96	}
97	sr_dbg("FTDI device opened successfully.");
98
99	/* Purge RX/TX buffers in the FTDI chip. */
100	if ((ret = ftdi_usb_purge_buffers(devc->ftdic)) < 0) {
101	sr_err("Failed to purge FTDI RX/TX buffers (%d): %s.",
102	ret, ftdi_get_error_string(devc->ftdic));
103	goto err_open_close_ftdic;
104	}
105	sr_dbg("FTDI chip buffers purged successfully.");
106
107	/* Reset the FTDI bitmode. */
108	ret = ftdi_set_bitmode(devc->ftdic, 0xff, BITMODE_RESET);
109	if (ret < 0) {
110	sr_err("Failed to reset the FTDI chip bitmode (%d): %s.",
111	ret, ftdi_get_error_string(devc->ftdic));
112	goto err_open_close_ftdic;
113	}
114	sr_dbg("FTDI chip bitmode reset successfully.");
115
116	/* Set the FTDI latency timer to 16. */
117	ret = ftdi_set_latency_timer(devc->ftdic, 16);
118	if (ret < 0) {
119	sr_err("Failed to set FTDI latency timer (%d): %s.",
120	ret, ftdi_get_error_string(devc->ftdic));
121	goto err_open_close_ftdic;
122	}
123	sr_dbg("FTDI chip latency timer set successfully.");
124
125	/* Set the FTDI read data chunk size to 64kB. */
126	ret = ftdi_read_data_set_chunksize(devc->ftdic, 64 * 1024);
127	if (ret < 0) {
128	sr_err("Failed to set FTDI read data chunk size (%d): %s.",
129	ret, ftdi_get_error_string(devc->ftdic));
130	goto err_open_close_ftdic;
131	}
132	sr_dbg("FTDI chip read data chunk size set successfully.");
133
134	return SR_OK;
135
136	err_open_close_ftdic:
1f9bcd0f	137	ftdi_usb_close(devc->ftdic);
4bd80e12	138	return SR_ERR;
	139	}
	140
	141	SR_PRIV int p_ols_close(struct dev_context *devc)
	142	{
	143	int ret;
	144
	145	/* Note: Caller checks devc and devc->ftdic. */
	146
	147	if ((ret = ftdi_usb_close(devc->ftdic)) < 0) {
	148	sr_err("Failed to close FTDI device (%d): %s.",
	149	ret, ftdi_get_error_string(devc->ftdic));
	150	return SR_ERR;
	151	}
	152
	153	return SR_OK;
	154	}
	155
	156	SR_PRIV int p_ols_configure_channels(const struct sr_dev_inst *sdi)
	157	{
	158	struct dev_context *devc;
	159	const struct sr_channel *ch;
	160	const GSList *l;
	161	int channel_bit, stage, i;
	162	char *tc;
	163
	164	devc = sdi->priv;
	165
	166	devc->channel_mask = 0;
	167	for (i = 0; i < NUM_TRIGGER_STAGES; i++) {
	168	devc->trigger_mask[i] = 0;
	169	devc->trigger_value[i] = 0;
1e0de846	170	devc->trigger_edge[i] = 0;
4bd80e12	171	}
	172
	173	devc->num_stages = 0;
	174	for (l = sdi->channels; l; l = l->next) {
	175	ch = (const struct sr_channel *)l->data;
	176	if (!ch->enabled)
	177	continue;
	178
	179	if (ch->index >= devc->max_channels) {
	180	sr_err("Channels over the limit of %d\n", devc->max_channels);
	181	return SR_ERR;
	182	}
	183
	184	/*
	185	* Set up the channel mask for later configuration into the
	186	* flag register.
	187	*/
	188	channel_bit = 1 << (ch->index);
	189	devc->channel_mask \|= channel_bit;
	190
	191	if (!ch->trigger)
	192	continue;
	193
	194	/* Configure trigger mask and value. */
	195	stage = 0;
	196	for (tc = ch->trigger; tc && *tc; tc++) {
	197	devc->trigger_mask[stage] \|= channel_bit;
1e0de846	198	if ((tc == '1') \|\| (tc == 'r'))
4bd80e12	199	devc->trigger_value[stage] \|= channel_bit;
1e0de846	200	if ((tc == 'r') \|\| (tc == 'f'))
1e0de846	201	devc->trigger_edge[stage] \|= channel_bit;
4bd80e12	202	stage++;
	203	/* Only supporting parallel mode, with up to 4 stages. */
	204	if (stage > 3)
	205	return SR_ERR;
	206	}
	207	if (stage > devc->num_stages)
	208	devc->num_stages = stage - 1;
	209	}
	210
	211	return SR_OK;
	212	}
	213
	214	SR_PRIV struct sr_dev_inst p_ols_get_metadata(uint8_t buf, int bytes_read, struct dev_context *devc)
	215	{
	216	struct sr_dev_inst *sdi;
	217	struct sr_channel *ch;
	218	uint32_t tmp_int, ui;
	219	uint8_t key, type, token;
	220	GString tmp_str, devname, *version;
	221	guchar tmp_c;
	222	int index, i;
	223
	224	sdi = sr_dev_inst_new(0, SR_ST_INACTIVE, NULL, NULL, NULL);
	225	sdi->driver = di;
	226	sdi->priv = devc;
	227
	228	devname = g_string_new("");
	229	version = g_string_new("");
	230
	231	index = 0;
	232	while (index < bytes_read) {
	233	key = buf[index++];
	234	if (key == 0x00) {
	235	sr_dbg("Got metadata key 0x00, metadata ends.");
	236	break;
	237	}
	238	type = key >> 5;
	239	token = key & 0x1f;
	240	switch (type) {
	241	case 0:
	242	/* NULL-terminated string */
	243	tmp_str = g_string_new("");
	244	while ((index < bytes_read) && ((tmp_c = buf[index++]) != '\0'))
	245	g_string_append_c(tmp_str, tmp_c);
	246	sr_dbg("Got metadata key 0x%.2x value '%s'.",
	247	key, tmp_str->str);
	248	switch (token) {
	249	case 0x01:
	250	/* Device name */
	251	devname = g_string_append(devname, tmp_str->str);
	252	break;
	253	case 0x02:
	254	/* FPGA firmware version */
	255	if (version->len)
	256	g_string_append(version, ", ");
	257	g_string_append(version, "FPGA version ");
	258	g_string_append(version, tmp_str->str);
	259	break;
	260	case 0x03:
	261	/* Ancillary version */
	262	if (version->len)
	263	g_string_append(version, ", ");
	264	g_string_append(version, "Ancillary version ");
	265	g_string_append(version, tmp_str->str);
266	break;
267	default:
268	sr_info("Unknown token 0x%.2x: '%s'",
269	token, tmp_str->str);
270	break;
271	}
272	g_string_free(tmp_str, TRUE);
273	break;
274	case 1:
275	/* 32-bit unsigned integer */
276	tmp_int = 0;
277	for (i = 0; i < 4; i++) {
278	tmp_int = (tmp_int << 8) \| buf[index++];
279	}
280	sr_dbg("Got metadata key 0x%.2x value 0x%.8x.",
281	key, tmp_int);
282	switch (token) {
283	case 0x00:
284	/* Number of usable channels */
285	for (ui = 0; ui < tmp_int; ui++) {
286	if (!(ch = sr_channel_new(ui, SR_CHANNEL_LOGIC, TRUE,
287	p_ols_channel_names[ui])))
288	return 0;
289	sdi->channels = g_slist_append(sdi->channels, ch);
290	}
291	break;
292	case 0x01:
293	/* Amount of sample memory available (bytes) */
294	devc->max_samples = tmp_int;
295	break;
296	case 0x02:
297	/* Amount of dynamic memory available (bytes) */
298	/* what is this for? */
299	break;
300	case 0x03:
301	/* Maximum sample rate (hz) */
302	devc->max_samplerate = tmp_int;
303	break;
304	case 0x04:
305	/* protocol version */
306	devc->protocol_version = tmp_int;
307	break;
308	default:
309	sr_info("Unknown token 0x%.2x: 0x%.8x.",
310	token, tmp_int);
311	break;
312	}
313	break;
314	case 2:
315	/* 8-bit unsigned integer */
316	tmp_c = buf[index++];
317	sr_dbg("Got metadata key 0x%.2x value 0x%.2x.",
318	key, tmp_c);
319	switch (token) {
320	case 0x00:
321	/* Number of usable channels */
322	for (ui = 0; ui < tmp_c; ui++) {
323	if (!(ch = sr_channel_new(ui, SR_CHANNEL_LOGIC, TRUE,
324	p_ols_channel_names[ui])))
325	return 0;
326	sdi->channels = g_slist_append(sdi->channels, ch);
327	}
328	break;
329	case 0x01:
330	/* protocol version */
331	devc->protocol_version = tmp_c;
332	break;
333	default:
334	sr_info("Unknown token 0x%.2x: 0x%.2x.",
335	token, tmp_c);
336	break;
337	}
338	break;
339	default:
340	/* unknown type */
341	break;
342	}
343	}
344
345	sdi->model = devname->str;
346	sdi->version = version->str;
347	g_string_free(devname, FALSE);
348	g_string_free(version, FALSE);
349
350	return sdi;
351	}
352
353	SR_PRIV int p_ols_set_samplerate(const struct sr_dev_inst *sdi,
354	const uint64_t samplerate)
355	{
356	struct dev_context *devc;
357
358	devc = sdi->priv;
359	if (devc->max_samplerate && samplerate > devc->max_samplerate)
360	return SR_ERR_SAMPLERATE;
361
362	if (samplerate > CLOCK_RATE) {
363	sr_info("Enabling demux mode.");
364	devc->flag_reg \|= FLAG_DEMUX;
365	devc->flag_reg &= ~FLAG_FILTER;
366	devc->max_channels = NUM_CHANNELS / 2;
367	devc->cur_samplerate_divider = (CLOCK_RATE * 2 / samplerate) - 1;
368	} else {
369	sr_info("Disabling demux mode.");
370	devc->flag_reg &= ~FLAG_DEMUX;
371	devc->flag_reg \|= FLAG_FILTER;
372	devc->max_channels = NUM_CHANNELS;
373	devc->cur_samplerate_divider = (CLOCK_RATE / samplerate) - 1;
374	}
375
376	/* Calculate actual samplerate used and complain if it is different
377	* from the requested.
378	*/
379	devc->cur_samplerate = CLOCK_RATE / (devc->cur_samplerate_divider + 1);
380	if (devc->flag_reg & FLAG_DEMUX)
381	devc->cur_samplerate *= 2;
382	if (devc->cur_samplerate != samplerate)
383	sr_info("Can't match samplerate %" PRIu64 ", using %"
384	PRIu64 ".", samplerate, devc->cur_samplerate);
385
386	return SR_OK;
387	}
388
389
390	SR_PRIV int p_ols_receive_data(int fd, int revents, void *cb_data)
391	{
392	struct dev_context *devc;
393	struct sr_dev_inst *sdi;
394	struct sr_datafeed_packet packet;
395	struct sr_datafeed_logic logic;
396	uint32_t sample;
397	int num_channels, offset, j;
398	int bytes_read, index;
399	unsigned int i;
400	unsigned char byte;
401
402	(void)fd;
403	(void)revents;
404
405	sdi = cb_data;
406	devc = sdi->priv;
407
408	if (devc->num_transfers++ == 0) {
409	devc->raw_sample_buf = g_try_malloc(devc->limit_samples * 4);
410	if (!devc->raw_sample_buf) {
411	sr_err("Sample buffer malloc failed.");
412	return FALSE;
413	}
414	/* fill with 1010... for debugging */
415	memset(devc->raw_sample_buf, 0x82, devc->limit_samples * 4);
416	}
417
418	if (devc->num_samples < devc->limit_samples) {
419
420	num_channels = 0;
421	for (i = NUM_CHANNELS; i > 0x02; i /= 2) {
422	if ((devc->flag_reg & i) == 0) {
423	num_channels++;
424	}
425	}
426
427	/* Get a block of data. */
428	bytes_read = ftdi_read_data(devc->ftdic, devc->ftdi_buf, FTDI_BUF_SIZE);
429	if (bytes_read < 0) {
430	sr_err("Failed to read FTDI data (%d): %s.",
431	bytes_read, ftdi_get_error_string(devc->ftdic));
432	sdi->driver->dev_acquisition_stop(sdi, sdi);
433	return FALSE;
434	}
435	if (bytes_read == 0) {
436	sr_spew("Received 0 bytes, nothing to do.");
437	return TRUE;
438	}
439
440	sr_dbg("Received %d bytes", bytes_read);
441
442	index = 0;
443	while (index < bytes_read) {
444	byte = devc->ftdi_buf[index++];
445	devc->cnt_bytes++;
446
447	devc->sample[devc->num_bytes++] = byte;
448	sr_spew("Received byte 0x%.2x.", byte);
449	if (devc->num_bytes == num_channels) {
450	devc->cnt_samples++;
451	devc->cnt_samples_rle++;
452	/*
453	* Got a full sample. Convert from the OLS's little-endian
454	* sample to the local format.
455	*/
456	sample = devc->sample[0] \| (devc->sample[1] << 8) \
457	\| (devc->sample[2] << 16) \| (devc->sample[3] << 24);
458	sr_spew("Received sample 0x%.x.", devc->num_bytes 2, sample);
459	if (devc->flag_reg & FLAG_RLE) {
460	/*
461	* In RLE mode the high bit of the sample is the
462	* "count" flag, meaning this sample is the number
463	* of times the previous sample occurred.
464	*/
465	if (devc->sample[devc->num_bytes - 1] & 0x80) {
466	/* Clear the high bit. */
467	sample &= ~(0x80 << (devc->num_bytes - 1) * 8);
468	devc->rle_count = sample;
469	devc->cnt_samples_rle += devc->rle_count;
470	sr_dbg("RLE count: %u.", devc->rle_count);
471	devc->num_bytes = 0;
472	continue;
473	}
474	}
475	devc->num_samples += devc->rle_count + 1;
476	if (devc->num_samples > devc->limit_samples) {
477	/* Save us from overrunning the buffer. */
478	devc->rle_count -= devc->num_samples - devc->limit_samples;
479	devc->num_samples = devc->limit_samples;
480	}
481
482	if (num_channels < 4) {
483	/*
484	* Some channel groups may have been turned
485	* off, to speed up transfer between the
486	* hardware and the PC. Expand that here before
487	* submitting it over the session bus --
488	* whatever is listening on the bus will be
489	* expecting a full 32-bit sample, based on
490	* the number of channels.
491	*/
492	j = 0;
493	memset(devc->tmp_sample, 0, 4);
494	for (i = 0; i < 4; i++) {
495	if (((devc->flag_reg >> 2) & (1 << i)) == 0) {
496	/*
497	* This channel group was
498	* enabled, copy from received
499	* sample.
500	*/
501	devc->tmp_sample[i] = devc->sample[j++];
502	} else if (devc->flag_reg & FLAG_DEMUX && (i > 2)) {
503	/* group 2 & 3 get added to 0 & 1 */
504	devc->tmp_sample[i - 2] = devc->sample[j++];
505	}
506	}
507	memcpy(devc->sample, devc->tmp_sample, 4);
508	sr_spew("Expanded sample: 0x%.8x.", sample);
509	}
510
511	/*
512	* Pipistrello OLS sends its sample buffer backwards.
513	* store it in reverse order here, so we can dump
514	* this on the session bus later.
515	*/
516	offset = (devc->limit_samples - devc->num_samples) * 4;
517	for (i = 0; i <= devc->rle_count; i++) {
518	memcpy(devc->raw_sample_buf + offset + (i * 4),
519	devc->sample, 4);
520	}
521	memset(devc->sample, 0, 4);
522	devc->num_bytes = 0;
523	devc->rle_count = 0;
524	}
525	}
526	return TRUE;
527	} else {
528	/*
529	* We've acquired all the samples we asked for -- we're done.
530	* Send the (properly-ordered) buffer to the frontend.
531	*/
532	sr_dbg("Received %d bytes, %d samples, %d decompressed samples.",
533	devc->cnt_bytes, devc->cnt_samples,
534	devc->cnt_samples_rle);
535	if (devc->trigger_at != -1) {
536	/*
537	* A trigger was set up, so we need to tell the frontend
538	* about it.
539	*/
540	if (devc->trigger_at > 0) {
541	/* There are pre-trigger samples, send those first. */
542	packet.type = SR_DF_LOGIC;
543	packet.payload = &logic;
544	logic.length = devc->trigger_at * 4;
545	logic.unitsize = 4;
546	logic.data = devc->raw_sample_buf +
547	(devc->limit_samples - devc->num_samples) * 4;
548	sr_session_send(cb_data, &packet);
549	}
550
551	/* Send the trigger. */
552	packet.type = SR_DF_TRIGGER;
553	sr_session_send(cb_data, &packet);
554
555	/* Send post-trigger samples. */
556	packet.type = SR_DF_LOGIC;
557	packet.payload = &logic;
558	logic.length = (devc->num_samples * 4) - (devc->trigger_at * 4);
559	logic.unitsize = 4;
560	logic.data = devc->raw_sample_buf + devc->trigger_at * 4 +
561	(devc->limit_samples - devc->num_samples) * 4;
562	sr_session_send(cb_data, &packet);
563	} else {
564	/* no trigger was used */
565	packet.type = SR_DF_LOGIC;
566	packet.payload = &logic;
567	logic.length = devc->num_samples * 4;
568	logic.unitsize = 4;
569	logic.data = devc->raw_sample_buf +
570	(devc->limit_samples - devc->num_samples) * 4;
571	sr_session_send(cb_data, &packet);
572	}
573	g_free(devc->raw_sample_buf);
574
575	sdi->driver->dev_acquisition_stop(sdi, cb_data);
576	}
577
578	return TRUE;
579	}