/* Copyright (C) 2016-2020, Dirk Krause SPDX-License-Identifier: BSD-3-Clause */ /* 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: dk4svbuf.ctr */ /** @file dk4svbuf.c The dk4svbuf module. */ #line 77 "dk4svbuf.ctr" #include "dk4conf.h" #include "dk4svbuf.h" #if DK4_HAVE_ERRNO_H #ifndef ERRNO_H_INCLUDED #include #define ERRNO_H_INCLUDED 1 #endif #endif #if DK4_HAVE_ASSERT_H #ifndef ASSERT_H_INCLUDED #include #define ASSERT_H_INCLUDED 1 #endif #endif #line 97 "dk4svbuf.ctr" /** Buffering type constants. */ static int buffering_types[] = { _IONBF, _IOLBF, _IOFBF }; int dk4setvbuf( FILE *fipo, dk4_file_buffering_t tp, char *pbuf, size_t szbuf, dk4_er_t *erp ) { int back = 0; #if DK4_HAVE_SETVBUF int svbres = 0; #endif int btp; #if DK4_USE_ASSERT assert(NULL != fipo); #endif if (NULL != fipo) { btp = ( ((0 <= (int)tp) && (3 > (int)tp)) ? (buffering_types[(int)tp]) : (buffering_types[2]) ); #if DK4_HAVE_SETVBUF errno = 0; svbres = setvbuf( fipo, ((0 < szbuf) ? (pbuf) : (NULL)), (((NULL != pbuf) && (0 < szbuf)) ? (btp) : (buffering_types[0])), szbuf ); if (0 == svbres) { back = 1; } else { dk4error_set_idetails(erp, DK4_E_SYSTEM, errno); } #else #if DK4_HAVE_SETBUFFER setbuffer(fipo, pbuf, szbuf); back = 1; #else back = 1; dk4error_set_simple_error_code(erp, DK4_E_NOT_SUPPORTED); #endif #endif } else { dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); } return back; } /* vim: set ai sw=4 ts=4 : */