src/hardware/motech-lps-30x/api.c

   1 /*
   2  * This file is part of the libsigrok project.
   3  *
   4  * Copyright (C) 2014 Matthias Heidbrink <m-sigrok@heidbrink.biz>
   5  * Copyright (C) 2014 Bert Vermeulen <bert@biot.com> (code from atten-pps3xxx)
   6  *
   7  * This program is free software: you can redistribute it and/or modify
   8  * it under the terms of the GNU General Public License as published by
   9  * the Free Software Foundation, either version 3 of the License, or
  10  * (at your option) any later version.
  11  *
  12  * This program is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  * GNU General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU General Public License
  18  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  19  */
  20
  21 /** @file
  22  *  <em>Motech LPS-30x series</em> power supply driver
  23  *  @internal
  24  */
  25
  26 #include <config.h>
  27 #include <ctype.h>
  28 #include <math.h>
  29 #include <string.h>
  30 #include "protocol.h"
  31 SR_PRIV int lps_read_reply(struct sr_serial_dev_inst *serial, char **buf, int *buflen);
  32 SR_PRIV int lps_send_va(struct sr_serial_dev_inst *serial, const char *fmt, va_list args);
  33 SR_PRIV int lps_cmd_ok(struct sr_serial_dev_inst *serial, const char *fmt, ...);
  34 SR_PRIV int lps_cmd_reply(char *reply, struct sr_serial_dev_inst *serial, const char *fmt, ...);
  35 SR_PRIV int lps_query_status(struct sr_dev_inst *sdi);
  36
  37 /* Serial communication parameters */
  38 #define SERIALCOMM "2400/8n1/dtr=1/rts=1/flow=0"
  39
  40 #define VENDOR_MOTECH "Motech"
  41
  42 /** Driver capabilities generic. */
  43 static const uint32_t drvopts[] = {
  44         /* Device class */
  45         SR_CONF_POWER_SUPPLY,
  46 };
  47
  48 /** Driver scanning options. */
  49 static const uint32_t scanopts[] = {
  50         SR_CONF_CONN,
  51         SR_CONF_SERIALCOMM,
  52 };
  53
  54 /** Hardware capabilities generic. */
  55 static const uint32_t devopts[] = {
  56         /* Device class */
  57         SR_CONF_POWER_SUPPLY,
  58         /* Acquisition modes. */
  59         SR_CONF_CONTINUOUS,
  60         SR_CONF_LIMIT_SAMPLES | SR_CONF_GET | SR_CONF_SET,
  61         SR_CONF_LIMIT_MSEC | SR_CONF_GET | SR_CONF_SET,
  62         /* Device configuration */
  63         SR_CONF_CHANNEL_CONFIG | SR_CONF_GET | SR_CONF_SET | SR_CONF_LIST,
  64 };
  65
  66 /** Hardware capabilities channel 1, 2. */
  67 static const uint32_t devopts_ch12[] = {
  68         SR_CONF_VOLTAGE | SR_CONF_GET,
  69         SR_CONF_VOLTAGE_TARGET | SR_CONF_GET | SR_CONF_SET | SR_CONF_LIST,
  70         SR_CONF_CURRENT | SR_CONF_GET,
  71         SR_CONF_CURRENT_LIMIT | SR_CONF_GET | SR_CONF_SET | SR_CONF_LIST,
  72         SR_CONF_ENABLED | SR_CONF_GET | SR_CONF_SET,
  73 };
  74
  75 /** Hardware capabilities channel 3. (LPS-304/305 only). */
  76 static const uint32_t devopts_ch3[] = {
  77         SR_CONF_VOLTAGE | SR_CONF_GET,
  78         SR_CONF_ENABLED | SR_CONF_GET | SR_CONF_SET,
  79 };
  80
  81 static const char *channel_modes[] = {
  82         "Independent",
  83         "Track1",
  84         "Track2",
  85 };
  86
  87 static const struct lps_modelspec models[] = {
  88         { LPS_UNKNOWN, "Dummy", 0,
  89                 {
  90
  91                 }
  92         },
  93         { LPS_301, "LPS-301", 1,
  94                 {
  95                         /* Channel 1 */
  96                         { { 0, 32, 0.01 }, { 0.005, 2, 0.001 } },
  97                 },
  98         },
  99         { LPS_302, "LPS-302", 1,
 100                 {
 101                         /* Channel 1 */
 102                         { { 0, 32, 0.01 }, { 0.005, 3, 0.001 } },
 103                 },
 104         },
 105         { LPS_303, "LPS-303", 1,
 106                 {
 107                         /* Channel 1 */
 108                         { { 0, 32, 0.01 }, { 0.005, 3, 0.001 } },
 109                 },
 110         },
 111         { LPS_304, "LPS-304", 3,
 112                 {
 113                         /* Channel 1 */
 114                         { { 0, 32, 0.01 }, { 0.005, 3, 0.001 } },
 115                         /* Channel 2 */
 116                         { { 0, 32, 0.01 }, { 0.005, 3, 0.001 } },
 117                         /* Channel 3 */
 118                         { { 5, 5, 0.0 }, { 0.005, 3, 0.001 } },
 119                 },
 120         },
 121         { LPS_305, "LPS-305", 3,
 122                 {
 123                         /* Channel 1 */
 124                         { { 0, 32, 0.01 }, { 0.005, 3, 0.001 } },
 125                         /* Channel 2 */
 126                         { { 0, 32, 0.01 }, { 0.005, 3, 0.001 } },
 127                         /* Channel 3 */
 128                         { { 3.3, 5, 1.7 }, { 0.005, 3, 0.001 } },
 129                 },
 130         },
 131 };
 132
 133 /** Send command to device with va_list.
 134  */
 135 SR_PRIV int lps_send_va(struct sr_serial_dev_inst *serial, const char *fmt, va_list args)
 136 {
 137         int retc;
 138         char auxfmt[LINELEN_MAX];
 139         char buf[LINELEN_MAX];
 140
 141         snprintf(auxfmt, sizeof(auxfmt), "%s\r\n", fmt);
 142         vsnprintf(buf, sizeof(buf), auxfmt, args);
 143
 144         sr_spew("lps_send_va: \"%s\"", buf);
 145
 146         retc = serial_write_blocking(serial, buf, strlen(buf),
 147                         serial_timeout(serial, strlen(buf)));
 148
 149         if (retc < 0)
 150                 return SR_ERR;
 151
 152         return SR_OK;
 153 }
 154
 155 /** Send command to device.
 156  */
 157 SR_PRIV int lps_send_req(struct sr_serial_dev_inst *serial, const char *fmt, ...)
 158 {
 159         int retc;
 160         va_list args;
 161
 162         va_start(args, fmt);
 163         retc = lps_send_va(serial, fmt, args);
 164         va_end(args);
 165
 166         return retc;
 167 }
 168
 169 /** Send command and consume simple OK reply. */
 170 SR_PRIV int lps_cmd_ok(struct sr_serial_dev_inst *serial, const char *fmt, ...)
 171 {
 172         int retc;
 173         va_list args;
 174         char buf[LINELEN_MAX];
 175         char *bufptr;
 176         int  buflen;
 177
 178         /* Send command */
 179         va_start(args, fmt);
 180         retc = lps_send_va(serial, fmt, args);
 181         va_end(args);
 182
 183         if (retc != SR_OK)
 184                 return SR_ERR;
 185
 186         /* Read reply */
 187         buf[0] = '\0';
 188         bufptr = buf;
 189         buflen = sizeof(buf);
 190         retc = lps_read_reply(serial, &bufptr, &buflen);
 191         if ((retc == SR_OK) && (buflen == 0))
 192                 return SR_OK;
 193
 194         return SR_ERR;
 195 }
 196
 197 /** Send command and read reply string.
 198  *  @param reply Pointer to buffer of size LINELEN_MAX. Will be NUL-terminated.
 199  */
 200 SR_PRIV int lps_cmd_reply(char *reply, struct sr_serial_dev_inst *serial, const char *fmt, ...)
 201 {
 202         int retc;
 203         va_list args;
 204         char buf[LINELEN_MAX];
 205         char *bufptr;
 206         int  buflen;
 207
 208         reply[0] = '\0';
 209
 210         /* Send command */
 211         va_start(args, fmt);
 212         retc = lps_send_va(serial, fmt, args);
 213         va_end(args);
 214
 215         if (retc != SR_OK)
 216                 return SR_ERR;
 217
 218         /* Read reply */
 219         buf[0] = '\0';
 220         bufptr = buf;
 221         buflen = sizeof(buf);
 222         retc = lps_read_reply(serial, &bufptr, &buflen);
 223         if ((retc == SR_OK) && (buflen > 0)) {
 224                 strcpy(reply, buf);
 225                 return SR_OK;
 226         }
 227
 228         return SR_ERR;
 229 }
 230
 231 /** Process integer value returned by STATUS command. */
 232 SR_PRIV int lps_process_status(struct sr_dev_inst *sdi, int stat)
 233 {
 234         struct dev_context *devc;
 235         int tracking_mode;
 236
 237         devc = sdi->priv;
 238
 239         sr_spew("Status: %d", stat);
 240         devc->channel_status[0].cc_mode = (stat & 0x01) != 0;
 241         sr_spew("Channel 1 %s mode", devc->channel_status[0].cc_mode?"CC":"CV");
 242         if (devc->model->num_channels > 1) {
 243                 devc->channel_status[1].cc_mode = (stat & 0x02) != 0;
 244                 sr_spew("Channel 2 %s mode", devc->channel_status[1].cc_mode?"CC":"CV");
 245
 246                 tracking_mode = (stat & 0x0c) >> 2;
 247                 switch (tracking_mode) {
 248                 case 0: devc->tracking_mode = 0;
 249                         break;
 250                 case 2: devc->tracking_mode = 1;
 251                         break;
 252                 case 3: devc->tracking_mode = 2;
 253                         break;
 254                 default:
 255                         sr_err("Illegal channel tracking mode %d!", tracking_mode);
 256                         devc->tracking_mode = 0;
 257                         break;
 258                 }
 259
 260                 sr_spew("Channel tracking: %d", devc->tracking_mode);
 261         }
 262         devc->channel_status[0].output_enabled = devc->channel_status[1].output_enabled = stat&0x040?TRUE:FALSE;
 263         sr_spew("Channel 1%s output: %s", devc->model->num_channels > 1?"+2":"", devc->channel_status[0].output_enabled?"ON":"OFF");
 264         if (devc->model->num_channels > 2) {
 265                 devc->channel_status[2].output_enabled = stat&0x010?TRUE:FALSE;
 266                 devc->channel_status[2].output_voltage_last = stat&0x020?3.3:5;
 267                 sr_spew("Channel 3 output: %s, U=%02f V, overload=%d",
 268                         devc->channel_status[2].output_enabled?"ON":"OFF",
 269                         devc->channel_status[2].output_voltage_last,
 270                         stat&0x080?1:0);
 271         }
 272         sr_spew("Fan=%d, beep=%d, CC output compensated=%d", stat&0x0100?1:0, stat&0x0200?1:0, stat&0x0400?1:0);
 273
 274         return SR_OK;
 275 }
 276
 277 /** Send STATUS commend and process status string. */
 278 SR_PRIV int lps_query_status(struct sr_dev_inst *sdi)
 279 {
 280         char buf[LINELEN_MAX];
 281         int stat, ret;
 282         struct dev_context *devc;
 283
 284         devc = sdi->priv;
 285
 286         devc->req_sent_at = g_get_real_time();
 287
 288         if ((ret = lps_cmd_reply(buf, sdi->conn, "STATUS")) < 0) {
 289                 sr_err("%s: Failed to read status: %s.", __func__,
 290                         sr_strerror(ret));
 291                 return SR_ERR;
 292         }
 293
 294         if (sr_atoi(buf, &stat) != SR_OK)
 295                 return SR_ERR;
 296
 297         return lps_process_status(sdi, stat);
 298 }
 299
 300 static gint64 calc_timeout_ms(gint64 start_us)
 301 {
 302         gint64 result = REQ_TIMEOUT_MS - ((g_get_real_time() - start_us) / 1000);
 303
 304         if (result < 0)
 305                 return 0;
 306
 307         return result;
 308 }
 309
 310 /** Read message into buf until "OK" received.
 311  *  @retval SR_OK Msg received; buf and buflen contain result, if any except OK.
 312  *  @retval SR_ERR Error, including timeout.
 313 */
 314 SR_PRIV int lps_read_reply(struct sr_serial_dev_inst *serial, char **buf, int *buflen)
 315 {
 316         int retries;
 317         char buf2[LINELEN_MAX];
 318         char *buf2ptr;
 319         int buf2len;
 320         gint64 timeout_start;
 321
 322         *buf[0] = '\0';
 323
 324         /* Read one line. It is either a data message or "OK". */
 325         timeout_start = g_get_real_time();
 326         buf2len = *buflen;
 327         /* Up to 5 tries because serial_readline() will consume only one CR or LF per
 328          * call, but device sends up to 4 in a row. */
 329         for (retries = 0; retries < 5; retries++) {
 330                 *buflen = buf2len;
 331                 if (serial_readline(serial, buf, buflen, calc_timeout_ms(timeout_start)) != SR_OK)
 332                         return SR_ERR;
 333                 if (!strcmp(*buf, "OK")) { /* We got an OK! */
 334                         *buf[0] = '\0';
 335                         *buflen = 0;
 336                         return SR_OK;
 337                 }
 338                 if (*buflen > 0) /* We got a msg! */
 339                         break;
 340         }
 341
 342         /* A data msg is in buf (possibly ERROR), need to consume "OK". */
 343         buf2[0] = '\0';
 344         buf2ptr = buf2;
 345         for (retries = 0; retries < 5; retries++) {
 346                 buf2len = sizeof(buf2);
 347                 if (serial_readline(serial, &buf2ptr, &buf2len, calc_timeout_ms(timeout_start)) != SR_OK)
 348                         return SR_ERR;
 349
 350                 if (!strcmp(buf2ptr, "OK")) { /* We got an OK! */
 351                         if (!strcmp(*buf, "ERROR")) { /* OK came after msg ERROR! */
 352                                 sr_spew("ERROR found!");
 353                                 *buf[0] = '\0';
 354                                 *buflen = 0;
 355                                 return SR_ERR;
 356                         }
 357                         return SR_OK;
 358                 }
 359         }
 360
 361         return SR_ERR; /* Timeout! */
 362 }
 363
 364 /** Scan for LPS-300 series device.
 365  */
 366 static GSList *do_scan(lps_modelid modelid, struct sr_dev_driver *drv, GSList *options)
 367 {
 368         struct sr_dev_inst *sdi;
 369         struct dev_context *devc;
 370         struct sr_serial_dev_inst *serial;
 371         struct sr_channel *ch;
 372         struct sr_channel_group *cg;
 373         const char *conn, *serialcomm;
 374         int cnt, ret;
 375         gchar buf[LINELEN_MAX];
 376         gchar channel[10];
 377         char *verstr;
 378
 379         sdi = NULL;
 380         devc = NULL;
 381         conn = serialcomm = NULL;
 382
 383         sr_spew("scan() called!");
 384
 385         /* Process and check options. */
 386         if (sr_serial_extract_options(options, &conn, &serialcomm) != SR_OK)
 387                 return NULL;
 388         if (!serialcomm)
 389                 serialcomm = SERIALCOMM;
 390
 391         /* Init serial port. */
 392         serial = sr_serial_dev_inst_new(conn, serialcomm);
 393
 394         if (serial_open(serial, SERIAL_RDWR) != SR_OK)
 395                 goto exit_err;
 396
 397         /* Query and verify model string. */
 398         serial_flush(serial);
 399         if (lps_cmd_reply(buf, serial, "MODEL") != SR_OK)
 400                 return NULL;
 401
 402         /* Check model string. */
 403         if (strncmp(buf, "LPS-", 4)) {
 404                 sr_spew("Unknown model code \"%s\"!", buf);
 405                 return NULL;
 406         }
 407
 408         /* Bug in device FW 1.17, model number is empty, so this can't work with this FW! */
 409         if (modelid == LPS_UNKNOWN) {
 410                 g_strstrip(buf);
 411                 for (cnt = LPS_301; cnt <= LPS_305; cnt++) {
 412                         if (!strcmp(buf, models[cnt].modelstr)) {
 413                                 modelid = cnt;
 414                                 break;
 415                         }
 416                 }
 417                 if (modelid == LPS_UNKNOWN) {
 418                         sr_err("Unable to detect model from model string '%s'!", buf);
 419                         return NULL;
 420                 }
 421         }
 422
 423         /* Query version */
 424         verstr = NULL;
 425         if ((ret = lps_cmd_reply(buf, serial, "VERSION")) == SR_OK) {
 426                 if (strncmp(buf, "Ver-", 4)) {
 427                         sr_spew("Version string %s not recognized.", buf);
 428                         goto exit_err;
 429                 }
 430
 431                 g_strstrip(buf);
 432                 verstr = buf + 4;
 433         }
 434         else  /* Bug in device FW 1.17: Querying version string fails while output is active.
 435                 Therefore just print an error message, but do not exit with error. */
 436                 sr_err("Failed to query for hardware version: %s.",
 437                         sr_strerror(ret));
 438
 439         sdi = g_malloc0(sizeof(struct sr_dev_inst));
 440         sdi->status = SR_ST_INACTIVE;
 441         sdi->vendor = g_strdup(VENDOR_MOTECH);
 442         sdi->model = g_strdup(models[modelid].modelstr);
 443         sdi->version = g_strdup(verstr);
 444         sdi->inst_type = SR_INST_SERIAL;
 445         sdi->conn = serial;
 446
 447         devc = g_malloc0(sizeof(struct dev_context));
 448         sr_sw_limits_init(&devc->limits);
 449         devc->model = &models[modelid];
 450
 451         sdi->priv = devc;
 452
 453         /* Setup channels and channel groups. */
 454         for (cnt = 0; cnt < models[modelid].num_channels; cnt++) {
 455                 snprintf(channel, sizeof(channel), "CH%d", cnt + 1);
 456                 ch = sr_channel_new(sdi, cnt, SR_CHANNEL_ANALOG, TRUE, channel);
 457
 458                 devc->channel_status[cnt].info = g_slist_append(NULL, ch);
 459
 460                 cg = g_malloc(sizeof(struct sr_channel_group));
 461                 snprintf(channel, sizeof(channel), "CG%d", cnt+1);
 462                 cg->name = g_strdup(channel);
 463                 cg->priv = NULL;
 464                 cg->channels = g_slist_append(NULL, ch);
 465
 466                 sdi->channel_groups = g_slist_append(sdi->channel_groups, cg);
 467         }
 468
 469         /* Query status */
 470         if (lps_query_status(sdi) != SR_OK)
 471                 goto exit_err;
 472
 473         serial_close(serial);
 474
 475         return std_scan_complete(drv, g_slist_append(NULL, sdi));
 476
 477 exit_err:
 478         sr_info("%s: Error!", __func__);
 479
 480         if (serial) {
 481                 serial_close(serial);
 482                 sr_serial_dev_inst_free(serial);
 483         }
 484         g_free(devc);
 485         if (sdi)
 486                 sr_dev_inst_free(sdi);
 487
 488         return NULL;
 489 }
 490
 491 /** Scan for LPS-301 device. */
 492 static GSList *scan_lps301(struct sr_dev_driver *di, GSList *options)
 493 {
 494         return do_scan(LPS_301, di, options);
 495 }
 496
 497 static void dev_clear_private(struct dev_context *devc)
 498 {
 499         int ch_idx;
 500
 501         /* Free channel_status.info (list only, data owned by sdi). */
 502         for (ch_idx = 0; ch_idx < devc->model->num_channels; ch_idx++)
 503                 g_slist_free(devc->channel_status[ch_idx].info);
 504 }
 505
 506 static int dev_clear_lps301(const struct sr_dev_driver *di)
 507 {
 508         return std_dev_clear(di, (std_dev_clear_callback)dev_clear_private);
 509 }
 510
 511 static int config_get(uint32_t key, GVariant **data, const struct sr_dev_inst *sdi,
 512                 const struct sr_channel_group *cg)
 513 {
 514         struct dev_context *devc;
 515         struct sr_channel *ch;
 516         int ch_idx;
 517
 518         if (!sdi)
 519                 return SR_ERR_ARG;
 520
 521         devc = sdi->priv;
 522
 523         if (!cg) {
 524                 /* No channel group: global options. */
 525                 switch (key) {
 526                 case SR_CONF_LIMIT_SAMPLES:
 527                 case SR_CONF_LIMIT_MSEC:
 528                         return sr_sw_limits_config_get(&devc->limits, key, data);
 529                 case SR_CONF_CHANNEL_CONFIG:
 530                         *data = g_variant_new_string(channel_modes[devc->tracking_mode]);
 531                         break;
 532                 default:
 533                         return SR_ERR_NA;
 534                 }
 535         } else {
 536                 /* We only ever have one channel per channel group in this driver. */
 537                 ch = cg->channels->data;
 538                 ch_idx = ch->index;
 539                 switch (key) {
 540                 case SR_CONF_VOLTAGE:
 541                         *data = g_variant_new_double(devc->channel_status[ch_idx].output_voltage_last);
 542                         break;
 543                 case SR_CONF_VOLTAGE_TARGET:
 544                         *data = g_variant_new_double(devc->channel_status[ch_idx].output_voltage_max);
 545                         break;
 546                 case SR_CONF_CURRENT:
 547                         *data = g_variant_new_double(devc->channel_status[ch_idx].output_current_last);
 548                         break;
 549                 case SR_CONF_CURRENT_LIMIT:
 550                         *data = g_variant_new_double(devc->channel_status[ch_idx].output_current_max);
 551                         break;
 552                 case SR_CONF_ENABLED:
 553                         *data = g_variant_new_boolean(devc->channel_status[ch_idx].output_enabled);
 554                         break;
 555                 default:
 556                         return SR_ERR_NA;
 557                 }
 558         }
 559
 560         return SR_OK;
 561 }
 562
 563 static int config_set(uint32_t key, GVariant *data, const struct sr_dev_inst *sdi,
 564                 const struct sr_channel_group *cg)
 565 {
 566         struct dev_context *devc;
 567         struct sr_channel *ch;
 568         gdouble dval;
 569         int ch_idx;
 570         const char *sval;
 571         gboolean bval;
 572         int idx;
 573         gboolean found;
 574
 575         if (sdi->status != SR_ST_ACTIVE)
 576                 return SR_ERR_DEV_CLOSED;
 577
 578         devc = sdi->priv;
 579
 580         /* Cannot change settings while acquisition active, would cause a mess with commands.
 581          * Changing this would be possible, but tricky. */
 582         if (devc->acq_running)
 583                 return SR_ERR_NA;
 584
 585         if (!cg) {
 586                 /* No channel group: global options. */
 587                 switch (key) {
 588                 case SR_CONF_LIMIT_MSEC:
 589                 case SR_CONF_LIMIT_SAMPLES:
 590                         return sr_sw_limits_config_set(&devc->limits, key, data);
 591                 case SR_CONF_CHANNEL_CONFIG:
 592                         sval = g_variant_get_string(data, NULL);
 593                         found = FALSE;
 594                         for (idx = 0; idx < (int)ARRAY_SIZE(channel_modes); idx++) {
 595                                 if (!strcmp(sval, channel_modes[idx])) {
 596                                         found = TRUE;
 597                                         if (devc->tracking_mode == idx)
 598                                                 break;  /* Nothing to do! */
 599                                         devc->tracking_mode = idx;
 600                                         if (devc->model->modelid >= LPS_304) /* No use to set anything in the smaller models. */
 601                                                 return lps_cmd_ok(sdi->conn, "TRACK%1d", devc->tracking_mode);
 602                                 }
 603                                 if (devc->model->modelid <= LPS_303) /* Only first setting possible for smaller models. */
 604                                         break;
 605                         }
 606                         if (!found)
 607                                 return SR_ERR_ARG;
 608                         break;
 609                 default:
 610                         return SR_ERR_NA;
 611                 }
 612         } else {
 613                 /* Channel group specified: per-channel options. */
 614                 /* We only ever have one channel per channel group in this driver. */
 615                 ch = cg->channels->data;
 616                 ch_idx = ch->index;
 617
 618                 switch (key) {
 619                 case SR_CONF_VOLTAGE_TARGET:
 620                         dval = g_variant_get_double(data);
 621                         if (dval < 0 || dval > devc->model->channels[ch_idx].voltage[1])
 622                                 return SR_ERR_ARG;
 623                         if (ch_idx == 2) {
 624                                 if (devc->model->modelid < LPS_304)
 625                                         return SR_ERR_ARG;
 626
 627                                 if (fabs(dval - 5.000) <= 0.001)
 628                                         dval = 5.0;
 629                                 else if ((devc->model->modelid >= LPS_305) && (fabs(dval - 3.300) <= 0.001))
 630                                         dval = 3.3;
 631                                 else return SR_ERR_ARG;
 632                         }
 633
 634                         devc->channel_status[ch_idx].output_voltage_max = dval;
 635                         if (ch_idx == 2)
 636                                 return lps_cmd_ok(sdi->conn, "VDD%1.0f", trunc(dval));
 637                         else
 638                                 return lps_cmd_ok(sdi->conn, "VSET%d %05.3f", ch_idx+1, dval);
 639                         break;
 640                 case SR_CONF_CURRENT_LIMIT:
 641                         dval = g_variant_get_double(data);
 642                         if (dval < 0 || dval > devc->model->channels[ch_idx].current[1])
 643                                 return SR_ERR_ARG;
 644                         if (ch_idx == 2) /* No current setting for CH3. */
 645                                 return SR_ERR_NA;
 646                         devc->channel_status[ch_idx].output_current_max = dval;
 647                         return lps_cmd_ok(sdi->conn, "ISET%d %05.4f", ch_idx+1, dval);
 648                         break;
 649                 case SR_CONF_ENABLED:
 650                         bval = g_variant_get_boolean(data);
 651                         if (bval == devc->channel_status[ch_idx].output_enabled) /* Nothing to do. */
 652                                 break;
 653                         devc->channel_status[ch_idx].output_enabled = bval;
 654                         if (ch_idx != 2) { /* Channels 1,2 can be set only together. */
 655                                 devc->channel_status[ch_idx^1].output_enabled = bval;
 656                                 return lps_cmd_ok(sdi->conn, "OUT%1d", (int)bval);
 657                         } else { /* Channel 3: No command to disable output, set voltage to 0 instead. */
 658                                 if (bval)
 659                                         return lps_cmd_ok(sdi->conn, "VDD%1.0f", devc->channel_status[ch_idx].output_voltage_max);
 660                                 else
 661                                         return lps_cmd_ok(sdi->conn, "VDD0");
 662                         }
 663                         break;
 664                 default:
 665                         return SR_ERR_NA;
 666                 }
 667         }
 668
 669         return SR_OK;
 670 }
 671
 672 static int config_list(uint32_t key, GVariant **data, const struct sr_dev_inst *sdi,
 673                 const struct sr_channel_group *cg)
 674 {
 675         struct dev_context *devc;
 676         struct sr_channel *ch;
 677         int ch_idx, i;
 678         GVariant *gvar;
 679         GVariantBuilder gvb;
 680
 681         /* Driver options, no device instance necessary. */
 682         switch (key) {
 683         case SR_CONF_SCAN_OPTIONS:
 684                 *data = g_variant_new_fixed_array(G_VARIANT_TYPE_UINT32,
 685                         scanopts, ARRAY_SIZE(scanopts), sizeof(uint32_t));
 686                 return SR_OK;
 687         case SR_CONF_DEVICE_OPTIONS:
 688                 if (sdi)
 689                         break;
 690                 *data = g_variant_new_fixed_array(G_VARIANT_TYPE_UINT32,
 691                         drvopts, ARRAY_SIZE(drvopts), sizeof(uint32_t));
 692                 return SR_OK;
 693         default:
 694                 if (!sdi)
 695                         return SR_ERR_ARG;
 696                 devc = sdi->priv;
 697                 break;
 698         }
 699
 700         /* Device options, independent from channel groups. */
 701         if (!cg) {
 702                 switch (key) {
 703                 case SR_CONF_DEVICE_OPTIONS:
 704                         *data = g_variant_new_fixed_array(G_VARIANT_TYPE_UINT32,
 705                                         devopts, ARRAY_SIZE(devopts), sizeof(uint32_t));
 706                         return SR_OK;
 707                 case SR_CONF_CHANNEL_CONFIG:
 708                         if (devc->model->modelid <= LPS_303) {
 709                                 /* The 1-channel models. */
 710                                 *data = g_variant_new_strv(channel_modes, 1);
 711                         } else {
 712                                 /* The other models support all modes. */
 713                                 *data = g_variant_new_strv(channel_modes, ARRAY_SIZE(channel_modes));
 714                         }
 715                         return SR_OK;
 716                 default:
 717                         return SR_ERR_NA;
 718                 }
 719         }
 720
 721         /* Device options, depending on channel groups. */
 722         ch = cg->channels->data;
 723         ch_idx = ch->index;
 724         switch (key) {
 725         case SR_CONF_DEVICE_OPTIONS:
 726                 if ((ch_idx == 0) || (ch_idx == 1)) /* CH1, CH2 */
 727                         *data = g_variant_new_fixed_array(G_VARIANT_TYPE_UINT32,
 728                                   devopts_ch12, ARRAY_SIZE(devopts_ch12), sizeof(uint32_t));
 729                 else /* Must be CH3 */
 730                         *data = g_variant_new_fixed_array(G_VARIANT_TYPE_UINT32,
 731                                   devopts_ch3, ARRAY_SIZE(devopts_ch3), sizeof(uint32_t));
 732                 break;
 733         case SR_CONF_VOLTAGE_TARGET:
 734                 g_variant_builder_init(&gvb, G_VARIANT_TYPE_ARRAY);
 735                 /* Min, max, step. */
 736                 for (i = 0; i < 3; i++) {
 737                         gvar = g_variant_new_double(devc->model->channels[ch_idx].voltage[i]);
 738                         g_variant_builder_add_value(&gvb, gvar);
 739                 }
 740                 *data = g_variant_builder_end(&gvb);
 741                 break;
 742         case SR_CONF_CURRENT_LIMIT:
 743                 g_variant_builder_init(&gvb, G_VARIANT_TYPE_ARRAY);
 744                 /* Min, max, step. */
 745                 for (i = 0; i < 3; i++) {
 746                         gvar = g_variant_new_double(devc->model->channels[ch_idx].current[i]);
 747                         g_variant_builder_add_value(&gvb, gvar);
 748                 }
 749                 *data = g_variant_builder_end(&gvb);
 750                 break;
 751         default:
 752                 return SR_ERR_NA;
 753         }
 754
 755         return SR_OK;
 756 }
 757
 758 static int dev_acquisition_start(const struct sr_dev_inst *sdi)
 759 {
 760         struct dev_context *devc;
 761         struct sr_serial_dev_inst *serial;
 762
 763         if (sdi->status != SR_ST_ACTIVE)
 764                 return SR_ERR_DEV_CLOSED;
 765
 766         devc = sdi->priv;
 767
 768         devc->acq_running = TRUE;
 769
 770         serial = sdi->conn;
 771         serial_source_add(sdi->session, serial, G_IO_IN, 50,
 772                         motech_lps_30x_receive_data, (void *)sdi);
 773         std_session_send_df_header(sdi);
 774
 775         sr_sw_limits_acquisition_start(&devc->limits);
 776
 777         devc->acq_req = AQ_NONE;
 778         /* Do not start polling device here, the read function will do it in 50 ms. */
 779
 780         return SR_OK;
 781 }
 782
 783 static int dev_acquisition_stop(struct sr_dev_inst *sdi)
 784 {
 785         return std_serial_dev_acquisition_stop(sdi, std_serial_dev_close);
 786 }
 787
 788 static struct sr_dev_driver motech_lps_301_driver_info = {
 789         .name = "motech-lps-301",
 790         .longname = "Motech LPS-301",
 791         .api_version = 1,
 792         .init = std_init,
 793         .cleanup = std_cleanup,
 794         .scan = scan_lps301,
 795         .dev_list = std_dev_list,
 796         .dev_clear = dev_clear_lps301,
 797         .config_get = config_get,
 798         .config_set = config_set,
 799         .config_list = config_list,
 800         .dev_open = std_serial_dev_open,
 801         .dev_close = std_serial_dev_close,
 802         .dev_acquisition_start = dev_acquisition_start,
 803         .dev_acquisition_stop = dev_acquisition_stop,
 804         .context = NULL,
 805 };
 806 SR_REGISTER_DEV_DRIVER(motech_lps_301_driver_info);