diff options
author | Karl Berry <karl@freefriends.org> | 2021-02-25 19:22:25 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2021-02-25 19:22:25 +0000 |
commit | ad547a6b5986815fda458221149728d9d9ab1d87 (patch) | |
tree | 16296910eb3eca724371474ea9aea3994dc69614 /Build/source/texk/kpathsea/debug.c | |
parent | 947b43de3dd21d58ccc2ffadefc4441ea1c2a813 (diff) |
restore Build,TODO from r57911
git-svn-id: svn://tug.org/texlive/trunk@57915 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/kpathsea/debug.c')
-rw-r--r-- | Build/source/texk/kpathsea/debug.c | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/Build/source/texk/kpathsea/debug.c b/Build/source/texk/kpathsea/debug.c new file mode 100644 index 00000000000..0bcd62495ac --- /dev/null +++ b/Build/source/texk/kpathsea/debug.c @@ -0,0 +1,59 @@ +/* debug.c: help the user discover what's going on. + + Copyright 1993, 1994, 2008 Karl Berry. + + This library is free software; you can redistribute it and/or + modify it under the terms of the GNU Lesser General Public + License as published by the Free Software Foundation; either + version 2.1 of the License, or (at your option) any later version. + + This library is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + Lesser General Public License for more details. + + You should have received a copy of the GNU Lesser General Public License + along with this library; if not, see <http://www.gnu.org/licenses/>. */ + +#include <kpathsea/config.h> + +#ifdef KPSE_DEBUG /* whole file */ + +/* If the real definitions of fopen or fclose are macros, we lose -- the + #undef won't restore them. */ + +FILE * +fopen (const char *filename, const char *mode) +{ +#undef fopen + FILE *ret = fopen (filename, mode); +#if defined (KPSE_COMPAT_API) + kpathsea kpse = kpse_def; + if (KPATHSEA_DEBUG_P (KPSE_DEBUG_FOPEN)) +#if defined(_WIN64) + DEBUGF3 ("fopen(%s, %s) => 0x%I64x\n", filename, mode, (unsigned __int64) ret); +#else + DEBUGF3 ("fopen(%s, %s) => 0x%lx\n", filename, mode, (unsigned long) ret); +#endif +#endif + return ret; +} + +int +fclose (FILE * f) +{ +#undef fclose + int ret = fclose (f); +#if defined (KPSE_COMPAT_API) + kpathsea kpse = kpse_def; + if (KPATHSEA_DEBUG_P (KPSE_DEBUG_FOPEN)) +#if defined(_WIN64) + DEBUGF2 ("fclose(0x%I64x) => %d\n", (unsigned __int64) f, ret); +#else + DEBUGF2 ("fclose(0x%lx) => %d\n", (unsigned long) f, ret); +#endif +#endif + return ret; +} + +#endif /* KPSE DEBUG */ |