From: Keith Packard <keithp@keithp.com>
Date: Sun, 13 Nov 2011 02:48:07 +0000 (-0800)
Subject: altos: Export 'ao_cmd_is_white' for use by other code
X-Git-Tag: 1.0.9.4~77
X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=commitdiff_plain;h=2ba946fea29ff134ffaeaea9d7932f4bd4e953aa

altos: Export 'ao_cmd_is_white' for use by other code

This function tests the current input character.

Signed-off-by: Keith Packard <keithp@keithp.com>
---

diff --git a/src/core/ao.h b/src/core/ao.h
index f57398ce..2139983c 100644
--- a/src/core/ao.h
+++ b/src/core/ao.h
@@ -349,6 +349,9 @@ ao_cmd_put8(uint8_t v);
 void
 ao_cmd_put16(uint16_t v);
 
+uint8_t
+ao_cmd_is_white(void);
+
 void
 ao_cmd_white(void);
 
diff --git a/src/core/ao_cmd.c b/src/core/ao_cmd.c
index 0c902f6b..14cb7569 100644
--- a/src/core/ao_cmd.c
+++ b/src/core/ao_cmd.c
@@ -121,10 +121,16 @@ ao_cmd_put8(uint8_t v)
 	putnibble(v & 0xf);
 }
 
+uint8_t
+ao_cmd_is_white(void)
+{
+	return ao_cmd_lex_c == ' ' || ao_cmd_lex_c == '\t';
+}
+
 void
 ao_cmd_white(void)
 {
-	while (ao_cmd_lex_c == ' ' || ao_cmd_lex_c == '\t')
+	while (ao_cmd_is_white())
 		ao_cmd_lex();
 }