hardware/hameg-hmo/api.c

   1 /*
   2  * This file is part of the libsigrok project.
   3  *
   4  * Copyright (C) 2013 poljar (Damir Jelić) <poljarinho@gmail.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 <stdlib.h>
  21 #include <glib/gstdio.h>
  22 #include "protocol.h"
  23
  24 #define SERIALCOMM "115200/8n1/flow=1"
  25
  26 SR_PRIV struct sr_dev_driver hameg_hmo_driver_info;
  27 static struct sr_dev_driver *di = &hameg_hmo_driver_info;
  28
  29 static const char *manufacturers[] = {
  30         "HAMEG",
  31 };
  32
  33 static const int32_t hwopts[] = {
  34         SR_CONF_CONN,
  35         SR_CONF_SERIALCOMM,
  36 };
  37
  38 struct usb_id_info {
  39         uint16_t vendor_id;
  40         uint16_t product_id;
  41 };
  42
  43 static struct usb_id_info ho_models[] = {
  44         { 0x0403, 0xed72 }, /* HO720 */
  45         { 0x0403, 0xed73 }, /* HO730 */
  46 };
  47
  48 enum {
  49         PG_INVALID = -1,
  50         PG_NONE,
  51         PG_ANALOG,
  52         PG_DIGITAL,
  53 };
  54
  55 static int init(struct sr_context *sr_ctx)
  56 {
  57         return std_init(sr_ctx, di, LOG_PREFIX);
  58 }
  59
  60 /**
  61  * Find USB serial devices via the USB vendor ID and product ID.
  62  *
  63  * @param vendor_id Vendor ID of the USB device.
  64  * @param product_id Product ID of the USB device.
  65  *
  66  * @return A GSList of strings containing the path of the serial device or
  67  *         NULL if no serial device is found. The returned list must be freed
  68  *         by the caller.
  69  */
  70 static GSList *auto_find_usb(uint16_t vendor_id, uint16_t product_id)
  71 {
  72 #ifdef __linux__
  73         const gchar *usb_dev;
  74         const char device_tree[] = "/sys/bus/usb/devices/";
  75         GDir *devices_dir, *device_dir;
  76         GSList *l = NULL;
  77         GSList *tty_devs;
  78         GSList *matched_paths;
  79         FILE *fd;
  80         char tmp[5];
  81         gchar *vendor_path, *product_path, *path_copy;
  82         gchar *prefix, *subdir_path, *device_path, *tty_path;
  83         unsigned long read_vendor_id, read_product_id;
  84         const char *file;
  85
  86         l = NULL;
  87         tty_devs = NULL;
  88         matched_paths = NULL;
  89
  90         if (!(devices_dir = g_dir_open(device_tree, 0, NULL)))
  91                 return NULL;
  92
  93         /*
  94          * Find potential candidates using the vendor ID and product ID
  95          * and store them in matched_paths.
  96          */
  97         while ((usb_dev = g_dir_read_name(devices_dir))) {
  98                 vendor_path = g_strconcat(device_tree,
  99                                           usb_dev, "/idVendor", NULL);
 100                 product_path = g_strconcat(device_tree,
 101                                            usb_dev, "/idProduct", NULL);
 102
 103                 if (!g_file_test(vendor_path, G_FILE_TEST_EXISTS) ||
 104                     !g_file_test(product_path, G_FILE_TEST_EXISTS))
 105                         goto skip_device;
 106
 107                 if ((fd = g_fopen(vendor_path, "r")) == NULL)
 108                         goto skip_device;
 109
 110                 if (fgets(tmp, sizeof(tmp), fd) == NULL) {
 111                         fclose(fd);
 112                         goto skip_device;
 113                 }
 114                 read_vendor_id = strtoul(tmp, NULL, 16);
 115
 116                 fclose(fd);
 117
 118                 if ((fd = g_fopen(product_path, "r")) == NULL)
 119                         goto skip_device;
 120
 121                 if (fgets(tmp, sizeof(tmp), fd) == NULL) {
 122                         fclose(fd);
 123                         goto skip_device;
 124                 }
 125                 read_product_id = strtoul(tmp, NULL, 16);
 126
 127                 fclose(fd);
 128
 129                 if (vendor_id == read_vendor_id &&
 130                     product_id == read_product_id) {
 131                         path_copy = g_strdup(usb_dev);
 132                         matched_paths = g_slist_prepend(matched_paths,
 133                                                         path_copy);
 134                 }
 135
 136 skip_device:
 137                 g_free(vendor_path);
 138                 g_free(product_path);
 139         }
 140         g_dir_close(devices_dir);
 141
 142         /* For every matched device try to find a ttyUSBX subfolder. */
 143         for (l = matched_paths; l; l = l->next) {
 144                 subdir_path = NULL;
 145
 146                 device_path = g_strconcat(device_tree, l->data, NULL);
 147
 148                 if (!(device_dir = g_dir_open(device_path, 0, NULL))) {
 149                         g_free(device_path);
 150                         continue;
 151                 }
 152
 153                 prefix = g_strconcat(l->data, ":", NULL);
 154
 155                 while ((file = g_dir_read_name(device_dir))) {
 156                         if (g_str_has_prefix(file, prefix)) {
 157                                 subdir_path = g_strconcat(device_path,
 158                                                 "/", file, NULL);
 159                                 break;
 160                         }
 161                 }
 162                 g_dir_close(device_dir);
 163
 164                 g_free(prefix);
 165                 g_free(device_path);
 166
 167                 if (subdir_path) {
 168                         if (!(device_dir = g_dir_open(subdir_path, 0, NULL))) {
 169                                 g_free(subdir_path);
 170                                 continue;
 171                         }
 172                         g_free(subdir_path);
 173
 174                         while ((file = g_dir_read_name(device_dir))) {
 175                                 if (g_str_has_prefix(file, "ttyUSB")) {
 176                                         tty_path = g_strconcat("/dev/",
 177                                                                file, NULL);
 178                                         sr_dbg("Found USB device %04x:%04x attached to %s.",
 179                                                vendor_id, product_id, tty_path);
 180                                         tty_devs = g_slist_prepend(tty_devs,
 181                                                         tty_path);
 182                                         break;
 183                                 }
 184                         }
 185                         g_dir_close(device_dir);
 186                 }
 187         }
 188         g_slist_free_full(matched_paths, g_free);
 189
 190         return tty_devs;
 191 #else
 192         return NULL;
 193 #endif
 194 }
 195
 196 static int check_manufacturer(const char *manufacturer)
 197 {
 198         unsigned int i;
 199
 200         for (i = 0; i < ARRAY_SIZE(manufacturers); ++i)
 201                 if (!strcmp(manufacturer, manufacturers[i]))
 202                         return SR_OK;
 203
 204         return SR_ERR;
 205 }
 206
 207 static struct sr_dev_inst *hmo_probe_serial_device(const char *serial_device,
 208                                                     const char *serial_options)
 209 {
 210         struct sr_dev_inst *sdi;
 211         struct dev_context *devc;
 212         struct sr_scpi_hw_info *hw_info;
 213         struct sr_scpi_dev_inst *scpi;
 214
 215         sdi = NULL;
 216         devc = NULL;
 217         scpi = NULL;
 218         hw_info = NULL;
 219
 220         if (!(scpi = scpi_dev_inst_new(serial_device, serial_options)))
 221                 goto fail;
 222
 223         sr_info("Probing %s.", serial_device);
 224         if (sr_scpi_open(scpi) != SR_OK)
 225                 goto fail;
 226
 227         if (sr_scpi_get_hw_id(scpi, &hw_info) != SR_OK) {
 228                 sr_info("Couldn't get IDN response.");
 229                 goto fail;
 230         }
 231
 232         if (check_manufacturer(hw_info->manufacturer) != SR_OK)
 233                 goto fail;
 234
 235         if (!(sdi = sr_dev_inst_new(0, SR_ST_ACTIVE,
 236                                     hw_info->manufacturer, hw_info->model,
 237                                     hw_info->firmware_version))) {
 238                 goto fail;
 239         }
 240         sr_scpi_hw_info_free(hw_info);
 241         hw_info = NULL;
 242
 243         if (!(devc = g_try_malloc0(sizeof(struct dev_context))))
 244                 goto fail;
 245
 246         sdi->driver = di;
 247         sdi->priv = devc;
 248         sdi->inst_type = SR_INST_SCPI;
 249         sdi->conn = scpi;
 250
 251         if (hmo_init_device(sdi) != SR_OK)
 252                 goto fail;
 253
 254         return sdi;
 255
 256 fail:
 257         if (hw_info)
 258                 sr_scpi_hw_info_free(hw_info);
 259         if (scpi)
 260                 sr_scpi_free(scpi);
 261         if (sdi)
 262                 sr_dev_inst_free(sdi);
 263         if (devc)
 264                 g_free(devc);
 265
 266         return NULL;
 267 }
 268
 269 static GSList *scan(GSList *options)
 270 {
 271         GSList *devices;
 272         struct drv_context *drvc;
 273         struct sr_dev_inst *sdi;
 274         const char *serial_device, *serial_options;
 275         GSList *l, *tty_devs;
 276         unsigned int i;
 277
 278         serial_device = NULL;
 279         serial_options = SERIALCOMM;
 280         sdi = NULL;
 281         devices = NULL;
 282         drvc = di->priv;
 283         drvc->instances = NULL;
 284
 285         if (sr_serial_extract_options(options, &serial_device,
 286                                       &serial_options) == SR_OK) {
 287                 sdi = hmo_probe_serial_device(serial_device, serial_options);
 288                 if (sdi != NULL) {
 289                         devices = g_slist_append(devices, sdi);
 290                         drvc->instances = g_slist_append(drvc->instances, sdi);
 291                 }
 292         } else {
 293                 tty_devs = NULL;
 294
 295                 for (i = 0; i < ARRAY_SIZE(ho_models); i++) {
 296                         if ((l = auto_find_usb(ho_models[i].vendor_id,
 297                                            ho_models[i].product_id)) == NULL)
 298                                 continue;
 299                         tty_devs = g_slist_concat(tty_devs, l);
 300                 }
 301
 302                 for (l = tty_devs; l; l = l->next) {
 303                         sdi = hmo_probe_serial_device(l->data, serial_options);
 304                         if (sdi != NULL) {
 305                                 devices = g_slist_append(devices, sdi);
 306                                 drvc->instances = g_slist_append(drvc->instances, sdi);
 307                         }
 308                 }
 309
 310                 g_slist_free_full(tty_devs, g_free);
 311         }
 312
 313         return devices;
 314 }
 315
 316 static GSList *dev_list(void)
 317 {
 318         return ((struct drv_context *)(di->priv))->instances;
 319 }
 320
 321 static void clear_helper(void *priv)
 322 {
 323         unsigned int i;
 324         struct dev_context *devc;
 325         struct scope_config *model;
 326
 327         devc = priv;
 328         model = devc->model_config;
 329
 330         hmo_scope_state_free(devc->model_state);
 331
 332         for (i = 0; i < model->analog_channels; ++i)
 333                 g_slist_free(devc->analog_groups[i].probes);
 334
 335         for (i = 0; i < model->digital_pods; ++i) {
 336                 g_slist_free(devc->digital_groups[i].probes);
 337                 g_free(devc->digital_groups[i].name);
 338         }
 339
 340         g_free(devc->analog_groups);
 341         g_free(devc->digital_groups);
 342
 343         g_free(devc);
 344 }
 345
 346 static int dev_clear(void)
 347 {
 348         return std_dev_clear(di, clear_helper);
 349 }
 350
 351 static int dev_open(struct sr_dev_inst *sdi)
 352 {
 353         if (sdi->status != SR_ST_ACTIVE && sr_scpi_open(sdi->conn) != SR_OK)
 354                 return SR_ERR;
 355
 356         if (hmo_scope_state_get(sdi) != SR_OK)
 357                 return SR_ERR;
 358
 359         sdi->status = SR_ST_ACTIVE;
 360
 361         return SR_OK;
 362 }
 363
 364 static int dev_close(struct sr_dev_inst *sdi)
 365 {
 366         if (sdi->status == SR_ST_INACTIVE)
 367                 return SR_OK;
 368
 369         sr_scpi_close(sdi->conn);
 370
 371         sdi->status = SR_ST_INACTIVE;
 372
 373         return SR_OK;
 374 }
 375
 376 static int cleanup(void)
 377 {
 378         dev_clear();
 379
 380         return SR_OK;
 381 }
 382
 383 static int check_probe_group(struct dev_context *devc,
 384                              const struct sr_probe_group *probe_group)
 385 {
 386         unsigned int i;
 387         struct scope_config *model;
 388
 389         model = devc->model_config;
 390
 391         if (!probe_group)
 392                 return PG_NONE;
 393
 394         for (i = 0; i < model->analog_channels; ++i)
 395                 if (probe_group == &devc->analog_groups[i])
 396                         return PG_ANALOG;
 397
 398         for (i = 0; i < model->digital_pods; ++i)
 399                 if (probe_group == &devc->digital_groups[i])
 400                         return PG_DIGITAL;
 401
 402         sr_err("Invalid probe group specified.");
 403
 404         return PG_INVALID;
 405 }
 406
 407 static int config_get(int key, GVariant **data, const struct sr_dev_inst *sdi,
 408                       const struct sr_probe_group *probe_group)
 409 {
 410         int ret, pg_type;
 411         unsigned int i;
 412         struct dev_context *devc;
 413         struct scope_config *model;
 414
 415         if (!sdi || !(devc = sdi->priv))
 416                 return SR_ERR_ARG;
 417
 418         if ((pg_type = check_probe_group(devc, probe_group)) == PG_INVALID)
 419                 return SR_ERR;
 420
 421         ret = SR_ERR_NA;
 422         model = devc->model_config;
 423
 424         switch (key) {
 425         case SR_CONF_NUM_TIMEBASE:
 426                 *data = g_variant_new_int32(model->num_xdivs);
 427                 ret = SR_OK;
 428                 break;
 429         case SR_CONF_NUM_VDIV:
 430                 if (pg_type == PG_NONE) {
 431                         sr_err("No probe group specified.");
 432                         return SR_ERR_PROBE_GROUP;
 433                 } else if (pg_type == PG_ANALOG) {
 434                         for (i = 0; i < model->analog_channels; ++i) {
 435                                 if (probe_group != &devc->analog_groups[i])
 436                                         continue;
 437                                 *data = g_variant_new_int32(model->num_ydivs);
 438                                 ret = SR_OK;
 439                                 break;
 440                         }
 441
 442                 } else {
 443                         ret = SR_ERR_NA;
 444                 }
 445                 break;
 446         default:
 447                 ret = SR_ERR_NA;
 448         }
 449
 450         return ret;
 451 }
 452
 453 static GVariant *build_tuples(const uint64_t (*array)[][2], unsigned int n)
 454 {
 455         unsigned int i;
 456         GVariant *rational[2];
 457         GVariantBuilder gvb;
 458
 459         g_variant_builder_init(&gvb, G_VARIANT_TYPE_ARRAY);
 460
 461         for (i = 0; i < n; i++) {
 462                 rational[0] = g_variant_new_uint64((*array)[i][0]);
 463                 rational[1] = g_variant_new_uint64((*array)[i][1]);
 464
 465                 /* FIXME: Valgrind reports a memory leak here. */
 466                 g_variant_builder_add_value(&gvb, g_variant_new_tuple(rational, 2));
 467         }
 468
 469         return g_variant_builder_end(&gvb);
 470 }
 471
 472 static int config_set(int key, GVariant *data, const struct sr_dev_inst *sdi,
 473                       const struct sr_probe_group *probe_group)
 474 {
 475         int ret, pg_type;
 476         unsigned int i, j;
 477         char command[MAX_COMMAND_SIZE], float_str[30];
 478         struct dev_context *devc;
 479         struct scope_config *model;
 480         struct scope_state *state;
 481         const char *tmp;
 482         uint64_t p, q, tmp_u64;
 483         double tmp_d;
 484
 485         if (!sdi || !(devc = sdi->priv))
 486                 return SR_ERR_ARG;
 487
 488         if ((pg_type = check_probe_group(devc, probe_group)) == PG_INVALID)
 489                 return SR_ERR;
 490
 491         model = devc->model_config;
 492         state = devc->model_state;
 493
 494         ret = SR_ERR_NA;
 495
 496         switch (key) {
 497         case SR_CONF_LIMIT_FRAMES:
 498                 devc->frame_limit = g_variant_get_uint64(data);
 499                 ret = SR_OK;
 500                 break;
 501         case SR_CONF_TRIGGER_SOURCE:
 502                 tmp = g_variant_get_string(data, NULL);
 503                 for (i = 0; (*model->trigger_sources)[i]; i++) {
 504                         if (g_strcmp0(tmp, (*model->trigger_sources)[i]) != 0)
 505                                 continue;
 506                         state->trigger_source = i;
 507                         g_snprintf(command, sizeof(command),
 508                                    (*model->scpi_dialect)[SCPI_CMD_SET_TRIGGER_SOURCE],
 509                                    (*model->trigger_sources)[i]);
 510
 511                         ret = sr_scpi_send(sdi->conn, command);
 512                         break;
 513                 }
 514                 break;
 515         case SR_CONF_VDIV:
 516                 if (pg_type == PG_NONE) {
 517                         sr_err("No probe group specified.");
 518                         return SR_ERR_PROBE_GROUP;
 519                 }
 520
 521                 g_variant_get(data, "(tt)", &p, &q);
 522
 523                 for (i = 0; i < model->num_vdivs; i++) {
 524                         if (p != (*model->vdivs)[i][0] ||
 525                             q != (*model->vdivs)[i][1])
 526                                 continue;
 527                         for (j = 1; j <= model->analog_channels; ++j) {
 528                                 if (probe_group != &devc->analog_groups[j - 1])
 529                                         continue;
 530                                 state->analog_channels[j - 1].vdiv = (float) p / q;
 531                                 g_ascii_formatd(float_str, sizeof(float_str), "%E", (float) p / q);
 532                                 g_snprintf(command, sizeof(command),
 533                                            (*model->scpi_dialect)[SCPI_CMD_SET_VERTICAL_DIV],
 534                                            j, float_str);
 535
 536                                 if (sr_scpi_send(sdi->conn, command) != SR_OK ||
 537                                     sr_scpi_get_opc(sdi->conn) != SR_OK)
 538                                         return SR_ERR;
 539
 540                                 break;
 541                         }
 542
 543                         ret = SR_OK;
 544                         break;
 545                 }
 546                 break;
 547         case SR_CONF_TIMEBASE:
 548                 g_variant_get(data, "(tt)", &p, &q);
 549
 550                 for (i = 0; i < model->num_timebases; i++) {
 551                         if (p != (*model->timebases)[i][0] ||
 552                             q != (*model->timebases)[i][1])
 553                                 continue;
 554                         state->timebase = (float) p / q;
 555                         g_ascii_formatd(float_str, sizeof(float_str), "%E", (float) p / q);
 556                         g_snprintf(command, sizeof(command),
 557                                    (*model->scpi_dialect)[SCPI_CMD_SET_TIMEBASE],
 558                                    float_str);
 559
 560                         ret = sr_scpi_send(sdi->conn, command);
 561                         break;
 562                 }
 563                 break;
 564         case SR_CONF_HORIZ_TRIGGERPOS:
 565                 tmp_d = g_variant_get_double(data);
 566
 567                 if (tmp_d < 0.0 || tmp_d > 1.0)
 568                         return SR_ERR;
 569
 570                 state->horiz_triggerpos = -(tmp_d - 0.5) * state->timebase * model->num_xdivs;
 571                 g_snprintf(command, sizeof(command),
 572                            (*model->scpi_dialect)[SCPI_CMD_SET_HORIZ_TRIGGERPOS],
 573                            state->horiz_triggerpos);
 574
 575                 ret = sr_scpi_send(sdi->conn, command);
 576                 break;
 577         case SR_CONF_TRIGGER_SLOPE:
 578                 tmp_u64 = g_variant_get_uint64(data);
 579
 580                 if (tmp_u64 != 0 && tmp_u64 != 1)
 581                         return SR_ERR;
 582
 583                 state->trigger_slope = tmp_u64;
 584
 585                 g_snprintf(command, sizeof(command),
 586                            (*model->scpi_dialect)[SCPI_CMD_SET_TRIGGER_SLOPE],
 587                            tmp_u64 ? "POS" : "NEG");
 588
 589                 ret = sr_scpi_send(sdi->conn, command);
 590                 break;
 591         case SR_CONF_COUPLING:
 592                 if (pg_type == PG_NONE) {
 593                         sr_err("No probe group specified.");
 594                         return SR_ERR_PROBE_GROUP;
 595                 }
 596
 597                 tmp = g_variant_get_string(data, NULL);
 598
 599                 for (i = 0; (*model->coupling_options)[i]; i++) {
 600                         if (strcmp(tmp, (*model->coupling_options)[i]) != 0)
 601                                 continue;
 602                         for (j = 1; j <= model->analog_channels; ++j) {
 603                                 if (probe_group != &devc->analog_groups[j - 1])
 604                                         continue;
 605                                 state->analog_channels[j-1].coupling = i;
 606
 607                                 g_snprintf(command, sizeof(command),
 608                                            (*model->scpi_dialect)[SCPI_CMD_SET_COUPLING],
 609                                            j, tmp);
 610
 611                                 if (sr_scpi_send(sdi->conn, command) != SR_OK ||
 612                                     sr_scpi_get_opc(sdi->conn) != SR_OK)
 613                                         return SR_ERR;
 614                                 break;
 615                         }
 616
 617                         ret = SR_OK;
 618                         break;
 619                 }
 620                 break;
 621         default:
 622                 ret = SR_ERR_NA;
 623                 break;
 624         }
 625
 626         if (ret == SR_OK)
 627                 ret = sr_scpi_get_opc(sdi->conn);
 628
 629         return ret;
 630 }
 631
 632 static int config_list(int key, GVariant **data, const struct sr_dev_inst *sdi,
 633                        const struct sr_probe_group *probe_group)
 634 {
 635         int pg_type;
 636         struct dev_context *devc;
 637         struct scope_config *model;
 638
 639         if (!sdi || !(devc = sdi->priv))
 640                 return SR_ERR_ARG;
 641
 642         if ((pg_type = check_probe_group(devc, probe_group)) == PG_INVALID)
 643                 return SR_ERR;
 644
 645         model = devc->model_config;
 646
 647         switch (key) {
 648         case SR_CONF_DEVICE_OPTIONS:
 649                 if (pg_type == PG_NONE) {
 650                         *data = g_variant_new_fixed_array(G_VARIANT_TYPE_INT32,
 651                                 model->hw_caps, model->num_hwcaps,
 652                                 sizeof(int32_t));
 653                 } else if (pg_type == PG_ANALOG) {
 654                         *data = g_variant_new_fixed_array(G_VARIANT_TYPE_INT32,
 655                                 model->analog_hwcaps, model->num_analog_hwcaps,
 656                                 sizeof(int32_t));
 657                 } else {
 658                         *data = g_variant_new_fixed_array(G_VARIANT_TYPE_INT32,
 659                                 NULL, 0, sizeof(int32_t));
 660                 }
 661                 break;
 662         case SR_CONF_COUPLING:
 663                 if (pg_type == PG_NONE)
 664                         return SR_ERR_PROBE_GROUP;
 665                 *data = g_variant_new_strv(*model->coupling_options,
 666                            g_strv_length((char **)*model->coupling_options));
 667                 break;
 668         case SR_CONF_TRIGGER_SOURCE:
 669                 *data = g_variant_new_strv(*model->trigger_sources,
 670                            g_strv_length((char **)*model->trigger_sources));
 671                 break;
 672         case SR_CONF_TIMEBASE:
 673                 *data = build_tuples(model->timebases, model->num_timebases);
 674                 break;
 675         case SR_CONF_VDIV:
 676                 if (pg_type == PG_NONE)
 677                         return SR_ERR_PROBE_GROUP;
 678                 *data = build_tuples(model->vdivs, model->num_vdivs);
 679                 break;
 680         default:
 681                 return SR_ERR_NA;
 682         }
 683
 684         return SR_OK;
 685 }
 686
 687 SR_PRIV int hmo_request_data(const struct sr_dev_inst *sdi)
 688 {
 689         char command[MAX_COMMAND_SIZE];
 690         struct sr_probe *probe;
 691         struct dev_context *devc;
 692         struct scope_config *model;
 693
 694         devc = sdi->priv;
 695         model = devc->model_config;
 696
 697         probe = devc->current_probe->data;
 698
 699         switch (probe->type) {
 700         case SR_PROBE_ANALOG:
 701                 g_snprintf(command, sizeof(command),
 702                            (*model->scpi_dialect)[SCPI_CMD_GET_ANALOG_DATA],
 703                            probe->index + 1);
 704                 break;
 705         case SR_PROBE_LOGIC:
 706                 g_snprintf(command, sizeof(command),
 707                            (*model->scpi_dialect)[SCPI_CMD_GET_DIG_DATA],
 708                            probe->index < 8 ? 1 : 2);
 709                 break;
 710         default:
 711                 sr_err("Invalid probe type.");
 712                 break;
 713         }
 714
 715         return sr_scpi_send(sdi->conn, command);
 716 }
 717
 718 static int hmo_check_probes(GSList *probes)
 719 {
 720         GSList *l;
 721         struct sr_probe *probe;
 722         gboolean enabled_pod1, enabled_pod2, enabled_chan3, enabled_chan4;
 723
 724         enabled_pod1 = enabled_pod2 = enabled_chan3 = enabled_chan4 = FALSE;
 725
 726         for (l = probes; l; l = l->next) {
 727                 probe = l->data;
 728                 switch (probe->type) {
 729                 case SR_PROBE_ANALOG:
 730                         if (probe->index == 2)
 731                                 enabled_chan3 = TRUE;
 732                         else if (probe->index == 3)
 733                                 enabled_chan4 = TRUE;
 734                         break;
 735                 case SR_PROBE_LOGIC:
 736                         if (probe->index < 8)
 737                                 enabled_pod1 = TRUE;
 738                         else
 739                                 enabled_pod2 = TRUE;
 740                         break;
 741                 default:
 742                         return SR_ERR;
 743                 }
 744         }
 745
 746         if ((enabled_pod1 && enabled_chan3) ||
 747             (enabled_pod2 && enabled_chan4))
 748                 return SR_ERR;
 749
 750         return SR_OK;
 751 }
 752
 753 static int hmo_setup_probes(const struct sr_dev_inst *sdi)
 754 {
 755         GSList *l;
 756         unsigned int i;
 757         gboolean *pod_enabled;
 758         char command[MAX_COMMAND_SIZE];
 759         struct scope_state *state;
 760         struct scope_config *model;
 761         struct sr_probe *probe;
 762         struct dev_context *devc;
 763         struct sr_scpi_dev_inst *scpi;
 764
 765         devc = sdi->priv;
 766         scpi = sdi->conn;
 767         state = devc->model_state;
 768         model = devc->model_config;
 769
 770         pod_enabled = g_try_malloc0(sizeof(gboolean) * model->digital_pods);
 771
 772         for (l = sdi->probes; l; l = l->next) {
 773                 probe = l->data;
 774                 switch (probe->type) {
 775                 case SR_PROBE_ANALOG:
 776                         if (probe->enabled == state->analog_channels[probe->index].state)
 777                                 break;
 778                         g_snprintf(command, sizeof(command),
 779                                    (*model->scpi_dialect)[SCPI_CMD_SET_ANALOG_CHAN_STATE],
 780                                    probe->index + 1, probe->enabled);
 781
 782                         if (sr_scpi_send(scpi, command) != SR_OK)
 783                                 return SR_ERR;
 784                         state->analog_channels[probe->index].state = probe->enabled;
 785                         break;
 786                 case SR_PROBE_LOGIC:
 787                         /*
 788                          * A digital POD needs to be enabled for every group of
 789                          * 8 probes.
 790                          */
 791                         if (probe->enabled)
 792                                 pod_enabled[probe->index < 8 ? 0 : 1] = TRUE;
 793
 794                         if (probe->enabled == state->digital_channels[probe->index])
 795                                 break;
 796                         g_snprintf(command, sizeof(command),
 797                                    (*model->scpi_dialect)[SCPI_CMD_SET_DIG_CHAN_STATE],
 798                                    probe->index, probe->enabled);
 799
 800                         if (sr_scpi_send(scpi, command) != SR_OK)
 801                                 return SR_ERR;
 802
 803                         state->digital_channels[probe->index] = probe->enabled;
 804                         break;
 805                 default:
 806                         return SR_ERR;
 807                 }
 808         }
 809
 810         for (i = 1; i <= model->digital_pods; ++i) {
 811                 if (state->digital_pods[i - 1] == pod_enabled[i - 1])
 812                         continue;
 813                 g_snprintf(command, sizeof(command),
 814                            (*model->scpi_dialect)[SCPI_CMD_SET_DIG_POD_STATE],
 815                            i, pod_enabled[i - 1]);
 816                 if (sr_scpi_send(scpi, command) != SR_OK)
 817                         return SR_ERR;
 818                 state->digital_pods[i - 1] = pod_enabled[i - 1];
 819         }
 820
 821         g_free(pod_enabled);
 822
 823         return SR_OK;
 824 }
 825
 826 static int dev_acquisition_start(const struct sr_dev_inst *sdi, void *cb_data)
 827 {
 828         GSList *l;
 829         gboolean digital_added;
 830         struct sr_probe *probe;
 831         struct dev_context *devc;
 832         struct sr_scpi_dev_inst *scpi;
 833
 834         if (sdi->status != SR_ST_ACTIVE)
 835                 return SR_ERR_DEV_CLOSED;
 836
 837         scpi = sdi->conn;
 838         devc = sdi->priv;
 839         digital_added = FALSE;
 840
 841         for (l = sdi->probes; l; l = l->next) {
 842                 probe = l->data;
 843                 if (!probe->enabled)
 844                         continue;
 845                 /* Only add a single digital probe. */
 846                 if (probe->type != SR_PROBE_LOGIC || !digital_added) {
 847                         devc->enabled_probes = g_slist_append(
 848                                         devc->enabled_probes, probe);
 849                         if (probe->type == SR_PROBE_LOGIC)
 850                                 digital_added = TRUE;
 851                 }
 852         }
 853
 854         if (!devc->enabled_probes)
 855                 return SR_ERR;
 856
 857         if (hmo_check_probes(devc->enabled_probes) != SR_OK) {
 858                 sr_err("Invalid probe configuration specified!");
 859                 return SR_ERR_NA;
 860         }
 861
 862         if (hmo_setup_probes(sdi) != SR_OK) {
 863                 sr_err("Failed to setup probe configuration!");
 864                 return SR_ERR;
 865         }
 866
 867         sr_scpi_source_add(scpi, G_IO_IN, 50, hmo_receive_data, (void *)sdi);
 868
 869         /* Send header packet to the session bus. */
 870         std_session_send_df_header(cb_data, LOG_PREFIX);
 871
 872         devc->current_probe = devc->enabled_probes;
 873
 874         return hmo_request_data(sdi);
 875 }
 876
 877 static int dev_acquisition_stop(struct sr_dev_inst *sdi, void *cb_data)
 878 {
 879         struct dev_context *devc;
 880         struct sr_scpi_dev_inst *scpi;
 881
 882         (void)cb_data;
 883
 884         if (sdi->status != SR_ST_ACTIVE)
 885                 return SR_ERR_DEV_CLOSED;
 886
 887         devc = sdi->priv;
 888
 889         g_slist_free(devc->enabled_probes);
 890         devc->enabled_probes = NULL;
 891         scpi = sdi->conn;
 892         sr_scpi_source_remove(scpi);
 893
 894         return SR_OK;
 895 }
 896
 897 SR_PRIV struct sr_dev_driver hameg_hmo_driver_info = {
 898         .name = "hameg-hmo",
 899         .longname = "Hameg HMO",
 900         .api_version = 1,
 901         .init = init,
 902         .cleanup = cleanup,
 903         .scan = scan,
 904         .dev_list = dev_list,
 905         .dev_clear = dev_clear,
 906         .config_get = config_get,
 907         .config_set = config_set,
 908         .config_list = config_list,
 909         .dev_open = dev_open,
 910         .dev_close = dev_close,
 911         .dev_acquisition_start = dev_acquisition_start,
 912         .dev_acquisition_stop = dev_acquisition_stop,
 913         .priv = NULL,
 914 };