get_station_list.c

Go to the documentation of this file.

#include "prototypes.h"
 
void get_station_list(char *fname)
 
{
 
 extern char station_list_custom_file[256];
 int i,ier,sflag,field,j,xadd,yadd;
 extern struct station station[1500];
 extern int max_stations;
 FILE *fp;
 char *p,kbuf[100],hb5[10];
 
 max_stations=0;
 
 fp=fopen(fname,"r");
 
 if(fp==NULL) {
 
              printf("could not open %s\n",fname);
              exit(1);
 
              }
 
 i=0;
 for(;;) {
 
    p=fgets(kbuf,80,fp);
    if(p==NULL)
              break;
 
    if(i==1500)
              break;
    p=strchr(kbuf,'\n');
 
    if(p!=NULL)
             *p=0;
 
    ier=sscanf(kbuf,"%s %s %f %f ",station[i].hb5,
               station[i].parm,&station[i].lat,&station[i].lon);
 
    if(ier != 4)
               continue;
 
    sflag=1;
    field=0;
    for(j=0;j<strlen(kbuf);j++) {
 
                  if(kbuf[j] !=' ' && sflag==1) {
                                    sflag=0; 
                                    field++;
 
                  }
      
                  else if(kbuf[j]==' ')
                          sflag=1;
 
                 if(field==5) {
 
                          strcpy(station[i].name,&kbuf[j]);
                          break;
 
            }
 
                }
 
  i++;
 
  }
 
max_stations=i;
fclose(fp);
 
strcpy(kbuf,fname);
strcat(kbuf,".custom");
strcpy(station_list_custom_file,kbuf);
 
fp=fopen(kbuf,"r");
 
if(fp!=NULL) {
 
     for(;;) {
 
           p=fgets(kbuf,80,fp);
           if(p==NULL)
                   break;
 
           p=strchr(kbuf,'\n');
           *p=0;
 
           ier=sscanf(kbuf,"%s %d %d",hb5,&xadd,&yadd);
 
           for(j=0;j<max_stations;j++) {
 
                   if(strcmp(hb5,station[j].hb5)==0) {
 
                              station[j].xadd=xadd;
                              station[j].yadd=yadd;
                              break;
 
                }
 
         }
 
     }
   }
fclose(fp);          
 
return;
 
}