Return to pbignum.c CVS log

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

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

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

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