1 /* $Id$
2
3 Part of the SWI-Prolog Semweb package
4
5 Author: Jan Wielemaker
6 E-mail: wielemak@science.uva.nl
7 WWW: http://www.swi-prolog.org
8 Copyright (C): 2006, University of Amsterdam
9
10 This program is free software; you can redistribute it and/or
11 modify it under the terms of the GNU General Public License
12 as published by the Free Software Foundation; either version 2
13 of the License, or (at your option) any later version.
14
15 This program is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
19
20 You should have received a copy of the GNU Lesser General Public
21 License along with this library; if not, write to the Free Software
22 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
23 */
24
25 #include "SWI-Prolog.h"
26 #include "debug.h"
27
28 #ifdef O_DEBUG
29
30 static int dbg_level;
31
32 int
rdf_debuglevel()33 rdf_debuglevel()
34 { return dbg_level;
35 }
36
37
38 foreign_t
rdf_debug(term_t level)39 rdf_debug(term_t level)
40 { if ( !PL_get_integer(level, &dbg_level) )
41 return FALSE;
42
43 return TRUE;
44 }
45
46 #endif
47