]> sigrok.org Git - libsigrok.git/blobdiff - hardware/manson-hcs-3xxx/api.c
manson-hcs-3xxx: Implemented setting voltage, current and output.
[libsigrok.git] / hardware / manson-hcs-3xxx / api.c
index 1487731086ea50ab50c9755723c48a8e780d5482..99b8051b217f17422c47b021556b7676153ee4ff 100644 (file)
  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
  */
 
+/** @file
+  *  <em>Manson HCS-3xxx Series</em> power supply driver
+  *  @internal
+  */
+
 #include "protocol.h"
 
 static const int32_t hwopts[] = {
@@ -27,12 +32,18 @@ static const int32_t hwopts[] = {
 };
 
 static const int32_t devopts[] = {
+       /* Device class */
        SR_CONF_POWER_SUPPLY,
+       /* Aquisition modes. */
        SR_CONF_LIMIT_SAMPLES,
        SR_CONF_LIMIT_MSEC,
        SR_CONF_CONTINUOUS,
-       SR_CONF_OUTPUT_VOLTAGE,
+       /* Device configuration */
        SR_CONF_OUTPUT_CURRENT,
+       SR_CONF_OUTPUT_CURRENT_MAX,
+       SR_CONF_OUTPUT_ENABLED,
+       SR_CONF_OUTPUT_VOLTAGE,
+       SR_CONF_OUTPUT_VOLTAGE_MAX,
 };
 
 /* Note: All models have one power supply output only. */
@@ -87,6 +98,7 @@ static GSList *scan(GSList *options)
        devices = NULL;
        conn = NULL;
        serialcomm = NULL;
+       devc = NULL;
 
        for (l = options; l; l = l->next) {
                src = l->data;
@@ -120,8 +132,9 @@ static GSList *scan(GSList *options)
 
        /* Get the device model. */
        memset(&reply, 0, sizeof(reply));
-       serial_write_blocking(serial, "GMOD\r", 5);
-       serial_read_blocking(serial, &reply, 8);
+       if ((hcs_send_cmd(serial, "GMOD\r") < 0) ||
+           (hcs_read_reply(serial, 2, reply, sizeof(reply)) < 0))
+               return NULL;
        tokens = g_strsplit((const gchar *)&reply, "\r", 2);
 
        model_id = -1;
@@ -129,26 +142,27 @@ static GSList *scan(GSList *options)
                if (!strcmp(models[i].id, tokens[0]))
                        model_id = i;
        }
+       g_strfreev(tokens);
+
        if (model_id < 0) {
                sr_err("Unknown model id '%s' detected, aborting.", tokens[0]);
                return NULL;
        }
 
+       /* Init device instance, etc. */
        if (!(sdi = sr_dev_inst_new(0, SR_ST_INACTIVE, "Manson",
                                    models[model_id].name, NULL))) {
                sr_err("Failed to create device instance.");
                return NULL;
        }
 
-       g_strfreev(tokens);
-
        sdi->inst_type = SR_INST_SERIAL;
        sdi->conn = serial;
        sdi->driver = di;
 
        if (!(ch = sr_channel_new(0, SR_CHANNEL_ANALOG, TRUE, "CH1"))) {
                sr_err("Failed to create channel.");
-               return NULL;
+               goto exit_err;
        }
        sdi->channels = g_slist_append(sdi->channels, ch);
 
@@ -157,6 +171,14 @@ static GSList *scan(GSList *options)
 
        sdi->priv = devc;
 
+       /* Get current device status. */
+       if ((hcs_send_cmd(serial, "GETD\r") < 0) ||
+           (hcs_read_reply(serial, 2, reply, sizeof(reply)) < 0))
+               return NULL;
+       tokens = g_strsplit((const gchar *)&reply, "\r", 2);
+       if (hcs_parse_volt_curr_mode(sdi, tokens) < 0)
+               goto exit_err;
+
        drvc->instances = g_slist_append(drvc->instances, sdi);
        devices = g_slist_append(devices, sdi);
 
@@ -165,6 +187,12 @@ static GSList *scan(GSList *options)
                sr_serial_dev_inst_free(serial);
 
        return devices;
+
+exit_err:
+       sr_dev_inst_free(sdi);
+       if (devc)
+               g_free(devc);
+       return NULL;
 }
 
 static GSList *dev_list(void)
@@ -196,11 +224,20 @@ static int config_get(int key, GVariant **data, const struct sr_dev_inst *sdi,
        case SR_CONF_LIMIT_MSEC:
                *data = g_variant_new_uint64(devc->limit_msec);
                break;
+       case SR_CONF_OUTPUT_CURRENT:
+               *data = g_variant_new_double(devc->current);
+               break;
+       case SR_CONF_OUTPUT_CURRENT_MAX:
+               *data = g_variant_new_double(devc->current_max);
+               break;
+       case SR_CONF_OUTPUT_ENABLED:
+               *data = g_variant_new_boolean(devc->output_enabled);
+               break;
        case SR_CONF_OUTPUT_VOLTAGE:
                *data = g_variant_new_double(devc->voltage);
                break;
-       case SR_CONF_OUTPUT_CURRENT:
-               *data = g_variant_new_double(devc->current);
+       case SR_CONF_OUTPUT_VOLTAGE_MAX:
+               *data = g_variant_new_double(devc->voltage_max);
                break;
        default:
                return SR_ERR_NA;
@@ -213,6 +250,8 @@ static int config_set(int key, GVariant *data, const struct sr_dev_inst *sdi,
                const struct sr_channel_group *cg)
 {
        struct dev_context *devc;
+       gboolean bval;
+       gdouble dval;
 
        (void)cg;
 
@@ -232,6 +271,37 @@ static int config_set(int key, GVariant *data, const struct sr_dev_inst *sdi,
                        return SR_ERR_ARG;
                devc->limit_samples = g_variant_get_uint64(data);
                break;
+       case SR_CONF_OUTPUT_CURRENT_MAX:
+               dval = g_variant_get_double(data);
+               if (dval < devc->model->current[0] || dval > devc->model->current[1])
+                       return SR_ERR_ARG;
+
+               if ((hcs_send_cmd(sdi->conn, "CURR%03.0f\r",
+                       (dval / devc->model->current[2])) < 0) ||
+                   (hcs_read_reply(sdi->conn, 1, devc->buf, sizeof(devc->buf)) < 0))
+                       return SR_ERR;
+               devc->current_max = dval;
+               break;
+       case SR_CONF_OUTPUT_ENABLED:
+               bval = g_variant_get_boolean(data);
+               if (bval == devc->output_enabled) /* Nothing to do. */
+                       break;
+               if ((hcs_send_cmd(sdi->conn, "SOUT%1d\r", !bval) < 0) ||
+                   (hcs_read_reply(sdi->conn, 1, devc->buf, sizeof(devc->buf)) < 0))
+                       return SR_ERR;
+               devc->output_enabled = bval;
+               break;
+       case SR_CONF_OUTPUT_VOLTAGE_MAX:
+               dval = g_variant_get_double(data);
+               if (dval < devc->model->voltage[0] || dval > devc->model->voltage[1])
+                       return SR_ERR_ARG;
+
+               if ((hcs_send_cmd(sdi->conn, "VOLT%03.0f\r",
+                       (dval / devc->model->voltage[2])) < 0) ||
+                   (hcs_read_reply(sdi->conn, 1, devc->buf, sizeof(devc->buf)) < 0))
+                       return SR_ERR;
+               devc->voltage_max = dval;
+               break;
        default:
                return SR_ERR_NA;
        }
@@ -242,9 +312,17 @@ static int config_set(int key, GVariant *data, const struct sr_dev_inst *sdi,
 static int config_list(int key, GVariant **data, const struct sr_dev_inst *sdi,
                const struct sr_channel_group *cg)
 {
-       (void)sdi;
+       struct dev_context *devc;
+       GVariant *gvar;
+       GVariantBuilder gvb;
+       int idx;
+
        (void)cg;
 
+       if (!sdi)
+               return SR_ERR_ARG;
+       devc = sdi->priv;
+
        switch (key) {
        case SR_CONF_SCAN_OPTIONS:
                *data = g_variant_new_fixed_array(G_VARIANT_TYPE_INT32,
@@ -254,6 +332,24 @@ static int config_list(int key, GVariant **data, const struct sr_dev_inst *sdi,
                *data = g_variant_new_fixed_array(G_VARIANT_TYPE_INT32,
                        devopts, ARRAY_SIZE(devopts), sizeof(int32_t));
                break;
+       case SR_CONF_OUTPUT_CURRENT_MAX:
+               g_variant_builder_init(&gvb, G_VARIANT_TYPE_ARRAY);
+               /* Min, max, step. */
+               for (idx = 0; idx < 3; idx++) {
+                       gvar = g_variant_new_double(devc->model->current[idx]);
+                       g_variant_builder_add_value(&gvb, gvar);
+               }
+               *data = g_variant_builder_end(&gvb);
+               break;
+       case SR_CONF_OUTPUT_VOLTAGE_MAX:
+               g_variant_builder_init(&gvb, G_VARIANT_TYPE_ARRAY);
+               /* Min, max, step. */
+               for (idx = 0; idx < 3; idx++) {
+                       gvar = g_variant_new_double(devc->model->voltage[idx]);
+                       g_variant_builder_add_value(&gvb, gvar);
+               }
+               *data = g_variant_builder_end(&gvb);
+               break;
        default:
                return SR_ERR_NA;
        }