Break out code for main application and MW handling, add Bluetooth code to self conne...
[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
31
32 void bitmap_test(int mw_fd)
33 {
34         /* a nice checker-board pattern */
35         unsigned char checkbuf[24] = {
36                 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa,
37                 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa,
38                 0x55, 0x55, 0x55, 0x55, 0x55, 0x55,
39                 0x55, 0x55, 0x55, 0x55, 0x55, 0x55,
40         };
41         mw_write_buffer(mw_fd, MW_SCREEN_MODE_IDLE, 0, 31, checkbuf, 24);
42         mw_write_buffer(mw_fd, MW_SCREEN_MODE_IDLE, 0, 33, checkbuf, 24);
43         mw_write_buffer(mw_fd, MW_SCREEN_MODE_IDLE, 0, 35, checkbuf, 24);
44         mw_write_buffer(mw_fd, MW_SCREEN_MODE_IDLE, 0, 37, checkbuf, 24);
45
46         mw_update_display(mw_fd, MW_SCREEN_MODE_IDLE, 1);
47 }
48
49
50 void bitmap_read(int mw_fd)
51 {
52         int ffd, ret;
53         char rbuf[256];
54         unsigned int width, height, i, x, y;
55         unsigned int rowlength;
56         unsigned char *bmapbuf;
57         // unsigned char mw_buf[24];
58
59         ffd = open("test.pbm", O_RDONLY);
60         if (ffd < 0) {
61                 perror("open");
62                 return;
63         };
64         ret = read(ffd, rbuf, 3);
65         if (rbuf[0] != 'P' || rbuf[1] != '4') {
66                 fprintf(stderr, "not a PBM file\n");
67                 return;
68         }
69         memset(rbuf, 0, 256);
70         i = 0;
71         do {
72                 ret = read(ffd, (rbuf+i), 1);
73         } while (!isspace(rbuf[i++]));
74         width = atoi(rbuf);
75
76         memset(rbuf, 0, 256);
77         i = 0;
78         do {
79                 ret = read(ffd, (rbuf+i), 1);
80         } while (!isspace(rbuf[i++]));
81         height = atoi(rbuf);
82
83         rowlength = ((width / 8) + 1);
84
85         bmapbuf = malloc(rowlength * height);
86
87         ret = read(ffd, bmapbuf, rowlength * height);
88         close(ffd);
89
90 #ifdef DEBUG
91         fprintf(stderr, "row length = %d bytes\n", rowlength);
92         fprintf(stderr, "bitmap resolution is %d x %d\n", width, height);
93         fprintf(stderr, "read %d of %d bytes\n", ret, rowlength * height);
94         fprintf(stderr, "\n");
95         for (y=0; y<height; y++) {
96                 for (x=0; x<rowlength; x++) {
97                         for (i=0; i<8; i++)
98                                 fprintf(stderr, "%c", (bmapbuf[(y*rowlength)+x] & (1<<(7-i))) ? '.' : ' ');
99                 }
100                 fprintf(stderr, "\n");
101         }
102         fprintf(stderr, "\n");
103 #endif
104
105         /* reverse bits and invert the bmap */
106         bmap_buffer_flipinvert(1, 0, bmapbuf, rowlength * height);
107         /* send the buffer to the watch */
108         mw_send_bitmap(mw_fd, MW_SCREEN_MODE_IDLE, width, height, 31, bmapbuf, rowlength * height);
109         /* update the display */
110         mw_update_display(mw_fd, MW_SCREEN_MODE_IDLE, 1);
111
112         free(bmapbuf);
113 }
114
115 void print_help(void)
116 {
117 }
118
119 void process_cmd(char *cmdline, int clinep, int mw_fd)
120 {
121         unsigned char mdata[32];
122
123         fprintf(stderr, "command: '%s'\n", cmdline);
124
125         if (strncmp(cmdline, "quit", 4) == 0) {
126                 close(mw_fd);
127                 exit(0);
128         }
129         if (strncmp(cmdline, "help", 4) == 0) {
130                 print_help();
131         }
132         if (strncmp(cmdline, "srtc", 4) == 0) {
133                 fprintf(stderr, "Setting RTC from system time...");
134                 mw_set_rtc(mw_fd, MW_RTC_CLOCK_24HR, MW_RTC_DATE_DDMM);
135                 fprintf(stderr, "OK\n");
136         }
137         if (strncmp(cmdline, "grtc", 4) == 0) {
138                 mw_send_frame(mw_fd, MW_GET_REAL_TIME_CLOCK, 0, NULL, 0);
139         }
140         if (strncmp(cmdline, "gistr", 5) == 0) {
141                 mdata[0] = 0;
142                 mw_send_frame(mw_fd, MW_GET_INFORMATION_STRING, 0, mdata, 1);
143         }
144         if (strncmp(cmdline, "gdtype", 6) == 0) {
145                 mw_send_frame(mw_fd, MW_GET_DEVICE_TYPE, 0, NULL, 0);
146         }
147         if (strncmp(cmdline, "rvbat", 5) == 0) {
148                 mw_send_frame(mw_fd, MW_READ_BATTERY_VOLTAGE_MSG, 0, NULL, 0);
149         }
150         if (strncmp(cmdline, "modecfg", 6) == 0) {
151                 mw_configure_watch_mode(mw_fd, MW_SCREEN_MODE_IDLE, 0, 4, 1);
152                 mw_update_display(mw_fd, MW_SCREEN_MODE_IDLE, 0);
153         }
154         if (strncmp(cmdline, "rbtcfg", 6) == 0) {
155                 mdata[0] = 0; /* idle screen */
156                 mdata[1] = 1; /* button index */
157                 mdata[2] = 2; /* button press type */
158                 mdata[3] = 3; /* callback message type */
159                 mdata[4] = 4; /* callback message option */
160                 mw_send_frame(mw_fd, MW_READ_BUTTON_CONFIG, 0, NULL, 0);
161         }
162         if (strncmp(cmdline, "svib", 4) == 0) {
163                 mw_set_vibrate_mode(mw_fd, 1, 300, 300, 5);
164         }
165         if (strncmp(cmdline, "tbmp", 4) == 0) {
166                 bitmap_test(mw_fd);
167         }
168         if (strncmp(cmdline, "rbmp", 4) == 0) {
169                 bitmap_read(mw_fd);
170         }
171 }
172
173
174 int menu(int mw_fd)
175 {
176         fd_set mfds;
177         struct termios tconfd, tmwfd;
178         char cmdline[128];
179         unsigned char msg_buf[64];
180         unsigned char clinep = 0;
181         int rcvd;
182
183         tcgetattr(0, &tconfd);
184         cfmakeraw(&tconfd);
185         tconfd.c_oflag |= ONLCR | OPOST;
186         tconfd.c_lflag |= ISIG;
187         tcsetattr(0, TCSANOW, &tconfd);
188
189         tcgetattr(mw_fd, &tmwfd);
190         cfmakeraw(&tmwfd);
191         tmwfd.c_oflag |= ONLCR | OPOST;
192         tmwfd.c_lflag |= ISIG;
193         tcsetattr(mw_fd, TCSANOW, &tmwfd);
194
195         FD_ZERO(&mfds);
196         FD_SET(0, &mfds);
197         FD_SET(mw_fd, &mfds);
198
199         memset(cmdline, 0, 128);
200
201         do {
202                 rcvd = 0;
203                 if (select(mw_fd+1, &mfds, NULL, NULL, NULL) > 0) {
204                         if (FD_ISSET(mw_fd, &mfds)) {
205                                 rcvd = read(mw_fd, msg_buf, 64);
206                                 fprintf(stderr, "read %d bytes:\n", rcvd);
207                                 if (rcvd > 0) {
208                                         dump_frame(msg_buf, rcvd);
209                                         decode_frame(mw_fd, msg_buf, rcvd);
210                                 }
211                         };
212                         if (FD_ISSET(0, &mfds)) {
213                                 rcvd = read(0, (cmdline+clinep), 1);
214                                 if (rcvd > 0) {
215                                         if (cmdline[clinep] == '\r') {
216                                                 printf("\n");
217                                                 cmdline[clinep--] = '\0';
218                                                 process_cmd(cmdline, clinep, mw_fd);
219                                                 clinep = 0;
220                                                 memset(cmdline, 0, 128);
221                                         } else {
222                                                 clinep++;
223                                                 if (clinep > 75)
224                                                         clinep = 75;
225                                                 printf("\r> %s", cmdline);
226                                                 fflush(stdout);
227                                         }
228                                 }
229                         };
230                 } else
231                         break;
232                 FD_ZERO(&mfds);
233                 FD_SET(0, &mfds);
234                 FD_SET(mw_fd, &mfds);
235         } while (rcvd > 0);
236
237         return 0;
238 }
239
240 int open_socket(bdaddr_t *bdaddr, uint8_t channel)
241 {
242         struct sockaddr_rc addr;
243         int sk, opt;
244         int f;
245
246         sk = socket(PF_BLUETOOTH, SOCK_STREAM, BTPROTO_RFCOMM);
247         if (sk < 0) {
248                 fprintf(stderr, "Can't create socket: %s (%d)\n",
249                         strerror(errno), errno);
250                 return -1;
251         }
252
253 /*
254         f = 1;
255         if (setsockopt(sk, SOL_BLUETOOTH, BT_FLUSHABLE, &f, sizeof(f)) < 0) {
256                 fprintf(stderr, "Can't set flushable: %s (%d)\n",
257                         strerror(errno), errno);
258                 return -1;
259         }
260 */
261         memset(&addr, 0, sizeof(addr));
262         addr.rc_family = AF_BLUETOOTH;
263         bacpy(&addr.rc_bdaddr, BDADDR_ANY);
264
265         if (bind(sk, (struct sockaddr *) &addr, sizeof(addr)) < 0) {
266                 fprintf(stderr, "Can't bind socket: %s (%d)\n",
267                                                         strerror(errno), errno);
268                 close(sk);
269                 return -1;
270         }
271
272        /* Set link mode */
273         opt = 0;
274         opt |= RFCOMM_LM_MASTER;
275         opt |= RFCOMM_LM_AUTH;
276 /*
277         opt |= RFCOMM_LM_ENCRYPT;
278         opt |= RFCOMM_LM_SECURE;
279 */
280         if (opt && setsockopt(sk, SOL_RFCOMM, RFCOMM_LM, &opt, sizeof(opt)) < 0) {
281                 fprintf(stderr, "Can't set RFCOMM link mode: %s (%d)",
282                                                         strerror(errno), errno);
283                 close(sk);
284                 return -1;
285         }
286
287         memset(&addr, 0, sizeof(addr));
288         addr.rc_family = AF_BLUETOOTH;
289         bacpy(&addr.rc_bdaddr, bdaddr);
290         addr.rc_channel = channel;
291
292         if (connect(sk, (struct sockaddr *) &addr, sizeof(addr)) < 0) {
293                 fprintf(stderr, "Can't connect: %s (%d)\n",
294                                                         strerror(errno), errno);
295                 close(sk);
296                 return -1;
297         }
298
299         return sk;
300 }
301
302 void baswap(bdaddr_t *dst, const bdaddr_t *src)
303 {
304         register unsigned char *d = (unsigned char *) dst;
305         register const unsigned char *s = (const unsigned char *) src;
306         register int i;
307
308         for (i = 0; i < 6; i++)
309                 d[i] = s[5-i];
310 }
311 int bachk(const char *str)
312 {
313         if (!str)
314                 return -1;
315
316         if (strlen(str) != 17)
317                 return -1;
318
319         while (*str) {
320                 if (!isxdigit(*str++))
321                         return -1;
322
323                 if (!isxdigit(*str++))
324                         return -1;
325
326                 if (*str == 0)
327                         break;
328
329                 if (*str++ != ':')
330                         return -1;
331         }
332
333         return 0;
334 }
335
336 int str2ba(const char *str, bdaddr_t *ba)
337 {
338         bdaddr_t b;
339         int i;
340
341         if (bachk(str) < 0) {
342                 memset(ba, 0, sizeof(*ba));
343                 return -1;
344         }
345
346         for (i = 0; i < 6; i++, str += 3)
347                 b.b[i] = strtol(str, NULL, 16);
348
349         baswap(ba, &b);
350
351         return 0;
352 }
353
354 int main(int argc, char **argv)
355 {
356         int mw_fd;
357         bdaddr_t btaddr;
358
359         if (argc != 2) {
360                 fprintf(stderr, "Usage:\n\t%s <devicename>\n", argv[0]);
361                 return 1;
362         };
363   
364         crc16ccitt_init();
365
366 #if USE_RFCOMM_FILE
367         mw_fd = open(argv[1], O_RDWR);
368         if (mw_fd < 0) {
369                 perror("open");
370                 return 1;
371         };
372 #else
373         if (str2ba(argv[1], &btaddr))
374                 return 1;
375         mw_fd = open_socket(&btaddr, 1);
376         if (mw_fd < 0) {
377                 return 1;
378         };
379 #endif
380
381         menu(mw_fd);
382
383         fsync(mw_fd);
384
385         close(mw_fd);
386
387         return 0;
388 };
389