/Users/mourrain/Devel/mmx/numerix/src/numerix.cpp

Go to the documentation of this file.

/******************************************************************************
* MODULE     : numerix.cpp
* DESCRIPTION: Basic inclusions, definitions and routines
* COPYRIGHT  : (C) 2003  Joris van der Hoeven
*******************************************************************************
* This software falls under the GNU general public license and comes WITHOUT
* ANY WARRANTY WHATSOEVER. See the file $TEXMACS_PATH/LICENSE for more details.
* If you don't have this file, write to the Free Software Foundation, Inc.,
* 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
******************************************************************************/

#include <numerix/rational.hpp>
#include <basix/glue.hpp>
namespace mmx {

gmp_randstate_t gmp_randstate;
extern string (*as_string_hook) (double);
string mpfr_double_as_string (double x);

generic
simple_construct_integer (const integer& i) {
  return generic (as_string (i));
}

generic
simple_construct_rational (const rational& x) {
  if (denominator (x) == 1) return generic (as_string (numerator (x)));
  return generic (as_string (numerator (x))) /
         generic (as_string (denominator (x)));
}

/*
void*
numerix_malloc (size_t new_size) {
  mmout << "[+" << new_size << "]" << flush_now;
  return mmx_malloc (new_size);
}

void*
numerix_realloc (void* ptr, size_t old_size, size_t new_size) {
  mmout << "[" << old_size << "->" << new_size << "]" << flush_now;
  return mmx_realloc (ptr, old_size, new_size);
}

void
numerix_free (void* ptr, size_t old_size) {
  mmout << "[-" << old_size << "]" << flush_now;
  mmx_free (ptr, old_size);
}
*/

struct numerix_instance {
  numerix_instance () {
    mp_set_memory_functions (mmx_malloc, mmx_realloc, mmx_free);
    //mp_set_memory_functions (numerix_malloc, numerix_realloc, numerix_free);
    gmp_randinit_default (gmp_randstate);
    as_string_hook= mpfr_double_as_string;
  }
  ~numerix_instance () {}
};

numerix_instance numerix_inst;

} // namespace mmx