stdsage.c

/**
 * @file stdsage.c
 *
 * Some global C stuff that gets imported into pyrex modules.
 *
 */
   
/******************************************************************************
 *     Copyright (C) 2006 William Stein <[email protected]>
 *                   2006 David Harvey <[email protected]>
 *                   2006 Martin Albrecht <[email protected]>
 *                   2011 Jeroen Demeyer <[email protected]>
 *
 *  Distributed under the terms of the GNU General Public License (GPL)
 *  as published by the Free Software Foundation; either version 2 of
 *  the License, or (at your option) any later version.
 *                  http://www.gnu.org/licenses/
 ****************************************************************************/


#include "stdsage.h"
#include "interrupt.h"

PyObject* global_empty_tuple;

void init_global_empty_tuple(void) {
  _CALLED_ONLY_ONCE;

  global_empty_tuple = PyTuple_New(0);
}


/*
  This function gets called whenever NTL calls Error().
  s is the error message generated by NTL.
  We just copy the error message into a global buffer, and then abort() to run
  the usual interrupt machinery.
 */
void global_NTL_error_callback(const char* s, void* context)
{
    set_sage_signal_handler_message(s);
    abort();
}


/* This is called once during Sage startup. On some platforms like
 * Cygwin, this is also called from init_csage_module(). */
void init_csage() {
    init_global_empty_tuple();
    init_memory_functions();
    setup_sage_signal_handler();
    setup_NTL_error_callback(global_NTL_error_callback, NULL);
}

/* This is called once for every single module that links in stdsage */
void init_csage_module() {
#if defined(__CYGWIN32__)
    init_csage();
#endif
}