Ultrix-3.1/src/libape/ape.h

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

/**********************************************************************
 *   Copyright (c) Digital Equipment Corporation 1984, 1985, 1986.    *
 *   All Rights Reserved. 					      *
 *   Reference "/usr/src/COPYRIGHT" for applicable restrictions.      *
 **********************************************************************/

/*	SCCSID: @(#)ape.h	3.0	4/22/86	*/
/*	(2.9 BSD)  ape.h  2.2  3/31/83	*/

typedef	struct mint
{	int len;	/* |len| = length in words of the MINT,
				sgn(len) = sgn of the MINT
				len = 0 <=> mint = 0 */
	short *val;	/* vector is "base 2^15" rep'n of the MINT */
} MINT, *PMINT;
#ifdef	DBG
#include <stdio.h>
#define	shfree(u) { fprintf(stderr, "free %o\n", u); free((char *)u);}
#else
#define	shfree(u) free((char *)u)
#endif	DBG
#define	xfree(x) {if((x)->len!=0) {shfree((x)->val); (x)->len=0;}}
#define	afree(x) {xfree(x);shfree(x);}
#define	LONGCARRY	0100000L
#define	CARRYBIT	0100000
#define	TOPSHORT	077777
#define	SHORT		LONGCARRY
#define	WORDLENGTH	15	/* length of the portion of the word we use */
extern	PMINT	shtom();
extern	PMINT	ltom();
extern	PMINT	stom();
#ifdef	vax
#define	itom(n) 	ltom((long)n)
#else
#define	itom(n) 	shtom(n)
#endif	vax
extern	short	*xalloc();
extern	PMINT	padd();
extern	PMINT	pmult();
extern	PMINT	psub();
extern	PMINT	pgcd();
extern	PMINT	pdiv();
extern	PMINT	pmod();
extern	PMINT	psdiv();
extern	PMINT	psqrt();
extern	PMINT	remsqrt();
extern	PMINT	ppow();
extern	PMINT	prpow();