%% options copyright owner = Dirk Krause copyright year = 2015-xxxx license = bsd %% header /** @file Double to wchar_t text conversion using the more secure _snwprintf_s(), _snwprintf() or snwprintf() functions instead of swprintf() if available. CRT on Windows: Required. */ #ifndef DK4CONF_H_INCLUDED #include "dk4conf.h" #endif #ifndef DK4TYPES_H_INCLUDED #include "dk4types.h" #endif #ifndef DK4ERROR_H_INCLUDED #include "dk4error.h" #endif #if DK4_HAVE_WCHAR_H #ifndef WCHAR_H_INCLUDED #include #define WCHAR_H_INCLUDED 1 #endif #endif #ifndef STDLIB_H_INCLUDED #include #define STDLIB_H_INCLUDED 1 #endif #ifdef __cplusplus extern "C" { #endif /** Convert double value to string. @param dptr Destination buffer pointer. @param szdptr Size of destination buffer (number of wchar_t). @param v Value to convert. @param erp Error report, may be NULL. @return 1 on success, 0 on error. Error codes: - DK4_E_INVALID_ARGUMENTS
if dptr is NULL or szdptr is less than 2, - DK4_E_BUFFER_TOO_SMALL
if the destination buffer is too small to store the string. */ int dk4double_to_string_wc(wchar_t *dptr, size_t szdptr, double v, dk4_er_t *erp); #ifdef __cplusplus } #endif %% module #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 }