|
1268
|
1 /* debug.c: Help the user discover what's going on. |
|
|
2 |
|
|
3 Copyright (C) 1993, 94 Karl Berry. |
|
|
4 |
|
|
5 This program is free software; you can redistribute it and/or modify |
|
|
6 it under the terms of the GNU General Public License as published by |
|
|
7 the Free Software Foundation; either version 2, or (at your option) |
|
|
8 any later version. |
|
|
9 |
|
|
10 This program is distributed in the hope that it will be useful, |
|
|
11 but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
|
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
|
13 GNU General Public License for more details. |
|
|
14 |
|
|
15 You should have received a copy of the GNU General Public License |
|
|
16 along with this program; if not, write to the Free Software |
|
1315
|
17 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ |
|
1268
|
18 |
|
|
19 #include <kpathsea/config.h> |
|
|
20 |
|
|
21 #ifdef DEBUG |
|
|
22 |
|
|
23 unsigned kpathsea_debug = 0; |
|
|
24 |
|
|
25 /* If the real definitions of fopen or fclose are macros, we lose -- the |
|
|
26 #undef won't restore them. */ |
|
|
27 |
|
|
28 FILE * |
|
|
29 fopen P2C(const_string, filename, const_string, mode) |
|
|
30 { |
|
|
31 #undef fopen |
|
|
32 FILE *ret = fopen (filename, mode); |
|
|
33 |
|
|
34 if (KPSE_DEBUG_P (KPSE_DEBUG_FOPEN)) |
|
|
35 DEBUGF3 ("fopen(%s, %s) => 0x%lx\n", filename, mode, (unsigned long) ret); |
|
|
36 |
|
|
37 return ret; |
|
|
38 } |
|
|
39 |
|
|
40 int |
|
|
41 fclose P1C(FILE *, f) |
|
|
42 { |
|
|
43 #undef fclose |
|
|
44 int ret = fclose (f); |
|
|
45 |
|
|
46 if (KPSE_DEBUG_P (KPSE_DEBUG_FOPEN)) |
|
|
47 DEBUGF2 ("fclose(0x%lx) => %d\n", (unsigned long) f, ret); |
|
|
48 |
|
|
49 return ret; |
|
|
50 } |
|
|
51 |
|
|
52 #endif /* DEBUG */ |
