Return to mark.c CVS log

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

Annotation of researchv10no/cmd/town/mark.c, revision 1.1.1.1

1.1       root        1: # include "stdio.h"
                      2: # include "assert.h"
                      3: # include "cbt.h"
                      4: main(argc,argv)
                      5:        char *argv[];
                      6: {
                      7: bfile *bloc;
                      8: FILE *fpat, *find;
                      9: char name[100], loc[100], ibuff[100];
                     10: mbuf key, val;
                     11: double lat, lng, atof();
                     12: long atol(), lb;
                     13: int x, y, k, found;
                     14: bloc = bopen("//usr/spool/town/ustowns", 0);
                     15: find = fopen("//usr/spool/town/hapindex", "r");
                     16: assert(bloc!=NULL);
                     17: assert(find!=NULL);
                     18: while (gets(name))
                     19:        {
                     20:        fpat = fopen("//usr/spool/town/haplist", "r");
                     21:        key.mdata = name; key.mlen = strlen(name);
                     22:        k = bseek(bloc, key);
                     23:        if (k!=1) continue;
                     24:        val.mdata = loc;
                     25:        bread(bloc, NULL, &val);
                     26:        val.mdata[val.mlen]=0;
                     27:        lat = atof(val.mdata);
                     28:        lng = atof(val.mdata+7);
                     29:        x = lat/4.;
                     30:        y = lng/4.;
                     31:        sprintf(loc, "%02d.%02d", x, y);
                     32:        rewind (find);
                     33:        while (fgets(ibuff, 100, find))
                     34:                {
                     35:                if (strncmp(ibuff, loc, 5)==0)
                     36:                        break;
                     37:                }
                     38:        if (feof(find))continue;
                     39:        lb = atol(ibuff+6);
                     40:        fseek (fpat, lb, 0);
                     41:        found=0;
                     42:        while (fgets(ibuff, 100, fpat))
                     43:                {
                     44:                if (strncmp(loc, ibuff, 5)!=0)
                     45:                        break;
                     46:                if (strncmp(name, ibuff+6, strlen(name)))
                     47:                        continue;
                     48:                lb = ftell (fpat);
                     49:                found=1;
                     50:                break;
                     51:                }
                     52:        fclose(fpat);
                     53:        if (found)
                     54:                {
                     55:                k = open("//usr/spool/town/haplist", 2);
                     56:                if (k>0)
                     57:                        {
                     58:                        lseek (k, lb-3, 0);
                     59:                        write (k, "x", 1);
                     60:                        close(k);
                     61:                        }
                     62:                }
                     63:        }
                     64: }

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