diff options
| author | Keith Packard <keithp@keithp.com> | 2018-08-05 12:23:22 +0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2018-10-13 08:21:58 -0700 |
| commit | 7c04888cf9809e0c73f0813c74e8dd972facde3a (patch) | |
| tree | ebb43ee5aa61cc65ce28595c19b4dd3c19812ead /src/lambdakey-v1.0/ao_lambdakey.c | |
| parent | 56629222711ba3ef7853405c9b07ad614fb29b95 (diff) | |
altos: Switch to newlib-nano for libc on arm
Stop using pdclib
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/lambdakey-v1.0/ao_lambdakey.c')
| -rw-r--r-- | src/lambdakey-v1.0/ao_lambdakey.c | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/lambdakey-v1.0/ao_lambdakey.c b/src/lambdakey-v1.0/ao_lambdakey.c index f1a2aa38..a608d8e4 100644 --- a/src/lambdakey-v1.0/ao_lambdakey.c +++ b/src/lambdakey-v1.0/ao_lambdakey.c @@ -24,6 +24,21 @@ static const struct ao_cmds blink_cmds[] = { { 0, 0 } }; +int +_ao_scheme_getc(void) +{ + static uint8_t at_eol; + int c; + + if (at_eol) { + ao_cmd_readline(ao_scheme_read_list ? "Λ " : "λ "); + at_eol = 0; + } + c = (unsigned char) ao_cmd_lex(); + if (c == '\n') + at_eol = 1; + return c; +} void main(void) { |