/*
 *        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

/*
 *        Constants (declared in yadex.h)
 */
const char *const log_file = "yadex.log";
const char *const msg_unexpected = "unexpected error";
const char *const msg_nomem = "Not enough memory";


/*
 *        Not real variables -- just unique pointer values
 *        used by functions that return pointers to 
 */
char error_non_unique[1];        // Found more than one
char error_none[1];                // Found none
char error_invalid[1];                // Invalid parameter


/*
 *        Global variables
 */
const char *install_dir = 0;        // Where Yadex is installed
FILE *logfile = NULL;                // Filepointer to the error log
bool Registered = false;        // Registered or shareware game?
int screen_lines = 24;                // Lines that our TTY can display
int remind_to_build_nodes = 0;        // Remind user to build nodes
Wad_res wad_res(&MasterDir);

// Set from command line and/or config file
bool autoscroll = 0;
unsigned long autoscroll_amp = 10;
unsigned long autoscroll_edge = 30;
const char *config_file = NULL;
int copy_linedef_reuse_sidedefs = 0;
int cpu_big_endian = 0;
bool Debug = false;
int default_ceiling_height = 128;
char default_ceiling_texture[WAD_FLAT_NAME + 1] = "CEIL3_5";
int default_floor_height = 0;
char default_floor_texture[WAD_FLAT_NAME + 1] = "FLOOR4_8";
int default_light_level = 144;
char default_lower_texture[WAD_TEX_NAME + 1] = "STARTAN3";
char default_middle_texture[WAD_TEX_NAME + 1] = "STARTAN3";
char default_upper_texture[WAD_TEX_NAME + 1] = "STARTAN3";
int default_thing = 3004;
int double_click_timeout = 200;
bool Expert = false;
const char *Game = NULL;
int grid_pixels_min = 10;
int GridMin = 2;
int GridMax = 128;
int idle_sleep_ms = 50;
bool InfoShown = true;
int zoom_default = 0;                // 0 means fit
int zoom_step = 0;                // 0 means sqrt(2)
int digit_zoom_base = 100;
int digit_zoom_step = 0;        // 0 means sqrt(2)
confirm_t insert_vertex_split_linedef = YC_ASK_ONCE;
confirm_t insert_vertex_merge_vertices = YC_ASK_ONCE;
bool blindly_swap_sidedefs = false;
const char *Iwad1 = NULL;
const char *Iwad2 = NULL;
const char *Iwad3 = NULL;
const char *Iwad4 = NULL;
const char *Iwad5 = NULL;
const char *Iwad6 = NULL;
const char *Iwad7 = NULL;
const char *Iwad8 = NULL;
const char *Iwad9 = NULL;
const char *Iwad10 = NULL;
const char *MainWad = NULL;
#ifdef AYM_MOUSE_HACKS
int MouseMickeysH = 5;
int MouseMickeysV = 5;
#endif
char **PatchWads = NULL;
bool Quiet = false;
bool Quieter = false;
unsigned long scroll_less = 10;
unsigned long scroll_more = 90;
bool Select0 = false;
int show_help = 0;
int sprite_scale = 100;
bool SwapButtons = false;
int verbose = 0;
int welcome_message = 1;
const char *bench = 0;

// Global variables declared in game.h
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;


/*
 *        Prototypes of private functions
 */
static int parse_environment_vars();
static void MainLoop();
static void print_error_message(const char *fmt, va_list args);
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;
    const char **pwadloc;
} GameInfo;

GameInfo gameList[] = {
    {"doom", "doom.wad", &Iwad1},
    {"doom2", "doom2.wad", &Iwad2},
    {"heretic", "heretic.wad", &Iwad3},
    {"hexen", "hexen.wad", &Iwad4},
    {"strife", "strife1.wad", &Iwad5},
    {"doom02", "Doom alpha 0.2 IWAD", &Iwad6},
    {"doom04", "Doom alpha 0.4 IWAD", &Iwad7},
    {"doom05", "Doom alpha 0.5 IWAD", &Iwad8},
    {"doompr", "Doom Press Release IWAD", &Iwad9},
    {"strife10", "strife1.wad", &Iwad10}
};

const int ngameList = sizeof(gameList) / sizeof(gameList[0]);


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

// Set <screen_lines>
    if (getenv("LINES") != NULL)
        screen_lines = atoi(getenv("LINES"));
    else
        screen_lines = 0;
    if (screen_lines == 0)
        screen_lines = 24;

// First detect manually --help and --version
// because parse_command_line_options() cannot.
    if (argc == 2 && strcmp(argv[1], "--help") == 0)
    {
        print_usage(stdout);
        if (fflush(stdout) != 0)
            fatal_error("stdout: %s", strerror(errno));
        exit(0);
    }
    if (argc == 2 && strcmp(argv[1], "--version") == 0)
    {
        puts(what());
        puts(config_file_magic);
        puts(ygd_file_magic);
        if (fflush(stdout) != 0)
            fatal_error("stdout: %s", strerror(errno));
        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 (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 (config_file != NULL)
        r = parse_config_file_user(config_file);
    else
        r = parse_config_file_default();
    if (r == 0)
    {
        // Environment variables can override them.
        r = parse_environment_vars();
        if (r == 0)
        {
            // And the command line argument can override both.
            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 (Game != NULL)
    {
        int n;
        for (n = 0; n < ngameList; n++)
        {
            GameInfo *info = &gameList[n];
            if (strcmp(Game, info->game) == 0)
            {
                if (*(info->pwadloc) == 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);
                }
                MainWad = *(info->pwadloc);
            }
        }
    }

    if (MainWad == NULL)
    {
        int n;
        if (Game == NULL)
            err("You didn't say for which game you want to edit.");
        else
            err("Unknown game \"%s\"", 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 < ngameList; n++)
        {
            fprintf(stderr, "%s\"%s\"", n > 0 ? ", " : "", gameList[n].game);
        }
        fprintf(stderr, ".\n");
        exit(1);
    }
    if (Debug)
    {
        logfile = fopen(log_file, "a");
        if (logfile == NULL)
            warn("can't open log file \"%s\" (%s)", log_file,
                 strerror(errno));
        LogMessage(": Welcome to Yadex!\n");
    }
    if (Quieter)
        Quiet = true;

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

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

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

// Load the iwad and the pwads.
    if (OpenMainWad(MainWad))
        fatal_error("If you don't give me an iwad, I'll quit. I'm serious.");
    if (PatchWads)
    {
        const char *const *pwad_name;
        for (pwad_name = PatchWads; *pwad_name; pwad_name++)
            OpenPatchWad(*pwad_name);
    }
/* sanity check */
    CloseUnusedWadFiles();

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

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

        if (strcmp(Game, "hexen") == 0)
            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");

        if (strcmp(Game, "strife") == 0)
            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 (logfile != NULL)
        fclose(logfile);
    if (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;
}


/*
 *        parse_environment_vars
 *        Check certain environment variables.
 *        Returns 0 on success, <>0 on error.
 */
static int parse_environment_vars()
{
    char *value;

    value = getenv("YADEX_GAME");
    if (value != NULL)
        Game = value;
    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
    freq = msec;                // To prevent a warning about unused variables
    return;
#endif
}



/*
 *        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);
}


/*
 *        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 (Debug && logfile != NULL)
    {
        fputs("Error: ", logfile);
        vfprintf(logfile, fmt, args);
        fputc('\n', logfile);
        fflush(logfile);
    }
}


/*
 *        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 (Debug && 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(logfile, "%s", tstr);
        }
        vfprintf(logfile, logstr, args);
        fflush(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, "?") == 0
                 || strcmp(com, "h") == 0 || strcmp(com, "help") == 0)
        {
            PrintHelp();
        }

        /* user asked for list of open wad files */
        else if (strcmp(com, "wads") == 0 || strcmp(com, "w") == 0)
        {
            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") == 0 || strcmp(com, "q") == 0)
        {
            if (!Registered)
                printf("Remember to register your copy of the game !\n");
            break;
        }

        /* user asked to edit a level */
        else if (strcmp(com, "edit") == 0 || strcmp(com, "e") == 0
                 || strcmp(com, "create") == 0 || strcmp(com, "c") == 0)
        {
            const int newlevel = strcmp(com, "create") == 0
                || strcmp(com, "c") == 0;
            char *level_name = 0;
            com = strtok(NULL, " ");
            if (com == 0)
                if (!newlevel)
                {
                    printf("Which level ?\n");
                    continue;
                }
                else
                    level_name = 0;
            else
            {
                if (FindMasterDir(MasterDir, com))
                {
                    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.", Game);
                    else if (tolower(*com) == 'e' && com[1] > '1' && !Registered)
                        printf(" You have the shareware iwad.");
                    putchar('\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(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(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;
}