altos: Do not release interrupts from any pollchar function
[fw/altos] / src / core / ao_stdio.c
1 /*
2  * Copyright © 2009 Keith Packard <keithp@keithp.com>
3  *
4  * This program is free software; you can redistribute it and/or modify
5  * it under the terms of the GNU General Public License as published by
6  * the Free Software Foundation; version 2 of the License.
7  *
8  * This program is distributed in the hope that it will be useful, but
9  * WITHOUT ANY WARRANTY; without even the implied warranty of
10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
11  * General Public License for more details.
12  *
13  * You should have received a copy of the GNU General Public License along
14  * with this program; if not, write to the Free Software Foundation, Inc.,
15  * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
16  */
17
18 #include "ao.h"
19
20 /*
21  * Basic I/O functions to support SDCC stdio package
22  */
23
24 #ifndef USE_SERIAL_0_STDIN
25 #define USE_SERIAL_0_STDIN      0
26 #endif
27 #ifndef USE_SERIAL_1_STDIN
28 #define USE_SERIAL_1_STDIN      0
29 #endif
30 #ifndef USE_SERIAL_2_STDIN
31 #define USE_SERIAL_2_STDIN      0
32 #endif
33 #ifndef USE_SERIAL_3_STDIN
34 #define USE_SERIAL_3_STDIN      0
35 #endif
36 #ifndef USE_SERIAL_4_STDIN
37 #define USE_SERIAL_4_STDIN      0
38 #endif
39 #ifndef USE_SERIAL_5_STDIN
40 #define USE_SERIAL_5_STDIN      0
41 #endif
42 #ifndef USE_SERIAL_6_STDIN
43 #define USE_SERIAL_6_STDIN      0
44 #endif
45 #ifndef USE_SERIAL_7_STDIN
46 #define USE_SERIAL_7_STDIN      0
47 #endif
48 #ifndef USE_SERIAL_8_STDIN
49 #define USE_SERIAL_8_STDIN      0
50 #endif
51 #ifndef USE_SERIAL_9_STDIN
52 #define USE_SERIAL_9_STDIN      0
53 #endif
54
55 #define USE_SERIAL_STDIN (USE_SERIAL_0_STDIN +  \
56                           USE_SERIAL_1_STDIN +  \
57                           USE_SERIAL_2_STDIN +  \
58                           USE_SERIAL_3_STDIN +  \
59                           USE_SERIAL_4_STDIN +  \
60                           USE_SERIAL_5_STDIN +  \
61                           USE_SERIAL_6_STDIN +  \
62                           USE_SERIAL_7_STDIN +  \
63                           USE_SERIAL_8_STDIN +  \
64                           USE_SERIAL_9_STDIN)
65
66 #define AO_NUM_STDIOS   (HAS_USB + PACKET_HAS_SLAVE + USE_SERIAL_STDIN)
67
68 __xdata struct ao_stdio ao_stdios[AO_NUM_STDIOS];
69 __pdata int8_t ao_cur_stdio;
70 __pdata int8_t ao_num_stdios;
71
72 void
73 putchar(char c)
74 {
75 #if LOW_LEVEL_DEBUG
76         if (!ao_cur_task) {
77                 extern void ao_debug_out(char c);
78                 if (c == '\n')
79                         ao_debug_out('\r');
80                 ao_debug_out(c);
81                 return;
82         }
83 #endif
84         if (c == '\n')
85                 (*ao_stdios[ao_cur_stdio].putchar)('\r');
86         (*ao_stdios[ao_cur_stdio].putchar)(c);
87 }
88
89 void
90 flush(void)
91 {
92         if (ao_stdios[ao_cur_stdio].flush)
93                 ao_stdios[ao_cur_stdio].flush();
94 }
95
96 __xdata uint8_t ao_stdin_ready;
97
98 char
99 getchar(void) __reentrant
100 {
101         int c;
102         int8_t stdio;
103
104         ao_arch_block_interrupts();
105         stdio = ao_cur_stdio;
106         for (;;) {
107                 c = ao_stdios[stdio]._pollchar();
108                 if (c != AO_READ_AGAIN)
109                         break;
110                 if (++stdio == ao_num_stdios)
111                         stdio = 0;
112                 if (stdio == ao_cur_stdio)
113                         ao_sleep(&ao_stdin_ready);
114         }
115         ao_cur_stdio = stdio;
116         ao_arch_release_interrupts();
117         return c;
118 }
119
120 uint8_t
121 ao_echo(void)
122 {
123         return ao_stdios[ao_cur_stdio].echo;
124 }
125
126 int8_t
127 ao_add_stdio(int (*_pollchar)(void),
128              void (*putchar)(char),
129              void (*flush)(void)) __reentrant
130 {
131         if (ao_num_stdios == AO_NUM_STDIOS)
132                 ao_panic(AO_PANIC_STDIO);
133         ao_stdios[ao_num_stdios]._pollchar = _pollchar;
134         ao_stdios[ao_num_stdios].putchar = putchar;
135         ao_stdios[ao_num_stdios].flush = flush;
136         ao_stdios[ao_num_stdios].echo = 1;
137         return ao_num_stdios++;
138 }