1 files changed, 98 insertions, 0 deletions
diff --git a/support/dktools/dk4maidhil.ctr b/support/dktools/dk4maidhil.ctr
new file mode 100644
index 0000000000..df24d1bb5f
--- /dev/null
+++ b/support/dktools/dk4maidhil.ctr
@@ -0,0 +1,98 @@
+%%	options
+
+copyright owner	=	Dirk Krause
+copyright year	=	2015-xxxx
+license		=	bsd
+
+
+
+%%	header
+
+/**	@file
+	Retrieve long value from
+	dkChar string in hexadecimal notation.
+*/
+
+#ifndef DK4CONF_H_INCLUDED
+#include "dk4conf.h"
+#endif
+
+#ifndef DK4TYPES_H_INCLUDED
+#include "dk4types.h"
+#endif
+
+#ifndef DK4ERROR_H_INCLUDED
+#include "dk4error.h"
+#endif
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+/**	Retrieve numeric value from string, hexadecimal notation.
+	@param	rp	Pointer to result variable for the found value.
+	@param	src	String to check for numeric value.
+	@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 in this
+			variable.
+	@param	atg	Allow trailing garbage:
+			0=no unprocessable trailing bytes allowed,
+			1=trailing whitespaces allowed,
+			2=any trailing characters 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_MATH_OVERFLOW	if the number is out of range, or
+	DK4_E_SYNTAX		if src contains illegal characters.
+*/
+int
+dk4ma_input_dk_hex_long(
+  long		 *rp,
+  const dkChar	 *src,
+  const dkChar	**endptr,
+  int		  atg,
+  dk4_er_t	 *erp
+);
+
+#ifdef __cplusplus
+}
+#endif
+
+
+
+%%	module
+
+#include "dk4maidhil.h"
+
+#if DK4_CHAR_SIZE > 1
+#if DK4_CHAR_SIZE == DK4_SIZEOF_WCHAR_T
+#include "dk4maiwhil.h"
+#else
+#error "Illegal dkChar size!"
+#endif
+#else
+#include "dk4mai8hil.h"
+#endif
+
+
+
+int
+dk4ma_input_dk_hex_long(
+  long		 *rp,
+  const dkChar	 *src,
+  const dkChar	**endptr,
+  int		  atg,
+  dk4_er_t	 *erp
+)
+{
+#if DK4_CHAR_SIZE > 1
+  return ( dk4ma_input_wc_hex_long(rp, src, endptr, atg, erp));
+#else
+  return ( dk4ma_input_c8_hex_long(rp, src, endptr, atg, erp));
+#endif
+}
+