create_shef_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 "mm2chps.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 fg_toggle_item_set;
extern int dur_toggle_item_set;
extern int src_toggle_item_set;
extern int parm_toggle_item_set;
 
int create_shef_file(int remove)
{
FILE *fp;
char *text;
char parameter[8];
char line[80];
char tmp_file[80];
char src1[2];
char src2[2];
char fgroup_name[9];
int i;
int y,m,d,h,hx;
int len,len_actual;
int debug=0;
 
  /* establish data source(s) */
  strcpy(src1,"E");   /* default is HAS */
  strcpy(src2,"E");   /* default is HAS */
  if(src_toggle_item_set==2)
  {
    strcpy(src1,"W");  /* HPC */
    strcpy(src2,"W");  /* HPC */
  }
  if(src_toggle_item_set==3)
  {
    strcpy(src1,"U");  /* model 1 */
    strcpy(src2,"U");  /* model 2 */
  }
  if(src_toggle_item_set==4)
  {
    strcpy(src1,"V");  /* model 2 */
    strcpy(src2,"V");  /* model 2 */
  }
  if(src_toggle_item_set==5)
  {
    strcpy(src1,"E"); /* HAS */
    strcpy(src2,"U"); /* model 1 */
  }
  if(src_toggle_item_set==6)
  {
    strcpy(src1,"E"); /* HAS */
    strcpy(src2,"W"); /* HPC */
  }
  if(src_toggle_item_set==7)
  {
    strcpy(src1,"W"); /* HPC */
    strcpy(src2,"U"); /* model 1 */
  }
  if(src_toggle_item_set==8)
  {
    strcpy(src1,"W"); /* HPC */
    strcpy(src2,"V"); /* model 2 */
  }
 
  if(parm_toggle_item_set == 1)
    strcpy(parameter,"maps");
  if(parm_toggle_item_set == 2)
  {
    strcpy(parameter,"mats");
    strcpy(src1,"D"); /* only one choice */
    strcpy(src2,"D"); /* only one choice */
  }
  if(parm_toggle_item_set == 3)
    strcpy(parameter,"mazs");
 
  strcpy(fgroup_name,fg[fg_toggle_item_set].id);
  str_trim(fgroup_name);
 
  sprintf(tmp_file,"%s.f%s.shef",fgroup_name,parameter);
 
  sprintf(line,"/local/bin/scale_fcst_forcings -fg %s -days %d -src %s%s -%s -shef",
               fg[fg_toggle_item_set].id,dur_toggle_item_set,src1,src2,parameter);
  system(line);
 
  if(debug)
    printf("%s\n",line);
 
  if(remove)
  {
    if((fp = fopen (tmp_file, "r")))
    { 
      len=20000;
      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);
    }
  }
  return(1);
}
 
/* trims spaces */
int str_trim(char *str1)
{
int k;
  for(k=strlen(str1)-1;k>=1;k--)
    if(!strncmp(str1+k," ",1))
      *(str1+k)='\0';
    else
      break;
  return(0);
}