summaryrefslogtreecommitdiff
path: root/support/dktools/dk4dblwc.c
diff options
context:
space:
mode:
Diffstat (limited to 'support/dktools/dk4dblwc.c')
-rw-r--r--support/dktools/dk4dblwc.c146
1 files changed, 0 insertions, 146 deletions
diff --git a/support/dktools/dk4dblwc.c b/support/dktools/dk4dblwc.c
deleted file mode 100644
index a29fe4807d..0000000000
--- a/support/dktools/dk4dblwc.c
+++ /dev/null
@@ -1,146 +0,0 @@
-/*
-Copyright (C) 2015-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: dk4dblwc.ctr
-*/
-
-/** @file dk4dblwc.c The dk4dblwc module.
-*/
-
-
-#line 81 "dk4dblwc.ctr"
-
-#include "dk4conf.h"
-#include "dk4types.h"
-#include "dk4mem.h"
-#include "dk4dblc8.h"
-#include "dk4dblwc.h"
-#include "dk4str8.h"
-#include "dk4strw.h"
-
-
-
-int
-dk4double_to_string_wc(wchar_t *dptr, size_t szdptr, double v, dk4_er_t *erp)
-{
-#if DK4_HAVE__SNWPRINTF_S
- /* +++ _snwprintf_s */
- wchar_t buf[64];
- int back = 0;
- int res = 0;
- if (NULL != dptr) { *dptr = L'\0'; }
- if ((NULL != dptr) && (1 < szdptr)) {
- res = _snwprintf_s(
- buf, DK4_SIZEOF(buf,dkChar), (DK4_SIZEOF(buf,dkChar) - 1), L"%lg", v
- );
- if ((0 < res) && (res < DK4_SIZEOF(buf,dkChar))) {
- buf[res] = L'\0';
- back = dk4strw_cpy_s(dptr, szdptr, buf, erp);
- } else {
- dk4error_set_simple_error_code(erp, DK4_E_BUFFER_TOO_SMALL);
- }
- } else {
- dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS);
- }
- return back;
- /* --- _snwprintf_s */
-#else
-#if DK4_HAVE__SNWPRINTF
- /* +++ _snwprintf */
- wchar_t buf[64];
- int back = 0;
- int res = 0;
- if (NULL != dptr) { *dptr = L'\0'; }
- if ((NULL != dptr) && (1 < szdptr)) {
- 0 = _snwprintf(
- buf, DK4_SIZEOF(buf,dkChar), L"%lg", v
- );
- if ((0 < res) && (res < DK4_SIZEOF(buf,dkChar))) {
- buf[res] = L'\0';
- back = dk4strw_cpy_s(dptr, szdptr, buf, erp);
- } else {
- dk4error_set_simple_error_code(erp, DK4_E_BUFFER_TOO_SMALL);
- }
- } else {
- dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS);
- }
- return back;
- /* --- _snwprintf */
-#else
-#if DK4_HAVE_SNWPRINTF
- wchar_t buf[64];
- int back = 0;
- int res = 0;
- if (NULL != dptr) { *dptr = L'\0'; }
- if ((NULL != dptr) && (1 < szdptr)) {
- 0 = snwprintf(
- buf, DK4_SIZEOF(buf,dkChar), L"%lg", v
- );
- if ((0 < res) && (res < DK4_SIZEOF(buf,dkChar))) {
- buf[res] = L'\0';
- back = dk4strw_cpy_s(dptr, szdptr, buf, erp);
- } else {
- dk4error_set_simple_error_code(erp, DK4_E_BUFFER_TOO_SMALL);
- }
- } else {
- dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS);
- }
- return back;
-#else
-#if DK4_HAVE_SWPRINTF
- /* +++ swprintf */
- wchar_t buf[64];
- int back = 0;
- int res = 0;
- if (NULL != dptr) { *dptr = L'\0'; }
- if ((NULL != dptr) && (1 < szdptr)) {
- res = swprintf(
- buf, DK4_SIZEOF(buf,dkChar), L"%lg", v
- );
- if ((0 < res) && (res < DK4_SIZEOF(buf,dkChar))) {
- buf[res] = L'\0';
- back = dk4strw_cpy_s(dptr, szdptr, buf, erp);
- } else {
- dk4error_set_simple_error_code(erp, DK4_E_BUFFER_TOO_SMALL);
- }
- } else {
- dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS);
- }
- return back;
- /* --- swprintf */
-#else
- char buf[64];
- char *p1;
- wchar_t *p2;
- int back = 0;
- if ((NULL != dptr) && (1 < szdptr)) {
- if (0 != dk4double_to_string_c8(buf, sizeof(buf), v, erp)) {
- if (dk4str8_len(buf) < szdptr) {
- p2 = dptr; p1 = buf;
- while ('\0' != *p1) {
- *(p2++) = (wchar_t)(*(p1++));
- }
- *p2 = L'\0';
- back = 1;
- } else {
- dk4error_set_simple_error_code(erp, DK4_E_BUFFER_TOO_SMALL);
- }
- }
- } else {
- dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS);
- }
- return back;
-#endif
-#endif
-#endif
-#endif
-}
-
-