]> sigrok.org Git - libsigrok.git/blame_incremental - src/hardware/arachnid-labs-re-load-pro/protocol.c
output/csv: use intermediate time_t var, silence compiler warning
[libsigrok.git] / src / hardware / arachnid-labs-re-load-pro / protocol.c
... / ...
CommitLineData
1/*
2 * This file is part of the libsigrok project.
3 *
4 * Copyright (C) 2015-2016 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, see <http://www.gnu.org/licenses/>.
18 */
19
20#include <config.h>
21#include <math.h>
22#include <string.h>
23#include "protocol.h"
24
25#define READ_TIMEOUT_MS 500
26
27static int send_cmd(const struct sr_dev_inst *sdi, const char *cmd,
28 char *replybuf, int replybufsize)
29{
30 char *bufptr;
31 int len, ret;
32 struct dev_context *devc;
33 struct sr_serial_dev_inst *serial;
34
35 devc = sdi->priv;
36 serial = sdi->conn;
37
38 /* Send the command (blocking, with timeout). */
39 if ((ret = serial_write_blocking(serial, cmd,
40 strlen(cmd), serial_timeout(serial,
41 strlen(cmd)))) < (int)strlen(cmd)) {
42 sr_err("Unable to send command.");
43 return SR_ERR;
44 }
45
46 if (!devc->acquisition_running) {
47 /* Read the reply (blocking, with timeout). */
48 memset(replybuf, 0, replybufsize);
49 bufptr = replybuf;
50 len = replybufsize;
51 ret = serial_readline(serial, &bufptr, &len, READ_TIMEOUT_MS);
52
53 /* If we got 0 characters (possibly one \r or \n), retry once. */
54 if (len == 0) {
55 len = replybufsize;
56 ret = serial_readline(serial, &bufptr, &len, READ_TIMEOUT_MS);
57 }
58
59 if (g_str_has_prefix((const char *)&bufptr, "err ")) {
60 sr_err("Device replied with an error: '%s'.", bufptr);
61 return SR_ERR;
62 }
63 }
64
65 return ret;
66}
67
68SR_PRIV int reloadpro_set_current_limit(const struct sr_dev_inst *sdi,
69 float current_limit)
70{
71 struct dev_context *devc;
72 int ret, ma;
73 char buf[100];
74 char *cmd;
75
76 devc = sdi->priv;
77
78 if (current_limit < 0 || current_limit > 6) {
79 sr_err("The current limit must be 0-6 A (was %f A).", current_limit);
80 return SR_ERR_ARG;
81 }
82
83 /* Hardware expects current limit in mA, integer (0..6000). */
84 ma = (int)round(current_limit * 1000);
85
86 cmd = g_strdup_printf("set %d\n", ma);
87 g_mutex_lock(&devc->acquisition_mutex);
88 ret = send_cmd(sdi, cmd, (char *)&buf, sizeof(buf));
89 g_mutex_unlock(&devc->acquisition_mutex);
90 g_free(cmd);
91
92 if (ret < 0) {
93 sr_err("Error sending current limit command: %d.", ret);
94 return SR_ERR;
95 }
96 return SR_OK;
97}
98
99SR_PRIV int reloadpro_set_on_off(const struct sr_dev_inst *sdi, gboolean on)
100{
101 struct dev_context *devc;
102 int ret;
103 char buf[100];
104 const char *cmd;
105
106 devc = sdi->priv;
107
108 cmd = (on) ? "on\n" : "off\n";
109 g_mutex_lock(&devc->acquisition_mutex);
110 ret = send_cmd(sdi, cmd, (char *)&buf, sizeof(buf));
111 g_mutex_unlock(&devc->acquisition_mutex);
112
113 if (ret < 0) {
114 sr_err("Error sending on/off command: %d.", ret);
115 return SR_ERR;
116 }
117 return SR_OK;
118}
119
120SR_PRIV int reloadpro_set_under_voltage_threshold(const struct sr_dev_inst *sdi,
121 float voltage)
122{
123 struct dev_context *devc;
124 int ret, mv;
125 char buf[100];
126 char *cmd;
127
128 devc = sdi->priv;
129
130 if (voltage < 0 || voltage > 60) {
131 sr_err("The under voltage threshold must be 0-60 V (was %f V).",
132 voltage);
133 return SR_ERR_ARG;
134 }
135
136 /* Hardware expects voltage in mV, integer (0..60000). */
137 mv = (int)round(voltage * 1000);
138
139 sr_spew("Setting under voltage threshold to %f V (%d mV).", voltage, mv);
140
141 cmd = g_strdup_printf("uvlo %d\n", mv);
142 g_mutex_lock(&devc->acquisition_mutex);
143 ret = send_cmd(sdi, cmd, (char *)&buf, sizeof(buf));
144 g_mutex_unlock(&devc->acquisition_mutex);
145 g_free(cmd);
146
147 if (ret < 0) {
148 sr_err("Error sending under voltage threshold command: %d.", ret);
149 return SR_ERR;
150 }
151 return SR_OK;
152}
153
154SR_PRIV int reloadpro_get_current_limit(const struct sr_dev_inst *sdi,
155 float *current_limit)
156{
157 struct dev_context *devc;
158 int ret;
159 char buf[100];
160 gint64 end_time;
161
162 devc = sdi->priv;
163
164 g_mutex_lock(&devc->acquisition_mutex);
165 if ((ret = send_cmd(sdi, "set\n", (char *)&buf, sizeof(buf))) < 0) {
166 sr_err("Error sending current limit query: %d.", ret);
167 return SR_ERR;
168 }
169
170 if (devc->acquisition_running) {
171 end_time = g_get_monotonic_time () + 5 * G_TIME_SPAN_SECOND;
172 if (!g_cond_wait_until(&devc->current_limit_cond,
173 &devc->acquisition_mutex, end_time)) {
174 /* Timeout has passed. */
175 g_mutex_unlock(&devc->acquisition_mutex);
176 return SR_ERR;
177 }
178 } else {
179 /* Hardware sends current limit in mA, integer (0..6000). */
180 devc->current_limit = g_ascii_strtod(buf + 4, NULL) / 1000;
181 }
182 g_mutex_unlock(&devc->acquisition_mutex);
183
184 if (current_limit)
185 *current_limit = devc->current_limit;
186
187 return SR_OK;
188}
189
190SR_PRIV int reloadpro_get_under_voltage_threshold(const struct sr_dev_inst *sdi,
191 float *uvc_threshold)
192{
193 struct dev_context *devc;
194 int ret;
195 char buf[100];
196 gint64 end_time;
197
198 devc = sdi->priv;
199
200 g_mutex_lock(&devc->acquisition_mutex);
201 if ((ret = send_cmd(sdi, "uvlo\n", (char *)&buf, sizeof(buf))) < 0) {
202 sr_err("Error sending under voltage threshold query: %d.", ret);
203 return SR_ERR;
204 }
205
206 if (devc->acquisition_running) {
207 end_time = g_get_monotonic_time () + 5 * G_TIME_SPAN_SECOND;
208 if (!g_cond_wait_until(&devc->uvc_threshold_cond,
209 &devc->acquisition_mutex, end_time)) {
210 /* Timeout has passed. */
211 g_mutex_unlock(&devc->acquisition_mutex);
212 return SR_ERR;
213 }
214 } else {
215 /* Hardware sends voltage in mV, integer (0..60000). */
216 devc->uvc_threshold = g_ascii_strtod(buf + 5, NULL) / 1000;
217 }
218 g_mutex_unlock(&devc->acquisition_mutex);
219
220 if (uvc_threshold)
221 *uvc_threshold = devc->uvc_threshold;
222
223 return SR_OK;
224}
225
226SR_PRIV int reloadpro_get_voltage_current(const struct sr_dev_inst *sdi,
227 float *voltage, float *current)
228{
229 struct dev_context *devc;
230 int ret;
231 char buf[100];
232 char **tokens;
233 gint64 end_time;
234
235 devc = sdi->priv;
236
237 g_mutex_lock(&devc->acquisition_mutex);
238 if ((ret = send_cmd(sdi, "read\n", (char *)&buf, sizeof(buf))) < 0) {
239 sr_err("Error sending voltage/current query: %d.", ret);
240 return SR_ERR;
241 }
242
243 if (devc->acquisition_running) {
244 end_time = g_get_monotonic_time () + 5 * G_TIME_SPAN_SECOND;
245 if (!g_cond_wait_until(&devc->voltage_cond,
246 &devc->acquisition_mutex, end_time)) {
247 /* Timeout has passed. */
248 g_mutex_unlock(&devc->acquisition_mutex);
249 return SR_ERR;
250 }
251 } else {
252 /* Reply: "read <current> <voltage>". */
253 tokens = g_strsplit((const char *)&buf, " ", 3);
254 devc->voltage = g_ascii_strtod(tokens[2], NULL) / 1000;
255 devc->current = g_ascii_strtod(tokens[1], NULL) / 1000;
256 g_strfreev(tokens);
257 }
258 g_mutex_unlock(&devc->acquisition_mutex);
259
260 if (voltage)
261 *voltage = devc->voltage;
262 if (current)
263 *current = devc->current;
264
265 return SR_OK;
266}
267
268static void handle_packet(const struct sr_dev_inst *sdi)
269{
270 struct sr_datafeed_packet packet;
271 struct sr_datafeed_analog analog;
272 struct sr_analog_encoding encoding;
273 struct sr_analog_meaning meaning;
274 struct sr_analog_spec spec;
275 struct dev_context *devc;
276 char **tokens;
277 GSList *l;
278
279 devc = sdi->priv;
280
281 if (g_str_has_prefix((const char *)devc->buf, "overtemp")) {
282 sr_warn("Overtemperature condition!");
283 devc->otp_active = TRUE;
284 sr_session_send_meta(sdi, SR_CONF_OVER_TEMPERATURE_PROTECTION_ACTIVE,
285 g_variant_new_boolean(TRUE));
286 return;
287 }
288
289 if (g_str_has_prefix((const char *)devc->buf, "undervolt")) {
290 sr_warn("Undervoltage condition!");
291 devc->uvc_active = TRUE;
292 sr_session_send_meta(sdi, SR_CONF_UNDER_VOLTAGE_CONDITION_ACTIVE,
293 g_variant_new_boolean(TRUE));
294 return;
295 }
296
297 if (g_str_has_prefix((const char *)devc->buf, "err ")) {
298 sr_err("Device replied with an error: '%s'.", devc->buf);
299 return;
300 }
301
302 if (g_str_has_prefix((const char *)devc->buf, "set ")) {
303 tokens = g_strsplit((const char *)devc->buf, " ", 2);
304 devc->current_limit = g_ascii_strtod(tokens[1], NULL) / 1000;
305 g_strfreev(tokens);
306 g_cond_signal(&devc->current_limit_cond);
307 sr_session_send_meta(sdi, SR_CONF_CURRENT_LIMIT,
308 g_variant_new_double(devc->current_limit));
309 return;
310 }
311
312 if (g_str_has_prefix((const char *)devc->buf, "uvlo ")) {
313 tokens = g_strsplit((const char *)devc->buf, " ", 2);
314 devc->uvc_threshold = g_ascii_strtod(tokens[1], NULL) / 1000;
315 g_strfreev(tokens);
316 g_cond_signal(&devc->uvc_threshold_cond);
317 if (devc->uvc_threshold == .0) {
318 sr_session_send_meta(sdi, SR_CONF_UNDER_VOLTAGE_CONDITION,
319 g_variant_new_boolean(FALSE));
320 } else {
321 sr_session_send_meta(sdi, SR_CONF_UNDER_VOLTAGE_CONDITION,
322 g_variant_new_boolean(TRUE));
323 sr_session_send_meta(sdi,
324 SR_CONF_UNDER_VOLTAGE_CONDITION_THRESHOLD,
325 g_variant_new_double(devc->uvc_threshold));
326 }
327 return;
328 }
329
330 if (!g_str_has_prefix((const char *)devc->buf, "read ")) {
331 sr_dbg("Unknown packet: '%s'.", devc->buf);
332 return;
333 }
334
335 tokens = g_strsplit((const char *)devc->buf, " ", 3);
336 devc->voltage = g_ascii_strtod(tokens[2], NULL) / 1000;
337 devc->current = g_ascii_strtod(tokens[1], NULL) / 1000;
338 g_strfreev(tokens);
339 g_cond_signal(&devc->voltage_cond);
340
341 /* Begin frame. */
342 std_session_send_df_frame_begin(sdi);
343
344 sr_analog_init(&analog, &encoding, &meaning, &spec, 4);
345
346 packet.type = SR_DF_ANALOG;
347 packet.payload = &analog;
348 analog.num_samples = 1;
349
350 /* Voltage */
351 l = g_slist_copy(sdi->channels);
352 l = g_slist_remove_link(l, g_slist_nth(l, 1));
353 meaning.channels = l;
354 meaning.mq = SR_MQ_VOLTAGE;
355 meaning.mqflags = SR_MQFLAG_DC;
356 meaning.unit = SR_UNIT_VOLT;
357 encoding.digits = 3;
358 analog.data = &devc->voltage;
359 sr_session_send(sdi, &packet);
360 g_slist_free(l);
361
362 /* Current */
363 l = g_slist_copy(sdi->channels);
364 l = g_slist_remove_link(l, g_slist_nth(l, 0));
365 meaning.channels = l;
366 meaning.mq = SR_MQ_CURRENT;
367 meaning.mqflags = SR_MQFLAG_DC;
368 meaning.unit = SR_UNIT_AMPERE;
369 encoding.digits = 3;
370 analog.data = &devc->current;
371 sr_session_send(sdi, &packet);
372 g_slist_free(l);
373
374 /* End frame. */
375 std_session_send_df_frame_end(sdi);
376
377 sr_sw_limits_update_samples_read(&devc->limits, 1);
378}
379
380static void handle_new_data(const struct sr_dev_inst *sdi)
381{
382 int len;
383 struct dev_context *devc;
384 struct sr_serial_dev_inst *serial;
385 char *buf;
386
387 devc = sdi->priv;
388 serial = sdi->conn;
389
390 len = RELOADPRO_BUFSIZE - devc->buflen;
391 buf = devc->buf;
392 g_mutex_lock(&devc->acquisition_mutex);
393 if (serial_readline(serial, &buf, &len, 250) != SR_OK) {
394 g_mutex_unlock(&devc->acquisition_mutex);
395 return;
396 }
397
398 if (len == 0) {
399 g_mutex_unlock(&devc->acquisition_mutex);
400 return; /* No new bytes, nothing to do. */
401 }
402 if (len < 0) {
403 sr_err("Serial port read error: %d.", len);
404 g_mutex_unlock(&devc->acquisition_mutex);
405 return;
406 }
407 devc->buflen += len;
408
409 handle_packet(sdi);
410 g_mutex_unlock(&devc->acquisition_mutex);
411 memset(devc->buf, 0, RELOADPRO_BUFSIZE);
412 devc->buflen = 0;
413}
414
415SR_PRIV int reloadpro_receive_data(int fd, int revents, void *cb_data)
416{
417 struct sr_dev_inst *sdi;
418 struct dev_context *devc;
419
420 (void)fd;
421
422 sdi = cb_data;
423 devc = sdi->priv;
424
425 if (revents != G_IO_IN)
426 return TRUE;
427
428 handle_new_data(sdi);
429
430 if (sr_sw_limits_check(&devc->limits))
431 sr_dev_acquisition_stop(sdi);
432
433 return TRUE;
434}