projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
altos: Switch to newlib-nano for libc on arm
[fw/altos]
/
src
/
lambdakey-v1.0
/
ao_scheme_os.h
diff --git
a/src/lambdakey-v1.0/ao_scheme_os.h
b/src/lambdakey-v1.0/ao_scheme_os.h
index 6a2ab819c981f6f59e2c7784faf37cfe2dc051c1..4135755252ba4258e07806168a24153a030d6de8 100644
(file)
--- a/
src/lambdakey-v1.0/ao_scheme_os.h
+++ b/
src/lambdakey-v1.0/ao_scheme_os.h
@@
-19,8
+19,9
@@
#define _AO_SCHEME_OS_H_
#include "ao.h"
#define _AO_SCHEME_OS_H_
#include "ao.h"
+#include "ao_scheme.h"
-#define AO_SCHEME_POOL 3
584
+#define AO_SCHEME_POOL 3
792
#define AO_SCHEME_TOKEN_MAX 64
#ifndef __BYTE_ORDER
#define AO_SCHEME_TOKEN_MAX 64
#ifndef __BYTE_ORDER
@@
-29,22
+30,13
@@
#define __BYTE_ORDER __LITTLE_ENDIAN
#endif
#define __BYTE_ORDER __LITTLE_ENDIAN
#endif
-static inline int
-_ao_scheme_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;
-}
+extern int _ao_scheme_getc(void);
#define ao_scheme_getc(f) ({ (void) (f); _ao_scheme_getc(); })
#define ao_scheme_getc(f) ({ (void) (f); _ao_scheme_getc(); })
+#undef putc
+#define putc(c, f) ({ (void) (f); ao_putchar(c); })
+#define fputs(s, f) ({ (void) (f); ao_put_string(s); })
+#define fiprintf(f, ...) ({ (void) (f); iprintf(__VA_ARGS__); })
static inline void
ao_scheme_abort(void)
static inline void
ao_scheme_abort(void)