30afaae7df
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/branches/gsoc2009-matevz@11914 626c5289-ae23-0410-ae9c-e8d60b6d4f22
38 lines
1.3 KiB
C
38 lines
1.3 KiB
C
/* -----------------------------------------------------------------------------
|
|
* This file is part of SWIG, which is licensed as a whole under version 3
|
|
* (or any later version) of the GNU General Public License. Some additional
|
|
* terms also apply to certain portions of SWIG. The full details of the SWIG
|
|
* license and copyrights can be found in the LICENSE and COPYRIGHT files
|
|
* included with the SWIG source code as distributed by the SWIG developers
|
|
* and at http://www.swig.org/legal.html.
|
|
*
|
|
* warn.c
|
|
*
|
|
* SWIG warning framework. This was added to warn developers about
|
|
* deprecated APIs and other features.
|
|
* ----------------------------------------------------------------------------- */
|
|
|
|
char cvsroot_warn_c[] = "$Id$";
|
|
|
|
#include "swig.h"
|
|
|
|
static Hash *warnings = 0;
|
|
|
|
/* -----------------------------------------------------------------------------
|
|
* Swig_warn()
|
|
*
|
|
* Issue a warning
|
|
* ----------------------------------------------------------------------------- */
|
|
|
|
void Swig_warn(const char *filename, int line, const char *msg) {
|
|
String *key;
|
|
if (!warnings) {
|
|
warnings = NewHash();
|
|
}
|
|
key = NewStringf("%s:%d", filename, line);
|
|
if (!Getattr(warnings, key)) {
|
|
Printf(stderr, "swig-dev warning:%s:%d:%s\n", filename, line, msg);
|
|
Setattr(warnings, key, key);
|
|
}
|
|
Delete(key);
|
|
}
|