/**
 *
 * $Id: misc.c,v 1.1 2004/08/28 19:22:35 dannybackx Exp $
 *
 * Copyright (C) 1995 Free Software Foundation, Inc.
 * Copyright (C) 1995-2001 LessTif Development Team
 *
 * This file is part of the GNU LessTif Library.
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Library General Public
 * License as published by the Free Software Foundation; either
 * version 2 of the License, or (at your option) any later version.
 *
 * This library 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
 * Library General Public License for more details.
 *
 * You should have received a copy of the GNU Library General Public
 * License along with this library; if not, write to the Free
 * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 *
 *  Original author:  Geoffrey W. Ritchey
 *                    codesmit@southwind.net
 *
*/

#include <LTconfig.h>

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <stdarg.h>

#include "misc.h"

#include <XmI/DebugUtil.h>


static const int BUFFER_SIZE = 256;
int __MrmStackPointer = 0;
char *__MrmStack[MAX_STACK];


char *
__MrmStore(char *s)
{
    int len = strlen(s);
    static char *buffer = NULL;
    static int SpaceAvailable = 0;
    char *ReturnValue;

    if (len >= SpaceAvailable)
    {
	int BufferSize = BUFFER_SIZE;
	if (len > BUFFER_SIZE)
	    BufferSize = len + 1;
	buffer = (char *)malloc(BufferSize * sizeof(char));
	if (NULL == buffer)
	{
	    __MrmExit(LOC, "can't alloc memory\n");
	}
	SpaceAvailable = BufferSize;
    }

    ReturnValue = buffer;

    while (*s)
	*buffer++ = *s++;
    *buffer++ = 0;
    SpaceAvailable -= (len + 1);
    return ReturnValue;
}

void 
__MrmPush(char *s)
{
    __MrmStack[__MrmStackPointer] = s;
    __MrmStackPointer++;
    if (__MrmStackPointer >= MAX_STACK)
    {
	__MrmExit(LOC, "STACK OVERFLOW");
    }
}

char *
__MrmPop(void)
{
    __MrmStackPointer--;
    if (__MrmStackPointer < 0)
    {
	__MrmExit(LOC, "STACK UNDERFLOW\n");
    }
    return __MrmStack[__MrmStackPointer];
}

void 
__MrmExit(int line, char *file, const char *fmt,...)
{
    va_list ap;

    va_start(ap, fmt);
    fprintf(stderr, "%s:%d:", file, line);
    vfprintf(stderr, fmt, ap);
    va_end(ap);
    abort();			/* Get a dump so we can see the stack frame, variables, etc... */
}

void 
__MrmWarn(int line, char *file, const char *fmt,...)
{
    va_list ap;

    va_start(ap, fmt);
    fprintf(stderr, "%s:%d:", file, line);
    vfprintf(stderr, fmt, ap);
    va_end(ap);
    return;
}