X-Git-Url: https://jxself.org/git/?p=super-star-trek.git;a=blobdiff_plain;f=c-version%2Fsrc%2Fio.c;fp=c-version%2Fsrc%2Fio.c;h=fa028f52933078a621d985bbbac65c2fa3cea186;hp=0000000000000000000000000000000000000000;hb=1dc3e2e56bd836aa1c9d45417222b4fed6d34c0e;hpb=16a5bbd86d12644c1a613e61e990f76b16a567f0

diff --git a/c-version/src/io.c b/c-version/src/io.c
new file mode 100644
index 0000000..fa028f5
--- /dev/null
+++ b/c-version/src/io.c
@@ -0,0 +1,466 @@
+#include <stdio.h>
+#include <unistd.h>
+#include <wchar.h>
+
+#include "config.h"
+#include "sst.h"
+#include "sstlinux.h"
+
+static int rows, linecount;	/* for paging */
+
+WINDOW *curwnd;
+WINDOW *fullscreen_window;
+WINDOW *srscan_window;
+WINDOW *report_window;
+WINDOW *status_window;
+WINDOW *lrscan_window;
+WINDOW *message_window;
+WINDOW *prompt_window;
+
+static void outro(void)
+/* wrap up, either normally or due to signal */
+{
+    if (game.options & OPTION_CURSES) {
+	//clear();
+	//curs_set(1);
+	//refresh();
+	//resetterm();
+	//echo();
+	endwin();
+	putchar('\n');
+    }
+    if (logfp)
+	fclose(logfp);
+}
+
+void iostart(void) 
+{
+    setlocale(LC_ALL, "");
+    bindtextdomain(PACKAGE, LOCALEDIR);
+    textdomain(PACKAGE);
+
+    if (atexit(outro)){
+	fprintf(stderr,"Unable to register outro(), exiting...\n");
+	exit(1);
+    }
+    if (!(game.options & OPTION_CURSES)) {
+	char *ln_env = getenv("LINES");
+	rows = ln_env ? atoi(ln_env) : 25;
+    } else {
+	initscr();
+#ifdef KEY_MIN
+	keypad(stdscr, TRUE);
+#endif /* KEY_MIN */
+	saveterm();
+	nonl();
+	cbreak();
+#ifdef A_COLOR
+	{
+	    start_color();
+	    init_pair(COLOR_BLACK, COLOR_BLACK, COLOR_BLACK);
+	    init_pair(COLOR_GREEN, COLOR_GREEN, COLOR_BLACK);
+	    init_pair(COLOR_RED, COLOR_RED, COLOR_BLACK);
+	    init_pair(COLOR_CYAN, COLOR_CYAN, COLOR_BLACK);
+	    init_pair(COLOR_WHITE, COLOR_WHITE, COLOR_BLACK);
+	    init_pair(COLOR_MAGENTA, COLOR_MAGENTA, COLOR_BLACK);
+	    init_pair(COLOR_BLUE, COLOR_BLUE, COLOR_BLACK);
+	    init_pair(COLOR_YELLOW, COLOR_YELLOW, COLOR_BLACK);
+	}
+#endif /* A_COLOR */
+	//noecho();
+	fullscreen_window = stdscr;
+	srscan_window     = newwin(12, 25, 0,       0);
+	report_window     = newwin(11, 0,  1,       25);
+	status_window     = newwin(10, 0,  1,       39);
+	lrscan_window     = newwin(5,  0,  0,       64); 
+	message_window    = newwin(0,  0,  12,      0);
+	prompt_window     = newwin(1,  0,  LINES-2, 0); 
+	scrollok(message_window, TRUE);
+	setwnd(fullscreen_window);
+	textcolor(DEFAULT);
+    }
+}
+
+
+void waitfor(void)
+/* wait for user action -- OK to do nothing if on a TTY */
+{
+    if (game.options & OPTION_CURSES)
+	wgetch(prompt_window);
+}
+
+void announce(void)
+{
+    skip(1);
+    prouts(_("[ANNOUNCEMENT ARRIVING...]"));
+    skip(1);
+}
+
+static void pause_game(void)
+{
+	char *prompt;
+	char buf[BUFSIZ];
+        if (game.skill > SKILL_FAIR)
+	    prompt = _("[CONTINUE?]");
+	else
+	    prompt = _("[PRESS ENTER TO CONTINUE]");
+
+	if (game.options & OPTION_CURSES) {
+	    drawmaps(0);
+	    setwnd(prompt_window);
+	    wclear(prompt_window);
+	    waddstr(prompt_window, prompt);
+	    wgetnstr(prompt_window, buf, sizeof(buf));
+	    wclear(prompt_window);
+	    wrefresh(prompt_window);
+	    setwnd(message_window);
+	} else {
+	    int j;
+	    putchar('\n');
+	    proutn(prompt);
+	    fgets(buf, sizeof(buf), stdin);
+	    for (j = 0; j < rows; j++)
+		putchar('\n');
+	    linecount = 0;
+	}
+}
+
+
+void skip(int i) 
+{
+    while (i-- > 0) {
+	if (game.options & OPTION_CURSES) {
+	    if (curwnd == message_window && getcury(curwnd) >= getmaxy(curwnd) - 3) {
+		pause_game();
+		clrscr();
+	    } else {
+		proutn("\n");
+	    }
+	} else {
+	    linecount++;
+	    if (linecount >= rows)
+		pause_game();
+	    else
+		putchar('\n');
+	}
+    }
+}
+
+static void vproutn(const char *fmt, va_list ap) 
+{
+    if (game.options & OPTION_CURSES) {
+	vwprintw(curwnd, fmt, ap);
+	wrefresh(curwnd);
+    }
+    else
+	vprintf(fmt, ap);
+}
+
+void proutn(const char *fmt, ...) 
+{
+    va_list ap;
+    va_start(ap, fmt);
+    vproutn(fmt, ap);
+    va_end(ap);
+}
+
+void prout(const char *fmt, ...) 
+{
+    va_list ap;
+    va_start(ap, fmt);
+    vproutn(fmt, ap);
+    va_end(ap);
+    skip(1);
+}
+
+void prouts(const char *fmt, ...) 
+/* print slowly! */
+{
+    char buf[BUFSIZ];
+    wchar_t *s, mbuf[BUFSIZ];
+    va_list ap;
+    va_start(ap, fmt);
+    vsprintf(buf, fmt, ap);
+    va_end(ap);
+    mbstowcs(mbuf, buf, BUFSIZ);
+    for (s = mbuf; *s; s++) {
+	/* HOW to convince ncurses to use wchar_t?? */
+	/* WHY putwchar() doesn't work?? */
+	/* OK then, convert back to mbs... */
+	char c[MB_CUR_MAX*2];
+	int n;
+	n = wctomb(c, *s);
+	c[n] = 0;
+	delay(30);
+	proutn(c);
+	if (game.options & OPTION_CURSES)
+	    wrefresh(curwnd);
+	else
+	    fflush(stdout);
+    }
+    delay(300);
+}
+
+void cgetline(char *line, int max)
+{
+    if (game.options & OPTION_CURSES) {
+	wgetnstr(curwnd, line, max);
+	strcat(line, "\n");
+	wrefresh(curwnd);
+    } else {
+	if (replayfp && !feof(replayfp))
+	    (void)fgets(line, max, replayfp);
+	else
+	    (void)fgets(line, max, stdin);
+    }
+    if (logfp)
+	(void)fputs(line, logfp);
+    line[strlen(line)-1] = '\0';
+}
+
+void setwnd(WINDOW *wnd)
+/* change windows -- OK for this to be a no-op in tty mode */
+{
+    if (game.options & OPTION_CURSES) {
+     curwnd=wnd;
+     curs_set(wnd == fullscreen_window || wnd == message_window || wnd == prompt_window);
+    }
+}
+
+void clreol(void)
+/* clear to end of line -- can be a no-op in tty mode */
+{
+   if (game.options & OPTION_CURSES) {
+       wclrtoeol(curwnd);
+       wrefresh(curwnd);
+   }
+}
+
+void clrscr(void)
+/* clear screen -- can be a no-op in tty mode */
+{
+   if (game.options & OPTION_CURSES) {
+       wclear(curwnd);
+       wmove(curwnd,0,0);
+       wrefresh(curwnd);
+   }
+   linecount = 0;
+}
+
+void textcolor(int color)
+{
+#ifdef A_COLOR
+    if (game.options & OPTION_CURSES) {
+	switch(color) {
+	case DEFAULT: 
+	    wattrset(curwnd, 0);
+	    break;
+	case BLACK: 
+	    wattron(curwnd, COLOR_PAIR(COLOR_BLACK));
+	    break;
+	case BLUE: 
+	    wattron(curwnd, COLOR_PAIR(COLOR_BLUE));
+	    break;
+	case GREEN: 
+	    wattron(curwnd, COLOR_PAIR(COLOR_GREEN));
+	    break;
+	case CYAN: 
+	    wattron(curwnd, COLOR_PAIR(COLOR_CYAN));
+	    break;
+	case RED: 
+	    wattron(curwnd, COLOR_PAIR(COLOR_RED));
+	    break;
+	case MAGENTA: 
+	    wattron(curwnd, COLOR_PAIR(COLOR_MAGENTA));
+	    break;
+	case BROWN: 
+	    wattron(curwnd, COLOR_PAIR(COLOR_YELLOW));
+	    break;
+	case LIGHTGRAY: 
+	    wattron(curwnd, COLOR_PAIR(COLOR_WHITE));
+	    break;
+	case DARKGRAY: 
+	    wattron(curwnd, COLOR_PAIR(COLOR_BLACK) | A_BOLD);
+	    break;
+	case LIGHTBLUE: 
+	    wattron(curwnd, COLOR_PAIR(COLOR_BLUE) | A_BOLD);
+	    break;
+	case LIGHTGREEN: 
+	    wattron(curwnd, COLOR_PAIR(COLOR_GREEN) | A_BOLD);
+	    break;
+	case LIGHTCYAN: 
+	    wattron(curwnd, COLOR_PAIR(COLOR_CYAN) | A_BOLD);
+	    break;
+	case LIGHTRED: 
+	    wattron(curwnd, COLOR_PAIR(COLOR_RED) | A_BOLD);
+	    break;
+	case LIGHTMAGENTA: 
+	    wattron(curwnd, COLOR_PAIR(COLOR_MAGENTA) | A_BOLD);
+	    break;
+	case YELLOW: 
+	    wattron(curwnd, COLOR_PAIR(COLOR_YELLOW) | A_BOLD);
+	    break;
+	case WHITE:
+	    wattron(curwnd, COLOR_PAIR(COLOR_WHITE) | A_BOLD);
+	    break;
+	}
+    }
+#endif /* A_COLOR */
+}
+
+void highvideo(void)
+{
+    if (game.options & OPTION_CURSES) {
+	wattron(curwnd, A_REVERSE);
+    }
+}
+ 
+void commandhook(char *cmd, bool before) {
+}
+
+/*
+ * Things past this point have policy implications.
+ */
+
+void drawmaps(int mode)
+/* hook to be called after moving to redraw maps */
+{
+    if (game.options & OPTION_CURSES) {
+	if (mode == 1)
+	    sensor();
+        setwnd(srscan_window);
+        wmove(curwnd, 0, 0);
+        srscan();
+	if (mode != 2) {
+	    setwnd(status_window);
+	    wclear(status_window);
+	    wmove(status_window, 0, 0);
+	    setwnd(report_window);
+	    wclear(report_window);
+	    wmove(report_window, 0, 0);
+	    status(0);
+	    setwnd(lrscan_window);
+	    wclear(lrscan_window);
+	    wmove(lrscan_window, 0, 0);
+	    lrscan();
+	}
+    }
+}
+
+static void put_srscan_sym(coord w, char sym)
+{
+    wmove(srscan_window, w.x+1, w.y*2+2);
+    waddch(srscan_window, sym);
+    wrefresh(srscan_window);
+}
+
+void boom(coord w)
+/* enemy fall down, go boom */ 
+{
+    if (game.options & OPTION_CURSES) {
+	drawmaps(2);
+	setwnd(srscan_window);
+	wattron(srscan_window, A_REVERSE);
+	put_srscan_sym(w, game.quad[w.x][w.y]);
+	sound(500);
+	delay(1000);
+	nosound();
+	wattroff(srscan_window, A_REVERSE);
+	put_srscan_sym(w, game.quad[w.x][w.y]);
+	delay(500);
+	setwnd(message_window);
+    }
+} 
+
+void warble(void)
+/* sound and visual effects for teleportation */
+{
+    if (game.options & OPTION_CURSES) {
+	drawmaps(2);
+	setwnd(message_window);
+	sound(50);
+    }
+    prouts("     . . . . .     ");
+    if (game.options & OPTION_CURSES) {
+	delay(1000);
+	nosound();
+    }
+}
+
+void tracktorpedo(coord w, int l, int i, int n, int iquad)
+/* torpedo-track animation */
+{
+    if (!(game.options & OPTION_CURSES)) {
+	if (l == 1) {
+	    if (n != 1) {
+		skip(1);
+		proutn(_("Track for torpedo number %d-  "), i);
+	    }
+	    else {
+		skip(1);
+		proutn(_("Torpedo track- "));
+	    }
+	} else if (l==4 || l==9) 
+	    skip(1);
+	proutn("%d - %d   ", w.x, w.y);
+    } else {
+	if (!damaged(DSRSENS) || game.condition==docked) {
+	    if (i != 1 && l == 1) {
+		drawmaps(2);
+		delay(400);
+	    }
+	    if ((iquad==IHDOT)||(iquad==IHBLANK)){
+		put_srscan_sym(w, '+');
+		sound(l*10);
+		delay(100);
+		nosound();
+		put_srscan_sym(w, iquad);
+	    }
+	    else {
+		wattron(curwnd, A_REVERSE);
+		put_srscan_sym(w, iquad);
+		sound(500);
+		delay(1000);
+		nosound();
+		wattroff(curwnd, A_REVERSE);
+		put_srscan_sym(w, iquad);
+	    }
+	} else {
+	    proutn("%d - %d   ", w.x, w.y);
+	}
+    }
+}
+
+void makechart(void) 
+{
+    if (game.options & OPTION_CURSES) {
+	setwnd(message_window);
+	wclear(message_window);
+    }
+    chart();
+    if (game.options & OPTION_TTY) {
+	skip(1);
+    }
+}
+
+void prstat(const char *txt, const char *fmt, ...)
+{
+#define NSYM 14
+    int i;
+    va_list args;
+    proutn(txt);
+    if (game.options & OPTION_CURSES) {
+	skip(1);
+    } else  {
+	for (i = mblen(txt, strlen(txt)); i < NSYM; i++)
+	    proutn(" ");
+    }
+    if (game.options & OPTION_CURSES)
+	setwnd(status_window);
+    va_start(args, fmt);
+    vproutn(fmt, args);
+    va_end(args);
+    skip(1);
+    if (game.options & OPTION_CURSES)
+	setwnd(report_window);
+}