Gforth中的非阻塞输入

Question

如果我们使用 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, "%ldn", (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;
}

按下任何键后它会中止（好吧，因为使用 ctrl-C cbreak()总是无需任何额外的努力......

但是我们可以使这更加复杂，例如添加一个函数来暂停计数器或即时重置它（+/- 1 秒）。

为此，我们绝对需要一个非阻塞键盘输入。

我想知道是否有可能在格福斯做到这一点？好的，我知道如何在那里捕获像 SIGINT 这样的中断，但是像上面这样的东西，适用于任何键或任何预定键？

Answer 1

使用 key? ，如果新输入可用，则返回一个标志。

您可以根据需要扩充以下代码，但我认为它解释了在循环中运行直到按下键的基本思想。

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

如果要等待特定键，只需在 untill 之前添加一个 if：

...
key? if key 13 = else false then until
...

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