summaryrefslogtreecommitdiff
path: root/support/dktools/dk4serf.c
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /support/dktools/dk4serf.c
Initial commit
Diffstat (limited to 'support/dktools/dk4serf.c')
-rw-r--r--support/dktools/dk4serf.c301
1 files changed, 301 insertions, 0 deletions
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 <errno.h>
+#define ERRNO_H_INCLUDED 1
+#endif
+#endif
+
+#if DK4_HAVE_STRING_H
+#ifndef STRING_H_INCLUDED
+#include <string.h>
+#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;
+}
+
+
+