Initial commit

1 files changed, 147 insertions, 0 deletions

diff --git a/support/dktools/dk4maixdbl.cpt b/support/dktools/dk4maixdbl.cpt
new file mode 100644
index 0000000000..688dc69119
--- /dev/null
+++ b/support/dktools/dk4maixdbl.cpt
@@ -0,0 +1,147 @@
+%%	options
+
+copyright owner =       Dirk Krause
+copyright year  =       2017-xxxx
+license         =       bsd
+
+
+
+%%	header
+
+/**	@file
+	Read double value from string.
+	
+	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_WXWIDGETS) && (defined(__cplusplus))
+
+
+#ifndef	WX_WXPREC_H_INCLUDED
+#include <wx/wxprec.h>
+#define	WX_WXPREC_H_INCLUDED 1
+#endif
+#ifdef __BORLANDC__
+#pragma hdrstop
+#endif
+#ifndef WX_PRECOMP
+#if	DK4_HAVE_WX_CHARTYPE_H
+#ifndef	WX_CHARTYPE_H_INCLUDED
+#include <wx/chartype.h>
+#define	WX_CHARTYPE_H_INCLUDED 1
+#endif
+#else
+#if	DK4_HAVE_WX_WXCHAR_H
+#ifndef	WX_WXCHAR_H_INCLUDED
+#include <wx/wxchar.h>
+#define	WX_WXCHAR_H_INCLUDED 1
+#endif
+#else
+#ifndef	WX_WX_H_INCLUDED
+#include <wx/wx.h>
+#define	WX_WX_H_INCLUDED
+#endif
+#endif
+#endif
+#endif
+
+extern "C" {
+
+/**	Read double value from char string.
+	The function temporarily resets the LC_NUMERIC locale setting
+	to "C" to retrieve the number and returns the setting to the
+	original value before returning.
+	@param	rp	Address of result variable.
+	@param	src	String to process.
+	@param	endptr	Address of pointer variable.
+			A pointer to the first character not processed
+			is stored here. The function may also store
+			a NULL pointer here.
+			The pointer variable is probably left unchanged
+			on errors or if strtod()/wcstod()  is not available
+			on your system (the sscanf()/swscanf() function is
+			used as fallback).
+	@param	atg	Allow trailing garbage:
+			0=no unprocessable trailing bytes allowed,
+			1=trailing whitespaces allowed,
+			2=any trailing characaters allowed.
+	@param	erp	Error report, may be NULL.
+	@return	1 on success, 0 on error.
+	
+	Error codes:
+	DK4_E_INVALID_ARGUMENTS	if rp or src is NULL,
+	DK4_E_SYNTAX		if there are unexpected characters in the
+				string,
+	DK4_E_MATH_OVERFLOW	if a mathematical overflow occurs,
+	DK4_E_MATH_UNDERFLOW	if a mathematical underflow occurs.
+*/
+int
+dk4ma_input_wx_double(
+  double	 *rp,
+  const wxChar	 *src,
+  const wxChar	**endptr,
+  int		  atg,
+  dk4_er_t	 *erp
+);
+
+}
+
+#endif
+
+
+%%	module
+
+#include "dk4conf.h"
+
+
+
+#if	(DK4_HAVE_WXWIDGETS) && (defined(__cplusplus))
+
+
+
+#include "dk4maixdbl.h"
+
+#if DK4_SIZEOF_WXCHAR > 1
+#if DK4_SIZEOF_WXCHAR == DK4_SIZEOF_WCHAR_T
+#include "dk4maiwdbl.h"
+#else
+#error "Illegal wxChar size!"
+#endif
+#else
+#include "dk4mai8dbl.h"
+#endif
+
+
+int
+dk4ma_input_wx_double(
+  double	 *rp,
+  const wxChar	 *src,
+  const wxChar	**endptr,
+  int		  atg,
+  dk4_er_t	 *erp
+)
+{
+#if DK4_SIZEOF_WXCHAR > 1
+  return (dk4ma_input_wc_double(rp, src, endptr, atg, erp));
+#else
+  return (dk4ma_input_c8_double(rp, src, endptr, atg, erp));
+#endif
+}
+
+
+
+#endif
+