More functions, changed license to LGPL
[metawatch.git] / metawatch.c
1 /*
2  * (c) 2011 Siegen, Germany by Nils Faerber
3  *
4  * license LGPL
5  */
6 #include <stdio.h>
7 #include <sys/types.h>
8 #include <sys/stat.h>
9 #include <fcntl.h>
10 #include <unistd.h>
11 #include <stdlib.h>
12 #include <string.h>
13 #include <time.h>
14 #include <termios.h>
15
16 #include "metawatch_protocol.h"
17 #include "crc16ccitt.h"
18
19
20 #define MW_FRAME_DELAY          0x00
21
22 void dump_frame(unsigned char *frame, int len)
23 {
24         int i;
25
26         for (i=0; i<len; i++)
27                 fprintf(stderr, "0x%02x ", frame[i]);
28         fprintf(stderr, "\n");
29 }
30
31
32 int mw_send_frame(int mw_fd, unsigned char msg_type, unsigned char options, unsigned char *data, unsigned char len)
33 {
34         unsigned short crc;
35         unsigned char frame[64];
36         int tlen = len + 6; /* payload + 6 bytes frameing */
37         int ret;
38
39         memset(frame, 0, 64);
40         frame[0] = MW_SOF;
41         frame[1] = len + 6;
42         frame[2] = msg_type;
43         frame[3] = options;
44         if (data != NULL && len > 0)
45                 memcpy(frame+4, data, len);
46
47         crc = crc16ccitt(frame, len+4);
48         *(unsigned short *)(frame+len+4) = crc;
49
50         dump_frame(frame, tlen);
51
52         while (((ret = write(mw_fd, frame, tlen)) >= 0) && (tlen > 0))
53                 tlen -= ret;
54
55         if (MW_FRAME_DELAY)
56                 usleep(MW_FRAME_DELAY);
57
58         if (tlen == 0 && ret >= 0)
59                 return 0;
60         else
61                 return ret;
62 }
63
64 /*
65  * host to watch commands
66  */
67
68 void mw_set_rtc(int mw_fd, unsigned char clk1224, unsigned char date_fmt)
69 {
70         time_t mtime;
71         struct tm mtm;
72         unsigned short year;
73         unsigned char data[32];
74
75         mtime = time(NULL);
76         localtime_r(&mtime, &mtm);
77
78         year = mtm.tm_year + 1900;  
79         data[0] = (year & 0x0f00) >> 8;
80         data[1] = (year & 0x00ff);
81         data[2] = mtm.tm_mon + 1;
82         data[3] = mtm.tm_mday;
83         data[4] = mtm.tm_wday;
84         data[5] = mtm.tm_hour;
85         data[6] = mtm.tm_min;
86         data[7] = mtm.tm_sec;
87         data[8] = clk1224;
88         data[9] = date_fmt;
89
90         mw_send_frame(mw_fd, MW_SET_REAL_TIME_CLOCK, 0, data, 10);
91 }
92
93 void mw_set_vibrate_mode(int mw_fd, unsigned char enable, unsigned short on_time, unsigned short off_time, unsigned char cycles)
94 {
95         unsigned char mdata[7];
96
97         mdata[0] = enable;
98         *(unsigned short *)(mdata+1) = on_time; /* miliseconds */
99         *(unsigned short *)(mdata+3) = off_time; /* miliseconds */
100         mdata[5] = cycles;
101         mw_send_frame(mw_fd, MW_SET_VIBRATE_MODE, 0, mdata, 6);
102 }
103
104 void mw_configure_watch_mode(int mw_fd, unsigned char mode, unsigned char save, unsigned char timeout, unsigned char invert)
105 {
106         unsigned char mdata[3];
107
108         mdata[0] = timeout; /* seconds */
109         mdata[1] = invert; /* 0=normal, 1=invert */
110         mw_send_frame(mw_fd, MW_CONFIGURE_MODE, (mode & 0x0f) | ((save & 0x01) << 3), mdata, 2);
111 }
112
113 void mw_update_display(int mw_fd, unsigned char mode, unsigned char copy)
114 {
115         mw_send_frame(mw_fd, MW_UPDATE_DISPLAY, (mode & 0x0f) | ((copy & 0x01) << 3), NULL, 0);
116 }
117
118 void mw_load_template(int mw_fd, unsigned char mode, unsigned char template_select)
119 {
120         mw_send_frame(mw_fd, MW_LOAD_TEMPLATE, (mode & 0x0f), &template_select, 1);
121 }
122
123 /*
124  * send line for screen-mode mode from *buffer to watch, starting at display row row_offset
125  */
126 void mw_write_buffer(int mw_fd,
127                 unsigned char mode,
128                 unsigned char numlines,         /* number of lines, 0 or 1 */
129                 unsigned char row_offset,       /* start at row_offset in display, e.g. lower part in idle @31 */
130                 unsigned char *buffer, int buflen)
131 {
132         unsigned char mdata[32];
133
134         buflen = 12 * (buflen / 12);    /* crop to 12 bytes */
135         if ((numlines == 0 && buflen < 12) || (numlines == 1 && buflen < 24)) {
136                 fprintf(stderr, "mw_write_buffer: bufferlen does not match number of lines\n");
137                 return;
138         };
139         memset(mdata, 0, 32);
140         mdata[0] = row_offset;
141         memcpy((mdata+1), buffer, 12);
142         if (numlines == 1) {
143                 mdata[0] = row_offset+1;
144                 memcpy((mdata+13), (buffer+12), 12);
145         };
146         mw_send_frame(mw_fd, MW_WRITE_BUFFER, (mode & 0x0f) | (((numlines & 0x01)<< 3) & 0x10), mdata, numlines ? 13 : 26);
147 }
148
149
150 /* ------------------------------------------------------------------------ */
151
152
153 /*
154  * watch responses, events or notifications
155  */
156 void mw_get_real_time_clock_response(int mw_fd, unsigned char *rtcrsp, int len)
157 {
158         struct tm mtm;
159         unsigned short year;
160         unsigned char clk1224, date_fmt;
161
162         if (len != 10) {
163                 fprintf(stderr, "get real time clock response too short %d != 10\n", len);
164                 return;
165         }
166
167         year = *(unsigned short *)rtcrsp;
168         mtm.tm_year = year - 1900;
169         mtm.tm_mon = rtcrsp[2] - 1;
170         mtm.tm_mday = rtcrsp[3];
171         mtm.tm_wday = rtcrsp[4];
172         mtm.tm_hour = rtcrsp[5];
173         mtm.tm_min = rtcrsp[6];
174         mtm.tm_sec = rtcrsp[7];
175         clk1224 = rtcrsp[8];
176         date_fmt = rtcrsp[9];
177
178         fprintf(stderr, "watch RTC is %s, clock format is %s, date format is %s\n", asctime(&mtm), clk1224 ? "24h" : "AM/PM", date_fmt ? "DD/MM" : "MM/DD");
179 }
180
181 void mw_get_battery_voltage_response(int mw_fd, unsigned char *batrsp, int len)
182 {
183         unsigned short voltage = *(unsigned short *)batrsp;
184         unsigned char power_good = batrsp[2];
185         unsigned char bat_charging = batrsp[3];
186
187         fprintf(stderr, "battery is at %dV, %s and %s\n", voltage, power_good ? "power is good" : "power fault", bat_charging ? "charging" : "not charging");
188 }
189
190 /* ---------------------------------------------------------------------- */
191
192 int decode_frame(int mw_fd, unsigned char *buf, int len)
193 {
194         unsigned short crc;
195         unsigned char msglen;
196         unsigned char msgtype;
197         unsigned char msgopt;
198         unsigned char *msgdata;
199
200         /* check frame */
201         crc = *(unsigned short *)(buf+len-2);
202         if (crc != crc16ccitt(buf, len-2)) {
203                 fprintf(stderr, "decode frame CRC error\n");
204                 return 1;
205         } else
206                 fprintf(stderr, "decode frame CRC OK\n");
207         if (buf[0] != MW_SOF) {
208                 fprintf(stderr, "decode frame SOF not found\n");
209                 return 1;
210         } else
211         fprintf(stderr, "decode frame found SOF\n");
212
213         msglen = buf[1];
214         msgtype = buf[2];
215         msgopt = buf[3];
216         msgdata = (buf+4);
217
218         switch (msgtype) {
219                 case MW_GET_REAL_TIME_CLOCK_RSP:
220                         mw_get_real_time_clock_response(mw_fd, msgdata, len-4-2);
221                         break;
222                 case MW_GET_INFORMATION_STRING_RSP:
223                         msgdata[len-4-2] = 0;
224                         fprintf(stderr, "Got info string '%s'\n", (msgdata+4));
225                         break;
226                 case MW_READ_BATTERY_VOLTAGE_RSP:
227                         mw_get_battery_voltage_response(mw_fd, msgdata, len-4-2);
228                         break;
229                 case MW_LOW_BATTERY_WARNING_MSG:
230                         fprintf(stderr, "Watch battery low, please connect charger\n");
231                         break;
232                 case MW_LOW_BATTERY_BT_OFF_MSG:
233                         fprintf(stderr, "Watch battery extremely low - radio will turn off\n");
234                         break;
235                 default:
236                         fprintf(stderr, "Unkown msgtype 0x%02x\n", msgtype);
237                         break;
238         };
239
240         return 0;
241 }
242
243
244 void process_cmd(char *cmdline, int clinep, int mw_fd)
245 {
246         unsigned char mdata[32];
247
248         fprintf(stderr, "command: '%s'\n", cmdline);
249
250         if (strncmp(cmdline, "quit", 4) == 0) {
251                 close(mw_fd);
252                 exit(0);
253         }
254
255         if (strncmp(cmdline, "srtc", 4) == 0) {
256                 fprintf(stderr, "Setting RTC from system time...");
257                 mw_set_rtc(mw_fd, MW_RTC_CLOCK_24HR, MW_RTC_DATE_DDMM);
258                 fprintf(stderr, "OK\n");
259         }
260         if (strncmp(cmdline, "grtc", 4) == 0) {
261                 mw_send_frame(mw_fd, MW_GET_REAL_TIME_CLOCK, 0, NULL, 0);
262         }
263         if (strncmp(cmdline, "gistr", 5) == 0) {
264                 mdata[0] = 0;
265                 mw_send_frame(mw_fd, MW_GET_INFORMATION_STRING, 0, mdata, 1);
266         }
267         if (strncmp(cmdline, "gdtype", 6) == 0) {
268                 mw_send_frame(mw_fd, MW_GET_DEVICE_TYPE, 0, NULL, 0);
269         }
270         if (strncmp(cmdline, "rvbat", 5) == 0) {
271                 mw_send_frame(mw_fd, MW_READ_BATTERY_VOLTAGE_MSG, 0, NULL, 0);
272         }
273         if (strncmp(cmdline, "modecfg", 6) == 0) {
274                 mw_configure_watch_mode(mw_fd, MW_SCREEN_MODE_IDLE, 0, 4, 1);
275                 mw_update_display(mw_fd, MW_SCREEN_MODE_IDLE, 0);
276         }
277         if (strncmp(cmdline, "rbtcfg", 6) == 0) {
278                 mdata[0] = 0; /* idle screen */
279                 mdata[1] = 1; /* button index */
280                 mdata[2] = 2; /* button press type */
281                 mdata[3] = 3; /* callback message type */
282                 mdata[4] = 4; /* callback message option */
283                 mw_send_frame(mw_fd, MW_READ_BUTTON_CONFIG, 0, NULL, 0);
284         }
285         if (strncmp(cmdline, "svib", 4) == 0) {
286                 mw_set_vibrate_mode(mw_fd, 1, 300, 300, 5);
287         }
288 }
289
290
291 int menu(int mw_fd)
292 {
293         fd_set mfds;
294         struct termios tconfd;
295         char cmdline[128];
296         unsigned char msg_buf[64];
297         unsigned char clinep = 0;
298         int rcvd;
299
300         tcgetattr(0, &tconfd);
301         cfmakeraw(&tconfd);
302         tconfd.c_oflag |= ONLCR | OPOST;
303         tconfd.c_lflag |= ISIG;
304         tcsetattr(0, TCSANOW, &tconfd);
305
306         FD_ZERO(&mfds);
307         FD_SET(0, &mfds);
308         FD_SET(mw_fd, &mfds);
309
310         memset(cmdline, 0, 128);
311
312         do {
313                 rcvd = 0;
314                 if (select(mw_fd+1, &mfds, NULL, NULL, NULL) > 0) {
315                         if (FD_ISSET(mw_fd, &mfds)) {
316                                 rcvd = read(mw_fd, msg_buf, 64);
317                                 fprintf(stderr, "read %d bytes:\n", rcvd);
318                                 if (rcvd > 0) {
319                                         dump_frame(msg_buf, rcvd);
320                                         decode_frame(mw_fd, msg_buf, rcvd);
321                                 }
322                         };
323                         if (FD_ISSET(0, &mfds)) {
324                                 rcvd = read(0, (cmdline+clinep), 1);
325                                 if (rcvd > 0) {
326                                         if (cmdline[clinep] == '\r') {
327                                                 printf("\n");
328                                                 cmdline[clinep--] = '\0';
329                                                 process_cmd(cmdline, clinep, mw_fd);
330                                                 clinep = 0;
331                                                 memset(cmdline, 0, 128);
332                                         } else {
333                                                 clinep++;
334                                                 if (clinep > 75)
335                                                         clinep = 75;
336                                                 printf("\r> %s", cmdline);
337                                                 fflush(stdout);
338                                         }
339                                 }
340                         };
341                 } else
342                         break;
343                 FD_ZERO(&mfds);
344                 FD_SET(0, &mfds);
345                 FD_SET(mw_fd, &mfds);
346         } while (rcvd > 0);
347
348         return 0;
349 }
350
351 int main(int argc, char **argv)
352 {
353         int mw_fd;
354
355         if (argc != 2) {
356                 fprintf(stderr, "Usage:\n\t%s <devicename>\n", argv[0]);
357                 return 1;
358         };
359   
360         crc16ccitt_init();
361
362         mw_fd = open(argv[1], O_RDWR);
363         if (mw_fd < 0) {
364                 perror("open");
365                 return 1;
366         };
367
368         menu(mw_fd);
369
370         fsync(mw_fd);
371
372         close(mw_fd);
373
374         return 0;
375 };
376