* %sccs.include.proprietary.c%
static char sccsid
[] = "@(#)mout.c 5.4 (Berkeley) %G%";
m_in(a
,b
,f
) MINT
*a
; FILE *f
;
case '\\': (void)getc(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
=malloc(7*(unsigned)xlen
);
{ for(i
=0;i
<10&&x
.len
>0;i
++)
{ sdiv(&x
,(short)b
,&x
,&r
);
sdiv(a
,n
,q
,r
) MINT
*a
,*q
; short n
; short *r
;
s_div(a
,n
,q
,r
) MINT
*a
,*q
; short n
; short *r
;
qval
=xalloc(qlen
,"s_div");
if(qlen
&& 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
;