9b4ea4738f5c63317e838900e76d304792e021bf
[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 __critical
100 {
101         char c;
102         int8_t stdio = ao_cur_stdio;
103
104         for (;;) {
105                 c = ao_stdios[stdio].pollchar();
106                 if (c != AO_READ_AGAIN)
107                         break;
108                 if (++stdio == ao_num_stdios)
109                         stdio = 0;
110                 if (stdio == ao_cur_stdio)
111                         ao_sleep(&ao_stdin_ready);
112         }
113         ao_cur_stdio = stdio;
114         return c;
115 }
116
117 uint8_t
118 ao_echo(void)
119 {
120         return ao_stdios[ao_cur_stdio].echo;
121 }
122
123 int8_t
124 ao_add_stdio(char (*pollchar)(void),
125              void (*putchar)(char),
126              void (*flush)(void)) __reentrant
127 {
128         if (ao_num_stdios == AO_NUM_STDIOS)
129                 ao_panic(AO_PANIC_STDIO);
130         ao_stdios[ao_num_stdios].pollchar = pollchar;
131         ao_stdios[ao_num_stdios].putchar = putchar;
132         ao_stdios[ao_num_stdios].flush = flush;
133         ao_stdios[ao_num_stdios].echo = 1;
134         return ao_num_stdios++;
135 }