]> git.zerfleddert.de Git - fs20pcs/blob - fs20pcs.c
1223cebe08da078004508e10ca7683b87cfbc9a2
[fs20pcs] / fs20pcs.c
1 #include <string.h>
2 #include <stdio.h>
3 #include <stdint.h>
4 #include <unistd.h>
5 #include <stdlib.h>
6 #include <libusb-1.0/libusb.h>
7
8 #define USB_TIMEOUT 10000
9
10 #define ID_VENDOR 0x18ef
11 #define ID_PRODUCT 0xe015
12
13 extern char *optarg;
14
15 /* Not in all libusb-1.0 versions, so we have to roll our own :-( */
16 static char * usb_strerror(int e)
17 {
18 static char unknerr[256];
19
20 switch (e) {
21 case LIBUSB_SUCCESS:
22 return "Success";
23 case LIBUSB_ERROR_IO:
24 return "Input/output error";
25 case LIBUSB_ERROR_INVALID_PARAM:
26 return "Invalid parameter";
27 case LIBUSB_ERROR_ACCESS:
28 return "Access denied (insufficient permissions)";
29 case LIBUSB_ERROR_NO_DEVICE:
30 return "No such device (it may have been disconnected)";
31 case LIBUSB_ERROR_NOT_FOUND:
32 return "Entity not found";
33 case LIBUSB_ERROR_BUSY:
34 return "Resource busy";
35 case LIBUSB_ERROR_TIMEOUT:
36 return "Operation timed out";
37 case LIBUSB_ERROR_OVERFLOW:
38 return "Overflow";
39 case LIBUSB_ERROR_PIPE:
40 return "Pipe error";
41 case LIBUSB_ERROR_INTERRUPTED:
42 return "System call interrupted (perhaps due to signal)";
43 case LIBUSB_ERROR_NO_MEM:
44 return "Insufficient memory";
45 case LIBUSB_ERROR_NOT_SUPPORTED:
46 return "Operation not supported or unimplemented on this platform";
47 case LIBUSB_ERROR_OTHER:
48 return "Other error";
49 };
50 snprintf(unknerr, sizeof(unknerr), "Unknown error code %d / 0x%02x", e, e);
51 return unknerr;
52 }
53
54 libusb_device_handle *fs20pcs_find() {
55 libusb_device_handle *devh = NULL;
56 libusb_device **list;
57 ssize_t cnt;
58 ssize_t i;
59 int err;
60
61 cnt = libusb_get_device_list(NULL, &list);
62 if (cnt < 0) {
63 fprintf(stderr, "Can't get USB device list: %d\n", (int)cnt);
64 return NULL;
65 }
66
67 for (i = 0; i < cnt; i++){
68 struct libusb_device_descriptor desc;
69
70 err = libusb_get_device_descriptor(list[i], &desc);
71 if (err)
72 continue;
73
74 if ((desc.idVendor == ID_VENDOR) && (desc.idProduct == ID_PRODUCT)) {
75 libusb_device *dev = list[i];
76
77 err = libusb_open(dev, &devh);
78 if (err) {
79 fprintf(stderr, "Can't open device: %s\n", usb_strerror(err));
80 return NULL;
81 }
82
83 err = libusb_detach_kernel_driver(devh, 0);
84 if ((err != 0) && (err != LIBUSB_ERROR_NOT_FOUND)) {
85 fprintf(stderr, "Can't detach kernel driver: %s\n", usb_strerror(err));
86 return NULL;
87 }
88
89 err = libusb_claim_interface(devh, 0);
90 if ((err != 0)) {
91 fprintf(stderr, "Can't claim interface: %s\n", usb_strerror(err));
92 return NULL;
93 }
94
95 return devh;
96 }
97
98 }
99
100 return NULL;
101 }
102
103 int fs20pcs_send(libusb_device_handle *devh, unsigned char* send_data)
104 {
105 unsigned char recv_data[5] = {0x00, 0x00, 0x00, 0x00, 0x00};
106 int err;
107 int cnt;
108 int i;
109 int ret;
110
111 err = libusb_interrupt_transfer(devh, 0x01, send_data, 11, &cnt, 5000);
112 if (err) {
113 fprintf(stderr, "Can't send data: %s\n", usb_strerror(err));
114 return 0;
115 }
116
117 err = libusb_interrupt_transfer(devh, 0x81, recv_data, sizeof(recv_data), &cnt, 5000);
118 if (err) {
119 fprintf(stderr, "Can't receive data: %s\n", usb_strerror(err));
120 return 0;
121 }
122
123 if ((recv_data[0] != 0x02) ||
124 (recv_data[1] != 0x03) ||
125 (recv_data[2] != 0xa0)) {
126 fprintf(stderr, "Unexpected response: ");
127 for (i = 0; i < cnt; i++) {
128 fprintf(stderr, "0x%02x ", recv_data[i]);
129 }
130 fprintf(stderr, "\n");
131
132 return 0;
133 }
134
135 ret = 1;
136
137 switch(recv_data[3]) {
138 case 0x00:
139 printf("Success");
140 break;
141 case 0x01:
142 printf("Firmware: V%d.%d", ((recv_data[4] & 0xf0) >> 4) & 0x0f, recv_data[4] & 0x0f);
143 break;
144 case 0x02:
145 printf("Unknown command");
146 ret = 0;
147 break;
148 case 0x03:
149 printf("Wrong length");
150 ret = 0;
151 break;
152 case 0x04:
153 printf("Aborted sending long press");
154 break;
155 case 0x05:
156 printf("Nothing to stop");
157 break;
158 default:
159 printf("Unknown response: 0x%02x 0x%02x", recv_data[3], recv_data[4]);
160 ret = 0;
161 break;
162 }
163
164 printf("\n");
165
166 return ret;
167 }
168
169 unsigned char *parse_housecode(char *hc)
170 {
171 static unsigned char housecode[2];
172 char hc_fixed[9];
173 char *ep;
174 unsigned long val;
175 int i;
176
177 if (hc == NULL)
178 return NULL;
179
180 memset(housecode, 0, sizeof(housecode));
181
182 switch(strlen(hc)) {
183 case 6:
184 if (strncmp(hc, "0x", 2)) {
185 fprintf(stderr, "Not a 2 byte hexstring: %s\n", hc);
186 return NULL;
187 }
188 case 4:
189 val = strtoul(hc, &ep, 16);
190 if (*ep != '\0') {
191 fprintf(stderr, "Not a 2 byte hexstring: %s\n", hc);
192 return NULL;
193 }
194 break;
195 case 8:
196 memset(hc_fixed, 0, sizeof(hc_fixed));
197 for (i = 0; i < 8; i++) {
198 if ((hc[i] < '1') || (hc[i] > '4')) {
199 fprintf(stderr, "Not a valid ELV housecode: %s\n", hc);
200 return NULL;
201 }
202 hc_fixed[i] = hc[i] - 1;
203 val = strtoul(hc_fixed, &ep, 4);
204
205 if (*ep != '\0') {
206 fprintf(stderr, "Can't parse fixed ELV housecode: %s\n", hc_fixed);
207 return NULL;
208 }
209 }
210 break;
211 default:
212 fprintf(stderr, "Housecode has to be in hex (1234, 0x1234) or ELV (12341234) format!\n");
213 return NULL;
214 break;
215 }
216
217 housecode[0] = (val & 0xff00) >> 8;
218 housecode[1] = (val & 0xff);
219
220 return housecode;
221 }
222
223 int parse_addr(char *ad)
224 {
225 int addr = -1;
226 char ad_fixed[5];
227 char *ep;
228 unsigned long val;
229 int i;
230
231 if (ad == NULL)
232 return -1;
233
234 switch(strlen(ad)) {
235 case 4:
236 if (strncmp(ad, "0x", 2)) {
237 memset(ad_fixed, 0, sizeof(ad_fixed));
238 for (i = 0; i < 4; i++) {
239 if ((ad[i] < '1') || (ad[i] > '4')) {
240 fprintf(stderr, "Not a valid ELV address: %s\n", ad);
241 return -1;
242 }
243 ad_fixed[i] = ad[i] - 1;
244 val = strtoul(ad_fixed, &ep, 4);
245
246 if (*ep != '\0') {
247 fprintf(stderr, "Can't parse fixed ELV housecode: %s\n", ad_fixed);
248 return -1;
249 }
250 }
251
252 break;
253 }
254 case 2:
255 val = strtoul(ad, &ep, 16);
256 if (*ep != '\0') {
257 fprintf(stderr, "Not a 1 byte hexstring: %s\n", ad);
258 return -1;
259 }
260 break;
261 default:
262 fprintf(stderr, "Address has to be in hex (01, 0x01) or ELV (1112) format!\n");
263 return -1;
264 break;
265 }
266
267 addr = val & 0xff;
268
269 return addr;
270 }
271
272 void syntax(char *prog)
273 {
274 fprintf(stderr, "Syntax: %s options\n\n", prog);
275 fprintf(stderr, "Possible options:\n");
276 fprintf(stderr, "\t-V\t\trequest firmware-version\n");
277 fprintf(stderr, "\t-x\t\tabort sending long press\n");
278 fprintf(stderr, "\t-h [ELV|hex]\thousecode in ELV- or hex-notation\n");
279 fprintf(stderr, "The following actions need an housecode:\n");
280 fprintf(stderr, "\t-a [ELV|hex]\t\tsend commands to device at specified address\n");
281 fprintf(stderr, "\t-s hex\t\tsend command byte\n");
282 fprintf(stderr, "\t-e hex\t\textension byte for command\n");
283 fprintf(stderr, "\t-r n\t\trepeat sending n times\n");
284 fprintf(stderr, "\nCommand bytes (without extension byte):\n");
285 fprintf(stderr, "0x00\t\tswitch off\n");
286 fprintf(stderr, "0x01-0x10\tswitch on dimmed (0x01: 6.25%%, 0x02: 12.5%%, ..., 0x10: 100%%)\n");
287 fprintf(stderr, "0x11\t\tswitch on\n");
288 fprintf(stderr, "0x12\t\ttoggle\n");
289 fprintf(stderr, "0x13\t\tdimup\n");
290 fprintf(stderr, "0x14\t\tdimdown\n");
291 fprintf(stderr, "0x15\t\tdimup, pause, dimdown, pause, ...\n");
292 fprintf(stderr, "0x16\t\tstart/stop programming internal timer\n");
293 fprintf(stderr, "0x17\t\tlearn housecode/address\n");
294 fprintf(stderr, "0x18\t\toff for internal timer, then back on with current level\n");
295 fprintf(stderr, "0x19\t\ton (100%%) for internal timer, then off\n");
296 fprintf(stderr, "0x1a\t\ton (old level) for internal timer, then off\n");
297 fprintf(stderr, "0x1b\t\tfactory reset\n");
298 fprintf(stderr, "0x1e\t\ton (100%%) for internal timer, then old level\n");
299 fprintf(stderr, "0x1f\t\ton (old level) for internal timer, then old state\n");
300 fprintf(stderr, "\nCommand bytes (with timer as extension byte):\n");
301 fprintf(stderr, "0x20\t\tdim down to off while timer is running\n");
302 fprintf(stderr, "0x21-0x30\tdim to (0x01: 6.25%%, 0x02: 12.5%%, ..., 0x10: 100%%) while timer is running\n");
303 fprintf(stderr, "0x31\t\tdim to last level while timer is running\n");
304 fprintf(stderr, "0x32\t\tdim to off, then after timer dim to off\n");
305 fprintf(stderr, "0x33\t\tdimup now and switch off after timer\n");
306 fprintf(stderr, "0x34\t\tdimdown now and switch off after timer\n");
307 fprintf(stderr, "0x35\t\tdimup or dimdown (toggle) and switch off after timer\n");
308 fprintf(stderr, "0x36\t\tprogram internal timer\n");
309 fprintf(stderr, "0x38\t\toff for timer, then back on with current level\n");
310 fprintf(stderr, "0x39\t\ton (100%%) for timer, then off\n");
311 fprintf(stderr, "0x3a\t\ton (old level) for timer, then off\n");
312 fprintf(stderr, "0x3c\t\tprogram internal ramp-up-time\n");
313 fprintf(stderr, "0x3d\t\tprogram internal ramp-down-time\n");
314 fprintf(stderr, "0x3e\t\ton (100%%) for timer, then old level\n");
315 fprintf(stderr, "0x3f\t\ton (old level) for timer, then old state\n");
316 };
317
318 enum {
319 NO_ACTION,
320 REQUEST_FIRMWARE,
321 SEND_COMMAND,
322 ABORT_LONG_PRESS
323 };
324
325 #define DUPLICATE_ACTION if (action != NO_ACTION) { \
326 fprintf(stderr, "duplicate action specified!\n"); \
327 exit(EXIT_FAILURE); }
328
329 int main(int argc, char **argv)
330 {
331 unsigned char send_data[11];
332 unsigned char *housecode = NULL;
333 libusb_device_handle *devh = NULL;
334 char *ep;
335 int err;
336 int opt;
337 int action = NO_ACTION;
338 uint8_t command = 0x00;
339 uint8_t extension = 0x00;
340 uint8_t repeat = 0;
341 int addr = -1;
342
343 memset(send_data, 0, sizeof(send_data));
344
345 send_data[0] = 0x01;
346
347 while ((opt = getopt(argc, argv, "Vxs:h:a:r:e:")) != -1) {
348 switch(opt) {
349 case 'V':
350 DUPLICATE_ACTION;
351 action = REQUEST_FIRMWARE;
352 break;
353 case 'x':
354 DUPLICATE_ACTION;
355 action = ABORT_LONG_PRESS;
356 break;
357 case 's':
358 DUPLICATE_ACTION;
359 action = SEND_COMMAND;
360
361 command = strtoul(optarg, &ep, 16);
362 if (*ep != '\0') {
363 fprintf(stderr, "Can't parse command!\n");
364 exit(EXIT_FAILURE);
365 }
366 #ifdef DEBUG
367 printf("Got command: %d\n", command);
368 #endif
369 break;
370 case 'h':
371 housecode = parse_housecode(optarg);
372 if (!housecode) {
373 fprintf(stderr, "Can't parse housecode!\n");
374 exit(EXIT_FAILURE);
375 }
376 #ifdef DEBUG
377 printf("Got housecode: 0x%02x%02x\n", housecode[0], housecode[1]);
378 #endif
379 break;
380 case 'a':
381 addr = parse_addr(optarg);
382 if (addr == -1) {
383 fprintf(stderr, "Can't parse address!\n");
384 exit(EXIT_FAILURE);
385 }
386 #ifdef DEBUG
387 printf("Got address: 0x%02x\n", addr);
388 #endif
389 break;
390 case 'r':
391 repeat = strtoul(optarg, &ep, 10);
392 if (*ep != '\0') {
393 fprintf(stderr, "Can't parse repeat!\n");
394 exit(EXIT_FAILURE);
395 }
396 #ifdef DEBUG
397 printf("Got repeat: %d\n", repeat);
398 #endif
399 break;
400 case 'e':
401 extension = strtoul(optarg, &ep, 16);
402 if (*ep != '\0') {
403 fprintf(stderr, "Can't parse extension!\n");
404 exit(EXIT_FAILURE);
405 }
406 #ifdef DEBUG
407 printf("Got extension: %d\n", extension);
408 #endif
409 break;
410 case ':':
411 case '?':
412 default:
413 syntax(argv[0]);
414 exit(EXIT_FAILURE);
415 break;
416 }
417 }
418
419 switch(action) {
420 case REQUEST_FIRMWARE:
421 send_data[1] = 0x01;
422 send_data[2] = 0xf0;
423 printf("Requesting firmware version...\n");
424
425 break;
426 case ABORT_LONG_PRESS:
427 send_data[1] = 0x01;
428 send_data[2] = 0xf3;
429 printf("Aborting long press...\n");
430
431 break;
432 case SEND_COMMAND:
433 if (housecode == NULL) {
434 fprintf(stderr, "housecode needed!\n");
435 exit(EXIT_FAILURE);
436 }
437 if (addr == -1) {
438 fprintf(stderr, "address needed!\n");
439 exit(EXIT_FAILURE);
440 }
441
442 if (repeat) {
443 send_data[1] = 0x07;
444 send_data[2] = 0xf2;
445 send_data[8] = repeat;
446 printf("Sending 0x%02x 0x%02x to address %d (hc: 0x%02x%02x) (repeated %d times)\n",
447 command, extension, addr,
448 housecode[0], housecode[1],
449 repeat);
450 } else {
451 send_data[1] = 0x06;
452 send_data[2] = 0xf1;
453 printf("Sending 0x%02x 0x%02x to address %d (hc: 0x%02x%02x)\n",
454 command, extension, addr,
455 housecode[0], housecode[1]);
456 }
457 send_data[3] = housecode[0];
458 send_data[4] = housecode[1];
459 send_data[5] = addr;
460 send_data[6] = command;
461 send_data[7] = extension;
462
463 break;
464 case NO_ACTION:
465 default:
466 fprintf(stderr, "No action specified!\n\n");
467 syntax(argv[0]);
468 exit(EXIT_FAILURE);
469 break;
470 }
471
472 err = libusb_init(NULL);
473 if (err != 0) {
474 fprintf(stderr, "Can't initialize libusb: %s\n", usb_strerror(err));
475 return EXIT_FAILURE;
476 }
477
478 devh = fs20pcs_find();
479 if (!devh) {
480 fprintf(stderr, "Can't find/open fs20pcs!\n");
481 return EXIT_FAILURE;
482 }
483
484 if (fs20pcs_send(devh, send_data) == 0) {
485 fprintf(stderr, "Can't communicate with fs20pcs!\n");
486 return EXIT_FAILURE;
487 }
488
489 libusb_close(NULL);
490
491 return EXIT_SUCCESS;
492 }
Impressum, Datenschutz