simuino.c

/*  Simuino is a Arduino Simulator based on Servuino Engine 
    Copyright (C) 2011  Benny Saxen
    
    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program.  If not, see <http://www.gnu.org/licenses/>. 
*/

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h> 
#include <math.h> 
#include <ctype.h>
#include <termios.h>
#include <unistd.h>
#include <ncurses.h>
#include <sys/stat.h>
#include <form.h>

#include "servuino/common.h"


// Window  ====================
#define UNO_H  16
#define UNO_W  61
#define MEGA_H  32
#define MEGA_W  110
#define UNO_COLOR 7

#define MSG_H  20
#define MSG_W  61
#define MSG_COLOR 6

#define LOG_H  40
#define LOG_W  40
#define LOG_COLOR 3

#define SER_H  40
#define SER_W  30
#define SER_COLOR 4

#define WIN_MODES 5

// Current data
int  currentStep = 0;
int  currentLoop = 0;
char currentConf[SIZE_ROW];
int  currentPin  = 0;
int  currentValueD[MAX_PIN_DIGITAL_MEGA];
int  currentValueA[MAX_PIN_ANALOG_MEGA];


// Limits
int  g_loops    = 0;
int  g_steps    = 0;
int  g_comments = 0;

int g_value      = 0;
int s_mode       = ADMIN;
int g_warning    = YES;
int g_silent     = 0;
int g_scenSource = 0;
int g_pinType    = 0;
int g_pinNo      = 0;
int g_pinValue   = 0;
int g_pinStep    = 0;

int g_existError = NO;

int   digPinCol[MAX_PIN_DIGITAL_MEGA];
int   digPinRow[MAX_PIN_DIGITAL_MEGA];
int   digIdCol[MAX_PIN_DIGITAL_MEGA];
int   digIdRow[MAX_PIN_DIGITAL_MEGA];
int   digStatCol[MAX_PIN_DIGITAL_MEGA];
int   digStatRow[MAX_PIN_DIGITAL_MEGA];
int   digActCol[MAX_PIN_DIGITAL_MEGA];
int   digActRow[MAX_PIN_DIGITAL_MEGA];

int   anaPinCol[MAX_PIN_ANALOG_MEGA];
int   anaPinRow[MAX_PIN_ANALOG_MEGA];
int   anaIdCol[MAX_PIN_ANALOG_MEGA];
int   anaIdRow[MAX_PIN_ANALOG_MEGA];
int   anaStatCol[MAX_PIN_ANALOG_MEGA];
int   anaStatRow[MAX_PIN_ANALOG_MEGA];
int   anaActCol[MAX_PIN_ANALOG_MEGA];
int   anaActRow[MAX_PIN_ANALOG_MEGA];

int   s_row,s_col;

char  simulation[MAX_STEP][SIZE_ROW];
char  simComment[MAX_STEP][SIZE_ROW];
int   stepComment[MAX_STEP];
int   loopPos[MAX_LOOP];

char  appName[120];

int   interruptMode[2];
int   digitalMode[MAX_PIN_DIGITAL_MEGA];
int   paceMaker = 0;
int   baud = 0;
int   error = 0;

// Log
char  logBlankRow[MAX_SERIAL_BUFFER];

// Serial Interface
int   serialMode = OFF;
char  prevSerial[MAX_SERIAL_BUFFER];
char  serBlankRow[MAX_SERIAL_BUFFER];

int   s_digitalPin[MAX_STEP][MAX_PIN_DIGITAL_MEGA];
int   s_analogPin[MAX_STEP][MAX_PIN_ANALOG_MEGA];

char  textPinModeIn[MAX_PIN_DIGITAL_MEGA][SIZE_ROW];
char  textPinModeOut[MAX_PIN_DIGITAL_MEGA][SIZE_ROW];
char  textDigitalWriteLow[MAX_PIN_DIGITAL_MEGA][SIZE_ROW];
char  textDigitalWriteHigh[MAX_PIN_DIGITAL_MEGA][SIZE_ROW];
char  textAnalogWrite[MAX_PIN_DIGITAL_MEGA][SIZE_ROW];
char  textAnalogRead[MAX_PIN_ANALOG_MEGA][SIZE_ROW];
char  textDigitalRead[MAX_PIN_DIGITAL_MEGA][SIZE_ROW];
int   scenAnalog    = 0;
int   scenDigital   = 0;
int   scenInterrupt = 0;

// Configuration default values
int   confSteps   = 1000;
int   confWinMode =    2;
int   confDelay   =  100;
int   confLogLev  =    1;
int   confLogFile =    0;
char  confSketchFile[200];
int   confBoardType = UNO;

char  fileTemp[80]       = "temp.txt";
char  fileInfoRun[80]    = "help.txt";
char  fileCopyError[80]  = "copy.error";
char  fileHints[80]      = "hints.txt";
char  fileInfoAdmin[80]  = "help_command.txt";
char  fileInfoGpl[80]    = "gpl.txt";
char  fileProjList[80]   = "conf_list.txt";
char  fileLog[80]        = "log.txt";
char  fileDefault[80]    = "default.conf";
char  fileError[80]      = "error.txt";
char  fileServComp[80]   = "servuino/g++.result";
char  fileServSketch[80] = "servuino/sketch.pde";
char  fileServData[80]   = "servuino/data.su";
char  fileServError[80]  = "servuino/data.error";
char  fileServScen[80]   = "servuino/data.scen";

int  g_nScenDigital = 0;
int  g_nScenAnalog  = 0;

int uno_h=0, uno_w=0, uno_x=0, uno_y=0;
int msg_h=0, msg_w=0, msg_x=0, msg_y=0;
int log_h=0, log_w=0, log_x=0, log_y=0;
int ser_h=0, ser_w=0, ser_x=0, ser_y=0;
int board_w=0,board_h=0,board_x=0,board_y=0;
int ap,dp;

//#define DP 5   // Digital Pin Row No
//#define AP 11  // Analog Pin Row No
#define RF 1 
#define ER 1
#define SR 20


WINDOW *uno,*ser,*slog,*msg;
static struct termios orig, nnew;
 
char  stemp[80];
char  gplFile[80];

FILE  *err;

#include "servuino/common_lib.c"
#include "simuino.h"
#include "simuino_lib.c"
#include "decode_lib.c"

//====================================
int runStep(int dir)
//====================================
{
  char row[SIZE_ROW],event[SIZE_ROW],temp[SIZE_ROW];
  char *p,temp2[SIZE_ROW],temp3[SIZE_ROW],comment[SIZE_ROW];
  int res1 = 0,res2 = 0,value = 0;
  int step = 0,pin,x,y;
  char mode[12];

  if(dir == FORWARD)currentStep++;
  //if(dir == BACKWARD)currentStep--;

  if(currentStep > g_steps)
    {
      currentStep = checkRange(HEAL,"step",currentStep);
      return(STOP); 
    }

  if(currentStep > loopPos[currentLoop+1])
    {
      currentLoop++;
      currentLoop = checkRange(HEAL,"loop",currentLoop);
      if(currentLoop > g_loops)
	{
	  return(STOP); 
	}
    }
  
  res1 = readEvent(event,currentStep);

  if(res1 > 0)
    {

      if(p=strstr(event,"pinMode"))
	{
	  sscanf(event,"%d %s %s %d",&step,temp,mode,&pin);
	  if(strstr(mode,"IN"))pinMode(pin,INPUT);
	  if(strstr(mode,"OUT"))pinMode(pin,OUTPUT);
	}
      else if (p=strstr(event,"digitalRead"))
	{
	  sscanf(event,"%d %s %d %d",&step,temp,&pin,&value);
	  g_value = value;
	  digitalRead(pin);
	}
      else if (p=strstr(event,"digitalWrite"))
	{
	  sscanf(event,"%d %s %s %d",&step,temp,mode,&pin);
	  if(strstr(mode,"LOW"))digitalWrite(pin,LOW);
	  if(strstr(mode,"HIGH"))digitalWrite(pin,HIGH);
	}
      else if (p=strstr(event,"analogRead"))
	{
	  sscanf(event,"%d %s %d %d",&step,temp,&pin,&value);
	  g_value = value;
	  analogRead(pin);
	}
      else if (p=strstr(event,"analogWrite"))
	{
	  sscanf(event,"%d %s %d %d",&step,temp,&pin,&value);
	  analogWrite(pin,value);
	}
      else if (p=strstr(event,"Serial:begin"))
	{
	  sscanf(event,"%d %s %d",&step,temp,&x);
	  Serial.begin(x);
	}
      else if (p=strstr(event,"Serial:print(int)"))
	{
	  sscanf(event,"%d %s %d",&step,temp,&x);
	  Serial.print(x);
	}
      else if (p=strstr(event,"Serial:print(int,int)"))
	{
	  sscanf(event,"%d %s %d",&step,temp,&x,&y);
	  Serial.print(x,y);
	}
      else if (p=strstr(event,"Serial:print(char)"))
	{
	  getString(event,temp3);
	  Serial.print(temp3);
	}
      else if (p=strstr(event,"Serial:println(int)"))
	{
	  sscanf(event,"%d %s %d",&step,temp,&x);
	  Serial.println(x);
	}
      else if (p=strstr(event,"Serial:println(char)"))
	{
	  getString(event,temp3);
	  Serial.println(temp3);
	}
      else if (p=strstr(event,"delay()"))
	{
	  sscanf(event,"%d %s %d",&step,temp,&x);
	  delay(x);
	}
      else if (p=strstr(event,"delayMicroseconds"))
	{
	  sscanf(event,"%d %s %d",&step,temp,&x);
	  delayMicroseconds(x);
	}
      else if (p=strstr(event,"attachInterrupt"))
	{
	  sscanf(event,"%d %s %d %d",&step,temp,&x,&y);
	  attachInterrupt(x,0,y);
	}
      else if (p=strstr(event,"detachInterrupt"))
	{
	  sscanf(event,"%d %s %d",&step,temp,&x);
	  detachInterrupt(x);
	}
      else
	unimplemented(temp);

      readComment(currentStep);
      
      show(slog);
    }
  else
    showError("Unable to step ",currentStep);

  unoInfo();

  return(0);
}    
//====================================
int tokCommand(char res[40][40],char *inp)
//====================================
{
  char *pch;
  int count = 0;

  pch = strtok(inp," ");
  while (pch != NULL)
    {
      strcpy(res[count],pch);
      count++;
      pch = strtok(NULL, " ");
    }
  return(count);
}

//====================================
void loadCurrentProj()
//====================================
{
  int x,res;
  char syscom[120];

  g_warning = NO;
  putMsg(1,"Loading Proj...");
  res = loadSketch(confSketchFile);
  if(res == 0)
  {
    if(confSteps < 0) confSteps = 100;
    if(confSteps > MAX_STEP) confSteps = MAX_STEP-1;
    sprintf(syscom,"cd servuino;./servuino %d %d;",confSteps,g_scenSource);
    x=system(syscom);
    initSim();
    resetSim();
    readSimulation(fileServData);
    readSketchInfo();
    setRange(confBoardType);
    init(confWinMode);
    unoInfo();
    putMsg(msg_h-2,"Sketch load ready!");
    //putMsg(msg_h-2,syscom);
  }
}

//====================================
void openCommand()
//====================================
{
  struct stat st;
  int ch,nsteps=1000,x,i,n,stop=0,loop,projNo = 0,ok=0,tmp;
  char *p,str[120],sstr[20],fileName[120],temp[120],syscom[120];
  char command[40][40];

  s_mode = ADMIN;
  g_silent = 0;

  readMsg(gplFile);

  while(strstr(str,"ex") == NULL)
    {
      if(currentStep == g_steps)endOfSimulation();

      anyErrors();
      unoInfo();

      wmove(uno,board_h-2,1);
      wprintw(uno,"                                                  ");
      if(g_silent==NO )mvwprintw(uno,board_h-2,1,"A%1d>",confWinMode);
      if(g_silent==YES)mvwprintw(uno,board_h-2,1,"A%1d<",confWinMode);

      strcpy(command[0],"");

      wgetstr(uno,str);

      n = tokCommand(command,str);

      strcpy(sstr,command[0]);

      p = str;

      projNo = atoi(sstr);

      if(strstr(sstr,"sil"))//silent mode
	{
	  g_silent++;;
          if(g_silent > 1)g_silent = 0;
	}
      else if(strstr(sstr,"gpl"))
        {
          readMsg(gplFile);
        }
      else if(strstr(sstr,"err"))
        {
          readMsg(fileTemp);
        }
      else if(strstr(sstr,"run"))
	{
	  stop = 0;
          if(n == 2)stop = atoi(command[1]);
	  stop = checkRange(HEAL,"step",stop);
	  runMode(stop);
          if(stop==0)putMsg(2,"Back in Admin Mode!");
	}
      else if(strstr(sstr,"res")) // reset simulation
	{
	  resetSim();
	  init(confWinMode);
	  unoInfo();
	  readMsg(currentConf);
	}
      else if(strstr(sstr,"help")) //
	{
	  strcpy(fileName,fileInfoAdmin);
	  readMsg(fileName);
	}
      else if(strstr(sstr,"rem")) //
	{
	  if(n == 4)
	    {
	      if(strstr(command[1],"a"))g_pinType = ANA;
	      if(strstr(command[1],"d"))g_pinType = DIG;
	      g_pinNo   = atoi(command[2]);
	      g_pinStep = atoi(command[3]);
	      if(g_pinType == ANA)
		ok = checkRange(S_OK,"anapin",g_pinNo);
	      if(g_pinType == DIG)
		ok = checkRange(S_OK,"digpin",g_pinNo);
	      if(ok == S_OK)
		{
		  g_scenSource = 1;
		  sprintf(syscom,"cd servuino;./servuino %d %d %d %d %d %d %d;",confSteps,g_scenSource,g_pinType,g_pinNo,0,g_pinStep,DELETE);
		  //putMsg(2,syscom);
		  tmp=system(syscom);
		  initSim();
		  readSketchInfo();
		  readSimulation(fileServData);
		  runStep(FORWARD);
		  readMsg(fileServScen);
		}
	      else
		putMsg(2,"Wrong pin number or pin type!");
	    }
	  else
	    putMsg(2,"Syntax: del <a or d> <pin> <step>");
	}
      else if(strstr(sstr,"add")) //
	{
	  if(n == 5)
	    {
	      if(strstr(command[1],"a"))g_pinType = ANA;
	      if(strstr(command[1],"d"))g_pinType = DIG;

	      g_pinNo    = atoi(command[2]);
	      g_pinStep  = atoi(command[3]);
	      g_pinValue = atoi(command[4]);

	      ok = S_OK;
	      if(g_pinType == ANA)
		ok = checkRange(S_OK,"anapin",g_pinNo);
	      if(g_pinType == DIG)
		ok = checkRange(S_OK,"digpin",g_pinNo);

	      ok = ok + checkRange(S_OK,"step",g_pinStep);

	      if(ok == S_OK)
		{
		  g_scenSource = 1;
		  sprintf(syscom,"cd servuino;./servuino %d %d %d %d %d %d %d;",confSteps,g_scenSource,g_pinType,g_pinNo,g_pinValue,g_pinStep,ADD);
		  tmp=system(syscom);
		  initSim();
		  readSketchInfo();
		  readSimulation(fileServData);
		  runStep(FORWARD);
		  readMsg(fileServScen);
		}
	    }
	  else
	    putMsg(2,"Syntax: add <a or d> <pin> <step> <value>");
	}
      else if(strstr(sstr,"info"))
	{
	  if(n == 2)
	    {
	      if(strstr(command[1],"conf"))
		{
		  readMsg(fileDefault);
		}
	      else if(strstr(command[1],"err"))
		{
		  readMsg(fileServError);
		}
	      else if(strstr(command[1],"g++"))
		{
		  readMsg(fileServComp);
		}
	      else if(strstr(command[1],"help"))
		{
		  readMsg(fileInfoAdmin);
		}
	      else if(strstr(command[1],"loop")) 
		{
		  showLoops();
		}
	      else if(strstr(command[1],"scen")) // scenario
		{
		  readMsg(fileServScen);
		}
	    }
	  else
	    {
	      readMsg(fileInfoAdmin);
	    }
	}

      else if(strstr(sstr,"proj"))
	{
	  if(n == 2)
	    {
	      strcpy(currentConf,command[1]);
	      strcat(currentConf,".conf");
	      readConfig(currentConf);
              g_warning = YES;
	      unoInfo();
	    }
	  readMsg(currentConf);
	}
      else if(strstr(sstr,"list"))
	{
	  readMsg(fileProjList);	
	}
      else if(strstr(sstr,"sketch"))
	{
	  if(n == 2)
	    {
	      if(strstr(command[1],"conf"))
		{
		  readMsg(confSketchFile);
		}
	      else if(strstr(command[1],"work"))
		{
		  readMsg(fileServSketch);
		}
	    }
	  else
	    readMsg(fileServSketch);	
	}
      else if(strstr(sstr,"conf"))
	{
	  if(n == 3)
	    {
	      if(strstr(command[1],"sim"))
		{
		  confSteps = atoi(command[2]);	
		}
	      if(strstr(command[1],"delay"))
		{
		  confDelay = atoi(command[2]);	
		}
/* 	      else if(strstr(command[1],"log")) */
/* 		{ */
/* 		  confLogLev = atoi(command[2]); */
/* 		} */
	      else if(strstr(command[1],"win"))
		{
		  confWinMode = atoi(command[2]);
		  if(confWinMode > WIN_MODES)confWinMode = 0;
		  init(confWinMode);
		  unoInfo();
		}
	      else if(strstr(command[1],"sketch"))
		{
		  strcpy(temp,command[2]);
		  if(stat(temp,&st) == 0)
		    {
		      strcpy(confSketchFile,command[2]);
		    }
		  else
		    {
		      sprintf(temp,"Sketch not found: %s",temp);
		      putMsg(msg_h-2,temp);
		    }
		}
/* 	      else if(strstr(command[1],"board")) */
/* 		{ */

/* 		  strcpy(temp,command[2]); */
/* 		  if(strstr(temp,"uno")) */
/* 		    { */
/* 		      confBoardType = UNO; */
/* 		    } */
/* 		  else if(strstr(temp,"mega")) */
/* 		    { */
/* 		      confBoardType = MEGA; */
/* 		    } */
/* 		  else */
/* 		    { */
/* 		      sprintf(temp,"Board type not found: %s",temp); */
/* 		      putMsg(msg_h-2,temp); */
/* 		    } */
/* 		} */
	      saveConfig(currentConf);
	    }
	  readMsg(currentConf); 
	}
      
      
      else if(strstr(sstr,"sav")) //save config
	{
	  if(n == 2)
	    {
	      strcpy(currentConf,command[1]);
	      strcat(currentConf,".conf");
              
	    }
	  saveConfig(currentConf);
	  readMsg(currentConf);
	  sprintf(syscom,"ls *.conf > %s;",fileProjList);
	  x=system(syscom);
	}
      else if(strstr(sstr,"del")) //delete config
	{
	  if(n == 2)
	    {
	      strcpy(currentConf,command[1]);
	      strcat(currentConf,".conf");
              
	    }
          if(strstr(currentConf,"default") == NULL)
	    {
	      sprintf(syscom,"rm %s;",currentConf);
	      x=system(syscom);
	      sprintf(syscom,"ls *.conf > %s;",fileProjList);
	      x=system(syscom);
	      readMsg(fileProjList);
	      strcpy(currentConf,fileDefault);
	    }	
	}
      else if(strstr(sstr,"record"))
	{
          if(n == 2)confLogFile = atoi(command[1]);
	  if(confLogFile >=0 && confLogFile < 2)
	    {
	      saveConfig(currentConf);
	      readMsg(currentConf);
	    }
	}
      else if(strstr(sstr,"win")) //windows layout
        {
          if(n == 2)
	    {
              confWinMode = atoi(command[1]);
              if(confWinMode > WIN_MODES)confWinMode = 0;
              init(confWinMode);
              unoInfo();
	    }
        }
      else if(strstr(sstr,"loop")) //status
	{
          if(n == 2)loop = atoi(command[1]);
	  loop = checkRange(HEAL,"loop",loop);
	  runLoops(loop);
	}
      else if(strstr(sstr,"sim")) //status
	{
	  readSimulation(fileServData);
	}
      else if(strstr(sstr,"sys"))
	{
	  p = p+4;
	  wLog(p,-1,-1);
	  x=system(p);
	}
      else if(strstr(sstr,"clear"))
	{
	  sprintf(syscom,"rm servuino/sketch.pde;rm servuino/data.su;rm servuino/data.scen;");
	  x=system(syscom);
	}
      else if(strstr(sstr,"load"))
	{
          if(n == 2)
	    {
	      confSteps = atoi(command[1]);
	    }
          g_scenSource = 0;
	  loadCurrentProj();
	}
      else if(projNo > 0 && projNo < 10)
        {
	  selectProj(projNo,currentConf);
	  readConfig(currentConf);
	  g_warning = YES;
	  unoInfo();
	  readMsg(currentConf);   
        }
      else 
	{
	  putMsg(msg_h-2,"Unknown Admin command");
	}
    }
}

//====================================
void runMode(int stop)
//====================================
{
  int ch,x,step,tmp,res=0,a=0,b=0,ir,ok=0;
  char tempName[80],syscom[120],temp[80];
  strcpy(tempName,"help.txt");

  s_mode = RUN;


  if(stop > 0)
    {
      if(stop > g_steps)stop = g_steps;
      if(stop > currentStep)
	runAll(stop);
      return;
    }

  putMsg(3,"Run Mode. Press h for help.");

  while(1)  
    {
      if(currentStep == g_steps)endOfSimulation();

      anyErrors();
      if(g_silent==NO )mvwprintw(uno,board_h-2,1,"R%1d>",confWinMode);
      if(g_silent==YES)mvwprintw(uno,board_h-2,1,"R%1d<",confWinMode);
      unoInfo();

      //      wmove(uno,board_h-2,1);
      //       wprintw(uno,"                                                  ");


      ch = getchar();

      if (ch=='q' || ch=='x')
	{
	  return;
	}

      if (ch=='h')
        {
          readMsg(fileInfoRun);
        }
      else if(ch=='c' ) // scenario
	{
	  readMsg(fileServScen);
	}
      else if(ch=='z')//silent mode
	{
	  g_silent++;;
          if(g_silent > 1)g_silent = 0;
	  if(g_silent==0)mvwprintw(uno,board_h-2,1,"R%1d>",confWinMode);
	  if(g_silent==1)mvwprintw(uno,board_h-2,1,"R%1d<",confWinMode);
	  show(uno);
	}
      else if (ch=='g')
	{
	  runAll(g_steps);
	}
      else if (ch=='l')
	{
	  showLoops();
	}
      else if (ch=='w')
	{
	  confWinMode++;
	  if(confWinMode > WIN_MODES)confWinMode = 0;
          init(confWinMode);
	  mvwprintw(uno,board_h-2,1,"R%1d>",confWinMode);
	  unoInfo();
	}
      else if (ch=='a')
	{
	  resetSim();
	  init(confWinMode);
	  unoInfo();
	  mvwprintw(uno,board_h-2,1,"R%1d>",confWinMode);
	  show(uno);
	}
      else if (ch=='b')
	{
	  if(confBoardType==UNO)
	    confBoardType = MEGA;
	  else
	    confBoardType = UNO;
	  //initSim();
	  setRange(confBoardType);
	  resetSim();
	  init(confWinMode);
	  unoInfo();
	  mvwprintw(uno,board_h-2,1,"R%1d>",confWinMode);
	  show(uno);
	}
      else if (ch=='r')
	{
	  runLoop();
	}
      else if (ch=='t')
	{
	  runNextRead();
	}
      else if (ch=='s') 
	{
	  runStep(FORWARD);
	}
      else if (ch=='i')
        {
          step = currentStep + 1;
	  sprintf(temp," Enter interrupt id and value to be set at step %d. Ex. 1 0 ",step);
	  putMsg(2,temp);
          wgetstr(uno,temp);
          if(strstr(temp,"q") == NULL)
	    {
	      sscanf(temp,"%d%d",&ir,&x);
	      ok = S_OK;
	      ok = ok + checkRange(S_OK,"interrupt",ir);
	      ok = ok + checkRange(S_OK,"digval",x);
	      ok = ok + checkRange(S_OK,"step",step);

	      if(ok == S_OK)
		{      
		  if(attached[ir] == YES)
		    {
		      //putMsg(2," Accepted!");
		      g_scenSource = 1;
		      g_pinType = DIG;
		      g_pinNo = inrpt[ir];
		      // steps, source, pintype, pinno, pinvalue, pinstep
		      sprintf(syscom,"cd servuino;./servuino %d %d %d %d %d %d %d;",confSteps,g_scenSource,g_pinType,g_pinNo,x,currentStep+1,ADD);
		      putMsg(2,syscom);
		      tmp=system(syscom);
		      initSim();
		      readSketchInfo();
		      readSimulation(fileServData);
		      runStep(FORWARD);
		      readMsg(fileServScen);
		    }
		  else
		    putMsg(2,"Interrupt not attached");
		}
	    }
	  else
	    putMsg(2,"Cancelled!");
        }
      else if (ch=='v') 
	{
          step = currentStep + 1;
	  sprintf(temp," Enter value to be read at step %d",step);
          putMsg(2,temp);
	  res = analyzeEvent(simulation[step]);
          if(res > 0)
	    {
	      wgetstr(uno,temp);

	      if(strstr(temp,"q") == NULL)
		{
		  x = atoi(temp); 
		  ok = S_OK;
		  if(res == ANA)ok = ok + checkRange(S_OK,"anaval",x);
		  if(res == DIG)ok = ok + checkRange(S_OK,"digval",x);
		  if(ok == S_OK)
		    {         
		      g_scenSource = 1;
		      // steps, source, pintype, pinno, pinvalue, pinstep
		      sprintf(syscom,"cd servuino;./servuino %d %d %d %d %d %d %d;",confSteps,g_scenSource,g_pinType,g_pinNo,x,currentStep+1,ADD);
		      tmp=system(syscom);
		      initSim();
		      readSketchInfo();
		      readSimulation(fileServData);
		      runStep(FORWARD);
		      readMsg(fileServScen);
		    }
		}
	      else
		putMsg(2,"Cancelled!");
	    }
	  else
	    putMsg(2,"Next step is not a Read event");
	}
      else if (ch=='l') 
	{
	  confLogLev++;
	  if(confLogLev > 3)confLogLev = 0;
	}
      else if (ch=='+') 
	{
	  confDelay = confDelay + 10;
	}
      else if (ch=='-') 
	{
	  confDelay = confDelay - 10;
	  if(confDelay < 0)confDelay = 0;
          if(confDelay > 1000)confDelay = 1000;
	}
      else if (ch=='f') 
	{
	  confLogFile++;
	  if(confLogFile > 1)confLogFile = 0;
	}
      else
        putMsg(msg_h-2,"Unknown R command");
    }
  return;
}
//====================================
int main(int argc, char *argv[])
//====================================
{
  char syscom[120];
  int ch,i,x;

  err = fopen(fileError,"w");

  strcpy(gplFile,"gpl.txt");

  inrpt[0] = IR0;
  inrpt[1] = IR1;
  inrpt[2] = IR2;
  inrpt[3] = IR3;
  inrpt[4] = IR4;
  inrpt[5] = IR5;


  if(argc == 2)
    {
      strcpy(currentConf,argv[1]);
      strcat(currentConf,".conf");
    }
  else
    strcpy(currentConf,fileDefault);

  sprintf(syscom,"ls *.conf > %s;",fileProjList);
  x=system(syscom);
  sprintf(syscom,"rm %s;touch %s;",fileTemp,fileTemp);
  x=system(syscom);
  sprintf(syscom,"rm %s;touch %s;",fileError,fileError);
  x=system(syscom);
  sprintf(syscom,"rm %s;touch %s;",fileServError,fileServError);
  x=system(syscom);
  sprintf(syscom,"rm %s;touch %s;",fileCopyError,fileCopyError);
  x=system(syscom);

  readConfig(currentConf);

  initSim();
  resetSim();
  max_steps = readSimulation(fileServData);
  readSketchInfo();
  setRange(confBoardType);
  init(confWinMode);

  unoInfo();
  show(slog);

  if(confLogFile == YES)resetFile("log.txt");

  readMsg(gplFile);

  openCommand();
  
  delwin(uno);
  delwin(ser);
  delwin(slog);
  delwin(msg);
  endwin();

  fclose(err);

}
//====================================
// End of file
//====================================