1 : /* int2num.c: bcmath library file. */
2 : /*
3 : Copyright (C) 1991, 1992, 1993, 1994, 1997 Free Software Foundation, Inc.
4 : Copyright (C) 2000 Philip A. Nelson
5 :
6 : This library is free software; you can redistribute it and/or
7 : modify it under the terms of the GNU Lesser General Public
8 : License as published by the Free Software Foundation; either
9 : version 2 of the License, or (at your option) any later version.
10 :
11 : This library is distributed in the hope that it will be useful,
12 : but WITHOUT ANY WARRANTY; without even the implied warranty of
13 : MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 : Lesser General Public License for more details. (COPYING.LIB)
15 :
16 : You should have received a copy of the GNU Lesser General Public
17 : License along with this library; if not, write to:
18 :
19 : The Free Software Foundation, Inc.
20 : 59 Temple Place, Suite 330
21 : Boston, MA 02111-1307 USA.
22 :
23 : You may contact the author by:
24 : e-mail: philnelson@acm.org
25 : us-mail: Philip A. Nelson
26 : Computer Science Department, 9062
27 : Western Washington University
28 : Bellingham, WA 98226-9062
29 :
30 : *************************************************************************/
31 :
32 : #include <config.h>
33 : #include <stdio.h>
34 : #include <assert.h>
35 : #include <stdlib.h>
36 : #include <ctype.h>
37 : #include <stdarg.h>
38 : #include "bcmath.h"
39 : #include "private.h"
40 :
41 :
42 : /* Convert an integer VAL to a bc number NUM. */
43 :
44 : void
45 : bc_int2num (num, val)
46 : bc_num *num;
47 : int val;
48 4 : {
49 : char buffer[30];
50 : char *bptr, *vptr;
51 4 : int ix = 1;
52 4 : char neg = 0;
53 :
54 : /* Sign. */
55 4 : if (val < 0)
56 : {
57 0 : neg = 1;
58 0 : val = -val;
59 : }
60 :
61 : /* Get things going. */
62 4 : bptr = buffer;
63 4 : *bptr++ = val % BASE;
64 4 : val = val / BASE;
65 :
66 : /* Extract remaining digits. */
67 11 : while (val != 0)
68 : {
69 3 : *bptr++ = val % BASE;
70 3 : val = val / BASE;
71 3 : ix++; /* Count the digits. */
72 : }
73 :
74 : /* Make the number. */
75 4 : bc_free_num (num);
76 4 : *num = bc_new_num (ix, 0);
77 4 : if (neg) (*num)->n_sign = MINUS;
78 :
79 : /* Assign the digits. */
80 4 : vptr = (*num)->n_value;
81 15 : while (ix-- > 0)
82 7 : *vptr++ = *--bptr;
83 4 : }
84 :
|
