source: dev/trunk/abdev/BasicCompiler_Common/error.cpp@ 366

Last change on this file since 366 was 366, checked in by dai_9181, 16 years ago

Tryスコープのコード補完機能のバグを修正(EndTryコード補間が過剰に行われていた)。
コンパイラのログ生成処理をきった。

File size: 25.2 KB
RevLine 
[206]1#include "stdafx.h"
2
[182]3#include <jenga/include/smoothie/LexicalAnalysis.h>
4
[167]5#include <Program.h>
[279]6#include <Compiler.h>
[165]7
[4]8#include "../BasicCompiler_Common/common.h"
9
[40]10BOOL GetErrorMsg(int num,const char *KeyWord,char *msg,int pos){
[4]11 extern HANDLE hHeap;
12 int i2;
13 char temporary[64];
14
[40]15 char tempKeyWord[1024];
[4]16 if(KeyWord){
[40]17 lstrcpy(tempKeyWord,KeyWord);
[4]18 for(i2=0;;i2++){
[40]19 if(tempKeyWord[i2]=='\0') break;
20 if(tempKeyWord[i2]==1){
21 GetDefaultNameFromES(tempKeyWord[i2+1],temporary);
22 SlideString(tempKeyWord+i2+2,lstrlen(temporary)-2);
23 memcpy(tempKeyWord+i2,temporary,lstrlen(temporary));
[4]24 }
25 }
26 }
[40]27 else{
28 lstrcpy(tempKeyWord,"");
29 }
[4]30
[40]31 if(num==-1||num==-2) lstrcpy(msg,tempKeyWord); //部分エラー
[4]32
33 if(num==3){
[40]34 temporary[0]=tempKeyWord[0];
[4]35 for(i2=1;;i2++){
[40]36 if((!IsVariableChar(tempKeyWord[i2]))||i2>=255){
[4]37 temporary[i2]=0;
38 break;
39 }
[40]40 temporary[i2]=tempKeyWord[i2];
[4]41 }
42
43 extern char **SynonymErrorWords;
44 extern int SynonymErrorNum;
45 for(i2=0;i2<SynonymErrorNum;i2++){
46 if(lstrcmp(SynonymErrorWords[i2],temporary)==0) return 0;
47 }
48
49#if defined(JPN)
50 //日本語
51 sprintf(msg,"\"%s\" 無効な識別子です",temporary);
52#else
53 //英語
54 sprintf(msg,"\"%s\" Invalid identifier.",temporary);
55#endif
56
57 //重複エラー情報を追加
58 SynonymErrorWords=(char **)HeapReAlloc(hHeap,0,SynonymErrorWords,(SynonymErrorNum+1)*sizeof(char *));
59 SynonymErrorWords[SynonymErrorNum]=(char *)HeapAlloc(hHeap,0,lstrlen(temporary)+1);
60 lstrcpy(SynonymErrorWords[SynonymErrorNum],temporary);
61 SynonymErrorNum++;
62 }
63 if(num==30){
64#if defined(JPN)
65 //日本語
[40]66 if(temporary[0]) sprintf(msg,"\"%s\" の使い方が不正です",tempKeyWord);
[4]67 else lstrcpy(msg,"文法が間違っています");
68#else
69 //英語
[40]70 if(temporary[0]) sprintf(msg,"How to use the \"%s\" is wrong.",tempKeyWord);
[4]71 else lstrcpy(msg,"Syntax Error.");
72#endif
73 }
74
75
76 /////////////////////
77 // ワーニングエラー
78 /////////////////////
79#if defined(JPN)
80 ////////////////////
81 //日本語
82 ////////////////////
[40]83 if(num==-101) sprintf(msg,"[警告] %sに強制変換されています。データが失われる可能性があります。",tempKeyWord);
84 if(num==-102) sprintf(msg,"[警告] %sに強制変換されています。",tempKeyWord);
85 if(num==-103) sprintf(msg,"[警告] \"%s\" 型が指定されていません。Double型として扱います。",tempKeyWord);
86 if(num==-104) sprintf(msg,"[警告] \"%s\" 戻り値の型が指定されていません。Double型として扱います。",tempKeyWord);
87 if(num==-105) sprintf(msg,"[警告] 一時オブジェクトの解放を行えません。キャスト用オブジェクトを用意してください。",tempKeyWord);
88 if(num==-106) sprintf(msg,"[警告] DLLファイル \"%s\" が見つかりません。",tempKeyWord);
89 if(num==-107) sprintf(msg,"[警告] DLL関数 \"%s\" を参照できません。",tempKeyWord);
[365]90 if(num==-108) lstrcpy(msg,"[警告] Catch節、Finally節を持たない意味のないTryスコープです。");
[110]91 if(num==-120) sprintf(msg,"[警告] VarPtr関数の引数にオブジェクト インスタンスが指定されました。オブジェクトの先頭アドレスを取得したいときはObjPtr関数に切り替えをお願いします。m(__)m(この警告はVarPtr→ObjPtrへの切り替えが完了したら消します(切り替えは \"適材箇所に限り\" ですので、ご注意ください!))",tempKeyWord);
[4]92#else
93#endif
94
95
96 ///////////////
97 // 一般エラー
98 ///////////////
99
100#if defined(JPN)
101 ////////////////////
102 //日本語
103 ////////////////////
[75]104 if(num==1) lstrcpy(msg,"文法が間違っています。");
105 if(num==2) sprintf(msg,"左のオペランドが、左辺値になっていません。");
[4]106 //num==3は予約されています
[75]107 if(num==4) sprintf(msg,"%sの相互関係が一致しません。",tempKeyWord);
108 if(num==5) sprintf(msg,"ダブルクォートの数が一致しません。");
109 if(num==6) sprintf(msg,"\"%s\" ジャンプ先が不正です。",tempKeyWord);
110 if(num==7) lstrcpy(msg,"DLL名が長すぎます(拡張子を含め、16文字以下にして下さい)。");
111 if(num==8) lstrcpy(msg,"コンパイラが認識できない文字コードが含まれています。");
112 if(num==9) sprintf(msg,"型が違います。");
113 if(num==10) sprintf(msg,"\"%s\" のパラメータ指定が間違っています。",tempKeyWord);
114 if(num==11) sprintf(msg,"\"%s\" 型が違います。",tempKeyWord);
[366]115 if(num==12) sprintf(msg,"%s の使い方が不正です。",tempKeyWord);
[75]116 if(num==13) sprintf(msg,"\"%s\" を参照できません。",tempKeyWord);
117 if(num==14) sprintf(msg,"\"%s\" 配列指定が不正です。",tempKeyWord);
118 if(num==15) sprintf(msg,"\"%s\" はすでに定義されています。",tempKeyWord);
119 if(num==16) sprintf(msg,"\"%s\" 配列、またはポインタ以外の変数に添え字が指定されています。",tempKeyWord);
120 if(num==17) sprintf(msg,"リソース データが不正です。");
121 if(num==18) sprintf(msg,"\"%s\"はポインタ変数型です。文字列演算を指定することはできません。",tempKeyWord);
122 if(num==19) sprintf(msg,"\"%s\"は値参照型です。ByVal指定することはできません。",tempKeyWord);
123 if(num==20) lstrcpy(msg,"全角スペースが含まれています(全角スペースはコンパイラが認識できないので、半角スペースまたはタブ文字にしてください)。");
124 if(num==21) sprintf(msg,"If制御のブロック指定が不正です。");
[366]125 if(num==22) sprintf(msg,"%s に対する End %s が見つかりません。",tempKeyWord,tempKeyWord);
[75]126 if(num==23) sprintf(msg,"リソース ファイル \"%s\" の読み込みに失敗。",tempKeyWord);
127 if(num==24) lstrcpy(msg,"Export指定の関数のパラメータには実体オブジェクトを利用することはできません(BytePtr型などを利用して下さい)。");
128 if(num==25) sprintf(msg,"DLL関数にオブジェクトを引き渡すことはできません(%s)。",tempKeyWord);
129 if(num==26) sprintf(msg,"\"%s\" 戻り値の型が指定されていません。",tempKeyWord);
130 if(num==27) sprintf(msg,"\"%s\" は定義されていません。",tempKeyWord);
131 if(num==28) sprintf(msg,"構造体パラメータは参照渡しにしてください(%s)。",tempKeyWord);
132 if(num==29) sprintf(msg,"配列ポインタを要素と同時に引渡すときは、ポインタ参照(ByRef)にしてください。");
[4]133 //num==30は予約されています
[75]134 if(num==31) sprintf(msg,"\"%s\" は構造体です(メンバの参照はピリオド \".\" で区切ってください)。",tempKeyWord);
135 if(num==32) sprintf(msg,"\"%s\" は構造体ポインタです(メンバの参照は \"->\" で区切ってください)。",tempKeyWord);
136 if(num==33) sprintf(msg,"定数式にリテラル値、または定数以外のものが含まれています。");
137 if(num==34) sprintf(msg,"定数はモジュールレベルで宣言して下さい。");
138 if(num==38) sprintf(msg,"\"%s\" 戻り値が存在しないプロシージャです。",tempKeyWord);
139 if(num==39) sprintf(msg,"\"%s\" はオブジェクトポインタではありません(\"->\" 参照はできません)。",tempKeyWord);
140 if(num==40) lstrcpy(msg,"DLL関数の戻り値としてオブジェクトを受け取ることはできません。");
141 if(num==41) lstrcpy(msg,"初期データが不正です。");
142 if(num==42) lstrcpy(msg,"閉じカッコ \")\" の後に不正な文字が含まれています。");
143 if(num==43) lstrcpy(msg,"ダブルクォートの後に不正な文字が含まれています。");
144 if(num==45) sprintf(msg,"実数に対して \"%s\" 演算子は利用できません。",tempKeyWord);
145 if(num==46) lstrcpy(msg,"配列の添え字に整数以外の値が与えられています。");
146 if(num==47) lstrcpy(msg,"As演算子の右辺値に型名以外の識別子が指定されています。");
147 if(num==48) sprintf(msg,"%s演算子に対して型名が指定されています。",tempKeyWord);
148 if(num==49) lstrcpy(msg,"添え字に整数以外の型が指定されています。");
149 if(num==50) sprintf(msg,"%sに変換できません。",tempKeyWord);
[353]150 if(num==51) lstrcpy(msg,"オブジェクト、構造体のアラインメント値は 1, 2, 4, 8, 16 のいずれかでなければなりません。");
[75]151 if(num==52) sprintf(msg,"\"%s\" オーバーロードを解決できません。",tempKeyWord);
152 if(num==53) sprintf(msg,"\"%s\" 出力ファイルの書き込みに失敗しました。実行されている可能性があります。",tempKeyWord);
[40]153 if(num==54) sprintf(msg,"対応する%sが存在しません。",tempKeyWord);
154 if(num==55) sprintf(msg,"\"%s\" は対応するForステートメントで利用されるカウンタ変数ではありません。",tempKeyWord);
[4]155 if(num==56) lstrcpy(msg,"ゼロ割りが行われました。");
156 if(num==57) lstrcpy(msg,"8進数のリテラル表記が不正です。");
157 if(num==58) lstrcpy(msg,"16進数のリテラル表記が不正です。");
[40]158 if(num==59) sprintf(msg,"マニフェスト ファイル \"%s\" の読み込みに失敗。",tempKeyWord);
[4]159 if(num==60) lstrcpy(msg,"Staticステートメントはグローバル領域では使用できません。");
[40]160 if(num==61) sprintf(msg,"\"%s\" は定数です。書き込みアクセスはできません。",tempKeyWord);
161 if(num==62) sprintf(msg,"グローバル領域でのReturnは禁止されています。",tempKeyWord);
[103]162 if(num==63) lstrcpy(msg,"名前空間が正しく閉じられていません。");
[107]163 if(num==64) sprintf(msg,"\"%s\" 無効な名前空間です。",tempKeyWord);
[113]164 if(num==65) sprintf(msg,"ローカル領域で%sは使用できません。",tempKeyWord);
[337]165 if(num==66) sprintf(msg,"%s 要求されている関数ポインタのパラメータまたは戻り値が一致しません。", tempKeyWord );
166 if(num==67) sprintf(msg,"%s 要求されているデリゲートのパラメータまたは戻り値が一致しません。", tempKeyWord );
[353]167 if(num==68) sprintf(msg,"\"%s\" 不正な関数名です。", tempKeyWord);
168 if(num==69) sprintf(msg,"\"%s\" 不正なメソッド名です。", tempKeyWord);
[359]169 if(num==70) lstrcpy(msg,"一つのTryに対して複数のFinallyを記述できません。");
170 if(num==71) lstrcpy(msg,"Finallyの後ろにCatchを記述することはできません。");
171 if(num==72) lstrcpy(msg,"Catchのパラメータの型が指定されていません。");
172 if(num==73) lstrcpy(msg,"Catchのパラメータの型はクラス型でなければなりません。");
[4]173
174
175 //オブジェクト関連
[75]176 if(num==102) sprintf(msg,"\"%s\" オブジェクトは定義されていません。",tempKeyWord);
177 if(num==103) sprintf(msg,"\"%s\" メンバは定義されていません。",tempKeyWord);
178 if(num==104) sprintf(msg,"\"%s\" 参照方法が違います。",tempKeyWord);
179 if(num==105) sprintf(msg,"\"%s\" 自身のクラスを継承することはできません。",tempKeyWord);
[318]180 if(num==106) sprintf(msg,"\"%s\" 存在しないクラスです。",tempKeyWord);
[75]181 if(num==107) sprintf(msg,"Privateメンバ \"%s\" にアクセスすることはできません。",tempKeyWord);
182 if(num==108) sprintf(msg,"Protectedメンバ \"%s\" にアクセスすることはできません。",tempKeyWord);
183 if(num==109) sprintf(msg,"Privateメンバ関数 \"%s\" を呼び出すことはできません。",tempKeyWord);
184 if(num==110) sprintf(msg,"Protectedメンバ関数 \"%s\" を呼び出すことはできません。",tempKeyWord);
185 if(num==111) lstrcpy(msg,"InheritsはClass定義内の先頭に記述する必要があります。");
186 if(num==112) sprintf(msg,"\"%s\" はクラス型ではないため、初期パラメータを指定することはできません。",tempKeyWord);
187 if(num==113) sprintf(msg,"\"%s\" コンストラクタへ渡すパラメータが不正です。",tempKeyWord);
188 if(num==114) lstrcpy(msg,"デストラクタはパラメータを持てません。");
189 if(num==115) lstrcpy(msg,"コンストラクタ及びデストラクタは戻り値を持てません。");
[85]190 //if(num==116) lstrcpy(msg,"コンストラクタ及びデストラクタはパブリックアクセスにしなければなりません。");
[75]191 if(num==117) lstrcpy(msg,"デストラクタの名前が \"~クラス名\" になっていません。");
192 if(num==118) lstrcpy(msg,"参照する基底クラスが存在しません。");
193 if(num==119) sprintf(msg,"\"%s\" メンバは基底クラスで定義されていません。",tempKeyWord);
194 if(num==120) lstrcpy(msg,"デストラクトするオブジェクトの型が不明です。");
195 if(num==121) lstrcpy(msg,"New演算子にはクラス以外の型を指定できません。");
196 if(num==122) lstrcpy(msg,"Delete演算子にポインタ以外の型が指定されています。");
197 if(num==123) lstrcpy(msg,"ループ継承が行われました。");
198 if(num==124) lstrcpy(msg,"循環参照が行われました。");
[40]199 if(num==125) sprintf(msg,"\"%s\" は抽象クラスです。インスタンス化することはできません。",tempKeyWord);
[4]200 if(num==126) lstrcpy(msg,"オペレータのオーバーロードをクラスの外で行うことはできません。");
201 if(num==127) lstrcpy(msg,"Override修飾子の指定が無い状況でオーバーライドを行うことはできません。");
202 if(num==128) lstrcpy(msg,"オーバーライドを行うときはアクセシビリティを同一にしなければなりません。");
[40]203 if(num==129) sprintf(msg,"静的メンバ \"%s\" は定義されていません。",tempKeyWord);
204 if(num==130) sprintf(msg,"\"%s\" はオブジェクト定数です。書き込みアクセスはできません。",tempKeyWord);
[18]205 if(num==131) lstrcpy(msg,"Const定義されたメソッド内でクラスメンバへの書き込みアクセスはできません。");
[20]206 if(num==132) lstrcpy(msg,"明示的なコンストラクタ呼び出しと初期値の指定を同時に行うことはできません。");
[64]207 if(num==133) lstrcpy(msg,"Thisに代入はできません。");
[109]208 if(num==134) lstrcpy( msg,"ObjPtr関数にはオブジェクト インスタンス以外を指定できません。" );
[131]209 if(num==135) lstrcpy( msg, "クラスまたはインターフェイス以外の型を継承元として指定することはできません。" );
[305]210 if(num==136) lstrcpy( msg, "非仮想関数に対してオーバーライドしようとしました。" );
[340]211 if(num==137) lstrcpy(msg,"ImplementsはClass定義内の先頭に記述する必要があります。");
[342]212 if(num==138) sprintf(msg,"%s はインターフェイスではありません。Implementsできるのはインターフェイスに限ります。",tempKeyWord);
[353]213 if(num==139) sprintf(msg,"%s はインターフェイスではありません。",tempKeyWord);
[4]214
215 //Enum関連
[75]216 if(num==150) sprintf(msg,"\"%s\" 値が定義されていません。",tempKeyWord);
217 if(num==151) sprintf(msg,"\"%s\" 列挙リストに登録されていません。",tempKeyWord);
[4]218
219 //リンカ
[75]220 if(num==200) sprintf(msg,"\"%s\" 未解決です (リンク エラー)。",tempKeyWord);
221 if(num==201) sprintf(msg,"\"%s\" の読み込みに失敗。",tempKeyWord);
[4]222
223 //原因不明
224 if(num==300) lstrcpy(msg,"内部エラー");
225
[351]226 // ベースライブラリ不整合
227 if( num == 400 ) sprintf( msg, "\"%s\" が存在しません。標準ライブラリの内容が古い可能性があります。", tempKeyWord );
228
[4]229#else
230 ////////////////////
231 //英語
232 ////////////////////
233 if(num==1) lstrcpy(msg,"Syntax Error.");
234 if(num==2) sprintf(msg,"Left operand must be l-value.");
235 //num==3は予約されています
[40]236 if(num==4) sprintf(msg,"Correlation of %s is wrong.",tempKeyWord);
[4]237 if(num==5) sprintf(msg,"Correlation of double quotes is wrong.");
[40]238 if(num==6) sprintf(msg,"\"%s\" Label not found.",tempKeyWord);
[4]239 if(num==7) lstrcpy(msg,"The DLL name is too long. Must be 16 characters or less.");
240 if(num==8) lstrcpy(msg,"The inaccurate characters are contained.");
241 if(num==9) sprintf(msg,"Type is wrong.");
[40]242 if(num==10) sprintf(msg,"\"%s\" Rule of parameter is wrong.",tempKeyWord);
243 if(num==11) sprintf(msg,"\"%s\" Type is wrong.",tempKeyWord);
244 if(num==12) sprintf(msg,"\"%s\" Not a valid use.",tempKeyWord);
245 if(num==13) sprintf(msg,"Cannot refer to \"%s\".",tempKeyWord);
246 if(num==14) sprintf(msg,"\"%s\" Array argument(s) out of bound.",tempKeyWord);
247 if(num==15) sprintf(msg,"\"%s\" is already defined.",tempKeyWord);
248 if(num==16) sprintf(msg,"\"%s\" Argument(s) following variable which is not pointer or array.",tempKeyWord);
[4]249 if(num==17) sprintf(msg,"Invalid resource data.");
[40]250 if(num==18) sprintf(msg,"\"%s\" Invalid operation on a pointer variable.",tempKeyWord);
251 if(num==19) sprintf(msg,"\"%s\" is already to be passed by value. You cannot use \"ByVal\".",tempKeyWord);
[4]252 if(num==21) sprintf(msg,"Wrong structure of \"If\" block.");
[40]253 if(num==22) sprintf(msg,"No matching \"End %s\" found for \"%s\".",tempKeyWord,tempKeyWord);
254 if(num==23) sprintf(msg,"Cannot read the resource file \"%s\".",tempKeyWord);
[4]255 if(num==24) lstrcpy(msg,"Must not use String type as an argument for exported function. (Use BytePtr type instead.)");
[40]256 if(num==27) sprintf(msg,"\"%s\" Undefined procedure.",tempKeyWord);
257 if(num==28) sprintf(msg,"\"%s\" Structure must not be passed by value. (Use \"ByRef\".)",tempKeyWord);
[4]258 if(num==29) sprintf(msg,"Array must not be passed by value. (Use \"ByRef\".)");
259 //num==30は予約されています
[40]260 if(num==31) sprintf(msg,"\"%s\" is a struct. (Use period \".\" to refer to the members.)",tempKeyWord);
261 if(num==32) sprintf(msg,"\"%s\" is a pointer of struct. (Use arrow \"->\" to refer to the members.)",tempKeyWord);
[4]262 if(num==33) sprintf(msg,"Constant formula has a thing that is not literal value or constant value.");
263 if(num==34) sprintf(msg,"Constant formula must be defined in the module level.");
[40]264 if(num==38) sprintf(msg,"\"%s\" is a procedure without a return value.",tempKeyWord);
265 if(num==39) sprintf(msg,"\"%s\" is not object pointer. \"->\" is invalid.",tempKeyWord);
[4]266 if(num==40) lstrcpy(msg,"Cannot set a object to return value.");
267 if(num==41) lstrcpy(msg,"Init data is wrong.");
268 if(num==42) lstrcpy(msg,"The inaccurate characters are contained after the closing parenthesis \")\".");
269 if(num==43) lstrcpy(msg,"The inaccurate characters are contained after the double quote.");
270
271 //オブジェクト関連
[40]272 if(num==102) sprintf(msg,"\"%s\" The object is not defined.",tempKeyWord);
273 if(num==103) sprintf(msg,"\"%s\" The member is not defined.",tempKeyWord);
274 if(num==104) sprintf(msg,"\"%s\" The reference character is different.",tempKeyWord);
275 if(num==105) sprintf(msg,"\"%s\" An own class is not inheritable.",tempKeyWord);
276 if(num==106) sprintf(msg,"\"%s\" It class is not defined.",tempKeyWord);
277 if(num==107) sprintf(msg,"\"%s\" Cannot access the private member.",tempKeyWord);
278 if(num==108) sprintf(msg,"\"%s\" Cannot access the protected member.",tempKeyWord);
279 if(num==109) sprintf(msg,"\"%s\" Cannot call the private member.",tempKeyWord);
280 if(num==110) sprintf(msg,"\"%s\" Cannot call the protected member.",tempKeyWord);
[4]281 if(num==111) lstrcpy(msg,"The Inherits phrase must be described to the 1st line of class module");
[40]282 if(num==112) sprintf(msg,"\"%s\" is not class object. Therefor you cannot set the parameter for constructor.",tempKeyWord);
283 if(num==113) sprintf(msg,"\"%s\" The parameter for constructor is wrong.",tempKeyWord);
[4]284 if(num==114) lstrcpy(msg,"Destructor cannot have a parameter.");
285 if(num==115) lstrcpy(msg,"Constructor and Destructor cannot have a return value.");
286 if(num==116) lstrcpy(msg,"Constructor and Destructor must be public access.");
287 if(num==117) lstrcpy(msg,"Destructors name must be \"~ClassName\".");
288 if(num==118) lstrcpy(msg,"Super class is not found.");
[40]289 if(num==119) sprintf(msg,"\"%s\" The member is not defined in the super class.",tempKeyWord);
[4]290
291 //Enum関連
[40]292 if(num==150) sprintf(msg,"\"%s\" The value is not set",tempKeyWord);
293 if(num==151) sprintf(msg,"\"%s\" is not found from enum lists.",tempKeyWord);
[4]294
295 //リンカ
[40]296 if(num==200) sprintf(msg,"\"%s\" Unknown error.",tempKeyWord);
[4]297#endif
298
299 return 1;
300}
[75]301void SetError(int ErrorNum,const string &keyWord,int pos){
302 SetError( ErrorNum, keyWord.c_str(), pos );
303}
[40]304void SetError(int num,const char *KeyWord,int pos){
[4]305 extern HANDLE hHeap;
306 extern HWND hMainDlg;
307 extern ERRORINFO *pErrorInfo;
308 extern int ErrorNum;
[279]309 char temporary[1024],temp2[1024],temp3[32];
[4]310 BOOL bFirst;
311 int i2;
312
313 extern BOOL bDebugRun;
314 if(bDebugRun) return;
315
316 if(num!=-2){
317 //一般エラーまたは警告
318 i2=0; //ここにブレークポイントをおく
[28]319
320 if(num>-100){
321 //エラーのみ
[206]322
[28]323 i2=0;
324 }
325
[4]326 }
327
328 if(!GetErrorMsg(num,KeyWord,temporary,pos)) return;
329
330 if(ErrorNum==0){
331 SetDlgItemText(hMainDlg,IDC_ERRORLIST,"");
332 EnableWindow(GetDlgItem(hMainDlg,IDC_ERRORLIST),1);
333 bFirst=1;
334 }
335 else bFirst=0;
336
337
338 ////////////////////
339 // エラー情報を追加
340 pErrorInfo=(ERRORINFO *)HeapReAlloc(hHeap,0,pErrorInfo,(ErrorNum+1)*sizeof(ERRORINFO));
341
342 if(pos==-1){
343 pErrorInfo[ErrorNum].FileName=0;
344 lstrcpy(temp2,temporary);
345 }
346 else{
[279]347 std::string dummyStr;
[280]348 compiler.GetObjectModule().GetCurrentSource().GetLineInfo( pos, pErrorInfo[ErrorNum].line, dummyStr );
[4]349
[279]350 pErrorInfo[ErrorNum].FileName=(char *)HeapAlloc(hHeap,0,lstrlen(dummyStr.c_str())+1);
351 lstrcpy(pErrorInfo[ErrorNum].FileName,dummyStr.c_str());
[4]352
353 _splitpath(pErrorInfo[ErrorNum].FileName,0,0,temp2,temp3);
354 lstrcat(temp2,temp3);
355
356 if(pErrorInfo[ErrorNum].line==-1)
357 sprintf(temp2+lstrlen(temp2),"(no area) %s",temporary);
358 else
359 sprintf(temp2+lstrlen(temp2),"(%d) - %s",pErrorInfo[ErrorNum].line+1,temporary);
360 }
361
362 i2=GetWindowTextLength(GetDlgItem(hMainDlg,IDC_ERRORLIST));
363 SendDlgItemMessage(hMainDlg,IDC_ERRORLIST,EM_SETSEL,i2,i2);
364 if(bFirst==0){
365 SendDlgItemMessage(hMainDlg,IDC_ERRORLIST,EM_REPLACESEL,0,(LPARAM)"\r\n");
366 i2+=2;
367 SendDlgItemMessage(hMainDlg,IDC_ERRORLIST,EM_SETSEL,i2,i2);
368 }
369 SendDlgItemMessage(hMainDlg,IDC_ERRORLIST,EM_REPLACESEL,0,(LPARAM)temp2);
370
[140]371
[4]372 if(num==-2){
373 //コンパイルメッセージ
374 //※何もしない
375 extern int CompileMsgNum;
376 CompileMsgNum++;
377 }
378 else{
379 if(num>-100){
380 //警告ではなく、エラーの場合はエラーチェックフラグを立てる
381 extern BOOL bError;
382 bError=1;
[140]383
384 // ログに出力
385 trace( "error - " << temp2 );
[4]386 }
387 else{
388 extern int WarningNum;
389 WarningNum++;
[140]390
391 // ログに出力
392 trace( "warning - " << temp2 );
[4]393 }
394 }
395
396 ErrorNum++;
397}
[64]398void SetError(){
399 SetError(300,NULL,cp);
400}
[287]401void CompileMessage(const char *buffer){
[4]402 SetError(-2,buffer,-1);
403}
404
405#define STRING_SYSTEM_DECLAREHANDLE "*_System_DeclareHandle_"
[290]406void DifferentTypeError( const Type &varType, const Type &calcFormalType, const int iWarning,const char *pszFuncName,const int ParmNum){
[4]407 //////////////////////////
408 // キャストに関する警告
409 //////////////////////////
[290]410 char temporary[255];
411 Type calcType( calcFormalType );
[4]412
[290]413 if(IS_LITERAL(calcType.GetIndex()))
414 {
415 calcType.SetIndex( -1 );
416 }
[4]417
418 if(pszFuncName)
419 sprintf(temporary,"\"%s\"の第%dパラメータが、",pszFuncName,ParmNum+1);
420 else temporary[0]=0;
421
[299]422 std::string varTypeName = compiler.TypeToString( varType );
[290]423 if(memcmp( varTypeName.c_str(),STRING_SYSTEM_DECLAREHANDLE,lstrlen(STRING_SYSTEM_DECLAREHANDLE))==0)
424 {
425 varTypeName = varTypeName.substr( lstrlen(STRING_SYSTEM_DECLAREHANDLE) );
[4]426 }
[290]427
[299]428 std::string calcTypeName = compiler.TypeToString( calcType );
[290]429 if(memcmp( calcTypeName.c_str(),STRING_SYSTEM_DECLAREHANDLE,lstrlen(STRING_SYSTEM_DECLAREHANDLE))==0)
430 {
431 calcTypeName = calcTypeName.substr( lstrlen(STRING_SYSTEM_DECLAREHANDLE) );
[4]432 }
[290]433 sprintf(temporary+lstrlen(temporary),"%sから%s",calcTypeName.c_str(),varTypeName.c_str());
[4]434
435 extern int cp;
436 if(iWarning==1) SetError(-101,temporary,cp);
437 else if(iWarning==2) SetError(-102,temporary,cp);
[45]438 else if(iWarning==3) SetError(50,temporary,cp);
[4]439}
440
[290]441bool CheckDifferentType( const Type &varType,const Type &calcFormalType,const char *pszFuncName,const int ParmNum)
442{
443 Type calcType( calcFormalType );
[4]444
[290]445 if( varType.IsStruct() || calcType.IsStruct() )
446 {
[64]447 //いずれかが構造体場合
[290]448 if( !varType.Equals( calcType ) )
449 {
450 DifferentTypeError( varType, calcType,3,pszFuncName,ParmNum);
[64]451 return false;
452 }
453 }
454
[290]455 if( varType.IsObject() || calcType.IsObject() )
456 {
457 //いずれかがオブジェクトの場合
458 if( varType.GetBasicType() != calcType.GetBasicType() )
459 {
460 DifferentTypeError( varType, calcType,3,pszFuncName,ParmNum);
[45]461 return false;
[4]462 }
[59]463
[290]464 if( !varType.GetClass().IsEqualsOrSubClass( &calcType.GetClass() ) )
465 {
[59]466 //等しくなく、派生クラスでもないとき
[290]467 DifferentTypeError( varType, calcType,3,pszFuncName,ParmNum);
[59]468 return false;
469 }
[4]470 }
471
472 //#strictが指定されていないときは型チェックを行わないようにする
473 extern BOOL bStrict;
[45]474 if(bStrict==0) return true;
[4]475
[290]476 if( calcType.GetBasicType() & FLAG_PTR )
477 {
[4]478 //配列先頭フラグがたっている場合は、ポインタ型として扱う
[290]479 calcType.SetBasicType( MAKE_PTR_TYPE(NATURAL_TYPE(calcType.GetBasicType()),PTR_LEVEL(calcType.GetBasicType())+1) );
[4]480 }
481
[290]482 if( varType.IsPointer() || calcType.IsPointer() )
483 {
[4]484 /* 右辺及び左辺のいずれかがポインタ型の場合は、
485 型チェックを行う。
486 ・同一の種類のポインタ型以外はエラーとする */
487
[290]488 if( varType.IsPointer() && calcType.GetIndex() == LITERAL_NULL )
489 {
[4]490 //リテラルNULL値の場合
[45]491 return true;
[4]492 }
493
[290]494 if( varType.IsVoidPtr() )
495 {
[4]496 //左辺がVoidPtr型の場合は、ポインタ型すべてを受け入れる
[290]497 if( calcType.IsPointer() )
498 {
499 return true;
500 }
[4]501 }
502
[290]503 if( calcType.IsVoidPtr() )
504 {
[4]505 //右辺がVoidPtr型の場合は、ポインタ型すべてを受け入れる
[290]506 if( varType.IsPointer() )
507 {
508 return true;
509 }
[4]510 }
511
[290]512 if( varType.GetBasicType() != calcType.GetBasicType() )
513 {
514 DifferentTypeError( varType, calcType, 2,pszFuncName,ParmNum);
[45]515 return true;
[4]516 }
517
[290]518 if( varType.IsObjectPtr() )
519 {
[4]520 //双方がオブジェクトポインタ型の場合
[290]521 if( varType.GetIndex() != calcType.GetIndex() )
522 {
523 const CClass *pobj_tempClass = &calcType.GetClass();
[4]524 while(pobj_tempClass&&(!IS_LITERAL((LONG_PTR)pobj_tempClass))){
[204]525 pobj_tempClass=&pobj_tempClass->GetSuperClass();
[4]526
[290]527 if( &varType.GetClass() == pobj_tempClass )
528 {
[4]529 //継承先が等しいとき
[45]530 return true;
[4]531 }
532 }
[290]533 DifferentTypeError( varType, calcType, 2,pszFuncName,ParmNum);
[45]534 return true;
[4]535 }
536 }
537 }
538
[290]539 if( varType.IsDouble() )
540 {
541 if( calcType.Is64() )
542 {
[4]543 //64ビット整数値の場合は警告を出す
[290]544 DifferentTypeError( varType, calcType, 1,pszFuncName,ParmNum);
[4]545 }
546 }
[290]547 else if( varType.IsSingle() )
548 {
549 if( calcType.Is64() || calcType.IsDouble() )
550 {
[4]551 //64ビット整数値、またはDouble型の場合は警告を出す
[290]552 DifferentTypeError( varType, calcType, 1,pszFuncName,ParmNum);
[4]553 }
554 }
[290]555 else if( varType.GetSize() == sizeof(char) )
556 {
557 if( calcType.GetSize() > sizeof(char)
558 && calcType.GetIndex() != LITERAL_NULL
559 && calcType.GetIndex() != LITERAL_M128_0
560 && calcType.GetIndex() != LITERAL_0_255 )
561 {
[4]562 //8ビット整数値より大きな型で、リテラル値でもない場合は警告を出す
[290]563 DifferentTypeError( varType, calcType, 1,pszFuncName,ParmNum);
[4]564 }
565 }
[290]566 else if( varType.GetSize() == sizeof(short) )
567 {
568 if( calcType.GetSize() > sizeof(short)
569 && calcType.GetIndex() != LITERAL_NULL
570 && calcType.GetIndex() != LITERAL_M128_0
571 && calcType.GetIndex() != LITERAL_0_255
572 && calcType.GetIndex() != LITERAL_M32768_0
573 && calcType.GetIndex() != LITERAL_0_65535 )
574 {
[4]575 //16ビット整数値より大きな型で、リテラル値でもない場合は警告を出す
[290]576 DifferentTypeError( varType, calcType, 1,pszFuncName,ParmNum);
[4]577 }
578 }
[290]579 else if( varType.GetSize() == sizeof(long) )
580 {
581 if( calcType.IsReal()
582 || ( calcType.IsWhole() && calcType.GetSize() > sizeof(long) && calcType.GetIndex() != LITERAL_NULL ) )
583 {
[4]584 /* 32ビット整数値より大きな型、または実数、
585 またはリテラル値でもない場合は警告を出す */
[290]586 DifferentTypeError( varType, calcType, 1,pszFuncName,ParmNum);
[4]587 }
588 }
[290]589 else if( varType.GetSize() == sizeof(_int64) )
590 {
591 if( calcType.IsReal() )
592 {
[4]593 //実数の場合は警告を出す
[290]594 DifferentTypeError( varType, calcType, 1,pszFuncName,ParmNum);
[4]595 }
596 }
[45]597
598 return true;
[4]599}
Note: See TracBrowser for help on using the repository browser.