2 * This file is part of the libsigrok project.
4 * Copyright (C) 2016 mhooijboer <marchelh@gmail.com>
5 * Copyright (C) 2012 Martin Ling <martin-git@earth.li>
6 * Copyright (C) 2013 Bert Vermeulen <bert@biot.com>
7 * Copyright (C) 2013 Mathias Grimmberger <mgri@zaphod.sax.de>
9 * This program is free software: you can redistribute it and/or modify
10 * it under the terms of the GNU General Public License as published by
11 * the Free Software Foundation, either version 3 of the License, or
12 * (at your option) any later version.
14 * This program is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 * GNU General Public License for more details.
19 * You should have received a copy of the GNU General Public License
20 * along with this program. If not, see <http://www.gnu.org/licenses/>.
34 #include <libsigrok/libsigrok.h>
35 #include "libsigrok-internal.h"
39 /* Set the next event to wait for in siglent_sds_receive(). */
40 static void siglent_sds_set_wait_event(struct dev_context *devc, enum wait_events event)
42 if (event == WAIT_STOP) {
43 devc->wait_status = 2;
45 devc->wait_status = 1;
46 devc->wait_event = event;
51 * Waiting for a event will return a timeout after 2 to 3 seconds in order
52 * to not block the application.
54 static int siglent_sds_event_wait(const struct sr_dev_inst *sdi)
59 struct dev_context *devc;
62 if (!(devc = sdi->priv))
67 s = 10000; /* Sleep time for status refresh. */
68 if (devc->wait_status == 1) {
70 if (time(NULL) - start >= 3) {
71 sr_dbg("Timeout waiting for trigger.");
72 return SR_ERR_TIMEOUT;
75 if (sr_scpi_get_string(sdi->conn, ":INR?", &buf) != SR_OK)
81 sr_dbg("Device triggered.");
83 if ((devc->timebase < 0.51) && (devc->timebase > 0.99e-6)) {
85 * Timebase * num hor. divs * 85(%) * 1e6(usecs) / 100
86 * -> 85 percent of sweep time
88 s = (devc->timebase * devc->model->series->num_horizontal_divs * 1000);
89 sr_spew("Sleeping for %ld usecs after trigger, "
90 "to let the acq buffer in the device fill", s);
94 if (devc->wait_status == 2) {
96 if (time(NULL) - start >= 3) {
97 sr_dbg("Timeout waiting for trigger.");
98 return SR_ERR_TIMEOUT;
100 if (sr_scpi_get_string(sdi->conn, ":INR?", &buf) != SR_OK)
105 * Now this loop condition looks suspicious! A bitwise
106 * OR of a variable and a non-zero literal should be
107 * non-zero. Logical AND of several non-zero values
108 * should be non-zero. Are many parts of the condition
109 * not taking effect? Was some different condition meant
110 * to get encoded? This needs review, and adjustment.
112 } while ((out | DEVICE_STATE_TRIG_RDY && out | DEVICE_STATE_DATA_ACQ) && out | DEVICE_STATE_STOPPED);
113 sr_dbg("Device triggerd 2.");
114 siglent_sds_set_wait_event(devc, WAIT_NONE);
120 static int siglent_sds_trigger_wait(const struct sr_dev_inst *sdi)
122 struct dev_context *devc;
124 if (!(devc = sdi->priv))
126 return siglent_sds_event_wait(sdi);
129 /* Wait for scope to got to "Stop" in single shot mode. */
130 static int siglent_sds_stop_wait(const struct sr_dev_inst *sdi)
132 return siglent_sds_event_wait(sdi);
135 /* Send a configuration setting. */
136 SR_PRIV int siglent_sds_config_set(const struct sr_dev_inst *sdi, const char *format, ...)
141 va_start(args, format);
142 ret = sr_scpi_send_variadic(sdi->conn, format, args);
148 /* Start capturing a new frameset. */
149 SR_PRIV int siglent_sds_capture_start(const struct sr_dev_inst *sdi)
151 struct dev_context *devc;
153 if (!(devc = sdi->priv))
156 switch (devc->model->series->protocol) {
158 if (devc->data_source == DATA_SOURCE_SCREEN) {
162 sr_dbg("Starting data capture for active frameset %" PRIu64 " of %" PRIu64,
163 devc->num_frames + 1, devc->limit_frames);
164 if (siglent_sds_config_set(sdi, "ARM") != SR_OK)
166 if (sr_scpi_get_string(sdi->conn, ":INR?", &buf) != SR_OK)
169 if (out == DEVICE_STATE_TRIG_RDY) {
170 siglent_sds_set_wait_event(devc, WAIT_TRIGGER);
171 } else if (out == DEVICE_STATE_TRIG_RDY + 1) {
172 sr_spew("Device triggered.");
173 siglent_sds_set_wait_event(devc, WAIT_BLOCK);
176 sr_spew("Device did not enter ARM mode.");
179 } else { /* TODO: Implement history retrieval. */
180 unsigned int framecount;
184 sr_dbg("Starting data capture for history frameset.");
185 if (siglent_sds_config_set(sdi, "FPAR?") != SR_OK)
187 ret = sr_scpi_read_data(sdi->conn, buf, 200);
189 sr_err("Read error while reading data header.");
192 memcpy(&framecount, buf + 40, 4);
193 if (devc->limit_frames > framecount)
194 sr_err("Frame limit higher than frames in buffer of device!");
195 else if (devc->limit_frames == 0)
196 devc->limit_frames = framecount;
197 sr_dbg("Starting data capture for history frameset %" PRIu64 " of %" PRIu64,
198 devc->num_frames + 1, devc->limit_frames);
199 if (siglent_sds_config_set(sdi, "FRAM %i", devc->num_frames + 1) != SR_OK)
201 if (siglent_sds_channel_start(sdi) != SR_OK)
203 siglent_sds_set_wait_event(devc, WAIT_STOP);
207 siglent_sds_set_wait_event(devc, WAIT_TRIGGER);
214 /* Start reading data from the current channel. */
215 SR_PRIV int siglent_sds_channel_start(const struct sr_dev_inst *sdi)
217 struct dev_context *devc;
218 struct sr_channel *ch;
220 if (!(devc = sdi->priv))
223 ch = devc->channel_entry->data;
225 sr_dbg("Starting reading data from channel %d.", ch->index + 1);
227 switch (devc->model->series->protocol) {
230 if (ch->type == SR_CHANNEL_LOGIC) {
231 if (sr_scpi_send(sdi->conn, "D%d:WF?",
232 ch->index + 1) != SR_OK)
235 if (sr_scpi_send(sdi->conn, "C%d:WF? ALL",
236 ch->index + 1) != SR_OK)
239 siglent_sds_set_wait_event(devc, WAIT_NONE);
243 siglent_sds_set_wait_event(devc, WAIT_BLOCK);
245 devc->num_channel_bytes = 0;
246 devc->num_header_bytes = 0;
247 devc->num_block_bytes = 0;
252 /* Read the header of a data block. */
253 static int siglent_sds_read_header(struct sr_dev_inst *sdi)
255 struct sr_scpi_dev_inst *scpi = sdi->conn;
256 struct dev_context *devc = sdi->priv;
257 char *buf = (char *)devc->buffer;
258 int ret, desc_length;
259 int block_offset = 15; /* Offset for descriptor block. */
260 long data_length = 0;
262 /* Read header from device. */
263 ret = sr_scpi_read_data(scpi, buf, SIGLENT_HEADER_SIZE);
264 if (ret < SIGLENT_HEADER_SIZE) {
265 sr_err("Read error while reading data header.");
268 sr_dbg("Device returned %i bytes.", ret);
269 devc->num_header_bytes += ret;
270 buf += block_offset; /* Skip to start descriptor block. */
272 /* Parse WaveDescriptor header. */
273 memcpy(&desc_length, buf + 36, 4); /* Descriptor block length */
274 memcpy(&data_length, buf + 60, 4); /* Data block length */
276 devc->block_header_size = desc_length + 15;
277 devc->num_samples = data_length;
279 sr_dbg("Received data block header: '%s' -> block length %d.", buf, ret);
284 SR_PRIV int siglent_sds_receive(int fd, int revents, void *cb_data)
286 struct sr_dev_inst *sdi;
287 struct sr_scpi_dev_inst *scpi;
288 struct dev_context *devc;
289 struct sr_datafeed_packet packet;
290 struct sr_datafeed_analog analog;
291 struct sr_analog_encoding encoding;
292 struct sr_analog_meaning meaning;
293 struct sr_analog_spec spec;
294 struct sr_datafeed_logic logic;
296 struct sr_channel *ch;
300 if (!(sdi = cb_data))
303 if (!(devc = sdi->priv))
308 if (!(revents == G_IO_IN || revents == 0))
311 switch (devc->wait_event) {
315 if (siglent_sds_trigger_wait(sdi) != SR_OK)
317 if (siglent_sds_channel_start(sdi) != SR_OK)
321 if (siglent_sds_channel_start(sdi) != SR_OK)
325 if (siglent_sds_stop_wait(sdi) != SR_OK)
327 if (siglent_sds_channel_start(sdi) != SR_OK)
331 sr_err("BUG: Unknown event target encountered.");
334 ch = devc->channel_entry->data;
337 if (devc->num_block_bytes == 0) {
338 if (devc->memory_depth >= 14000000) {
339 sr_err("Device memory depth is set to 14Mpts, so please be patient.");
340 g_usleep(4900000); /* Sleep for large memory set. */
342 if (sr_scpi_read_begin(scpi) != SR_OK)
344 sr_dbg("New block header expected.");
345 len = siglent_sds_read_header(sdi);
347 /* Still reading the header. */
350 sr_err("Read error, aborting capture.");
351 packet.type = SR_DF_FRAME_END;
352 sr_session_send(sdi, &packet);
353 sdi->driver->dev_acquisition_stop(sdi);
356 devc->num_block_bytes = 0;
357 devc->num_block_read = 0;
361 sr_err("Read error, aborting capture.");
362 packet.type = SR_DF_FRAME_END;
363 sr_session_send(sdi, &packet);
364 sdi->driver->dev_acquisition_stop(sdi);
368 while (devc->num_block_bytes < devc->num_samples) {
369 len = sr_scpi_read_data(scpi, (char *)devc->buffer, devc->num_samples);
371 sr_err("Read error, aborting capture.");
372 packet.type = SR_DF_FRAME_END;
373 sr_session_send(sdi, &packet);
374 sdi->driver->dev_acquisition_stop(sdi);
377 devc->num_block_read += 1;
378 devc->num_block_bytes += len;
379 if (devc->num_block_bytes >= devc->num_samples ) {
380 /* Offset the data block buffer past the IEEE header and description header. */
381 devc->buffer += devc->block_header_size;
382 len = devc->num_samples;
384 sr_dbg("Received block: %i, %d bytes.", devc->num_block_read, len);
385 if (ch->type == SR_CHANNEL_ANALOG) {
386 float vdiv = devc->vdiv[ch->index];
387 float offset = devc->vert_offset[ch->index];
390 float voltage, vdivlog;
393 data = g_array_sized_new(FALSE, FALSE, sizeof(uint8_t), len);
394 g_array_append_vals(data, devc->buffer, len);
395 float_data = g_array_new(FALSE, FALSE, sizeof(float));
396 for (i = 0; i < len; i++) {
397 voltage = (float)g_array_index(data, int8_t, i) / 25;
398 voltage = ((vdiv * voltage) - offset);
399 g_array_append_val(float_data, voltage);
401 vdivlog = log10f(vdiv);
402 digits = -(int) vdivlog + (vdivlog < 0.0);
403 sr_analog_init(&analog, &encoding, &meaning, &spec, digits);
404 analog.meaning->channels = g_slist_append(NULL, ch);
405 analog.num_samples = float_data->len;
406 analog.data = (float *)float_data->data;
407 analog.meaning->mq = SR_MQ_VOLTAGE;
408 analog.meaning->unit = SR_UNIT_VOLT;
409 analog.meaning->mqflags = 0;
410 packet.type = SR_DF_ANALOG;
411 packet.payload = &analog;
412 sr_session_send(sdi, &packet);
413 g_slist_free(analog.meaning->channels);
414 g_array_free(data, TRUE);
418 logic.data = devc->buffer;
419 packet.type = SR_DF_LOGIC;
420 packet.payload = &logic;
421 sr_session_send(sdi, &packet);
424 if (devc->num_samples == devc->num_block_bytes) {
425 sr_dbg("Transfer has been completed.");
426 devc->num_header_bytes = 0;
427 devc->num_block_bytes = 0;
428 if (!sr_scpi_read_complete(scpi)) {
429 sr_err("Read should have been completed.");
430 packet.type = SR_DF_FRAME_END;
431 sr_session_send(sdi, &packet);
432 sdi->driver->dev_acquisition_stop(sdi);
435 devc->num_block_read = 0;
437 sr_dbg("%" PRIu64 " of %" PRIu64 " block bytes read.",
438 devc->num_block_bytes, devc->num_samples);
442 if (devc->channel_entry->next) {
443 /* We got the frame for this channel, now get the next channel. */
444 devc->channel_entry = devc->channel_entry->next;
445 siglent_sds_channel_start(sdi);
447 /* Done with this frame. */
448 packet.type = SR_DF_FRAME_END;
449 sr_session_send(sdi, &packet);
451 if (++devc->num_frames == devc->limit_frames) {
452 /* Last frame, stop capture. */
453 sdi->driver->dev_acquisition_stop(sdi);
455 /* Get the next frame, starting with the first channel. */
456 devc->channel_entry = devc->enabled_channels;
457 siglent_sds_capture_start(sdi);
459 /* Start of next frame. */
460 packet.type = SR_DF_FRAME_BEGIN;
461 sr_session_send(sdi, &packet);
468 SR_PRIV int siglent_sds_get_dev_cfg(const struct sr_dev_inst *sdi)
470 struct dev_context *devc;
471 struct sr_channel *ch;
472 char *cmd, *response;
481 /* Analog channel state. */
482 for (i = 0; i < devc->model->analog_channels; i++) {
483 cmd = g_strdup_printf("C%i:TRA?", i + 1);
484 res = sr_scpi_get_bool(sdi->conn, cmd, &devc->analog_channels[i]);
488 ch = g_slist_nth_data(sdi->channels, i);
489 ch->enabled = devc->analog_channels[i];
491 sr_dbg("Current analog channel state:");
492 for (i = 0; i < devc->model->analog_channels; i++)
493 sr_dbg("CH%d %s", i + 1, devc->analog_channels[i] ? "On" : "Off");
495 /* Digital channel state. */
496 if (devc->model->has_digital) {
499 sr_dbg("Check logic analyzer channel state.");
500 devc->la_enabled = FALSE;
501 cmd = g_strdup_printf("DGST?");
502 res = sr_scpi_get_bool(sdi->conn, cmd, &status);
506 sr_dbg("Logic analyzer status: %s", status ? "On" : "Off");
508 devc->la_enabled = TRUE;
509 for (i = 0; i < ARRAY_SIZE(devc->digital_channels); i++) {
510 cmd = g_strdup_printf("D%i:DGCH?", i);
511 res = sr_scpi_get_bool(sdi->conn, cmd, &devc->digital_channels[i]);
515 ch = g_slist_nth_data(sdi->channels, i + devc->model->analog_channels);
516 ch->enabled = devc->digital_channels[i];
517 sr_dbg("D%d: %s", i, devc->digital_channels[i] ? "On" : "Off");
520 for (i = 0; i < ARRAY_SIZE(devc->digital_channels); i++) {
521 ch = g_slist_nth_data(sdi->channels, i + devc->model->analog_channels);
522 devc->digital_channels[i] = FALSE;
523 ch->enabled = devc->digital_channels[i];
524 sr_dbg("D%d: %s", i, devc->digital_channels[i] ? "On" : "Off");
530 if (sr_scpi_get_float(sdi->conn, ":TDIV?", &devc->timebase) != SR_OK)
532 sr_dbg("Current timebase: %g.", devc->timebase);
534 /* Probe attenuation. */
535 for (i = 0; i < devc->model->analog_channels; i++) {
536 cmd = g_strdup_printf("C%d:ATTN?", i + 1);
537 res = sr_scpi_get_float(sdi->conn, cmd, &devc->attenuation[i]);
542 sr_dbg("Current probe attenuation:");
543 for (i = 0; i < devc->model->analog_channels; i++)
544 sr_dbg("CH%d %g", i + 1, devc->attenuation[i]);
546 /* Vertical gain and offset. */
547 if (siglent_sds_get_dev_cfg_vertical(sdi) != SR_OK)
551 for (i = 0; i < devc->model->analog_channels; i++) {
552 cmd = g_strdup_printf("C%d:CPL?", i + 1);
553 res = sr_scpi_get_string(sdi->conn, cmd, &devc->coupling[i]);
559 sr_dbg("Current coupling:");
560 for (i = 0; i < devc->model->analog_channels; i++)
561 sr_dbg("CH%d %s", i + 1, devc->coupling[i]);
563 /* Trigger source. */
566 if (sr_scpi_get_string(sdi->conn, "TRSE?", &response) != SR_OK)
568 tokens = g_strsplit(response, ",", 0);
569 for (num_tokens = 0; tokens[num_tokens] != NULL; num_tokens++);
570 if (num_tokens < 4) {
571 sr_dbg("IDN response not according to spec: %80.s.", response);
577 devc->trigger_source = g_strstrip(g_strdup(tokens[2]));
578 sr_dbg("Current trigger source: %s.", devc->trigger_source);
580 /* TODO: Horizontal trigger position. */
583 if (sr_scpi_get_string(sdi->conn, g_strdup_printf("%s:TRDL?", devc->trigger_source), &response) != SR_OK)
585 len = strlen(response);
586 if (!g_ascii_strcasecmp(response + (len - 2), "us")) {
587 trigger_pos = atof(response) / SR_GHZ(1);
588 sr_dbg("Current trigger position us %s.", response);
589 } else if (!g_ascii_strcasecmp(response + (len - 2), "ns")) {
590 trigger_pos = atof(response) / SR_MHZ(1);
591 sr_dbg("Current trigger position ms %s.", response);
592 } else if (!g_ascii_strcasecmp(response + (len - 2), "ms")) {
593 trigger_pos = atof(response) / SR_KHZ(1);
594 sr_dbg("Current trigger position ns %s.", response);
595 } else if (!g_ascii_strcasecmp(response + (len - 2), "s")) {
596 trigger_pos = atof(response);
597 sr_dbg("Current trigger position s %s.", response);
599 devc->horiz_triggerpos = trigger_pos;
601 sr_dbg("Current horizontal trigger position %.10f", devc->horiz_triggerpos);
604 cmd = g_strdup_printf("%s:TRSL?", devc->trigger_source);
605 res = sr_scpi_get_string(sdi->conn, cmd, &devc->trigger_slope);
609 sr_dbg("Current trigger slope: %s.", devc->trigger_slope);
612 cmd = g_strdup_printf("%s:TRLV?", devc->trigger_source);
613 res = sr_scpi_get_float(sdi->conn, cmd, &devc->trigger_level);
617 sr_dbg("Current trigger level: %g.", devc->trigger_level);
621 SR_PRIV int siglent_sds_get_dev_cfg_vertical(const struct sr_dev_inst *sdi)
623 struct dev_context *devc;
631 for (i = 0; i < devc->model->analog_channels; i++) {
632 cmd = g_strdup_printf("C%d:VDIV?", i + 1);
633 res = sr_scpi_get_float(sdi->conn, cmd, &devc->vdiv[i]);
638 sr_dbg("Current vertical gain:");
639 for (i = 0; i < devc->model->analog_channels; i++)
640 sr_dbg("CH%d %g", i + 1, devc->vdiv[i]);
642 /* Vertical offset. */
643 for (i = 0; i < devc->model->analog_channels; i++) {
644 cmd = g_strdup_printf("C%d:OFST?", i + 1);
645 res = sr_scpi_get_float(sdi->conn, cmd, &devc->vert_offset[i]);
650 sr_dbg("Current vertical offset:");
651 for (i = 0; i < devc->model->analog_channels; i++)
652 sr_dbg("CH%d %g", i + 1, devc->vert_offset[i]);
657 SR_PRIV int siglent_sds_get_dev_cfg_horizontal(const struct sr_dev_inst *sdi)
659 struct dev_context *devc;
662 char *sample_points_string;
663 float samplerate_scope, fvalue;
666 cmd = g_strdup_printf("SANU? C1");
667 res = sr_scpi_get_string(sdi->conn, cmd, &sample_points_string);
669 samplerate_scope = 0;
674 if (g_strstr_len(sample_points_string, -1, "Mpts") != NULL) {
675 sample_points_string[strlen(sample_points_string) -4] = '\0';
676 if (sr_atof_ascii(sample_points_string, &fvalue) != SR_OK) {
677 sr_dbg("Invalid float converted from scope response.");
680 samplerate_scope = fvalue * 1000000;
681 } else if (g_strstr_len(sample_points_string, -1, "Kpts") != NULL){
682 sample_points_string[strlen(sample_points_string) -4] = '\0';
683 if (sr_atof_ascii(sample_points_string, &fvalue) != SR_OK) {
684 sr_dbg("Invalid float converted from scope response.");
687 samplerate_scope = fvalue * 10000;
689 samplerate_scope = fvalue;
691 g_free(sample_points_string);
692 /* Get the timebase. */
693 if (sr_scpi_get_float(sdi->conn, ":TDIV?", &devc->timebase) != SR_OK)
695 sr_dbg("Current timebase: %g.", devc->timebase);
696 devc->samplerate = samplerate_scope / (devc->timebase * devc->model->series->num_horizontal_divs);
697 devc->memory_depth = samplerate_scope;