/* wconfig.c */
/*
 * Copyright 1995,1996,1997,1998 by the Massachusetts Institute of Technology.
 * All Rights Reserved.
 *
 * Export of this software from the United States of America may
 *   require a specific license from the United States Government.
 *   It is the responsibility of any person or organization contemplating
 *   export to obtain such a license before exporting.
 *
 * WITHIN THAT CONSTRAINT, permission to use, copy, modify, and
 * distribute this software and its documentation for any purpose and
 * without fee is hereby granted, provided that the above copyright
 * notice appear in all copies and that both that copyright notice and
 * this permission notice appear in supporting documentation, and that
 * the name of M.I.T. not be used in advertising or publicity pertaining
 * to distribution of the software without specific, written prior
 * permission.  Furthermore if you modify this software you must label
 * your software as modified software and not distribute it in such a
 * fashion that it might be confused with the original M.I.T. software.
 * M.I.T. makes no representations about the suitability of
 * this software for any purpose.  It is provided "as is" without express
 * or implied warranty.
 */

/*
 * Program to take the place of the configure shell script under DOS.
 * The makefile.in files are constructed in such a way that all this
 * program needs to do is uncomment lines beginning ##DOS by removing the
 * first 5 characters of the line.  This will allow lines like:
 * ##DOS!include win-pre.in to become: !include win-pre.in
 *
 * We also turn any line beginning with '@' into a blank line.
 *
 * If a config directory is specified, then the output will be start with
 * config\pre.in, then the filtered stdin text, and will end with
 * config\post.in.
 *
 * Syntax: wconfig [options] [config_directory] <input_file >output_file
 *
 */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>

static int copy_file (char *path, char *fname);
void add_ignore_list(char *str);

int mit_specific = 0;

char *win16_flag = "WIN16##";
char *win32_flag = "WIN32##";


int main(int argc, char *argv[])
{
        char *ignore_str = "--ignore=";
        int ignore_len;
        char *cp, *tmp;
        char *win_flag;
        char wflags[1024];
        size_t wlen, alen;

#ifdef _WIN32
        win_flag = win32_flag;
#else
        win_flag = "UNIX##";
#endif

        wlen = 0;

        ignore_len = strlen(ignore_str);
        argc--; argv++;
        while (*argv && *argv[0] == '-') {
                alen = strlen(*argv);
                if (wlen + 1 + alen > sizeof (wflags) - 1) {
                        fprintf (stderr,
                                 "wconfig: argument list too long (internal limit %lu)",
                                 (unsigned long) sizeof (wflags));
                        exit (1);
                }
                if (wlen > 0)
                        wflags[wlen++] = ' ';
                memcpy(&wflags[wlen], *argv, alen);
                wlen += alen;

                if (!strcmp(*argv, "--mit")) {
                        mit_specific = 1;
                        argc--; argv++;
                        continue;
                }
                if (!strcmp(*argv, "--win16")) {
                        win_flag = win16_flag;
                        argc--; argv++;
                        continue;
                }
                if (!strcmp(*argv, "--win32")) {
                        win_flag = win32_flag;
                        argc--; argv++;
                        continue;
                }
                if (!strncmp(*argv, "--enable-", 9)) {
                        tmp = malloc(alen - ignore_len + 3);
                        if (!tmp) {
                                fprintf(stderr,
                                        "wconfig: malloc failed!\n");
                                exit(1);
                        }
                        memcpy(tmp, *argv + ignore_len, alen - ignore_len);
                        memcpy(tmp + alen - ignore_len, "##", 3);
                        for (cp = tmp; *cp; cp++) {
                                if (islower(*cp))
                                        *cp = toupper(*cp);
                        }
                        add_ignore_list(tmp);
                        argc--; argv++;
                        continue;
                }
                if (!strncmp(*argv, ignore_str, ignore_len)) {
                        add_ignore_list((*argv)+ignore_len);
                        argc--; argv++;
                        continue;
                }
                fprintf(stderr, "Invalid option: %s\n", *argv);
                exit(1);
        }
        wflags[wlen] = '\0';

        if (win_flag)
                add_ignore_list(win_flag);

        if (mit_specific)
                add_ignore_list("MIT##");

        if (wflags[0] && (argc > 0))
                printf("WCONFIG_FLAGS=%s\n", wflags);

        if (argc > 0)
                copy_file (*argv, "win-pre.in");

        copy_file("", "-");

        if (argc > 0)
                copy_file (*argv, "win-post.in");

        return 0;
}

char *ignore_list[64] = {
        "DOS##",
        "DOS",
        };

/*
 * Add a new item to the ignore list
 */
void add_ignore_list(char *str)
{
        char **cpp;

        for (cpp = ignore_list; *cpp; cpp++)
                ;
        *cpp = str;
}


/*
 *
 * Copy_file
 *
 * Copies file 'path\fname' to stdout.
 *
 */
static int
copy_file (char *path, char *fname)
{
    FILE *fin;
    char buf[1024];
    char **cpp, *ptr;
    size_t len, plen, flen;

    if (strcmp(fname, "-") == 0) {
            fin = stdin;
    } else {
            plen = strlen(path);
            flen = strlen(fname);
            if (plen + 1 + flen > sizeof(buf) - 1) {
                    fprintf(stderr, "Name %s or %s too long", path, fname);
                    return 1;
            }
            memcpy(buf, path, plen);
#ifdef _WIN32
            buf[plen] = '\\';
#else
            buf[plen] = '/';
#endif
            memcpy(buf + plen + 1, fname, flen);
            buf[plen + 1 + flen] = '\0';
            fin = fopen (buf, "r");                     /* File to read */
            if (fin == NULL) {
                    fprintf(stderr, "wconfig: Can't open file %s\n", buf);
                    return 1;
            }
    }


    while (fgets (buf, sizeof(buf), fin) != NULL) { /* Copy file over */
            if (buf[0] == '@') {
                    fputs("\n", stdout);
                    continue;
            }
            if (buf[0] != '#' || buf[1] != '#') {
                    fputs(buf, stdout);
                    continue;
            }
            ptr = buf;
            for (cpp = ignore_list; *cpp; cpp++) {
                    len = strlen(*cpp);
                    if (memcmp (*cpp, buf+2, len) == 0) {
                            ptr += 2+len;
                            break;
                    }
            }
            fputs(ptr, stdout);
    }

    fclose (fin);

    return 0;
}