diff options
| author | Keith Packard <keithp@keithp.com> | 2016-11-15 10:18:12 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2016-11-17 22:18:39 -0800 |
| commit | f3ac87a792527e9b7eb888e0c1f86fe49dc49bbc (patch) | |
| tree | 07d17e5934e2a23a524d8a5e005c782b9eefe83a /src/nucleao-32/ao_nucleo.c | |
| parent | acfc29f2400cc3c06745edb5ec0c82b82998d3cc (diff) | |
altos/lisp: Get lambdakey and nucleo-32 building again
Remove exti from the build list to make things fit.
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/nucleao-32/ao_nucleo.c')
| -rw-r--r-- | src/nucleao-32/ao_nucleo.c | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/src/nucleao-32/ao_nucleo.c b/src/nucleao-32/ao_nucleo.c index 113e2399..3e448865 100644 --- a/src/nucleao-32/ao_nucleo.c +++ b/src/nucleao-32/ao_nucleo.c @@ -15,44 +15,15 @@ #include <ao.h> #include <ao_lisp.h> -static uint16_t blink_delay, blink_running; - -static void blink(void) { - blink_running = 1; - while (blink_delay) { - ao_led_on(AO_LED_GREEN); - ao_delay(blink_delay); - ao_led_off(AO_LED_GREEN); - ao_delay(blink_delay); - } - blink_running = 0; - ao_wakeup(&blink_running); - ao_exit(); -} - -struct ao_task blink_task; - -static void blink_cmd() { - ao_cmd_decimal(); - blink_delay = ao_cmd_lex_i; - if (blink_delay && !blink_running) - ao_add_task(&blink_task, blink, "blink"); - if (!blink_delay) - while (blink_running) - ao_sleep(&blink_running); -} - static void lisp_cmd() { ao_lisp_read_eval_print(); } static const struct ao_cmds blink_cmds[] = { - { blink_cmd, "b <delay, 0 off>\0Blink the green LED" }, { lisp_cmd, "l\0Run lisp interpreter" }, { 0, 0 } }; - void main(void) { ao_led_init(LEDS_AVAILABLE); |