Implement writable key algorithm attributes
[gnuk/gnuk.git] / src / pin-cir.c
1 /*
2  * pin-cir.c -- PIN input device support (Consumer Infra-Red)
3  *
4  * Copyright (C) 2010, 2011, 2013 Free Software Initiative of Japan
5  * Author: NIIBE Yutaka <gniibe@fsij.org>
6  *
7  * This file is a part of Gnuk, a GnuPG USB Token implementation.
8  *
9  * Gnuk is free software: you can redistribute it and/or modify it
10  * under the terms of the GNU General Public License as published by
11  * the Free Software Foundation, either version 3 of the License, or
12  * (at your option) any later version.
13  *
14  * Gnuk is distributed in the hope that it will be useful, but WITHOUT
15  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
16  * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
17  * License for more details.
18  *
19  * You should have received a copy of the GNU General Public License
20  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
21  *
22  */
23
24 #include <stdint.h>
25 #include <string.h>
26 #include <chopstx.h>
27
28 #include "config.h"
29 #include "board.h"
30 #include "gnuk.h"
31 #include "stm32f103.h"
32
33 #ifdef DEBUG
34 #define DEBUG_CIR 1
35 #endif
36
37 static int
38 cir_ext_disable (void)
39 {
40   int rcvd = (EXTI->PR & EXTI_PR) != 0;
41
42   EXTI->IMR &= ~EXTI_IMR;
43   EXTI->PR = EXTI_PR;
44   return rcvd;
45 }
46
47 static void
48 cir_ext_enable (void)
49 {
50   EXTI->PR = EXTI_PR;
51   EXTI->IMR |= EXTI_IMR;
52 }
53
54
55 static chopstx_t pin_thread;
56 static uint32_t wait_usec;
57 static uint8_t notification;
58
59 uint8_t pin_input_buffer[MAX_PIN_CHARS];
60 uint8_t pin_input_len;
61
62 /*
63  * Supported/tested TV controllers:
64  *
65  *   Controller of Toshiba REGZA
66  *   Controller of Sony BRAVIA
67  *   Controller of Sharp AQUOS
68  *   Dell Wireless Travel Remote MR425
69  *
70  * The code supports RC-5 protocol in fact, but I don't have any
71  * controller at hand which I can test with, so I don't have any data
72  * for controller of RC-5.
73  *
74  * Current code assumes following mapping:
75  *
76  *  --------------------------------------
77  *    Protocol          Controller
78  *  --------------------------------------
79  *     RC-6               Dell MR425
80  *     NEC                Toshiba REGZA
81  *     Sharp              Sharp AQUOS
82  *     Sony               Sony BRAVIA
83  *  --------------------------------------
84  *
85  * In future, when I will have other controllers, this mapping will be
86  * (should be) configurable, at compile time at least, preferably at
87  * runtime.
88  */
89
90 /*
91  * Philips RC-5 Protocol: 14-bit (MSB first)
92  *
93  * Philips RC-6 Protocol: (START + 1 + MODE + TR + 32-bit / 16-bit) (MSB first)
94  *                                     3-bit      (mode 6 / mode 0)
95  *      Example: Controller of DELL (mode 6)
96  *
97  * NEC Protocol: (START + 32-bit + STOP) + (START + STOP) x N  (LSB first)
98  *      32-bit: 8-bit command inverted + 8-bit command + 16-bit address
99  *      Example: Controller of Toshiba REGZA
100  *      Example: Controller of Ceiling Light by NEC
101  *
102  * Sony Protocol: (START + 12-bit) or (START + 15-bit)  (LSB first)
103  *      12-bit: 5-bit address + 7-bit command
104  *      Example: Controller of Sony BRAVIA
105  *
106  * Sharp Protocol: (START + 48-bit + STOP) x N  (LSB first)
107  *      48-bit: 32-bit address + 12-bit command + 4-bit parity
108  *      Example: Controller of Sharp AQUOS
109  *      Example: Controller of Ceiling Light by Mitsubishi
110  *
111  * Unsupported:
112  *
113  * Unknown Protocol 2: (START + 112-bit + STOP)  (LSB first)
114  *      Example: Controller of Mitsubishi air conditioner
115  *
116  * Unknown Protocol 3: (START + 128-bit + STOP)  (LSB first)
117  *      Example: Controller of Fujitsu air conditioner
118  *
119  * Unknown Protocol 4: (START + 152-bit + STOP)  (LSB first)
120  *      Example: Controller of Sanyo air conditioner
121  *
122  */
123
124 /*
125  * The implementation note of CIR signal decoding (on STM32).
126  *
127  * (1) Use EXTI interrupt to detect the first edge of signal.
128  * (2) Use Timer (with PWM input mode) to measure timings of square wave.
129  *
130  */
131
132 /*
133  * Timer settings.
134  *
135  * See THE reference manual (RM0008) section 15.3.6 PWM input mode.
136  *
137  * 72MHz
138  * Prescaler = 72
139  *
140  * 1us
141  *
142  * TIMx_CR1
143  *  CKD  = 00 (tDTS = tCK_INT)
144  *  ARPE = 1  (buffered)
145  *  CMS  = 00 (up counter)
146  *  DIR  = 0  (up counter)
147  *  OPM  = 0  (up counter)
148  *  URS  = 1  (update request source: overflow only)
149  *  UDIS = 0  (UEV (update event) enabled)
150  *  CEN  = 1  (counter enable)
151  *
152  * TIMx_CR2
153  *  TI1S = 1 (TI1 is XOR of ch1, ch2, ch3)
154  *  MMS  = 000 (TRGO at Reset)
155  *  CCDS = 0 (DMA on capture)
156  *  RSVD = 000
157  *
158  * TIMx_SMCR
159  *  ETP  = 0
160  *  ECE  = 0
161  *  ETPS = 00
162  *  ETF  = 0000
163  *  MSM  = 0
164  *  TS   = 101 (TI1FP1 selected)
165  *  RSVD = 0
166  *  SMS  = 100 (Reset-mode)
167  *
168  * TIMx_DIER
169  *
170  * TIMx_SR
171  *
172  * TIMx_EGR
173  *
174  * TIMx_CCMR1
175  *  CC1S = 01 (TI1 selected)
176  *  CC2S = 10 (TI1 selected)
177  *  IC1F = 1001 (fSAMPLING=fDTS/8, N=8)
178  *  IC2F = 1001 (fSAMPLING=fDTS/8, N=8)
179  *
180  * TIMx_CCMR2
181  *
182  * TIMx_CCER
183  *  CC2P = 1 (polarity = falling edge: TI1FP1)
184  *  CC2E = 1
185  *  CC1P = 0 (polarity = rising edge: TI1FP1)
186  *  CC1E = 1
187  *
188  * TIMx_CNT
189  * TIMx_PSC = 71
190  * TIMx_ARR = 18000
191  *
192  * TIMx_CCR1  period
193  * TIMx_CCR2  duty
194  *
195  * TIMx_DCR
196  * TIMx_DMAR
197  */
198
199 #if defined(DEBUG_CIR)
200 static uint16_t intr_ext;
201 static uint16_t intr_trg;
202 static uint16_t intr_ovf;
203 static uint16_t intr_err;
204
205 #define MAX_CIRINPUT_BIT 512
206 static uint16_t cirinput[MAX_CIRINPUT_BIT];
207 static uint16_t *cirinput_p;
208 #endif
209
210 static uint32_t cir_data;
211 static uint16_t cir_data_more;
212 static uint8_t cir_proto;
213 #define CIR_PROTO_RC5   1
214 #define CIR_PROTO_RC6   2
215 #define CIR_PROTO_OTHER 3
216 #define CIR_PROTO_SONY  4
217 #define CIR_PROTO_NEC   5
218 #define CIR_PROTO_SHARP 6
219
220
221 /* CIR_DATA_ZERO: Used for zero-bit handling of RC-5/RC-6 */
222 static uint8_t cir_data_zero;
223
224 static uint8_t cir_seq;
225
226 static void
227 cir_ll_init (void)
228 {
229   cir_data = 0;
230   cir_seq = 0;
231   /* Don't touch cir_proto here */
232   cir_ext_enable ();
233 }
234
235
236 #define CH_RETURN    0x0d
237 #define CH_BACKSPACE 0x08
238
239 struct codetable {
240   uint16_t cir_code;
241   uint8_t  char_code;
242 };
243
244 /* NOTE: no way to input '0' */
245 static const struct codetable
246 cir_codetable_dell_mr425[] = {
247   {0x10, '7' },          /* Speaker Louder       */
248   {0x11, '8' },          /* Speaker Quieter      */
249   {0x0d, '9' },          /* Speaker Mute         */
250   {0xce, 'a' },          /* Black triangle UP    */
251   {0xcf, 'b' },          /* Black triangle DOWN  */
252   {0x58, 'c' },          /* White triangle UP    */
253   {0x5a, 'd' },          /* White triangle LEFT  */
254   {0x5c, CH_RETURN },    /* Check                */
255   {0x5b, 'e' },          /* White triangle RIGHT */
256   {0xa4, CH_BACKSPACE }, /* Back                 */
257   {0x59, 'f' },          /* White triangle DOWN  */
258   {0x2f, '1' },          /* Rewind               */
259   {0x2c, '2' },          /* Play / Pause         */
260   {0x2e, '3' },          /* Forward              */
261   {0x21, '4' },          /* Skip backward        */
262   {0x31, '5' },          /* Stop                 */
263   {0x20, '6' },          /* Skip forward         */
264
265   {0, 0} /* <<END>>   */
266 };
267
268 #define CIR_ADDR_SHARP_AQUOS 0x028f
269 static const struct codetable
270 cir_codetable_aquos[] = {
271   { 0x0116, ' ' }, /* Power */
272   { 0x025e, '0' }, /* d */
273   { 0x024e, '1' }, /* 1 */
274   { 0x024f, '2' }, /* 2 */
275   { 0x0250, '3' }, /* 3 */
276   { 0x0251, '4' }, /* 4 */
277   { 0x0252, '5' }, /* 5 */
278   { 0x0253, '6' }, /* 6 */
279   { 0x0254, '7' }, /* 7 */
280   { 0x0255, '8' }, /* 8 */
281   { 0x0256, '9' }, /* 9 */
282   { 0x0257, 'a' }, /* 10/0 */
283   { 0x0258, 'b' }, /* 11 */
284   { 0x0259, 'c' }, /* 12 */
285   { 0x0111, 'd' }, /* Ch ^ */
286   { 0x0112, 'e' }, /* Ch v */
287   { 0x0114, 'f' }, /* Vol + */
288   { 0x0115, 'g' }, /* Vol - */
289   { 0x0117, 'h' }, /* Mute */
290   { 0x0280, 'i' }, /* BLUE */
291   { 0x0281, 'j' }, /* RED */
292   { 0x0282, 'k' }, /* GREEN */
293   { 0x0283, 'l' }, /* YELLOW */
294   { 0x011b, 'm' }, /* DISPLAY CONTROL (gamen hyouji) */
295   { 0x01d5, 'n' }, /* DISPLAY SIZE */
296   { 0x0157, 'o' }, /* UP */
297   { 0x01d7, 'p' }, /* LEFT */
298   { 0x01d8, 'q' }, /* RIGHT */
299   { 0x0120, 'r' }, /* DOWN */
300   { 0x0152, CH_RETURN }, /* Commit (kettei) */
301   { 0x01e4, CH_BACKSPACE }, /* Back (modoru) */
302   { 0x01f5, 's' }, /* Quit (shuuryou) */
303   { 0x0b03, 't' }, /* Rewind (hayamodoshi) */
304   { 0x0b01, 'u' }, /* Play (saisei) */
305   { 0x0b04, 'v' }, /* Forward (hayaokuri) */
306   { 0x0b02, 'w' }, /* Stop (teishi) */
307   { 0x028a, 'x' }, /* BS */
308   { 0x028b, 'y' }, /* CS */
309   { 0x025f, 'z' }, /* Program information (bangumi jouhou) */
310   { 0x0260, '\\' }, /* Program table (bangumi hyou) */
311   { 0x0118, '|' }, /* Sound channel (onsei kirikae) */
312   { 0x028e, '[' }, /* Ground Analog (chijou A) */
313   { 0x0289, ']' }, /* Ground Digital (chijou D) */
314
315   { 0x0b07, '\"' }, /* Feature select (kinou sentaku) */
316   { 0x026b, '.' }, /* TV/Radio/Data (terebi/rajio/data) */
317   { 0x025a, ',' }, /* 3 code input (3 keta nyuuryoku) */
318   { 0x0267, ':' }, /* subtitle (jimaku) */
319   { 0x0159, ';' }, /* hold (seishi) */
320
321   { 0x01c4, 'A' }, /* Menu */
322   { 0x011a, 'B' }, /* Off timer */
323   { 0x0121, 'C' }, /* CATV */
324   { 0x0b05, 'D' }, /* Record */
325   { 0x0b06, 'E' }, /* Recording stop */
326   { 0x0113, 'F' }, /* Inputs (nyuuryoku kirikae) */
327   { 0x0275, 'G' }, /* other programs (ura bangumi) */
328   { 0x0266, 'H' }, /* signal control (eizou kirikae) */
329   { 0x01e7, 'I' }, /* AV position */
330   { 0x027f, 'J' }, /* i.LINK */
331   { 0x0b00, 'K' }, /* Recorder power */
332   { 0x028f, 'L' }, /* as you like it (okonomi senkyoku) */
333
334   {0, 0} /* <<END>>   */
335 };
336
337 #define CIR_ADDR_TOSHIBA_REGZA 0xbf40
338 static const struct codetable
339 cir_codetable_regza[] = {
340   { 0x12, ' ' }, /* Power */
341   { 0x14, '0' }, /* d (data) */
342   { 0x01, '1' }, /* 1 */
343   { 0x02, '2' }, /* 2 */
344   { 0x03, '3' }, /* 3 */
345   { 0x04, '4' }, /* 4 */
346   { 0x05, '5' }, /* 5 */
347   { 0x06, '6' }, /* 6 */
348   { 0x07, '7' }, /* 7 */
349   { 0x08, '8' }, /* 8 */
350   { 0x09, '9' }, /* 9 */
351   { 0x0a, 'a' }, /* 10 */
352   { 0x0b, 'b' }, /* 11 */
353   { 0x0c, 'c' }, /* 12 */
354   { 0x1b, 'd' }, /* Ch ^ */
355   { 0x1f, 'e' }, /* Ch v */
356   { 0x1a, 'f' }, /* Vol + */
357   { 0x1e, 'g' }, /* Vol - */
358   { 0x10, 'h' }, /* Mute */
359   { 0x73, 'i' }, /* BLUE */
360   { 0x74, 'j' }, /* RED */
361   { 0x75, 'k' }, /* GREEN */
362   { 0x76, 'l' }, /* YELLOW */
363   { 0x1c, 'm' }, /* Display control */
364   { 0x2b, 'n' }, /* Display size */
365   { 0x3e, 'o' }, /* UP */
366   { 0x5f, 'p' }, /* LEFT */
367   { 0x5b, 'q' }, /* RIGHT */
368   { 0x3f, 'r' }, /* DOWN */
369   { 0x3d, CH_RETURN }, /* Commit (kettei) */
370   { 0x3b, CH_BACKSPACE }, /* Back (modoru) */
371   { 0x3c, 's' }, /* Quit (shuuryou) */
372   { 0x2c, 't' }, /* << (Rewind) */
373   { 0x2d, 'u' }, /* >/|| (Play/Stop) */
374   { 0x2e, 'v' }, /* >> (Forward) */
375   { 0x2b, 'w' }, /* Stop (teishi) */
376   { 0x7c, 'x' }, /* BS */
377   { 0x7d, 'y' }, /* CS */
378   { 0x71, 'z' }, /* Program information (bangumi setsumei) */
379   { 0x77, '\\' }, /* Mini program table (mini bangumihyou) */
380   { 0x13, '|' }, /* Sound (onta kirikae) */
381   { 0x7a, '[' }, /* Ground Digital (chideji) */
382   { 0x7b, ']' }, /* Ground Analog (chiana) */
383
384   { 0xd0, '\"' }, /* Settings Menu (settei menu) */
385   { 0x6d, '.' }, /* Radio/Data (rajio/data) */
386   { 0x60, ',' }, /* CH 10-key input (search) */
387   { 0x52, ':' }, /* subtitle (jimaku) */
388   { 0x50, ';' }, /* hold (seishi) */
389
390   { 0x3a, 'A' }, /* Input- (nyuuryokukirikae-) */
391   { 0x0f, 'B' }, /* Input+ (nyuuryokukirikae+) */
392   { 0x29, 'C' }, /* Two screens (nigamen) */
393   { 0x25, 'D' }, /* Broadband */
394   { 0x27, 'E' }, /* |<< Skip backward */
395   { 0x26, 'F' }, /* >>| Skip forward  */
396   { 0x61, '!' }, /* 1 NHK1 */
397   { 0x62, '@' }, /* 2 NHK2 */
398   { 0x63, '#' }, /* 3 NHKh */
399   { 0x64, '$' }, /* 4 BS Nihon TV */
400   { 0x65, '%' }, /* 5 BS Asahi */
401   { 0x66, '^' }, /* 6 BS-i */
402   { 0x67, '&' }, /* 7 BSJ */
403   { 0x68, '*' }, /* 8 BS Fuji */
404   { 0x69, '(' }, /* 9 WOW */
405   { 0x6a, ')' }, /* 10 Star */
406   { 0x6b, '-' }, /* 11 BS11 */
407   { 0x6c, '+' }, /* 12 TwellV */
408   { 0x27, '=' }, /* Quick (Delete) */
409   { 0x34, '<' }, /* REGZA link */
410   { 0x6e, '>' }, /* Program Table */
411   { 0x20, '/' }, /* ^^ */
412   { 0x22, '\'' }, /* << */
413   { 0x23, '?' }, /* >> */
414   { 0x21, '_' }, /* vv */
415
416   {0, 0} /* <<END>>   */
417 };
418
419 static const struct codetable
420 cir_codetable_bravia[] = {
421   { 0x15, ' ' }, /* Power */
422   { 0x95, '0' }, /* d (16-bit: 0x4b) */
423   { 0x00, '1' }, /* 1 */
424   { 0x01, '2' }, /* 2 */
425   { 0x02, '3' }, /* 3 */
426   { 0x03, '4' }, /* 4 */
427   { 0x04, '5' }, /* 5 */
428   { 0x05, '6' }, /* 6 */
429   { 0x06, '7' }, /* 7 */
430   { 0x07, '8' }, /* 8 */
431   { 0x08, '9' }, /* 9 */
432   { 0x09, 'a' }, /* 10 */
433   { 0x0a, 'b' }, /* 11 */
434   { 0x0b, 'c' }, /* 12 */
435   { 0x10, 'd' }, /* CH+ */
436   { 0x11, 'd' }, /* CH- */
437   { 0x12, 'f' }, /* Vol+ */
438   { 0x13, 'g' }, /* Vol- */
439   { 0x14, 'h' }, /* Mute */
440   { 0xa4, 'i' }, /* BLUE (16-bit: 0x4b) */
441   { 0xa5, 'j' }, /* RED (16-bit: 0x4b) */
442   { 0xa6, 'k' }, /* GREEN (16-bit: 0x4b) */
443   { 0xa7, 'l' }, /* YELLOW (16-bit: 0x4b) */
444   { 0x3a, 'm' }, /* DISPLAY control (gamen hyouji) */
445   { 0x3d, 'n' }, /* Display Wide (waido kirikae) */
446   { 0x74, 'o' }, /* UP */
447   { 0x75, 'p' }, /* DOWN */
448   { 0x33, 'q' }, /* RIGHT */
449   { 0x34, 'r' }, /* LEFT */
450   { 0x65, CH_RETURN }, /* Commit (kettei) */
451   { 0xa3, CH_BACKSPACE }, /* Back (modoru) (16-bit: 0x4b) */
452   { 0xac, 's' }, /* BS (16-bit: 0x4b) */
453   { 0xab, 't' }, /* CS (16-bit: 0x4b) */
454   { 0x5b, 'u' }, /* Program table (bangumi hyou) (16-bit: 0x52) */
455   { 0x17, 'v' }, /* Sound channel (onsei kirikae) */
456   { 0xa8, 'w' }, /* subtitle (jimaku) (16-bit: 0x4b) */
457   { 0x5c, 'x' }, /* hold (memo) */
458   { 0xb6, 'y' }, /* Tool (16-bit: 0x4b) */
459   { 0x8c, 'z' }, /* 10 key input (10ki-) (16-bit: 0x4b) */
460   { 0x60, '!' }, /* Menu */
461   { 0xae, '@' }, /* Analog (16-bit: 0x4b) */
462   { 0xb2, '#' }, /* Digital (16-bit: 0x4b) */
463   { 0x25, '$' }, /* Input (nyuuryoku kirikae) */
464
465   {0, 0} /* <<END>>   */,
466 };
467
468 static int
469 ch_is_backspace (int ch)
470 {
471   return ch == CH_BACKSPACE;
472 }
473
474 static int
475 ch_is_enter (int ch)
476 {
477   return ch == CH_RETURN;
478 }
479
480 /* liner search is good enough for this small amount of data */
481 static uint8_t
482 find_char_codetable (uint32_t cir_code, const struct codetable *ctp)
483 {
484   while (ctp->cir_code != 0x0000 || ctp->char_code != 0x00)
485     if (ctp->cir_code == cir_code)
486       return ctp->char_code;
487     else
488       ctp++;
489
490   /* Not found */
491   return cir_code & 0xff;
492 }
493
494 static int
495 hex (int x)
496 {
497   if (x < 10)
498     return x + '0';
499   else
500     return (x - 10) + 'a';
501 }
502
503 static int
504 cir_getchar (uint32_t timeout)
505 {
506   uint16_t cir_addr;
507 #if defined(DEBUG_CIR)
508   uint16_t *p;
509 #endif
510
511 #if defined(DEBUG_CIR)
512   cirinput_p = cirinput;
513 #endif
514
515   cir_ll_init ();
516
517   notification = 0;
518   wait_usec = timeout;
519   chopstx_usec_wait_var (&wait_usec);
520   if (notification == 0)
521     return -1;
522
523   /* Sleep 200ms to avoid detecting chatter inputs.  */
524   chopstx_usec_wait (200 * 1000);
525
526 #if defined(DEBUG_CIR)
527   DEBUG_INFO ("****\r\n");
528   DEBUG_SHORT (intr_ext);
529   DEBUG_SHORT (intr_trg);
530   DEBUG_SHORT (intr_ovf);
531   DEBUG_INFO ("----\r\n");
532   for (p = cirinput; p < cirinput_p; p++)
533     {
534       DEBUG_SHORT (*p);
535     }
536   DEBUG_INFO ("====\r\n");
537
538   cirinput_p = cirinput;
539
540   DEBUG_INFO ("**** CIR data:");
541   DEBUG_WORD (cir_data);
542   if (cir_seq > 48)
543     {
544       DEBUG_SHORT (cir_data_more);
545     }
546   DEBUG_BYTE (cir_seq);
547 #endif
548
549   switch (cir_proto)
550     {
551     case CIR_PROTO_RC5:
552       cir_data &= 0x003f;
553       goto err;
554     case CIR_PROTO_RC6:
555       cir_addr = cir_data >> 8; /* in case of cir_seq == 16.  32??? */
556       cir_data &= 0x00ff;
557       return find_char_codetable (cir_data, cir_codetable_dell_mr425);
558     case CIR_PROTO_NEC:
559       cir_addr = cir_data&0xffff;
560       if (cir_addr == CIR_ADDR_TOSHIBA_REGZA)
561         {
562           cir_data = (cir_data >> 16) & 0x00ff;
563           return find_char_codetable (cir_data, cir_codetable_regza);
564         }
565       else
566         goto err;
567     case CIR_PROTO_SHARP:
568       cir_addr = cir_data&0x0fff;
569       if (cir_addr == CIR_ADDR_SHARP_AQUOS)
570         {
571           cir_data = (cir_data>>16)&0x0fff;
572           return find_char_codetable (cir_data, cir_codetable_aquos);
573         }
574       else
575         goto err;
576     case CIR_PROTO_SONY:
577       /* Remove ADDRESS bits and filter COMMAND bits */
578       if (cir_seq == 1 + 12)
579         {
580           cir_addr = cir_data >> 7;
581           cir_data = cir_data & 0x007f;
582           /* ADDRESS = 0x01 (5-bit) */
583         }
584       else
585         {
586           cir_addr = cir_data >> 8;
587           cir_data = cir_data & 0x00ff;
588           /* ADDRESS = 0x4b or 0x52 (7-bit) */
589         }
590       return find_char_codetable (cir_data, cir_codetable_bravia);
591     err:
592     default:
593       /* encode debug information */
594       pin_input_len = 16;
595       pin_input_buffer[0] = hex (cir_proto >> 4);
596       pin_input_buffer[1] = hex (cir_proto & 0x0f);
597       pin_input_buffer[2] = ':';
598       pin_input_buffer[3] = hex ((cir_data >> 28) & 0x0f);
599       pin_input_buffer[4] = hex ((cir_data >> 24) & 0x0f);
600       pin_input_buffer[5] = hex ((cir_data >> 20) & 0x0f);
601       pin_input_buffer[6] = hex ((cir_data >> 16) & 0x0f);
602       pin_input_buffer[7] = hex ((cir_data >> 12) & 0x0f);
603       pin_input_buffer[8] = hex ((cir_data >> 8) & 0x0f);
604       pin_input_buffer[9] = hex ((cir_data >> 4) & 0x0f);
605       pin_input_buffer[10] = hex (cir_data & 0x0f);
606       pin_input_buffer[11] = ':';
607       pin_input_buffer[12] = hex ((cir_data_more >> 12) & 0x0f);
608       pin_input_buffer[13] = hex ((cir_data_more >> 8) & 0x0f);
609       pin_input_buffer[14] = hex ((cir_data_more >> 4) & 0x0f);
610       pin_input_buffer[15] = hex (cir_data_more & 0x0f);
611       return CH_RETURN;
612     }
613 }
614
615 /*
616  * RC-5 protocol doesn't have a start bit, while any other protocols
617  * have the one.
618  */
619 #define CIR_BIT_START_RC5_DETECT 1600 /* RC-5: 889us, Sony start: 2400us */
620
621 #define CIR_BIT_START_RC5_LENGTH (889 + 889/2)
622 #define CIR_BIT_PERIOD_RC6 444
623 #define CIR_BIT_PERIOD 1500
624 #define CIR_BIT_SIRC_PERIOD_ON 1000
625
626 /*
627  * Let user input PIN string.
628  * Return length of the string.
629  * The string itself is in PIN_INPUT_BUFFER.
630  */
631 int
632 pinpad_getline (int msg_code, uint32_t timeout)
633 {
634   extern chopstx_t openpgp_card_thd;
635
636   (void)msg_code;
637
638   DEBUG_INFO (">>>\r\n");
639
640   pin_thread = openpgp_card_thd;
641   pin_input_len = 0;
642   while (1)
643     {
644       int ch;
645
646       ch = cir_getchar (timeout);
647       if (ch < 0)
648         return 0;               /* timeout */
649
650       if (ch_is_backspace (ch))
651         {
652           led_blink (LED_TWOSHOTS);
653           if (pin_input_len > 0)
654             pin_input_len--;
655         }
656       else if (ch_is_enter (ch))
657         break;
658       else if (pin_input_len < MAX_PIN_CHARS)
659         {
660           led_blink (LED_ONESHOT);
661           pin_input_buffer[pin_input_len++] = ch;
662         }
663     }
664
665   cir_ext_disable ();
666   pin_thread = NULL;
667
668   return pin_input_len;
669 }
670
671 /**
672  * @brief  Interrupt handler of EXTI.
673  * @note   This handler will be invoked at the beginning of signal.
674  *         Setup timer to measure period and duty using PWM input mode.
675  */
676 static void
677 cir_ext_interrupt (void)
678 {
679   int rcvd = cir_ext_disable ();
680
681   if (!rcvd)
682     return;
683
684 #if defined(DEBUG_CIR)
685   intr_ext++;
686   if (cirinput_p - cirinput < MAX_CIRINPUT_BIT)
687     *cirinput_p++ = 0x0000;
688 #endif
689
690   TIMx->EGR = TIM_EGR_UG;       /* Generate UEV to load PSC and ARR */
691   /* Enable Timer */
692   TIMx->SR &= ~(TIM_SR_UIF
693                 | TIM_SR_CC1IF | TIM_SR_CC2IF
694                 | TIM_SR_TIF
695                 | TIM_SR_CC1OF | TIM_SR_CC2OF);
696   TIMx->DIER = TIM_DIER_UIE /*overflow*/ | TIM_DIER_TIE /*trigger*/;
697   TIMx->CR1 |= TIM_CR1_CEN;
698 }
699
700 #define CIR_PERIOD_ON_RC5_OR_RC6 (((cir_proto == CIR_PROTO_RC5) ? 2 : 1) \
701                                   * CIR_BIT_PERIOD_RC6 * 3 / 2)
702
703 /**
704  * @brief  Interrupt handler of timer.
705  * @note   Timer is PWM input mode, this handler will be invoked on each cycle
706  */
707 static void
708 cir_timer_interrupt (void)
709 {
710   uint16_t period, on, off;
711
712   period = TIMx->CCR1;
713   on = TIMx->CCR2;
714   off = period - on;
715
716   if ((TIMx->SR & TIM_SR_TIF))
717     {
718       if (cir_seq == 0)
719         {
720           if (on >= CIR_BIT_START_RC5_DETECT)
721             {
722               cir_proto = CIR_PROTO_OTHER;
723               cir_data_zero = 0;
724             }
725           else
726             {
727               cir_proto = CIR_PROTO_RC5;
728               cir_data = 1;
729               if (on >= CIR_BIT_START_RC5_LENGTH)
730                 {
731                   cir_data <<= 1;
732                   cir_seq++;
733                   if (off >= CIR_BIT_START_RC5_LENGTH)
734                     cir_data_zero = 0;
735                   else
736                     cir_data_zero = 1;
737                 }
738               else
739                 cir_data_zero = 0;
740             }
741         }
742       else if (cir_proto == CIR_PROTO_OTHER)
743         {
744           if (cir_seq == 1 + 16)
745             cir_data_more = (uint16_t)(cir_data >> 16);
746
747           cir_data >>= 1;
748           cir_data |= (period >= CIR_BIT_PERIOD) ? 0x80000000 : 0;
749
750           /* Detection of RC-6 protocol */
751           if (cir_data_zero && on > CIR_BIT_PERIOD_RC6*3/2)
752             /* TR-bit 0 is detected */
753             {
754               cir_proto = CIR_PROTO_RC6;
755               cir_seq = 0;
756               cir_data = 0;     /* ignore MODE bits */
757               if (on > CIR_BIT_PERIOD_RC6*5/2)
758                 {
759                   cir_data = 1;
760                   if (off > CIR_BIT_PERIOD_RC6*3/2)
761                     cir_data_zero = 1;
762                   else
763                     cir_data_zero = 0;
764                 }
765               else              /* Off must be short */
766                 {
767                   cir_data_zero = 1;
768                 }
769             }
770           else if ((!cir_data_zero
771                && on > CIR_BIT_PERIOD_RC6*3/2 && off > CIR_BIT_PERIOD_RC6*3/2))
772             /* TR-bit 1 is detected */
773             {
774               cir_proto = CIR_PROTO_RC6;
775               cir_seq = 0;
776               cir_data = 0;     /* ignore MODE bits */
777               cir_data_zero = 0;
778             }
779           else
780             {
781               /* Check if it looks like TR-bit of RC6 protocol */
782               if (off <= CIR_BIT_PERIOD_RC6*3/2)
783                 cir_data_zero = 0;
784               else
785                 cir_data_zero = 1;
786             }
787         }
788       else if (cir_proto == CIR_PROTO_RC5 || cir_proto == CIR_PROTO_RC6)
789         {
790           if (cir_data_zero)
791             {
792               cir_data <<= 1;
793
794               if (on > CIR_PERIOD_ON_RC5_OR_RC6)
795                 {
796                   cir_data <<= 1;
797                   cir_data |= 1;
798                   cir_seq++;
799                   if (off > CIR_PERIOD_ON_RC5_OR_RC6)
800                     cir_data_zero = 1;
801                   else
802                     cir_data_zero = 0;
803                 }
804               else              /* Off must be short */
805                 cir_data_zero = 1;
806             }
807           else
808             {
809               cir_data <<= 1;
810               cir_data |= 1;
811
812               /* On must be short */
813               if (off > CIR_PERIOD_ON_RC5_OR_RC6)
814                 cir_data_zero = 1;
815               else
816                 cir_data_zero = 0;
817             }
818         }
819
820       cir_seq++;
821
822 #if defined(DEBUG_CIR)
823       if (cirinput_p - cirinput < MAX_CIRINPUT_BIT)
824         {
825           *cirinput_p++ = on;
826           *cirinput_p++ = off;
827         }
828       intr_trg++;
829 #endif
830
831       TIMx->EGR = TIM_EGR_UG;   /* Generate UEV */
832       TIMx->SR &= ~TIM_SR_TIF;
833     }
834   else if ((TIMx->SR & TIM_SR_UIF))
835     /* overflow occurred */
836     {
837       TIMx->SR &= ~TIM_SR_UIF;
838
839       if (on > 0)
840         {
841           uint8_t ignore_input = 0;
842
843           /* Disable the timer */
844           TIMx->CR1 &= ~TIM_CR1_CEN;
845           TIMx->DIER = 0;
846
847           if (cir_seq == 12 || cir_seq == 15)
848             {
849 #if defined(DEBUG_CIR)
850               if (cirinput_p - cirinput < MAX_CIRINPUT_BIT)
851                 {
852                   *cirinput_p++ = on;
853                   *cirinput_p++ = 0xffff;
854                 }
855 #endif
856               cir_proto = CIR_PROTO_SONY;
857               cir_data >>= 1;
858               cir_data |= (on >= CIR_BIT_SIRC_PERIOD_ON) ? 0x80000000 : 0;
859               cir_data >>= (32 - cir_seq);
860               cir_seq++;
861             }
862           else
863             {
864               if (cir_proto == CIR_PROTO_RC5 || cir_proto == CIR_PROTO_RC6)
865                 {
866                   cir_data <<= 1;
867                   cir_seq++;
868                   if (cir_data_zero)
869                     {
870                       if (on > CIR_PERIOD_ON_RC5_OR_RC6)
871                         {
872                           cir_data <<= 1;
873                           cir_data |= 1;
874                           cir_seq++;
875                         }
876                     }
877                   else
878                     cir_data |= 1;
879                 }
880               /* Or else, it must be the stop bit, just ignore */
881             }
882
883           if (cir_proto == CIR_PROTO_SONY)
884             {
885               if (cir_seq != 1 + 12 && cir_seq != 1 + 15)
886                 ignore_input = 1;
887             }
888           else if (cir_proto == CIR_PROTO_OTHER)
889             {
890               if (cir_seq == 1 + 32)
891                 {
892                   if (((cir_data >> 16) & 0xff) == ((cir_data >> 24) ^ 0xff))
893                     cir_proto = CIR_PROTO_NEC;
894                   else
895                     ignore_input = 1;
896                 }
897               else if (cir_seq == 1 + 48)
898                 {
899                   if ((cir_data >> 28) ==
900                       (((cir_data_more >> 12) & 0x0f)
901                        ^ ((cir_data_more >> 8) & 0x0f)
902                        ^ ((cir_data_more >> 4) & 0x0f)
903                        ^ (cir_data_more & 0x0f)
904                        ^ ((cir_data >> 24) & 0x0f)
905                        ^ ((cir_data >> 20) & 0x0f) ^ ((cir_data >> 16) & 0x0f)
906                        ^ ((cir_data >> 12) & 0x0f) ^ ((cir_data >> 8) & 0x0f)
907                        ^ ((cir_data >> 4) & 0x0f) ^ (cir_data & 0x0f)))
908                     cir_proto = CIR_PROTO_SHARP;
909                   else
910                     ignore_input = 1;
911                 }
912               else
913                 ignore_input = 1;
914             }
915           else if (cir_proto == CIR_PROTO_RC6)
916             {
917               if (cir_seq != 16 && cir_seq != 32)
918                 ignore_input = 1;
919             }
920           else if (cir_proto == CIR_PROTO_RC5)
921             {
922               if (cir_seq != 14)
923                 ignore_input = 1;
924             }
925           else
926             ignore_input = 1;
927
928           if (ignore_input)
929             /* Ignore data received and enable CIR again */
930             cir_ll_init ();
931           else
932             {
933               /*
934                * Notify the thread, when it's waiting the input.
935                * If else, throw away the input.
936                */
937               if (pin_thread)
938                 {
939                   notification = 1;
940                   chopstx_wakeup_usec_wait (pin_thread);
941                 }
942             }
943
944 #if defined(DEBUG_CIR)
945           if (cirinput_p - cirinput < MAX_CIRINPUT_BIT)
946             *cirinput_p++ = 0xffff;
947
948           intr_ovf++;
949 #endif
950         }
951     }
952 #if defined(DEBUG_CIR)
953   else
954     intr_err++;
955 #endif
956 }
957
958
959 extern uint8_t __process6_stack_base__, __process6_stack_size__;
960 const uint32_t __stackaddr_tim = (uint32_t)&__process6_stack_base__;
961 const size_t __stacksize_tim = (size_t)&__process6_stack_size__;
962 #define PRIO_TIM 4
963
964 static void *
965 tim_main (void *arg)
966 {
967   chopstx_intr_t interrupt;
968
969   (void)arg;
970   chopstx_claim_irq (&interrupt, INTR_REQ_TIM);
971
972   while (1)
973     {
974       chopstx_intr_wait (&interrupt);
975       cir_timer_interrupt ();
976     }
977
978   return NULL;
979 }
980
981 extern uint8_t __process7_stack_base__, __process7_stack_size__;
982 const uint32_t __stackaddr_ext = (uint32_t)&__process7_stack_base__;
983 const size_t __stacksize_ext = (size_t)&__process7_stack_size__;
984 #define PRIO_EXT 4
985
986 static void *
987 ext_main (void *arg)
988 {
989   chopstx_intr_t interrupt;
990
991   (void)arg;
992   chopstx_claim_irq (&interrupt, INTR_REQ_EXTI);
993
994   while (1)
995     {
996       chopstx_intr_wait (&interrupt);
997       cir_ext_interrupt ();
998     }
999
1000   return NULL;
1001 }
1002
1003
1004 void
1005 cir_init (void)
1006 {
1007   /*
1008    * We use XOR function for three signals: TIMx_CH1, TIMx_CH2, and TIMx_CH3.
1009    *
1010    * This is because we want to invert the signal (of Vout from CIR
1011    * receiver module) for timer.
1012    *
1013    * For FST-01, TIM2_CH3 is the signal.  We set TIM2_CH1 = 1 and
1014    * TIM2_CH2 = 0.
1015    *
1016    * For STM8S, TIM2_CH2 is the signal.  We set TIM2_CH1 = 1 and
1017    * TIMx_CH3 = 0.
1018    */
1019
1020   /* EXTIx <= Py */
1021   AFIO->EXTICR[AFIO_EXTICR_INDEX] = AFIO_EXTICR1_EXTIx_Py;
1022   EXTI->IMR = 0;
1023   EXTI->FTSR = EXTI_FTSR_TR;
1024
1025   /* TIM */
1026 #ifdef ENABLE_RCC_APB1
1027   RCC->APB1ENR |= RCC_APBnENR_TIMxEN;
1028   RCC->APB1RSTR = RCC_APBnRSTR_TIMxRST;
1029   RCC->APB1RSTR = 0;
1030 #elif ENABLE_RCC_APB2
1031   RCC->APB2ENR |= RCC_APBnENR_TIMxEN;
1032   RCC->APB2RSTR = RCC_APBnRSTR_TIMxRST;
1033   RCC->APB2RSTR = 0;
1034 #endif
1035
1036   TIMx->CR1 = TIM_CR1_URS | TIM_CR1_ARPE;
1037   TIMx->CR2 = TIM_CR2_TI1S;
1038   TIMx->SMCR = TIM_SMCR_TS_0 | TIM_SMCR_TS_2 | TIM_SMCR_SMS_2;
1039   TIMx->DIER = 0;               /* Disable interrupt for now */
1040   TIMx->CCMR1 = TIM_CCMR1_CC1S_0 | TIM_CCMR1_IC1F_0 | TIM_CCMR1_IC1F_3
1041     | TIM_CCMR1_CC2S_1 | TIM_CCMR1_IC2F_0 | TIM_CCMR1_IC2F_3;
1042   TIMx->CCMR2 = 0;
1043   TIMx->CCER =  TIM_CCER_CC1E | TIM_CCER_CC2E | TIM_CCER_CC2P;
1044   TIMx->PSC = 72 - 1;           /* 1 MHz */
1045   TIMx->ARR = 18000;            /* 18 ms */
1046   /* Generate UEV to upload PSC and ARR */
1047   TIMx->EGR = TIM_EGR_UG;       
1048
1049   chopstx_create (PRIO_TIM, __stackaddr_tim, __stacksize_tim, tim_main, NULL);
1050   chopstx_create (PRIO_EXT, __stackaddr_ext, __stacksize_ext, ext_main, NULL);
1051 }