Set dp branch as trunk

MemCell.cpp

@@ -0,0 +1,176 @@
+//---------------------------------------------------------------------------
+
+/*
+    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;
+};