|
DataMuseum.dkPresents historical artifacts from the history of: Commodore CBM-900 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Commodore CBM-900 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2120 (0x848)
Types: TextFile
Notes: UNIX file
Names: »mprec.h«, »umprec.h«, »user.mprec.h«
└─⟦eafc30061⟧ Bits:30001199 Commodore 900 hard disk image
└─⟦8281d0872⟧ UNIX V7 Filesystem
└─ ⟦294235107⟧ »vol3.fd« UNIX V7 Filesystem
└─ ⟦this⟧ »usr/include/mprec.h«
└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
└─⟦2d53db1df⟧ UNIX V7 Filesystem
└─ ⟦this⟧ »include/mprec.h«
└─⟦eafc30061⟧ Bits:30001199 Commodore 900 hard disk image
└─⟦5ec4c54f2⟧ UNIX V7 Filesystem
└─ ⟦this⟧ »usr/include/mprec.h«
└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
└─⟦f4b8d8c84⟧ UNIX V7 Filesystem
└─ ⟦this⟧ »libmp/umprec.h«
└─ ⟦this⟧ »libmp/user.mprec.h«
/*
* Definitions of all user multi-precision types, macros and
* non-int returning functions.
*/
/*
* Multi-precision integer type.
*/
typedef struct {
unsigned len;
char *val;
} mint;
/*
* Minit initializes a mint so that it may be used by the other
* multi-precision routines. This simply consists of setting the
* val field to NULL so that mpfree will know that there is nothing
* to free. Note that the mint so initialized has no value and
* should not be used as an operand, but may be used as the result
* of any of the multi-precision routines.
*/
#define minit(mp) (mp)->val = NULL
/*
* Mvfree frees the value associated to a pointer to a mint.
* Note that it does not re-initialize the mint.
*/
#define mvfree(mp) mpfree((mp)->val)
/*
* Functions returning non-ints.
*/
void gcd(), /* greatest common divisor of 2 mints */
madd(), /* add 2 mints */
mcopy(), /* copy mint */
mdiv(), /* divide 2 mints */
min(), /* read in mint from stdin */
mintfr(), /* free all space used by a mint */
mitom(), /* set a mint to the value of an int */
mneg(), /* negate a mint */
mout(), /* write out mint onto stdout */
mperr(), /* print error on stdout and exit */
mpfree(), /* free space allocated by mpalc */
msqrt(), /* square root of mint */
msub(), /* subtract 2 mints */
mult(), /* multiply 2 mints */
pow(), /* raise mint to a mint power mod a mint */
rpow(), /* raise mint to a mint power */
sdiv(), /* divide a mint by a char */
smult(), /* multiply a mint by a char */
spow(), /* raise mint to an unsigned power */
xgcd(); /* extended greatest common divisor */
char *mpalc(), /* allocate space */
*mtos(); /* convert mint to string */
mint *itom(); /* allocate space for mint initialized to int */
/* external variables */
extern mint *mzero, /* a mint which has a value of zero */
*mone, /* a mint which has a value of one */
*mminint, /* min value that fits in an int */
*mmaxint; /* max value that fits in an int */
extern int ibase, /* input base (2 <= ibase <= 16 assumed) */
obase; /* output base (2 <= obase <= 16 assumed) */