Ignore:
Timestamp:
Apr 6, 2008, 8:07:40 PM (17 years ago)
Author:
dai_9181
Message:

構成管理を大幅に改良。

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ab5.0/abdev/BasicCompiler_Common/BasicCompiler.cpp

    r472 r477  
    9393void ts(const char *msg,const char *title){
    9494    MessageBox(0,FormatEscapeSequenceStringToDefaultString(msg).c_str(),title,0);
     95}
     96void ts(const std::string msg)
     97{
     98    ts(msg.c_str());
    9599}
    96100
     
    192196    }
    193197
    194     i3=(int)baseDirPath.size();i4=0;
     198    std::string tempBaseDirPath = baseDirPath;
     199    if( tempBaseDirPath[tempBaseDirPath.size()-1] != '\\' )
     200    {
     201        tempBaseDirPath += "\\";
     202    }
     203
     204    i3=(int)tempBaseDirPath.size();i4=0;
    195205    while(i4<i2){
    196206        for(i3--;;i3--){
    197             if(baseDirPath[i3-1]=='\\'){
     207            if(tempBaseDirPath[i3-1]=='\\'){
    198208                i4++;
    199209                break;
     
    201211        }
    202212    }
    203     memcpy(temporary,baseDirPath.c_str(),i3);
     213    memcpy(temporary,tempBaseDirPath.c_str(),i3);
    204214    temporary[i3]=0;
    205215    lstrcat(temporary,path+i);
     
    601611    pobj_nv->load();
    602612
     613    program.Configurate();
     614
    603615    if( !program.AnalysisCommandLines() )
    604616    {
     
    664676        if( program.GetIncludeDir().size() == 0 )
    665677        {
    666             program.SetIncludeDir( Jenga::Common::Path::MakeFullPath( ".\\Include\\", baseDirPath ) );
     678            program.SetIncludeDir( Jenga::Common::Path::MakeFullPath( ".\\Include", ActiveBasic::Common::Environment::GetAbdevRootPath() ) );
    667679        }
    668680        else
    669681        {
    670682            // インクルードディレクトリを絶対パスに変更
    671             program.SetIncludeDir( Jenga::Common::Path::MakeFullPath( program.GetIncludeDir(), baseDirPath ) );
     683            program.SetIncludeDir( Jenga::Common::Path::MakeFullPath( program.GetIncludeDir(), ActiveBasic::Common::Environment::GetAbdevRootPath() ) );
    672684        }
    673685
Note: See TracChangeset for help on using the changeset viewer.