Gforth中的非阻塞输入

时间:2017-01-11 00:21:35

标签: time keyboard-events forth gforth

如果我们使用ncurses采用一个非常简单的计数器:

#include <stdio.h>
#include <stdlib.h>
#include <time.h>
#include <ncurses.h>

int main(void) {
  struct timespec start;
  clock_gettime(CLOCK_REALTIME, &start);
  initscr();
  cbreak();
  nodelay(stdscr, TRUE);
  {
    int key = -1;
    struct timespec delay, now;
    do {
      clock_gettime(CLOCK_REALTIME, &delay);
      delay.tv_sec = 0;
      delay.tv_nsec = 1000L * 1000L * 1000L - delay.tv_nsec;
      nanosleep(&delay, NULL);
      clock_gettime(CLOCK_REALTIME, &now);
      mvprintw(1, 1, "%ld\n", (long)(now.tv_sec - start.tv_sec));
      refresh();
      key = getch();
      if (key >= 0)
        break;
    } while (now.tv_sec - start.tv_sec < 60);
  }
  endwin();
  return 0;
}

按下任意键后中止(好的,因为cbreak()使用 ctrl - C 总是可以正常工作......)。< / p>

但我们可以让这更复杂,比如添加一个暂停计数器或动态重置的功能(+/- 1秒)。

我们肯定需要一个非阻塞的键盘输入。

我想知道是否有可能在Gforth这样做?好的,我知道如何在那里捕获像SIGINT这样的中断,但是像上面那样,为任何键或任何预定键工作?

1 个答案:

答案 0 :(得分:3)

使用key?returns a flag如果新输入可用,则为真。

您可以根据需要扩充以下代码,但我认为它解释了在按下某个键之前循环运行的基本思路。

: run-until-key ( -- )
    0
    begin
        \ place your terminal code here
        ." Num:" dup . cr
        1+
    key? until drop ;

如果您想等待特定的密钥,只需在直到:

之前添加一个if
...
key? if key 13 = else false then until
...

您也可以在那里添加计时器。