094f987c3475cd041e7f27b1e166d723633b2d8d
3 * $Id: mpstuff.c,v 1.1 2004/04/02 18:04:01 mdw Exp $
5 * MP manipulation stuff
7 * (c) 2001 Straylight/Edgeware
10 /*----- Licensing notice --------------------------------------------------*
12 * This file is part of the Perl interface to Catacomb.
14 * Catacomb/Perl is free software; you can redistribute it and/or modify
15 * it under the terms of the GNU General Public License as published by
16 * the Free Software Foundation; either version 2 of the License, or
17 * (at your option) any later version.
19 * Catacomb/Perl is distributed in the hope that it will be useful,
20 * but WITHOUT ANY WARRANTY; without even the implied warranty of
21 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 * GNU General Public License for more details.
24 * You should have received a copy of the GNU General Public License
25 * along with Catacomb/Perl; if not, write to the Free Software Foundation,
26 * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
29 /*----- Revision history --------------------------------------------------*
32 * Revision 1.1 2004/04/02 18:04:01 mdw
37 /*----- Header files ------------------------------------------------------*/
39 #include "catacomb-perl.h"
41 /*----- Main code ---------------------------------------------------------*/
43 /* --- Convert Perl integers to multiprecision --- */
45 mp
*mp_fromiv(mp
*d
, IV iv
)
47 MP_FROMINT(d
, IV
, iv
);
54 MP_TOINT(x
, IV
, IV_MAX
, i
);
58 /* --- Parse Perl strings into integers --- */
60 typedef struct mptext_svctx
{
65 static int svget(void *p
)
68 if (c
->i
>= SvCUR(c
->sv
))
70 return ((unsigned char)SvPVX(c
->sv
)[c
->i
++]);
73 static void svunget(int ch
, void *p
)
76 if (ch
== EOF
|| c
->i
== 0)
81 static int svput(const char *s
, size_t sz
, void *p
)
84 sv_catpvn(c
->sv
, (char *)s
, sz
);
88 static const mptext_ops mptext_svops
= { svget
, svunget
, svput
};
90 mp
*mp_readsv(mp
*m
, SV
*sv
, STRLEN
*off
, int radix
)
99 m
= mp_read(m
, radix
, &mptext_svops
, &c
);
105 int mp_writesv(mp
*m
, SV
*sv
, int radix
)
112 rc
= mp_write(m
, radix
, &mptext_svops
, &c
);
116 /* --- Conversion to and from SVs --- */
118 mp
*mp_fromsv(SV
*sv
, const char *what
, int radix
, int keep
, ...)
122 if (sv_derived_from(sv
, "Catacomb::MP"))
123 m
= (mp
*)SvIV((SV
*)SvRV(sv
));
128 sv_vsetpvfn(t
, what
, strlen(what
), &ap
, 0, 0, 0);
129 croak("%s is not of type Catacomb::MP", SvPVX(t
));
134 m
= mp_fromiv(MP_NEW
, SvIV(sv
));
136 m
= mp_readsv(MP_NEW
, sv
, 0, radix
);
138 RET_MP(m
); /* Kill temporary later */
143 /*----- That's all, folks -------------------------------------------------*/