BSD 4_4 release

[unix-history] / usr / src / lib / libmp / util.c

/*-
* This module is believed to contain source code proprietary to AT&T.
* Use and redistribution is subject to the Berkeley Software License
* Agreement and your Software Agreement with AT&T (Western Electric).
*/

#ifndef lint
static char sccsid[] = "@(#)util.c      8.1 (Berkeley) 6/4/93";
#endif /* not lint */

char *malloc();
#ifdef lint
int xv_oid;
#endif
#include <stdio.h>
#include <mp.h>
move(a,b) MINT *a,*b;
{       int i,j;
       xfree(b);
       b->len=a->len;
       if((i=a->len)<0) i = -i;
       if(i==0) return;
       b->val=xalloc(i,"move");
       for(j=0;j<i;j++)
               b->val[j]=a->val[j];
       return;
}
dummy(){}
short *xalloc(nint,s) char *s;
{       short *i;
       i=(short *)malloc(2*(unsigned)nint+4);
#ifdef DBG
       if(dbg) fprintf(stderr, "%s: %o\n",s,i);
#endif
       if(i!=NULL) return(i);
       fatal("mp: no free space");
       return(0);
}
fatal(s) char *s;
{
       fprintf(stderr,"%s\n",s);
       VOID fflush(stdout);
       sleep(2);
       abort();
}
xfree(c) MINT *c;
{
#ifdef DBG
       if(dbg) fprintf(stderr, "xfree ");
#endif
       if(c->len==0) return;
       shfree(c->val);
       c->len=0;
       return;
}
mcan(a) MINT *a;
{       int i,j;
       if((i=a->len)==0) return;
       else if(i<0) i= -i;
       for(j=i;j>0 && a->val[j-1]==0;j--);
       if(j==i) return;
       if(j==0)
       {       xfree(a);
               return;
       }
       if(a->len > 0) a->len=j;
       else a->len = -j;
}
MINT *itom(n)
{       MINT *a;
       a=(MINT *)xalloc(2,"itom");
       if(n>0)
       {       a->len=1;
               a->val=xalloc(1,"itom1");
               *a->val=n;
               return(a);
       }
       else if(n<0)
       {       a->len = -1;
               a->val=xalloc(1,"itom2");
               *a->val= -n;
               return(a);
       }
       else
       {       a->len=0;
               return(a);
       }
}
mcmp(a,b) MINT *a,*b;
{       MINT c;
       int res;
       if(a->len!=b->len) return(a->len-b->len);
       c.len=0;
       msub(a,b,&c);
       res=c.len;
       xfree(&c);
       return(res);
}