/* This Source Code Form is subject to the terms of the Mozilla Public
 * License, v. 2.0. If a copy of the MPL was not distributed with this
 * file, You can obtain one at http://mozilla.org/MPL/2.0/. */

#include "plstr.h"
#include <string.h>

static const unsigned char uc[] = {
    '\000', '\001', '\002', '\003', '\004', '\005', '\006', '\007', '\010',
    '\011', '\012', '\013', '\014', '\015', '\016', '\017', '\020', '\021',
    '\022', '\023', '\024', '\025', '\026', '\027', '\030', '\031', '\032',
    '\033', '\034', '\035', '\036', '\037', ' ', '!', '"', '#',
    '$', '%', '&', '\'', '(', ')', '*', '+', ',',
    '-', '.', '/', '0', '1', '2', '3', '4', '5',
    '6', '7', '8', '9', ':', ';', '<', '=', '>',
    '?', '@', 'A', 'B', 'C', 'D', 'E', 'F', 'G',
    'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P',
    'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y',
    'Z', '[', '\\', ']', '^', '_', '`', 'A', 'B',
    'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K',
    'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T',
    'U', 'V', 'W', 'X', 'Y', 'Z', '{', '|', '}',
    '~', '\177', 0200, 0201, 0202, 0203, 0204, 0205, 0206,
    0207, 0210, 0211, 0212, 0213, 0214, 0215, 0216, 0217,
    0220, 0221, 0222, 0223, 0224, 0225, 0226, 0227, 0230,
    0231, 0232, 0233, 0234, 0235, 0236, 0237, 0240, 0241,
    0242, 0243, 0244, 0245, 0246, 0247, 0250, 0251, 0252,
    0253, 0254, 0255, 0256, 0257, 0260, 0261, 0262, 0263,
    0264, 0265, 0266, 0267, 0270, 0271, 0272, 0273, 0274,
    0275, 0276, 0277, 0300, 0301, 0302, 0303, 0304, 0305,
    0306, 0307, 0310, 0311, 0312, 0313, 0314, 0315, 0316,
    0317, 0320, 0321, 0322, 0323, 0324, 0325, 0326, 0327,
    0330, 0331, 0332, 0333, 0334, 0335, 0336, 0337, 0340,
    0341, 0342, 0343, 0344, 0345, 0346, 0347, 0350, 0351,
    0352, 0353, 0354, 0355, 0356, 0357, 0360, 0361, 0362,
    0363, 0364, 0365, 0366, 0367, 0370, 0371, 0372, 0373,
    0374, 0375, 0376, 0377
};

PR_IMPLEMENT(PRIntn)
PL_strcasecmp(const char* a, const char* b)
{
    const unsigned char* ua = (const unsigned char*)a;
    const unsigned char* ub = (const unsigned char*)b;

    if ((const char*)0 == a) {
        return ((const char*)0 == b) ? 0 : -1;
    }
    if ((const char*)0 == b) {
        return 1;
    }

    while ((uc[*ua] == uc[*ub]) && ('\0' != *a)) {
        a++;
        ua++;
        ub++;
    }

    return (PRIntn)(uc[*ua] - uc[*ub]);
}

PR_IMPLEMENT(PRIntn)
PL_strncasecmp(const char* a, const char* b, PRUint32 max)
{
    const unsigned char* ua = (const unsigned char*)a;
    const unsigned char* ub = (const unsigned char*)b;

    if ((const char*)0 == a) {
        return ((const char*)0 == b) ? 0 : -1;
    }
    if ((const char*)0 == b) {
        return 1;
    }

    while (max && (uc[*ua] == uc[*ub]) && ('\0' != *a)) {
        a++;
        ua++;
        ub++;
        max--;
    }

    if (0 == max) {
        return (PRIntn)0;
    }

    return (PRIntn)(uc[*ua] - uc[*ub]);
}

PR_IMPLEMENT(char*)
PL_strcasestr(const char* big, const char* little)
{
    PRUint32 ll;

    if (((const char*)0 == big) || ((const char*)0 == little)) {
        return (char*)0;
    }
    if (((char)0 == *big) || ((char)0 == *little)) {
        return (char*)0;
    }

    ll = strlen(little);

    for (; *big; big++) /* obvious improvement available here */
        if (0 == PL_strncasecmp(big, little, ll)) {
            return (char*)big;
        }

    return (char*)0;
}

PR_IMPLEMENT(char*)
PL_strcaserstr(const char* big, const char* little)
{
    const char* p;
    PRUint32 bl, ll;

    if (((const char*)0 == big) || ((const char*)0 == little)) {
        return (char*)0;
    }
    if (((char)0 == *big) || ((char)0 == *little)) {
        return (char*)0;
    }

    bl = strlen(big);
    ll = strlen(little);
    if (bl < ll) {
        return (char*)0;
    }
    p = &big[bl - ll];

    for (; p >= big; p--) /* obvious improvement available here */
        if (0 == PL_strncasecmp(p, little, ll)) {
            return (char*)p;
        }

    return (char*)0;
}

PR_IMPLEMENT(char*)
PL_strncasestr(const char* big, const char* little, PRUint32 max)
{
    PRUint32 ll;

    if (((const char*)0 == big) || ((const char*)0 == little)) {
        return (char*)0;
    }
    if (((char)0 == *big) || ((char)0 == *little)) {
        return (char*)0;
    }

    ll = strlen(little);
    if (ll > max) {
        return (char*)0;
    }
    max -= ll;
    max++;

    for (; max && *big; big++, max--) /* obvious improvement available here */
        if (0 == PL_strncasecmp(big, little, ll)) {
            return (char*)big;
        }

    return (char*)0;
}

PR_IMPLEMENT(char*)
PL_strncaserstr(const char* big, const char* little, PRUint32 max)
{
    const char* p;
    PRUint32 ll;

    if (((const char*)0 == big) || ((const char*)0 == little)) {
        return (char*)0;
    }
    if (((char)0 == *big) || ((char)0 == *little)) {
        return (char*)0;
    }

    ll = strlen(little);

    for (p = big; max && *p; p++, max--)
        ;

    p -= ll;
    if (p < big) {
        return (char*)0;
    }

    for (; p >= big; p--) /* obvious improvement available here */
        if (0 == PL_strncasecmp(p, little, ll)) {
            return (char*)p;
        }

    return (char*)0;
}