Reworked the bitmap functions to be of more general use
[metawatch.git] / metawatch.c
1 /*
2  * (c) 2011 Siegen, Germany by Nils Faerber <nils.faerber@kernelconcepts.de>
3  *
4  * license LGPL
5  */
6
7 #include <stdio.h>
8 #include <sys/types.h>
9 #include <sys/stat.h>
10 #include <fcntl.h>
11 #include <unistd.h>
12 #include <stdlib.h>
13 #include <string.h>
14 #include <time.h>
15 #include <termios.h>
16 #include <ctype.h>
17
18 #include "metawatch.h"
19 #include "metawatch_protocol.h"
20 #include "crc16ccitt.h"
21
22
23 #ifdef DEBUG
24 const char *mw_screen_mode_names[] = {
25         "idle screen",
26         "application screen",
27         "notification screen",
28         "scroll"
29 };
30
31 const char *mw_status_string[] = {
32         "Reserved",
33         "Mode Change",
34         "Display Timeout"
35 };
36 #endif
37
38
39 #define MW_FRAME_DELAY          0x00
40
41 void dump_frame(unsigned char *frame, int len)
42 {
43         int i;
44
45         for (i=0; i<len; i++)
46                 fprintf(stderr, "0x%02x ", frame[i]);
47         fprintf(stderr, "\n");
48 }
49
50
51 int mw_send_frame(int mw_fd, unsigned char msg_type, unsigned char options, unsigned char *data, unsigned char len)
52 {
53         unsigned short crc;
54         unsigned char frame[64];
55         int tlen = len + 6; /* payload + 6 bytes frameing */
56         int ret;
57
58         memset(frame, 0, 64);
59         frame[0] = MW_SOF;
60         frame[1] = len + 6;
61         frame[2] = msg_type;
62         frame[3] = options;
63         if (data != NULL && len > 0)
64                 memcpy(frame+4, data, len);
65
66         crc = crc16ccitt(frame, len+4);
67         *(unsigned short *)(frame+len+4) = crc;
68
69 #ifdef DEBUG
70         dump_frame(frame, tlen);
71 #endif
72
73         while (((ret = write(mw_fd, frame, tlen)) >= 0) && (tlen > 0))
74                 tlen -= ret;
75
76         if (MW_FRAME_DELAY)
77                 usleep(MW_FRAME_DELAY);
78
79         if (tlen == 0 && ret >= 0)
80                 return 0;
81         else
82                 return ret;
83 }
84
85
86 /* ----------------------------------------------------------------------
87  * Host to watch commands
88  * ---------------------------------------------------------------------- */
89
90
91 void mw_set_rtc(int mw_fd, unsigned char clk1224, unsigned char date_fmt)
92 {
93         time_t mtime;
94         struct tm mtm;
95         unsigned short year;
96         unsigned char data[32];
97
98         mtime = time(NULL);
99         localtime_r(&mtime, &mtm);
100
101         year = mtm.tm_year + 1900;  
102         data[0] = (year & 0x0f00) >> 8;
103         data[1] = (year & 0x00ff);
104         data[2] = mtm.tm_mon + 1;
105         data[3] = mtm.tm_mday;
106         data[4] = mtm.tm_wday;
107         data[5] = mtm.tm_hour;
108         data[6] = mtm.tm_min;
109         data[7] = mtm.tm_sec;
110         data[8] = clk1224;
111         data[9] = date_fmt;
112
113         mw_send_frame(mw_fd, MW_SET_REAL_TIME_CLOCK, 0, data, 10);
114 }
115
116 void mw_set_vibrate_mode(int mw_fd, unsigned char enable, unsigned short on_time, unsigned short off_time, unsigned char cycles)
117 {
118         unsigned char mdata[7];
119
120         mdata[0] = enable;
121         *(unsigned short *)(mdata+1) = on_time; /* miliseconds */
122         *(unsigned short *)(mdata+3) = off_time; /* miliseconds */
123         mdata[5] = cycles;
124         mw_send_frame(mw_fd, MW_SET_VIBRATE_MODE, 0, mdata, 6);
125 }
126
127 void mw_configure_watch_mode(int mw_fd, unsigned char mode, unsigned char save, unsigned char timeout, unsigned char invert)
128 {
129         unsigned char mdata[3];
130
131         mdata[0] = timeout; /* seconds */
132         mdata[1] = invert; /* 0=normal, 1=invert */
133         mw_send_frame(mw_fd, MW_CONFIGURE_MODE, (mode & 0x0f) | ((save & 0x01) << 4), mdata, 2);
134 }
135
136 void mw_update_display(int mw_fd, unsigned char mode, unsigned char copy)
137 {
138         mw_send_frame(mw_fd, MW_UPDATE_DISPLAY, (mode & 0x0f) | ((copy & 0x01) << 4), NULL, 0);
139 }
140
141 void mw_load_template(int mw_fd, unsigned char mode, unsigned char template_select)
142 {
143         mw_send_frame(mw_fd, MW_LOAD_TEMPLATE, (mode & 0x0f), &template_select, 1);
144 }
145
146 /*
147  * send line for screen-mode mode from *buffer to watch, starting at display row row_offset
148  */
149 void mw_write_buffer(int mw_fd,
150                 unsigned char mode,
151                 unsigned char numlines,         /* number of lines, 0=two lines or 1=one line */
152                 unsigned char row_offset,       /* start at row_offset in display, e.g. lower part in idle @31 */
153                 unsigned char *buffer, int buflen)
154 {
155         unsigned char mdata[32];
156
157         buflen = 12 * (buflen / 12);    /* crop to 12 bytes */
158         if ((numlines == 0 && buflen < 12) || (numlines == 1 && buflen < 24)) {
159                 fprintf(stderr, "mw_write_buffer: bufferlen does not match number of lines\n");
160                 return;
161         };
162         memset(mdata, 0, 32);
163         mdata[0] = row_offset;
164         memcpy((mdata+1), buffer, 12);
165         if (numlines == 0) {
166                 mdata[13] = row_offset+1;
167                 memcpy((mdata+14), (buffer+12), 12);
168         };
169         mw_send_frame(mw_fd, MW_WRITE_BUFFER, (mode & 0x0f) | (((numlines & 0x01)<< 4) & 0x10), mdata, numlines ? 13 : 26);
170 }
171
172
173 /* ----------------------------------------------------------------------
174  * Watch responses, events or notifications
175  * ---------------------------------------------------------------------- */
176
177
178 void mw_get_real_time_clock_response(int mw_fd, unsigned char *rtcrsp, int len)
179 {
180         struct tm mtm;
181         unsigned short year;
182         unsigned char clk1224, date_fmt;
183
184         if (len != 10) {
185                 fprintf(stderr, "get real time clock response too short %d != 10\n", len);
186                 return;
187         }
188
189         year = *(unsigned short *)rtcrsp;
190         mtm.tm_year = year - 1900;
191         mtm.tm_mon = rtcrsp[2] - 1;
192         mtm.tm_mday = rtcrsp[3];
193         mtm.tm_wday = rtcrsp[4];
194         mtm.tm_hour = rtcrsp[5];
195         mtm.tm_min = rtcrsp[6];
196         mtm.tm_sec = rtcrsp[7];
197         clk1224 = rtcrsp[8];
198         date_fmt = rtcrsp[9];
199
200         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");
201 }
202
203 void mw_get_battery_voltage_response(int mw_fd, unsigned char *batrsp, int len)
204 {
205         unsigned short voltage = *(unsigned short *)batrsp;
206         unsigned char power_good = batrsp[2];
207         unsigned char bat_charging = batrsp[3];
208
209         fprintf(stderr, "battery is at %dV, %s and %s\n", voltage, power_good ? "power is good" : "power fault", bat_charging ? "charging" : "not charging");
210 }
211
212 void mw_status_change_event(int mw_fd, unsigned char option, unsigned char *statrsp, int len)
213 {
214         fprintf(stderr, "Status change event for mode %s: %s\n", mw_screen_mode_names[option&0x0f], mw_status_string[statrsp[0]]);      
215 }
216
217
218 /* ----------------------------------------------------------------------
219  * Protocol handling
220  * ---------------------------------------------------------------------- */
221
222
223 int decode_frame(int mw_fd, unsigned char *buf, int len)
224 {
225         unsigned short crc;
226         unsigned char msglen;
227         unsigned char msgtype;
228         unsigned char msgopt;
229         unsigned char *msgdata;
230
231         /* check frame */
232         crc = *(unsigned short *)(buf+len-2);
233         if (crc != crc16ccitt(buf, len-2)) {
234                 fprintf(stderr, "decode frame CRC error\n");
235                 return 1;
236         } else
237                 fprintf(stderr, "decode frame CRC OK\n");
238         if (buf[0] != MW_SOF) {
239                 fprintf(stderr, "decode frame SOF not found\n");
240                 return 1;
241         } else
242         fprintf(stderr, "decode frame found SOF\n");
243
244         msglen = buf[1];
245         msgtype = buf[2];
246         msgopt = buf[3];
247         msgdata = (buf+4);
248
249         switch (msgtype) {
250                 case MW_GET_REAL_TIME_CLOCK_RSP:
251                         mw_get_real_time_clock_response(mw_fd, msgdata, len-4-2);
252                         break;
253                 case MW_GET_INFORMATION_STRING_RSP:
254                         msgdata[len-4-2] = 0;
255                         fprintf(stderr, "Got info string '%s'\n", (msgdata+4));
256                         break;
257                 case MW_READ_BATTERY_VOLTAGE_RSP:
258                         mw_get_battery_voltage_response(mw_fd, msgdata, len-4-2);
259                         break;
260                 case MW_LOW_BATTERY_WARNING_MSG:
261                         fprintf(stderr, "Watch battery low, please connect charger\n");
262                         break;
263                 case MW_LOW_BATTERY_BT_OFF_MSG:
264                         fprintf(stderr, "Watch battery extremely low - radio will turn off\n");
265                         break;
266                 case MW_STATUS_CHANGE_EVENT:
267                         mw_status_change_event(mw_fd, msgopt, msgdata, len-4-2);
268                         break;
269                 default:
270                         fprintf(stderr, "Unkown msgtype 0x%02x\n", msgtype);
271                         break;
272         };
273
274         return 0;
275 }
276
277
278 /* ----------------------------------------------------------------------
279  * Convenience functions not strictly part of the protocol
280  * ---------------------------------------------------------------------- */
281
282 /* if flip=1 bits in each byte are inverted 7->1, 6->2, 5->3,...
283    if invert=1 each byte is inverted
284  */
285 void bmap_buffer_flipinvert(unsigned char flip, unsigned char invert, unsigned char *buf, int len)
286 {
287         int i;
288         unsigned char tmp;
289
290         while (len--) {
291                 tmp = 0;
292                 if (flip) {
293                         for (i=0; i<8; i++)
294                                 tmp |= ((*buf & (1<<i)) >> i) << (7-i);
295                         // fprintf(stderr, "0x%02x -> 0x%02x\n", *buf, tmp);
296                 } else
297                         tmp = *buf;
298                 *buf = invert ? ~tmp : tmp;
299                 buf++;
300         }
301 }
302
303
304 void mw_send_bitmap(int mw_fd, unsigned char mode, int width, int height, int offset, unsigned char *bmapbuf, int buflen)
305 {
306         char rbuf[256];
307         unsigned int i, x, y;
308         unsigned int rowlength;
309         unsigned char mw_buf[24];
310
311         rowlength = ((width / 8) + 1);
312         if ((height + offset) > 96)
313                 height = 96 - offset;
314
315 #ifdef DEBUG
316         fprintf(stderr, "row length = %d bytes\n", rowlength);
317         fprintf(stderr, "bitmap resolution is %d x %d\n", width, height);
318         fprintf(stderr, "\n");
319         for (y=0; y<height; y++) {
320                 for (x=0; x<rowlength; x++) {
321                         for (i=0; i<8; i++)
322                                 fprintf(stderr, "%c", (bmapbuf[(y*rowlength)+x] & (1<<(7-i))) ? '.' : ' ');
323                 }
324                 fprintf(stderr, "\n");
325         }
326         fprintf(stderr, "\n");
327 #endif
328
329         for (y=0; y<height; y+=2) {
330                 memset(mw_buf, 0, 24);
331                 memcpy(mw_buf, (bmapbuf+(y*rowlength)), (rowlength > 12) ? 12 : rowlength);
332                 memcpy((mw_buf+12), (bmapbuf+((y+1)*rowlength)), (rowlength > 12) ? 12 : rowlength);
333                 mw_write_buffer(mw_fd, mode, 0, 31+y, mw_buf, 24);
334         }
335 }
336