Return to wref0.c CVS log

Up to [Research Unix] / researchv10dc / libI77 / old

Annotation of researchv10dc/libI77/old/wref0.c, revision 1.1.1.1

1.1       root        1: #include "fio.h"
                      2: #include "fmt.h"
                      3: 
                      4: wrt_E(p,w,d,e,len) ufloat *p; ftnlen len;
                      5: {      char *s;
                      6:        int dp,sign,i, delta;
                      7:        char *ecvt();
                      8:        double dd;
                      9:        if(e == 0)
                     10:                e = 2;
                     11:        if(scale) {
                     12:                if(scale >= d + 2 || scale <= -d)
                     13:                        goto nogood;
                     14:                if(scale > 0)
                     15:                        d++;
                     16:        }
                     17:        if (len == sizeof(float))
                     18:                dd = p->pf;
                     19:        else
                     20:                dd = p->pd;
                     21:        s=ecvt( dd ,d,&dp,&sign);
                     22:        delta = 1 /* for the . */ + 2 /* for the E+ */ + (sign || cplus);
                     23:        if(w < d + e + delta) {
                     24: nogood:
                     25:                for(i=0;i<w;i++) (*putn)('*');
                     26:                return(0);
                     27:        }
                     28:        if(p->pf != 0) dp -= scale;
                     29:        else    dp = 0;
                     30:        switch(e) {     /* grumph */
                     31:        case 1:
                     32:                if(dp <= -10 || dp >= 10)
                     33:                        goto nogood;
                     34:                break;
                     35:        case 2:
                     36:                if(dp <= -100 || dp >= 100)
                     37:                        goto nogood;
                     38:                break;
                     39:        case 3:
                     40:                if(dp <= -1000 || dp >= 1000)
                     41:                        goto nogood;
                     42:                break;
                     43:        default:
                     44:                /* probably ok */
                     45:                break;
                     46:        }
                     47:        for(i=0;i<w-(delta+d+e);i++) (*putn)(' ');
                     48:        if(sign) (*putn)('-');
                     49:        else if(cplus) (*putn)('+');
                     50:        if(scale<0)
                     51:        {
                     52:                (*putn)('.');
                     53:                for(i=0;i<-scale;i++)
                     54:                        (*putn)('0');
                     55:                for(i=0;i<d+scale;i++)
                     56:                        (*putn)(*s++);
                     57:        }
                     58:        else if(scale>0 && scale<d+2)
                     59:        {       for(i=0;i<scale;i++)
                     60:                        (*putn)(*s++);
                     61:                (*putn)('.');
                     62:                for(i=0;i<d-scale;i++)
                     63:                        (*putn)(*s++);
                     64:        }
                     65:        else
                     66:        {       (*putn)('.');
                     67:                for(i=0;i<d;i++) (*putn)(*s++);
                     68:        }
                     69:        if(dp < 100 && dp > -100) (*putn)('e');
                     70:        if(dp<0)
                     71:        {       (*putn)('-');
                     72:                dp = -dp;
                     73:        }
                     74:        else    (*putn)('+');
                     75:        for(; e >= 4; e--)
                     76:                (*putn)('0');
                     77:        if(e>=3 || dp >= 100)
                     78:        {       (*putn)(dp/100 + '0');
                     79:                dp = dp % 100;
                     80:        }
                     81:        if(e!=1) (*putn)(dp/10+'0');
                     82:        (*putn)(dp%10+'0');
                     83:        return(0);
                     84: }
                     85: 
                     86: wrt_F(p,w,d,len) ufloat *p; ftnlen len;
                     87: {      int i,delta,dp,sign,n;
                     88:        double x;
                     89:        char *s,*fcvt();
                     90:        x= (len==sizeof(float)?p->pf:p->pd);
                     91:        if(scale)
                     92:        {       if(scale>0)
                     93:                        for(i=0;i<scale;i++) x*=10;
                     94:                else    for(i=0;i<-scale;i++) x/=10;
                     95:        }
                     96:        s=fcvt(x,d,&dp,&sign);
                     97:        if(-dp>=d) sign=0;
                     98:        if(sign || cplus) delta=2;
                     99:        else delta=1;
                    100:        n= w - (d+delta+(dp>0?dp:0));
                    101:        if(n<0)
                    102:        {
                    103:                for(i=0;i<w;i++) PUT('*');
                    104:                return(0);
                    105:        }
                    106:        for(i=0;i<n;i++) PUT(' ');
                    107:        if(sign) PUT('-');
                    108:        else if(cplus) PUT('+');
                    109:        for(i=0;i<dp;i++) PUT(*s++);
                    110:        PUT('.');
                    111:        for(i=0;i< -dp && i<d;i++) PUT('0');
                    112:        for(;i<d;i++)
                    113:        {       if(*s) PUT(*s++);
                    114:                else PUT('0');
                    115:        }
                    116:        return(0);
                    117: }

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