%% options copyright owner = Dirk Krause copyright year = 2015-xxxx license = bsd %% header /** @file Double to char text conversion using the more secure functions _snprintf_s(), _snprintf() or snprintf() instead of sprintf() 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 #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. @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_c8(char *dptr, size_t szdptr, double v, dk4_er_t *erp); #ifdef __cplusplus } #endif %% module #include "dk4dblc8.h" #include "dk4str8.h" int dk4double_to_string_c8(char *dptr, size_t szdptr, double v, dk4_er_t *erp) { #if DK4_HAVE__SNPRINTF_S /* +++ _snprintf_s */ char buf[64]; int back = 0; int res = 0; if (NULL != dptr) { *dptr = '\0'; } if ((NULL != dptr) && (1 < szdptr)) { res = _snprintf_s(buf, sizeof(buf), (sizeof(buf)-1), "%lg", v); if ((0 < res) && ((size_t)res < sizeof(buf))) { buf[res] = '\0'; back = dk4str8_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; /* --- _snprintf_s */ #else #if DK4_HAVE__SNPRINTF /* +++ _snprintf */ char buf[64]; int back = 0; int res = 0; if (NULL != dptr) { *dptr = '\0'; } if ((NULL != dptr) && (1 < szdptr)) { res = _snprintf(buf, sizeof(buf), "%lg", v); if ((0 < res) && ((size_t)res < sizeof(buf))) { buf[res] = '\0'; back = dk4str8_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; /* --- _snprintf */ #else #if DK4_HAVE_SNPRINTF /* +++ snprintf */ char buf[64]; int back = 0; int res = 0; if (NULL != dptr) { *dptr = '\0'; } if ((NULL != dptr) && (1 < szdptr)) { res = snprintf(buf, sizeof(buf), "%lg", v); if ((0 < res) && ((size_t)res < sizeof(buf))) { buf[res] = '\0'; back = dk4str8_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; /* --- snprintf */ #else /* +++ sprintf */ char buf[64]; int back = 0; int res = 0; if (NULL != dptr) { *dptr = '\0'; } if ((NULL != dptr) && (1 < szdptr)) { sprintf(buf, "%lg", v); back = dk4str8_cpy_s(dptr, szdptr, buf, erp); } else { dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); } return back; /* --- sprintf */ #endif #endif #endif }