summaryrefslogtreecommitdiff
path: root/support/dktools/dk4maiwddu.c
diff options
context:
space:
mode:
Diffstat (limited to 'support/dktools/dk4maiwddu.c')
-rw-r--r--support/dktools/dk4maiwddu.c246
1 files changed, 0 insertions, 246 deletions
diff --git a/support/dktools/dk4maiwddu.c b/support/dktools/dk4maiwddu.c
deleted file mode 100644
index 6c25037ef3..0000000000
--- a/support/dktools/dk4maiwddu.c
+++ /dev/null
@@ -1,246 +0,0 @@
-/*
-Copyright (C) 2015-2020, Dirk Krause
-SPDX-License-Identifier: BSD-3-Clause
-*/
-
-/*
- WARNING: This file was generated by the dkct program (see
- http://dktools.sourceforge.net/ for details).
- Changes you make here will be lost if dkct is run again!
- You should modify the original source and run dkct on it.
- Original source: dk4maiwddu.ctr
-*/
-
-/** @file dk4maiwddu.c The dk4maiwddu module.
-*/
-
-
-#line 82 "dk4maiwddu.ctr"
-
-
-
-#include "dk4conf.h"
-
-#if DK4_HAVE_ASSERT_H
-#ifndef ASSERT_H_INCLUDED
-#include <assert.h>
-#define ASSERT_H_INCLUDED 1
-#endif
-#endif
-
-#include "dk4maiwddu.h"
-#include "dk4numco.h"
-#include "dk4strw.h"
-
-
-
-
-
-#line 101 "dk4maiwddu.ctr"
-
-
-
-int
-dk4ma_input_wc_dec_dk4_um_t(
- dk4_um_t *rp,
- const wchar_t *src,
- const wchar_t **endptr,
- int atg,
- dk4_er_t *erp
-)
-{
- dk4_um_t result = (dk4_um_t)0UL;
- dk4_um_t op;
- const wchar_t *ep = NULL;
- int found = 0;
- int back = 0;
- int cc = 1;
-
-
-#line 120 "dk4maiwddu.ctr"
-#if DK4_USE_ASSERT
- assert(NULL != rp);
- assert(NULL != src);
-#endif
- if ((NULL != rp) && (NULL != src)) {
- do {
- op = (dk4_um_t)0UL;
-#if DK4_SIZEOF_WCHAR_T <= DK4_SIZEOF_INT
- switch (*src) {
- case L'0': { op = (dk4_um_t)0UL; } break;
- case L'1': { op = (dk4_um_t)1UL; } break;
- case L'2': { op = (dk4_um_t)2UL; } break;
- case L'3': { op = (dk4_um_t)3UL; } break;
- case L'4': { op = (dk4_um_t)4UL; } break;
- case L'5': { op = (dk4_um_t)5UL; } break;
- case L'6': { op = (dk4_um_t)6UL; } break;
- case L'7': { op = (dk4_um_t)7UL; } break;
- case L'8': { op = (dk4_um_t)8UL; } break;
- case L'9': { op = (dk4_um_t)9UL; } break;
- case L'\0': {
-
-#line 140 "dk4maiwddu.ctr"
- cc = 0;
- if (0 != found) {
-
-#line 142 "dk4maiwddu.ctr"
- back = 1;
- *rp = result;
- } else {
-
-#line 145 "dk4maiwddu.ctr"
- ep = src;
-
-#line 146 "dk4maiwddu.ctr"
- dk4error_set_simple_error_code(erp, DK4_E_SYNTAX);
- }
- } break;
- default: {
- cc = 0;
-
-#line 151 "dk4maiwddu.ctr"
- ep = src;
-
-#line 152 "dk4maiwddu.ctr"
- if (0 != found) {
- switch (atg) {
- case 2: {
-
-#line 155 "dk4maiwddu.ctr"
- back = 1;
- *rp = result;
- } break;
- case 1: {
-
-#line 159 "dk4maiwddu.ctr"
- if (NULL == dk4strw_start(src, NULL)) {
- back = 1;
- *rp = result;
- } else {
- dk4error_set_simple_error_code(erp, DK4_E_SYNTAX);
- }
- } break;
- default: {
-
-#line 167 "dk4maiwddu.ctr"
- dk4error_set_simple_error_code(erp, DK4_E_SYNTAX);
- } break;
- }
- } else {
- dk4error_set_simple_error_code(erp, DK4_E_SYNTAX);
- }
- } break;
- }
-#else
- if (L'0' == *src) {
- op = (dk4_um_t)0UL;
- } else {
- if (L'1' == *src) {
- op = (dk4_um_t)1UL;
- } else {
- if (L'2' == *src) {
- op = (dk4_um_t)2UL;
- } else {
- if (L'3' == *src) {
- op = (dk4_um_t)3UL;
- } else {
- if (L'4' == *src) {
- op = (dk4_um_t)4UL;
- } else {
- if (L'5' == *src) {
- op = (dk4_um_t)5UL;
- } else {
- if (L'6' == *src) {
- op = (dk4_um_t)6UL;
- } else {
- if (L'7' == *src) {
- op = (dk4_um_t)7UL;
- } else {
- if (L'8' == *src) {
- op = (dk4_um_t)8UL;
- } else {
- if (L'9' == *src) {
- op = (dk4_um_t)9UL;
- } else {
- if (L'\0' == *src) { /* finalizer */
- cc = 0;
- if (0 != found) {
- back = 1;
- *rp = result;
- } else {
- ep = src;
- dk4error_set_simple_error_code(erp, DK4_E_SYNTAX);
- }
- } else { /* any other */
- cc = 0;
- ep = src;
- if (0 != found) {
- switch (atg) {
- case 2: {
- back = 1;
- *rp = result;
- } break;
- case 1: {
- if (NULL == dk4strw_start(src, NULL)) {
- back = 1;
- *rp = result;
- } else {
- dk4error_set_simple_error_code(
- erp, DK4_E_SYNTAX
- );
- }
- } break;
- default: {
- dk4error_set_simple_error_code(
- erp, DK4_E_SYNTAX
- );
- } break;
- }
- } else {
- dk4error_set_simple_error_code(erp, DK4_E_SYNTAX);
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
- }
-#endif
- /* after switch */
- if (0 != cc) {
- found = 1;
- if ((DK4_UM_MAX / (dk4_um_t)10UL) >= result) {
- result *= (dk4_um_t)10UL;
- if ((DK4_UM_MAX - op) >= result) {
- result += op;
- } else {
- cc = 0;
- ep = src;
- dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW);
- }
- } else {
- cc = 0;
- ep = src;
- dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW);
- }
- }
- if (0 != cc) {
- src++;
- }
- } while (0 != cc);
- } else {
- dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS);
- if (NULL != src) { ep = src; }
- }
- if (NULL != endptr) { *endptr = ep; }
-
-
-#line 283 "dk4maiwddu.ctr"
- return back;
-}
-