*** empty log message ***

sys/amiga/amitty.c

@@ -0,0 +1,67 @@
+/*    SCCS Id: @(#)amitty.c     3.2    2000/01/12
+/*    Copyright (c) Kenneth Lorber, Bethesda, Maryland 1993,1996  */
+/* NetHack may be freely redistributed.  See license for details. */
+
+/* TTY-specific code for the Amiga
+ * This is still experimental.
+ * Still to do:
+ * add real termcap handling - currently requires ANSI_DEFAULT
+ */
+
+#include "hack.h"
+#include "tcap.h"
+#include <stdio.h>
+#include <proto/dos.h>
+
+#ifdef _DCC
+# define getch() getchar()
+#endif
+#ifdef __SASC_60
+# include <clib/dos_protos.h>
+#endif
+
+void NDECL( tty_change_color );
+char *NDECL( tty_get_color_string );
+
+#ifdef TTY_GRAPHICS
+
+int amibbs=0;			/* BBS mode */
+char bbs_id[80]="";		/* BBS uid equivalent */
+long afh_in, afh_out;		/* BBS mode Amiga filehandles */
+
+void settty(const char *s){
+	end_screen();
+	if(s)raw_print(s);
+	iflags.cbreak=ON;	/* this is too easy: probably wrong */
+#if 1 /* should be version>=36 */
+/*	if(IsInteractive(afh_in)){ */
+		SetMode(afh_in,0);	/* con mode */
+/*	} */
+#endif
+}
+void gettty(){
+#if 1 /* should be VERSION >=36 */
+/*	if(IsInteractive(afh_in)){ */
+		SetMode(afh_in,1);	/* raw mode */
+/*	} */
+#endif
+}
+void setftty(){
+	iflags.cbreak=ON;	/* ditto */
+}
+char kill_char='X'-'@';
+char erase_char='\b';
+tgetch(){
+	char x;
+	Read(afh_in,&x,1);
+	return (x=='\r')?'\n':x;
+}
+void get_scr_size(){
+	CO=80;
+	LI=24;
+}
+
+#endif
+
+void tty_change_color() {}
+char *tty_get_color_string() { return( "" ); }