2.9BSD/usr/src/lib/ape/util2.c

Compare this file to the similar file:
Show the results in this format:

#include "lint.h"
#ifndef lint
static char	sccs_id[] = "@(#)util2.c	2.1	8/13/82";
#endif lint
#include <stdio.h>
#include <ape.h>

PMINT stom(str)
char *str;	/* This allows initialization of a MINT by
		 * a number represented by a string of arbitrary
		 * length.  The usual C conventions are used for
		 * determining the input base. */
{
	PMINT local;

	new(&local);
	if (*str == '0')
		{
		++str;
		if (*str == 'x' || *str == 'X')
			{
			++str;
			sm_in (local, 16, str);
			}
		else
			sm_in (local, 8, str);
		}
	else
		sm_in (local, 10, str);
	return (local);
}

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);
}