borshef.c

Go to the documentation of this file.

 
#include "prototypes.h"
#define ID_PROMPT "Station:"
#define DTYPE_PROMPT "DAY"
 
char dtype2[16][9];
char pe[16][4];        
char id_bor[35][5];
char id5[35][9]; 
char name[35][30];
 
main(int argc, char *argv[])
{
FILE *fp, *fp2, *fp3, *fp4,*fq;
char buffer[131];
char id4[5];
char month[4];
char *ptdt;
char fname[100];
char *directory;
char dtype[10][11];
int year,date,i,j,k,l,start_day,end_day,date_s;
int divide[10];
int conver[10];
int ier;
int tim(void);
int matchid(char *);
int matchpe(char *);
void get_data(char [], FILE *, FILE *,int, char [], int, int, int, int [], int []);
void ffeed(FILE *, FILE *);
 
  date = tim();    /* get date in a form mmdd */
 
  start_day=0;
 
  end_day= (date - (date/100)*100) - 1;
 
  ier=system("rcp lasal:/users/ftp/pub/incoming/bor/borvax.dat wasatch:/usr/db/raw/borshef/data/vax.dat");
 
  if(ier != 0) {
 
    printf("There has been an error copying\nlasal:/users/ftp/pub/incoming/bor/borvax.dat\n to wasatch:/usr/db/raw/borshef/data/vax.dat");
 
        exit(1);
 
      }
 
  directory="/usr/db/raw/borshef/data/";
 
  strcpy(fname,directory);
  strcat(fname,"vax.dat");
 
  if((fp = fopen(fname,"r")) == NULL) {
 
    printf("There has been an error opening %s\n",fname);
        exit(1);
 
      }
 
  strcpy(fname,directory);
  strcat(fname,"vax.laser");
 
  if((fp2 = fopen(fname,"w")) == NULL) {
 
        printf("There has been an error opening %s\n",fname);
        exit(1);
 
      }
 
  strcpy(fname,directory);
  strcat(fname,"idees.dat");
 
  if((fp3 = fopen(fname,"r")) == NULL) {
 
        printf("There has been an error opening %s\n",fname);
        exit(1);
 
      }
 
  strcpy(fname,directory);
  strcat(fname,"dtypes.dat");
 
  if((fp4 = fopen(fname,"r")) == NULL) {
 
         printf("There has been an error opening %s\n",fname);
         exit(1);
 
       }
 
  strcpy(fname,directory);
  strcat(fname,"vax.out");
 
  if((fq = fopen(fname,"w")) == NULL) {
 
         printf("There has been an error opening %s\n",fname);
         exit(1);
 
       }
 
  /* read BOR id's and their corr. 5CHID's */
 
  j=0;
  while(fscanf(fp3,"%s %s %s\n", id_bor[j], id5[j], name[j]) != EOF)
    j++;
 
  /* read BOR data types and match them to PEDTSEPs */
 
  j=0;
  while(fscanf(fp4,"%s %s\n", dtype2[j], pe[j]) != EOF)
    j++;
  /* read input file from BOR line by line */
 
  while(fgets(buffer,134,fp) != NULL)
 
    {
  /* checks buffer for ID_PROMPT */
 
      if(strstr(buffer,ID_PROMPT)) 
                {
        sscanf(buffer,"%*s %s", id4);      /* get BOR 4 ch ID */
        l = matchid(id4);                  /* match it to 5CHID */
                fgets(buffer,134,fp);
        sscanf(buffer,"Data for the month of: %s %d",month, &year);
                }
 
  /* checks buffer for DTYPE_PROMPT */
 
      else if(strstr(buffer,DTYPE_PROMPT))
        {
        i = sscanf(buffer,"%*s %s %s %s %s %s %s %s %s %s %s %s",
                    dtype[0],dtype[1],dtype[2],dtype[3],dtype[4],dtype[5],
                    dtype[6],dtype[7],dtype[8],dtype[9],dtype[10]);
 
        fprintf(fq,".BR SLR %4.4d Z DC%4.4d/DH06",date,date);
 
   /* since the date is overwritten, the 1st date does not matter */
 
        for(j=0;j<i;j++)
            {
             
                    divide[j]=0;
            conver[j]=0;
            ptdt = dtype[j];
            k = matchpe(ptdt);
 
    /* precip and temp reported under BORid FTRW are nws5id FNTW4
       whereas all other parameters belong to nws5id GBRW4 */
 
            if(strcmp(id5[l],"GBRW4") == 0 && 
                      (strcspn(pe[k],"P") == 0 ||
                       strcspn(pe[k],"T") == 0))
               memcpy(id5[l],"FNTW4",6);
 
    /* pc & temp should be blnn5 */
 
            if(strcmp(id5[l],"NVRN5") == 0 &&
                      (strcspn(pe[k],"P") == 0 ||
                       strcspn(pe[k],"T") == 0))
                   memcpy(id5[l],"BLNN5",6); 
 
   /* duchesne diversion reported under BORid JDRU but needs nws5id DCTU1*/
 
            if(strcmp(id5[l],"JRRU1") == 0 &&
                      (strcmp(pe[k],"DUC") == 0))
                         {
              memcpy(id5[l],"DCTU1",6);
              memcpy(pe[k],"QDD",4);
              }
 
   /* weber diversion reported under BORid JDRU but needs nws5id WPCU1*/
 
             if(strcmp(id5[l],"DCTU1") == 0 && 
                       (strcmp(pe[k],"WEB") == 0))
                         {
              memcpy(id5[l],"WPCU1",6);
              memcpy(pe[k],"QDD",4);
              }  
 
                 if(strcspn(pe[k],"Q")==0 ||
                        strcspn(pe[k],"L")==0)
                  divide[j]=1; 
    
                 if(strcspn(pe[k],"Q")==0 &&
                        strstr(pe[k],"M") != NULL)
                          conver[j]=1;
 
             fprintf(fq,"/ %s ",pe[k]);
            
                }                
 
        fprintf(fq,"\n");
        get_data(month,fp,fq,year,id5[l],i,
                         start_day,end_day,divide,conver);
        }
 
    }
 
    ffeed(fp,fp2);
 
        fclose(fq);
 
        ier=system("cp /usr/db/raw/borshef/data/vax.out /tmp/queue/shef/in/vax.out"); 
 
        if(ier!=0) {
 
          printf("There has been an error copying\n lasal:/users/ftp/pub/incoming/bor/borvax.dat to\n/tmp/queue/shef/in/vax.out\n");
             exit(1);
 
        }
 
        ier=system("mpage -4b -W84 /usr/db/raw/borshef/data/vax.laser");        
        if(ier!=0) {
 
          printf("There has been an error printing /usr/db/raw/borshef/data/vax.laser\n");
 
             exit(1);
 
        }
 
 
  ier=system("rcp lasal:/users/ftp/pub/incoming/bor/borvax.dat lasal:/users/ftp/pub/incoming/bor/old/borvax.dat");
 
  if(ier != 0) {
 
    printf("There has been an error copying\nlasal:/users/ftp/pub/incoming/bor/borvax.dat to\nlasal:/users/ftp/pub/incoming/bor/old/borvax.dat\n");
 
        exit(1);
 
      }
  
  ier=system("rsh lasal rm /users/ftp/pub/incoming/bor/borvax.dat");
 
  if(ier != 0) {
 
    printf("There has been an error deleting\nlasal:/users/ftp/pub/incoming/bor/borvax.dat\n");
 
        exit(1);
 
      }
 
}
 
matchpe(char *type)
 
{
int i;
 
for(i=0;i<16;i++)
     if(strcmp(type,dtype2[i]) == 0)
                      return i;
}
 
matchid(char *id4)
 
{
int i;
 
for(i=0;i<35;i++)
if(strcmp(id4,id_bor[i]) == 0)
                     return i;
 
}
 
void ffeed(FILE *fp, FILE *fp2)
 
{
char buffer[131];
char id4[5];
int l;
 
rewind(fp);
while(fgets(buffer,134,fp) != NULL)
      {
      if(strstr(buffer,ID_PROMPT))     /* checks buffer for ID_PROMPT */
        {
        sscanf(buffer,"%*s %s",id4);
        l = matchid(id4);
        fprintf(fp2,"\f\n%s  (BOR id: %s)\n",name[l],id4);
        }
      else
                fputs(buffer,fp2);
      } 
}