view/CopalPro/KRegexp.cpp

//---------------------------------------------------------------------------
// BRegexp.dllのラッパークラス
//---------------------------------------------------------------------------

#pragma hdrstop
#include "KRegexp.h"

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

//---------------------------------------------------------------------------
// Staticメンバの宣言
//---------------------------------------------------------------------------

TDll *KRegexp::hBRegexp = NULL;
BREGEXPVERSION KRegexp::GetVersion = NULL;
BREGFREE KRegexp::BRegFree = NULL;
BMATCH KRegexp::BMatch = NULL;

//AnsiString KRegexp::Pattern[MAX_PATTERN];
AnsiString *KRegexp::Pattern = NULL;

//---------------------------------------------------------------------------
/**
 * bregexp.dll の 初期化
 * 最初に呼ぶ
 */
void
KRegexp::Init(void) {
  hBRegexp = new TDll("bregexp.dll");
  if(hBRegexp == NULL) {
    ShowMessage("Failed to load BREGEXP.DLL");
    return;
  }

  GetVersion = (BREGEXPVERSION)hBRegexp->GetProcAddress("BRegexpVersion");
  if(GetVersion == NULL) {
    ShowMessage("Failed to load BREGEXP.DLL");
    Free();
    return;
  }
  BMatch = (BMATCH)hBRegexp->GetProcAddress("BMatch");
  if(BMatch == NULL) {
    ShowMessage("Failed to load proc.");
    Free();
    return;
  }

  BRegFree = (BREGFREE)hBRegexp->GetProcAddress("BRegfree");
  if(BRegFree == NULL) {
    ShowMessage("Fail to load proc.");
    Free();
    return;
  }

  Pattern = new AnsiString[MAX_PATTERN];
}
//---------------------------------------------------------------------------
void
KRegexp::Free(void) {
  if(hBRegexp) {
    delete hBRegexp;
  }
  hBRegexp = NULL;
  if(Pattern) {
    delete Pattern;
  }
  Pattern = NULL;
}
//---------------------------------------------------------------------------
/**
 * BMatchのフロントエンド
 * マッチした文字列を知りたい場合に呼ぶ
 * 返り値：マッチしたら真　マッチしなければ偽
 */
//---------------------------------------------------------------------------
bool
KRegexp::GetMatchStr(AnsiString asTarget, AnsiString asRegexp) {

  if(BMatch==NULL)
    return false;

  for(int i=0;i<MAX_PATTERN;i++) {
    Pattern[i] = "";
  }

  char msg[256];
  BREGEXP *rxp = NULL;
  asRegexp = "m/"+ asRegexp + "/k";
  char *szTarget = asTarget.c_str();
  int matched = BMatch(asRegexp.c_str(),szTarget, szTarget+strlen(szTarget),&rxp,msg);
  if(matched) {
    for(int i=0;(i<rxp->nparens+1 && i <MAX_PATTERN);i++) {
      char str[256];
      *(rxp->endp[i]) = NULL;
      strcpy(str,rxp->startp[i]);
      Pattern[i] = str;
    }
  }
  if(rxp!=NULL)
    BRegFree(rxp);
  return matched;
}
//---------------------------------------------------------------------------
