edit_stations.c

Go to the documentation of this file.

#include <sqlhdr.h>
#include <sqliapi.h>
#line 1 "edit_stations.ec"
#include "prototypes.h"
 
float mult;
Widget dialog;
int isave;
int saved_win_x,saved_win_y;
 
void edit_stations(int win_x,int win_y,unsigned int win_button)
{
extern char saved_hb5[6];
extern int saved_j;
extern struct saved *fsaved;
/*
extern struct custom custom[6000];
*/
extern struct custom custom[9000];
extern unsigned long cmap[16];
extern Widget drawing_area;
extern Font font[10];
extern int npoint[2],zoom;
extern struct display_set display_set[4];
extern Display *display;
extern GC gc;
extern int mmap[10];
extern void kill_widget();
extern struct dval dval;
extern int dflag[10];
void change_station_location();
void change_custom_file();
Widget rowcol,rowcol3,pbutton,rowcol1;
float conv=.0174;
int MY=10;
Arg args[10];
Cardinal argcount;
int i;
double testdist,maxdist;
int x,y;
XmString t;
Dimension width,height;
signed long XSIZE,YSIZE;
float xrat,yrat;
int xmin,xmax,ymin,ymax,display_flag,xcen,ycen,h;
long lint1,lint2;
float dmult,lat,lon;
char *st[5],buf[100],muf[10];
char shb5[6],spc[8];
long r,s;
short int initial_toggle;
struct saved *saved;
int sxadd,syadd;
int j;
int sj;
 
XSetFont(display,gc,font[3]);
 
/* need to set flag to plot */
 
/* need to set resource in widget also */
 
XSetFunction(display,gc,GXcopy);
 
XtSetArg(args[0],XtNwidth,&width);
XtSetArg(args[1],XtNheight,&height);
XtGetValues(drawing_area,args,2);
 
XSIZE=(long)width*10L;
YSIZE=(long)height*10L;
 
xrat=(float)XSIZE/(float)12800;
yrat=(float)YSIZE/(float)9600;
 
if(xrat < yrat)
  mult=xrat;
else
  mult=yrat;
 
display_flag=0;
h=0;
 
dmult=display_set[display_flag].dmult[h];
xmin= display_set[display_flag].xmin[h];
xmax= display_set[display_flag].xmax[h];
ymin= display_set[display_flag].ymin[h];
ymax= display_set[display_flag].ymax[h];
xcen= display_set[display_flag].xcen[h];
ycen= display_set[display_flag].ycen[h];
 
lint1=(long)npoint[0]*(long)MY;
lint2=(long)npoint[1]*(long)MY;
 
x=win_x;
y=win_y;
 
saved_win_x=win_x;
saved_win_y=win_y;
 
if(zoom==1)
{
  win_x=x*MY/mult;
  win_y=y*MY/mult;
}
else
{
  win_x=((x*MY-xcen)/zoom + lint1)/mult;
  win_y=((y*MY-ycen)/zoom + lint2)/mult;
}
 
shb5[0]=0;
maxdist=9999;
 
saved=fsaved;
j=-1;
 
while( saved!=NULL) {
 
     j++;
     if(saved_j >=0 && strcmp(saved->hb5,saved_hb5)!=0)
                goto nextseg;
 
     if(j <= saved_j)
                goto nextseg;
 
     lat=saved->lat;
     lon=saved->lon;
 
     if(strncmp(&saved->pc[4],"P",1)==0 && dflag[1] != 1)
                        goto nextseg;
 
     if(strncmp(&saved->pc[4],"M",1)==0 && dflag[2] != 1)
                        goto nextseg;
 
     if(strncmp(&saved->pc[4],"R",1)==0 && dflag[3] != 1)
                        goto nextseg;
 
     if(strncmp(&saved->pc[4],"G",1)==0 && dflag[4] != 1)
                        goto nextseg;
 
     if(strncmp(&saved->pc[4],"Z",1)==0 && dflag[5] != 1)
                        goto nextseg;
 
     r=dval.a * cos(lat*conv)/(1+sin(lat*conv))
       * cos((lon-dval.lo-90)*conv) + dval.xo +.5;
 
     s=dval.a * cos(lat*conv)/(1+sin(lat*conv))
       * sin((lon-dval.lo-90)*conv) + dval.yo + .5;
 
     testdist= pow((double)(win_x-r),2) + pow((double)(win_y-s),2);
     testdist= pow(testdist,.5);
 
     if(testdist < maxdist) {
 
                        strcpy(shb5,saved->hb5);
                        strcpy(spc,saved->pc);
                        sxadd=saved->xadd;
                        syadd=saved->yadd;
                        maxdist=testdist;
                        sj=j;
 
               }
 
 
     nextseg:
 
     saved=saved->next;
 
     if(saved==NULL)
                     break;
 
         }
 
 
if(shb5[0]==0) {
 
            saved_j=-1;
            return;
 
            }
 
strcpy(saved_hb5,shb5);
saved_j=sj;
 
i=0;
isave=-1;
 
while(custom[i].hb5[0] != 0) {
 
          if(strcmp(shb5,custom[i].hb5)==0 &&
             strcmp(spc,custom[i].pc)==0) {
 
                                       isave=i;
                                       break;
 
                                        }
 
          i++;
 
          }
 
if(isave==-1) {
 
              strcpy(custom[i].hb5,shb5);
              strcpy(custom[i].pc,spc);
 
              custom[i].xadd=sxadd;
              custom[i].yadd=syadd;
 
              isave=i;
 
              i++;
              custom[i].hb5[0]=0;
 
              }
 
if(sxadd==-1 && syadd==-1)
              initial_toggle=0;
 
else if(sxadd==0 && syadd==-1)
              initial_toggle=2;
 
else if(sxadd==-1 && syadd==0)
              initial_toggle=1;
 
else if(sxadd==0 && syadd==0)
              initial_toggle=3;
 
sprintf(buf,"%s %s",shb5,spc);
 
t=XmStringLtoRCreate(buf,XmSTRING_DEFAULT_CHARSET);
 
argcount=0;
XtSetArg(args[argcount],XmNmessageString,t);argcount++;
XtSetArg(args[argcount],XmNwidth, 250);argcount++;
XtSetArg(args[argcount],XmNheight,225);argcount++;
XtSetArg(args[argcount],XmNbackground,mmap[1]);argcount++;
XtSetArg(args[argcount],XmNforeground,mmap[0]);argcount++;
XtSetArg(args[argcount],XmNdialogStyle,
         XmDIALOG_FULL_APPLICATION_MODAL);argcount++;
dialog=XmCreateMessageDialog(drawing_area,"Edit Stations",args,argcount);
 
XtUnmanageChild(XmMessageBoxGetChild(dialog,XmDIALOG_HELP_BUTTON));
XtAddCallback(dialog,XmNokCallback,change_custom_file,(XtPointer)isave);
XtAddCallback(dialog,XmNhelpCallback,change_custom_file,(XtPointer)isave);
 
argcount=0;
XtSetArg(args[argcount],XmNbackground,mmap[1]);argcount++;
XtSetArg(args[argcount],XmNforeground,mmap[0]);argcount++;
XtSetArg(args[argcount],XmNorientation,XmVERTICAL);argcount++;
rowcol=XmCreateRowColumn(dialog,"Edit Stations",args,argcount);
 
t=XmStringLtoRCreate("Station Location",XmSTRING_DEFAULT_CHARSET);
argcount=0;
XtSetArg(args[argcount],XmNlabelString,t);argcount++;
pbutton=XmCreateLabel(rowcol,"Label",args,argcount);
XtManageChild(pbutton);
 
argcount=0;
XtSetArg(args[argcount],XmNbackground,mmap[1]);argcount++;
XtSetArg(args[argcount],XmNforeground,mmap[0]);argcount++;
XtSetArg(args[argcount],XmNpacking,XmPACK_COLUMN); argcount++;
XtSetArg(args[argcount],XmNnumColumns,2);argcount++;
XtSetArg(args[argcount],XmNorientation,XmVERTICAL);argcount++;
rowcol3=XmCreateRadioBox(rowcol,"Edit Stations",args,argcount);
 
st[0]="upper left";
st[1]="lower left";
st[2]="upper right";
st[3]="lower right";
 
for(i=0;i<4;i++)
{
  argcount=0;
  XtSetArg(args[argcount],XmNbackground,mmap[1]);argcount++;
  XtSetArg(args[argcount],XmNforeground,mmap[0]);argcount++;
  XtSetArg(args[argcount],XmNselectColor,cmap[4]);argcount++;
 
  if(i==initial_toggle)
    XtSetArg(args[argcount],XmNset,True);
 
  else
    XtSetArg(args[argcount],XmNset,False);
 
  argcount++;
 
  pbutton=XmCreateToggleButton(rowcol3,st[i],args,argcount);
  XtAddCallback(pbutton,XmNvalueChangedCallback,change_station_location,(XtPointer)(i));
  XtManageChild(pbutton);
}
 
XtManageChild(rowcol3);
XtManageChild(rowcol);
XtManageChild(dialog);
XmStringFree(t);
}
 
void change_station_location(Widget w,XtPointer data,XtPointer call_data)
{
/*
extern struct custom custom[6000];
*/
extern struct custom custom[9000];
/* declare informix host variables */
/*
 * exec sql begin declare section;
 */
#line 302 "edit_stations.ec"
#line 303 "edit_stations.ec"
  char line[256];
  char id[6];
  char pe1[2];
  char pe2[2];
  char dur[2];
  char t[2];
  char s[2];
  char e[2];
  char p[2];
int xoff;
int yoff;
/*
 * exec sql end declare section;
 */
#line 314 "edit_stations.ec"
 
 
  if((int)data==0)
  {
    custom[isave].xadd=-1;
    custom[isave].yadd=-1;
  }
  else if((int)data==2)
  {
    custom[isave].xadd=0;
    custom[isave].yadd=-1;
  }
  else if((int)data==1)
  {
    custom[isave].xadd=-1;
    custom[isave].yadd=0;
  }
  else if((int)data==3)
  {
    custom[isave].xadd=0;
    custom[isave].yadd=0;
  }
 
  strcpy(id,custom[isave].hb5);
  strncpy(pe1,custom[isave].pc+0,1);
  *(pe1+1)='\0';
  strncpy(pe2,custom[isave].pc+1,1);
  *(pe2+1)='\0';
  strncpy(dur,custom[isave].pc+2,1);
  *(dur+1)='\0';
  strncpy(t,custom[isave].pc+3,1);
  *(t+1)='\0';
  strncpy(s,custom[isave].pc+4,1);
  *(s+1)='\0';
  strncpy(e,custom[isave].pc+5,1);
  *(e+1)='\0';
  strncpy(p,custom[isave].pc+6,1);
  *(p+1)='\0';
  xoff=custom[isave].xadd;
  yoff=custom[isave].yadd;
 
/*
 *   $insert into mapper_offsets values
 *   ($id,$pe1,$pe2,$dur,$t,$s,$e,$p,$xoff,$yoff);
 */
#line 355 "edit_stations.ec"
  {
#line 356 "edit_stations.ec"
  static const char *sqlcmdtxt[] =
#line 356 "edit_stations.ec"
    {
#line 356 "edit_stations.ec"
    "insert into mapper_offsets values ( ? , ? , ? , ? , ? , ? , ? , ? , ? , ? )",
    0
    };
#line 356 "edit_stations.ec"
  static ifx_statement_t _SQ0 = {0};
  static ifx_sqlvar_t _sqibind[] = 
    {
      { 100, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 102, sizeof(xoff), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 102, sizeof(yoff), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
#line 356 "edit_stations.ec"
    };
#line 356 "edit_stations.ec"
#line 356 "edit_stations.ec"
  _sqibind[0].sqldata = id;
#line 356 "edit_stations.ec"
  _sqibind[1].sqldata = pe1;
#line 356 "edit_stations.ec"
  _sqibind[2].sqldata = pe2;
#line 356 "edit_stations.ec"
  _sqibind[3].sqldata = dur;
#line 356 "edit_stations.ec"
  _sqibind[4].sqldata = t;
#line 356 "edit_stations.ec"
  _sqibind[5].sqldata = s;
#line 356 "edit_stations.ec"
  _sqibind[6].sqldata = e;
#line 356 "edit_stations.ec"
  _sqibind[7].sqldata = p;
#line 356 "edit_stations.ec"
  _sqibind[8].sqldata = (char *) &xoff;
#line 356 "edit_stations.ec"
  _sqibind[9].sqldata = (char *) &yoff;
  sqli_stmt(ESQLINTVERSION, &_SQ0, sqlcmdtxt, 10, _sqibind, (struct value *)0, (ifx_literal_t *)0, (ifx_namelist_t *)0, (ifx_cursor_t *)0, 6, 0, 0);
#line 356 "edit_stations.ec"
  }
  if(sqlca.sqlcode)
  {
/*
 *     $update mapper_offsets set(xoff,yoff)=($xoff,$yoff)
 *      where id=$id and pe1=$pe1 and pe2=$pe2 and dur=$dur
 *            and t=$t and s=$s and e=$e and p=$p;
 */
#line 359 "edit_stations.ec"
  {
#line 361 "edit_stations.ec"
  static const char *sqlcmdtxt[] =
#line 361 "edit_stations.ec"
    {
#line 361 "edit_stations.ec"
    "update mapper_offsets set ( xoff , yoff ) = ( ? , ? ) where id = ? and pe1 = ? and pe2 = ? and dur = ? and t = ? and s = ? and e = ? and p = ?",
    0
    };
#line 361 "edit_stations.ec"
  static ifx_statement_t _SQ0 = {0};
  static ifx_sqlvar_t _sqibind[] = 
    {
      { 102, sizeof(xoff), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 102, sizeof(yoff), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
      { 100, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
#line 361 "edit_stations.ec"
    };
#line 361 "edit_stations.ec"
#line 361 "edit_stations.ec"
  _sqibind[0].sqldata = (char *) &xoff;
#line 361 "edit_stations.ec"
  _sqibind[1].sqldata = (char *) &yoff;
#line 361 "edit_stations.ec"
  _sqibind[2].sqldata = id;
#line 361 "edit_stations.ec"
  _sqibind[3].sqldata = pe1;
#line 361 "edit_stations.ec"
  _sqibind[4].sqldata = pe2;
#line 361 "edit_stations.ec"
  _sqibind[5].sqldata = dur;
#line 361 "edit_stations.ec"
  _sqibind[6].sqldata = t;
#line 361 "edit_stations.ec"
  _sqibind[7].sqldata = s;
#line 361 "edit_stations.ec"
  _sqibind[8].sqldata = e;
#line 361 "edit_stations.ec"
  _sqibind[9].sqldata = p;
  sqli_stmt(ESQLINTVERSION, &_SQ0, sqlcmdtxt, 10, _sqibind, (struct value *)0, (ifx_literal_t *)0, (ifx_namelist_t *)0, (ifx_cursor_t *)0, 4, 0, 0);
#line 361 "edit_stations.ec"
  }
  }
  return;
}
 
 
void change_custom_file(Widget w,XtPointer data, XtPointer call_data)
{
  extern int data_type;
  extern int indexx;
  extern char station_list_file[256];
  int i;
/*
  extern struct custom custom[6000];
*/
  extern struct custom custom[9000];
  FILE *fp;
 
/* declare informix host variables */
/*
 * exec sql begin declare section;
 */
#line 380 "edit_stations.ec"
#line 381 "edit_stations.ec"
  char line[256];
  char id[6];
  char pe1[2];
  char pe2[2];
  char dur[2];
  char t[2];
  char s[2];
  char e[2];
  char p[2];
int xoff;
int yoff;
/*
 * exec sql end declare section;
 */
#line 392 "edit_stations.ec"
 
 
  fp=fopen(station_list_file,"w");
  if(fp==NULL)
    return;
 
  i=0;
  while(custom[i].hb5[0] != 0)
  {
 
/* one time only for initial population of mapper_offsets
 
    if(custom[i].xadd || custom[i].yadd)
    {
      strcpy(id,custom[i].hb5);
      strncpy(pe1,custom[i].pc+0,1);
      *(pe1+1)='\0';
      strncpy(pe2,custom[i].pc+1,1);
      *(pe2+1)='\0';
      strncpy(dur,custom[i].pc+2,1);
      *(dur+1)='\0';
      strncpy(t,custom[i].pc+3,1);
      *(t+1)='\0';
      strncpy(s,custom[i].pc+4,1);
      *(s+1)='\0';
      strncpy(e,custom[i].pc+5,1);
      *(e+1)='\0';
      strncpy(p,custom[i].pc+6,1);
      *(p+1)='\0';
 
      xoff=custom[i].xadd;
      yoff=custom[i].yadd;
 
      $insert into mapper_offsets values
      ($id,$pe1,$pe2,$dur,$t,$s,$e,$p,$xoff,$yoff);
      if(sqlca.sqlcode)
        $update mapper_offsets set(xoff,yoff)=($xoff,$yoff)
         where id=$id and pe1=$pe1 and pe2=$pe2 and dur=$dur
               and t=$t and s=$s and e=$e and p=$p;
    }
*/
 
    fprintf(fp,"%s %s %d %d\n",custom[i].hb5,custom[i].pc,custom[i].xadd,custom[i].yadd);
    i++;
  }
 
  fclose(fp);
  render_data(data_type,indexx);
  write_screen();
  edit_stations(saved_win_x,saved_win_y,0);
 
  return;
}
 
#line 444 "edit_stations.ec"