Initial commit

1 files changed, 98 insertions, 0 deletions

diff --git a/support/dktools/dk4mai8duc.ctr b/support/dktools/dk4mai8duc.ctr
new file mode 100644
index 0000000000..c242b054ad
--- /dev/null
+++ b/support/dktools/dk4mai8duc.ctr
@@ -0,0 +1,98 @@
+%%	options
+
+copyright owner	=	Dirk Krause
+copyright year	=	2015-xxxx
+license		=	bsd
+
+
+
+%%	header
+
+/**	@file
+	Retrieve unsigned char value from
+	8 bit character string in decimal 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, decimal 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.
+			The variable points to the correct error position
+			only if er.ec is DK4_E_SYNTAX.
+	@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_c8_dec_uchar(
+  unsigned char	 *rp,
+  const char	 *src,
+  const char	**endptr,
+  int		  atg,
+  dk4_er_t	 *erp
+);
+
+#ifdef __cplusplus
+}
+#endif
+
+%%	module
+
+#include "dk4mai8ddu.h"
+#include "dk4mai8duc.h"
+#include "dk4numco.h"
+
+
+
+int
+dk4ma_input_c8_dec_uchar(
+  unsigned char	 *rp,
+  const char	 *src,
+  const char	**endptr,
+  int		  atg,
+  dk4_er_t	 *erp
+)
+{
+  dk4_um_t	res;
+  int		back = 0;
+  if (0 != dk4ma_input_c8_dec_dk4_um_t(&res, src, endptr, atg, erp)) {
+    if (((dk4_um_t)(UCHAR_MAX)) >= res) {
+      *rp = (unsigned char)res;
+      back = 1;
+    } else {
+      dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW);
+    }
+  }
+  return back;
+}
+