2 * This file is part of the libsigrok project.
4 * Copyright (C) 2013 Aurelien Jacobs <aurel@gnuage.org>
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.
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.
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/>.
32 static gboolean teleinfo_control_check(char *label, char *data, char control)
40 return ((sum & 0x3F) + ' ') == control;
43 static gint teleinfo_channel_compare(gconstpointer a, gconstpointer b)
45 const struct sr_channel *ch = a;
47 return strcmp(ch->name, name);
50 static struct sr_channel *teleinfo_find_channel(struct sr_dev_inst *sdi,
53 GSList *elem = g_slist_find_custom(sdi->channels, name,
54 teleinfo_channel_compare);
55 return elem ? elem->data : NULL;
58 static void teleinfo_send_value(struct sr_dev_inst *sdi, const char *channel_name,
59 float value, int mq, int unit)
61 struct sr_datafeed_packet packet;
62 struct sr_datafeed_analog_old analog;
63 struct sr_channel *ch;
65 ch = teleinfo_find_channel(sdi, channel_name);
67 if (!ch || !ch->enabled)
70 memset(&analog, 0, sizeof(struct sr_datafeed_analog_old));
71 analog.channels = g_slist_append(analog.channels, ch);
72 analog.num_samples = 1;
77 packet.type = SR_DF_ANALOG_OLD;
78 packet.payload = &analog;
79 sr_session_send(sdi, &packet);
80 g_slist_free(analog.channels);
83 static void teleinfo_handle_measurement(struct sr_dev_inst *sdi,
84 const char *label, const char *data, char *optarif)
86 struct dev_context *devc;
89 if (!sdi || !(devc = sdi->priv)) {
90 if (optarif && !strcmp(label, "OPTARIF"))
91 strcpy(optarif, data);
95 if (!strcmp(label, "ADCO")) {
97 } else if (!strcmp(label, "BASE")) {
98 teleinfo_send_value(sdi, "BASE", v, SR_MQ_POWER, SR_UNIT_WATT_HOUR);
99 } else if (!strcmp(label, "HCHP")) {
100 teleinfo_send_value(sdi, "HP" , v, SR_MQ_POWER, SR_UNIT_WATT_HOUR);
101 } else if (!strcmp(label, "HCHC")) {
102 teleinfo_send_value(sdi, "HC" , v, SR_MQ_POWER, SR_UNIT_WATT_HOUR);
103 } else if (!strcmp(label, "EJPHN")) {
104 teleinfo_send_value(sdi, "HN" , v, SR_MQ_POWER, SR_UNIT_WATT_HOUR);
105 } else if (!strcmp(label, "EJPHPM")) {
106 teleinfo_send_value(sdi, "HPM" , v, SR_MQ_POWER, SR_UNIT_WATT_HOUR);
107 } else if (!strcmp(label, "BBRHPJB")) {
108 teleinfo_send_value(sdi, "HPJB", v, SR_MQ_POWER, SR_UNIT_WATT_HOUR);
109 } else if (!strcmp(label, "BBRHPJW")) {
110 teleinfo_send_value(sdi, "HPJW", v, SR_MQ_POWER, SR_UNIT_WATT_HOUR);
111 } else if (!strcmp(label, "BBRHPJR")) {
112 teleinfo_send_value(sdi, "HPJR", v, SR_MQ_POWER, SR_UNIT_WATT_HOUR);
113 } else if (!strcmp(label, "BBRHCJB")) {
114 teleinfo_send_value(sdi, "HCJB", v, SR_MQ_POWER, SR_UNIT_WATT_HOUR);
115 } else if (!strcmp(label, "BBRHCJW")) {
116 teleinfo_send_value(sdi, "HCJW", v, SR_MQ_POWER, SR_UNIT_WATT_HOUR);
117 } else if (!strcmp(label, "BBRHCJR")) {
118 teleinfo_send_value(sdi, "HCJR", v, SR_MQ_POWER, SR_UNIT_WATT_HOUR);
119 } else if (!strcmp(label, "IINST")) {
120 teleinfo_send_value(sdi, "IINST", v, SR_MQ_CURRENT, SR_UNIT_AMPERE);
121 } else if (!strcmp(label, "PAPP")) {
122 teleinfo_send_value(sdi, "PAPP", v, SR_MQ_POWER, SR_UNIT_VOLT_AMPERE);
126 static gboolean teleinfo_parse_group(struct sr_dev_inst *sdi,
127 const uint8_t *group, char *optarif)
129 char label[9], data[13], control, cr;
130 const char *str = (const char *)group;
131 if (sscanf(str, "\x0A%8s %13s %c%c", label, data, &control, &cr) != 4
134 if (!teleinfo_control_check(label, data, control))
136 teleinfo_handle_measurement(sdi, label, data, optarif);
140 static const uint8_t *teleinfo_parse_data(struct sr_dev_inst *sdi,
141 const uint8_t *buf, int len,
144 const uint8_t *group_start, *group_end;
146 group_start = memchr(buf, LF, len);
150 group_end = memchr(group_start, CR, len - (group_start - buf));
154 teleinfo_parse_group(sdi, group_start, optarif);
155 return group_end + 1;
158 SR_PRIV int teleinfo_get_optarif(const uint8_t *buf)
160 const uint8_t *ptr = buf;
161 char optarif[5] = { 0 };
163 while ((ptr = teleinfo_parse_data(NULL, ptr, 292-(ptr-buf), optarif)));
164 if (!strcmp(optarif, "BASE"))
166 else if (!strcmp(optarif, "HC.."))
168 else if (!strcmp(optarif, "EJP."))
170 else if (!strncmp(optarif, "BBR", 3))
175 SR_PRIV gboolean teleinfo_packet_valid(const uint8_t *buf)
177 return !!teleinfo_get_optarif(buf);
180 SR_PRIV int teleinfo_receive_data(int fd, int revents, void *cb_data)
182 struct sr_dev_inst *sdi;
183 struct dev_context *devc;
184 struct sr_serial_dev_inst *serial;
185 const uint8_t *ptr, *next_ptr, *end_ptr;
191 if (!(sdi = cb_data) || !(devc = sdi->priv) || revents != G_IO_IN)
195 /* Try to get as much data as the buffer can hold. */
196 len = TELEINFO_BUF_SIZE - devc->buf_len;
197 len = serial_read_nonblocking(serial, devc->buf + devc->buf_len, len);
199 sr_err("Serial port read error: %d.", len);
202 devc->buf_len += len;
204 /* Now look for packets in that data. */
206 end_ptr = ptr + devc->buf_len;
207 while ((next_ptr = teleinfo_parse_data(sdi, ptr, end_ptr - ptr, NULL)))
210 /* If we have any data left, move it to the beginning of our buffer. */
211 memmove(devc->buf, ptr, end_ptr - ptr);
212 devc->buf_len -= ptr - devc->buf;
214 /* If buffer is full and no valid packet was found, wipe buffer. */
215 if (devc->buf_len >= TELEINFO_BUF_SIZE) {
220 if (devc->limit_samples && devc->num_samples >= devc->limit_samples) {
221 sr_info("Requested number of samples reached.");
222 sdi->driver->dev_acquisition_stop(sdi);
226 if (devc->limit_msec) {
227 time = (g_get_monotonic_time() - devc->start_time) / 1000;
228 if (time > (int64_t)devc->limit_msec) {
229 sr_info("Requested time limit reached.");
230 sdi->driver->dev_acquisition_stop(sdi);