/* Semmle test case for NoSpaceForZeroTerminator.ql
   Associated with CWE-131  http://cwe.mitre.org/data/definitions/131.html
   Each query is expected to find exactly the lines marked BAD in the section corresponding to it.
*/

///// Library functions //////

typedef unsigned long size_t;

void *malloc(size_t size);
void free(void *ptr);
size_t wcslen(const wchar_t *s);
wchar_t* wcscpy(wchar_t* s1, const wchar_t* s2);
int sprintf(char *s, const char *format, ...);
int wprintf(const wchar_t *format, ...);
char *strcat(char *s1, const char *s2);
size_t strlen(const char *s);
int strcmp(const char *s1, const char *s2);

//// Test code /////

static void bad1(wchar_t *wstr) {
    // BAD -- Not allocating space for '\0' terminator
    wchar_t *wbuffer = (wchar_t *)malloc(wcslen(wstr)); // $ Alert
    wcscpy(wbuffer, wstr);
    free(wbuffer);
}

static void bad2(wchar_t *wstr) {
    // BAD -- Not allocating space for '\0' terminator
    wchar_t *wbuffer = (wchar_t *)malloc(wcslen(wstr) * sizeof(wchar_t)); // $ Alert
    wcscpy(wbuffer, wstr);
    free(wbuffer);
}

static void good1(wchar_t *wstr) {
    // GOOD -- Allocating extra character for terminator
    wchar_t *wbuffer = (wchar_t *)malloc((wcslen(wstr) + 1) * sizeof(wchar_t));
    wcscpy(wbuffer, wstr);
    free(wbuffer);
}

static void bad3(char *str) {
    // BAD -- zero-termination proved by sprintf (as destination)
    char *buffer = (char *)malloc(strlen(str)); // $ Alert
    sprintf(buffer, "%s", str);
    free(buffer);
}

void decode(char *dest, char *src);
void wdecode(wchar_t *dest, wchar_t *src);

static void bad4(char *str) {
    // BAD -- zero-termination proved by wprintf (as parameter)
    char *buffer = (char *)malloc(strlen(str)); // $ Alert
    decode(buffer, str);
    wprintf(L"%s", buffer);
    free(buffer);
}

static void bad5(char *str) {
    // BAD -- zero-termination proved by strcat (as destination)
    char *buffer = (char *)malloc(strlen(str)); // $ Alert
    buffer[0] = 0;
    strcat(buffer, str);
    free(buffer);
}

static void bad6(char *str, char *dest) {
    // BAD -- zero-termination proved by strcat (as source)
    char *buffer = (char *)malloc(strlen(str)); // $ Alert
    decode(buffer, str);
    strcat(dest, buffer);
    free(buffer);
}

static void bad7(char *str, char *str2) {
    // BAD -- zero-termination proved by strcmp
    char *buffer = (char *)malloc(strlen(str)); // $ Alert
    decode(buffer, str);
    if (strcmp(buffer, str2) == 0) {
        // ...
    }
    free(buffer);
}

static void bad8(wchar_t *str) {
    // BAD -- zero-termination proved by wcslen
    wchar_t *wbuffer = (wchar_t *)malloc(wcslen(str)); // $ Alert
    wdecode(wbuffer, str);
    if (wcslen(wbuffer) == 0) {
        // ...
    }
    free(wbuffer);
}

static void good2(char *str, char *dest) {
    // GOOD -- zero-termination not proven
    char *buffer = (char *)malloc(strlen(str));
    decode(buffer, str);
    free(buffer);
}

static void bad9(wchar_t *wstr) {
    // BAD -- using new
    wchar_t *wbuffer = new wchar_t[wcslen(wstr)]; // $ Alert
    wcscpy(wbuffer, wstr);
    delete wbuffer;
}

static void good3(char *str) {
    // GOOD -- zero-termination not required for this printf
    char *buffer = (char *)malloc(strlen(str));
    decode(buffer, str);
    wprintf(L"%p", buffer);
    free(buffer);
}

static void good4(char *str) {
    // GOOD -- zero-termination not required for this printf
    char *buffer = (char *)malloc(strlen(str));
    decode(buffer, str);
    wprintf(L"%.*s", strlen(str), buffer);
    free(buffer);
}
