13 #include "rds_consts.h"
19 static struct rds_info_s rds_info;
20 static struct tm rds_time;
22 static struct _RDS_Private {
23 void (*rds_PI_cb)(unsigned short PI, unsigned char ccode, unsigned char ptype, unsigned char pref, void *user_data);
25 void (*rds_sname_cb)(char *sname, void *user_data);
26 void *rds_sname_cb_data;
27 void (*rds_sinfo_cb)(unsigned char TP, unsigned char TA, unsigned char MS, unsigned char PTY, void *user_data);
28 void *rds_sinfo_cb_data;
29 void (*rds_radiotext_cb)(char *radio_text, void *user_data);
30 void *rds_radiotext_cb_data;
31 void (*rds_date_time_cb)(struct tm *dtime, void *user_data);
32 void *rds_date_time_cb_data;
33 void (*rds_afinfo_cb)(unsigned char cnt, double *AF, void *user_data);
34 void *rds_afinfo_cb_data;
38 memset(&_rds_private, 0, sizeof(struct _RDS_Private));
41 void rds_set_PI_cb(void (*rds_PI_cb)(unsigned short PI, unsigned char ccode, unsigned char ptype, unsigned char pref, void *user_data), void *user_data)
43 _rds_private.rds_PI_cb = rds_PI_cb;
44 _rds_private.rds_PI_cb_data = user_data;
47 void rds_set_sname_cb(void (*rds_sname_cb)(char *sname, void *user_data), void *user_data)
49 _rds_private.rds_sname_cb = rds_sname_cb;
50 _rds_private.rds_sname_cb_data = user_data;
53 void rds_set_sinfo_cb(void (*rds_sinfo_cb)(unsigned char TP, unsigned char TA, unsigned char MS, unsigned char PTY, void *user_data), void *user_data)
55 _rds_private.rds_sinfo_cb = rds_sinfo_cb;
56 _rds_private.rds_sinfo_cb_data = user_data;
59 void rds_set_afinfo_cb(void (*rds_afinfo_cb)(unsigned char cnt, double *AF, void *user_data), void *user_data)
61 _rds_private.rds_afinfo_cb = rds_afinfo_cb;
62 _rds_private.rds_afinfo_cb_data = user_data;
65 void rds_set_radiotext_cb(void (*rds_radiotext_cb)(char *radio_text, void *user_data), void *user_data)
67 _rds_private.rds_radiotext_cb = rds_radiotext_cb;
68 _rds_private.rds_radiotext_cb_data = user_data;
71 void rds_set_date_time_cb(void (*rds_date_time_cb)(struct tm *dtime, void *user_data), void *user_data)
73 _rds_private.rds_date_time_cb = rds_date_time_cb;
74 _rds_private.rds_date_time_cb_data = user_data;
78 int rds_receive_group(int rds_fd, unsigned short *rdsgroup)
80 static unsigned char expected = 0;
82 unsigned char rbuf[3];
86 rb = read(rds_fd, rbuf, 3);
88 exit(0); // just for testing
90 printf("#read err rb=%d\n", rb);
91 block = rbuf[0] | (rbuf[1] << 8);
92 offset = rbuf[2] & 0x07;
95 if (OutputFlags & RDS_RECEIVE_INDICATOR)
98 // printf("group block=0x%04x offs=0x%02x\n", block, offset);
99 if (offset != expected) {
100 if (OutputFlags & RDS_RECEIVE_INDICATOR)
101 printf("block out of sync - resetting\n");
103 memset(rdsgroup, 0, sizeof(rdsgroup));
105 rdsgroup[offset] = block;
109 if (OutputFlags & RDS_RECEIVE_INDICATOR)
115 if (OutputFlags & RDS_RECEIVE_INDICATOR)
121 enum RDSGroupType { GROUP_0A=0, GROUP_0B, GROUP_1A, GROUP_1B, GROUP_2A, GROUP_2B,
122 GROUP_3A, GROUP_3B, GROUP_4A, GROUP_4B, GROUP_5A, GROUP_5B,
123 GROUP_6A, GROUP_6B, GROUP_7A, GROUP_7B, GROUP_8A, GROUP_8B,
124 GROUP_9A, GROUP_9B, GROUP_10A, GROUP_10B, GROUP_11A, GROUP_11B,
125 GROUP_12A, GROUP_12B, GROUP_13A, GROUP_13B, GROUP_14A, GROUP_14B,
126 GROUP_15A, GROUP_15B, GROUP_UNKNOWN };
128 void rds_decode_group(unsigned short *rdsgroup)
130 static unsigned short ogrp[4];
131 unsigned char grp_type = (rdsgroup[1] >> 11);
133 static unsigned char otextAB = 0, newtext = 0;
134 unsigned short PI = rdsgroup[0];
135 unsigned char textAB = 0;
136 int local_time_off = 0;
140 if (ogrp[0] == rdsgroup[0] && ogrp[1] == rdsgroup[1] && ogrp[2] == rdsgroup[2] && ogrp[3] == rdsgroup[3])
143 ogrp[0] = rdsgroup[0];
144 ogrp[1] = rdsgroup[1];
145 ogrp[2] = rdsgroup[2];
146 ogrp[3] = rdsgroup[3];
147 //printf("grp: 0x%04x 0x%04x 0x%04x 0x%04x\n", rdsgroup[0], rdsgroup[1], rdsgroup[2], rdsgroup[3]);
149 if (rds_info.PI != PI) {
150 /* station change? */
151 memset(&rds_info, 0, sizeof(rds_info));
153 memset(&rds_time, 0, sizeof(rds_time));
154 rds_info.ccode = (PI & 0xf000) >> 12;
155 rds_info.ptype = (PI & 0x0f00) >> 8;
156 rds_info.pref = (PI & 0x00ff);
157 if (rds_info.pref == 0) /* something is wrong here */
159 rds_info.PI = rdsgroup[0];
160 if (_rds_private.rds_PI_cb != NULL)
161 _rds_private.rds_PI_cb(rds_info.PI, rds_info.ccode, rds_info.ptype, rds_info.pref, _rds_private.rds_PI_cb_data);
162 if (OutputFlags & RDS_OUTPUT_RDSINFO)
163 printf("PI=%d ccode=%X ptype=%X '%s' '%s' pref=%d\n", rds_info.PI, rds_info.ccode, rds_info.ptype, ptype_stext[rds_info.ptype], ptype_ltext[rds_info.ptype], rds_info.pref);
167 case GROUP_0A: { /* basic switching and tuning */
168 unsigned char AFc1, AFc2;
171 offs = (rdsgroup[1] & 0x03);
172 rds_info.sname[offs*2] = ((rdsgroup[3] & 0xff00) >> 8);
173 rds_info.sname[(offs*2)+1] = rdsgroup[3] & 0x00ff;
174 if (_rds_private.rds_sname_cb != NULL)
175 _rds_private.rds_sname_cb(rds_info.sname, _rds_private.rds_sname_cb_data);
177 rds_info.TA = (rdsgroup[1] & 0x10) >> 4;
178 rds_info.TP = (rdsgroup[1] & 0x400) >> 10;
179 rds_info.MS = (rdsgroup[1] & 0x08) >> 3;
180 rds_info.PTY = (rdsgroup[1] & 0x3e0) >> 5;
181 if (_rds_private.rds_sinfo_cb != NULL)
182 _rds_private.rds_sinfo_cb(rds_info.TP, rds_info.TA, rds_info.MS, rds_info.PTY, _rds_private.rds_sinfo_cb_data);
184 AFc1 = ((rdsgroup[2] & 0xff00) >> 8);
185 AFc2 = (rdsgroup[2] & 0x00ff);
186 if (AFc1 > 225 && AFc1 < 250) {
187 if (OutputFlags & RDS_OUTPUT_STATION_ID)
188 printf(" %d AFs follow:\n", AFc1-224);
189 } else if (AFc1 > 0 && AFc1 < 205)
190 AF1 = (float)87.5 + ((float)AFc1 * .1);
191 else if (AFc1 == 205)
192 printf(" filler- \n");
193 if (AFc2 > 0 && AFc2 < 205)
194 AF2 = (float)87.5 + ((float)AFc2 * .1);
196 if (OutputFlags & RDS_OUTPUT_STATION_ID)
197 printf("sname = '%s' %s %s %s AF1=%3.2f AF2=%3.2f PTY='%s'\n", rds_info.sname, rds_info.TP ? "TP" : "", rds_info.TA ? "TA" : "", rds_info.MS ? "M" : "S", AF1, AF2, PTY_text[rds_info.PTY]);
201 if (OutputFlags & RDS_OUTPUT_UNKNGRP)
202 printf("group 0B\n");
204 case GROUP_1A: { /* Programme Item Number and slow labelling codes */
205 unsigned char variant, day, hour, minute;
206 unsigned short tmc_id;
208 variant = (rdsgroup[2] & (0x07 << 12)) >> 12;
209 day = (rdsgroup[3] & (0x1f << 11)) >> 11;
210 hour = (rdsgroup[3] & (0x1f << 6)) >> 6;
211 minute = (rdsgroup[3] & 0x3f);
212 if (OutputFlags & RDS_OUTPUT_UNKNGRP)
213 printf("1A var=%d day=%d %d:%d ", variant, day, hour, minute);
215 rds_info.ECC = (rdsgroup[2] & 0xff);
216 printf(" ccode=%d ECC=0x%02x '%s' ", rds_info.ccode, rds_info.ECC, ECC_text[((rds_info.ECC & 0x0f)*16)+(rds_info.ccode-1)]);
219 tmc_id = (rdsgroup[2] & 0x0fff);
220 printf(" TMC ID=0x%04x", tmc_id);
223 printf(" Paging ID=0x%04x", (rdsgroup[2] & 0x0fff));
226 rds_info.lang_code = (rdsgroup[2] & 0xff);
227 printf(" language=0x%02x ", rds_info.lang_code);
228 switch (rds_info.lang_code) {
256 printf(" EWS Channel ID=0x%04x", (rdsgroup[2] & 0x0fff));
261 if (OutputFlags & RDS_OUTPUT_UNKNGRP)
262 printf("group 1B\n");
264 case GROUP_2A: /* 2A has 64 chars, 4 per group */
265 case GROUP_2B: /* 2B has 32 chars, 2 per group */
266 offs = (rdsgroup[1] & 0x0f);
267 textAB = (rdsgroup[1] & 0x10);
268 if (textAB != otextAB) {
269 memset(rds_info.rtext, ' ', 64);
270 rds_info.rtext[64] = '\0';
273 if (grp_type == GROUP_2A) {
274 rds_info.rtext[offs*4] = ((rdsgroup[2] & 0xff00) >> 8);
275 rds_info.rtext[(offs*4)+1] = (rdsgroup[2] & 0x00ff);
276 rds_info.rtext[(offs*4)+2] = ((rdsgroup[3] & 0xff00) >> 8);
277 rds_info.rtext[(offs*4)+3] = (rdsgroup[3] & 0x00ff);
279 rds_info.rtext[offs*2] = ((rdsgroup[3] & 0xff00) >> 8);
280 rds_info.rtext[(offs*2)+1] = (rdsgroup[3] & 0x00ff);
282 if (offs == 0) /* new text always starts at 0 */
284 if ((offs == 15)) { /* all parts received */
286 if (_rds_private.rds_radiotext_cb != NULL)
287 _rds_private.rds_radiotext_cb(rds_info.rtext, _rds_private.rds_radiotext_cb_data);
288 if (OutputFlags & RDS_OUTPUT_RADIO_TEXT)
289 printf("RT '%s'\n", rds_info.rtext);
294 case GROUP_3A: /* ODA - TMC alarm, */
295 rds_info.AID = rdsgroup[3];
297 if (rds_info.AID == 0xcd46 || rds_info.AID == 0x0d45) {
298 if ((rdsgroup[2] & 0xc000) == 0) {
299 rds_info.LTN = (rdsgroup[2] & 0x0fc0) >> 6;
300 rds_info.AFI = (rdsgroup[2] & 0x0020) >> 5;
301 rds_info.M = (rdsgroup[2] & 0x0010) >> 4;
302 rds_info.I = (rdsgroup[2] & 0x0008) >> 3;
303 rds_info.N = (rdsgroup[2] & 0x0004) >> 2;
304 rds_info.R = (rdsgroup[2] & 0x0002) >> 1;
305 rds_info.U = (rdsgroup[2] & 0x0001);
307 if (rdsgroup[2] & 0x4000) {
310 rds_info.G = (rdsgroup[2] & 0x3000) >> 12;
311 rds_info.Ta = (rdsgroup[2] & 0x0030) >> 4;
312 rds_info.Tw = (rdsgroup[2] & 0x000c) >> 2;
313 rds_info.Td = (rdsgroup[2] & 0x0003);
317 if (OutputFlags & RDS_OUTPUT_RDSINFO) {
318 printf("AID = 0x%04x\n", rds_info.AID);
319 printf("LTN ID = %d (0x%02x)\n", rds_info.LTN, rds_info.LTN);
320 printf("Traffic information: ");
322 printf("international ");
334 if (OutputFlags & RDS_OUTPUT_UNKNGRP)
335 printf("group 3B\n");
338 //printf("group 4A - time/date\n");
339 rds_time.tm_sec = 0; // date/time message is sent at 00 secs +/- .2sec
340 rds_time.tm_min = ((rdsgroup[3] & (0x3f << 6)) >> 6);
341 rds_time.tm_hour = ((rdsgroup[3] & (0x0f << 12)) >> 12) | ((rdsgroup[2] & 0x01) << 4);
342 local_time_off = (rdsgroup[3] & 0x0f) * ((rdsgroup[3] & 0x10) ? -1 : 1);
343 rds_time.tm_hour += local_time_off / 2;
344 rds_time.tm_min = (rds_time.tm_min + ((local_time_off % 2) * 30)) % 60;
346 day_code = (((rdsgroup[2] & 0xfffe) >> 1) | ((rdsgroup[1] & 0x03) << 15)) /*+ local_time_off*/;
348 year_ = ((float)day_code - 15078.2) / 365.25;
349 mon_ = ((day_code - 14956.1) - (int)(year_ * 365.25)) / 30.6001;
350 rds_time.tm_mday = day_code - 14956 - (int)(year_ * 365.25) - (int)(mon_ * 30.6001);
351 if (mon_ == 14 || mon_ == 15)
355 rds_time.tm_year = year_ + K;
356 rds_time.tm_mon = mon_ - 1 - (K * 12) - 1;
358 rds_time.tm_isdst = -1;
360 if (_rds_private.rds_date_time_cb != NULL)
361 _rds_private.rds_date_time_cb(&rds_time, _rds_private.rds_date_time_cb_data);
363 if (OutputFlags & RDS_OUTPUT_DATETIME)
364 printf("%s", asctime(&rds_time));
366 printf("%d:%02d - local time offset = %d, %s (dcode = %d)\n", rds_time.tm_hour, rds_time.tm_min, local_time_off, asctime(&rds_time), day_code);
368 //printf("day=%d month=%d year=%d\n", day, mon, year);
371 if (OutputFlags & RDS_OUTPUT_UNKNGRP)
375 if (OutputFlags & RDS_OUTPUT_UNKNGRP)
379 if (OutputFlags & RDS_OUTPUT_UNKNGRP)
383 if (OutputFlags & RDS_OUTPUT_UNKNGRP)
387 if (OutputFlags & RDS_OUTPUT_UNKNGRP)
391 if (OutputFlags & RDS_OUTPUT_UNKNGRP)
395 if (OutputFlags & RDS_OUTPUT_UNKNGRP)
399 if (rds_info.LTN != 0) // non TMCpro
400 decode_tmc(rdsgroup);
401 if (rds_info.LTN == 0)
405 if (OutputFlags & RDS_OUTPUT_UNKNGRP)
409 if (OutputFlags & RDS_OUTPUT_UNKNGRP)
413 if (OutputFlags & RDS_OUTPUT_UNKNGRP)
417 if (OutputFlags & RDS_OUTPUT_UNKNGRP)
421 if (OutputFlags & RDS_OUTPUT_UNKNGRP)
425 if (OutputFlags & RDS_OUTPUT_UNKNGRP)
429 if (OutputFlags & RDS_OUTPUT_UNKNGRP)
433 if (OutputFlags & RDS_OUTPUT_UNKNGRP)
437 if (OutputFlags & RDS_OUTPUT_UNKNGRP)
441 if (OutputFlags & RDS_OUTPUT_UNKNGRP)
445 if (OutputFlags & RDS_OUTPUT_UNKNGRP)
448 case GROUP_14A: /* EON */ {
449 unsigned char variant = rdsgroup[1] & 0x0f;
450 unsigned char AFc1=0, AFc2=0;
454 rds_info.PTY = (rdsgroup[1] & 0x3e0) >> 5;
455 rds_info.TPTN = (rdsgroup[1] & 0x400) >> 10;
456 rds_info.TPON = (rdsgroup[1] & 0x10) >> 4;
459 if (variant <= 3) { // PS
460 rds_info.PS[variant*2] = ((rdsgroup[2] & 0xff00) >> 8);
461 rds_info.PS[(variant*2)+1] = (rdsgroup[2] & 0x00ff);
462 } else if (variant == 4) {
463 printf("EON variant 4\n");
464 } else if (variant >= 5 && variant <= 8) { // AF - alternate frequency
465 AFc1 = ((rdsgroup[2] & 0xff00) >> 8);
466 AFc2 = (rdsgroup[2] & 0x00ff);
467 if (AFc1 > 0 && AFc1 < 205)
468 AF1 = (float)87.5 + ((float)AFc1 * .1);
469 else if (AFc1 >= 225 && AFc1 <= 249)
471 if (AFc2 > 0 && AFc2 < 205)
472 AF2 = (float)87.5 + ((float)AFc2 * .1);
473 else if (AFc2 >= 225 && AFc2 <= 249)
476 if (OutputFlags & RDS_OUTPUT_EON) {
477 printf("EON var=0x%01x PTY=%d ('%s') PS='%s' AF1=%3.2f (%d) AF2=%3.2f (%d) PI=%d\n", variant, rds_info.PTY, PTY_text[rds_info.PTY], rds_info.PS, AF1, AFc1, AF2, AFc2, PI);
480 case GROUP_14B: /* Enhanced Other Networks information */
481 if (OutputFlags & RDS_OUTPUT_EON)
482 printf("GRP14B: Enhanced Other Networks information\n");
485 if (OutputFlags & RDS_OUTPUT_UNKNGRP)
488 case GROUP_15B: /* Fast basic tuning and switching information */
489 if (OutputFlags & RDS_OUTPUT_UNKNGRP)
490 printf("GRP15B: Fast basic tuning and switching information\n");
493 if (OutputFlags & RDS_OUTPUT_UNKNGRP)
494 printf("unkn. RDS group %d\n", grp_type);