[gforth] / gforth / Attic / io.h  

gforth: gforth/Attic/io.h

File: [gforth] / gforth / Attic / io.h (download) (as text)
Revision: 1.4, Thu Feb 2 18:13:04 1995 UTC (18 years, 3 months ago) by pazsan
Branch: MAIN
Changes since 1.3: +15 -5 lines
added very preliminary support for Alpha/osf1
Moved flush-tos before stores to improve scheduling
merged io-dos.h and io.h
Created new Makefile for DOS
removed ToDo topcics that are already done

/* Input driver header */

#include <setjmp.h>

extern jmp_buf throw_jmp_buf;

#ifdef MSDOS
#  define prep_terminal()
#  define deprep_terminal()
#  define install_signal_handlers()

#  include <conio.h>

#  define key()		getch()
#  define key_query       FLAG(kbhit())
#else
unsigned char getkey(FILE *);
long key_avail(FILE *);
void prep_terminal();
void deprep_terminal();
void install_signal_handlers(void);

#  define key()		getkey(stdin)
#  define key_query	-(!!key_avail(stdin)) /* !! FLAG(...)? - anton */
         		/* flag was originally wrong -- lennart */
#endif

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help