/*
 *        yadex.cc
 *        The main module.
 *        BW & RQ sometime in 1993 or 1994.
 */


/*
This file is part of Yadex.

Yadex incorporates code from DEU 5.21 that was put in the public domain in
1994 by Raphaël Quinet and Brendon Wyber.

The rest of Yadex is Copyright © 1997-2003 André Majorel and others.

This program is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free Software
Foundation; either version 2 of the License, or (at your option) any later
version.

This program is distributed in the hope that it will be useful, but WITHOUT
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along with
this program; if not, write to the Free Software Foundation, Inc., 59 Temple
Place, Suite 330, Boston, MA 02111-1307, USA.
*/


#include "yadex.h"
#include <time.h>
#include "acolours.h"
#include "bench.h"
#include "cfgfile.h"
#include "disppic.h"                /* Because of "p" */
#include "editlev.h"
#include "endian.h"
#include "flats.h"
#include "game.h"
#include "gfx.h"
#include "help1.h"
#include "levels.h"                /* Because of "viewtex" */
#include "lists.h"
#include "mkpalette.h"
#include "palview.h"
#include "patchdir.h"                /* Because of "p" */
#include "rgb.h"
#include "sanity.h"
#include "textures.h"
#include "x11.h"
#include "wadfile.h"
#include "wadlist.h"
#include "wadname.h"
#include "wadres.h"
#include "wads2.h"

#ifdef Y_READLINE
#include <readline/readline.h>
#include <readline/history.h>
#endif



/*
 *        Global variables
 */
const char *const yadex_log_filename = "yadex.log";

yglf_t yg_level_format = YGLF__;
ygln_t yg_level_name = YGLN__;
ygpf_t yg_picture_format = YGPF_NORMAL;
ygtf_t yg_texture_format = YGTF_NORMAL;
ygtl_t yg_texture_lumps = YGTL_NORMAL;
al_llist_t *ldtdef = NULL;
al_llist_t *ldtgroup = NULL;
al_llist_t *stdef = NULL;
al_llist_t *thingdef = NULL;
al_llist_t *thinggroup = NULL;
Wad_name sky_flat;


Wad_res      wad_res(&cfg.MasterDir);
YadexConfig  cfg;

void InitializeConfig()
{
    memset(&cfg, 0, sizeof(cfg));

    cfg.install_dir = NULL,        // Where Yadex is installed
    cfg.logfile = NULL,                // Filepointer to the error log
    cfg.registered = false,        // Registered or shareware game?
    cfg.screen_lines = 24,                // Lines that our TTY can display
    cfg.remind_to_build_nodes = false,        // Remind user to build nodes
    cfg.config_file = NULL;
    cfg.debug = false;

    // Set from command line and/or config file
    cfg.autoscroll = false;
    cfg.autoscroll_amp = 10;
    cfg.autoscroll_edge = 30;
    cfg.copy_linedef_reuse_sidedefs = false;
    cfg.cpu_big_endian = false;

    cfg.def.ceiling_height = 128;
    strcpy(cfg.def.ceiling_texture, "CEIL3_5");
    cfg.def.floor_height = 0;
    strcpy(cfg.def.floor_texture, "FLOOR4_8");
    cfg.def.light_level = 144;
    strcpy(cfg.def.lower_texture, "STARTAN3");
    strcpy(cfg.def.middle_texture, "STARTAN3");
    strcpy(cfg.def.upper_texture, "STARTAN3");
    cfg.def.thing = 3004;
    cfg.double_click_timeout = 200;
    cfg.expert = false;
    cfg.Game = NULL;

    cfg.patchwads = NULL;
    cfg.quiet = false;
    cfg.quieter = false;
    cfg.scroll_less = 10;
    cfg.scroll_more = 90;
    cfg.autoselect0 = false;
    cfg.show_help = false;
    cfg.sprite_scale = 100;
    cfg.swap_buttons = false;
    cfg.verbose = 0;
    cfg.welcome_message = 1;
    cfg.bench = NULL;

    memset(cfg.iwadnames, 0, sizeof(cfg.iwadnames));
    cfg.MainWad = NULL;
    
    
    cfg.grid_pixels_min = 10;
    cfg.GridMin = 2;
    cfg.GridMax = 128;
    cfg.idle_sleep_ms = 50;
    cfg.InfoShown = true;
    cfg.zoom_default = 0;                // 0 means fit
    cfg.zoom_step = 0;                // 0 means sqrt(2)
    cfg.digit_zoom_base = 100;
    cfg.digit_zoom_step = 0;        // 0 means sqrt(2)

#ifdef AYM_MOUSE_HACKS
    cfg.MouseMickeysH = 5;
    cfg.MouseMickeysV = 5;
#endif

    cfg.insert_vertex_split_linedef = YC_ASK_ONCE;
    cfg.insert_vertex_merge_vertices = YC_ASK_ONCE;
    cfg.blindly_swap_sidedefs = false;
}


/*
 *        Prototypes of private functions
 */
static void MainLoop();
static void add_base_colours();
static const Wad_file *wad_by_name(const char *pathname);
static bool wad_already_loaded(const char *pathname);

typedef struct
{
    const char *game, *wadname;
} GameInfo;

GameInfo gameList[IWAD_LAST] = {
    {"doom",       "doom.wad"},
    {"doom2",      "doom2.wad"},
    {"heretic",    "heretic.wad"},
    {"hexen",      "hexen.wad"},
    {"strife",     "strife1.wad"},
    {"doom02",     "Doom alpha 0.2 IWAD"},
    {"doom04",     "Doom alpha 0.4 IWAD"},
    {"doom05",     "Doom alpha 0.5 IWAD"},
    {"doompr",     "Doom Press Release IWAD"},
    {"strife10",   "strife1.wad"}
};


/*
 *        parse_environment_vars
 *        Check certain environment variables.
 */
static void parse_environment_vars(void)
{
    char *value;

    if ((value = getenv("YADEX_GAME")) != NULL)
        cfg.Game = value;

    if ((value = getenv("LINES")) != NULL)
        cfg.screen_lines = atoi(value);
    else
        cfg.screen_lines = 0;

    if (cfg.screen_lines == 0)
        cfg.screen_lines = 24;
}


/*
 *        main
 *        Guess what.
 */
int main(int argc, char *argv[])
{
    int r;

    InitializeConfig();
    parse_environment_vars();

    if (argc == 2 && strcmp(argv[1], "--help") == 0)
    {
        print_usage(stdout);
        exit(0);
    }
    if (argc == 2 && strcmp(argv[1], "--version") == 0)
    {
        puts(what());
        puts(config_file_magic);
        puts(ygd_file_magic);
        exit(0);
    }

    // Second a quick pass through the command line
    // arguments to detect -?, -f and -help.
    r = parse_command_line_options(argc - 1, argv + 1, 1);
    if (r)
        goto syntax_error;

    if (cfg.show_help)
    {
        print_usage(stdout);
        exit(1);
    }

    printf("%s\n", what());

    // Where am I installed ? (the config file might be there)
#if defined Y_DOS
    install_dir = spec_path(argv[0]);
#endif

    // The config file provides some values.
    if (cfg.config_file != NULL)
        r = parse_config_file_user(cfg.config_file);
    else
        r = parse_config_file_default();

    if (r == 0)
    {
        // Environment variables can override them.
        parse_environment_vars();
        r = parse_command_line_options(argc - 1, argv + 1, 2);
    }

    if (r != 0)
    {
      syntax_error:
        fprintf(stderr, "Try \"yadex --help\" or \"man yadex\".\n");
        exit(1);
    }

    if (cfg.Game != NULL)
    {
        int n;
        for (n = 0; n < IWAD_LAST; n++)
        {
            GameInfo *info = &gameList[n];
            if (strcmp(cfg.Game, info->game) == 0)
            {
                if (cfg.iwadnames[n] == NULL)
                {
                    err("You have to tell me where %s is.", info->wadname);
                    fprintf(stderr,
                            "Use \"-i%d <file>\" or put \"iwad%d=<file>\" in yadex.cfg\n",
                            n + 1, n + 1);
                    exit(1);
                }
                cfg.GameId = n;
                cfg.MainWad = cfg.iwadnames[n];
            }
        }
    }

    if (cfg.MainWad == NULL)
    {
        int n;
        if (cfg.Game == NULL)
            err("You didn't say for which game you want to edit.");
        else
            err("Unknown game \"%s\"", cfg.Game);

        fprintf(stderr,
                "Use \"-g <game>\" on the command line or put \"game=<game>\" in yadex.cfg\n"
                "where <game> is one of: ");

        for (n = 0; n < IWAD_LAST; n++)
        {
            fprintf(stderr, "%s\"%s\"", n > 0 ? ", " : "", gameList[n].game);
        }
        fprintf(stderr, ".\n");
        exit(1);
    }

    if (cfg.debug)
    {
        cfg.logfile = fopen(yadex_log_filename, "a");
        if (cfg.logfile == NULL)
        {
            warn("Can't open log file \"%s\" (%s)", yadex_log_filename,
                 strerror(errno));
        }

        LogMessage(": Main IWAD = '%s'\n", cfg.MainWad);
        LogMessage(": Welcome to Yadex!\n");
    }

    if (cfg.quieter)
        cfg.quiet = true;

    // Sanity checks (useful when porting).
    check_types();
    check_charset();

    // Misc. things done only once.
    cfg.cpu_big_endian = native_endianness();
    add_base_colours();

    // Load game definitions (*.ygd).
    InitGameDefs();
    LoadGameDefs(cfg.Game);

    // Load the iwad and the pwads.
    if (OpenMainWad(cfg.MainWad))
        fatal_error("If you don't give me an iwad, I'll quit. I'm serious.");

    if (cfg.patchwads)
    {
        const char *const *pwad_name;
        for (pwad_name = cfg.patchwads; *pwad_name; pwad_name++)
            OpenPatchWad(*pwad_name);
    }

    /* sanity check */
    CloseUnusedWadFiles();

    /* BRANCH 1 : benchmarking (-b) */
    if (cfg.bench != NULL)
    {
        benchmark(cfg.bench);
        return 0;                // Exit successfully
    }

    /* BRANCH 2 : normal use ("yadex:" prompt) */
    else
    {
        if (cfg.welcome_message)
            print_welcome(stdout);

        if (cfg.GameId == IWAD_HEXEN)
        {
            printf
                ("WARNING: Hexen mode is experimental. Don't expect to be able to do any\n"
                 "real Hexen editing with it. You can edit levels but you can't save them.\n"
                 "And there might be other bugs... BE CAREFUL !\n\n");
        }
        else
        if (cfg.GameId == IWAD_STRIFE)
        {
            printf
                ("WARNING: Strife mode is experimental. Many thing types, linedef types,\n"
                 "etc. are missing or wrong. And be careful, there might be bugs.\n\n");
        }

        /* all systems go! */
        MainLoop();
    }

    /* that's all, folks! */
    CloseWadFiles();
    FreeGameDefs();
    LogMessage(": The end!\n\n\n");

    if (cfg.logfile != NULL)
        fclose(cfg.logfile);

    if (cfg.remind_to_build_nodes)
        printf("\n"
               "** You have made changes to one or more wads. Don't forget to pass\n"
               "** them through a nodes builder (E.G. BSP) before running them.\n"
               "** Like this: \"ybsp foo.wad -o tmp.wad; doom -file tmp.wad\"\n\n");
    return 0;
}


/*
   play a fascinating tune
*/

void Beep()
{
}



/*
   play a sound
*/

void PlaySound(int freq, int msec)
{
#if defined Y_DOS
    if (!Quiet)
    {
        sound(freq);
        delay(msec);
        nosound();
    }
#elif defined Y_UNIX
    (void) freq;
    (void) msec;
#endif
}



/*
 *        print_error_message
 *        Print an error message to stderr.
 */
static void print_error_message(const char *fmt, va_list args)
{
    fflush(stdout);
    fputs("Error: ", stderr);
    vfprintf(stderr, fmt, args);
    fputc('\n', stderr);
    fflush(stderr);

    if (cfg.debug && cfg.logfile != NULL)
    {
        fputs("Error: ", cfg.logfile);
        vfprintf(cfg.logfile, fmt, args);
        fputc('\n', cfg.logfile);
        fflush(cfg.logfile);
    }
}


/*
 *        fatal_error
 *        Print an error message and terminate the program with code 2.
 */
void fatal_error(const char *fmt, ...)
{
    va_list args;
    va_start(args, fmt);
    print_error_message(fmt, args);

// ... on the other hand, with X, we don't have to
// call TermGfx() before printing so we do it last so
// that a segfault occuring in TermGfx() does not
// prevent us from seeing the stderr message.
    TermGfx();                        // Don't need to sleep (1) either.

// Clean up things and free swap space
    ForgetLevelData();
    ForgetWTextureNames();
    ForgetFTextureNames();
    CloseWadFiles();
    exit(2);
}


/*
 *        err
 *        Print an error message but do not terminate the program.
 */
void err(const char *fmt, ...)
{
    va_list args;

    va_start(args, fmt);
    print_error_message(fmt, args);
}


/*
 *        nf_bug
 *        Report about a non-fatal bug to stderr. The message
 *        should not expand to more than 80 characters.
 */
void nf_bug(const char *fmt, ...)
{
    static bool first_time = 1;
    static int repeats = 0;
    static char msg_prev[81];
    char msg[81];

    va_list args;
    va_start(args, fmt);
    y_vsnprintf(msg, sizeof msg, fmt, args);
    if (first_time || strncmp(msg, msg_prev, sizeof msg))
    {
        fflush(stdout);
        if (repeats)
        {
            fprintf(stderr, "Bug: Previous message repeated %d times\n",
                    repeats);
            repeats = 0;
        }

        fprintf(stderr, "Bug: %s\n", msg);
        fflush(stderr);
        if (first_time)
        {
            fputs("REPORT ALL \"Bug:\" MESSAGES TO THE MAINTAINER !\n",
                  stderr);
            first_time = 0;
        }
        strncpy(msg_prev, msg, sizeof msg_prev);
    }
    else
    {
        repeats++;                // Same message as above
        if (repeats == 10)
        {
            fflush(stdout);
            fprintf(stderr, "Bug: Previous message repeated %d times\n",
                    repeats);
            fflush(stderr);
            repeats = 0;
        }
    }
}


/*
   write a message in the log file
*/

void LogMessage(const char *logstr, ...)
{
    va_list args;
    time_t tval;
    char *tstr;

    if (cfg.debug && cfg.logfile != NULL)
    {
        va_start(args, logstr);
        /* if the message begins with ":", output the current date & time first */
        if (logstr[0] == ':')
        {
            time(&tval);
            tstr = ctime(&tval);
            tstr[strlen(tstr) - 1] = '\0';
            fprintf(cfg.logfile, "%s", tstr);
        }
        vfprintf(cfg.logfile, logstr, args);
        fflush(cfg.logfile);        /* AYM 19971031 */
    }
}


void PrintHelp()
{
    printf("? | h | help                      --"
                   " display this text\n");
    printf("b[uild] <WadFile>                 --"
                   " build a new iwad\n");
    printf("c[reate] <levelname>              --"
                   " create and edit a new (empty) level\n");
    printf("d[ump] <DirEntry> [outfile]       --"
                   " dump a directory entry in hex\n");
    printf("e[dit] <levelname>                --"
                   " edit a game level saving results to\n");
            printf
                ("                                          a patch wad file\n");
    printf("g[roup] <WadFile>                 --"
                   " group all patch wads in a file\n");
    printf("i[nsert] <RawFile> <DirEntry>     --"
                   " insert a raw file in a patch wad file\n");
    printf("l[ist] <WadFile> [outfile]        --"
                   " list the directory of a wadfile\n");
    printf("m[aster] [outfile]                --"
                   " list the master directory\n");
    printf("make_gimp_palette <outfile>       --"
                   " generate a gimp palette file from\n"
                   "                                    "
                   " entry 0 of lump PLAYPAL.\n");
    printf("make_palette_ppm <outfile>        --"
                   " generate a palette image from\n"
                   "                                    "
                   " entry 0 of lump PLAYPAL.\n");
    printf("q[uit]                            --" " quit\n");
    printf("r[ead] <WadFile>                  --"
                   " read a new wad patch file\n");
    printf("s[ave] <DirEntry> <WadFile>       --"
                   " save one object to a separate file\n");
    printf("set                               --"
                   " list all options and their values\n");
    printf("v[iew] [<spritename>]             --"
                   " display the sprites\n");
    printf("viewflat [<flatname>]             --" " flat viewer\n");
    printf("viewpal                           --"
                   " palette viewer\n");
    printf("viewpat [<patchname>]             --" " patch viewer\n");
    printf("viewtex [<texname>]               --"
                   " texture viewer\n");
    printf("w[ads]                            --"
                   " display the open wads\n");
    printf("x[tract] <DirEntry> <RawFile>     --"
                   " save (extract) one object to a raw file\n");
}

/*
   the main program menu loop
*/

static void MainLoop()
{
#ifdef Y_READLINE
    char *input = NULL;
#else
    char input[120];
#endif
    char *com, *out;
    FILE *file, *raw;

    for (;;)
    {
        /* get the input */
#ifdef Y_READLINE
        input = readline("yadex: ");
        add_history(input);
#else
        printf("yadex: ");
        if (!fgets(input, sizeof input, stdin))
        {
            puts("q");
            break;
        }

        /* Strip the trailing '\n' */
        if (strlen(input) > 0 && input[strlen(input) - 1] == '\n')
            input[strlen(input) - 1] = '\0';
#endif

        /* eat the white space and get the first command word */
        com = strtok(input, " ");

        /* user just hit return */
        if (com == NULL)
            printf("Please enter a command or ? for help.\n");

        /* user inputting for help */
        else if (!strcmp(com, "?") || !strcmp(com, "h") || !strcmp(com, "help"))
        {
            PrintHelp();
        }

        /* user asked for list of open wad files */
        else if (!strcmp(com, "wads") || !strcmp(com, "w"))
        {
            const Wad_file *wf;
            wad_list.rewind();

            if (wad_list.get(wf))
                printf("%-40s  Iwad\n", wf->pathname());

            while (wad_list.get(wf))
            {
                printf("%-40s  Pwad (%.*s)\n",
                       wf->pathname(), (int) WAD_NAME, wf->what());
            }
        }

        /* user asked to quit */
        else if (!strcmp(com, "quit") || !strcmp(com, "q"))
        {
            if (!cfg.registered)
                printf("Remember to register your copy of the game !\n");
            break;
        }

        /* user asked to edit a level */
        else if (!strcmp(com, "edit") || !strcmp(com, "e") ||
                 !strcmp(com, "create") || !strcmp(com, "c"))
        {
            const bool newlevel = (com[0] == 'c');
            char *level_name = NULL;

            com = strtok(NULL, " ");
            if (com == NULL)
            {
                if (!newlevel)
                {
                    printf("Which level ?\n");
                    continue;
                }
            }
            else
            {
                MDirPtr entry = FindMasterDir(cfg.MasterDir, com);
                if (entry != NULL)
                {
                    level_name = strdup(entry->dir.name);
                }
                else
                {
                    printf("Level '%s' not found.", com);

                    // Hint absent-minded users
                    if ((tolower(*com) == 'e' && yg_level_name == YGLN_MAP01) ||
                        (tolower(*com) == 'm' && yg_level_name == YGLN_E1M1))
                        printf(" You are in %s mode.", cfg.Game);
                    else

                    if (tolower(*com) == 'e' && com[1] > '1' && !cfg.registered)
                        printf(" You have the shareware IWAD.");

                    printf("\n");
                    continue;
                }
            }
            EditLevel(level_name, newlevel);
        }

        /* user asked to build a new main wad file */
        else if (strcmp(com, "build") == 0 || strcmp(com, "b") == 0)
        {
            com = strtok(NULL, " ");
            if (com == NULL)
            {
                printf("Wad file name argument missing.\n");
                continue;
            }
            if (wad_already_loaded(com))
            {
                printf("%s: in use, close it first\n", com);
                continue;
            }
            BuildNewMainWad(com, 0);
        }

        /* user asked to build a compound patch wad file */
        else if (strcmp(com, "group") == 0 || strcmp(com, "g") == 0)
        {
            wad_list.rewind();
            const Wad_file *wf;
            if (!wad_list.get(wf) || !wad_list.get(wf))
            {
                printf("You need at least two open wad files "
                       "if you want to group them.\n");
                continue;
            }
            com = strtok(NULL, " ");
            if (com == NULL)
            {
                printf("Wad file name argument missing.\n");
                continue;
            }
            if (wad_already_loaded(com))
            {
                printf("%s: in use, close it first\n", com);
                continue;
            }
            BuildNewMainWad(com, 1);
        }

        /* user ask for a listing of a wad file */
        else if (strcmp(com, "list") == 0 || strcmp(com, "l") == 0)
        {
            com = strtok(NULL, " ");
            if (com == NULL)
            {
                printf("Wad file name argument missing.\n");
                continue;
            }
            const Wad_file *wf = wad_by_name(com);
            if (wf == 0)
            {
                printf("%s: not open\n", com);
                continue;
            }
            out = strtok(NULL, " ");
            if (out)
            {
                printf("Outputting directory of \"%s\" to \"%s\".\n",
                       wf->pathname(), out);
                if ((file = fopen(out, "w")) == NULL)
                    fatal_error("error opening output file \"%s\"", com);
                fprintf(file, "%s\n", what());
                ListFileDirectory(file, wf);
                fprintf(file, "\nEnd of file.\n");
                fclose(file);
            }
            else
                ListFileDirectory(stdout, wf);
        }

        /* user asked for the list of the master directory */
        else if (strcmp(com, "master") == 0 || strcmp(com, "m") == 0)
        {
            out = strtok(NULL, " ");
            if (out)
            {
                printf("Outputting master directory to \"%s\".\n", out);
                if ((file = fopen(out, "w")) == NULL)
                    fatal_error("error opening output file \"%s\"", com);
                fprintf(file, "%s\n", what());
                ListMasterDirectory(file);
                fprintf(file, "\nEnd of file.\n");
                fclose(file);
            }
            else
                ListMasterDirectory(stdout);
        }

        // make_gimp_palette
        else if (strcmp(com, "make_gimp_palette") == 0)
        {
            out = strtok(NULL, " ");
            if (out == NULL)
            {
                printf("Output file name argument missing.\n");
                continue;
            }
            make_gimp_palette(0, out);
        }

        // make_palette_ppm
        else if (strcmp(com, "make_palette_ppm") == 0)
        {
            out = strtok(NULL, "");
            if (out == NULL)
            {
                printf("Output file name argument missing.\n");
                continue;
            }
            make_palette_ppm(0, out);
        }

        // make_palette_ppm
        else if (strcmp(com, "mp2") == 0)
        {
            out = strtok(NULL, "");
            if (out == NULL)
            {
                printf("Output file name argument missing.\n");
                continue;
            }
            make_palette_ppm_2(0, out);
        }

        /* user asked to list all options and their values */
        else if (strcmp(com, "set") == 0)
        {
            dump_parameters(stdout);
        }

        /* user asked to read a new patch wad file */
        else if (strcmp(com, "read") == 0 || strcmp(com, "r") == 0)
        {
            com = strtok(NULL, " ");
            if (com == NULL)
            {
                printf("Wad file name argument missing.\n");
                continue;
            }
            out = strtok(NULL, " ");
            if (out)
                *out = '\0';
            out = (char *) GetMemory(strlen(com) + 1);
            strcpy(out, com);
            OpenPatchWad(out);
            CloseUnusedWadFiles();
        }

        /* user asked to dump the contents of a wad file */
        else if (strcmp(com, "dump") == 0 || strcmp(com, "d") == 0)
        {
            com = strtok(NULL, " ");
            if (com == NULL)
            {
                printf("Object name argument missing.\n");
                continue;
            }
            out = strtok(NULL, " ");
            if (out)
            {
                printf("Outputting directory entry data to \"%s\".\n", out);
                if ((file = fopen(out, "w")) == NULL)
                    fatal_error("error opening output file \"%s\"", com);
                fprintf(file, "%s\n", what());
                DumpDirectoryEntry(file, com);
                fprintf(file, "\nEnd of file.\n");
                fclose(file);
            }
            else
                DumpDirectoryEntry(stdout, com);
        }

        // "v"/"view" - view the sprites
        else if (strcmp(com, "view") == 0 || strcmp(com, "v") == 0)
        {
            if (InitGfx())
                goto v_end;
            init_input_status();
            do
                get_input_status();
            while (is.key != YE_EXPOSE);
            force_window_not_pixmap();        // FIXME quick hack
            {
                Lump_list list;
                wad_res.sprites.list(list);
                char buf[WAD_PIC_NAME + 1];
                const char *sprite = strtok(NULL, " ");
                *buf = '\0';
                if (sprite != 0)
                {
                    strncat(buf, sprite, sizeof buf - 1);
                    for (char *p = buf; *p != '\0'; p++)
                        *p = toupper(*p);
                }
                InputNameFromListWithFunc(-1, -1, "Sprite viewer",
                                          list.size(), list.data(), 10, buf,
                                          320, 200, display_pic,
                                          HOOK_DISP_SIZE | HOOK_SPRITE);
            }
            TermGfx();
          v_end:;
        }

        // "viewflat" - view the flats
        else if (strcmp(com, "viewflat") == 0)
        {
            if (InitGfx())
                goto viewflat_end;
            init_input_status();
            do
                get_input_status();
            while (is.key != YE_EXPOSE);
            com = strtok(NULL, " ");
            force_window_not_pixmap();        // FIXME quick hack
            char buf[WAD_FLAT_NAME + 1];
            *buf = '\0';
            if (com != 0)
                strncat(buf, com, sizeof buf - 1);
            ReadFTextureNames();
            {
                char **flat_names =
                    (char **) GetMemory(NumFTexture * sizeof *flat_names);
                for (size_t n = 0; n < NumFTexture; n++)
                    flat_names[n] = flat_list[n].name;
                ChooseFloorTexture(-1, -1, "Flat viewer",
                                   NumFTexture, flat_names, buf);
                FreeMemory(flat_names);
            }
            ForgetFTextureNames();
            TermGfx();
          viewflat_end:;
        }

        // "viewpal" - view the palette (PLAYPAL and COLORMAP)
        else if (strcmp(com, "viewpal") == 0)
        {
            if (InitGfx())
                goto viewpal_end;
            init_input_status();
            do
                get_input_status();
            while (is.key != YE_EXPOSE);
            force_window_not_pixmap();        // FIXME quick hack
            {
                Palette_viewer pv;
                pv.run();
            }
            TermGfx();
          viewpal_end:;
        }

        // "viewpat" - view the patches
        else if (strcmp(com, "viewpat") == 0)
        {
            if (InitGfx())
                goto viewpat_end;
            init_input_status();
            do
                get_input_status();
            while (is.key != YE_EXPOSE);
            com = strtok(NULL, " ");
            force_window_not_pixmap();        // FIXME quick hack
            patch_dir.refresh(cfg.MasterDir);
            {
                char buf[WAD_NAME + 1];
                *buf = '\0';
                if (com != 0)
                    strncat(buf, com, sizeof buf - 1);
                Patch_list pl;
                patch_dir.list(pl);
                InputNameFromListWithFunc(-1, -1, "Patch viewer", pl.size(),
                                          pl.data(), 10, buf, 256, 256,
                                          display_pic,
                                          HOOK_DISP_SIZE | HOOK_PATCH);
            }
            TermGfx();
          viewpat_end:;
        }

        // "viewtex" - view the textures
        else if (strcmp(com, "viewtex") == 0)
        {
            if (InitGfx())
                goto viewtex_end;
            init_input_status();
            do
                get_input_status();
            while (is.key != YE_EXPOSE);
            com = strtok(NULL, " ");
            force_window_not_pixmap();        // FIXME quick hack
            patch_dir.refresh(cfg.MasterDir);
            {
                char buf[WAD_TEX_NAME + 1];
                *buf = '\0';
                if (com != 0)
                    strncat(buf, com, sizeof buf - 1);
                ReadWTextureNames();
                ChooseWallTexture(-1, -1, "Texture viewer", NumWTexture,
                                  WTexture, buf);
                ForgetWTextureNames();
            }
            TermGfx();
          viewtex_end:;
        }

        /* user asked to save an object to a separate pwad file */
        else if (strcmp(com, "save") == 0 || strcmp(com, "s") == 0)
        {
            com = strtok(NULL, " ");
            if (com == NULL)
            {
                printf("Object name argument missing.\n");
                continue;
            }
            if (strlen(com) > WAD_NAME || strchr(com, '.') != NULL)
            {
                printf("Invalid object name.\n");
                continue;
            }
            out = strtok(NULL, " ");
            if (out == NULL)
            {
                printf("Wad file name argument missing.\n");
                continue;
            }
            if (wad_already_loaded(com))
            {
                printf("%s: in use, close it first\n", com);
                continue;
            }
            printf("Saving directory entry data to \"%s\".\n", out);
            if ((file = fopen(out, "wb")) == NULL)
                fatal_error("error opening output file \"%s\"", out);
            SaveDirectoryEntry(file, com);
            fclose(file);
        }

        /* user asked to encapsulate a raw file in a pwad file */
        else if (strcmp(com, "insert") == 0 || strcmp(com, "i") == 0)
        {
            com = strtok(NULL, " ");
            if (com == NULL)
            {
                printf("Raw file name argument missing.\n");
                continue;
            }
            out = strtok(NULL, " ");
            if (out == NULL)
            {
                printf("Object name argument missing.\n");
                continue;
            }
            if (strlen(out) > WAD_NAME || strchr(out, '.') != NULL)
            {
                printf("Invalid object name.\n");
                continue;
            }
            if ((raw = fopen(com, "rb")) == NULL)
                fatal_error("error opening input file \"%s\"", com);
            /* kluge */
            strcpy(input, out);
            strcat(input, ".wad");
            if (wad_already_loaded(input))
            {
                printf("%s: in use, close it first\n", input);
                continue;
            }
            printf("Including new object %s in \"%s\".\n", out, input);
            if ((file = fopen(input, "wb")) == NULL)
                fatal_error("error opening output file \"%s\"", input);
            SaveEntryFromRawFile(file, raw, out);
            fclose(raw);
            fclose(file);
        }

        /* user asked to extract an object to a raw binary file */
        else if (strcmp(com, "xtract") == 0
                 || strcmp(com, "extract") == 0 || strcmp(com, "x") == 0)
        {
            com = strtok(NULL, " ");
            if (com == NULL)
            {
                printf("Object name argument missing.\n");
                continue;
            }
            if (strlen(com) > WAD_NAME || strchr(com, '.') != NULL)
            {
                printf("Invalid object name.\n");
                continue;
            }
            out = strtok(NULL, " ");
            if (out == NULL)
            {
                printf("Raw file name argument missing.\n");
                continue;
            }
            if (wad_already_loaded(com))
            {
                printf("%s: in use, close it first\n", com);
                printf
                    ("Besides do you really want to overwrite a wad file with"
                     " raw data ?\n");
                continue;
            }
            printf("Saving directory entry data to \"%s\".\n", out);
            if ((file = fopen(out, "wb")) == NULL)
                fatal_error("error opening output file \"%s\"", out);
            SaveEntryToRawFile(file, com);
            fclose(file);
        }

        /* unknown command */
        else
            printf("Unknown command \"%s\"!\n", com);

#ifdef Y_READLINE
        free(input);
#endif
    }
}


/*
 *        add_base_colours
 *        Add the NCOLOURS base colours to the list of
 *        application colours.
 */
static void add_base_colours()
{
    for (size_t n = 0; n < NCOLOURS; n++)
    {
        rgb_c c;

        // The first 16 are the standard IRGB VGA colours.
        // FIXME they're to be removed and replaced by
        // "logical" colours.
#ifdef WHITE_BACKGROUND
        if (n == 0)
            irgb2rgb(15, &c);
        else if (n == 15)
            irgb2rgb(0, &c);
        else
#endif
        if (n < 16)
            irgb2rgb(n, &c);

        // Then there are the colours used to draw the
        // windows and the map. The colours used to draw
        // the things are parametrized in the .ygd ; they
        // are added by load_game().
        // FIXME they should not be hard-coded, of course !

        /* WINBG* is for window backgrounds. Use the _HL variant is
           for highlighted parts of windows (E.G. the current line in
           a menu). _LIGHT and _DARK are for window borders and
           grooves. There is no _HL flavour of these because I didn't
           feel the need. */
#ifdef WHITE_BACKGROUND
        else if (n == WINBG)
            c.set(0xe2, 0xdc, 0xd6);
        else if (n == WINBG_LIGHT)
            c.set(0xee, 0xe8, 0xe2);
        else if (n == WINBG_DARK)
            c.set(0xc3, 0xbe, 0xb9);
        else if (n == WINBG_HL)
            c.set(0xf4, 0xee, 0xe7);
#else
        else if (n == WINBG)
            c.set(0x2a, 0x24, 0x18);
        else if (n == WINBG_LIGHT)
            c.set(0x48, 0x42, 0x3c);
        else if (n == WINBG_DARK)
            c.set(0x20, 0x1b, 0x12);
        else if (n == WINBG_HL)
            c.set(0x58, 0x50, 0x48);
#endif

        /* WINFG* is for regular text. _DIM is for greyed out text
           (for disabled options or text that is not applicable). */
#ifdef WHITE_BACKGROUND
        else if (n == WINFG)
            c.set(0x60, 0x60, 0x60);
        else if (n == WINFG_HL)
            c.set(0x30, 0x30, 0x30);
        else if (n == WINFG_DIM)
            c.set(0xB8, 0xB8, 0xB8);
        else if (n == WINFG_DIM_HL)
            c.set(0x90, 0x90, 0x90);
#else
        else if (n == WINFG)
            c.set(0xa0, 0xa0, 0xa0);
        else if (n == WINFG_HL)
            c.set(0xd0, 0xd0, 0xd0);
        else if (n == WINFG_DIM)
            c.set(0x48, 0x48, 0x48);
        else if (n == WINFG_DIM_HL)
            c.set(0x70, 0x70, 0x70);
#endif

        /* WINLABEL is for text of lesser importance. For example,
           the brackets around key binding are displayed in WINLABEL,
           while what's between them is displayed in WINFG. The
           difference with WINFG is not very noticeable but it does
           improve readability. The static text in the object info
           windows should be displayed in WINLABEL. */
#ifdef WHITE_BACKGROUND
        else if (n == WINLABEL)
            c.set(0x88, 0x88, 0x88);
        else if (n == WINLABEL_HL)
            c.set(0x60, 0x60, 0x60);
        else if (n == WINLABEL_DIM)
            c.set(0xc8, 0xc8, 0xc8);
        else if (n == WINLABEL_DIM_HL)
            c.set(0xb0, 0xb0, 0xb0);
#else
        else if (n == WINLABEL)
            c.set(0x78, 0x78, 0x78);
        else if (n == WINLABEL_HL)
            c.set(0xa0, 0xa0, 0xa0);
        else if (n == WINLABEL_DIM)
            c.set(0x38, 0x38, 0x38);
        else if (n == WINLABEL_DIM_HL)
            c.set(0x50, 0x50, 0x50);
#endif

#ifdef WHITE_BACKGROUND
        else if (n == GRID1)
            c.set(0x80, 0x80, 0xff);
        else if (n == GRID2H)
            c.set(0xf0, 0xf0, 0xff);
        else if (n == GRID2V)
            c.set(0xf0, 0xf0, 0xff);
        else if (n == GRID3H)
            c.set(0xd0, 0xd0, 0xff);
        else if (n == GRID3V)
            c.set(0xd0, 0xd0, 0xff);
        else if (n == GRID4H)
            c.set(0xb0, 0xb0, 0xff);
        else if (n == GRID4V)
            c.set(0xb0, 0xb0, 0xff);
#else
        else if (n == GRID1)
            c.set(0, 0, 0xc0);
        else if (n == GRID2H)
            c.set(0, 0, 0x30);
        else if (n == GRID2V)
            c.set(0, 0, 0x40);
        else if (n == GRID3H)
            c.set(0, 0, 0x50);
        else if (n == GRID3V)
            c.set(0, 0, 0x70);
        else if (n == GRID4H)
            c.set(0, 0, 0x80);
        else if (n == GRID4V)
            c.set(0, 0, 0xc0);
#endif

        else if (n == LINEDEF_NO)
            c.set(0x40, 0xd0, 0xf0);
        else if (n == SECTOR_NO)
            c.set(0x40, 0xd0, 0xf0);
        else if (n == THING_NO)
            c.set(0x40, 0xd0, 0xf0);
        else if (n == VERTEX_NO)
            c.set(0x40, 0xd0, 0xf0);
        else if (n == CLR_ERROR)
            c.set(0xff, 0, 0);
        else if (n == THING_REM)
            c.set(0x40, 0x40, 0x40);

        else if (n == SECTOR_TAG)
            c.set(0x00, 0xff, 0x00);
        else if (n == SECTOR_TAGTYPE)
            c.set(0x00, 0xe0, 0xe0);
        else if (n == SECTOR_TYPE)
            c.set(0x00, 0x80, 0xff);

#ifdef WHITE_BACKGROUND
        else if (n == WINTITLE)
            c.set(0xb0, 0x80, 0x00);
#else
        else if (n == WINTITLE)
            c.set(0xff, 0xff, 0x00);
#endif

        else
            fatal_error("Wrong acn %d", n);

        acolour_t acn = add_app_colour(c);
        if (acn != n)
            fatal_error("add_base_colours: got %d for %d\n", acn, n);
    }
}


static const Wad_file *wad_by_name(const char *pathname)
{
    const Wad_file *wf;

    for (wad_list.rewind(); wad_list.get(wf);)
        if (fncmp(pathname, wf->pathname()) == 0)
            return wf;
    return 0;
}


static bool wad_already_loaded(const char *pathname)
{
    return wad_by_name(pathname) != 0;
}