1 //============================================================================================== 2 // 3 // This file is part of LiDIA --- a library for computational number theory 4 // 5 // Copyright (c) 1994--2001 the LiDIA Group. All rights reserved. 6 // 7 // See http://www.informatik.tu-darmstadt.de/TI/LiDIA/ 8 // 9 //---------------------------------------------------------------------------------------------- 10 // 11 // $Id$ 12 // 13 // Author : Thomas Papanikolaou (TP) 14 // Changes : See CVS log 15 // 16 //============================================================================================== 17 18 19 #ifdef HAVE_CONFIG_H 20 # include "config.h" 21 #endif 22 #include "LiDIA/LiDIA.h" 23 #include <iostream> 24 25 26 27 #ifdef LIDIA_NAMESPACE 28 namespace LiDIA { 29 #endif 30 31 32 default_warning_handler(char * f,char * m)33void default_warning_handler(char *f, char *m) 34 { 35 std::cout << "\n warning_handler"; 36 std::cout << "::" << f; 37 std::cout << "::" << m; 38 std::cout << "\n"; 39 std::cout.flush(); 40 } 41 42 43 44 warning_handler_ptr lidia_warning_handler = default_warning_handler; 45 46 47 set_warning_handler(warning_handler_ptr new_handler)48warning_handler_ptr set_warning_handler(warning_handler_ptr new_handler) 49 { 50 warning_handler_ptr old_handler = lidia_warning_handler; 51 lidia_warning_handler = new_handler; 52 return old_handler; 53 } 54 55 56 57 #ifdef LIDIA_NAMESPACE 58 } // end of namespace LiDIA 59 #endif 60