source: to-imperative/trunk/runtime/rf_core.hh @ 583

//
// Copyright (C) 2000 Refal+ Development Group
//
// Refal+ 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 2 of the License, or
// (at your option) any later version.
//
// Refal+ 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 Refal+; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//
// $Source$
// $Revision: 583 $
// $Date: 2003-03-05 10:19:51 +0000 (Wed, 05 Mar 2003) $
// Author: Andrey Slepuhin <pooh@msu.ru>

#ifndef __rf_core_hh__
#define __rf_core_hh__

#include "rf_term.ih"
#include "rf_expr.ih"
#include "rf_stack.hh"
#include "rf_arg.hh"
#include "rf_result.hh"
#include "rf_retval.hh"
#include "rf_macros.hh"
#include "rf_memory_chunk.hh"
#include "rf_char.ih"
#include "rf_short_int.ih"
#include "rf_box.ih"
#include "rf_vector.ih"
#include "pxx_heap_allocator.ih"
#include "pxx_common.ih"

namespace rfrt
{

extern const Expr empty;

extern RetVal (*entry) () ;

class Entry
{
public:
  Entry (RetVal (*_entry) ()) { rfrt::entry = _entry; }
};

}

#endif // __rf_core_hh__