Return to pbignum.c CVS log

Up to [CSRG BSD Unix] / 41BSD / cmd / lisp

Annotation of 41BSD/cmd/lisp/pbignum.c, revision 1.1.1.1

1.1       root        1: static char *sccsid = "@(#)pbignum.c   34.1 10/3/80";
                      2: 
                      3: #include "global.h"
                      4: 
                      5: pbignum(current, useport)
                      6: register lispval current;
                      7: register FILE *useport;
                      8: {
                      9:        int  *top, *bot, *work, negflag = 0, *sp(), *alloca();
                     10:        register int *digitp, *binp;
                     11:        register lispval last;
                     12: 
                     13:        /* copy bignum onto stack */
                     14:        top = sp() - 1;
                     15:        do {
                     16:                stack(current->s.I);
                     17:        } while(current = current->s.CDR);
                     18: 
                     19:        bot = sp();
                     20:        if (top==bot) {
                     21:                fprintf(useport,"%d",*bot);
                     22:                return;
                     23:        }
                     24: 
                     25:        /* save space for printed digits*/
                     26:        work = alloca((top-bot)*2*sizeof(int));
                     27:        if( *bot < 0) {
                     28:                negflag = 1;
                     29:                dsneg(top,bot);
                     30:        }
                     31: 
                     32:        /* figure out nine digits at a time by destructive division*/
                     33:        for(digitp = work; bot <= top; digitp++) {
                     34:                *digitp = dodiv(top,bot);
                     35:                if(*bot==0) bot += 1;
                     36:        }
                     37:        
                     38:        /* print them out */
                     39: 
                     40:        if(negflag) putc('-',useport);
                     41:        fprintf(useport,"%d",*--digitp);
                     42:        while ( digitp > work) fprintf(useport,"%09d",*--digitp);
                     43: }

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