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