1 /* File: main-gcu.c */
4 * Copyright (c) 1997 Ben Harrison, and others
6 * This software may be copied and distributed for educational, research,
7 * and not for profit purposes provided that this copyright and statement
8 * are included in all such copies.
11 /* Purpose: Allow use of Unix "curses" with Angband -BEN- */
14 * This file has been modified to use multiple text windows if your screen
15 * is larger than 80x25. By Keldon Jones (keldon@umr.edu).
17 * Also included is Keldon Jones patch to get better colors. To switch to
18 * a term that supports this, see this posting:
20 * From keldon@umr.edu Thu Apr 01 05:40:14 1999
21 * Sender: KELDON JONES <keldon@saucer.cc.umr.edu>
22 * From: Keldon Jones <keldon@umr.edu>
23 * Subject: Re: Linux colour prob (Or: question for Greg)
24 * Newsgroups: rec.games.roguelike.angband
25 * References: <slrn7g1jlp.gj9.scarblac-spamtrap@flits104-37.flits.rug.nl> <3700f96b.1593384@news.polsl.gliwice.pl> <slrn7g36er.fm4.wooledge@jekyll.local>
26 * X-Newsreader: TIN [UNIX 1.3 unoff BETA 970625; 9000/780 HP-UX B.10.20]
27 * NNTP-Posting-Host: saucer.cc.umr.edu
28 * X-NNTP-Posting-Host: saucer.cc.umr.edu
29 * Message-ID: <370306be.0@news.cc.umr.edu>
30 * Date: 1 Apr 99 05:40:14 GMT
31 * Organization: University of Missouri - Rolla
34 * xs4all!xs4all!newsfeed.wirehub.nl!news-peer.gip.net!news.gsl.net!gip.net!news.he.net!mercury.cts.com!alpha.sky.net!news.missouri.edu!news.cc.umr.edu!not-for-mail
35 * Xref: xs4all rec.games.roguelike.angband:86332
37 * Greg Wooledge <wooledge@kellnet.com> wrote:
38 * > Gwidon S. Naskrent (naskrent@artemida.amu.edu.pl) wrote:
40 * > >On 30 Mar 1999 13:17:18 GMT, scarblac-spamtrap@pino.selwerd.cx (Remco
43 * > >>I recently switched to Linux, and *bands work fine. I like
44 * > >>to play them in consoles, not in X. However, colour is wrong.
45 * > >>"Slate" and "light slate" are always light blue, instead
46 * > >>of some shade of grey. Colours are fine in X.
48 * > I actually noticed the Linux console color issue a very long time ago,
49 * > but since I always play under X, I never really investigated it.
51 * > You're absolutely right, though -- the Linux console colors are not
52 * > "right" for Angband.
54 * I've noticed this myself, so I spent the evening fixing it.
55 * Well, sorta fixing it. It's not perfect yet, and it may not be
56 * possible to get it perfect with VGA hardware and/or the current
59 * > OK, reading on in terminfo(5):
62 * > Most color terminals are either `Tektronix-like' or `HP-
63 * > like'. Tektronix-like terminals have a predefined set of
64 * > N colors (where N usually 8), and can set character-cell
65 * > foreground and background characters independently, mixing
66 * > them into N * N color-pairs. On HP-like terminals, the
67 * > use must set each color pair up separately (foreground and
68 * > background are not independently settable). Up to M
69 * > color-pairs may be set up from 2*M different colors.
70 * > ANSI-compatible terminals are Tektronix-like.
72 * > The "linux" terminfo entry is definitely in the "Tektronix-like" family.
73 * > It has the "setaf" and "setab" capabilities for setting the foreground
74 * > and background colors to one of 8 basically hard-coded values:
76 * > Color #define Value RGB
77 * > black COLOR_BLACK 0 0, 0, 0
78 * > red COLOR_RED 1 max,0,0
79 * > green COLOR_GREEN 2 0,max,0
80 * > yellow COLOR_YELLOW 3 max,max,0
81 * > blue COLOR_BLUE 4 0,0,max
82 * > magenta COLOR_MAGENTA 5 max,0,max
83 * > cyan COLOR_CYAN 6 0,max,max
84 * > white COLOR_WHITE 7 max,max,max
86 * Well, not quite. Using certain escape sequences, an
87 * application (or better yet, curses) can redefine the colors (at
88 * least some of them) and then those are used. Read the
89 * curs_color manpage, and the part about "ccc" and "initc" in the
90 * terminfo manpage. This is what the part of main-gcu inside the
91 * "if (can_fix_color)" code does.
93 * > So, what does this mean to the Angband player? Well, it means that
94 * > either there's nothing you can do about the console colors as long as
95 * > straight curses/ncurses is used, or if there is something to be done,
96 * > I'm not clever enough to figure out how to do it.
98 * Well, it is possible, though you have to patch main-gcu
99 * and edit a terminfo entry. Apparently the relevant code in
100 * main-gcu was never tested (it's broken in at least one major
101 * way). Apply the patch at the end of this message (notice that
102 * we need to define REDEFINE_COLORS at some point near the
103 * beginning of the file).
104 * Next, write this termcap entry to a file:
106 * linux-c|linux console 1.3.6+ with private palette for each virtual console,
108 * colors#16, pairs#64,
109 * initc=\E]P%x%p1%{16}%/%02x%p1%{16}%/%02x%p1%{16}%/%02x,
113 * and run "tic" on it to produce a new terminfo entry called
114 * "linux-c". Especially note the "ccc" flag which says that we
115 * can redefine colors. The ugly "initc" string is what tells
116 * the console how to redefine a color. Now, just set your TERM
117 * variable to "linux-c" and try Angband again. If I've
118 * remembered to tell you everything that I've done, you should
119 * get the weird light-blue slate changed to a gray.
120 * Now, there are still lots of problems with this.
121 * Something (I don't think it's curses, either the kernel or
122 * the hardware itself) seems to be ignoring my color changes to
123 * colors 6 and 7, which is annoying. Also, the normal "white"
124 * color is now way too bright, but it's now necessary to
125 * distinguish it from the other grays.
126 * The kernel seems to support 16 colors, but you can
127 * only switch to 8 of those, due to VT102 compatibility, it
128 * seems. I think it would be possible to patch the kernel and
129 * allow all 16 colors to be used, but I haven't built up the
130 * nerve to try that yet.
131 * Let me know if you can improve on this any. Some of
132 * this may actually work differently on other hardware (ugh).
139 * To use this file, you must define "USE_GCU" in the Makefile.
141 * Hack -- note that "angband.h" is included AFTER the #ifdef test.
142 * This was necessary because of annoying "curses.h" silliness.
144 * Note that this file is not "intended" to support non-Unix machines,
145 * nor is it intended to support VMS or other bizarre setups.
147 * Also, this package assumes that the underlying "curses" handles both
148 * the "nonl()" and "cbreak()" commands correctly, see the "OPTION" below.
150 * This code should work with most versions of "curses" or "ncurses",
151 * and the "main-ncu.c" file (and USE_NCU define) are no longer used.
153 * See also "USE_CAP" and "main-cap.c" for code that bypasses "curses"
154 * and uses the "termcap" information directly, or even bypasses the
155 * "termcap" information and sends direct vt100 escape sequences.
157 * XXX XXX XXX Consider the use of "savetty()" and "resetty()".
160 #include "game-option/runtime-arguments.h"
161 #include "game-option/special-options.h"
162 #include "io/exit-panic.h"
163 #include "io/files-util.h"
164 #include "locale/japanese.h"
165 #include "main/sound-definitions-table.h"
166 #include "main/sound-of-music.h"
167 #include "system/angband.h"
168 #include "system/player-type-definition.h"
169 #include "term/gameterm.h"
170 #include "term/term-color-types.h"
171 #include "util/angband-files.h"
172 #include "view/display-map.h"
177 * Hack -- play games with "bool"
179 #if __STDC_VERSION__ < 199901L
184 * Include the proper "header" file
189 * Simple rectangle type
195 typedef struct rect_s rect_t, *rect_ptr;
197 /* Trivial rectangle utility to make code a bit more readable */
198 static rect_t rect(int x, int y, int cx, int cy)
209 * Information about a term
217 /* Max number of windows on screen */
218 #define MAX_TERM_DATA 4
220 /* Minimum main term size */
221 #define MIN_TERM0_LINES 24
222 #define MIN_TERM0_COLS 80
224 /* Information about our windows */
225 static term_data data[MAX_TERM_DATA];
228 * Hack -- try to guess which systems use what commands
229 * Hack -- allow one of the "USE_Txxxxx" flags to be pre-set.
230 * Mega-Hack -- try to guess when "POSIX" is available.
231 * If the user defines two of these, we will probably crash.
233 #if !defined(USE_TCHARS)
234 #if defined(_POSIX_VERSION)
242 * Try redefining the colors at startup.
244 #define REDEFINE_COLORS
250 #include <sys/ioctl.h>
255 * One version needs this file
258 #include <sys/ioctl.h>
263 * The other needs this file
266 #include <sys/file.h>
267 #include <sys/ioctl.h>
268 #include <sys/param.h>
269 #include <sys/resource.h>
270 #include <sys/types.h>
276 * XXX XXX Hack -- POSIX uses "O_NONBLOCK" instead of "O_NDELAY"
278 * They should both work due to the "(i != 1)" test below.
281 #define O_NDELAY O_NONBLOCK
285 * OPTION: some machines lack "cbreak()"
286 * On these machines, we use an older definition
288 /* #define cbreak() crmode() */
291 * OPTION: some machines cannot handle "nonl()" and "nl()"
292 * On these machines, we can simply ignore those commands.
297 static concptr ANGBAND_DIR_XTRA_SOUND;
301 * Flag set once "sound" has been initialized
303 static bool can_use_sound = false;
306 * An array of sound file names
308 static concptr sound_file[SOUND_MAX];
311 * Save the "normal" and "angband" terminal settings
316 static struct termios norm_termios;
318 static struct termios game_termios;
324 static struct termio norm_termio;
326 static struct termio game_termio;
331 static struct ltchars norm_speciax_chars;
332 static struct sgttyb norm_ttyb;
333 static struct tchars norm_tchars;
334 static int norm_locax_chars;
336 static struct ltchars game_speciax_chars;
337 static struct sgttyb game_ttyb;
338 static struct tchars game_tchars;
339 static int game_locax_chars;
343 * Hack -- Number of initialized "term" structures
345 static int active = 0;
349 * Hack -- define "A_BRIGHT" to be "A_BOLD", because on many
350 * machines, "A_BRIGHT" produces ugly "inverse" video.
353 #define A_BRIGHT A_BOLD
357 * Software flag -- we are allowed to use color
359 static int can_use_color = false;
362 * Software flag -- we are allowed to change the colors
364 static int can_fix_color = false;
367 * Simple Angband to Curses color conversion table
369 static int colortable[16];
372 * Background color we should draw with; either BLACK or DEFAULT
374 static int bg_color = COLOR_BLACK;
379 * Place the "keymap" into its "normal" state
381 static void keymap_norm(void)
384 /* restore the saved values of the special chars */
385 (void)tcsetattr(0, TCSAFLUSH, &norm_termios);
389 /* restore the saved values of the special chars */
390 (void)ioctl(0, TCSETA, (char *)&norm_termio);
394 /* restore the saved values of the special chars */
395 (void)ioctl(0, TIOCSLTC, (char *)&norm_speciax_chars);
396 (void)ioctl(0, TIOCSETP, (char *)&norm_ttyb);
397 (void)ioctl(0, TIOCSETC, (char *)&norm_tchars);
398 (void)ioctl(0, TIOCLSET, (char *)&norm_locax_chars);
403 * Place the "keymap" into the "game" state
405 static void keymap_game(void)
408 /* restore the saved values of the special chars */
409 (void)tcsetattr(0, TCSAFLUSH, &game_termios);
413 /* restore the saved values of the special chars */
414 (void)ioctl(0, TCSETA, (char *)&game_termio);
418 /* restore the saved values of the special chars */
419 (void)ioctl(0, TIOCSLTC, (char *)&game_speciax_chars);
420 (void)ioctl(0, TIOCSETP, (char *)&game_ttyb);
421 (void)ioctl(0, TIOCSETC, (char *)&game_tchars);
422 (void)ioctl(0, TIOCLSET, (char *)&game_locax_chars);
427 * Save the normal keymap
429 static void keymap_norm_prepare(void)
432 /* Get the normal keymap */
433 tcgetattr(0, &norm_termios);
437 /* Get the normal keymap */
438 (void)ioctl(0, TCGETA, (char *)&norm_termio);
442 /* Get the normal keymap */
443 (void)ioctl(0, TIOCGETP, (char *)&norm_ttyb);
444 (void)ioctl(0, TIOCGLTC, (char *)&norm_speciax_chars);
445 (void)ioctl(0, TIOCGETC, (char *)&norm_tchars);
446 (void)ioctl(0, TIOCLGET, (char *)&norm_locax_chars);
451 * Save the keymaps (normal and game)
453 static void keymap_game_prepare(void)
456 /* Acquire the current mapping */
457 tcgetattr(0, &game_termios);
459 /* Force "Ctrl-C" to interupt */
460 game_termios.c_cc[VINTR] = (char)3;
462 /* Force "Ctrl-Z" to suspend */
463 game_termios.c_cc[VSUSP] = (char)26;
465 /* Hack -- Leave "VSTART/VSTOP" alone */
467 /* Disable the standard control characters */
468 game_termios.c_cc[VQUIT] = (char)-1;
469 game_termios.c_cc[VERASE] = (char)-1;
470 game_termios.c_cc[VKILL] = (char)-1;
471 game_termios.c_cc[VEOF] = (char)-1;
472 game_termios.c_cc[VEOL] = (char)-1;
474 /* Normally, block until a character is read */
475 game_termios.c_cc[VMIN] = 1;
476 game_termios.c_cc[VTIME] = 0;
480 /* Acquire the current mapping */
481 (void)ioctl(0, TCGETA, (char *)&game_termio);
483 /* Force "Ctrl-C" to interupt */
484 game_termio.c_cc[VINTR] = (char)3;
486 /* Force "Ctrl-Z" to suspend */
487 game_termio.c_cc[VSUSP] = (char)26;
489 /* Disable the standard control characters */
490 game_termio.c_cc[VQUIT] = (char)-1;
491 game_termio.c_cc[VERASE] = (char)-1;
492 game_termio.c_cc[VKILL] = (char)-1;
493 game_termio.c_cc[VEOF] = (char)-1;
494 game_termio.c_cc[VEOL] = (char)-1;
496 /* Normally, block until a character is read */
497 game_termio.c_cc[VMIN] = 1;
498 game_termio.c_cc[VTIME] = 0;
502 /* Get the default game characters */
503 (void)ioctl(0, TIOCGETP, (char *)&game_ttyb);
504 (void)ioctl(0, TIOCGLTC, (char *)&game_speciax_chars);
505 (void)ioctl(0, TIOCGETC, (char *)&game_tchars);
506 (void)ioctl(0, TIOCLGET, (char *)&game_locax_chars);
508 /* Force suspend (^Z) */
509 game_speciax_chars.t_suspc = (char)26;
511 /* Cancel some things */
512 game_speciax_chars.t_dsuspc = (char)-1;
513 game_speciax_chars.t_rprntc = (char)-1;
514 game_speciax_chars.t_flushc = (char)-1;
515 game_speciax_chars.t_werasc = (char)-1;
516 game_speciax_chars.t_lnextc = (char)-1;
518 /* Force interupt (^C) */
519 game_tchars.t_intrc = (char)3;
521 /* Force start/stop (^Q, ^S) */
522 game_tchars.t_startc = (char)17;
523 game_tchars.t_stopc = (char)19;
525 /* Cancel some things */
526 game_tchars.t_quitc = (char)-1;
527 game_tchars.t_eofc = (char)-1;
528 game_tchars.t_brkc = (char)-1;
535 static errr Term_xtra_gcu_alive(int v)
538 /* Go to normal keymap mode */
546 /* Hack -- make sure the cursor is visible */
547 term_xtra(TERM_XTRA_SHAPE, 1);
549 /* Flush the curses buffer */
552 /* this moves curses to bottom right corner */
553 mvcur(getcury(curscr), getcurx(curscr), LINES - 1, 0);
558 /* Flush the output */
559 (void)fflush(stdout);
561 /* Restore the settings */
566 /* Go to angband keymap mode */
574 * Check for existance of a file
576 static bool check_file(concptr s)
590 static bool init_sound(void)
592 /* Initialize once */
594 return can_use_sound;
600 /* Prepare the sounds */
601 for (i = 1; i < SOUND_MAX; i++) {
602 /* Extract name of sound file */
603 sprintf(wav, "%s.wav", angband_sound_name[i]);
605 /* Access the sound */
606 path_build(buf, sizeof(buf), ANGBAND_DIR_XTRA_SOUND, wav);
608 /* Save the sound filename, if it exists */
610 sound_file[i] = string_make(buf);
613 /* Sound available */
614 can_use_sound = true;
615 return (can_use_sound);
619 * Init the "curses" system
621 static void Term_init_gcu(term_type *t)
623 term_data *td = (term_data *)(t->data);
625 /* Count init's, handle first */
629 /* Erase the screen */
630 (void)wclear(td->win);
632 /* Reset the cursor */
633 (void)wmove(td->win, 0, 0);
636 (void)wrefresh(td->win);
643 * Nuke the "curses" system
645 static void Term_nuke_gcu(term_type *t)
647 term_data *td = (term_data *)(t->data);
649 /* Delete this window */
652 /* Count nuke's, handle last */
656 /* Hack -- make sure the cursor is visible */
657 term_xtra(TERM_XTRA_SHAPE, 1);
660 /* Reset colors to defaults */
664 /* This moves curses to bottom right corner */
665 mvcur(getcury(curscr), getcurx(curscr), LINES - 1, 0);
667 /* Flush the curses buffer */
673 /* Flush the output */
674 (void)fflush(stdout);
681 * Push multiple keys reversal
683 static void term_string_push(char *buf)
685 int i, l = strlen(buf);
686 for (i = l; i >= 0; i--)
687 term_key_push(buf[i]);
693 * Process events, with optional wait
695 static errr Term_xtra_gcu_event(int v)
704 /* Paranoia -- Wait for it */
705 nodelay(stdscr, false);
710 /* Broken input is special */
712 exit_game_panic(p_ptr);
714 exit_game_panic(p_ptr);
718 /* Do not wait for it */
719 nodelay(stdscr, true);
721 while ((i = getch()) != EOF) {
723 exit_game_panic(p_ptr);
729 /* Wait for it next time */
730 nodelay(stdscr, false);
734 char eucbuf[sizeof(buf)];
735 /* strlen + 1 を渡して文字列終端('\0')を含めて変換する */
736 if (utf8_to_euc(buf, strlen(buf) + 1, eucbuf, sizeof(eucbuf)) < 0) {
740 term_string_push(_(eucbuf, buf));
745 /* Do not wait for it */
746 nodelay(stdscr, true);
748 /* Check for keypresses */
751 /* Wait for it next time */
752 nodelay(stdscr, false);
760 /* Enqueue the keypress */
768 #else /* USE_GETCH */
771 * Process events (with optional wait)
773 static errr Term_xtra_gcu_event(int v)
783 /* Wait for one byte */
784 i = read(0, bp++, 1);
786 /* Hack -- Handle bizarre "errors" */
787 if ((i <= 0) && (errno != EINTR))
788 exit_game_panic(p_ptr);
790 /* Get the current flags for stdin */
791 k = fcntl(0, F_GETFL, 0);
797 /* Tell stdin not to block */
798 if (fcntl(0, F_SETFL, k | O_NDELAY) >= 0) {
799 if ((i = read(0, bp, 254)) > 0) {
803 /* Replace the flags for stdin */
804 if (fcntl(0, F_SETFL, k))
810 char eucbuf[sizeof(buf)];
811 /* strlen + 1 を渡して文字列終端('\0')を含めて変換する */
812 if (utf8_to_euc(buf, strlen(buf) + 1, eucbuf, sizeof(eucbuf)) < 0) {
816 term_string_push(_(eucbuf, buf));
821 /* Get the current flags for stdin */
822 k = fcntl(0, F_GETFL, 0);
828 /* Tell stdin not to block */
829 if (fcntl(0, F_SETFL, k | O_NDELAY) < 0)
832 /* Read one byte, if possible */
835 /* Replace the flags for stdin */
836 if (fcntl(0, F_SETFL, k))
839 /* Ignore "invalid" keys */
840 if ((i != 1) || (!buf[0]))
843 /* Enqueue the keypress */
844 term_key_push(buf[0]);
851 #endif /* USE_GETCH */
854 * Hack -- make a sound
856 static errr Term_xtra_gcu_sound(int v)
865 if ((v < 0) || (v >= SOUND_MAX))
872 sprintf(buf, "./gcusound.sh %s\n", sound_file[v]);
874 return (system(buf) < 0);
879 static int scale_color(int i, int j, int scale)
881 return (angband_color_table[i][j] * (scale - 1) + 127) / 255;
884 static int create_color(int i, int scale)
886 int r = scale_color(i, 1, scale);
887 int g = scale_color(i, 2, scale);
888 int b = scale_color(i, 3, scale);
889 int rgb = 16 + scale * scale * r + scale * g + b;
890 /* In the case of white and black we need to use the ANSI colors */
891 if (r == g && g == b) {
903 static errr Term_xtra_gcu_react(void)
908 if (!can_change_color()) {
909 if (COLORS == 256 || COLORS == 88) {
910 /* If we have more than 16 colors, find the best matches. These numbers
911 * correspond to xterm/rxvt's builtin color numbers--they do not
912 * correspond to curses' constants OR with curses' color pairs.
914 * XTerm has 216 (6*6*6) RGB colors, with each RGB setting 0-5.
915 * RXVT has 64 (4*4*4) RGB colors, with each RGB setting 0-3.
917 * Both also have the basic 16 ANSI colors, plus some extra grayscale
918 * colors which we do not use.
920 int scale = COLORS == 256 ? 6 : 4;
921 for (int i = 0; i < 16; i++) {
922 int fg = create_color(i, scale);
923 init_pair(i + 1, fg, bg_color);
924 colortable[i] = COLOR_PAIR(i + 1) | A_NORMAL;
928 for (int i = 0; i < 16; ++i) {
930 (angband_color_table[i][1] * 1000) / 255,
931 (angband_color_table[i][2] * 1000) / 255,
932 (angband_color_table[i][3] * 1000) / 255);
943 * Handle a "special request"
945 static errr Term_xtra_gcu(int n, int v)
947 term_data *td = (term_data *)(Term->data);
949 /* Analyze the request */
952 case TERM_XTRA_CLEAR:
954 (void)wclear(td->win);
958 case TERM_XTRA_NOISE:
959 return write(1, "\007", 1) != 1;
961 /* Make a special sound */
962 case TERM_XTRA_SOUND:
963 return (Term_xtra_gcu_sound(v));
965 /* Flush the Curses buffer */
966 case TERM_XTRA_FRESH:
967 (void)wrefresh(td->win);
970 /* Change the cursor visibility */
971 case TERM_XTRA_SHAPE:
975 /* Suspend/Resume curses */
976 case TERM_XTRA_ALIVE:
977 return (Term_xtra_gcu_alive(v));
980 case TERM_XTRA_EVENT:
981 return (Term_xtra_gcu_event(v));
984 case TERM_XTRA_FLUSH:
985 while (!Term_xtra_gcu_event(false))
990 case TERM_XTRA_DELAY:
994 /* React to events */
995 case TERM_XTRA_REACT:
996 Term_xtra_gcu_react();
1005 * Actually MOVE the hardware cursor
1007 static errr Term_curs_gcu(int x, int y)
1009 term_data *td = (term_data *)(Term->data);
1011 /* Literally move the cursor */
1012 wmove(td->win, y, x);
1019 * Erase a grid of space
1020 * Hack -- try to be "semi-efficient".
1022 static errr Term_wipe_gcu(int x, int y, int n)
1024 term_data *td = (term_data *)(Term->data);
1027 wmove(td->win, y, x);
1029 /* Clear to end of line */
1034 /* Clear some characters */
1037 waddch(td->win, ' ');
1044 #ifdef USE_NCURSES_ACS
1046 * this function draws some ACS characters on the screen
1047 * for DOS-based users: these are the graphical chars (blocks, lines etc)
1049 * unix-gurus: before you start adding other attributes like A_REVERSE
1050 * think hard about how map_info() in cave.c should handle the color
1051 * of something that we here draw in reverse. It's not so simple, alas.
1053 static void Term_acs_text_gcu(int x, int y, int n, byte a, concptr s)
1055 term_data *td = (term_data *)(Term->data);
1058 /* position the cursor */
1059 wmove(td->win, y, x);
1063 wattrset(td->win, colortable[a & 0x0F]);
1066 for (i = 0; i < n; i++) {
1067 /* add acs_map of a */
1068 waddch(td->win, acs_map[(int)s[i]]);
1070 wattrset(td->win, WA_NORMAL);
1075 * Place some text on the screen using an attribute
1077 static errr Term_text_gcu(int x, int y, int n, byte a, concptr s)
1079 term_data *td = (term_data *)(Term->data);
1081 #ifdef USE_NCURSES_ACS
1082 /* do we have colors + 16 ? */
1083 /* then call special routine for drawing special characters */
1085 Term_acs_text_gcu(x, y, n, a, s);
1090 /* Move the cursor and dump the string */
1091 wmove(td->win, y, x);
1096 wattrset(td->win, colortable[a & 0x0F]);
1101 int text_len = euc_to_utf8(s, n, text, sizeof(text));
1107 waddnstr(td->win, _(text, s), _(text_len, n));
1114 * Create a window for the given "term_data" argument.
1116 * Assumes legal arguments.
1118 static errr term_data_init_gcu(term_data *td, int rows, int cols, int y, int x)
1120 term_type *t = &td->t;
1122 /* Make sure the window has a positive size */
1123 if (rows <= 0 || cols <= 0)
1126 /* Create a window */
1127 td->win = newwin(rows, cols, y, x);
1129 /* Make sure we succeed */
1131 plog("Failed to setup curses window.");
1135 /* Initialize the term */
1136 term_init(t, cols, rows, 256);
1138 /* Avoid the bottom right corner */
1139 t->icky_corner = true;
1141 /* Erase with "white space" */
1142 t->attr_blank = TERM_WHITE;
1143 t->char_blank = ' ';
1145 /* Set some hooks */
1146 t->init_hook = Term_init_gcu;
1147 t->nuke_hook = Term_nuke_gcu;
1149 /* Set some more hooks */
1150 t->text_hook = Term_text_gcu;
1151 t->wipe_hook = Term_wipe_gcu;
1152 t->curs_hook = Term_curs_gcu;
1153 t->xtra_hook = Term_xtra_gcu;
1168 static errr term_data_init(term_data *td)
1170 return term_data_init_gcu(td, td->r.cy, td->r.cx, td->r.y, td->r.x);
1173 /* Parse 27,15,*x30 up to the 'x'. * gets converted to a big number
1174 Parse 32,* until the end. Return count of numbers parsed */
1175 static int _parse_size_list(const char *arg, int sizes[], int max)
1178 const char *start = arg;
1179 const char *stop = arg;
1182 if (!*stop || !isdigit(*stop)) {
1188 /* rely on atoi("23,34,*") -> 23
1189 otherwise, copy [start, stop) into a new buffer first.*/
1190 sizes[i] = atoi(start);
1193 if (!*stop || *stop != ',')
1204 static void hook_quit(concptr str)
1214 * Prepare "curses" for use by the file "term.c"
1216 * Installs the "hook" functions defined above, and then activates
1217 * the main screen "term", which clears the screen and such things.
1219 * Someone should really check the semantics of "initscr()"
1221 errr init_gcu(int argc, char *argv[])
1225 int num_term = 4, next_win = 0;
1232 setlocale(LC_ALL, "");
1234 /* Build the "sound" path */
1235 path_build(path, sizeof(path), ANGBAND_DIR_XTRA, "sound");
1237 /* Allocate the path */
1238 ANGBAND_DIR_XTRA_SOUND = string_make(path);
1240 /* Extract the normal keymap */
1241 keymap_norm_prepare();
1243 bool nobigscreen = false;
1246 for (i = 1; i < argc; i++) {
1247 if (prefix(argv[i], "-o")) {
1252 /* Initialize for others systems */
1253 if (initscr() == (WINDOW *)ERR)
1256 /* Activate hooks */
1257 quit_aux = hook_quit;
1258 core_aux = hook_quit;
1260 /* Hack -- Require large screen, or Quit with message */
1261 i = ((LINES < 24) || (COLS < 80));
1263 quit("Angband needs an 80x24 'curses' screen");
1267 /*** Init the Color-pairs and set up a translation table ***/
1269 /* Do we have color, and enough color, available? */
1270 can_use_color = ((start_color() != ERR) && has_colors() && (COLORS >= 8) && (COLOR_PAIRS >= 8));
1272 #ifdef REDEFINE_COLORS
1273 /* Can we change colors? */
1274 can_fix_color = (can_use_color && can_change_color() && (COLORS >= 16) && (COLOR_PAIRS > 8));
1277 /* Attempt to use customized colors */
1278 if (can_fix_color) {
1279 /* Prepare the color pairs */
1280 for (i = 1; i <= 15; i++) {
1281 if (init_pair(i, i, 0) == ERR) {
1282 quit("Color pair init failed");
1285 colortable[i] = COLOR_PAIR(i);
1286 Term_xtra_gcu_react();
1289 /* Attempt to use colors */
1290 else if (can_use_color) {
1291 /* Color-pair 0 is *always* WHITE on BLACK */
1293 /* Prepare the color pairs */
1294 init_pair(1, COLOR_RED, COLOR_BLACK);
1295 init_pair(2, COLOR_GREEN, COLOR_BLACK);
1296 init_pair(3, COLOR_YELLOW, COLOR_BLACK);
1297 init_pair(4, COLOR_BLUE, COLOR_BLACK);
1298 init_pair(5, COLOR_MAGENTA, COLOR_BLACK);
1299 init_pair(6, COLOR_CYAN, COLOR_BLACK);
1300 init_pair(7, COLOR_BLACK, COLOR_BLACK);
1302 /* Prepare the "Angband Colors" -- Bright white is too bright */
1303 /* Changed in Drangband. Cyan as grey sucks -- -TM- */
1304 colortable[0] = (COLOR_PAIR(7) | A_NORMAL); /* Black */
1305 colortable[1] = (COLOR_PAIR(0) | A_BRIGHT); /* White */
1306 colortable[2] = (COLOR_PAIR(0) | A_NORMAL); /* Grey XXX */
1307 colortable[3] = (COLOR_PAIR(1) | A_BRIGHT); /* Orange XXX */
1308 colortable[4] = (COLOR_PAIR(1) | A_NORMAL); /* Red */
1309 colortable[5] = (COLOR_PAIR(2) | A_NORMAL); /* Green */
1310 colortable[6] = (COLOR_PAIR(4) | A_BRIGHT); /* Blue */
1311 colortable[7] = (COLOR_PAIR(3) | A_NORMAL); /* Umber */
1312 colortable[8] = (COLOR_PAIR(7) | A_BRIGHT); /* Dark-grey XXX */
1313 colortable[9] = (COLOR_PAIR(0) | A_NORMAL); /* Light-grey XXX */
1314 colortable[10] = (COLOR_PAIR(5) | A_BRIGHT); /* Purple */
1315 colortable[11] = (COLOR_PAIR(3) | A_BRIGHT); /* Yellow */
1316 colortable[12] = (COLOR_PAIR(5) | A_NORMAL); /* Light Red XXX */
1317 colortable[13] = (COLOR_PAIR(2) | A_BRIGHT); /* Light Green */
1318 colortable[14] = (COLOR_PAIR(6) | A_BRIGHT); /* Light Blue */
1319 colortable[15] = (COLOR_PAIR(3) | A_NORMAL); /* Light Umber XXX */
1324 /* Handle "arg_sound" */
1325 if (use_sound != arg_sound) {
1326 /* Initialize (if needed) */
1327 if (arg_sound && !init_sound()) {
1329 plog("Cannot initialize sound!");
1335 /* Change setting */
1336 use_sound = arg_sound;
1341 /* if USE_NCURSES_ACS is defined, we can do something with graphics in curses! */
1342 #ifdef USE_NCURSES_ACS
1343 use_graphics = true;
1347 /*** Low level preparation ***/
1351 /* Paranoia -- Assume no waiting */
1352 nodelay(stdscr, false);
1362 /* Extract the game keymap */
1363 keymap_game_prepare();
1365 /*** Now prepare the term(s) ***/
1367 /* Create several terms */
1368 for (i = 0; i < num_term; i++) {
1369 int rows, cols, y, x;
1371 /* Decide on size and position */
1410 rows = cols = y = x = 0;
1415 /* Skip non-existant windows */
1416 if (rows <= 0 || cols <= 0)
1420 term_data_init_gcu(&data[next_win], rows, cols, y, x);
1422 /* Remember the term */
1423 angband_term[next_win] = &data[next_win].t;
1425 /* One more window */
1429 /* Parse Args and Prepare the Terminals. Rectangles are specified
1430 as Width x Height, right? The game will allow you to have two
1431 strips of extra terminals, one on the right and one on the bottom.
1432 The map terminal will than fit in as big as possible in the remaining
1435 angband -mgcu -- -right 30x27,* -bottom *x7 will layout as
1436 Term-0: Map (COLS-30)x(LINES-7) | Term-1: 30x27
1437 --------------------------------|----------------------
1438 <----Term-3: (COLS-30)x7------->| Term-2: 30x(LINES-27)
1439 composband -mgcu -- -bottom *x7 -right 30x27,* will layout as
1440 Term-0: Map (COLS-30)x(LINES-7) | Term-2: 30x27
1441 |------------------------------
1442 | Term-3: 30x(LINES-27)
1443 ---------------------------------------------------------------
1444 <----------Term-1: (COLS)x7----------------------------------->
1445 Notice the effect on the bottom terminal by specifying its argument
1446 second or first. Notice the sequence numbers for the various terminals
1447 as you will have to blindly configure them in the window setup screen.
1448 EDIT: Added support for -left and -top.
1451 rect_t remaining = rect(0, 0, COLS, LINES);
1457 for (i = 1; i < argc; i++) {
1458 if (streq(argv[i], "-spacer")) {
1461 quit("Missing size specifier for -spacer");
1462 sscanf(argv[i], "%dx%d", &spacer_cx, &spacer_cy);
1463 } else if (streq(argv[i], "-right") || streq(argv[i], "-left")) {
1464 const char *arg, *tmp;
1465 bool left = streq(argv[i], "-left");
1466 int cx, cys[MAX_TERM_DATA] = { 0 }, ct, j, x, y;
1470 quit(format("Missing size specifier for -%s", left ? "left" : "right"));
1473 tmp = strchr(arg, 'x');
1475 quit(format("Expected something like -%s 60x27,* for two %s hand terminals of 60 columns, the first 27 lines and the second whatever is left.", left ? "left" : "right", left ? "left" : "right"));
1483 x = remaining.x + remaining.cx;
1486 remaining.cx -= spacer_cx;
1488 remaining.x += spacer_cx;
1491 ct = _parse_size_list(tmp, cys, MAX_TERM_DATA);
1492 for (j = 0; j < ct; j++) {
1494 if (y + cy > remaining.y + remaining.cy)
1495 cy = remaining.y + remaining.cy - y;
1496 if (next_term >= MAX_TERM_DATA)
1497 quit(format("Too many terminals. Only %d are allowed.", MAX_TERM_DATA));
1499 quit(format("Out of bounds in -%s: %d is too large (%d rows max for this strip)",
1500 left ? "left" : "right", cys[j], remaining.cy));
1502 data[next_term++].r = rect(x, y, cx, cy);
1503 y += cy + spacer_cy;
1506 } else if (streq(argv[i], "-top") || streq(argv[i], "-bottom")) {
1507 const char *arg, *tmp;
1508 bool top = streq(argv[i], "-top");
1509 int cy, cxs[MAX_TERM_DATA] = { 0 }, ct, j, x, y;
1513 quit(format("Missing size specifier for -%s", top ? "top" : "bottom"));
1516 tmp = strchr(arg, 'x');
1518 quit(format("Expected something like -%s *x7 for a single %s terminal of 7 lines using as many columns as are available.", top ? "top" : "bottom", top ? "top" : "bottom"));
1521 ct = _parse_size_list(arg, cxs, MAX_TERM_DATA);
1530 y = remaining.y + remaining.cy;
1532 remaining.cy -= spacer_cy;
1534 remaining.y += spacer_cy;
1537 for (j = 0; j < ct; j++) {
1539 if (x + cx > remaining.x + remaining.cx)
1540 cx = remaining.x + remaining.cx - x;
1541 if (next_term >= MAX_TERM_DATA)
1542 quit(format("Too many terminals. Only %d are allowed.", MAX_TERM_DATA));
1544 quit(format("Out of bounds in -%s: %d is too large (%d cols max for this strip)",
1545 top ? "top" : "bottom", cxs[j], remaining.cx));
1547 data[next_term++].r = rect(x, y, cx, cy);
1548 x += cx + spacer_cx;
1555 if (remaining.cx < MIN_TERM0_COLS || remaining.cy < MIN_TERM0_LINES)
1556 quit(format("Failed: angband needs an %dx%d map screen, not %dx%d", MIN_TERM0_COLS, MIN_TERM0_LINES, remaining.cx, remaining.cy));
1557 data[0].r = remaining;
1558 term_data_init(&data[0]);
1559 angband_term[0] = Term;
1561 /* Child Terminals */
1562 for (next_term = 1; next_term < term_ct; next_term++) {
1563 term_data_init(&data[next_term]);
1564 angband_term[next_term] = Term;
1568 /* Activate the "Angband" window screen */
1569 term_activate(&data[0].t);
1572 term_screen = &data[0].t;
1578 #endif /* USE_GCU */