Return to mitom.c CVS log

Up to [MW Coherent from dump] / coherent / d / usr / lib / libmp

Annotation of coherent/d/usr/lib/libmp/mitom.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  *     Mitom sets the mint pointed to by "mp" to have a value equal
                      3:  *     to the int "n".
                      4:  */
                      5: #include "mprec.h"
                      6: void
                      7: mitom(n, mp)
                      8: int    n;
                      9: mint   *mp;
                     10: {
                     11:        register char *rp, *limit, *value;
                     12:        unsigned an;
                     13:        char mifl;      /* minus flag */
                     14:        char tev[NORSIZ];       /* temporary for converted value */
                     15: 
                     16:        mpfree(mp->val);
                     17:        an = ((mifl = n<0) ? -n : n);
                     18:        rp = tev;
                     19:        while (an != 0) {
                     20:                *rp++ = an % BASE;
                     21:                an >>= L2BASE;
                     22:        }
                     23:        *rp++ = 0;
                     24:        limit = rp;
                     25:        if (mifl) {
                     26:                rp = tev - 1;
                     27:                while (++rp < limit)
                     28:                        *rp = NEFL - *rp;
                     29:                ++*tev;
                     30:        }
                     31:        value = (char *)mpalc(limit - tev);
                     32:        mp->val = value;
                     33:        mp->len = limit - tev;
                     34:        rp = tev;
                     35:        while (rp < limit)
                     36:                *value++ = *rp++;
                     37:        norm(mp);
                     38: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.