+/**
+ * Send a SCPI command, read the reply, parse it as binary data with a
+ * "definite length block" header and store the as an result in scpi_response.
+ *
+ * @param scpi Previously initialised SCPI device structure.
+ * @param command The SCPI command to send to the device (can be NULL).
+ * @param scpi_response Pointer where to store the parsed result.
+ *
+ * @return SR_OK upon successfully parsing all values, SR_ERR* upon a parsing
+ * error or upon no response. The allocated response must be freed by
+ * the caller in the case of an SR_OK as well as in the case of
+ * parsing error.
+ */
+SR_PRIV int sr_scpi_get_block(struct sr_scpi_dev_inst *scpi,
+ const char *command, GByteArray **scpi_response)
+{
+ int ret;
+ GString* response;
+
+ char buf[10] = { 0 };
+ long llen;
+ long datalen;
+
+ response = g_string_sized_new(1024);
+ *scpi_response = NULL;
+
+ ret = sr_scpi_get_data(scpi, command, &response);
+ if (ret != SR_OK) {
+ g_string_free(response, TRUE);
+ return ret;
+ }
+
+ if (response->str[0] != '#') {
+ g_string_free(response, TRUE);
+ return SR_ERR_DATA;
+ }
+
+ buf[0] = response->str[1];
+ ret = sr_atol(buf, &llen);
+ if ((ret != SR_OK) || (llen == 0)) {
+ g_string_free(response, TRUE);
+ return ret;
+ }
+
+ memcpy(buf, &response->str[2], llen);
+ ret = sr_atol(buf, &datalen);
+ if ((ret != SR_OK) || (datalen == 0)) {
+ g_string_free(response, TRUE);
+ return ret;
+ }
+
+ // strip header
+ g_string_erase(response, 0, 2 + llen);
+
+ if (response->len < (unsigned long)(datalen)) {
+ int oldlen = response->len;
+ g_string_set_size(response, datalen);
+ g_string_set_size(response, oldlen);
+ }
+
+ while (response->len < (unsigned long)(datalen)) {
+ if (sr_scpi_get_data(scpi, NULL, &response) != SR_OK) {
+ g_string_free(response, TRUE);
+ return ret;
+ }
+ }
+
+ *scpi_response = g_byte_array_new_take(
+ (guint8*)g_string_free(response, FALSE), datalen);
+
+ return ret;
+}
+