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)33 void 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)48 warning_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