view/CopalPro/KDefConfig.cpp

//---------------------------------------------------------------------------
// 言語別定義ファイル情報を管理するクラス
//---------------------------------------------------------------------------
#include <vcl.h>
#include <vcl\inifiles.hpp>

#pragma hdrstop

#pragma package(smart_init)
#include "KDefConfig.h"

//---------------------------------------------------------------------------
/**
 * コンストラクタ
 * ファイル名を受け取ってロードする
 */
KDefConfig::KDefConfig(AnsiString _FileName) {
  FileName = _FileName;
  LoadFromFile();
}
//---------------------------------------------------------------------------
/**
 * コンストラクタ
 * 言語名とパスを受け取って自分を作成する
 */
KDefConfig::KDefConfig(AnsiString _FileName,AnsiString _LangName, AnsiString _ExePath) {
  FileName = _FileName;
  LangName = _LangName;
  ExePath = _ExePath;

  LangExt = "";
  UseHelpFile = false;
  RegExpLang = "";//言語を判定する正規表現

  Option = "";//オプション
  LastFolder = "c:\\";//最後にアクセスしたフォルダ
  HelpFile = "";//ヘルプファイル
  TempFile = "Copal.tmp";//テンポラリファイルの名前

  RegExpErr = ""; //エラー行取得用の正規表現
  ShowError = false; //エラーコードを表示するか
  CheckErrorCode = true;
  UseTagJumpToOtherFile = false;

  SaveToFile();
}
//---------------------------------------------------------------------------
/**
 * ファイルのロード
 * ファイルが無ければ勝手に作成する
 */
void KDefConfig::LoadFromFile(void) {
  TIniFile *IniFile = new TIniFile(FileName);

  LangName   = IniFile->ReadString("Language","Name","Perl");
  LangExt    = IniFile->ReadString("Language","Ext","pl");
  RegExpLang = IniFile->ReadString("Language","RegExpLang","(^#!.*//perl.*)");

  ExePath    = IniFile->ReadString("Environment","ExePath","c:\\perl\\bin\\perl.exe");
  Option     = IniFile->ReadString("Environment","Option" , "");
  LastFolder = IniFile->ReadString("Environment","LastFolder","c:\\");

  UseHelpFile = IniFile->ReadBool("Environment","UseHelpFile",false);
  HelpFile    = IniFile->ReadString("Environment","HelpFile","");
  TempFile    = IniFile->ReadString("Environment","TempFile","copal.tmp");
  TempDir    = IniFile->ReadString("Environment","TempDir","");

  RegExpErr = IniFile->ReadString("Debug","RegExpErr","line [0-9]+.?");
  ShowError = IniFile->ReadBool("Debug","ShowError",false);
  CheckErrorCode = IniFile->ReadBool("Debug","CheckErrorCode",true);

  UseTagJumpToOtherFile = IniFile->ReadBool("Debug","UseTagJumpToOtherFile",false);
  RegExpLine = IniFile->ReadString("Debug","RegExpLine","");
  RegExpFile = IniFile->ReadString("Debug","RegExpFile","");


  delete IniFile;
}
//---------------------------------------------------------------------------
/**
 * ファイルのセーブ
 */
void KDefConfig::SaveToFile(void) {

  TIniFile *IniFile = new TIniFile(FileName);

  IniFile->WriteString("Language","Name",LangName);
  IniFile->WriteString("Language","Ext",LangExt);
  IniFile->WriteString("Language","RegExpLang",RegExpLang);

  IniFile->WriteString("Environment","ExePath",ExePath);
  IniFile->WriteString("Environment","Option" ,Option);
  IniFile->WriteString("Environment","LastFolder",LastFolder);

  IniFile->WriteBool("Environment","UseHelpFile",UseHelpFile);
  IniFile->WriteString("Environment","HelpFile",HelpFile);
  IniFile->WriteString("Environment","TempFile",TempFile);
  IniFile->WriteString("Environment","TempDir",TempDir);

  IniFile->WriteString("Debug","RegExpErr",RegExpErr);
  IniFile->WriteBool("Debug","ShowError",ShowError);
  IniFile->WriteBool("Debug","CheckErrorCode",CheckErrorCode);

  IniFile->WriteBool("Debug","UseTagJumpToOtherFile",UseTagJumpToOtherFile);
  IniFile->WriteString("Debug","RegExpLine",RegExpLine);
  IniFile->WriteString("Debug","RegExpFile",RegExpFile);

  delete IniFile;
}
//---------------------------------------------------------------------------
AnsiString
KDefConfig::GetDefaultExt(void) {
  if(LangExt.Trim() == "") {
    return "";
  }
  TStringList *st = new TStringList;
  st->CommaText = LangExt;
  AnsiString Ext = st->Strings[0];
  delete st;
  return Ext;
}
//---------------------------------------------------------------------------
/**
 * その拡張子を含むか
 */
bool
KDefConfig::Contains(AnsiString Ext){
  TStringList *st = new TStringList;
  st->CommaText = LangExt;
  for(int i=0;i<st->Count;i++){
    AnsiString Ext2 = "."+st->Strings[i];
    if(Ext2.LowerCase() == Ext.LowerCase()) {
      delete st;
      return true;
    }
  }
  delete st;
  return false;
}
//---------------------------------------------------------------------------
