1 | #pragma warning(disable : 4996)
|
---|
2 |
|
---|
3 | #include <map>
|
---|
4 | #include <string>
|
---|
5 | #include <vector>
|
---|
6 | #include <fstream>
|
---|
7 | #include <iostream>
|
---|
8 | #include <iomanip>
|
---|
9 | #include <ios>
|
---|
10 | #include <streambuf>
|
---|
11 | #include <sstream>
|
---|
12 |
|
---|
13 | #include <windows.h>
|
---|
14 | #include <stdio.h>
|
---|
15 | #include <string.h>
|
---|
16 | #include <math.h>
|
---|
17 | #include <commctrl.h>
|
---|
18 | #include <time.h>
|
---|
19 | #include <limits.h>
|
---|
20 | #include <shlobj.h>
|
---|
21 | #include <process.h>
|
---|
22 | #include <fcntl.h>
|
---|
23 | #include <io.h>
|
---|
24 | #include <shlwapi.h>
|
---|
25 | #include <tchar.h>
|
---|
26 | #include <stdarg.h>
|
---|
27 |
|
---|
28 | //boost libraries
|
---|
29 | #include <boost/foreach.hpp>
|
---|
30 |
|
---|
31 |
|
---|
32 | // ObjectModuleの内容をXmlで生成する場合はこの行を有効にする
|
---|
33 | //#define OBJECT_MODULE_IS_NOT_BINARY
|
---|
34 |
|
---|
35 |
|
---|
36 | #ifdef OBJECT_MODULE_IS_NOT_BINARY
|
---|
37 | #include <boost/archive/xml_oarchive.hpp>
|
---|
38 | #include <boost/archive/xml_iarchive.hpp>
|
---|
39 | #else
|
---|
40 | #include <boost/archive/binary_oarchive.hpp>
|
---|
41 | #include <boost/archive/binary_iarchive.hpp>
|
---|
42 | #endif
|
---|
43 | #include <boost/serialization/string.hpp>
|
---|
44 | #include <boost/serialization/access.hpp>
|
---|
45 | #include <boost/serialization/level.hpp>
|
---|
46 | #include <boost/serialization/vector.hpp>
|
---|
47 | #include <boost/serialization/map.hpp>
|
---|
48 | #include <boost/serialization/version.hpp>
|
---|
49 | #include <boost/serialization/is_abstract.hpp>
|
---|
50 | #include <boost/serialization/serialization.hpp>
|
---|
51 | #include <boost/serialization/nvp.hpp>
|
---|
52 | #include <boost/serialization/export.hpp>
|
---|
53 |
|
---|
54 | #include <jenga/include/jenga.h>
|
---|
55 |
|
---|
56 | #include "../common.h"
|
---|
57 | #include "../BasicFixed.h"
|
---|
58 |
|
---|
59 | #include <option.h>
|
---|
60 |
|
---|
61 | #include <abdev/ab_common/include/ab_common.h>
|
---|
62 |
|
---|
63 | using namespace ActiveBasic::Common::Lexical;
|
---|
64 |
|
---|
65 | #include <NativeCode.h>
|
---|
66 | #include <Source.h>
|
---|
67 | #include <Type.h>
|
---|
68 | #include <Method.h>
|
---|
69 | #include <Interface.h>
|
---|
70 | #include <Member.h>
|
---|
71 | #include <Class.h>
|
---|
72 | #include <Parameter.h>
|
---|
73 | #include <Variable.h>
|
---|
74 | #include <Procedure.h>
|
---|
75 | #include <TypeDef.h>
|
---|
76 | #include <Const.h>
|
---|
77 | #include <Delegate.h>
|
---|
78 | #include <Enum.h>
|
---|
79 | #include <Exception.h>
|
---|
80 | #include <Meta.h>
|
---|
81 | #include <DataTable.h>
|
---|
82 | #include <ObjectModule.h>
|
---|
83 |
|
---|
84 | #include <logger.h>
|
---|
85 | #include <Configuration.h>
|
---|
86 | #include <CodeGenerator.h>
|
---|
87 | #include <Messenger.h>
|
---|
88 | #include <Linker.h>
|
---|
89 | #include <Compiler.h>
|
---|
90 | #include <Debugger.h>
|
---|
91 | #include <Program.h>
|
---|
92 | #include <LexicalAnalyzer.h>
|
---|
93 |
|
---|
94 |
|
---|
95 |
|
---|
96 | void ObjectModule::StaticLink( ObjectModule &objectModule )
|
---|
97 | {
|
---|
98 | long dataSectionBaseOffset = dataTable.GetSize();
|
---|
99 | int sourceIndexBase = (int)sources.size();
|
---|
100 |
|
---|
101 | // メタ情報を結合
|
---|
102 | meta.StaticLink( objectModule.meta, dataSectionBaseOffset, sourceIndexBase );
|
---|
103 |
|
---|
104 | // グローバル ネイティブコードを結合
|
---|
105 | objectModule.globalNativeCode.ResetDataSectionBaseOffset( dataSectionBaseOffset );
|
---|
106 | objectModule.globalNativeCode.ResetSourceIndexes( sourceIndexBase );
|
---|
107 | globalNativeCode.PutEx( objectModule.globalNativeCode );
|
---|
108 |
|
---|
109 | // データテーブルを結合
|
---|
110 | objectModule.dataTable.ResetDataSectionBaseOffset( dataSectionBaseOffset );
|
---|
111 | dataTable.Add( objectModule.dataTable );
|
---|
112 |
|
---|
113 | // ソースコードを結合
|
---|
114 | BOOST_FOREACH( const BasicSource &source, objectModule.sources )
|
---|
115 | {
|
---|
116 | this->sources.push_back( source );
|
---|
117 | }
|
---|
118 |
|
---|
119 | // TODO: basbufがいらなくなったら消す
|
---|
120 | extern char *basbuf;
|
---|
121 | basbuf = this->sources[0].GetBuffer();
|
---|
122 | }
|
---|
123 |
|
---|
124 | bool ObjectModule::Read( const std::string &filePath )
|
---|
125 | {
|
---|
126 | // XMLとして読み込む
|
---|
127 | bool isSuccessful = false;
|
---|
128 |
|
---|
129 | try{
|
---|
130 | #ifdef OBJECT_MODULE_IS_NOT_BINARY
|
---|
131 | std::ifstream ifs( filePath.c_str() );
|
---|
132 | boost::archive::xml_iarchive ia(ifs);
|
---|
133 | #else
|
---|
134 | std::ifstream ifs( filePath.c_str(), std::ios::in | std::ios::binary );
|
---|
135 | boost::archive::binary_iarchive ia(ifs);
|
---|
136 | #endif
|
---|
137 |
|
---|
138 | // ファイルから読込
|
---|
139 | ia >> boost::serialization::make_nvp( RootTagName(), *this );
|
---|
140 |
|
---|
141 | isSuccessful = true;
|
---|
142 | }
|
---|
143 | catch( boost::archive::archive_exception e )
|
---|
144 | {
|
---|
145 | MessageBox( NULL, e.what(), "XMLシリアライズの例外", MB_OK );
|
---|
146 | }
|
---|
147 | catch(...){
|
---|
148 | MessageBox( NULL, "archive_exception以外の不明な例外", "XMLシリアライズの例外", MB_OK );
|
---|
149 | }
|
---|
150 |
|
---|
151 | if( !isSuccessful )
|
---|
152 | {
|
---|
153 | return false;
|
---|
154 | }
|
---|
155 |
|
---|
156 | return true;
|
---|
157 | }
|
---|
158 | bool ObjectModule::Write( const std::string &filePath ) const
|
---|
159 | {
|
---|
160 | bool isSuccessful = false;
|
---|
161 |
|
---|
162 | try{
|
---|
163 | #ifdef OBJECT_MODULE_IS_NOT_BINARY
|
---|
164 | std::ofstream ofs( filePath.c_str() );
|
---|
165 | boost::archive::xml_oarchive oa(ofs);
|
---|
166 | #else
|
---|
167 | std::ofstream ofs( filePath.c_str(), std::ios::out | std::ios::binary );
|
---|
168 | boost::archive::binary_oarchive oa(ofs);
|
---|
169 | #endif
|
---|
170 |
|
---|
171 | // ファイルに書き出し
|
---|
172 | oa << boost::serialization::make_nvp( RootTagName(), *this );
|
---|
173 |
|
---|
174 | isSuccessful = true;
|
---|
175 | }
|
---|
176 | catch( boost::archive::archive_exception e )
|
---|
177 | {
|
---|
178 | MessageBox( NULL, e.what(), "XMLシリアライズの例外", MB_OK );
|
---|
179 | }
|
---|
180 | catch(...){
|
---|
181 | MessageBox( NULL, "archive_exception以外の不明な例外", "XMLシリアライズの例外", MB_OK );
|
---|
182 | }
|
---|
183 |
|
---|
184 | if( !isSuccessful )
|
---|
185 | {
|
---|
186 | return false;
|
---|
187 | }
|
---|
188 |
|
---|
189 | return true;
|
---|
190 | }
|
---|
191 | bool ObjectModule::ReadString( const std::string &str )
|
---|
192 | {
|
---|
193 | bool isSuccessful = false;
|
---|
194 |
|
---|
195 | // 入力アーカイブの作成
|
---|
196 |
|
---|
197 | try{
|
---|
198 | #ifdef OBJECT_MODULE_IS_NOT_BINARY
|
---|
199 | std::istringstream iss( str );
|
---|
200 | boost::archive::xml_iarchive ia(iss);
|
---|
201 | #else
|
---|
202 | std::istringstream iss( str, std::ios::in | std::ios::binary );
|
---|
203 | boost::archive::binary_iarchive ia(iss);
|
---|
204 | #endif
|
---|
205 |
|
---|
206 | // 文字列ストリームから読込
|
---|
207 | ia >> boost::serialization::make_nvp( RootTagName(), *this );
|
---|
208 |
|
---|
209 | isSuccessful = true;
|
---|
210 | }
|
---|
211 | catch( boost::archive::archive_exception e )
|
---|
212 | {
|
---|
213 | MessageBox( NULL, e.what(), "XMLシリアライズの例外", MB_OK );
|
---|
214 | }
|
---|
215 | catch(...){
|
---|
216 | MessageBox( NULL, "archive_exception以外の不明な例外", "XMLシリアライズの例外", MB_OK );
|
---|
217 | }
|
---|
218 |
|
---|
219 | if( !isSuccessful )
|
---|
220 | {
|
---|
221 | return false;
|
---|
222 | }
|
---|
223 |
|
---|
224 | return true;
|
---|
225 | }
|
---|
226 | bool ObjectModule::WriteString( std::string &str ) const
|
---|
227 | {
|
---|
228 | // 出力アーカイブの作成
|
---|
229 |
|
---|
230 | bool isSuccessful = false;
|
---|
231 | try{
|
---|
232 | #ifdef OBJECT_MODULE_IS_NOT_BINARY
|
---|
233 | std::ostringstream oss;
|
---|
234 | boost::archive::xml_oarchive oa(oss);
|
---|
235 | #else
|
---|
236 | std::ostringstream oss( "", std::ios::out | std::ios::binary );
|
---|
237 | boost::archive::binary_oarchive oa(oss);
|
---|
238 | #endif
|
---|
239 |
|
---|
240 | // 文字列ストリームに書き出し
|
---|
241 | oa << boost::serialization::make_nvp( RootTagName(), *this );
|
---|
242 |
|
---|
243 | str = oss.str();
|
---|
244 |
|
---|
245 | isSuccessful = true;
|
---|
246 | }
|
---|
247 | catch( boost::archive::archive_exception e )
|
---|
248 | {
|
---|
249 | MessageBox( NULL, e.what(), "XMLシリアライズの例外", MB_OK );
|
---|
250 | }
|
---|
251 | catch(...){
|
---|
252 | MessageBox( NULL, "archive_exception以外の不明な例外", "XMLシリアライズの例外", MB_OK );
|
---|
253 | }
|
---|
254 |
|
---|
255 | return isSuccessful;
|
---|
256 | }
|
---|