Return to sqrt.c CVS log

Up to [CSRG BSD Unix] / 40BSD / cmd / eqn

Annotation of 40BSD/cmd/eqn/sqrt.c, revision 1.1.1.1

1.1       root        1: # include "e.h"
                      2: 
                      3: sqrt(p2) int p2; {
                      4:        int nps;
                      5:        nps = EFFPS(((eht[p2]*9)/10+5)/6);
                      6:        yyval = p2;
                      7:        eht[yyval] = VERT( (nps*6*12)/10 );
                      8:        if(dbg)printf(".\tsqrt: S%d <- S%d;b=%d, h=%d\n", 
                      9:                yyval, p2, ebase[yyval], eht[yyval]);
                     10:        if (rfont[yyval] == ITAL)
                     11:                printf(".as %d \\|\n", yyval);
                     12:        nrwid(p2, ps, p2);
                     13:        printf(".ds %d \\v'%du'\\s%d\\v'-.2m'\\(sr\\l'\\n(%du\\(rn'\\v'.2m'\\s%d", 
                     14:                yyval, ebase[p2], nps, p2, ps);
                     15:        printf("\\v'%du'\\h'-\\n(%du'\\*(%d\n", -ebase[p2], p2, p2);
                     16:        lfont[yyval] = ROM;
                     17: }

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