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
108
109
110
111
112
|
/*
* M_APM - mapmistr.c
*
* Copyright (C) 1999 - 2007 Michael C. Ring
*
* Permission to use, copy, and distribute this software and its
* documentation for any purpose with or without fee is hereby granted,
* provided that the above copyright notice appear in all copies and
* that both that copyright notice and this permission notice appear
* in supporting documentation.
*
* Permission to modify the software is granted. Permission to distribute
* the modified code is granted. Modifications are to be distributed by
* using the file 'license.txt' as a template to modify the file header.
* 'license.txt' is available in the official MAPM distribution.
*
* This software is provided "as is" without express or implied warranty.
*/
/*
*
* This file contains M_APM -> integer string function
*
*/
#include "pgAdmin3.h"
#include "pgscript/utilities/mapm-lib/m_apm_lc.h"
/****************************************************************************/
void m_apm_to_integer_string(char *s, M_APM mtmp)
{
void *vp;
UCHAR *ucp, numdiv, numrem;
char *cp, *p, sbuf[128];
int ct, dl, numb, ii;
vp = NULL;
ct = mtmp->m_apm_exponent;
dl = mtmp->m_apm_datalength;
/*
* if |input| < 1, result is "0"
*/
if (ct <= 0 || mtmp->m_apm_sign == 0)
{
s[0] = '0';
s[1] = '\0';
return;
}
if (ct > 112)
{
if ((vp = (void *)MAPM_MALLOC((ct + 32) * sizeof(char))) == NULL)
{
/* fatal, this does not return */
M_apm_log_error_msg(M_APM_FATAL,
"\'m_apm_to_integer_string\', Out of memory");
}
cp = (char *)vp;
}
else
{
cp = sbuf;
}
p = cp;
ii = 0;
/* handle a negative number */
if (mtmp->m_apm_sign == -1)
{
ii = 1;
*p++ = '-';
}
/* get num-bytes of data (#digits / 2) to use in the string */
if (ct > dl)
numb = (dl + 1) >> 1;
else
numb = (ct + 1) >> 1;
ucp = mtmp->m_apm_data;
while (TRUE)
{
M_get_div_rem_10((int)(*ucp++), &numdiv, &numrem);
*p++ = numdiv + '0';
*p++ = numrem + '0';
if (--numb == 0)
break;
}
/* pad with trailing zeros if the exponent > datalength */
if (ct > dl)
memset(p, '0', (ct + 1 - dl));
cp[ct + ii] = '\0';
strcpy(s, cp);
if (vp != NULL)
MAPM_FREE(vp);
}
/****************************************************************************/
|
