/nethack/win/share/tiletext.c
C | 332 lines | 280 code | 38 blank | 14 comment | 73 complexity | bafadfe033214c966560a1af19fb1407 MD5 | raw file
Possible License(s): LGPL-2.0
- /* SCCS Id: @(#)tiletext.c 3.4 1999/10/24 */
- /* NetHack may be freely redistributed. See license for details. */
- #include "config.h"
- #include "tile.h"
- pixval ColorMap[3][MAXCOLORMAPSIZE];
- int colorsinmap;
- pixval MainColorMap[3][MAXCOLORMAPSIZE];
- int colorsinmainmap;
- static short color_index[MAXCOLORMAPSIZE];
- static int num_colors;
- static char charcolors[MAXCOLORMAPSIZE];
- static int placeholder_init = 0;
- static pixel placeholder[TILE_Y][TILE_X];
- static FILE *tile_file;
- static int tile_set, tile_set_indx;
- #if (TILE_X==8)
- static const char *text_sets[] = { "monthin.txt", "objthin.txt", "oththin.txt" };
- #else
- static const char *text_sets[] = { "monsters.txt", "objects.txt", "other.txt" };
- #endif
- extern const char *FDECL(tilename, (int, int));
- static void FDECL(read_text_colormap, (FILE *));
- static boolean FDECL(write_text_colormap, (FILE *));
- static boolean FDECL(read_txttile, (FILE *, pixel(*)[TILE_X]));
- static void FDECL(write_txttile, (FILE *, pixel(*)[TILE_X]));
- /* Ugh. DICE doesn't like %[A-Z], so we have to spell it out... */
- #define FORMAT_STRING \
- "%[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789] = (%d, %d, %d) "
- static void
- read_text_colormap(txtfile)
- FILE *txtfile;
- {
- int i, r, g, b;
- char c[2];
- for (i = 0; i < MAXCOLORMAPSIZE; i++)
- color_index[i] = -1;
- num_colors = 0;
- while (fscanf(txtfile, FORMAT_STRING, c, &r, &g, &b) == 4) {
- color_index[(int) c[0]] = num_colors;
- ColorMap[CM_RED][num_colors] = r;
- ColorMap[CM_GREEN][num_colors] = g;
- ColorMap[CM_BLUE][num_colors] = b;
- num_colors++;
- }
- colorsinmap = num_colors;
- }
- #undef FORMAT_STRING
- static boolean
- write_text_colormap(txtfile)
- FILE *txtfile;
- {
- int i;
- char c;
- num_colors = colorsinmainmap;
- if (num_colors > 62) {
- Fprintf(stderr, "too many colors (%d)\n", num_colors);
- return FALSE;
- }
- for (i = 0; i < num_colors; i++) {
- if (i < 26) c = 'A' + i;
- else if (i < 52) c = 'a' + i - 26;
- else c = '0' + i - 52;
- charcolors[i] = c;
- Fprintf(txtfile, "%c = (%d, %d, %d)\n", c,
- (int)MainColorMap[CM_RED][i],
- (int)MainColorMap[CM_GREEN][i],
- (int)MainColorMap[CM_BLUE][i]);
- }
- return TRUE;
- }
- static boolean
- read_txttile(txtfile, pixels)
- FILE *txtfile;
- pixel (*pixels)[TILE_X];
- {
- int ph, i, j, k;
- char buf[BUFSZ], ttype[BUFSZ];
- const char *p;
- char c[2];
- if (fscanf(txtfile, "# %s %d (%[^)])", ttype, &i, buf) <= 0)
- return FALSE;
-
- ph = strcmp(ttype, "placeholder") == 0;
- if (!ph && strcmp(ttype,"tile") != 0)
- Fprintf(stderr,
- "Keyword \"%s\" unexpected for entry %d\n",
- ttype, i);
- if (tile_set != 0) {
- /* check tile name, but not relative number, which will
- * change when tiles are added
- */
- p = tilename(tile_set, tile_set_indx);
- if (p && strcmp(p, buf)) {
- Fprintf(stderr, "warning: for tile %d (numbered %d) of %s,\n",
- tile_set_indx, i, text_sets[tile_set-1]);
- Fprintf(stderr, "\tfound '%s' while expecting '%s'\n",
- buf, p);
- }
- }
- tile_set_indx++;
-
- /* look for non-whitespace at each stage */
- if (fscanf(txtfile, "%1s", c) < 0) {
- Fprintf(stderr, "unexpected EOF\n");
- return FALSE;
- }
- if (c[0] != '{') {
- Fprintf(stderr, "didn't find expected '{'\n");
- return FALSE;
- }
- for (j = 0; j < TILE_Y; j++) {
- for (i = 0; i < TILE_X; i++) {
- if (fscanf(txtfile, "%1s", c) < 0) {
- Fprintf(stderr, "unexpected EOF\n");
- return FALSE;
- }
- k = color_index[(int) c[0]];
- if (k == -1)
- Fprintf(stderr,
- "color %c not in colormap!\n", c[0]);
- else {
- pixels[j][i].r = ColorMap[CM_RED][k];
- pixels[j][i].g = ColorMap[CM_GREEN][k];
- pixels[j][i].b = ColorMap[CM_BLUE][k];
- }
- }
- }
- if ( ph ) {
- /* remember it for later */
- memcpy( placeholder, pixels, sizeof(placeholder) );
- }
- if (fscanf(txtfile, "%1s ", c) < 0) {
- Fprintf(stderr, "unexpected EOF\n");
- return FALSE;
- }
- if (c[0] != '}') {
- Fprintf(stderr, "didn't find expected '}'\n");
- return FALSE;
- }
- #ifdef _DCC
- /* DICE again... it doesn't seem to eat whitespace after the } like
- * it should, so we have to do so manually.
- */
- while ((*c = fgetc(txtfile)) != EOF && isspace(*c))
- ;
- ungetc(*c, txtfile);
- #endif
- return TRUE;
- }
- static void
- write_txttile(txtfile, pixels)
- FILE *txtfile;
- pixel (*pixels)[TILE_X];
- {
- const char *p;
- const char *type;
- int i, j, k;
- if ( memcmp(placeholder, pixels, sizeof(placeholder)) == 0 )
- type = "placeholder";
- else
- type = "tile";
- if (tile_set == 0)
- Fprintf(txtfile, "# %s %d (unknown)\n", type, tile_set_indx);
- else {
- p = tilename(tile_set, tile_set_indx);
- if (p)
- Fprintf(txtfile, "# %s %d (%s)\n", type, tile_set_indx, p);
- else
- Fprintf(txtfile, "# %s %d (null)\n", type, tile_set_indx);
- }
- tile_set_indx++;
- Fprintf(txtfile, "{\n");
- for (j = 0; j < TILE_Y; j++) {
- Fprintf(txtfile, " ");
- for (i = 0; i < TILE_X; i++) {
- for (k = 0; k < num_colors; k++) {
- if (ColorMap[CM_RED][k] == pixels[j][i].r &&
- ColorMap[CM_GREEN][k] == pixels[j][i].g &&
- ColorMap[CM_BLUE][k] == pixels[j][i].b)
- break;
- }
- if (k >= num_colors)
- Fprintf(stderr, "color not in colormap!\n");
- (void) fputc(charcolors[k], txtfile);
- }
- Fprintf(txtfile, "\n");
- }
- Fprintf(txtfile, "}\n");
- }
- /* initialize main colormap from globally accessed ColorMap */
- void
- init_colormap()
- {
- int i;
- colorsinmainmap = colorsinmap;
- for (i = 0; i < colorsinmap; i++) {
- MainColorMap[CM_RED][i] = ColorMap[CM_RED][i];
- MainColorMap[CM_GREEN][i] = ColorMap[CM_GREEN][i];
- MainColorMap[CM_BLUE][i] = ColorMap[CM_BLUE][i];
- }
- }
- /* merge new colors from ColorMap into MainColorMap */
- void
- merge_colormap()
- {
- int i, j;
- for (i = 0; i < colorsinmap; i++) {
- for (j = 0; j < colorsinmainmap; j++) {
- if (MainColorMap[CM_RED][j] == ColorMap[CM_RED][i] &&
- MainColorMap[CM_GREEN][j] == ColorMap[CM_GREEN][i] &&
- MainColorMap[CM_BLUE][j] == ColorMap[CM_BLUE][i])
- break;
- }
- if (j >= colorsinmainmap) { /* new color */
- if (colorsinmainmap >= MAXCOLORMAPSIZE) {
- Fprintf(stderr,
- "Too many colors to merge -- excess ignored.\n");
- }
- j = colorsinmainmap;
- MainColorMap[CM_RED][j] = ColorMap[CM_RED][i];
- MainColorMap[CM_GREEN][j] = ColorMap[CM_GREEN][i];
- MainColorMap[CM_BLUE][j] = ColorMap[CM_BLUE][i];
- colorsinmainmap++;
- }
- }
- }
- boolean
- fopen_text_file(filename, type)
- const char *filename;
- const char *type;
- {
- const char *p;
- int i;
- if (tile_file != (FILE *)0) {
- Fprintf(stderr, "can only open one text file at at time\n");
- return FALSE;
- }
- tile_file = fopen(filename, type);
- if (tile_file == (FILE *)0) {
- Fprintf(stderr, "cannot open text file %s\n", filename);
- return FALSE;
- }
- p = rindex(filename, '/');
- if (p) p++;
- else p = filename;
- tile_set = 0;
- for (i = 0; i < SIZE(text_sets); i++) {
- if (!strcmp(p, text_sets[i]))
- tile_set = i+1;
- }
- tile_set_indx = 0;
- if (!strcmp(type, RDTMODE)) {
- /* Fill placeholder with noise */
- if ( !placeholder_init ) {
- placeholder_init++;
- for ( i=0; i<sizeof(placeholder); i++ )
- ((char*)placeholder)[i]=i%256;
- }
- read_text_colormap(tile_file);
- if (!colorsinmainmap)
- init_colormap();
- else
- merge_colormap();
- return TRUE;
- } else if (!strcmp(type, WRTMODE)) {
- if (!colorsinmainmap) {
- Fprintf(stderr, "no colormap set yet\n");
- return FALSE;
- }
- return(write_text_colormap(tile_file));
- } else {
- Fprintf(stderr, "bad mode (%s) for fopen_text_file\n", type);
- return FALSE;
- }
- }
- boolean
- read_text_tile(pixels)
- pixel (*pixels)[TILE_X];
- {
- return(read_txttile(tile_file, pixels));
- }
- boolean
- write_text_tile(pixels)
- pixel (*pixels)[TILE_X];
- {
- write_txttile(tile_file, pixels);
- return TRUE;
- }
- int
- fclose_text_file()
- {
- int ret;
- ret = fclose(tile_file);
- tile_file = (FILE *)0;
- return ret;
- }