maszyna/MemCell.cpp

//---------------------------------------------------------------------------

/*
    MaSzyna EU07 locomotive simulator
    Copyright (C) 2001-2004  Marcin Wozniak, Maciej Czapkiewicz and others

*/


#include "system.hpp"
#include "classes.hpp"
#pragma hdrstop

#include "Driver.h"
#include "mctools.hpp"
#include "MemCell.h"
#include "Event.h"
#include "parser.h"

#include "Usefull.h"
#include "Globals.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
//---------------------------------------------------------------------------

__fastcall TMemCell::TMemCell(vector3 *p)
{
 fValue1=fValue2=0;
 szText=new char[256]; //musi byæ dla automatycznie tworzonych komórek dla odcinków izolowanych
 vPosition=p?*p:vector3(0,0,0); //ustawienie wspó³rzêdnych, bo do TGroundNode nie ma dostêpu
 bCommand=false; //komenda wys³ana
 OnSent=NULL;
}

__fastcall TMemCell::~TMemCell()
{
 SafeDeleteArray(szText);
}

void __fastcall TMemCell::Init()
{
}

void __fastcall TMemCell::UpdateValues(char *szNewText, double fNewValue1, double fNewValue2, int CheckMask)
{
 if (CheckMask&update_memadd)
 {//dodawanie wartoœci
  if (TestFlag(CheckMask,update_memstring))
   strcat(szText,szNewText);
  if (TestFlag(CheckMask,update_memval1))
   fValue1+=fNewValue1;
  if (TestFlag(CheckMask,update_memval2))
   fValue2+=fNewValue2;
 }
 else
 {
  if (TestFlag(CheckMask,update_memstring))
   strcpy(szText,szNewText);
  if (TestFlag(CheckMask,update_memval1))
   fValue1=fNewValue1;
  if (TestFlag(CheckMask,update_memval2))
   fValue2=fNewValue2;
 }
 if (TestFlag(CheckMask,update_memstring))
  CommandCheck();//jeœli zmieniony tekst, próbujemy rozpoznaæ komendê
}

TCommandType __fastcall TMemCell::CommandCheck()
{//rozpoznanie komendy
 if (strcmp(szText,"SetVelocity")==0) //najpopularniejsze
 {eCommand=cm_SetVelocity;
  bCommand=false; //ta komenda nie jest wysy³ana
 }
 else if (strcmp(szText,"ShuntVelocity")==0) //w tarczach manewrowych
 {eCommand=cm_ShuntVelocity;
  bCommand=false; //ta komenda nie jest wysy³ana
 }
 else if (strcmp(szText,"Change_direction")==0) //zdarza siê
 {eCommand=cm_ChangeDirection;
  bCommand=true; //do wys³ania
 }
 else if (strcmp(szText,"OutsideStation")==0) //zdarza siê
 {eCommand=cm_OutsideStation;
  bCommand=false; //tego nie powinno byæ w komórce
 }
 else if (strncmp(szText,"PassengerStopPoint:",19)==0) //porównanie pocz¹tków
 {eCommand=cm_PassengerStopPoint;
  bCommand=false; //tego nie powinno byæ w komórce
 }
 else if (strcmp(szText,"SetProximityVelocity")==0) //nie powinno tego byæ
 {eCommand=cm_SetProximityVelocity;
  bCommand=false; //ta komenda nie jest wysy³ana
 }
 else
 {eCommand=cm_Unknown; //ci¹g nierozpoznany (nie jest komend¹)
  bCommand=true; //do wys³ania
 }
 return eCommand;
}

bool __fastcall TMemCell::Load(cParser *parser)
{
 std::string token;
 parser->getTokens(1,false);  //case sensitive
 *parser >> token;
 SafeDeleteArray(szText);
 szText=new char[256]; //musi byæ bufor do ³¹czenia tekstów
 strcpy(szText,token.c_str());
 parser->getTokens();
 *parser >> fValue1;
 parser->getTokens();
 *parser >> fValue2;
 parser->getTokens();
 *parser >> token;
 if (token.compare("none")!=0) //gdy ró¿ne od "none"
  asTrackName=AnsiString(token.c_str()); //sprawdzane przez IsEmpty()
 parser->getTokens();
 *parser >> token;
 if (token.compare("endmemcell")!=0)
  Error("endmemcell statement missing");
 CommandCheck();
 return true;
}

void __fastcall TMemCell::PutCommand(TController *Mech, vector3 *Loc)
{//wys³anie zawartoœci komórki do AI
 if (Mech)
  Mech->PutCommand(szText,fValue1,fValue2,Loc);
}

bool __fastcall TMemCell::Compare(char *szTestText,double fTestValue1,double fTestValue2,int CheckMask)
{//porównanie zawartoœci komórki pamiêci z podanymi wartoœciami
 if (TestFlag(CheckMask,conditional_memstring))
 {//porównaæ teksty
  char *pos=StrPos(szTestText,"*"); //zwraca wskaŸnik na pozycjê albo NULL
  if (pos)
  {//porównanie fragmentu ³añcucha
   int i=pos-szTestText; //iloœæ porównywanych znaków
   if (i) //jeœli nie jest pierwszym znakiem
    if (AnsiString(szTestText,i)!=AnsiString(szText,i))
     return false; //pocz¹tki o d³ugoœci (i) s¹ ró¿ne
  }
  else
   if (AnsiString(szTestText)!=AnsiString(szText))
    return false; //³¹ñcuchy s¹ ró¿ne
 }
 //tekst zgodny, porównaæ resztê
 return ((!TestFlag(CheckMask,conditional_memval1) || (fValue1==fTestValue1)) &&
         (!TestFlag(CheckMask,conditional_memval2) || (fValue2==fTestValue2)));
};

bool __fastcall TMemCell::Render()
{
 return true;
}

bool __fastcall TMemCell::IsVelocity()
{//sprawdzenie, czy event odczytu tej komórki ma byæ do skanowania, czy do kolejkowania
 if (eCommand==cm_SetVelocity) return true;
 if (eCommand==cm_ShuntVelocity) return true;
 return (eCommand==cm_SetProximityVelocity);
};

void __fastcall TMemCell::StopCommandSent()
{//
 if (!bCommand) return;
 bCommand=false;
 if (OnSent) //jeœli jest event
  Global::AddToQuery(OnSent,NULL);
};

void __fastcall TMemCell::AssignEvents(TEvent *e)
{//powi¹zanie eventu
 OnSent=e;
};