root/trunk/CConfigFile.cpp

///////////////////////////////////////////////////////////
//                        TexGen                         //
//          утилита для подготовки текстур рельефа       //
//               для игры Проклятые Земли                //
//           Copyright (C) 2007-2008 Gipat Group         //
//              Распространяется на условиях             //
//    Gipat Group's opened EI-editor-utility license     //
//                      версии 1.0                       //
//                                                       //
//                  www.gipatgroup.org                   //
///////////////////////////////////////////////////////////

//К работе над данным файлом приложили руки, ноги.... короче аффтары:
// 1) Снайпер (sniper-rifle@rambler.ru)

////////////////////////////////////////////////////////////////////////

#include <vcl.h>
#include "CConfigFile.h"
//-------------------------------------------
//По всему файлу
void CConfigFile::LoadConfig(AnsiString FileName)
{
//Загружаем всю инфу из файла
  if(FileExists(FileName))  //Если есть чего открывать
  {
    AnsiString FILE, TempStr, ClearStr, Val, CurrSect;
    int Hnd, Len;
    Hnd = FileOpen(FileName,fmOpenRead);
    if(Hnd > 0)              //Если удалось открыть
    {
      Len = FileSeek(Hnd,0,SEEK_END);       //
      FileSeek(Hnd,0,SEEK_SET);             //
      FILE.SetLength(Len);                  //   Считали файл в переменную и закрыли его.
      FileRead(Hnd,&FILE[1],Len);           //
      FileClose(Hnd);                       //
      ////////////////////////////////////////
      RemoveAllSect();                      //   Очистили объект от старой инфы
      FILE += "\r\n";                       //Ибо нефиг.
      while(AnsiContainsText(FILE,"\r\n"))
      {
        TempStr = Trim(LeftStr(FILE,AnsiPos("\r\n",FILE)-1));                // Выделили очередную строку
        FILE = RightStr(FILE,FILE.Length() - AnsiPos("\r\n",FILE)-1);  // И убрали её из файла

        //1) проверяем - не является ли параметр комментарием
        if(LeftStr(TempStr,2) == "//")
        {
          IniComment += TempStr+"\r\n";
        }
        else         //2) или нет - и это секция
          if( (LeftStr(TempStr,1)=="[")&&(RightStr(TempStr,1)=="]") )
          {
            ClearStr = Trim(MidStr(TempStr,2,TempStr.Length() - 2));
            if(!SectionExists(ClearStr))AddSection(ClearStr);
            CurrSect = ClearStr;
          }
          else
            if(AnsiContainsStr(TempStr,"="))
            {
              ClearStr = Trim(LeftStr(TempStr,AnsiPos("=",TempStr)-1));
              Val = Trim(RightStr(TempStr,TempStr.Length() - AnsiPos("=",TempStr)));
              AddValue(CurrSect, ClearStr, Val);
            }
      }
    }
  }
}
//ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖопа
void CConfigFile::SaveConfig(AnsiString FileName)
{
//Савим данные в файл
  int Hnd;
  if(!FileExists(FileName))
  {
    Hnd=FileCreate(FileName,fmOpenWrite);
  }
  else
  {
    DeleteFile(FileName);
    Hnd=FileCreate(FileName,fmOpenWrite);
  }
  if(Hnd>0)
  {
    AnsiString Rez=IniComment+"\r\n";
    for(SectionsChain *TMP=DataStart; TMP != NULL; TMP = TMP->Next)
    {
      Rez += "["+TMP->Name+"]\r\n";
      for(ValueChain *VTMP=TMP->Start; VTMP != NULL; VTMP = VTMP->Next)
      {
        Rez += VTMP->Name + "=" + VTMP->Value + "\r\n";
      }
      Rez += "\r\n";
    }

    while(AnsiContainsText(Rez,"\n\n"))
    {
      Rez = AnsiReplaceText(Rez,"\n\n","\n");
    }

    while(AnsiContainsText(Rez,"\r\r"))
    {
      Rez = AnsiReplaceText(Rez,"\r\r","\r");
    }

    while(AnsiContainsText(Rez,"\r\n\r\n"))
    {
      Rez = AnsiReplaceText(Rez,"\r\n\r\n","\r\n");
    }

    
    FileWrite(Hnd,&Rez[1],Rez.Length());
    FileClose(Hnd);
  }
}
//ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖопа

//По секциям
bool CConfigFile::SectionExists(AnsiString SName)
{
//Проверяем существование секции (раздела)

  SectionsChain *Sect;
  bool found = false;
  for(Sect = DataStart; (Sect != NULL) && (!found); Sect = Sect->Next)
  {
    if(Sect->Name.LowerCase() == SName.LowerCase() )
    {
      found = true;
    }
  }
  return found;
}
//ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖопа
void CConfigFile::AddSection(AnsiString Name)
{
//Добавляем запись о новой секции в список
  SectionsChain *NewSect = new SectionsChain(), *Temp; //Создаём новую секцию
  NewSect->Name = Name;
  NewSect->Start = NULL;
  NewSect->Next = NULL;
  //Теперь узнаём, куда эту секцию лепить
  if(DataStart == NULL)
  {
    DataStart = NewSect;  //Начало пустое - просто пихаем туда новую секцию
  }
  else
  {
    for(Temp = DataStart;Temp->Next != NULL; Temp = Temp->Next); //Перебираем все
    Temp->Next = NewSect;                                        //Дошли до конца и пихаем туда.
  }
}
//ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖопа
void CConfigFile::DelSection(AnsiString Name)
{
//Удаляем секцию, а так же всю её информацию...
  SectionsChain *Old=NULL, *New;//Сохраним ссылку на предыдущую и новую секции, чтобы соединить цепь на месте вырванного звена

  New = DataStart;
  while(New != NULL)
  {
    if(New->Name.LowerCase() == Name.LowerCase())
    {
      if(Old != NULL)
        Old->Next = New->Next;
      else
        DataStart = New->Next;

      RemoveValues(New->Start);
      delete New;

      New = NULL;
    }
    else
    {
      Old = New;//Мля, ппц... как оно вылетало, пока не было условия... %)
      New = New->Next;
    }
  }
}
//ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖопа

void CConfigFile::RemoveValues(ValueChain *Start)
{
//Нужно удалить все значения, которые были у раздела, при его удалении.
  //Start - начальный элемент списка, после которого удаляются все, включая его.
  ValueChain *VNext;
  for(; Start != NULL;  Start = VNext)
  {
    VNext = Start->Next;
    delete Start;
  }
}
//ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖопа

void CConfigFile::RemoveAllSect()
{
//Нужно очистить объект от данных
  //DataStart - первая секция. Может не существовать.
  SectionsChain *SNext;
  for(; DataStart != NULL; DataStart = SNext)
  {
    SNext = DataStart->Next;
    DelSection(DataStart->Name);
  }
}
//ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖопа

void CConfigFile::RenameSection(AnsiString Name, AnsiString NewName)
{
//Меняем имя раздела. Всё просто.
  bool found_s=false;
  for(SectionsChain *Sect = DataStart; (!found_s)&&(Sect != NULL); Sect = Sect->Next)
  {
    if(Sect->Name.LowerCase() == Name.LowerCase())
    {
      found_s =true;
      Sect->Name = NewName;
    }
  }
}
//ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖопа

//По значениям
bool CConfigFile::ValueExists(AnsiString Section, AnsiString ValueName)
{
//Проверяем, существует ли значение с заданным именем
  bool found = false;
  bool ExitLoopS = false, ExitLoopV = false;
  if(SectionExists(Section))
  {
    ValueChain *Val;
    SectionsChain *Sect;
    for(Sect = DataStart; (Sect != NULL)&&(!ExitLoopS); Sect = Sect->Next)   //Перебираем секции... тупо...
    {
      if(Sect->Name.LowerCase() == Section.LowerCase())
      {
        for(Val = Sect->Start; (Val != NULL)&&(!ExitLoopV); Val = Val->Next) //Перебираем параметры... но можно себе позволить %)
        {
          if(Val->Name.LowerCase() == ValueName.LowerCase())
          {
            found = true;
            ExitLoopV = true;
          }
        }
        ExitLoopS = true;
      }
    }
  }
  return found;
}
//ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖопа

void CConfigFile::AddValue(AnsiString Section, AnsiString ValueName, AnsiString Value)
{
//Добавляет параметр в секцию. Весьма удобно...
  if(SectionExists(Section))
  {
    ValueChain *Val, *Pre = NULL;                            //Переменные для выбора последнего параметра
    SectionsChain *Sect;
    bool ExitLoop = false;
    for(Sect = DataStart; (Sect != NULL) && (!ExitLoop); Sect = Sect->Next)   //Перебираем секции... тупо...
    {
      if(Sect->Name.LowerCase() == Section.LowerCase())     //Совпало имя - заходим...
      {
        for(Val = Sect->Start; Val != NULL; Val = Val->Next) //Перебираем все параметры до конца
        {
          Pre = Val;
        }
        Val = new ValueChain();                              //Создать новый элемент списка
        Val->Name = ValueName;
        Val->Value = Value;
        Val->Next = NULL;

        if(Pre==NULL)                                        //Либо в начало его
        {
          Sect->Start = Val;
        }
        else                                                 //Либо примазать толком :)
        {
          Pre->Next = Val;
        }
        ExitLoop = true;                                     //Стоп, цикл!
      }
    }
  }
}
//ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖопа

void CConfigFile::DelValue(AnsiString Section, AnsiString ValueName)
{
//Удаляет из секции первое вхождение параметра, хотя предполагается что их не будет >1
  bool found_s=false, found_v = false;
  for(SectionsChain *S = DataStart; (S != NULL)&&(!found_s); S = S->Next) //Перебираем секции
  {
    if(S->Name.LowerCase() == Section.LowerCase()) //Нашли нужную секцию
    {
      found_s = true; //Пометим секцию найденной
      if(S->Start->Name.LowerCase() == ValueName.LowerCase()) //Если нужный элемент - первый
      {
        found_v = true;
        ValueChain *Tmp = S->Start->Next;
        S->Start->Next = NULL;
        delete S->Start;
        S->Start = Tmp;
      }
      else
      {
        ValueChain *Pre=NULL;
        for(ValueChain *V = S->Start->Next; (V != NULL) && (!found_v); V = V->Next) //Перебираем все значения
        {
          if(V->Name.LowerCase() == ValueName.LowerCase()) //Если найден нужный параметр
          {
            found_v = true; //Нашли параметр
            if(Pre != NULL)
            {
              Pre->Next = V->Next;
            }
            else
            {
              S->Start->Next = V->Next;
            }
            V->Next = NULL;
            delete V;
          }
          else
          {
            Pre = V;
          }
        }
      }
    }
  }
}
//ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖопа

void CConfigFile::RenameValue(AnsiString Section, AnsiString OldName, AnsiString NewName)
{
//Переименовывает параметр
  if(ValueExists(Section,OldName))
  {
    bool found_s = false, found_v = false; //Нашли ли мы секцию и параметр
    for(SectionsChain *S = DataStart; (!found_s)&&(S != NULL); S = S->Next)// Perebor po sektsijam
    {
      if(S->Name.LowerCase() == Section.LowerCase()) //Ura! Nashli!
      {
        found_s = true;
        for(ValueChain *V = S->Start; (!found_v)&&(V != NULL); V = V->Next)// Perebor po parametram
        {
          if(V->Name.LowerCase() == OldName.LowerCase())
          {
            found_v = true;
            V->Name = NewName;
          }
        }
      }
    }
  }
}
//ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖопа

void CConfigFile::SetValue(AnsiString Section, AnsiString ValueName, AnsiString NewVal)
{
//Задаёт значение параметра
  if(ValueExists(Section,ValueName))
  {
    ValueChain *Val, *ToSet=NULL;                                            //Переменные для выбора последнего параметра
    SectionsChain *Sect;
    bool ExitLoopS = false, ExitLoopV = false;
    for(Sect = DataStart; (Sect != NULL)&&(!ExitLoopS); Sect = Sect->Next)   //Перебираем секции... тупо...
    {
      if(Sect->Name.LowerCase() == Section.LowerCase())                     //Совпало имя - заходим...
      {
        for(Val = Sect->Start; (Val != NULL)&&(!ExitLoopV); Val = Val->Next) //Перебираем все параметры до нужного
        {
          if(Val->Name.LowerCase() == ValueName.LowerCase())                //Нашли нужное
          {
            ToSet = Val;
            ExitLoopV = true;
          }
        }

        if(ToSet != NULL)ToSet->Value = NewVal;                              //Собстно, задаём

        ExitLoopS = true;                                                     //Стоп, цикл!
      }
    }
  }
  else
  {
    if(!SectionExists(Section))
      AddSection(Section);
    AddValue(Section,ValueName,NewVal);
  }
}
//ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖопа

AnsiString CConfigFile::GetValue(AnsiString Section, AnsiString ValueName)
{
//Возвращает значение параметра. При ошибке возвращает пустую строку.

  AnsiString Rez = "";
  if(ValueExists(Section,ValueName))
  {
    ValueChain *Val, *ToGet=NULL;                            //Переменные для выбора последнего параметра
    SectionsChain *Sect = DataStart;
    while(Sect != NULL)                                      //Перебираем секции... тупо...
    {
      if(Sect->Name.LowerCase() == Section.LowerCase())     //Совпало имя - заходим...
      {
        Val = Sect->Start;
        while(Val != NULL)                                   //Перебираем все параметры до нужного
        {
          if(Val->Name.LowerCase() == ValueName.LowerCase())//Нашли нужное
          {
            ToGet = Val;
            Val = NULL;
          }
          else
          {
            Val = Val->Next;
          }
        }

        if(ToGet != NULL)Rez = ToGet->Value;                 //Собстно, берём возвращаемое значение

        Sect = NULL;                                         //Стоп, цикл!
      }
      else
      {
        Sect = Sect->Next;
      }
    }
  }
  return Rez;
}
//ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖопа

void CConfigFile::Debug()
{
//Test!!!

}
//ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖопа

AnsiString CConfigFile::GetValueEx(AnsiString Section, AnsiString ValueName, AnsiString Default)
{
  AnsiString Rez=Default;
  if(ValueExists(Section,ValueName))
    Rez = GetValue(Section,ValueName);
  return Rez;
}
//ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖопа