source: dev/trunk/ab5.0/abdev/BasicCompiler_Common/src/ObjectModule.cpp@ 525

#pragma warning(disable : 4996)

#include <map>
#include <string>
#include <vector>
#include <fstream>
#include <iostream>
#include <iomanip>
#include <ios>
#include <streambuf>
#include <sstream>

#include <windows.h>
#include <stdio.h>
#include <string.h>
#include <math.h>
#include <commctrl.h>
#include <time.h>
#include <limits.h>
#include <shlobj.h>
#include <process.h>
#include <fcntl.h>
#include <io.h>
#include <shlwapi.h>
#include <tchar.h>
#include <stdarg.h>

//boost libraries
#include <boost/foreach.hpp>


// ObjectModuleの内容をXmlで生成する場合はこの行を有効にする
//#define OBJECT_MODULE_IS_NOT_BINARY


#ifdef OBJECT_MODULE_IS_NOT_BINARY
#include <boost/archive/xml_oarchive.hpp>
#include <boost/archive/xml_iarchive.hpp>
#else
#include <boost/archive/binary_oarchive.hpp>
#include <boost/archive/binary_iarchive.hpp>
#endif
#include <boost/serialization/string.hpp>
#include <boost/serialization/access.hpp>
#include <boost/serialization/level.hpp>
#include <boost/serialization/vector.hpp>
#include <boost/serialization/map.hpp>
#include <boost/serialization/version.hpp>
#include <boost/serialization/is_abstract.hpp>
#include <boost/serialization/serialization.hpp>
#include <boost/serialization/nvp.hpp>
#include <boost/serialization/export.hpp>

#include <jenga/include/jenga.h>

#include "../common.h"
#include "../BasicFixed.h"

#include <abdev/ab_common/include/ab_common.h>

using namespace ActiveBasic::Common::Lexical;

#include <option.h>
#include <logger.h>
#include <Configuration.h>
#include <Binary.h>
#include <NativeCode.h>
#include <Source.h>
#include <Type.h>
#include <Method.h>
#include <Interface.h>
#include <Member.h>
#include <Class.h>
#include <Parameter.h>
#include <Variable.h>
#include <Procedure.h>
#include <Program.h>
#include <TypeDef.h>
#include <Const.h>
#include <Delegate.h>
#include <Enum.h>
#include <DataTable.h>
#include <Exception.h>
#include <Meta.h>

#include <CodeGenerator.h>
#include <Messenger.h>
#include <ObjectModule.h>
#include <Linker.h>
#include <Compiler.h>
#include <Debugger.h>
#include <Program.h>
#include <LexicalAnalyzer.h>



void ObjectModule::StaticLink( ObjectModule &objectModule )
{
    long dataSectionBaseOffset = dataTable.GetSize();
    int sourceIndexBase = (int)sources.size();

    // メタ情報を結合
    meta.StaticLink( objectModule.meta, dataSectionBaseOffset, sourceIndexBase );

    // グローバル ネイティブコードを結合
    objectModule.globalNativeCode.ResetDataSectionBaseOffset( dataSectionBaseOffset );
    objectModule.globalNativeCode.ResetSourceIndexes( sourceIndexBase );
    globalNativeCode.PutEx( objectModule.globalNativeCode );

    // データテーブルを結合
    objectModule.dataTable.ResetDataSectionBaseOffset( dataSectionBaseOffset );
    dataTable.Add( objectModule.dataTable );

    // ソースコードを結合
    BOOST_FOREACH( const BasicSource &source, objectModule.sources )
    {
        this->sources.push_back( source );
    }

    // TODO: basbufがいらなくなったら消す
    extern char *basbuf;
    basbuf = this->sources[0].GetBuffer();
}

bool ObjectModule::Read( const std::string &filePath )
{
    // XMLとして読み込む
    bool isSuccessful = false;

    try{
#ifdef OBJECT_MODULE_IS_NOT_BINARY
        std::ifstream ifs( filePath.c_str() );
        boost::archive::xml_iarchive ia(ifs);
#else
        std::ifstream ifs( filePath.c_str(), std::ios::in | std::ios::binary );
        boost::archive::binary_iarchive ia(ifs);
#endif

        // ファイルから読込
        ia >> boost::serialization::make_nvp( RootTagName(), *this );

        isSuccessful = true;
    }
    catch( boost::archive::archive_exception e )
    {
        MessageBox( NULL, e.what(), "XMLシリアライズの例外", MB_OK );
    }
    catch(...){
        MessageBox( NULL, "archive_exception以外の不明な例外", "XMLシリアライズの例外", MB_OK );
    }

    if( !isSuccessful )
    {
        return false;
    }

    return true;
}
bool ObjectModule::Write( const std::string &filePath ) const
{
    bool isSuccessful = false;

    try{
#ifdef OBJECT_MODULE_IS_NOT_BINARY
        std::ofstream ofs( filePath.c_str() );
        boost::archive::xml_oarchive oa(ofs);
#else
        std::ofstream ofs( filePath.c_str(), std::ios::out | std::ios::binary );
        boost::archive::binary_oarchive oa(ofs);
#endif

        // ファイルに書き出し
        oa << boost::serialization::make_nvp( RootTagName(), *this );

        isSuccessful = true;
    }
    catch( boost::archive::archive_exception e )
    {
        MessageBox( NULL, e.what(), "XMLシリアライズの例外", MB_OK );
    }
    catch(...){
        MessageBox( NULL, "archive_exception以外の不明な例外", "XMLシリアライズの例外", MB_OK );
    }

    if( !isSuccessful )
    {
        return false;
    }

    return true;
}
bool ObjectModule::ReadString( const std::string &str )
{
    bool isSuccessful = false;

    // 入力アーカイブの作成

    try{
#ifdef OBJECT_MODULE_IS_NOT_BINARY
        std::istringstream iss( str );
        boost::archive::xml_iarchive ia(iss);
#else
        std::istringstream iss( str, std::ios::in | std::ios::binary );
        boost::archive::binary_iarchive ia(iss);
#endif

        // 文字列ストリームから読込
        ia >> boost::serialization::make_nvp( RootTagName(), *this );

        isSuccessful = true;
    }
    catch( boost::archive::archive_exception e )
    {
        MessageBox( NULL, e.what(), "XMLシリアライズの例外", MB_OK );
    }
    catch(...){
        MessageBox( NULL, "archive_exception以外の不明な例外", "XMLシリアライズの例外", MB_OK );
    }

    if( !isSuccessful )
    {
        return false;
    }

    return true;
}
bool ObjectModule::WriteString( std::string &str ) const
{
    // 出力アーカイブの作成

    bool isSuccessful = false;
    try{
#ifdef OBJECT_MODULE_IS_NOT_BINARY
        std::ostringstream oss;
        boost::archive::xml_oarchive oa(oss);
#else
        std::ostringstream oss( "", std::ios::out | std::ios::binary );
        boost::archive::binary_oarchive oa(oss);
#endif

        // 文字列ストリームに書き出し
        oa << boost::serialization::make_nvp( RootTagName(), *this );

        str = oss.str();

        isSuccessful = true;
    }
    catch( boost::archive::archive_exception e )
    {
        MessageBox( NULL, e.what(), "XMLシリアライズの例外", MB_OK );
    }
    catch(...){
        MessageBox( NULL, "archive_exception以外の不明な例外", "XMLシリアライズの例外", MB_OK );
    }

    return isSuccessful;
}