diff options
author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-03-19 12:33:30 -0500 |
---|---|---|
committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-03-19 12:33:30 -0500 |
commit | b20dbd285f508047a13b2ebd928eeb7fc49d7d31 (patch) | |
tree | 6da32910a6f92e23fbd0d178639f5a5ed17ffbf8 /src | |
parent | 7f09f5124acb3cc6e13763a20e2469749b530fe8 (diff) | |
download | luancurses-b20dbd285f508047a13b2ebd928eeb7fc49d7d31.tar.gz luancurses-b20dbd285f508047a13b2ebd928eeb7fc49d7d31.zip |
implement ungetch
Diffstat (limited to 'src')
-rw-r--r-- | src/curses.c | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/curses.c b/src/curses.c index 6eb2066..07814bc 100644 --- a/src/curses.c +++ b/src/curses.c @@ -443,6 +443,18 @@ static int l_getch(lua_State* L) return 1; } +static int l_ungetch(lua_State* L) +{ + const char* ch_str; + int ch; + + ch_str = luaL_checklstring(L, 1, NULL); + ch = get_key_enum(ch_str); + + lua_pushboolean(L, ungetch(ch) == OK); + return 1; +} + static int l_move(lua_State* L) { pos p; @@ -674,6 +686,7 @@ const luaL_Reg reg[] = { { "init_color", l_init_color }, { "init_pair", l_init_pair }, { "getch", l_getch }, + { "ungetch", l_ungetch }, { "move", l_move }, { "addch", l_addch }, { "echochar", l_echochar }, |