[gforth] / gforth / Attic / io.h  

gforth: gforth/Attic/io.h


1 : anton 1.1 /* Input driver header */
2 :    
3 : anton 1.3 #include <setjmp.h>
4 :    
5 : pazsan 1.4 extern jmp_buf throw_jmp_buf;
6 :    
7 :     #ifdef MSDOS
8 :     # define prep_terminal()
9 :     # define deprep_terminal()
10 :     # define install_signal_handlers()
11 :    
12 :     # include <conio.h>
13 :    
14 :     # define key() getch()
15 :     # define key_query FLAG(kbhit())
16 :     #else
17 : anton 1.1 unsigned char getkey(FILE *);
18 : anton 1.3 long key_avail(FILE *);
19 : anton 1.1 void prep_terminal();
20 :     void deprep_terminal();
21 :     void install_signal_handlers(void);
22 : anton 1.3
23 : pazsan 1.4 # define key() getkey(stdin)
24 :     # define key_query -(!!key_avail(stdin)) /* !! FLAG(...)? - anton */
25 : benschop 1.2 /* flag was originally wrong -- lennart */
26 : pazsan 1.4 #endif

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help