diff options
author | Keith Packard <keithp@keithp.com> | 2017-12-10 18:21:01 -0800 |
---|---|---|
committer | Keith Packard <keithp@keithp.com> | 2017-12-11 12:20:25 -0800 |
commit | 655576011e9cc648c7c4bbf51179744a427ff237 (patch) | |
tree | 8569a5c9ea7aea02ce6f80b571ea3f7afccb2a71 /src/lambdakey-v1.0/ao_lisp_os.h | |
parent | 7d77071f5b45632937f262600ca95c7b71f4d3da (diff) |
altos/lambdakey-v1.0: Switch to newlib, get things compiling again
scheme is now way too large to fit on this device; some subsetting is
clearly indicated.
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/lambdakey-v1.0/ao_lisp_os.h')
-rw-r--r-- | src/lambdakey-v1.0/ao_lisp_os.h | 62 |
1 files changed, 0 insertions, 62 deletions
diff --git a/src/lambdakey-v1.0/ao_lisp_os.h b/src/lambdakey-v1.0/ao_lisp_os.h deleted file mode 100644 index 1993ac44..00000000 --- a/src/lambdakey-v1.0/ao_lisp_os.h +++ /dev/null @@ -1,62 +0,0 @@ -/* - * Copyright © 2016 Keith Packard <keithp@keithp.com> - * - * This program is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; version 2 of the License. - * - * This program is distributed in the hope that it will be useful, but - * WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * General Public License for more details. - * - * You should have received a copy of the GNU General Public License along - * with this program; if not, write to the Free Software Foundation, Inc., - * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. - */ - -#ifndef _AO_LISP_OS_H_ -#define _AO_LISP_OS_H_ - -#include "ao.h" - -static inline int -ao_lisp_getc() { - static uint8_t at_eol; - int c; - - if (at_eol) { - ao_cmd_readline(); - at_eol = 0; - } - c = ao_cmd_lex(); - if (c == '\n') - at_eol = 1; - return c; -} - -static inline void -ao_lisp_os_flush(void) -{ - flush(); -} - -static inline void -ao_lisp_abort(void) -{ - ao_panic(1); -} - -static inline void -ao_lisp_os_led(int led) -{ - ao_led_set(led); -} - -static inline void -ao_lisp_os_delay(int delay) -{ - ao_delay(AO_MS_TO_TICKS(delay)); -} - -#endif |