m_in(a
,b
,f
) MINT
*a
; FILE *f
;
case '\n': a
->len
*= sign
;
default: if(c
>='0' && c
<= '9')
m_out(a
,b
,f
) MINT
*a
; FILE *f
;
x
.val
=xalloc(xlen
,"m_out");
for(i
=0;i
<xlen
;i
++) x
.val
[i
]=a
->val
[i
];
obuf
=(char *)malloc(7*xlen
);
{ for(i
=0;i
<10&&x
.len
>0;i
++)
sdiv(a
,n
,q
,r
) MINT
*a
,*q
; short *r
;
s_div(a
,n
,q
,r
) MINT
*a
,*q
; short *r
;
qval
=xalloc(qlen
,"s_div");
if(qval
[qlen
-1]==0) qlen
--;
if(qlen
==0) shfree(qval
);
return(m_in(a
,10,stdin
));
fmout(a
,f
) MINT
*a
; FILE *f
;
fmin(a
,f
) MINT
*a
; FILE *f
;