/* -*-c-*-
*
- * $Id: mpstuff.c,v 1.1 2004/04/02 18:04:01 mdw Exp $
+ * $Id$
*
* MP manipulation stuff
*
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*/
-/*----- Revision history --------------------------------------------------*
- *
- * $Log: mpstuff.c,v $
- * Revision 1.1 2004/04/02 18:04:01 mdw
- * Initial checkin.
- *
- */
-
/*----- Header files ------------------------------------------------------*/
#include "catacomb-perl.h"
return (m);
}
+int group_writesv(group *g, ge *x, SV *sv)
+{
+ mptext_svctx c;
+ int rc;
+ STRLEN len;
+ sv_setpvn(sv, "", 0);
+ c.sv = sv;
+ rc = G_WRITE(g, x, &mptext_svops, &c);
+ return (rc);
+}
+
int mp_writesv(mp *m, SV *sv, int radix)
{
mptext_svctx c;
int rc;
STRLEN len;
- SvPV(sv, len);
+ sv_setpvn(sv, "", 0);
c.sv = sv;
rc = mp_write(m, radix, &mptext_svops, &c);
return (rc);
m = (mp *)SvIV((SV *)SvRV(sv));
else {
va_list ap;
- SV *t = NEWSV(0, 0);
+ SV *t = sv_newmortal();
va_start(ap, keep);
sv_vsetpvfn(t, what, strlen(what), &ap, 0, 0, 0);
croak("%s is not of type Catacomb::MP", SvPVX(t));
- SvREFCNT_dec(t);
}
+ if (m && keep)
+ MP_COPY(m);
} else {
if (SvIOK(sv))
m = mp_fromiv(MP_NEW, SvIV(sv));