Info string inquiry extension
[metawatch.git] / mw_main.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 <errno.h>
19
20 #include <bluetooth/bluetooth.h>
21 #include <bluetooth/rfcomm.h>
22
23 /*
24 #include <bluetooth/sdp.h>
25 #include <bluetooth/sdp_lib.h>
26 */
27
28 #include "metawatch.h"
29 #include "crc16ccitt.h"
30 #include "mw_utility.h"
31
32
33 void bitmap_test(int mw_fd)
34 {
35         /* a nice checker-board pattern */
36         unsigned char checkbuf[24] = {
37                 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa,
38                 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa,
39                 0x55, 0x55, 0x55, 0x55, 0x55, 0x55,
40                 0x55, 0x55, 0x55, 0x55, 0x55, 0x55,
41         };
42         mw_write_buffer(mw_fd, MW_SCREEN_MODE_IDLE, 0, 31, checkbuf, 24);
43         mw_write_buffer(mw_fd, MW_SCREEN_MODE_IDLE, 0, 33, checkbuf, 24);
44         mw_write_buffer(mw_fd, MW_SCREEN_MODE_IDLE, 0, 35, checkbuf, 24);
45         mw_write_buffer(mw_fd, MW_SCREEN_MODE_IDLE, 0, 37, checkbuf, 24);
46
47         mw_update_display(mw_fd, MW_SCREEN_MODE_IDLE, 1);
48 }
49
50 void bitmap_test2(int mw_fd)
51 {
52         mw_buffer *mwbuf1, *mwbuf2;
53         unsigned char *bbuf;
54         int len, x;
55
56         mwbuf1 = mw_alloc_pbuffer(96, 66, 1);
57         mwbuf2 = mw_alloc_pbuffer(96, 66, 1);
58
59         mw_buf_clear(mwbuf1, MW_BLACK);
60         mw_buf_clear(mwbuf2, MW_WHITE);
61
62         for (x=0; x<66; x++) {
63                 //mw_buf_clear(mwbuf1, MW_BLACK);
64                 mw_buf_draw_pixel(mwbuf1, x, x, MW_WHITE);
65                 mw_dump_mw_buffer(mwbuf1);
66                 bbuf = mw_make_mw_buffer(mwbuf1, &len);
67                 mw_send_bitmap(mw_fd, MW_SCREEN_MODE_IDLE, 96, 65, 31, bbuf, len);
68                 mw_update_display(mw_fd, MW_SCREEN_MODE_IDLE, 1);
69                 getchar();
70         };
71
72         mw_free_pbuffer(mwbuf1);
73         mw_free_pbuffer(mwbuf2);
74 }
75
76 void text_test(int mw_fd)
77 {
78         mw_buffer *mwbuf;
79         unsigned char *bbuf;
80         int len;
81
82         mwbuf = mw_alloc_pbuffer(96, 66, 1);
83         mw_buf_clear(mwbuf, MW_BLACK);
84
85         mw_buf_print(mwbuf, 1, 10, "Font 0", 0, MW_WHITE, MW_BLACK);
86         mw_buf_print(mwbuf, 1, 20, "Font 1", 1, MW_WHITE, MW_BLACK);
87         mw_buf_print(mwbuf, 1, 30, "Font 2", 2, MW_WHITE, MW_BLACK);
88         mw_buf_print(mwbuf, 1, 45, "Big Fat Clipping", 2, MW_BLACK, MW_WHITE);
89
90         bbuf = mw_make_mw_buffer(mwbuf, &len);
91         mw_send_bitmap(mw_fd, MW_SCREEN_MODE_IDLE, 96, 65, 31, bbuf, len);
92         mw_update_display(mw_fd, MW_SCREEN_MODE_IDLE, 1);
93         mw_free_pbuffer(mwbuf);
94 }
95
96 void line_test(int mw_fd)
97 {
98         mw_buffer *mwbuf;
99         unsigned char *bbuf;
100         int len, p;
101
102         mwbuf = mw_alloc_pbuffer(96, 66, 1);
103         mw_buf_clear(mwbuf, MW_BLACK);
104
105         for (p=0; p<=96; p+=8)
106                 mw_buf_draw_line_bresenham(mwbuf, p, 0, 95-p, 65, MW_WHITE);
107
108         bbuf = mw_make_mw_buffer(mwbuf, &len);
109         mw_send_bitmap(mw_fd, MW_SCREEN_MODE_IDLE, 96, 65, 31, bbuf, len);
110         mw_update_display(mw_fd, MW_SCREEN_MODE_IDLE, 1);
111         mw_free_pbuffer(mwbuf);
112 }
113
114 void bitmap_read(int mw_fd)
115 {
116         int ffd, ret;
117         char rbuf[256];
118         unsigned int width, height, i;
119 #ifdef DEBUG
120         unsigned int x, y;
121 #endif
122         unsigned int rowlength;
123         unsigned char *bmapbuf;
124         // unsigned char mw_buf[24];
125
126         ffd = open("test.pbm", O_RDONLY);
127         if (ffd < 0) {
128                 perror("open");
129                 return;
130         };
131         ret = read(ffd, rbuf, 3);
132         if (rbuf[0] != 'P' || rbuf[1] != '4') {
133                 fprintf(stderr, "not a PBM file\n");
134                 return;
135         }
136         memset(rbuf, 0, 256);
137         i = 0;
138         do {
139                 ret = read(ffd, (rbuf+i), 1);
140         } while (!isspace(rbuf[i++]));
141         width = atoi(rbuf);
142
143         memset(rbuf, 0, 256);
144         i = 0;
145         do {
146                 ret = read(ffd, (rbuf+i), 1);
147         } while (!isspace(rbuf[i++]));
148         height = atoi(rbuf);
149
150         rowlength = ((width / 8) + 1);
151
152         bmapbuf = malloc(rowlength * height);
153
154         ret = read(ffd, bmapbuf, rowlength * height);
155         close(ffd);
156
157 #ifdef DEBUG
158         fprintf(stderr, "row length = %d bytes\n", rowlength);
159         fprintf(stderr, "bitmap resolution is %d x %d\n", width, height);
160         fprintf(stderr, "read %d of %d bytes\n", ret, rowlength * height);
161         fprintf(stderr, "\n");
162         for (y=0; y<height; y++) {
163                 for (x=0; x<rowlength; x++) {
164                         for (i=0; i<8; i++)
165                                 fprintf(stderr, "%c", (bmapbuf[(y*rowlength)+x] & (1<<(7-i))) ? '.' : ' ');
166                 }
167                 fprintf(stderr, "\n");
168         }
169         fprintf(stderr, "\n");
170 #endif
171
172         /* reverse bits and invert the bmap */
173         bmap_buffer_flipinvert(1, 1, bmapbuf, rowlength * height);
174         /* send the buffer to the watch */
175         mw_send_bitmap(mw_fd, MW_SCREEN_MODE_IDLE, width, height, 31, bmapbuf, rowlength * height);
176         /* update the display */
177         mw_update_display(mw_fd, MW_SCREEN_MODE_IDLE, 1);
178
179         free(bmapbuf);
180 }
181
182 void test_notification(int mw_fd)
183 {
184         mw_buffer *mwbuf;
185         unsigned char *bbuf;
186         int len;
187
188         mwbuf = mw_alloc_pbuffer(96, 96, 1);
189         mw_buf_clear(mwbuf, MW_BLACK);
190
191         mw_buf_draw_line_bresenham(mwbuf, 2, 0, 93, 0, MW_WHITE);
192         mw_buf_draw_line_bresenham(mwbuf, 0, 1, 95, 1, MW_WHITE);
193         mw_buf_draw_line_bresenham(mwbuf, 0, 94, 95, 94, MW_WHITE);
194         mw_buf_draw_line_bresenham(mwbuf, 2, 95, 93, 95, MW_WHITE);
195
196         mw_buf_draw_line_bresenham(mwbuf, 0, 2, 0, 93, MW_WHITE);
197         mw_buf_draw_line_bresenham(mwbuf, 1, 0, 1, 95, MW_WHITE);
198         mw_buf_draw_line_bresenham(mwbuf, 95, 2, 95, 93, MW_WHITE);
199         mw_buf_draw_line_bresenham(mwbuf, 94, 0, 94, 95, MW_WHITE);
200
201         mw_buf_print(mwbuf, 4,  4, "012345678901234", 0, MW_WHITE, MW_BLACK);
202         mw_buf_print(mwbuf, 4, 13, "012345678901234", 0, MW_WHITE, MW_BLACK);
203         mw_buf_print(mwbuf, 4, 22, "0123456789g1234", 0, MW_WHITE, MW_BLACK);
204         mw_buf_print(mwbuf, 4, 31, "012345678901234", 0, MW_WHITE, MW_BLACK);
205         mw_buf_print(mwbuf, 4, 40, "012345678901234", 0, MW_WHITE, MW_BLACK);
206         mw_buf_print(mwbuf, 4, 49, "012345678901234", 0, MW_WHITE, MW_BLACK);
207         mw_buf_print(mwbuf, 4, 58, "0123456789g1234", 0, MW_WHITE, MW_BLACK);
208         mw_buf_print(mwbuf, 4, 67, "012345678901234", 0, MW_WHITE, MW_BLACK);
209         mw_buf_print(mwbuf, 4, 76, "012345678901234", 0, MW_WHITE, MW_BLACK);
210         mw_buf_print(mwbuf, 4, 85, "012345678901234", 0, MW_WHITE, MW_BLACK);
211
212         bbuf = mw_make_mw_buffer(mwbuf, &len);
213         mw_send_bitmap(mw_fd, MW_SCREEN_MODE_NOTIFICATION, 96, 96, 0, bbuf, len);
214         mw_update_display(mw_fd, MW_SCREEN_MODE_NOTIFICATION, 1);
215         mw_free_pbuffer(mwbuf);
216
217         mw_set_vibrate_mode(mw_fd, 1, 300, 300, 3);
218 }
219
220 void test_application(int mw_fd)
221 {
222         mw_buffer *mwbuf;
223         unsigned char *bbuf;
224         int len;
225
226         mw_enable_button(mw_fd, MW_SCREEN_MODE_APPLICATION, MW_BUTTON_A, MW_BUTTON_IMMEDIATE, MW_BUTTON_EVENT_MESSAGE, MW_BUTTON_A);
227         mw_configure_watch_mode(mw_fd, MW_SCREEN_MODE_APPLICATION, 0, 30, 0);
228
229         mwbuf = mw_alloc_pbuffer(96, 96, 1);
230         mw_buf_clear(mwbuf, MW_BLACK);
231
232         mw_buf_print(mwbuf, 0,  0, "  Application   ", 0, MW_BLACK, MW_WHITE);
233         mw_buf_print(mwbuf, 0,  9, "0123456789012345", 0, MW_WHITE, MW_BLACK);
234         mw_buf_print(mwbuf, 0, 18, "0123456789g12345", 0, MW_WHITE, MW_BLACK);
235         mw_buf_print(mwbuf, 0, 27, "0123456789012345", 0, MW_WHITE, MW_BLACK);
236         mw_buf_print(mwbuf, 0, 36, "0123456789012345", 0, MW_WHITE, MW_BLACK);
237         mw_buf_print(mwbuf, 0, 45, "0123456789012345", 0, MW_WHITE, MW_BLACK);
238         mw_buf_print(mwbuf, 0, 54, "0123456789g12345", 0, MW_WHITE, MW_BLACK);
239         mw_buf_print(mwbuf, 0, 63, "0123456789012345", 0, MW_WHITE, MW_BLACK);
240         mw_buf_print(mwbuf, 0, 72, "0123456789012345", 0, MW_WHITE, MW_BLACK);
241         mw_buf_print(mwbuf, 0, 81, "0123456789012345", 0, MW_WHITE, MW_BLACK);
242
243         bbuf = mw_make_mw_buffer(mwbuf, &len);
244         mw_send_bitmap(mw_fd, MW_SCREEN_MODE_APPLICATION, 96, 96, 0, bbuf, len);
245         mw_update_display(mw_fd, MW_SCREEN_MODE_APPLICATION, 1);
246         mw_free_pbuffer(mwbuf);
247 }
248
249 void print_help(void)
250 {
251 }
252
253 void process_cmd(char *cmdline, int clinep, int mw_fd)
254 {
255         unsigned char mdata[32];
256         unsigned int intopt;
257
258         fprintf(stderr, "command: '%s'\n", cmdline);
259
260         if (strncmp(cmdline, "quit", 4) == 0) {
261                 close(mw_fd);
262                 exit(0);
263         }
264         if (strncmp(cmdline, "help", 4) == 0) {
265                 print_help();
266         }
267         if (strncmp(cmdline, "srtc", 4) == 0) {
268                 fprintf(stderr, "Setting RTC from system time...");
269                 mw_set_rtc(mw_fd, MW_RTC_CLOCK_24HR, MW_RTC_DATE_DDMM);
270                 fprintf(stderr, "OK\n");
271         }
272         if (strncmp(cmdline, "grtc", 4) == 0) {
273                 mw_send_frame(mw_fd, MW_GET_REAL_TIME_CLOCK, 0, NULL, 0);
274         }
275         if (strncmp(cmdline, "gistr", 5) == 0) {
276                 intopt = cmdline[6]-0x30;
277                 if (intopt>=0 && intopt <=3)
278                         mdata[0] = intopt;
279                 else
280                         mdata[0] = 0;
281                 mw_send_frame(mw_fd, MW_GET_INFORMATION_STRING, 0, mdata, 1);
282         }
283         if (strncmp(cmdline, "gdtype", 6) == 0) {
284                 mw_send_frame(mw_fd, MW_GET_DEVICE_TYPE, 0, NULL, 0);
285         }
286         if (strncmp(cmdline, "rvbat", 5) == 0) {
287                 mw_send_frame(mw_fd, MW_READ_BATTERY_VOLTAGE_MSG, 0, NULL, 0);
288         }
289         if (strncmp(cmdline, "rlight", 6) == 0) {
290                 mw_send_frame(mw_fd, MW_READ_LIGHT_SENSOR_MSG, 0, NULL, 0);
291         }
292         if (strncmp(cmdline, "modecfg", 6) == 0) {
293                 mw_configure_watch_mode(mw_fd, MW_SCREEN_MODE_IDLE, 0, 4, 1);
294                 mw_update_display(mw_fd, MW_SCREEN_MODE_IDLE, 0);
295         }
296         if (strncmp(cmdline, "rbtcfg", 6) == 0) {
297                 intopt = cmdline[7]-0x30;
298                 mdata[0] = 0; /* idle screen */
299                 mdata[1] = intopt; /* button index */
300                 /* for reading the config those are unnecessary */
301                 mdata[2] = 0; /* button press type */
302                 mdata[3] = 0; /* callback message type */
303                 mdata[4] = 0; /* callback message option */
304                 mw_send_frame(mw_fd, MW_READ_BUTTON_CONFIG, 0, mdata, 5);
305         }
306         if (strncmp(cmdline, "svib", 4) == 0) {
307                 mw_set_vibrate_mode(mw_fd, 1, 300, 300, 5);
308         }
309         if (strncmp(cmdline, "tbmp", 4) == 0) {
310                 bitmap_test(mw_fd);
311         }
312         if (strncmp(cmdline, "t2bmp", 5) == 0) {
313                 bitmap_test2(mw_fd);
314         }
315         if (strncmp(cmdline, "text", 4) == 0) {
316                 text_test(mw_fd);
317         }
318         if (strncmp(cmdline, "tline", 5) == 0) {
319                 line_test(mw_fd);
320         }
321         if (strncmp(cmdline, "rbmp", 4) == 0) {
322                 bitmap_read(mw_fd);
323         }
324         if (strncmp(cmdline, "tnote", 5) == 0) {
325                 test_notification(mw_fd);
326         }
327         if (strncmp(cmdline, "tapp", 4) == 0) {
328                 test_application(mw_fd);
329         }
330 }
331
332
333 int menu(int mw_fd)
334 {
335         fd_set mfds;
336         struct termios tconfd, tmwfd;
337         char cmdline[128];
338         unsigned char msg_buf[64];
339         unsigned char clinep = 0;
340         int rcvd;
341
342         tcgetattr(0, &tconfd);
343         cfmakeraw(&tconfd);
344         tconfd.c_oflag |= ONLCR | OPOST;
345         tconfd.c_lflag |= ISIG;
346         tcsetattr(0, TCSANOW, &tconfd);
347
348         tcgetattr(mw_fd, &tmwfd);
349         cfmakeraw(&tmwfd);
350         tmwfd.c_oflag |= ONLCR | OPOST;
351         tmwfd.c_lflag |= ISIG;
352         tcsetattr(mw_fd, TCSANOW, &tmwfd);
353
354         FD_ZERO(&mfds);
355         FD_SET(0, &mfds);
356         FD_SET(mw_fd, &mfds);
357
358         memset(cmdline, 0, 128);
359
360         do {
361                 rcvd = 0;
362                 if (select(mw_fd+1, &mfds, NULL, NULL, NULL) > 0) {
363                         if (FD_ISSET(mw_fd, &mfds)) {
364                                 rcvd = read(mw_fd, msg_buf, 64);
365 #ifdef DEBUG
366                                 fprintf(stderr, "read %d bytes:\n", rcvd);
367 #endif
368                                 if (rcvd > 0) {
369 #ifdef DEBUG
370                                         dump_frame(msg_buf, rcvd);
371 #endif
372                                         decode_frame(mw_fd, msg_buf, rcvd);
373                                 }
374                         };
375                         if (FD_ISSET(0, &mfds)) {
376                                 rcvd = read(0, (cmdline+clinep), 1);
377                                 if (rcvd > 0) {
378                                         if (cmdline[clinep] == '\r') {
379                                                 printf("\n");
380                                                 cmdline[clinep--] = '\0';
381                                                 process_cmd(cmdline, clinep, mw_fd);
382                                                 clinep = 0;
383                                                 memset(cmdline, 0, 128);
384                                         } else {
385                                                 clinep++;
386                                                 if (clinep > 75)
387                                                         clinep = 75;
388                                                 printf("\r> %s", cmdline);
389                                                 fflush(stdout);
390                                         }
391                                 }
392                         };
393                 } else
394                         break;
395                 FD_ZERO(&mfds);
396                 FD_SET(0, &mfds);
397                 FD_SET(mw_fd, &mfds);
398         } while (rcvd > 0);
399
400         return 0;
401 }
402
403 int open_socket(bdaddr_t *bdaddr, uint8_t channel)
404 {
405         struct sockaddr_rc addr;
406         int sk, opt;
407         //int f;
408
409         sk = socket(PF_BLUETOOTH, SOCK_STREAM, BTPROTO_RFCOMM);
410         if (sk < 0) {
411                 fprintf(stderr, "Can't create socket: %s (%d)\n",
412                         strerror(errno), errno);
413                 return -1;
414         }
415
416 /*
417         f = 1;
418         if (setsockopt(sk, SOL_BLUETOOTH, BT_FLUSHABLE, &f, sizeof(f)) < 0) {
419                 fprintf(stderr, "Can't set flushable: %s (%d)\n",
420                         strerror(errno), errno);
421                 return -1;
422         }
423 */
424         memset(&addr, 0, sizeof(addr));
425         addr.rc_family = AF_BLUETOOTH;
426         bacpy(&addr.rc_bdaddr, BDADDR_ANY);
427
428         if (bind(sk, (struct sockaddr *) &addr, sizeof(addr)) < 0) {
429                 fprintf(stderr, "Can't bind socket: %s (%d)\n",
430                                                         strerror(errno), errno);
431                 close(sk);
432                 return -1;
433         }
434
435        /* Set link mode */
436         opt = 0;
437         opt |= RFCOMM_LM_MASTER;
438         opt |= RFCOMM_LM_AUTH;
439 /*
440         opt |= RFCOMM_LM_ENCRYPT;
441         opt |= RFCOMM_LM_SECURE;
442 */
443         if (opt && setsockopt(sk, SOL_RFCOMM, RFCOMM_LM, &opt, sizeof(opt)) < 0) {
444                 fprintf(stderr, "Can't set RFCOMM link mode: %s (%d)",
445                                                         strerror(errno), errno);
446                 close(sk);
447                 return -1;
448         }
449
450         memset(&addr, 0, sizeof(addr));
451         addr.rc_family = AF_BLUETOOTH;
452         bacpy(&addr.rc_bdaddr, bdaddr);
453         addr.rc_channel = channel;
454
455         if (connect(sk, (struct sockaddr *) &addr, sizeof(addr)) < 0) {
456                 fprintf(stderr, "Can't connect: %s (%d)\n",
457                                                         strerror(errno), errno);
458                 close(sk);
459                 return -1;
460         }
461
462         return sk;
463 }
464
465 void baswap(bdaddr_t *dst, const bdaddr_t *src)
466 {
467         register unsigned char *d = (unsigned char *) dst;
468         register const unsigned char *s = (const unsigned char *) src;
469         register int i;
470
471         for (i = 0; i < 6; i++)
472                 d[i] = s[5-i];
473 }
474 int bachk(const char *str)
475 {
476         if (!str)
477                 return -1;
478
479         if (strlen(str) != 17)
480                 return -1;
481
482         while (*str) {
483                 if (!isxdigit(*str++))
484                         return -1;
485
486                 if (!isxdigit(*str++))
487                         return -1;
488
489                 if (*str == 0)
490                         break;
491
492                 if (*str++ != ':')
493                         return -1;
494         }
495
496         return 0;
497 }
498
499 int str2ba(const char *str, bdaddr_t *ba)
500 {
501         bdaddr_t b;
502         int i;
503
504         if (bachk(str) < 0) {
505                 memset(ba, 0, sizeof(*ba));
506                 return -1;
507         }
508
509         for (i = 0; i < 6; i++, str += 3)
510                 b.b[i] = strtol(str, NULL, 16);
511
512         baswap(ba, &b);
513
514         return 0;
515 }
516
517 int main(int argc, char **argv)
518 {
519         int mw_fd;
520         bdaddr_t btaddr;
521
522         if (argc != 2) {
523                 fprintf(stderr, "Usage:\n\t%s <devicename>\n", argv[0]);
524                 return 1;
525         };
526   
527         crc16ccitt_init();
528
529 #if USE_RFCOMM_FILE
530         mw_fd = open(argv[1], O_RDWR);
531         if (mw_fd < 0) {
532                 perror("open");
533                 return 1;
534         };
535 #else
536         if (str2ba(argv[1], &btaddr))
537                 return 1;
538         mw_fd = open_socket(&btaddr, 1);
539         if (mw_fd < 0) {
540                 return 1;
541         } else {
542                 fprintf(stderr, "connected to %s\n", argv[1]);
543         };
544 #endif
545
546         menu(mw_fd);
547
548         fsync(mw_fd);
549
550         close(mw_fd);
551
552         return 0;
553 };
554