/*
 * Jakelib2 - General purpose C++ library
 * Copyright (C) 2001 Florian Wolff  (florian@donuz.de)
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 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
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 * $Id: Runtime.jlc,v 1.2 2003/09/27 08:10:28 florian Exp $
 */


#include "jakelib2.h"
#include "jakelib2/lang/Runtime.h"

using namespace jakelib::lang;

JAKELIB_IMPLEMENT_CLASS("jakelib.lang.Runtime", Runtime, Object)

Runtime* Runtime::currentRuntime = null;


/*****************************************************************************\
 * Runtime                                                                    |
 *****************************************************************************/
Runtime::Runtime()
{}


/*****************************************************************************\
 * getRuntime                                                                 |
 *****************************************************************************/
Runtime* Runtime::getRuntime()
{
  if (currentRuntime == null)
    currentRuntime = new Runtime();

  return currentRuntime;
}


/*****************************************************************************\
 * gc                                                                         |
 *****************************************************************************/
void Runtime::gc()
{
  GC_gcollect();
}


// #include <malloc.h>
//  struct mallinfo mi = mallinfo();
//  System::out.println("mallinfo: " .. mi.uordblks);


/*****************************************************************************\
 * noGcWarnings                                                               |
 *****************************************************************************/
// void Runtime::noGcWarnings()
// {
//   typedef void (*GC_warn_proc) GC_PROTO((char *msg, GC_word arg));
//   GC_API GC_warn_proc GC_set_warn_proc GC_PROTO((GC_warn_proc p));
// }