/****
 ** Platform-dependent file
 ****/

/* common.c - Common functions

   Copyright (C) 1993 Werner Almesberger <werner.almesberger@lrc.di.epfl.ch>
   Copyright (C) 1998 Roman Hodek <Roman.Hodek@informatik.uni-erlangen.de>
   Copyright (C) 2008-2014 Daniel Baumann <mail@daniel-baumann.ch>

   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 3 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, see <http://www.gnu.org/licenses/>.

   The complete text of the GNU General Public License
   can be found in /usr/share/common-licenses/GPL-3 file.
*/

/* FAT32, VFAT, Atari format support, and various fixes additions May 1998
 * by Roman Hodek <Roman.Hodek@informatik.uni-erlangen.de> */

#include "vfatlib.h"

#define NDEBUG
#include <debug.h>


typedef struct _link {
    void *data;
    struct _link *next;
} LINK;

DECLSPEC_NORETURN // __attribute((noreturn))
void exit(int exitcode)
{
    // DbgBreakPoint();
    NtTerminateProcess(NtCurrentProcess(), exitcode);

    /* Should never get here */
    while(1);
}

DECLSPEC_NORETURN // __attribute((noreturn))
void die_func(const char *msg, ...) // die
{
    va_list args;

    va_start(args, msg);
    // vfprintf(stderr, msg, args);
    DPRINT1("Unrecoverable problem!\n");
    VfatPrintV((char*)msg, args);
    va_end(args);
    // // fprintf(stderr, "\n");
    // VfatPrint("\n");

    exit(1);
}

DECLSPEC_NORETURN // __attribute((noreturn))
void pdie_func(const char *msg, ...) // pdie
{
    va_list args;

    va_start(args, msg);
    // vfprintf(stderr, msg, args);
    DPRINT1("Unrecoverable problem!\n");
    VfatPrintV((char*)msg, args);
    va_end(args);
    // // fprintf(stderr, ":%s\n", strerror(errno));
    // // VfatPrint(":%s\n", strerror(errno));
    // VfatPrint("\n");

    exit(1);
}

void *vfalloc(size_t size)
{
    void *ptr;

    ptr = RtlAllocateHeap(RtlGetProcessHeap(), 0, size);
    if (ptr == NULL)
    {
        DPRINT1("Allocation failed!\n");
        pdie("malloc");
        return NULL;
    }

    return ptr;
}

void *vfcalloc(size_t size, size_t count)
{
    void *ptr;

    ptr = RtlAllocateHeap(RtlGetProcessHeap(), HEAP_ZERO_MEMORY, size * count);
    if (ptr == NULL)
    {
        DPRINT1("Allocation failed!\n");
        return NULL;
    }

    return ptr;
}

void vffree(void *ptr)
{
    RtlFreeHeap(RtlGetProcessHeap(), 0, ptr);
}

void *qalloc(void **root, int size)
{
    LINK *link;

    link = vfalloc(sizeof(LINK));
    link->next = *root;
    *root = link;
    return link->data = vfalloc(size);
}

void qfree(void **root)
{
    LINK *this;

    while (*root) {
	this = (LINK *) * root;
	*root = this->next;
	vffree(this->data);
	vffree(this);
    }
}


#ifdef min
#undef min
#endif
int min(int a,int b)
{
    return a < b ? a : b;
}


char get_key(const char *valid, const char *prompt)
{
#if 0
    int ch, okay;

    while (1) {
	if (prompt)
	    printf("%s ", prompt);
	fflush(stdout);
	while (ch = getchar(), ch == ' ' || ch == '\t') ;
	if (ch == EOF)
	    exit(1);
	if (!strchr(valid, okay = ch))
	    okay = 0;
	while (ch = getchar(), ch != '\n' && ch != EOF) ;
	if (ch == EOF)
	    exit(1);
	if (okay)
	    return okay;
	printf("Invalid input.\n");
    }
#else
    return 0;
#endif
}