comline.c

#include "xpplim.h"
#include "comline.h"
#include "ggets.h"
#include "load_eqn.h"
#include "lunch-new.h"
#include <stdlib.h> 
#include <string.h>
/* command-line stuff for xpp */
#include <stdio.h>
#define NCMD 44 /* add new commands as needed  */

#define MAKEC 0
#define XORFX 1
#define SILENT 2 
#define CONVERT 3
#define NOICON 4
#define NEWSEED 5
#define ALLWIN 6
#define SETFILE 7
#define MSSTYLE 8
#define PWHITE 9
#define RUNNOW 10
#define BIGF 11
#define SMALLF 12
#define PARFILE 13
#define OUTFILE 14
#define ICFILE 15
#define FCOLOR 16
#define BCOLOR 17
#define BBITMAP 18
#define GRADS 19
#define MINWIDTH 20
#define MINHEIGHT 21
#define MWCOLOR 22
#define DWCOLOR 23
#define BELL 24
#define ITRNSETS 25
#define USET 26
#define RSET 27
#define INCLUDE 28
#define QSETS 29
#define QPARS 30
#define QICS 31
#define QUIET 32
#define LOGFILE 33
#define ANIFILE 34
#define VERSION 35
#define MKPLOT 36
#define PLOTFMT 37
#define NOOUT 38
#define DFDRAW 39
#define NCDRAW 40
#define DEFINE 41
#define READSET 42
#define WITH 43

extern OptionsSet notAlreadySet;

extern char big_font_name[100],small_font_name[100];
extern FILE *logfile;
extern int XPPVERBOSE;
extern int SuppressOut;
extern int RunImmediately;
extern int PaperWhite;
extern int MSStyle;
extern int got_file;

/*
char setfilename[100];
char parfilename[100];
char icfilename[100];
char includefilename[MaxIncludeFiles][100];
*/
char setfilename[XPP_MAX_NAME];
char parfilename[XPP_MAX_NAME];
char icfilename[XPP_MAX_NAME];
char includefilename[MaxIncludeFiles][XPP_MAX_NAME];

char readsetfile[XPP_MAX_NAME];
int externaloptionsflag=0;
char externaloptionsstring[1024];
int NincludedFiles=0;
extern char UserBlack[8];
extern char UserWhite[8];
extern char UserMainWinColor[8];
extern char UserDrawWinColor[8];
/*extern char UserBGBitmap[100];*/
extern char UserBGBitmap[XPP_MAX_NAME];

extern int UserGradients;
extern int UserMinWidth;
extern int UserMinHeight;
extern int UserMinHeight;
/*extern char UserOUTFILE[256];
*/
extern char UserOUTFILE[XPP_MAX_NAME];
extern int tfBell;
extern int use_intern_sets;
extern int use_ani_file;
/*extern char anifile[256];
*/
extern char anifile[XPP_MAX_NAME];
int select_intern_sets=0;



extern int Nintern_set;
int Nintern_2_use=0;


SET_NAME *sets2use,*setsNOTuse;

extern INTERN_SET intern_set[MAX_INTERN_SET];


/*extern char batchout[256];
*/
extern char batchout[XPP_MAX_NAME];

int loadsetfile=0;
int loadparfile=0;
int loadicfile=0;
int loadincludefile=0;
int querysets=0;
int querypars=0;
int queryics=0;
int dryrun=0;
/*extern char this_file[100];
*/
extern char this_file[XPP_MAX_NAME];
extern int XPPBatch,MakePlotFlag;
extern int xorfix;
extern int newseeed;
extern int silent;
extern int allwinvis;
extern int ConvertStyle;
int noicon=1;
int newseed=0;
typedef struct {
  char name[10];
  int len;

} VOCAB;

VOCAB my_cmd[NCMD]=
{
  {"-m",3},         
  {"-xorfix",7},
  {"-silent",7},
  {"-convert",8},
  {"-iconify",7},
  {"-newseed",7},
  {"-allwin",6},
  {"-setfile",7},
  {"-ee",3},
  {"-white", 6},
  {"-runnow",7},
  {"-bigfont",8},
  {"-smallfont",10},
  {"-parfile",8},
  {"-outfile",8},
  {"-icfile",7},
  {"-forecolor",10},
  {"-backcolor",10},
  {"-backimage",10},
  {"-grads",6},
  {"-width",6},
  {"-height",7},
  {"-mwcolor",8},
  {"-dwcolor",8},
  {"-bell",4},
  {"-internset",10},
  {"-uset",5},
  {"-rset",5},
  {"-include",8},
  {"-qsets",6},
  {"-qpars",6},
  {"-qics",5},
  {"-quiet",6},
  {"-logfile",8},
  {"-anifile",8},
  {"-version",8},
  {"-mkplot",7},
  {"-plotfmt",8},
  {"-noout",6},
  {"-dfdraw",7},
  {"-ncdraw",7},
  {"-def",4},
  {"-readset",8},
  {"-with",5},
 };


int is_set_name(set,nam)
SET_NAME *set;
char * nam;
{
	if (set==NULL){return(0);}
	SET_NAME *curr;
	
	curr=set;
	
	while(curr)
	{
		if (strcmp(curr->name,nam)==0)
		{
			return(1);
		}
		curr=(SET_NAME*)curr->next;
	}
	
	return(0);
}

SET_NAME * add_set(set,nam)
SET_NAME *set;
char * nam;
{
	if (!is_set_name(set,nam))
	{
		SET_NAME *curr;	
		curr = (SET_NAME *)malloc(sizeof(SET_NAME));
        	curr->name = (char *)nam;
		curr->next  = (struct SET_NAME *)set;
		set=curr;
	}
	
	return(set);
}

SET_NAME * rm_set(set,nam)
SET_NAME *set;
char *nam;
{
	SET_NAME *curr;
	SET_NAME *prev=NULL;	
	
	if (set==NULL){return(NULL);}
	
	curr=set;
	int i=1;
	while(curr)
	{
		if (strcmp(curr->name,nam)==0)
		{
			if (i==1)
			{
				set=(SET_NAME*)curr->next;
			}
			else
			{
				prev->next=curr->next;
			}
			break;
		}
		prev = curr;
		i++;
	}
	
	
	return(set);
}


void do_comline(argc,argv)
char **argv;
int argc;
{ 
 int i,k;

 silent = 0;
 got_file=0;
 xorfix=1;
 /*PaperWhite=0;
 */
 setfilename[0]=0;
 parfilename[0]=0;
 icfilename[0]=0;
 /*includefilename[0]=0;
 */
 for(i=1;i<argc;i++){
   k=parse_it(argv[i]);
   if(k==1){
     strcpy(setfilename,argv[i+1]);
     i++;
     loadsetfile=1;
     
   }
   if(k==2){
     if (notAlreadySet.SMALL_FONT_NAME){strcpy(small_font_name,argv[i+1]);notAlreadySet.SMALL_FONT_NAME=0;};
     i++;
   }
   if(k==3){
     if (notAlreadySet.BIG_FONT_NAME){strcpy(big_font_name,argv[i+1]);notAlreadySet.BIG_FONT_NAME=0;};
     i++;
   } 
   if(k==4){
     strcat(parfilename,"!load ");
     strcat(parfilename,argv[i+1]);
     i++;
     loadparfile=1;
   }
   if(k==5){
    plintf(argv[i+1]);
     sprintf(batchout,argv[i+1]);
     sprintf(UserOUTFILE,argv[i+1]);
     i++;
   }
   if(k==6){
     strcat(icfilename,argv[i+1]);
     i++;
     loadicfile=1;
   }
   if(k==7){
     if (strlen(argv[i+1]) != 6)
     {
       plintf("Color must be given as hexadecimal string.\n");
	exit(-1);
     }
     set_option("FORECOLOR",argv[i+1],1,NULL);
     i++;
     
   }
   if(k==8){
     if (strlen(argv[i+1]) != 6)
     {
       plintf("Color must be given as hexadecimal string.\n");
	exit(-1);
     }
     set_option("BACKCOLOR",argv[i+1],1,NULL);
     i++;
   }
   if(k==9){
     /*strcpy(UserBGBitmap,argv[i+1]);
     */
     set_option("BACKIMAGE",argv[i+1],1,NULL);
     i++;
   }
   if(k==10){
     set_option("GRADS",argv[i+1],1,NULL);
     i++;
   }
   if(k==11){
     set_option("WIDTH",argv[i+1],1,NULL);
     i++;
   }if(k==12){
     set_option("HEIGHT",argv[i+1],1,NULL);
     i++;
   }if(k==13){
     if (strlen(argv[i+1]) != 6)
     {
       plintf("Color must be given as hexadecimal string.\n");
	exit(-1);
     }
     set_option("MWCOLOR",argv[i+1],1,NULL);
     i++;
   }if(k==14){
     if (strlen(argv[i+1]) != 6)
     {
       plintf("Color must be given as hexadecimal string.\n");
	exit(-1);
     }
     set_option("DWCOLOR",argv[i+1],1,NULL);
     i++;
   }
   if(k==15){
     set_option("BELL",argv[i+1],1,NULL);
     i++;
   }
   if(k==16){
     use_intern_sets=atoi(argv[i+1]);
     select_intern_sets=1;
     i++;
   }  
   if(k==17){
     sets2use=add_set(sets2use,argv[i+1]);
     i++;
     select_intern_sets=1;
   }
   if(k==18){
     setsNOTuse=add_set(setsNOTuse,argv[i+1]);
     i++;
     select_intern_sets=1;
   } 
   if(k==19){
     if (NincludedFiles>MaxIncludeFiles)
     {
         printf("Max number of include files exceeded.\n");
     }
     strcpy(includefilename[NincludedFiles],argv[i+1]);
     NincludedFiles++;
     i++;
     loadincludefile=1;
   } 
   if(k==20){
     set_option("QUIET",argv[i+1],1,NULL);
     i++;
   }
   if(k==21){
     set_option("LOGFILE",argv[i+1],1,NULL);
     i++;
   }
   if(k==22){
     strcpy(anifile,argv[i+1]);
     use_ani_file=1;
     i++;
   }
   if(k==23){
     printf("XPPAUT Version %g.%g\nCopyright 2015 Bard Ermentrout\n",(float)MYSTR1,(float)MYSTR2);
     exit(0);
   }
   if(k==24){
     set_option("PLOTFMT",argv[i+1],1,NULL);
     i++;
   }
   if(k==25){
     SuppressOut=1;
     
   }
   if(k==26){
     set_option("DFDRAW",argv[i+1],1,NULL);
     i++;
   } 
   if(k==27){
    
     set_option("NCDRAW",argv[i+1],1,NULL);
     i++;
   }
   if(k==28){
     strcpy(readsetfile,argv[i+1]);
     i++;
     externaloptionsflag=1;

   }
   if(k==29){
     strcpy(externaloptionsstring,argv[i+1]);
     i++;
     externaloptionsflag=2;
   }
	 
  
 }
}


int if_needed_load_ext_options()
{
  FILE *fp;
  char myopts[1024];
  char myoptsx[1026];
  /*   printf("flag=%d file=%s\n",externaloptionsflag,readsetfile); */
  if(externaloptionsflag==0)
    return 1;
  if(externaloptionsflag==1){
    fp=fopen(readsetfile,"r");
    if(fp==NULL){
      plintf("%s external set not found\n",readsetfile);
      return 0;
    }
    fgets(myopts,1024,fp);
    sprintf(myoptsx,"$ %s",myopts);
    plintf("Got this string: {%s}\n",myopts);
    extract_action(myoptsx);
    fclose(fp);
    return 1;
  }

  if(externaloptionsflag==2){
    sprintf(myoptsx,"$ %s",externaloptionsstring);
    extract_action(myoptsx);
    return 1;
  }  
  
}
int if_needed_select_sets()
{
	if(!select_intern_sets){return 1;}
	int j;
	for(j=0;j<Nintern_set;j++)
  	{
		intern_set[j].use=use_intern_sets;
		Nintern_2_use+=use_intern_sets;
		
		if (is_set_name(sets2use,intern_set[j].name))
		{
		plintf("Internal set %s was included\n",intern_set[j].name);
			if (intern_set[j].use==0){Nintern_2_use++;}
			intern_set[j].use=1;
			
		}
		
		if (is_set_name(setsNOTuse,intern_set[j].name))
		{
		plintf("Internal set %s was excluded\n",intern_set[j].name);
			if (intern_set[j].use==1){Nintern_2_use--;}
			intern_set[j].use=0;
		}
	}
	
	plintf("A total of %d internal sets will be used\n",Nintern_2_use);
	
	return 1;
}


int if_needed_load_set()
{
  FILE *fp;
  if(!loadsetfile)
  {
    return 1;
  }
  fp=fopen(setfilename,"r");
  if(fp==NULL)
  {
    plintf("Couldn't load %s\n",setfilename);
    return 0;
  }
  read_lunch(fp);
  fclose(fp);
  return 1;
}



int if_needed_load_par()
{

  if(!loadparfile)
  {
    return 1;
  }
  plintf("Loading external parameter file: %s\n",parfilename);
  io_parameter_file(parfilename,1);
  return 1;
}


int if_needed_load_ic()
{
  
  if(!loadicfile)
  {
  	return 1;
  }
  plintf("Loading external initial condition file: %s\n",icfilename);
  io_ic_file(icfilename,1);
  return(1);
}

int parse_it(com)
     char *com;
{
  int j;
  for(j=0;j<NCMD;j++)
  {
  	if(strncmp(com,my_cmd[j].name,my_cmd[j].len)==0)
    	{
    		break;
  	}
  } 
  
  if(j<NCMD){
    switch(j){
    case MAKEC:
     plintf(" C files are no longer part of this version. \n Sorry \n");
      break;
    case MKPLOT:
      MakePlotFlag=1;
      break;
    case SILENT:
      XPPBatch=1;
      break;
    case XORFX:
      xorfix=0;
      break;
    case CONVERT:
      ConvertStyle=1;
      break;
    case NOICON:
      noicon=0;
      break;
    case NEWSEED:
     plintf("Random number seed changed\n");
      newseed=1;
      break;  
    case ALLWIN:
      allwinvis=1;
      break;
    case MSSTYLE:
      MSStyle=1;
      break;
    case PWHITE:
      plintf("-white option is no longer part of this version. \n Sorry \n");
      break;
      /*PaperWhite=1;
      notAlreadySet.PaperWhite=0;
      break;
      */
    case RUNNOW:
      RunImmediately=1;
      break;
    case SETFILE:
      return 1;
    case SMALLF:
      return 2;
    case BIGF:
      return 3;
    case PARFILE:
      return 4;
    case OUTFILE:
      return 5; 
    case ICFILE:
      return 6;
    case FCOLOR:
      return 7;
    case BCOLOR:
      return 8;
    case BBITMAP:
      return 9;
    case GRADS:
      return 10;
    case MINWIDTH:
      return 11;
    case MINHEIGHT:
      return 12;
    case MWCOLOR:
      return 13;
    case DWCOLOR:
      return 14;
    case BELL:
      return 15;
    case ITRNSETS:
      return 16;
    case USET:
      return 17;
    case RSET:
      return 18;
    case INCLUDE:
      return 19; 
    case QUIET:
      return 20; 
    case LOGFILE:
      return 21; 
    case ANIFILE:
      return 22;
    case VERSION:
      return 23;
    case PLOTFMT:
      return 24;  
    case NOOUT:
      return 25;
    case DFDRAW:
      return 26;
    case NCDRAW:
      return 27;
    case READSET:
      return 28;
    case WITH:
      return 29;
    case QSETS:
      XPPBatch=1;
      querysets=1;
      dryrun=1;
      break;
    case QPARS: 
      XPPBatch=1;
      querypars=1;
      dryrun=1;
      break;
    case QICS:
      XPPBatch=1;
      queryics=1;
      dryrun=1;
      break; 
    }
  }
  else {
    if(com[0]=='-'||got_file==1){ 
     plintf("Problem reading option %s\n",com);
     plintf("\nUsage: xppaut filename [options ...]\n\n");
     plintf("Options:\n");
     plintf("  -silent                Batch run without the interface and dump solutions to a file\n");
     plintf("  -xorfix                Work-around for exclusive Or with X on some monitors/graphics setups\n");
     plintf("  -convert               Convert old style ODE files (e.g. phaseplane) to new ODE style\n");
     plintf("  -newseed               Randomizes the random number generator which will often use the same seed\n");
     plintf("  -ee                    Emulates shortcuts of Evil Empire style (MS)\n");
     plintf("  -allwin                Brings XPP up with all the windows visible\n");
     plintf("  -white                 Uses white screen instead of black\n");
     plintf("  -setfile <filename>    Loads the set file before starting up\n");
     plintf("  -runnow                Runs ode file immediately upon startup (implied by -silent)\n");
     plintf("  -bigfont <font>        Use the big font whose filename is given\n");
     plintf("  -smallfont <font>      Use the small font whose filename is given\n");
     plintf("  -parfile <filename>    Load parameters from the named file\n");
     plintf("  -outfile <filename>    Send output to this file (default is output.dat)\n");
     plintf("  -icfile <filename>     Load initial conditions from the named file\n");
     plintf("  -forecolor <######>    Hexadecimal color (e.g. 000000) for foreground\n");
     plintf("  -backcolor <######>    Hexadecimal color (e.g. EDE9E3) for background\n");
     plintf("  -backimage <filename>  Name of bitmap file (.xbm) to load in background\n");
     plintf("  -mwcolor <######>      Hexadecimal color (e.g. 808080) for main window\n");
     plintf("  -dwcolor <######>      Hexadecimal color (e.g. FFFFFF) for drawing window\n");
     plintf("  -grads < 1 | 0 >       Color gradients will | won't be used\n"); 
     plintf("  -width N               Minimum width in pixels of main window\n");
     plintf("  -height N              Minimum height in pixels of main window\n");
     plintf("  -bell < 1 | 0 >        Events will | won't trigger system bell\n");
     plintf("  -internset < 1 | 0 >   Internal sets will | won't be run during batch run\n");
     plintf("  -uset <setname>        Named internal set will be run during batch run\n");
     plintf("  -rset <setname>        Named internal set will not be run during batch run\n");
     plintf("  -include <filename>    Named file will be included (see #include directive)\n");
     plintf("  -qsets                 Query internal sets (output saved to OUTFILE)\n");
     plintf("  -qpars                 Query parameters (output saved to OUTFILE)\n");
     plintf("  -qics                  Query initial conditions (output saved to OUTFILE)\n");
     plintf("  -quiet <1 |0>          Do not print *anything* out to console\n");
     plintf("  -logfile <filename>    Print console output to specified logfile \n");
     plintf("  -anifile <filename>    Load an animation code file (.ani) \n");
     plintf("  -plotfmt <svg|ps>       Set Batch plot format\n");
     plintf("  -mkplot                Do a plot in batch mode \n");
     plintf(" -ncdraw 1|2               Draw nullclines in batch (1) to file (2) \n");
     plintf(" -dfdraw 1-5       Draw dfields in batch (1-3) to file (4-5)  \n");
     plintf("  -version               Print XPPAUT version and exit \n");
     plintf("  -readset <filename>   Read in a set file like the internal sets\n");
     plintf("  -with string   String must be surrounded with quotes; anything that is in an internal set is valid\n");
     plintf("\n");

     plintf("Environment variables:\n");
     plintf("  XPPHELP                Path to XPPAUT documentation file <xpphelp.html>\n");
     plintf("  XPPBROWSER             Web browser (e.g. /usr/bin/firefox)\n");
     plintf("  XPPSTART               Path to start looking for ODE files\n");
     plintf("\n");
     exit(0);
    }
    else {
      strcpy(this_file,com);
      got_file=1;
    }
  }
  return 0;
}