Return to fastown.c CVS log

Up to [Research Unix] / researchv10no / cmd / town

Annotation of researchv10no/cmd/town/fastown.c, revision 1.1

1.1     ! root        1: # include "stdio.h"
        !             2: # include "math.h"
        !             3: # include "assert.h"
        !             4: # define radp  57.2957795
        !             5: main()
        !             6: {
        !             7: /* reads ascii patch file; converts to binary and does cosine conversion. */
        !             8: char line[100], *s, opat[10];
        !             9: long pos;
        !            10: int k;
        !            11: float a[2];
        !            12: double correct;
        !            13: opat[0]=0;
        !            14: pos=0;
        !            15: correct = cos(40.0/radp);
        !            16: while (gets(line))
        !            17:        {
        !            18:        if (strncmp(opat, line, 5))
        !            19:                fprintf(stderr, "%.5s %ld\n", line, pos);
        !            20:        strncpy(opat, line, 5);
        !            21:        for(s=line; *s && *s!='\t'; s++)
        !            22:                ;
        !            23:        sscanf(s, "%lf %lf", a+0, a+1);
        !            24:        /* need to multiply longitudes by cosine of latitude */
        !            25:        a[1] = a[1]*correct;
        !            26:        write (1, a, 2*sizeof(float));
        !            27:        for(s=line; *s; s++)
        !            28:                ;
        !            29:        s -= 3;
        !            30:        write (1, s, 1);
        !            31:        for(s=line; *s && *s!=','; s++)
        !            32:                ;
        !            33:        *s=0;
        !            34:        k = s-(line+6);
        !            35:        if (k<0) k=0;
        !            36:        write (1, line+6, k);
        !            37:        write (1, "\n", 1);
        !            38:        pos+= 2*sizeof(float);
        !            39:        pos += k+2;
        !            40:        }
        !            41: fprintf(stderr, "ENDED %ld\n", pos);
        !            42: }

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