/*  Copyright (C) 1996-1997  Id Software, Inc.

    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

    See file, 'COPYING', for details.
*/

#include <common/cmdlib.hh>
#include <common/log.hh>
#include <common/threads.hh>

#include <sys/types.h>
#include <sys/stat.h>

#ifdef _WIN32
#include <direct.h>
#include <windows.h>
#endif

#ifdef LINUX
#include <sys/time.h>
#include <unistd.h>
#include <cstring>
#endif

#include <cstdint>

#include <algorithm>
#include <string>

/* set these before calling CheckParm */
int myargc;
char **myargv;

char com_token[1024];
bool com_eof;

/*
 * =================
 * Error
 * For abnormal program terminations
 * =================
 */
[[noreturn]] void Error(const char *error)
{
    logging::print("************ ERROR ************\n{}\n", error);
    logging::close();
#ifdef _DEBUG
    __debugbreak();
#endif
    exit(1);
}

void // mxd
string_replaceall(std::string &str, const std::string &from, const std::string &to)
{
    if (from.empty()) {
        return;
    }

    size_t start_pos = 0;
    while ((start_pos = str.find(from, start_pos)) != std::string::npos) {
        str.replace(start_pos, from.length(), to);
        start_pos += to.length(); // In case 'to' contains 'from', like replacing 'x' with 'yx'
    }
}

bool // mxd
string_iequals(const std::string_view &a, const std::string_view &b)
{
    size_t sz = a.size();
    if (b.size() != sz)
        return false;
    for (size_t i = 0; i < sz; ++i)
        if (tolower(a[i]) != tolower(b[i]))
            return false;
    return true;
}

/* ========================================================================= */

/*
 * FIXME: byte swap?
 *
 * this is a 16 bit, non-reflected CRC using the polynomial 0x1021
 * and the initial and final xor values shown below...  in other words, the
 * CCITT standard CRC used by XMODEM
 */

constexpr uint16_t CRC_INIT_VALUE = 0xffff;

static uint16_t crctable[256] = {0x0000, 0x1021, 0x2042, 0x3063, 0x4084, 0x50a5, 0x60c6, 0x70e7, 0x8108, 0x9129, 0xa14a,
    0xb16b, 0xc18c, 0xd1ad, 0xe1ce, 0xf1ef, 0x1231, 0x0210, 0x3273, 0x2252, 0x52b5, 0x4294, 0x72f7, 0x62d6, 0x9339,
    0x8318, 0xb37b, 0xa35a, 0xd3bd, 0xc39c, 0xf3ff, 0xe3de, 0x2462, 0x3443, 0x0420, 0x1401, 0x64e6, 0x74c7, 0x44a4,
    0x5485, 0xa56a, 0xb54b, 0x8528, 0x9509, 0xe5ee, 0xf5cf, 0xc5ac, 0xd58d, 0x3653, 0x2672, 0x1611, 0x0630, 0x76d7,
    0x66f6, 0x5695, 0x46b4, 0xb75b, 0xa77a, 0x9719, 0x8738, 0xf7df, 0xe7fe, 0xd79d, 0xc7bc, 0x48c4, 0x58e5, 0x6886,
    0x78a7, 0x0840, 0x1861, 0x2802, 0x3823, 0xc9cc, 0xd9ed, 0xe98e, 0xf9af, 0x8948, 0x9969, 0xa90a, 0xb92b, 0x5af5,
    0x4ad4, 0x7ab7, 0x6a96, 0x1a71, 0x0a50, 0x3a33, 0x2a12, 0xdbfd, 0xcbdc, 0xfbbf, 0xeb9e, 0x9b79, 0x8b58, 0xbb3b,
    0xab1a, 0x6ca6, 0x7c87, 0x4ce4, 0x5cc5, 0x2c22, 0x3c03, 0x0c60, 0x1c41, 0xedae, 0xfd8f, 0xcdec, 0xddcd, 0xad2a,
    0xbd0b, 0x8d68, 0x9d49, 0x7e97, 0x6eb6, 0x5ed5, 0x4ef4, 0x3e13, 0x2e32, 0x1e51, 0x0e70, 0xff9f, 0xefbe, 0xdfdd,
    0xcffc, 0xbf1b, 0xaf3a, 0x9f59, 0x8f78, 0x9188, 0x81a9, 0xb1ca, 0xa1eb, 0xd10c, 0xc12d, 0xf14e, 0xe16f, 0x1080,
    0x00a1, 0x30c2, 0x20e3, 0x5004, 0x4025, 0x7046, 0x6067, 0x83b9, 0x9398, 0xa3fb, 0xb3da, 0xc33d, 0xd31c, 0xe37f,
    0xf35e, 0x02b1, 0x1290, 0x22f3, 0x32d2, 0x4235, 0x5214, 0x6277, 0x7256, 0xb5ea, 0xa5cb, 0x95a8, 0x8589, 0xf56e,
    0xe54f, 0xd52c, 0xc50d, 0x34e2, 0x24c3, 0x14a0, 0x0481, 0x7466, 0x6447, 0x5424, 0x4405, 0xa7db, 0xb7fa, 0x8799,
    0x97b8, 0xe75f, 0xf77e, 0xc71d, 0xd73c, 0x26d3, 0x36f2, 0x0691, 0x16b0, 0x6657, 0x7676, 0x4615, 0x5634, 0xd94c,
    0xc96d, 0xf90e, 0xe92f, 0x99c8, 0x89e9, 0xb98a, 0xa9ab, 0x5844, 0x4865, 0x7806, 0x6827, 0x18c0, 0x08e1, 0x3882,
    0x28a3, 0xcb7d, 0xdb5c, 0xeb3f, 0xfb1e, 0x8bf9, 0x9bd8, 0xabbb, 0xbb9a, 0x4a75, 0x5a54, 0x6a37, 0x7a16, 0x0af1,
    0x1ad0, 0x2ab3, 0x3a92, 0xfd2e, 0xed0f, 0xdd6c, 0xcd4d, 0xbdaa, 0xad8b, 0x9de8, 0x8dc9, 0x7c26, 0x6c07, 0x5c64,
    0x4c45, 0x3ca2, 0x2c83, 0x1ce0, 0x0cc1, 0xef1f, 0xff3e, 0xcf5d, 0xdf7c, 0xaf9b, 0xbfba, 0x8fd9, 0x9ff8, 0x6e17,
    0x7e36, 0x4e55, 0x5e74, 0x2e93, 0x3eb2, 0x0ed1, 0x1ef0};

void CRC_Init(uint16_t &crcvalue)
{
    crcvalue = CRC_INIT_VALUE;
}

void CRC_ProcessByte(uint16_t &crcvalue, uint8_t data)
{
    crcvalue = (crcvalue << 8) ^ crctable[(crcvalue >> 8) ^ data];
}

uint16_t CRC_Block(const uint8_t *start, int count)
{
    uint16_t crc;
    CRC_Init(crc);
    while (count--)
        CRC_ProcessByte(crc, *start++);
    return crc;
}

/**
//========================================================================
// Copyright (c) 1998-2010,2011 Free Software Foundation, Inc.
//
// Permission is hereby granted, free of charge, to any person obtaining a
// copy of this software and associated documentation files (the
// "Software"), to deal in the Software without restriction, including
// without limitation the rights to use, copy, modify, merge, publish,
// distribute, distribute with modifications, sublicense, and/or sell
// copies of the Software, and to permit persons to whom the Software is
// furnished to do so, subject to the following conditions:
//
// The above copyright notice and this permission notice shall be included
// in all copies or substantial portions of the Software.
//
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
// OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
// MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
// IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,
// DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR
// OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
// THE USE OR OTHER DEALINGS IN THE SOFTWARE.
//
// Except as contained in this notice, the name(s) of the above copyright
// holders shall not be used in advertising or otherwise to promote the
// sale, use or other dealings in this Software without prior written
// authorization.
//========================================================================

//========================================================================
//  Author: Jan-Marten Spit <jmspit@euronet.nl>
//========================================================================
 */

inline bool t_digit(char c)
{
    return c >= 48 && c <= 57;
}

inline bool t_lower(char c)
{
    return std::tolower(c);
}

int natstrcmp(const char *s1, const char *s2, bool case_sensitive)
{
    const char *p1 = s1;
    const char *p2 = s2;
    const unsigned short st_scan = 0;
    const unsigned short st_alpha = 1;
    const unsigned short st_numeric = 2;
    unsigned short state = st_scan;
    const char *numstart1 = 0;
    const char *numstart2 = 0;
    const char *numend1 = 0;
    const char *numend2 = 0;
    unsigned long sz1 = 0;
    unsigned long sz2 = 0;
    while (*p1 && *p2) {
        switch (state) {
            case st_scan:
                if (!t_digit(*p1) && !t_digit(*p2)) {
                    state = st_alpha;
                    if (case_sensitive ? (*p1 == *p2) : (t_lower(*p1) == t_lower(*p2))) {
                        p1++;
                        p2++;
                    } else if (case_sensitive ? (*p1 < *p2) : (t_lower(*p1) < t_lower(*p2)))
                        return -1;
                    else
                        return 1;
                } else if (t_digit(*p1) && !t_digit(*p2))
                    return -1;
                else if (!t_digit(*p1) && t_digit(*p2))
                    return 1;
                else {
                    if (sz1 == 0)
                        while (*p1 == '0') {
                            p1++;
                            sz1++;
                        }
                    else
                        while (*p1 == '0')
                            p1++;
                    if (sz2 == 0)
                        while (*p2 == '0') {
                            p2++;
                            sz2++;
                        }
                    else
                        while (*p2 == '0')
                            p2++;
                    if (sz1 == sz2) {
                        sz1 = 0;
                        sz2 = 0;
                    };
                    if (!t_digit(*p1))
                        p1--;
                    if (!t_digit(*p2))
                        p2--;
                    numstart1 = p1;
                    numstart2 = p2;
                    numend1 = numstart1;
                    numend2 = numstart2;
                    p1++;
                    p2++;
                }
                break;
            case st_alpha:
                if (!t_digit(*p1) && !t_digit(*p2)) {
                    if (case_sensitive ? (*p1 == *p2) : (t_lower(*p1) == t_lower(*p2))) {
                        p1++;
                        p2++;
                    } else if (case_sensitive ? (*p1 < *p2) : (t_lower(*p1) < t_lower(*p2)))
                        return -1;
                    else
                        return 1;
                } else
                    state = st_scan;
                break;
            case st_numeric:
                while (t_digit(*p1))
                    numend1 = p1++;
                while (t_digit(*p2))
                    numend2 = p2++;
                if (numend1 - numstart1 == numend2 - numstart2 && case_sensitive
                        ? (!strncmp(numstart1, numstart2, numend2 - numstart2 + 1))
                        : (!Q_strncasecmp(numstart1, numstart2, numend2 - numstart2 + 1)))
                    state = st_scan;
                else {
                    if (numend1 - numstart1 < numend2 - numstart2)
                        return -1;
                    if (numend1 - numstart1 > numend2 - numstart2)
                        return 1;
                    while (*numstart1 && *numstart2) {
                        if (*numstart1 < *numstart2)
                            return -1;
                        if (*numstart1 > *numstart2)
                            return 1;
                        numstart1++;
                        numstart2++;
                    }
                }
                break;
        }
    }
    if (sz1 < sz2)
        return -1;
    if (sz1 > sz2)
        return 1;
    if (*p1 == 0 && *p2 != 0)
        return -1;
    if (*p1 != 0 && *p2 == 0)
        return 1;
    return 0;
}

/**
 * STL natural less-than string compare
 * @return true when natural s1 < s2
 */
bool natstrlt(const char *s1, const char *s2, bool case_sensitive)
{
    // std::cout << "natstrlt s1=" << s1 << " s2=" << s2 << std::endl;
    const char *p1 = s1;
    const char *p2 = s2;
    const unsigned short st_scan = 0;
    const unsigned short st_alpha = 1;
    const unsigned short st_numeric = 2;
    unsigned short state = st_scan;
    const char *numstart1 = 0;
    const char *numstart2 = 0;
    const char *numend1 = 0;
    const char *numend2 = 0;
    unsigned long sz1 = 0;
    unsigned long sz2 = 0;
    while (*p1 && *p2) {
        switch (state) {
            case st_scan:
                if (!t_digit(*p1) && !t_digit(*p2)) {
                    state = st_alpha;
                    if (case_sensitive ? (*p1 == *p2) : (t_lower(*p1) == t_lower(*p2))) {
                        p1++;
                        p2++;
                    } else
                        return case_sensitive ? (*p1 < *p2) : (t_lower(*p1) < t_lower(*p2));
                } else if (t_digit(*p1) && !t_digit(*p2))
                    return true;
                else if (!t_digit(*p1) && t_digit(*p2))
                    return false;
                else {
                    state = st_numeric;
                    if (sz1 == 0)
                        while (*p1 == '0') {
                            p1++;
                            sz1++;
                        }
                    else
                        while (*p1 == '0')
                            p1++;
                    if (sz2 == 0)
                        while (*p2 == '0') {
                            p2++;
                            sz2++;
                        }
                    else
                        while (*p2 == '0')
                            p2++;
                    if (sz1 == sz2) {
                        sz1 = 0;
                        sz2 = 0;
                    };
                    if (!t_digit(*p1))
                        p1--;
                    if (!t_digit(*p2))
                        p2--;
                    numstart1 = p1;
                    numstart2 = p2;
                    numend1 = numstart1;
                    numend2 = numstart2;
                }
                break;
            case st_alpha:
                if (!t_digit(*p1) && !t_digit(*p2)) {
                    if (case_sensitive ? (*p1 == *p2) : (t_lower(*p1) == t_lower(*p2))) {
                        p1++;
                        p2++;
                    } else
                        return case_sensitive ? (*p1 < *p2) : (t_lower(*p1) < t_lower(*p2));
                } else
                    state = st_scan;
                break;
            case st_numeric:
                while (t_digit(*p1))
                    numend1 = p1++;
                while (t_digit(*p2))
                    numend2 = p2++;
                if (numend1 - numstart1 == numend2 - numstart2 &&
                    !strncmp(numstart1, numstart2, numend2 - numstart2 + 1))
                    state = st_scan;
                else {
                    if (numend1 - numstart1 != numend2 - numstart2)
                        return numend1 - numstart1 < numend2 - numstart2;
                    while (*numstart1 && *numstart2) {
                        if (*numstart1 != *numstart2)
                            return *numstart1 < *numstart2;
                        numstart1++;
                        numstart2++;
                    }
                }
                break;
        }
    }
    if (sz1 < sz2)
        return true;
    if (sz1 > sz2)
        return false;
    if (*p1 == 0 && *p2 != 0)
        return true;
    if (*p1 != 0 && *p2 == 0)
        return false;
    return false;
}

std::string_view::const_iterator string_ifind(std::string_view haystack, std::string_view needle)
{
    return std::search(haystack.begin(), haystack.end(), needle.begin(), needle.end(),
        [](char a, char b) { return tolower(a) == tolower(b); });
}

bool string_icontains(std::string_view haystack, std::string_view needle)
{
    return string_ifind(haystack, needle) != haystack.end();
}