summaryrefslogtreecommitdiff
path: root/support/dktools/dk4numl.c
blob: 0065eee0d0a62a8c369173006492726594425a48 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
/*
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: dk4numl.ctr
*/

/**	@file dk4numl.c The dk4numl module.
*/


#line 55 "dk4numl.ctr"

#include "dk4conf.h"
#include "dk4error.h"
#include "dk4numl.h"
#include "dk4maadu.h"

size_t
dk4numlength(size_t isz, int sgn)
{
  dk4_er_t	er;
  dk4_um_t	co;
  size_t	back	=	0;
  if (1 < isz) {
    if (2 < isz) {
      if (4 < isz) {
        if (8 < isz) {
	  if (16 < isz) {
#if VERSION_BEFORE_20141122
	    if (0 != (isz % 2)) { isz++; }
	    back = 5 * (isz / 2);
	    if (0 != sgn) { back++; }
#else
	    dk4error_init(&er);
	    if (0 != sgn) {
	      co = dk4ma_um_mul(
	        (dk4_um_t)30104UL,
		dk4ma_um_sub(
		  dk4ma_um_mul((dk4_um_t)8UL, (dk4_um_t)isz, &er),
		  (dk4_um_t)1UL,
		  &er
		),
		&er
	      );
	      if ((dk4_um_t)0UL != (co % (dk4_um_t)100000UL)) {
	        co = co / (dk4_um_t)100000UL;
		co++;
	      } else {
	        co = co / (dk4_um_t)100000UL;
	      }
	      co++;
	      if ((dk4_um_t)(SIZE_MAX) >= co) {
	        back = (size_t)co;
	      } else {
	        back = (size_t)co;
		er.ec = DK4_E_MATH_OVERFLOW;
	      }
	    } else {
	      co = dk4ma_um_mul(
	        (dk4_um_t)30104UL,
		dk4ma_um_mul((dk4_um_t)8UL, (dk4_um_t)isz, &er),
		&er
	      );
	      if ((dk4_um_t)0UL != (co % (dk4_um_t)100000UL)) {
	        co = co / (dk4_um_t)100000UL;
		co++;
	      } else {
	        co = co / (dk4_um_t)100000UL;
	      }
	      if ((dk4_um_t)(SIZE_MAX) >= co) {
	        back = (size_t)co;
	      } else {
	        back = (size_t)co;
		er.ec = DK4_E_MATH_OVERFLOW;
	      }
	    }
	    if (DK4_E_NONE != er.ec) {
	      if (0 != (isz % 2)) { isz++; }
	      back = 5 * (isz / 2);
	      if (0 != sgn) { back++; }
	    }
#endif
	  } else {
	    back = ((0 != sgn) ? 41 : 40);
	  }
	} else {
	  back = ((0 != sgn) ? 21 : 20);
	}
      } else {
        back = ((0 != sgn) ? 11 : 10);
      }
    } else {
      back = ((0 != sgn) ? 6 : 5);
    }
  } else {
    back = ((0 != sgn) ? 4 : 3);
  }
  return back;
}