From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- support/dktools/dk4serf.c | 301 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 301 insertions(+) create mode 100644 support/dktools/dk4serf.c (limited to 'support/dktools/dk4serf.c') diff --git a/support/dktools/dk4serf.c b/support/dktools/dk4serf.c new file mode 100644 index 0000000000..8f91d08db6 --- /dev/null +++ b/support/dktools/dk4serf.c @@ -0,0 +1,301 @@ +/* + 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: dk4serf.ctr +*/ + +/* +Copyright (C) 2016-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. +*/ + +/** @file dk4serf.c The dk4serf module. +*/ + + +#line 147 "dk4serf.ctr" + +#include "dk4conf.h" + +#if DK4_HAVE_ERRNO_H +#ifndef ERRNO_H_INCLUDED +#include +#define ERRNO_H_INCLUDED 1 +#endif +#endif + +#if DK4_HAVE_STRING_H +#ifndef STRING_H_INCLUDED +#include +#define STRING_H_INCLUDED 1 +#endif +#endif + +#include "dk4serf.h" +#include "dk4mem.h" +#include "dk4mao8dbl.h" +#include "dk4enc.h" +#include "dk4maasz.h" +#include "dk4rec03.h" +#include "dk4rec05.h" +#include "dk4rec12.h" +#include "dk4rec18.h" + + + + +#line 176 "dk4serf.ctr" + + + +int +dk4serialize_file_uint16_t(FILE *fipo, uint16_t u, dk4_er_t *erp) +{ + unsigned char uc[4]; + int back = 0; + if ((NULL != fipo) && (DK4_U16_MAX >= u)) { + uc[0] = (unsigned char)((u >> 8) & 0x00FFU); + uc[1] = (unsigned char)(u & 0x00FFU); + errno = 0; + if (2 == fwrite(uc, 1, 2, fipo)) { + back = 1; + } else { + dk4error_set_idetails(erp, DK4_E_WRITE_FAILED, errno); + } + } else { + dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); + } + return back; +} + + + +int +dk4serialize_file_int16_t(FILE *fipo, int16_t i, dk4_er_t *erp) +{ + unsigned char uc[4]; + int back = 0; + if ((NULL != fipo) && (DK4_I16_MAX >= i) && (DK4_I16_MIN <= i)) { + uc[0] = (unsigned char)((((uint16_t)i) >> 8) & 0x00FFU); + uc[1] = (unsigned char)(((uint16_t)i) & 0x00FFU); + errno = 0; + if (2 == fwrite(uc, 1, 2, fipo)) { + back = 1; + } else { + dk4error_set_idetails(erp, DK4_E_WRITE_FAILED, errno); + } + } else { + dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); + } + return back; +} + + + +int +dk4serialize_file_uint32_t(FILE *fipo, uint32_t u, dk4_er_t *erp) +{ + unsigned char uc[4]; + int back = 0; + if ((NULL != fipo) && (DK4_U32_MAX >= u)) { + uc[0] = (unsigned char)((u >> 24) & 0x000000FFUL); + uc[1] = (unsigned char)((u >> 16) & 0x000000FFUL); + uc[2] = (unsigned char)((u >> 8) & 0x000000FFUL); + uc[3] = (unsigned char)(u & 0x000000FFUL); + errno = 0; + if (4 == fwrite(uc, 1, 4, fipo)) { + back = 1; + } else { + dk4error_set_idetails(erp, DK4_E_WRITE_FAILED, errno); + } + } else { + dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); + } + return back; +} + + + +int +dk4serialize_file_int32_t(FILE *fipo, int32_t i, dk4_er_t *erp) +{ + unsigned char uc[4]; + int back = 0; + if ((NULL != fipo) && (DK4_I32_MAX >= i) && (DK4_I32_MIN <= i)) { + uc[0] = (unsigned char)((((uint32_t)i) >> 24) & 0x000000FFUL); + uc[1] = (unsigned char)((((uint32_t)i) >> 16) & 0x000000FFUL); + uc[2] = (unsigned char)((((uint32_t)i) >> 8) & 0x000000FFUL); + uc[3] = (unsigned char)(((uint32_t)i) & 0x000000FFUL); + errno = 0; + if (4 == fwrite(uc, 1, 4, fipo)) { + back = 1; + } else { + dk4error_set_idetails(erp, DK4_E_WRITE_FAILED, errno); + } + } else { + dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); + } + return back; +} + + + +int +dk4serialize_file_utf8_string(FILE *fipo, const char *str, dk4_er_t *erp) +{ + dk4_er_t er; + size_t sz; + int back = 0; + uint16_t usz; + + if ((NULL != fipo) && (NULL != str)) { + sz = strlen(str); + dk4error_init(&er); + sz = dk4ma_size_t_add(sz, 1, &er); + if (DK4_E_NONE == er.ec) { + if (((dk4_um_t)DK4_U16_MAX) >= ((dk4_um_t)sz)) { + usz = (uint16_t)sz; + if (0 != dk4serialize_file_uint16_t(fipo, usz, erp)) { + errno = 0; + if (fwrite(str, 1, usz, fipo) == usz) { + back = 1; + } else { + dk4error_set_idetails(erp, DK4_E_WRITE_FAILED, errno); + } + } + } else { + dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW); + } + } else { + dk4error_copy(erp, &er); + } + } else { + dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); + } + return back; +} + + + +int +dk4serialize_file_double(FILE *fipo, double d, dk4_er_t *erp) +{ +#if 64 > (2 * DK4_DBL_DIGITS) + char buffer[64]; +#else + char buffer[2 * DK4_DBL_DIGITS]; +#endif + int back = 0; + if (NULL != fipo) { + if (0 != dk4ma_write_c8_double(buffer, sizeof(buffer), d, 1, 1, erp)) { + back = dk4serialize_file_utf8_string(fipo, buffer, erp); + } + } else { + dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); + } + return back; +} + + + +int +dk4serialize_file_dk_string(FILE *fipo,const dkChar *str,int de,dk4_er_t *erp) +{ + char *tmpbuf = NULL; + size_t szbuf = 0; + int back = 0; + if ((NULL != fipo) && (NULL != str)) { + switch (de) { +#if DK4_CHAR_SIZE > 1 +#if DK4_CHAR_SIZE > 2 + case DK4_ENCODING_32 : { + szbuf = dk4recode_size_c32_to_utf8(str, erp); + if (0 < szbuf) { + tmpbuf = dk4mem_new(char,szbuf,erp); + if (NULL != tmpbuf) { + if (0 != dk4recode_c32_to_utf8(tmpbuf, szbuf, str, erp)) { + back = dk4serialize_file_utf8_string(fipo, tmpbuf, erp); + } + dk4mem_free(tmpbuf); + } + } + } break; +#else + case DK4_ENCODING_UTF16 : { + szbuf = dk4recode_size_utf16_to_utf8(str, erp); + if (0 < szbuf) { + tmpbuf = dk4mem_new(char,szbuf,erp); + if (NULL != tmpbuf) { + if (0 != dk4recode_utf16_to_utf8(tmpbuf, szbuf, str, erp)) { + back = dk4serialize_file_utf8_string(fipo, tmpbuf, erp); + } + dk4mem_free(tmpbuf); + } + } + } break; +#endif +#else + case DK4_ENCODING_ASCII : { + szbuf = dk4recode_size_ascii_to_utf8(str, erp); + if (0 < szbuf) { + tmpbuf = dk4mem_new(char,szbuf,erp); + if (NULL != tmpbuf) { + if (0 != dk4recode_ascii_to_utf8(tmpbuf, szbuf, str, erp)) { + back = dk4serialize_file_utf8_string(fipo, tmpbuf, erp); + } + dk4mem_free(tmpbuf); + } + } + } break; + case DK4_ENCODING_ANSI : { + szbuf = dk4recode_size_ansi_to_utf8(str, erp); + if (0 < szbuf) { + tmpbuf = dk4mem_new(char,szbuf,erp); + if (NULL != tmpbuf) { + if (0 != dk4recode_ansi_to_utf8(tmpbuf, szbuf, str, erp)) { + back = dk4serialize_file_utf8_string(fipo, tmpbuf, erp); + } + dk4mem_free(tmpbuf); + } + } + } break; + case DK4_ENCODING_UTF8 : { + back = dk4serialize_file_utf8_string(fipo, str, erp); + } break; +#endif + default : { + dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); + } break; + } + } else { + dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); + } + return back; +} + + + -- cgit v1.2.3