create_fmap_file.c

Go to the documentation of this file.

#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <X11/Xos.h>
#include <ctype.h>
#include "mm2rfs.h"
 
#include <Xm/Text.h>
#include <Xm/TextF.h>
 
extern struct time_cntl tc;
extern struct fgroup_info fg[20];
extern fgroup_num;
extern Widget text_edit;
extern Widget text_output;
extern int dur_toggle_item_set;
 
int create_fmap_file(int remove)
{
FILE *fp;
char *text;
char fg_last[9];
char line[80];
char tmp_file[80];
int i,j,k,l,last_per;
int y,m,d,h,hx;
int len,len_actual;
int day;
float amt24;
struct fmap_struct fmap[100];
 
  if(dur_toggle_item_set==1) last_per=3;
  if(dur_toggle_item_set==2) last_per=7;
  if(dur_toggle_item_set>=3) last_per=11;
 
 
  /* load structure with fmap informaiton */
  i=fmap_load(&fmap[0]);
  if(i)
  {
    /* set .FMAP6 time control */
    
    /* -8 hrs for ZULU > PST, then +2 to insure the correct day */
    adj_time(-6,tc.year,tc.month,tc.day,tc.hour,&y,&m,&d,&h);
    y=y%100;
    
    /* set PST ending time */
    if(tc.period==1) h=10;
    if(tc.period==2) h=16;
    if(tc.period==3) h=22;
    if(tc.period==4) h=4;
 
    /* create tmp filename */
    sprintf(tmp_file,"fmap_fg.%d%d%d.%d%d%d",
            tc.year,tc.month,tc.day,tc.hour,tc.minute,tc.second);
 
    if((fp = fopen (tmp_file, "w")))
    {
      strcpy(fg_last,"\0");
      for(j=0;j<i;j++)
      {
        if(strcmp(fg_last,fmap[j].fgroupid))
        {
          if(j)
            fprintf(fp,"ENDMOD\n\n");
          for(k=0;k<fgroup_num;k++)
            if(!strcmp(fg[k].id,fmap[j].fgroupid))
              fprintf(fp,"$%s\nMOD\n.FMAP6 %02d%02d%02d%02dPST\n",
                          fg[k].desc,m,d,y,h);
 
          hx=h;
          fprintf(fp,"$          ");
          for(k=tc.period-1;k<=last_per;k++)
          {
            fprintf(fp," %02d ",hx);
            if(k==3 || k==7) fprintf(fp,"  ");
            hx=(hx+6)%24;
          }
          fprintf(fp,"\n");
        }
        strcpy(fg_last,fmap[j].fgroupid);
        sprintf(line,"%s        ",fmap[j].fmapid);
        *(line+8)='\0';
        fprintf(fp,"%s  ",line);
        for(k=tc.period-1;k<=last_per;k++)
        {
          fprintf(fp," %2.1f",fmap[j].per[k].amt);
          if(k==3 || k==7) fprintf(fp,"  ");
        }
        fprintf(fp,"\n");
      }
      fprintf(fp,"ENDMOD\n\n");
 
      /* do .FMAP6 for days 4-7 if requested */
      if(dur_toggle_item_set>=4)
      {
        adj_time(-6*(tc.period-1),
                tc.year,tc.month,tc.day,tc.hour,&y,&m,&d,&h);
        adj_time(48,y,m,d,h,&y,&m,&d,&h);
        for(day=4;day<=dur_toggle_item_set;day++)
        {
          adj_time(24,y,m,d,h,&y,&m,&d,&h);
          y=y%100;
          h=10;
          strcpy(fg_last,"\0");
 
          for(j=0;j<i;j++)
          {
            if(strcmp(fg_last,fmap[j].fgroupid))
            {
              if(j)
                fprintf(fp,"ENDMOD\n\n");
              for(k=0;k<fgroup_num;k++)
                if(!strcmp(fg[k].id,fmap[j].fgroupid))
                  fprintf(fp,"$%s\nMOD\n.FMAP6 %02d%02d%02d%02dPST \n",
                              fg[k].desc,m,d,y,h);
              fprintf(fp,"$           10  16  22  04\n");
            }
            strcpy(fg_last,fmap[j].fgroupid);
            sprintf(line,"%s          ",fmap[j].fmapid);
            *(line+10)='\0';
            fprintf(fp,"%s",line);
            for(l=0;l<4;l++)
              fprintf(fp," %2.1f",fmap[j].per[l+4*(day-1)].amt);
            fprintf(fp,"\n");
          }
          fprintf(fp,"ENDMOD\n\n");
        }
      }
 
      fclose(fp);
      if(remove)
      {
        if((fp = fopen (tmp_file, "r")))
        { 
          len=10000;
          if (!(text = XtMalloc ((unsigned)(len+1)))) /* +1 for NULL */
          {
            sprintf (line, "%s: XtMalloc(%ld) failed", len, tmp_file);
            if(text_output)
              XmTextFieldSetString (text_output, line);
            return(0);
          }
          else
          {
            len_actual=fread (text, sizeof (char), len, fp);
            text[len_actual] = 0; /* NULL-terminate */
            if(text_edit)
              XmTextSetString (text_edit, text);
            sprintf (line, "Click 'Save as *' to store as '* File'");
            if(text_output)
              XmTextFieldSetString (text_output, line);
          }
          /* close and rm file */
          fclose(fp);
          sprintf(line,"rm %s",tmp_file);
          system(line);
        }
        else
        {
          sprintf(line,"Couldn't open temp file %s",tmp_file);
          if(text_output)
            XmTextFieldSetString (text_output, line);
          return(0);
        }
      }
    }
    else
    {
      sprintf(line,"Couldn't open temp file %s",tmp_file);
      if(text_output)
        XmTextFieldSetString (text_output, line);
      return(0);
    }
  }
  else
  {
    sprintf(line,"No fmaps in table fmaqtrly to read.");
    if(text_output)
      XmTextFieldSetString (text_output, line);
    return(0);
  }
   
  return(1);
}