+#define STX 0x02
+#define ETX 0x03
+#define EOT 0x04
+#define LF 0x0A
+#define CR 0x0D
+
+static gboolean teleinfo_control_check(char *label, char *data, char control)
+{
+ int sum = 0;
+ while (*label)
+ sum += *label++;
+ sum += ' ';
+ while (*data)
+ sum += *data++;
+ return ((sum & 0x3F) + ' ') == control;
+}
+
+static gint teleinfo_probe_compare(gconstpointer a, gconstpointer b)
+{
+ const struct sr_probe *probe = a;
+ const char *name = b;
+ return strcmp(probe->name, name);
+}
+
+static struct sr_probe *teleinfo_find_probe(struct sr_dev_inst *sdi,
+ const char *name)
+{
+ GSList *elem = g_slist_find_custom(sdi->probes, name,
+ teleinfo_probe_compare);
+ return elem ? elem->data : NULL;
+}
+
+static void teleinfo_send_value(struct sr_dev_inst *sdi, const char *probe_name,
+ float value, int mq, int unit)
+{
+ struct dev_context *devc = sdi->priv;
+ struct sr_datafeed_packet packet;
+ struct sr_datafeed_analog analog = { 0 };
+ struct sr_probe *probe = teleinfo_find_probe(sdi, probe_name);
+
+ if (!probe || !probe->enabled)
+ return;
+
+ analog.probes = g_slist_append(analog.probes, probe);
+ analog.num_samples = 1;
+ analog.mq = mq;
+ analog.unit = unit;
+ analog.data = &value;
+
+ packet.type = SR_DF_ANALOG;
+ packet.payload = &analog;
+ sr_session_send(devc->session_cb_data, &packet);
+ g_slist_free(analog.probes);
+}
+
+static void teleinfo_handle_mesurement(struct sr_dev_inst *sdi,
+ const char *label, const char *data,
+ char *optarif)
+{
+ struct dev_context *devc;
+ int v = atoi(data);
+
+ if (!sdi || !(devc = sdi->priv)) {
+ if (optarif && !strcmp(label, "OPTARIF"))
+ strcpy(optarif, data);
+ return;
+ }
+
+ if (!strcmp(label, "ADCO")) {
+ devc->num_samples++;
+ } else if (!strcmp(label, "BASE")) {
+ teleinfo_send_value(sdi, "BASE", v, SR_MQ_POWER, SR_UNIT_WATT_HOUR);
+ } else if (!strcmp(label, "HCHP")) {
+ teleinfo_send_value(sdi, "HP" , v, SR_MQ_POWER, SR_UNIT_WATT_HOUR);
+ } else if (!strcmp(label, "HCHC")) {
+ teleinfo_send_value(sdi, "HC" , v, SR_MQ_POWER, SR_UNIT_WATT_HOUR);
+ } else if (!strcmp(label, "EJPHN")) {
+ teleinfo_send_value(sdi, "HN" , v, SR_MQ_POWER, SR_UNIT_WATT_HOUR);
+ } else if (!strcmp(label, "EJPHPM")) {
+ teleinfo_send_value(sdi, "HPM" , v, SR_MQ_POWER, SR_UNIT_WATT_HOUR);
+ } else if (!strcmp(label, "BBRHPJB")) {
+ teleinfo_send_value(sdi, "HPJB", v, SR_MQ_POWER, SR_UNIT_WATT_HOUR);
+ } else if (!strcmp(label, "BBRHPJW")) {
+ teleinfo_send_value(sdi, "HPJW", v, SR_MQ_POWER, SR_UNIT_WATT_HOUR);
+ } else if (!strcmp(label, "BBRHPJR")) {
+ teleinfo_send_value(sdi, "HPJR", v, SR_MQ_POWER, SR_UNIT_WATT_HOUR);
+ } else if (!strcmp(label, "BBRHCJB")) {
+ teleinfo_send_value(sdi, "HCJB", v, SR_MQ_POWER, SR_UNIT_WATT_HOUR);
+ } else if (!strcmp(label, "BBRHCJW")) {
+ teleinfo_send_value(sdi, "HCJW", v, SR_MQ_POWER, SR_UNIT_WATT_HOUR);
+ } else if (!strcmp(label, "BBRHCJR")) {
+ teleinfo_send_value(sdi, "HCJR", v, SR_MQ_POWER, SR_UNIT_WATT_HOUR);
+ } else if (!strcmp(label, "IINST")) {
+ teleinfo_send_value(sdi, "IINST", v, SR_MQ_CURRENT, SR_UNIT_AMPERE);
+ } else if (!strcmp(label, "PAPP")) {
+ teleinfo_send_value(sdi, "PAPP", v, SR_MQ_POWER, SR_UNIT_VOLT_AMPERE);
+ }
+}
+
+static gboolean teleinfo_parse_group(struct sr_dev_inst *sdi,
+ const uint8_t *group, char *optarif)
+{
+ char label[9], data[13], control, cr;
+ const char *str = (const char *) group;
+ if (sscanf(str, "\x0A%8s %13s %c%c", label, data, &control, &cr) != 4
+ || cr != CR)
+ return FALSE;
+ if (!teleinfo_control_check(label, data, control))
+ return FALSE;
+ teleinfo_handle_mesurement(sdi, label, data, optarif);
+ return TRUE;
+}
+
+static const uint8_t *teleinfo_parse_data(struct sr_dev_inst *sdi,
+ const uint8_t *buf, int len,
+ char *optarif)
+{
+ const uint8_t *group_start = memchr(buf, LF, len);
+ if (!group_start)
+ return NULL;
+
+ const uint8_t *group_end = memchr(group_start, CR,
+ len - (group_start - buf));
+ if (!group_end)
+ return NULL;
+
+ teleinfo_parse_group(sdi, group_start, optarif);
+ return group_end + 1;
+}
+
+SR_PRIV int teleinfo_get_optarif(const uint8_t *buf)
+{
+ const uint8_t *ptr = buf;
+ char optarif[5] = { 0 };
+
+ while ((ptr = teleinfo_parse_data(NULL, ptr, 292-(ptr-buf), optarif)));
+ if (!strcmp(optarif, "BASE"))
+ return OPTARIF_BASE;
+ else if (!strcmp(optarif, "HC.."))
+ return OPTARIF_HC;
+ else if (!strcmp(optarif, "EJP."))
+ return OPTARIF_EJP;
+ else if (!strncmp(optarif, "BBR", 3))
+ return OPTARIF_BBR;
+ return OPTARIF_NONE;
+}
+
+SR_PRIV gboolean teleinfo_packet_valid(const uint8_t *buf)
+{
+ return !!teleinfo_get_optarif(buf);
+}
+