WebSVN – Krakow BASIC – Diff – /trunk/BASIC/basic.c

-/* $Id: basic.c 37 2024-09-05 15:59:22Z nishi $ */
+/* $Id: basic.c 38 2024-09-05 16:02:53Z nishi $ */
 /* Krakow BASIC - Multi-platform simple BASIC */
 #if defined(PLATFORM_SHIROI)
 #define LINES (32)
 #undef putchar
 #define putchar uart_putchar
 #elif defined(PLATFORM_UNIX)
 #include <termios.h>
+#include <sys/ioctl.h>
 #elif defined(PLATFORM_PET)
 #define BUFFER_SIZE (4 * 1024)
 #undef killcursor
 #undef cursor
 #define killcursor(x) cursor(0)
 #define agetch() oggetch(0)
 char oggetch(char wait) {
 	int c;
 #if defined(PLATFORM_WINDOWS)
 rescan:
+	if(!wait){
+		if(!_kbhit()) return 0;
+	}
 	c = _getch();
 	if(c == '\r') return '\n';
 	if(c == '\n') goto rescan;
 #elif defined(PLATFORM_UNIX)
+	if(!wait){
+		int b;
+		ioctl(0, FIONREAD, &b);
+		if(b == 0) return 0;
+	}
 	c = getchar();
 	if(c == EOF) return -1;
 	if(c == '\r') return '\n';
 #elif defined(PLATFORM_ARDUINO)
 rescan:

Subversion Repositories Krakow BASIC