From 1f457376b478257b88d4a857f5ec1b6155442dd7 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sun, 20 Sep 2020 03:03:26 +0000 Subject: CTAN sync 202009200303 --- support/dktools/dk4file8.c | 100 +++++++++++++++++++++++++++++---------------- 1 file changed, 65 insertions(+), 35 deletions(-) (limited to 'support/dktools/dk4file8.c') diff --git a/support/dktools/dk4file8.c b/support/dktools/dk4file8.c index b40d457e16..2233b65c3c 100644 --- a/support/dktools/dk4file8.c +++ b/support/dktools/dk4file8.c @@ -1,43 +1,21 @@ /* - WARNING: This file was generated by dkct. - Changes you make here will be lost if dkct is run again! - You should modify the original source and run dkct on it. - Original source: dk4file8.ctr +Copyright (C) 2015-2020, Dirk Krause +SPDX-License-Identifier: BSD-3-Clause */ /* -Copyright (C) 2015-2017, Dirk Krause - -Redistribution and use in source and binary forms, with or without -modification, are permitted provided that the following conditions are met: - -* Redistributions of source code must retain the above copyright notice, - this list of conditions and the following disclaimer. -* Redistributions in binary form must reproduce the above opyright notice, - this list of conditions and the following disclaimer in the documentation - and/or other materials provided with the distribution. -* Neither the name of the author nor the names of contributors may be used - to endorse or promote products derived from this software without specific - prior written permission. - -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS'' -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. -IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY -DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES -(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; -LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND -ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT -(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF -THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + WARNING: This file was generated by the dkct program (see + http://dktools.sourceforge.net/ for details). + Changes you make here will be lost if dkct is run again! + You should modify the original source and run dkct on it. + Original source: dk4file8.ctr */ /** @file dk4file8.c The dk4file8 module. */ -#line 91 "dk4file8.ctr" +#line 103 "dk4file8.ctr" #include "dk4conf.h" #include "dk4types.h" @@ -58,6 +36,18 @@ THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #include "dk4file8.h" +#if DK4_HAVE_ASSERT_H +#ifndef ASSERT_H_INCLUDED +#include +#define ASSERT_H_INCLUDED 1 +#endif +#endif + + + + +#line 132 "dk4file8.ctr" + int @@ -72,6 +62,9 @@ dk4file_c8_exists(const char *fn, dk4_er_t *erp) dk4_stat_t lstb; #endif int back = 0; +#if DK4_USE_ASSERT + assert(NULL != fn); +#endif if (NULL != fn) { #if DK4_ON_WINDOWS dwattr = GetFileAttributesA(fn); @@ -116,7 +109,15 @@ dk4file_c8_is_regular(const char *fn, dk4_er_t *erp) dk4_stat_t stb; #endif int back = 0; - if (NULL != fn) { + + +#line 195 "dk4file8.ctr" +#if DK4_USE_ASSERT + assert(NULL != fn); +#endif + if (NULL != fn) { + +#line 199 "dk4file8.ctr" #if DK4_ON_WINDOWS dwattr = GetFileAttributesA(fn); if (INVALID_FILE_ATTRIBUTES != dwattr) { @@ -140,17 +141,37 @@ dk4file_c8_is_regular(const char *fn, dk4_er_t *erp) } } #else - if (0 != dk4stat_c8(&stb, fn, NULL)) { - if (0 != dk4stat_is_regular(&stb, erp)) { + + +#line 223 "dk4file8.ctr" + if (0 != dk4stat_c8(&stb, fn, NULL)) { + +#line 224 "dk4file8.ctr" + if (0 != dk4stat_is_regular(&stb, erp)) { + +#line 225 "dk4file8.ctr" back = 1; } - } else { +#if TRACE_DEBUG + else { + +#line 229 "dk4file8.ctr" + } +#endif + } else { + +#line 232 "dk4file8.ctr" dk4error_set_simple_error_code(erp, DK4_E_NOT_FOUND); } #endif - } else { + } else { + +#line 236 "dk4file8.ctr" dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); } + + +#line 239 "dk4file8.ctr" return back; } @@ -167,6 +188,12 @@ dk4file_c8_is_directory(const char *fn, dk4_er_t *erp) dk4_stat_t stb; #endif int back = 0; + + +#line 256 "dk4file8.ctr" +#if DK4_USE_ASSERT + assert(NULL != fn); +#endif if (NULL != fn) { #if DK4_ON_WINDOWS dwattr = GetFileAttributesA(fn); @@ -199,6 +226,9 @@ dk4file_c8_is_directory(const char *fn, dk4_er_t *erp) } else { dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); } + + +#line 292 "dk4file8.ctr" return back; } -- cgit v1.2.3