Changeset 465 in dev for trunk/ab5.0

Timestamp:

Mar 24, 2008, 8:05:20 PM (16 years ago)

Author:

dai_9181

Message:

Messenger/ErrorMessengerクラスを導入。SetError関数によるエラー生成を廃止した。

Location:

trunk/ab5.0

Files:

• abdev/BasicCompiler32/BasicCompiler.vcproj (modified) (2 diffs)
• abdev/BasicCompiler32/CParameter.cpp (modified) (4 diffs)
• abdev/BasicCompiler32/Compile_Calc.cpp (modified) (11 diffs)
• abdev/BasicCompiler32/Compile_Calc_PushVar.cpp (modified) (2 diffs)
• abdev/BasicCompiler32/Compile_CallProc.cpp (modified) (7 diffs)
• abdev/BasicCompiler32/Compile_Func.cpp (modified) (11 diffs)
• abdev/BasicCompiler32/Compile_Object.cpp (modified) (5 diffs)
• abdev/BasicCompiler32/Compile_ProcOp.cpp (modified) (8 diffs)
• abdev/BasicCompiler32/Compile_Set_Var.cpp (modified) (4 diffs)
• abdev/BasicCompiler32/Compile_Statement.cpp (modified) (19 diffs)
• abdev/BasicCompiler32/Compile_Var.cpp (modified) (37 diffs)
• abdev/BasicCompiler32/MakePeHdr.cpp (modified) (10 diffs)
• abdev/BasicCompiler32/NumOpe.cpp (modified) (27 diffs)
• abdev/BasicCompiler32/NumOpe_Arithmetic.cpp (modified) (1 diff)
• abdev/BasicCompiler32/NumOpe_Logical.cpp (modified) (4 diffs)
• abdev/BasicCompiler32/NumOpe_Relation.cpp (modified) (1 diff)
• abdev/BasicCompiler32/OperatorProc.cpp (modified) (3 diffs)
• abdev/BasicCompiler32/stdafx.h (modified) (1 diff)
• abdev/BasicCompiler32/x86CodeGenerator.cpp (modified) (8 diffs)
• abdev/BasicCompiler_Common/BasicCompiler.cpp (modified) (3 diffs)
• abdev/BasicCompiler_Common/BasicCompiler.h (modified) (1 diff)
• abdev/BasicCompiler_Common/CommandFormat.cpp (modified) (16 diffs)
• abdev/BasicCompiler_Common/Compile.cpp (modified) (24 diffs)
• abdev/BasicCompiler_Common/Intermediate_Step1.cpp (modified) (10 diffs)
• abdev/BasicCompiler_Common/Intermediate_Step2.cpp (modified) (4 diffs)
• abdev/BasicCompiler_Common/MakeExe.cpp (modified) (14 diffs)
• abdev/BasicCompiler_Common/NumOpe_GetType.cpp (modified) (25 diffs)
• abdev/BasicCompiler_Common/Object.cpp (modified) (4 diffs)
• abdev/BasicCompiler_Common/OldStatement.cpp (modified) (7 diffs)
• abdev/BasicCompiler_Common/ParamImpl.cpp (modified) (6 diffs)
• abdev/BasicCompiler_Common/RSrcSection.cpp (modified) (7 diffs)
• abdev/BasicCompiler_Common/Resource.cpp (modified) (3 diffs)
• abdev/BasicCompiler_Common/StrOperation.cpp (modified) (2 diffs)
• abdev/BasicCompiler_Common/Subroutine.cpp (modified) (3 diffs)
• abdev/BasicCompiler_Common/VariableOpe.cpp (modified) (23 diffs)
• abdev/BasicCompiler_Common/calculation.cpp (modified) (19 diffs)
• abdev/BasicCompiler_Common/common.h (modified) (1 diff)
• abdev/BasicCompiler_Common/error.cpp (modified) (2 diffs)
• abdev/BasicCompiler_Common/hash.cpp (modified) (3 diffs)
• abdev/BasicCompiler_Common/include/Compiler.h (modified) (2 diffs)
• abdev/BasicCompiler_Common/include/Messenger.h (added)
• abdev/BasicCompiler_Common/include/Method.h (modified) (4 diffs)
• abdev/BasicCompiler_Common/include/NativeCode.h (modified) (1 diff)
• abdev/BasicCompiler_Common/src/Class.cpp (modified) (23 diffs)
• abdev/BasicCompiler_Common/src/Class_Collect.cpp (modified) (20 diffs)
• abdev/BasicCompiler_Common/src/CommonCodeGenerator.cpp (modified) (13 diffs)
• abdev/BasicCompiler_Common/src/Compiler.cpp (modified) (1 diff)
• abdev/BasicCompiler_Common/src/Const.cpp (modified) (6 diffs)
• abdev/BasicCompiler_Common/src/DataTable.cpp (modified) (7 diffs)
• abdev/BasicCompiler_Common/src/Delegate.cpp (modified) (7 diffs)
• abdev/BasicCompiler_Common/src/Enum.cpp (modified) (4 diffs)
• abdev/BasicCompiler_Common/src/Exception.cpp (modified) (13 diffs)
• abdev/BasicCompiler_Common/src/LexicalScope.cpp (modified) (2 diffs)
• abdev/BasicCompiler_Common/src/Linker.cpp (modified) (2 diffs)
• abdev/BasicCompiler_Common/src/Messenger.cpp (added)
• abdev/BasicCompiler_Common/src/Method.cpp (modified) (4 diffs)
• abdev/BasicCompiler_Common/src/NamespaceSupporter.cpp (modified) (2 diffs)
• abdev/BasicCompiler_Common/src/NativeCode.cpp (modified) (1 diff)
• abdev/BasicCompiler_Common/src/Parameter.cpp (modified) (4 diffs)
• abdev/BasicCompiler_Common/src/Procedure.cpp (modified) (43 diffs)
• abdev/BasicCompiler_Common/src/Source.cpp (modified) (2 diffs)
• abdev/BasicCompiler_Common/src/Type.cpp (modified) (3 diffs)
• abdev/BasicCompiler_Common/src/TypeDef.cpp (modified) (8 diffs)
• jenga/include/common/String.h (modified) (1 diff)
• jenga/projects/common/common.vcproj (modified) (1 diff)
• jenga/src/common/String.cpp (added)

trunk/ab5.0/abdev/BasicCompiler32/BasicCompiler.vcproj

@@ -1266 +1266 @@
                     >
                 </File>
+                <File
+                    RelativePath="..\BasicCompiler_Common\src\Messenger.cpp"
+                    >
+                </File>
                 <Filter
                     Name="Langauge Classes"
@@ -1471 +1475 @@
                     >
                 </File>
+                <File
+                    RelativePath="..\BasicCompiler_Common\include\Messenger.h"
+                    >
+                </File>
                 <Filter
                     Name="Language Classes"

trunk/ab5.0/abdev/BasicCompiler32/CParameter.cpp

@@ -239 +239 @@
                 char temp2[255];
                 sprintf(temp2,"%s関数の第%dパラメータ",procName.c_str(),i2+1);
-                SetError(19,temp2,cp);
+                compiler.errorMessenger.Output(19,temp2,cp);
                 continue;
             }
@@ -306 +306 @@
             }
             else{
-                SetError(300,NULL,cp);
+                compiler.errorMessenger.Output(300,NULL,cp);
             }
         }
@@ -368 +368 @@
                                     if( dummyType.IsObject() ){
                                         if( !dummyType.GetClass().IsEqualsOrSubClass( &varType.GetClass() ) ){
-                                            SetError(11,Parms[i2],cp);
+                                            compiler.errorMessenger.Output(11,Parms[i2],cp);
                                         }
                                     }
                                     else if( dummyType.IsStruct() ){
                                         if( !dummyType.GetClass().IsEquals( &varType.GetClass() ) ){
-                                            SetError(11,Parms[i2],cp);
+                                            compiler.errorMessenger.Output(11,Parms[i2],cp);
                                         }
                                     }
@@ -382 +382 @@
                                 }
                                 else{
-                                    SetError(11,Parms[i2],cp);
+                                    compiler.errorMessenger.Output(11,Parms[i2],cp);
                                 }
                             }

trunk/ab5.0/abdev/BasicCompiler32/Compile_Calc.cpp

@@ -130 +130 @@
         compiler.codeGenerator.op_fstp_basereg( DEF_DOUBLE, REG_ESP );
     }
-    else SetError(9,NULL,cp);
+    else compiler.errorMessenger.Output(9,NULL,cp);
 }
 void ChangeTypeToSingle(int OldType){
@@ -198 +198 @@
         compiler.codeGenerator.op_fstp_basereg( DEF_SINGLE, REG_ESP );
     }
-    else SetError(9,NULL,cp);
+    else compiler.errorMessenger.Output(9,NULL,cp);
 }
 
@@ -254 +254 @@
         }
     }
-    else SetError(9,NULL,cp);
+    else compiler.errorMessenger.Output(9,NULL,cp);
 }
 void ChangeTypeToLong(int OldType){
@@ -393 +393 @@
     }
     else{
-        SetError(300,NULL,cp);
+        compiler.errorMessenger.Output(300,NULL,cp);
     }
 }
@@ -411 +411 @@
             //ダブルクォートは不正なのでエラー扱い
             variable[i]=0;
-            SetError(3,variable,cp);
+            compiler.errorMessenger.Output(3,variable,cp);
             return;
         }
@@ -458 +458 @@
             if(GetVarType(variable,Type(),0)){
                 //変数リストに該当したとき
-                SetError(1,NULL,cp);
+                compiler.errorMessenger.Output(1,NULL,cp);
             }
             else{
@@ -465 +465 @@
                 {
                     //定数リストに該当したとき
-                    SetError(1,NULL,cp);
+                    compiler.errorMessenger.Output(1,NULL,cp);
                 }
                 else{
                     //変数リスト、定数リストに該当しないとき
-                    SetError(3,variable,cp);
+                    compiler.errorMessenger.Output(3,variable,cp);
                 }
             }
@@ -491 +491 @@
 
     if(Command[i+1]=='\0'){
-        SetError(1,NULL,cp);
+        compiler.errorMessenger.Output(1,NULL,cp);
         return;
     }
@@ -531 +531 @@
 
     if( lstrcmpi( variable, "This" ) == 0 ){
-        SetError(133,NULL,cp);
+        compiler.errorMessenger.Output(133,NULL,cp);
         return;
     }
@@ -593 +593 @@
     if( !TermOpeOnlyVariable( variable, varType, VarRelativeVar, true ) )
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
         return;
     }
 
     if(varType.GetBasicType()&FLAG_PTR){
-        SetError(14,variable,cp);
+        compiler.errorMessenger.Output(14,variable,cp);
         return;
     }
@@ -614 +614 @@
         compiler.GetObjectModule().meta.GetBlittableTypes().GetClass( calcType ).GetStaticMethods().Enum( "_Create", userProcs );
         if( userProcs.size() != 1 ){
-            SetError();
+            compiler.errorMessenger.OutputFatalError();
             return;
         }

trunk/ab5.0/abdev/BasicCompiler32/Compile_Calc_PushVar.cpp

@@ -21 +21 @@
     }
     else if(pRelativeVar->dwKind==VAR_REFGLOBAL){
-        SetError(300,NULL,cp);
+        compiler.errorMessenger.Output(300,NULL,cp);
     }
     else if(pRelativeVar->dwKind==VAR_LOCAL){
@@ -68 +68 @@
         //64ビットの場合はedx:eaxにロード
         if(reg!=REG_EAX){
-            SetError(300,NULL,cp);
+            compiler.errorMessenger.Output(300,NULL,cp);
             return;
         }

trunk/ab5.0/abdev/BasicCompiler32/Compile_CallProc.cpp

@@ -135 +135 @@
                     }
                     else{
-                        SetError(300,NULL,cp);
+                        compiler.errorMessenger.Output(300,NULL,cp);
                     }
                 }
@@ -163 +163 @@
             pMethod = pobj_c->GetStaticMethods().GetMethodPtr( pUserProc );
             if( !pMethod ){
-                SetError(300,NULL,cp);
+                compiler.errorMessenger.Output(300,NULL,cp);
                 return false;
             }
@@ -181 +181 @@
                 //同一クラスオブジェクトの場合はプライベートアクセスを容認する
                 if( pMethod->IsNoneAccess() ){
-                    SetError(109,pUserProc->GetName(),cp);
+                    compiler.errorMessenger.Output(109,pUserProc->GetName(),cp);
                     return false;
                 }
@@ -188 +188 @@
                 if( pMethod->IsPrivate()
                     || pMethod->IsNoneAccess() ){
-                    SetError(109,pUserProc->GetName(),cp);
+                    compiler.errorMessenger.Output(109,pUserProc->GetName(),cp);
                     return false;
                 }
                 if( !pMethod->GetUserProc().GetParentClass().IsEqualsOrSubClass( pobj_c ) && pMethod->IsProtected() ){
-                    SetError(110,pUserProc->GetName(),cp);
+                    compiler.errorMessenger.Output(110,pUserProc->GetName(),cp);
                     return false;
                 }
@@ -200 +200 @@
             //クラス内部からの呼び出し（継承によるACCESS_NONのみをエラーとする）
             if( pMethod->IsNoneAccess() ){
-                SetError(109,pUserProc->GetName(),cp);
+                compiler.errorMessenger.Output(109,pUserProc->GetName(),cp);
                 return false;
             }
@@ -296 +296 @@
                 if( !resultType.IsObject() )
                 {
-                    SetError();
+                    compiler.errorMessenger.OutputFatalError();
                 }
 
@@ -344 +344 @@
             if( vtblMasterListIndex != 0 )
             {
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
             }
         }

trunk/ab5.0/abdev/BasicCompiler32/Compile_Func.cpp

@@ -263 +263 @@
                     || type.IsObjectPtr() && referenceKind == RefPointer ) )
                 {
-                    SetError(104,ObjectName,cp);
+                    compiler.errorMessenger.Output(104,ObjectName,cp);
                 }
 
@@ -305 +305 @@
             if( vtblMasterListIndex != 0 )
             {
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
             }
         }
@@ -400 +400 @@
         {
             extern int cp;
-            SetError(1,NULL,cp);
+            compiler.errorMessenger.Output(1,NULL,cp);
             return;
         }
@@ -460 +460 @@
         GetOverloadSubHash( name, subs );
         if( subs.size() == 0 ){
-            SetError(27,name,cp);
+            compiler.errorMessenger.Output(27,name,cp);
             return;
         }
@@ -480 +480 @@
                     ) )
                 {
-                    SetError(67, name, cp );
+                    compiler.errorMessenger.Output(67, name, cp );
                 }
             }
@@ -491 +491 @@
                     ) )
                 {
-                    SetError(66, name, cp );
+                    compiler.errorMessenger.Output(66, name, cp );
                 }
             }
@@ -497 +497 @@
 
         if(!pUserProc){
-            SetError(27,name,cp);
+            compiler.errorMessenger.Output(27,name,cp);
             return;
         }
@@ -504 +504 @@
         pUserProc=GetSubHash(name);
         if(!pUserProc){
-            SetError(27,name,cp);
+            compiler.errorMessenger.Output(27,name,cp);
             return;
         }
@@ -531 +531 @@
     Type tempType;
     if( !compiler.StringToType( typeName, tempType ) ){
-        SetError(3,typeName,cp);
+        compiler.errorMessenger.Output(3,typeName,cp);
         return;
     }
@@ -597 +597 @@
     }
     else{
-        SetError(134,NULL,cp );
+        compiler.errorMessenger.Output(134,NULL,cp );
     }
 }
@@ -680 +680 @@
     }
     if(!tempType.IsWhole()){
-        SetError(11,Parameter,cp);
+        compiler.errorMessenger.Output(11,Parameter,cp);
         return;
     }

trunk/ab5.0/abdev/BasicCompiler32/Compile_Object.cpp

@@ -22 +22 @@
 
     if(bSomeObjects){
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
 
         //push ebx
@@ -64 +64 @@
         }
         else{
-            SetError();
+            compiler.errorMessenger.OutputFatalError();
         }
 
@@ -110 +110 @@
     if(pClass->IsAbstract()){
         //抽象クラスだったとき
-        SetError(125,pClass->GetName(),cp);
+        compiler.errorMessenger.Output(125,pClass->GetName(),cp);
     }
 
@@ -119 +119 @@
         Type tempType;
         NumOpe(objectSizeStr,Type(),tempType);
-        if( !tempType.IsWhole() ) SetError(49,NULL,cp);
+        if( !tempType.IsWhole() ) compiler.errorMessenger.Output(49,NULL,cp);
         ChangeTypeToLong(tempType.GetBasicType());
 
@@ -269 +269 @@
         return;
     }
-    if(!( tempType.IsObjectPtr() || tempType.IsVoidPtr() )) SetError(122,NULL,cp);
+    if(!( tempType.IsObjectPtr() || tempType.IsVoidPtr() )) compiler.errorMessenger.Output(122,NULL,cp);
 
     //pop eax

trunk/ab5.0/abdev/BasicCompiler32/Compile_ProcOp.cpp

@@ -197 +197 @@
     }
     else{
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 }
@@ -242 +242 @@
         {
             if(pGotoLabelSchedule->GetName().size()>0){
-                SetError(6,pGotoLabelSchedule->GetName(),pGotoLabelSchedule->GetSourceCodePos());
+                compiler.errorMessenger.Output(6,pGotoLabelSchedule->GetName(),pGotoLabelSchedule->GetSourceCodePos());
             }
             else{
                 char temporary[255];
                 sprintf(temporary,"%d",pGotoLabelSchedule->GetLineNum());
-                SetError(6,temporary,pGotoLabelSchedule->GetSourceCodePos());
+                compiler.errorMessenger.Output(6,temporary,pGotoLabelSchedule->GetSourceCodePos());
             }
         }
@@ -273 +273 @@
     }
     else{
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 }
@@ -285 +285 @@
 
     if( pUserProc->GetLocalVars().size() ){
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
         return;
     }
@@ -311 +311 @@
     {
         // 既にコード生成が行われている場合はエラー
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 
@@ -531 +531 @@
                     }
                     if(!(temporary[0]=='('&&temporary[lstrlen(temporary)-1]==')')){
-                        SetError(1,NULL,cp);
+                        compiler.errorMessenger.Output(1,NULL,cp);
                     }
                     RemoveStringPare(temporary);
@@ -618 +618 @@
     //With情報のメモリを解放
     for(i3=0;i3<WithInfo.num;i3++){
-        SetError(22,"With",WithInfo.pWithCp[i3]);
+        compiler.errorMessenger.Output(22,"With",WithInfo.pWithCp[i3]);
         HeapDefaultFree(WithInfo.ppName[i3]);
     }
@@ -710 +710 @@
         else
         {
-            SetError();
+            compiler.errorMessenger.OutputFatalError();
         }
     }

trunk/ab5.0/abdev/BasicCompiler32/Compile_Set_Var.cpp

@@ -50 +50 @@
     }
 
-    SetError(1,NULL,cp);
+    compiler.errorMessenger.Output(1,NULL,cp);
 }
 
@@ -155 +155 @@
     if(type==DEF_DOUBLE){
         // TODO: 実装
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
     else if(type==DEF_SINGLE){
         // TODO: 実装
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
     else if(type==DEF_INT64||type==DEF_QWORD){
@@ -180 +180 @@
         if(!IsWholeNumberType(type)){
             //不正な型の場合
-            SetError(9,NULL,cp);
+            compiler.errorMessenger.Output(9,NULL,cp);
             return;
         }
@@ -327 +327 @@
     else if(pRelative->dwKind==VAR_REFGLOBAL){
         // 今は使われていない
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
 
         if(pRelative->bOffsetOffset){

trunk/ab5.0/abdev/BasicCompiler32/Compile_Statement.cpp

@@ -16 +16 @@
             //ダブルクォートは不正なのでエラー扱い
             leftTerm[i]=0;
-            SetError(3,leftTerm,cp);
+            compiler.errorMessenger.Output(3,leftTerm,cp);
             return;
         }
@@ -48 +48 @@
         (leftTerm[0]==1&&leftTerm[1]==ESC_PSMEM)
         )){
-        SetError(1,NULL,cp);
+        compiler.errorMessenger.Output(1,NULL,cp);
         return;
     }
@@ -76 +76 @@
         if(pUserProc){
             if( !pUserProc->IsMacro() ){
-                SetError(10,Command,cp);
+                compiler.errorMessenger.Output(10,Command,cp);
             }
 
@@ -117 +117 @@
 
     // どこにも当てはまらなかったため、失敗
-    SetError(1,NULL,cp);
+    compiler.errorMessenger.Output(1,NULL,cp);
 }
 
@@ -126 +126 @@
     for(i=0;;i++){
         if(Parameter[i]=='\0'){
-            SetError(21,NULL,cp);
+            compiler.errorMessenger.Output(21,NULL,cp);
             return;
         }
@@ -355 +355 @@
     compiler.codeGenerator.ContinueAreaBegin();
 
-    if(!Parameter[0]) SetError(10,"While",cp);
+    if(!Parameter[0]) compiler.errorMessenger.Output(10,"While",cp);
 
     const PertialSchedule *pWhilePertialSchedule = NULL;
@@ -483 +483 @@
     i=GetOneParameter(Parameter,0,temporary);
     if(!Parameter[i]){
-        SetError(12,"For",cp);
+        compiler.errorMessenger.Output(12,"For",cp);
         goto ErrorStep;
     }
@@ -496 +496 @@
         }
         if(temporary[i2]=='\0'){
-            SetError(12,"For",cp);
+            compiler.errorMessenger.Output(12,"For",cp);
             goto ErrorStep;
         }
@@ -514 +514 @@
     if(Parameter[i]){
         i=GetOneParameter(Parameter,i,StepNum);
-        if(Parameter[i]) SetError(12,"For",cp);
+        if(Parameter[i]) compiler.errorMessenger.Output(12,"For",cp);
     }
     else lstrcpy(StepNum,"1");
@@ -578 +578 @@
     if(szNextVariable[0]){
         if(lstrcmp(szNextVariable,variable)!=0){
-            SetError(55,szNextVariable,cp);
+            compiler.errorMessenger.Output(55,szNextVariable,cp);
         }
     }
@@ -608 +608 @@
     GetCustomToken( variable, Parameter, i, ESC_IN, true );
     if(!Parameter[i]){
-        SetError(12,"Foreach",cp);
+        compiler.errorMessenger.Output(12,"Foreach",cp);
         isError = true;
         goto ErrorStep;
@@ -667 +667 @@
     if(szNextVariable[0]){
         if(lstrcmp(szNextVariable,variable)!=0){
-            SetError(55,szNextVariable,cp);
+            compiler.errorMessenger.Output(55,szNextVariable,cp);
         }
     }
@@ -691 +691 @@
     int i,i2,i3;
 
-    if(Parameter[0]) SetError(10,"Do",cp);
+    if(Parameter[0]) compiler.errorMessenger.Output(10,"Do",cp);
 
     //Continueアドレスのバックアップとセット
@@ -894 +894 @@
 void OpcodeExitSub(void){
     if( UserProc::IsGlobalAreaCompiling() ){
-        SetError(12,"Exit Sub/Function",cp);
+        compiler.errorMessenger.Output(12,"Exit Sub/Function",cp);
         return;
     }
@@ -942 +942 @@
             if(basbuf[i]=='\0'){
                 selectSchedules.pop_back();
-                SetError(22,"Select",cp);
+                compiler.errorMessenger.Output(22,"Select",cp);
                 return;
             }
@@ -1163 +1163 @@
 
     if(selectSchedules.back().typeSize==-1){
-        SetError(30,"Case",cp);
+        compiler.errorMessenger.Output(30,"Case",cp);
         return;
     }
@@ -1282 +1282 @@
     i=GetOneParameter(Parameter,0,temporary);
     if(!Parameter[i]){
-        SetError(1,NULL,cp);
+        compiler.errorMessenger.Output(1,NULL,cp);
         return;
     }
@@ -1291 +1291 @@
     }
     if(!resultType.IsWhole()){
-        SetError(11,Parameter,cp);
+        compiler.errorMessenger.Output(11,Parameter,cp);
         return;
     }
@@ -1300 +1300 @@
     i=GetOneParameter(Parameter,i,temporary);
     if(Parameter[i]){
-        SetError(1,NULL,cp);
+        compiler.errorMessenger.Output(1,NULL,cp);
         return;
     }

trunk/ab5.0/abdev/BasicCompiler32/Compile_Var.cpp

@@ -35 +35 @@
     else{
         //エラー
-        SetError(1,NULL,cp);
+        compiler.errorMessenger.Output(1,NULL,cp);
         return;
     }
@@ -185 +185 @@
     if( !pMember )
     {
-        if(isErrorEnabled) SetError(103,VarName,cp);
+        if(isErrorEnabled) compiler.errorMessenger.Output(103,VarName,cp);
         return false;
     }
@@ -196 +196 @@
         //同一クラスオブジェクトの場合はプライベートアクセスを容認する
         if(pMember->IsNoneAccess()){
-            if(isErrorEnabled) SetError(107,VarName,cp);
+            if(isErrorEnabled) compiler.errorMessenger.Output(107,VarName,cp);
             return false;
         }
@@ -203 +203 @@
         if((bPrivateAccess==0&&pMember->IsPrivate())||
             pMember->IsNoneAccess()){
-            if(isErrorEnabled) SetError(107,VarName,cp);
+            if(isErrorEnabled) compiler.errorMessenger.Output(107,VarName,cp);
             return false;
         }
         else if(bPrivateAccess==0&&pMember->IsProtected()){
-            if(isErrorEnabled) SetError(108,VarName,cp);
+            if(isErrorEnabled) compiler.errorMessenger.Output(108,VarName,cp);
             return false;
         }
@@ -219 +219 @@
         ){
             //Const定義の変数に書き込みアクセスをしようとした場合
-            SetError(61,VarName,cp);
+            compiler.errorMessenger.Output(61,VarName,cp);
     }
 
@@ -237 +237 @@
     else{
         if(lpPtrOffset[0]){
-            if(isErrorEnabled) SetError(16,member,cp);
+            if(isErrorEnabled) compiler.errorMessenger.Output(16,member,cp);
             return false;
         }
@@ -250 +250 @@
         //配列オフセット
         if(!GetArrayOffset(pMember->GetSubscripts(),array,pMember->GetType())){
-            if(isErrorEnabled) SetError(14,member,cp);
+            if(isErrorEnabled) compiler.errorMessenger.Output(14,member,cp);
             return false;
         }
@@ -263 +263 @@
         if( resultType.IsObject() || resultType.IsStruct() ){
             if( refType != RefDot ){
-                if(isErrorEnabled) SetError(104,member,cp);
+                if(isErrorEnabled) compiler.errorMessenger.Output(104,member,cp);
                 return false;
             }
@@ -279 +279 @@
                 if( ( resultType.IsObjectPtr() || resultType.IsStructPtr() )
                     && refType != RefDot ){
-                        if(isErrorEnabled) SetError(104,member,cp);
+                        if(isErrorEnabled) compiler.errorMessenger.Output(104,member,cp);
                         return false;
                 }
@@ -293 +293 @@
                 if( ( resultType.IsObjectPtr() || resultType.IsStructPtr() )
                     && refType != RefPointer ){
-                        if(isErrorEnabled) SetError(104,member,cp);
+                        if(isErrorEnabled) compiler.errorMessenger.Output(104,member,cp);
                         return false;
                 }
@@ -307 +307 @@
                 //ppObj[n]->member
                 if( refType != RefPointer ){
-                    if(isErrorEnabled) SetError(104,member,cp);
+                    if(isErrorEnabled) compiler.errorMessenger.Output(104,member,cp);
                     return false;
                 }
@@ -321 +321 @@
             }
             else{
-                if(isErrorEnabled) SetError(104,member,cp);
+                if(isErrorEnabled) compiler.errorMessenger.Output(104,member,cp);
                 return false;
             }
@@ -403 +403 @@
             else{
                 if(lpPtrOffset[0]){
-                    SetError(16,variable,cp);
+                    compiler.errorMessenger.Output(16,variable,cp);
                     pRelativeVar->dwKind=NON_VAR;
                     return false;
@@ -485 +485 @@
             compiler.pCompilingClass->IsCompilingDestructor() == false
             ){
-                SetError(131, NULL, cp );
+                compiler.errorMessenger.Output(131, NULL, cp );
         }
 
@@ -577 +577 @@
         }
 
-        if(isErrorEnabled) SetError(3,variable,cp);
+        if(isErrorEnabled) compiler.errorMessenger.Output(3,variable,cp);
         pRelativeVar->dwKind=NON_VAR;
         return false;
@@ -593 +593 @@
         else{
             if(lpPtrOffset[0]){
-                SetError(16,variable,cp);
+                compiler.errorMessenger.Output(16,variable,cp);
                 pRelativeVar->dwKind=NON_VAR;
                 return false;
@@ -619 +619 @@
         if( resultType.IsObject() ){
             //オブジェクト定数
-            SetError(130, VarName, cp );
+            compiler.errorMessenger.Output(130, VarName, cp );
         }
         else{
             //一般のConst変数
-            SetError(61,VarName,cp);
+            compiler.errorMessenger.Output(61,VarName,cp);
         }
     }
@@ -647 +647 @@
     if(array[0]){
         if(!GetArrayOffset(*pSubscripts,array,resultType)){
-            SetError(14,variable,cp);
+            compiler.errorMessenger.Output(14,variable,cp);
             pRelativeVar->dwKind=NON_VAR;
             return false;
@@ -656 +656 @@
             //実態オブジェクトのメンバを参照（obj.member）
             if( refType != RefDot ){
-                SetError(104,VarName,cp);
+                compiler.errorMessenger.Output(104,VarName,cp);
                 pRelativeVar->dwKind=NON_VAR;
                 return false;
@@ -671 +671 @@
                 //pObj[n].member
                 if( refType != RefDot ){
-                    SetError(104,VarName,cp);
+                    compiler.errorMessenger.Output(104,VarName,cp);
                     pRelativeVar->dwKind=NON_VAR;
                     return false;
@@ -681 +681 @@
                 //pObj->member
                 if( refType != RefPointer ){
-                    SetError(104,VarName,cp);
+                    compiler.errorMessenger.Output(104,VarName,cp);
                     pRelativeVar->dwKind=NON_VAR;
                     return false;
@@ -698 +698 @@
                 //ppObj[n]->member
                 if( refType != RefPointer ){
-                    SetError(104,VarName,cp);
+                    compiler.errorMessenger.Output(104,VarName,cp);
                     pRelativeVar->dwKind=NON_VAR;
                     return false;
@@ -713 +713 @@
             }
             else{
-                SetError(104,VarName,cp);
+                compiler.errorMessenger.Output(104,VarName,cp);
                 pRelativeVar->dwKind=NON_VAR;
                 return false;
@@ -719 +719 @@
         }
         else{
-            SetError(102,VarName,cp);
+            compiler.errorMessenger.Output(102,VarName,cp);
             pRelativeVar->dwKind=NON_VAR;
             return false;
@@ -768 +768 @@
                 while(1){
                     if( subscripts[0] < i2 ){
-                        SetError(41,0,cp);
+                        compiler.errorMessenger.Output(41,0,cp);
                         return 0;
                     }
@@ -790 +790 @@
             BOOST_FOREACH( CMember *pMember, objClass.GetDynamicMembers() ){
                 if(InitBuf[i]=='\0'){
-                    SetError(41,0,cp);
+                    compiler.errorMessenger.Output(41,0,cp);
                     return false;
                 }
@@ -806 +806 @@
         }
 
-        SetError(41,0,cp);
+        compiler.errorMessenger.Output(41,0,cp);
         return false;
     }
@@ -816 +816 @@
 
     if( subscripts.size() > 0 ){
-        SetError(41,0,cp);
+        compiler.errorMessenger.Output(41,0,cp);
         return false;
     }
@@ -931 +931 @@
                 while(1){
                     if( subscripts[0] < i2 ){
-                        SetError(41,0,cp);
+                        compiler.errorMessenger.Output(41,0,cp);
                         return 0;
                     }
@@ -953 +953 @@
             BOOST_FOREACH( CMember *pMember, objClass.GetDynamicMembers() ){
                 if(InitBuf[i]=='\0'){
-                    SetError(41,0,cp);
+                    compiler.errorMessenger.Output(41,0,cp);
                     return false;
                 }
@@ -971 +971 @@
         }
 
-        SetError(41,0,cp);
+        compiler.errorMessenger.Output(41,0,cp);
         return false;
     }
@@ -981 +981 @@
 
     if( subscripts.size() > 0 ){
-        SetError(41,0,cp);
+        compiler.errorMessenger.Output(41,0,cp);
         return false;
     }
@@ -1105 +1105 @@
         if( UserProc::CompilingUserProc().GetLocalVars().DuplicateCheck( Symbol( VarName ) ) ){
             //２重定義のエラー
-            SetError(15,VarName,cp);
+            compiler.errorMessenger.Output(15,VarName,cp);
             return;
         }
@@ -1218 +1218 @@
         else{
             if( subscripts.size() > 1 ){
-                SetError(300,NULL,cp);
+                compiler.errorMessenger.Output(300,NULL,cp);
             }
             sprintf( objectSize, "%d", subscripts[0] );
@@ -1230 +1230 @@
         GetVarOffset( true, false, VarName, &RelativeVar, Type() );
         if( RelativeVar.dwKind == VAR_DIRECTMEM ){
-            SetError();
+            compiler.errorMessenger.OutputFatalError();
         }
         SetVariableFromEax( Type( DEF_OBJECT, *compiler.GetObjectModule().meta.GetClasses().GetObjectClassPtr() ), DEF_OBJECT, &RelativeVar );
@@ -1306 +1306 @@
 void SetVarPtrToReg(int reg,RELATIVE_VAR *pRelativeVar){
     if( reg != REG_EAX ){
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
         //TODO: 未完成
     }
@@ -1315 +1315 @@
     const UserProc *pUserProc_AddGlobalRootPtr = GetClassMethod( "_System_CGarbageCollection", "AddGlobalRootPtr" );
     if( !pUserProc_AddGlobalRootPtr ){
-        SetError(3, "_System_CGarbageCollection.AddGlobalRootPtr", -1 );
+        compiler.errorMessenger.Output(3, "_System_CGarbageCollection.AddGlobalRootPtr", -1 );
         return false;
     }

trunk/ab5.0/abdev/BasicCompiler32/MakePeHdr.cpp

@@ -365 +365 @@
         // 名前空間が初期化されているかをチェック
         if( compiler.GetNamespaceSupporter().GetLivingNamespaceScopes().size() ){
-            SetError();
+            compiler.errorMessenger.OutputFatalError();
         }
 
@@ -443 +443 @@
         //With情報のメモリを解放
         for(i=0;i<WithInfo.num;i++){
-            SetError(22,"With",WithInfo.pWithCp[i]);
+            compiler.errorMessenger.Output(22,"With",WithInfo.pWithCp[i]);
             HeapDefaultFree(WithInfo.ppName[i]);
         }
@@ -451 +451 @@
         // 名前空間が正しく閉じられているかをチェック
         if( compiler.GetNamespaceSupporter().GetLivingNamespaceScopes().size() ){
-            SetError(63,NULL,-1);
+            compiler.errorMessenger.Output(63,NULL,-1);
         }
 
@@ -504 +504 @@
     }
 
-    extern BOOL bError;
-    if( !bError )
+    if( !compiler.errorMessenger.HasError() )
     {
-        CompileMessage( "リンク中..." );
+        compiler.messenger.Output( "リンク中..." );
     }
 
@@ -558 +557 @@
 
             if(!hLib){
-                SetError(-106,pDllProc->GetDllFileName().c_str(),pDllProc->GetCodePos());
+                compiler.errorMessenger.Output(-106,pDllProc->GetDllFileName().c_str(),pDllProc->GetCodePos());
             }
         }
@@ -565 +564 @@
             if(!GetProcAddress(hLib,pDllProc->GetAlias().c_str())){
                 FreeLibrary(hLib);
-                SetError(-107,pDllProc->GetAlias(),pDllProc->GetCodePos());
+                compiler.errorMessenger.Output(-107,pDllProc->GetAlias(),pDllProc->GetCodePos());
             }
             FreeLibrary(hLib);
@@ -712 +711 @@
 
         if( pDllProc->GetDllFileName().size() > 16 ){
-            SetError(7,NULL,cp);
+            compiler.errorMessenger.Output(7,NULL,cp);
             break;
         }
@@ -831 +830 @@
     CDebugSection *pobj_DebugSection;
     pobj_DebugSection=new CDebugSection();
-    extern BOOL bError;
-    if( compiler.IsDebug() && bError == 0 )
+    if( compiler.IsDebug() && !compiler.errorMessenger.HasError() )
     {
-        CompileMessage( "デバッグ情報を生成しています。" );
+        compiler.messenger.Output( "デバッグ情報を生成しています。" );
 
         pobj_DebugSection->make();
 
-        CompileMessage( "デバッグ情報の生成が完了しました。" );
+        compiler.messenger.Output( "デバッグ情報の生成が完了しました。" );
     }
 
@@ -1122 +1120 @@
 
 
-    extern BOOL bError;
-    if(bError) goto EndWriteOpcode;
+    if( compiler.errorMessenger.HasError() )
+    {
+        goto EndWriteOpcode;
+    }
 
 
@@ -1414 +1414 @@
     hFile=CreateFile(OutputFileName,GENERIC_WRITE,0,NULL,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,NULL);
     if(hFile==INVALID_HANDLE_VALUE){
-        SetError(53,OutputFileName,-1);
+        compiler.errorMessenger.Output(53,OutputFileName,-1);
         goto EndWriteOpcode;
     }

trunk/ab5.0/abdev/BasicCompiler32/NumOpe.cpp

@@ -59 +59 @@
     }
     else{
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 }
@@ -79 +79 @@
 void ExtendRegToBigType( int reg, int bigBasicType, int baseBasicType ){
     if( reg != REG_EAX ){
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
     switch( Type::GetBasicSize( bigBasicType ) ){
@@ -190 +190 @@
                 // オブジェクトメンバのポインタをeaxにコピー
                 if( !VarToReg( tempRelativeVar, baseType, resultType ) ){
-                    SetError(11,termFull,cp);
+                    compiler.errorMessenger.Output(11,termFull,cp);
                 }
 
@@ -224 +224 @@
             if( !leftType.IsStruct() )
             {
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
             }
 
@@ -332 +332 @@
     {
         // 関数ポインタ
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
 
         ///////////////////////////////////////////////////////////////////
@@ -342 +342 @@
     }
 
-    SetError();
+    compiler.errorMessenger.OutputFatalError();
 
     return false;
@@ -400 +400 @@
             if( isProcedureCallOnly )
             {
-                SetError(1,NULL,cp);
+                compiler.errorMessenger.Output(1,NULL,cp);
             }
             return false;
@@ -432 +432 @@
         if( compiler.pCompilingClass == NULL )
         {
-            SetError(142,NULL,cp);
+            compiler.errorMessenger.Output(142,NULL,cp);
             return false;
         }
@@ -465 +465 @@
             {
                 //閉じカッコ")"に続く文字がNULLでないとき
-                SetError(42,NULL,cp);
+                compiler.errorMessenger.Output(42,NULL,cp);
             }
 
@@ -525 +525 @@
 
                 //閉じカッコ")"に続く文字がNULLでないときはエラーにする
-                if(termFull[i2+1+i4+1]!='\0') SetError(42,NULL,cp);
+                if(termFull[i2+1+i4+1]!='\0') compiler.errorMessenger.Output(42,NULL,cp);
 
                 //マクロ関数の場合
@@ -629 +629 @@
     if( isProcedureCallOnly )
     {
-        SetError(3, termLeft, cp );
+        compiler.errorMessenger.Output(3, termLeft, cp );
     }
 
@@ -645 +645 @@
         // 変数の場合はeaxに変数ポインタを格納する
         if( !VarToReg( relativeVar, baseType, resultType ) ){
-            SetError(11,term,cp);
+            compiler.errorMessenger.Output(11,term,cp);
         }
     }
@@ -658 +658 @@
     if( !isVariable )
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 
@@ -678 +678 @@
     if( reg != REG_EAX ){
         // TODO: 未実装
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 
@@ -708 +708 @@
 
     if(expression[0]=='\0'){
-        SetError(1,NULL,cp);
+        compiler.errorMessenger.Output(1,NULL,cp);
         return false;
     }
@@ -863 +863 @@
                         else GetCalcName(idCalc,temp2);
                         sprintf(temporary,"Operator %s",temp2);
-                        SetError(27,temporary,cp);
+                        compiler.errorMessenger.Output(27,temporary,cp);
                         goto error;
                     }
@@ -892 +892 @@
                     }
                     else{
-                        SetError(3, term, cp );
+                        compiler.errorMessenger.Output(3, term, cp );
                         goto error;
                     }
@@ -918 +918 @@
                         // 拡張版リテラル文字列（エスケープシーケンス可能）
                         if(!RemoveStringQuotes(term+2)){
-                            SetError(43,NULL,cp);
+                            compiler.errorMessenger.Output(43,NULL,cp);
                             goto error;
                         }
@@ -928 +928 @@
                         // 通常文字列
                         if(!RemoveStringQuotes(term)){
-                            SetError(43,NULL,cp);
+                            compiler.errorMessenger.Output(43,NULL,cp);
                             goto error;
                         }
@@ -976 +976 @@
                                 }
                             }
-                            SetError(38,term,cp);
+                            compiler.errorMessenger.Output(38,term,cp);
 
                             goto error;
@@ -990 +990 @@
                         if( resultType.GetBasicType() & FLAG_CAST ){
                             // 型名のみ
-                            SetError();
+                            compiler.errorMessenger.OutputFatalError();
                         }
                         else{
@@ -1087 +1087 @@
                         }
                         else{
-                            SetError(300,NULL,cp);
+                            compiler.errorMessenger.Output(300,NULL,cp);
                             goto error;
                         }
@@ -1095 +1095 @@
                     //該当する識別子が見当たらないときはエラー扱いにする
                     bError=1;
-                    SetError(3,term,cp);
+                    compiler.errorMessenger.Output(3,term,cp);
                     type_stack[sp]=DEF_DOUBLE;
                 }
@@ -1243 +1243 @@
                 if( PTR_LEVEL( type_stack[sp-1] ) <= 0 ){
                     //ポインタ型ではないとき
-                    SetError( 3, NULL, cp );
+                    compiler.errorMessenger.Output( 3, NULL, cp );
                     goto error;
                 }
@@ -1252 +1252 @@
 
             default:
-                SetError(300,NULL,cp);
+                compiler.errorMessenger.Output(300,NULL,cp);
                 goto error;
         }
@@ -1260 +1260 @@
 
     if(sp!=1){
-        SetError(1,NULL,cp);
+        compiler.errorMessenger.Output(1,NULL,cp);
         goto error;
     }
@@ -1266 +1266 @@
     if(bLiteralCalculation){
         //右辺値が数値の定数式の場合
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
     else{

trunk/ab5.0/abdev/BasicCompiler32/NumOpe_Arithmetic.cpp

@@ -999 +999 @@
     int castBasicType = type[sp-1];
     if((castBasicType&FLAG_CAST)==0){
-        SetError(47,NULL,cp);
+        compiler.errorMessenger.Output(47,NULL,cp);
         return 0;
     }

trunk/ab5.0/abdev/BasicCompiler32/NumOpe_Logical.cpp

@@ -15 +15 @@
     if(IsRealNumberType(type[sp-2])||IsRealNumberType(type[sp-1])){
         //いずれかの項が実数のとき
-        SetError(45,"xor",cp);
+        compiler.errorMessenger.Output(45,"xor",cp);
         return 0;
     }
@@ -158 +158 @@
     if(IsRealNumberType(type[sp-2])||IsRealNumberType(type[sp-1])){
         //いずれかの項が実数のとき
-        SetError(45,"or",cp);
+        compiler.errorMessenger.Output(45,"or",cp);
         return 0;
     }
@@ -301 +301 @@
     if(IsRealNumberType(type[sp-2])||IsRealNumberType(type[sp-1])){
         //いずれかの項が実数のとき
-        SetError(45,"and",cp);
+        compiler.errorMessenger.Output(45,"and",cp);
         return 0;
     }
@@ -441 +441 @@
     if(IsRealNumberType(type[sp-1])){
         //実数のとき
-        SetError(45,"Not",cp);
+        compiler.errorMessenger.Output(45,"Not",cp);
         return 0;
     }

trunk/ab5.0/abdev/BasicCompiler32/NumOpe_Relation.cpp

@@ -24 +24 @@
         }
         else{
-            SetError();
+            compiler.errorMessenger.OutputFatalError();
         }
     }*/

trunk/ab5.0/abdev/BasicCompiler32/OperatorProc.cpp

@@ -7 +7 @@
 
 void FreeTempObject(int reg,const CClass *pobj_c){
-    if(!IsSafeReg(reg)) SetError(300,NULL,cp);
+    if(!IsSafeReg(reg)) compiler.errorMessenger.Output(300,NULL,cp);
 
     const CMethod *method = pobj_c->GetDestructorMethod();
@@ -231 +231 @@
     if(bCalcUseHeap){
         //未解放のインスタンスが存在する旨を示す警告
-        SetError(-105,NULL,cp);
+        compiler.errorMessenger.Output(-105,NULL,cp);
     }
 
@@ -255 +255 @@
 
     //エラーを発行
-    SetError(-1,"キャスト演算子がオーバーロードされていません。",cp);
+    compiler.errorMessenger.Output(-1,"キャスト演算子がオーバーロードされていません。",cp);
 }
 void CallIndexerGetterProc( const Type &classType, const char *ObjectName, char *Parameter,Type &resultType, DWORD dwProcFlags ){

trunk/ab5.0/abdev/BasicCompiler32/stdafx.h

@@ -22 +22 @@
 #include <jenga/include/common/File.h>
 #include <jenga/include/common/CmdLine.h>
+#include <jenga/include/common/Path.h>
 
 #include "../BasicCompiler_Common/common.h"

trunk/ab5.0/abdev/BasicCompiler32/x86CodeGenerator.cpp

@@ -30 +30 @@
         || mod == MOD_REG ) )
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
     if( isPertialSchedule && !( mod == MOD_DISP32 || mod == MOD_BASE_DISP32 ) )
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 
@@ -972 +972 @@
     if(type==DEF_DOUBLE)        pNativeCode->Put( (char)0xDD );
     else if(type==DEF_SINGLE)   pNativeCode->Put( (char)0xD9 );
-    else SetError(300,NULL,cp);
+    else compiler.errorMessenger.Output(300,NULL,cp);
 
     if(base_reg==REG_ESP){
@@ -993 +993 @@
     if(type==DEF_DOUBLE)        pNativeCode->Put( (char)0xDD );
     else if(type==DEF_SINGLE)   pNativeCode->Put( (char)0xD9 );
-    else SetError(300,NULL,cp);
+    else compiler.errorMessenger.Output(300,NULL,cp);
 
     //オペコード、レジスタ
@@ -1027 +1027 @@
     if(type==DEF_DOUBLE)        pNativeCode->Put( (char)0xDD );
     else if(type==DEF_SINGLE)   pNativeCode->Put( (char)0xD9 );
-    else SetError(300,NULL,cp);
+    else compiler.errorMessenger.Output(300,NULL,cp);
 
     int reg=0;
@@ -1069 +1069 @@
     if(type==DEF_DOUBLE)        pNativeCode->Put( (char)0xDD );
     else if(type==DEF_SINGLE)   pNativeCode->Put( (char)0xD9 );
-    else SetError(300,NULL,cp);
+    else compiler.errorMessenger.Output(300,NULL,cp);
 
     if(base_reg==REG_ESP){
@@ -1090 +1090 @@
     if(type==DEF_DOUBLE)        pNativeCode->Put( (char)0xDD );
     else if(type==DEF_SINGLE)   pNativeCode->Put( (char)0xD9 );
-    else SetError(300,NULL,cp);
+    else compiler.errorMessenger.Output(300,NULL,cp);
 
     //オペコード、レジスタ
@@ -1124 +1124 @@
     if(type==DEF_DOUBLE)        pNativeCode->Put( (char)0xDD );
     else if(type==DEF_SINGLE)   pNativeCode->Put( (char)0xD9 );
-    else SetError(300,NULL,cp);
+    else compiler.errorMessenger.Output(300,NULL,cp);
 
     int reg=0;
@@ -1182 +1182 @@
     }
     else{
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 }

trunk/ab5.0/abdev/BasicCompiler_Common/BasicCompiler.cpp

@@ -299 +299 @@
             SendMessage(hwnd,EM_GETSEL,(WPARAM)&pos,0);
             i=(int)SendMessage(hwnd,EM_LINEFROMCHAR,pos,0);
-            ShowErrorLine(pErrorInfo[i].line,pErrorInfo[i].FileName);
+            compiler.errorMessenger.ShowErrorLine( i );
 
             StartPos=(int)SendMessage(hwnd,EM_LINEINDEX,i,0);
@@ -808 +808 @@
     lstrcat(BasicCurDir,temporary);
 
-    //エラーリスト情報を初期化
-    pErrorInfo=(ERRORINFO *)HeapAlloc(hHeap,0,1);
-    ErrorNum=0;
-    CompileMsgNum=0;
-    WarningNum=0;
-    bError=0;
-
     if(bClipCompileView){
         //ProjectEditor埋め込み型インターフェイス
@@ -859 +852 @@
     }
 
-    //エラーリスト情報を解放
-    for(i=0;i<ErrorNum;i++){
-        if(pErrorInfo[i].FileName) HeapDefaultFree(pErrorInfo[i].FileName);
-    }
-    HeapDefaultFree(pErrorInfo);
-
     //不揮発性データを保存
     pobj_nv->save();

trunk/ab5.0/abdev/BasicCompiler_Common/BasicCompiler.h

@@ -22 +22 @@
 DWORD ImageBase;
 
-ERRORINFO *pErrorInfo;
-int ErrorNum;
-int CompileMsgNum;
-int WarningNum;
-BOOL bError;
 char **SynonymErrorWords;
 int SynonymErrorNum;

trunk/ab5.0/abdev/BasicCompiler_Common/CommandFormat.cpp

@@ -28 +28 @@
         for(i2=0;;i++,i2++){
             if(Parameter[i]=='\0'){
-                SetError(1,NULL,nowLine);
+                compiler.errorMessenger.Output(1,NULL,nowLine);
                 return;
             }
@@ -41 +41 @@
         else if(lstrcmpi(temporary,"append")==0) lstrcat(buffer,",3");
         else{
-            SetError(1,NULL,nowLine);
+            compiler.errorMessenger.Output(1,NULL,nowLine);
             return;
         }
@@ -77 +77 @@
     else{
         if(Parameter[0]!='('){
-            SetError(10,"Line",nowLine);
+            compiler.errorMessenger.Output(10,"Line",nowLine);
             return;
         }
@@ -95 +95 @@
 
         if(Parameter[i+1]!='-'){
-            SetError(10,"Line",nowLine);
+            compiler.errorMessenger.Output(10,"Line",nowLine);
             return;
         }
@@ -109 +109 @@
 
     if(Parameter[i]!='('){
-        SetError(10,"Line",nowLine);
+        compiler.errorMessenger.Output(10,"Line",nowLine);
         return;
     }
@@ -131 +131 @@
     }
     else if(Parameter[i+1]!=','){
-        SetError(10,"Line",nowLine);
+        compiler.errorMessenger.Output(10,"Line",nowLine);
         return;
     }
@@ -149 +149 @@
     else if(lstrcmpi(temporary,"bf")==0) lstrcat(buffer,",2");
     else{
-        SetError(10,"Line",nowLine);
+        compiler.errorMessenger.Output(10,"Line",nowLine);
         return;
     }
@@ -160 +160 @@
     i=GetOneParameter(Parameter,i,temporary);   //第７パラメータ取得
     if(Parameter[i-1]==','){
-        SetError(10,"Line",nowLine);
+        compiler.errorMessenger.Output(10,"Line",nowLine);
         return;
     }
@@ -174 +174 @@
 
     if(Parameter[0]!='('){
-        SetError(10,"Circle",nowLine);
+        compiler.errorMessenger.Output(10,"Circle",nowLine);
         return;
     }
@@ -191 +191 @@
     i++;
     if(Parameter[i]!=','){
-        SetError(10,"Circle",nowLine);
+        compiler.errorMessenger.Output(10,"Circle",nowLine);
         return;
     }
@@ -243 +243 @@
     }
     else{
-        SetError(10,"Circle",nowLine);
+        compiler.errorMessenger.Output(10,"Circle",nowLine);
         return;
     }
@@ -253 +253 @@
         lstrcat(buffer,temporary);
         if(Parameter[i-1]==','){
-            SetError(10,"Circle",nowLine);
+            compiler.errorMessenger.Output(10,"Circle",nowLine);
             return;
         }
@@ -268 +268 @@
 
     if(Parameter[0]!='('){
-        SetError(10,"PSet",nowLine);
+        compiler.errorMessenger.Output(10,"PSet",nowLine);
         return;
     }
@@ -286 +286 @@
     else if(Parameter[i+1]=='\0') lstrcat(buffer,",7");
     else{
-        SetError(10,"PSet",nowLine);
+        compiler.errorMessenger.Output(10,"PSet",nowLine);
         return;
     }
@@ -296 +296 @@
 
     if(Parameter[0]!='('){
-        SetError(10,"Paint",nowLine);
+        compiler.errorMessenger.Output(10,"Paint",nowLine);
         return;
     }
@@ -311 +311 @@
     }
     if(Parameter[i+1]!=','){
-        SetError(10,"Paint",nowLine);
+        compiler.errorMessenger.Output(10,"Paint",nowLine);
         return;
     }

trunk/ab5.0/abdev/BasicCompiler_Common/Compile.cpp

@@ -87 +87 @@
         if( !pTypeParameterBaseClassNames )
         {
-            SetError();
+            compiler.errorMessenger.OutputFatalError();
         }
         pTypeParameterBaseClassNames->clear();
@@ -113 +113 @@
             {
                 extern int cp;
-                SetError(1,NULL,cp);
+                compiler.errorMessenger.Output(1,NULL,cp);
             }
             typeParameters.push_back( temporary );
@@ -129 +129 @@
                     {
                         extern int cp;
-                        SetError(1,NULL,cp);
+                        compiler.errorMessenger.Output(1,NULL,cp);
                     }
                 }
@@ -150 +150 @@
             {
                 extern int cp;
-                SetError(1,NULL,cp);
+                compiler.errorMessenger.Output(1,NULL,cp);
             }
         }
@@ -181 +181 @@
             char temporary[64];
             GetDefaultNameFromES( cStatement, temporary );
-            SetError( 22, temporary, pos );
+            compiler.errorMessenger.Output( 22, temporary, pos );
             return -1;
         }
@@ -247 +247 @@
                 if( UserProc::IsLocalAreaCompiling() ){
                     // ローカル領域をコンパイルしているとき
-                    SetError(65,"TypeDef",cp );
+                    compiler.errorMessenger.Output(65,"TypeDef",cp );
                 }
 
@@ -256 +256 @@
                 if( UserProc::IsLocalAreaCompiling() ){
                     // ローカル領域をコンパイルしているとき
-                    SetError(65,"Delegate",cp );
+                    compiler.errorMessenger.Output(65,"Delegate",cp );
                 }
 
@@ -273 +273 @@
                     LexicalScope *pScope = compiler.codeGenerator.lexicalScopes.SearchScope( LexicalScope::SCOPE_TYPE_WHILE );
                     if( !pScope ){
-                        SetError(12,"Exit While",cp);
+                        compiler.errorMessenger.Output(12,"Exit While",cp);
                         return;
                     }
@@ -283 +283 @@
                     LexicalScope *pScope = compiler.codeGenerator.lexicalScopes.SearchScope( LexicalScope::SCOPE_TYPE_FOR );
                     if( !pScope ){
-                        SetError(12,"Exit For",cp);
+                        compiler.errorMessenger.Output(12,"Exit For",cp);
                         return;
                     }
@@ -293 +293 @@
                     LexicalScope *pScope = compiler.codeGenerator.lexicalScopes.SearchScope( LexicalScope::SCOPE_TYPE_DO );
                     if( !pScope ){
-                        SetError(12,"Exit Do",cp);
+                        compiler.errorMessenger.Output(12,"Exit Do",cp);
                         return;
                     }
@@ -331 +331 @@
             case ESC_ENDWITH:
                 if(WithInfo.num<=0){
-                    SetError(12,"End With",cp);
+                    compiler.errorMessenger.Output(12,"End With",cp);
                     return;
                 }
@@ -340 +340 @@
                 if( UserProc::IsLocalAreaCompiling() ){
                     // ローカル領域をコンパイルしているとき
-                    SetError(65,"Declare",cp );
+                    compiler.errorMessenger.Output(65,"Declare",cp );
                 }
                 break;
@@ -349 +349 @@
             case ESC_ENDNAMESPACE:
                 if( compiler.GetNamespaceSupporter().GetLivingNamespaceScopes().size() <= 0 ){
-                    SetError(12,"End Namespace",cp);
+                    compiler.errorMessenger.Output(12,"End Namespace",cp);
                 }
                 compiler.GetNamespaceSupporter().GetLivingNamespaceScopes().pop_back();
@@ -380 +380 @@
                 char temporary[64];
                 GetDefaultNameFromES(Command[1],temporary);
-                SetError(30,temporary,cp);
+                compiler.errorMessenger.Output(30,temporary,cp);
                 break;
         }
@@ -502 +502 @@
                 while(!(basbuf[cp]==1&&basbuf[cp+1]==ESC_ENDSUB)){
                     if(basbuf[cp]=='\0'){
-                        SetError(22,"Sub",i2);
+                        compiler.errorMessenger.Output(22,"Sub",i2);
                         break;
                     }
@@ -516 +516 @@
                 while(!(basbuf[cp]==1&&basbuf[cp+1]==ESC_ENDFUNCTION)){
                     if(basbuf[cp]=='\0'){
-                        SetError(22,"Function",i2);
+                        compiler.errorMessenger.Output(22,"Function",i2);
                         break;
                     }
@@ -530 +530 @@
                 while(!(basbuf[cp]==1&&basbuf[cp+1]==ESC_ENDMACRO)){
                     if(basbuf[cp]=='\0'){
-                        SetError(22,"Macro",i2);
+                        compiler.errorMessenger.Output(22,"Macro",i2);
                         break;
                     }
@@ -544 +544 @@
                 while(!(basbuf[cp]==1&&basbuf[cp+1]==ESC_ENDTYPE)){
                     if(basbuf[cp]=='\0'){
-                        SetError(22,"Type",i2);
+                        compiler.errorMessenger.Output(22,"Type",i2);
                         break;
                     }
@@ -558 +558 @@
                 while(!(basbuf[cp]==1&&basbuf[cp+1]==ESC_ENDCLASS)){
                     if(basbuf[cp]=='\0'){
-                        SetError(22,"Class",i2);
+                        compiler.errorMessenger.Output(22,"Class",i2);
                         break;
                     }
@@ -572 +572 @@
                 while(!(basbuf[cp]==1&&basbuf[cp+1]==ESC_ENDINTERFACE)){
                     if(basbuf[cp]=='\0'){
-                        SetError(22,"Interface",i2);
+                        compiler.errorMessenger.Output(22,"Interface",i2);
                         break;
                     }
@@ -686 +686 @@
                 }
                 if(Return_Sequence){
-                    SetError(12,temporary,cp);
+                    compiler.errorMessenger.Output(12,temporary,cp);
                     break;
                 }
@@ -703 +703 @@
                                 basbuf[cp+1]==ESC_ENUM){
                                 GetDefaultNameFromES(basbuf[cp+1],temp3);
-                                SetError(12,temp3,cp);
+                                compiler.errorMessenger.Output(12,temp3,cp);
                             }
                         }
@@ -718 +718 @@
                                 basbuf[cp+1]==ESC_ENUM)){
                                 GetDefaultNameFromES(basbuf[cp+1],temp3);
-                                SetError(12,temp3,cp);
+                                compiler.errorMessenger.Output(12,temp3,cp);
                             }
                         }
@@ -774 +774 @@
                 switch(Return_Command){
                     case COM_WEND:
-                        SetError(4,"\"While\" - \"Wend\" ",ScopeStart);
+                        compiler.errorMessenger.Output(4,"\"While\" - \"Wend\" ",ScopeStart);
                         break;
                     case COM_NEXT:
-                        SetError(4,"\"For\" - \"Next\" ",ScopeStart);
+                        compiler.errorMessenger.Output(4,"\"For\" - \"Next\" ",ScopeStart);
                         break;
                     case COM_LOOP:
-                        SetError(4,"\"Do\" - \"Loop\" ",ScopeStart);
+                        compiler.errorMessenger.Output(4,"\"Do\" - \"Loop\" ",ScopeStart);
                         break;
                 }
                 switch(Return_Sequence){
                     case ESC_ENDSUB:
-                        SetError(4,"\"Sub\" - \"End Sub\" ",ScopeStart);
+                        compiler.errorMessenger.Output(4,"\"Sub\" - \"End Sub\" ",ScopeStart);
                         break;
                     case ESC_ENDFUNCTION:
-                        SetError(4,"\"Function\" - \"End Function\" ",ScopeStart);
+                        compiler.errorMessenger.Output(4,"\"Function\" - \"End Function\" ",ScopeStart);
                         break;
                     case ESC_ENDMACRO:
-                        SetError(4,"\"Macro\" - \"End Macro\" ",ScopeStart);
+                        compiler.errorMessenger.Output(4,"\"Macro\" - \"End Macro\" ",ScopeStart);
                         break;
                     case ESC_ENDIF:
-                        SetError(22,"If",ScopeStart);
+                        compiler.errorMessenger.Output(22,"If",ScopeStart);
                         break;
                 }

trunk/ab5.0/abdev/BasicCompiler_Common/Intermediate_Step1.cpp

@@ -130 +130 @@
             if(bracket[PareNum]!=0||PareNum<0){
                 //"カッコ \'( )\'"
-                SetError(4,STRING_PARENTHESIS,i);
+                compiler.errorMessenger.Output(4,STRING_PARENTHESIS,i);
                 return;
             }
@@ -138 +138 @@
             if(bracket[PareNum]!=1||PareNum<0){
                 //"カッコ \'( )\'"
-                SetError(4,STRING_PARENTHESIS,i);
+                compiler.errorMessenger.Output(4,STRING_PARENTHESIS,i);
                 return;
             }
@@ -146 +146 @@
 
             //"カッコ \'( )\'"
-            if(PareNum!=0) SetError(4,STRING_PARENTHESIS,i);
-
-            if(IsStr!=0) SetError(5,NULL,i);
+            if(PareNum!=0) compiler.errorMessenger.Output(4,STRING_PARENTHESIS,i);
+
+            if(IsStr!=0) compiler.errorMessenger.Output(5,NULL,i);
             if(buffer[i]=='\0') break;
             PareNum=0;
@@ -161 +161 @@
                 //全角スペース
                 if(buffer[i]==(char)0x81&&buffer[i+1]==(char)0x40)
-                    SetError(20,NULL,i);
+                    compiler.errorMessenger.Output(20,NULL,i);
 
                 //その他の全角文字
-                else SetError(8,NULL,i);
+                else compiler.errorMessenger.Output(8,NULL,i);
                 sw=1;
             }
@@ -259 +259 @@
                 while(basbuf[i2]==' '||basbuf[i2]=='\t') i2++;
                 if(basbuf[i2]!='\"'){
-                    SetError(1,NULL,i2);
+                    compiler.errorMessenger.Output(1,NULL,i2);
                     return;
                 }
@@ -317 +317 @@
                 while(basbuf[i2]==' '||basbuf[i2]=='\t') i2++;
                 if(basbuf[i2]!='\"'){
-                    SetError(1,NULL,i2);
+                    compiler.errorMessenger.Output(1,NULL,i2);
                     return;
                 }
@@ -1021 +1021 @@
             while(buffer[i]==' '||buffer[i]=='\t') i++;
             if(buffer[i]!='('){
-                SetError(1,NULL,i);
+                compiler.errorMessenger.Output(1,NULL,i);
                 return;
             }
@@ -1047 +1047 @@
             while(buffer[i]==' '||buffer[i]=='\t') i++;
             if(buffer[i]!='='){
-                SetError(1,NULL,i);
+                compiler.errorMessenger.Output(1,NULL,i);
                 break;
             }
@@ -1243 +1243 @@
                         if(FuncNum!=0){
                             if(FuncType==ESC_FUNCTION)
-                                SetError(54,"End Function",FuncPtr);
+                                compiler.errorMessenger.Output(54,"End Function",FuncPtr);
                             else if(FuncType==ESC_SUB)
-                                SetError(54,"End Sub",FuncPtr);
+                                compiler.errorMessenger.Output(54,"End Sub",FuncPtr);
                             else if(FuncType==ESC_MACRO)
-                                SetError(54,"End Macro",FuncPtr);
+                                compiler.errorMessenger.Output(54,"End Macro",FuncPtr);
                             return;
                         }
@@ -1265 +1265 @@
                         if(FuncNum!=0||i3!=FuncType){
                             if(basbuf[i2+1]==ESC_ENDFUNCTION)
-                                SetError(12,"End Function",i2);
+                                compiler.errorMessenger.Output(12,"End Function",i2);
                             else if(basbuf[i2+1]==ESC_ENDSUB)
-                                SetError(12,"End Sub",i2);
+                                compiler.errorMessenger.Output(12,"End Sub",i2);
                             else if(basbuf[i2+1]==ESC_ENDMACRO)
-                                SetError(12,"End Macro",i2);
+                                compiler.errorMessenger.Output(12,"End Macro",i2);
                             return;
                         }

trunk/ab5.0/abdev/BasicCompiler_Common/Intermediate_Step2.cpp

@@ -21 +21 @@
         }
         if(!IsVariableChar(buffer[i])){
-            SetError(1,NULL,i);
+            compiler.errorMessenger.Output(1,NULL,i);
             break;
         }
@@ -28 +28 @@
 
     if(buffer[i]=='\0'){
-        SetError(22,"Enum",cp);
+        compiler.errorMessenger.Output(22,"Enum",cp);
         return;
     }
@@ -51 +51 @@
         if(temporary[0]=='\0'){
             if(buffer[i]=='\0'){
-                SetError(22,"Enum",cp);
+                compiler.errorMessenger.Output(22,"Enum",cp);
                 break;
             }
@@ -109 +109 @@
         else if( basbuf[i] == 1 && basbuf[i+1] == ESC_ENDNAMESPACE ){
             if( namespaceScopes.size() <= 0 ){
-                SetError(12, "End Namespace", i );
+                compiler.errorMessenger.Output(12, "End Namespace", i );
             }
             else{

trunk/ab5.0/abdev/BasicCompiler_Common/MakeExe.cpp

@@ -43 +43 @@
     extern HANDLE hHeap;
     extern char *basbuf;
-    extern int ErrorNum;
     extern BOOL bStopCompile;
     extern HWND hMainDlg;
@@ -71 +70 @@
     compiler.GetObjectModule().GetSources().push_back( BasicSource() );
     if( !compiler.GetObjectModule().GetCurrentSource().ReadFile( SourceFileName ) ){
-        SetError(201,SourceFileName,-1);
+        compiler.errorMessenger.Output(201,SourceFileName,-1);
         goto EndCompile;
     }
@@ -80 +79 @@
     else ImageBase=0x00400000;
 
-    extern BOOL bError;
-    if(bError||bStopCompile) goto EndCompile;
+    if( compiler.errorMessenger.HasError() || bStopCompile ) goto EndCompile;
 
 
@@ -89 +87 @@
 
     //"最適化中..."
-    CompileMessage(STRING_COMPILE_OPTIMIZING);
+    compiler.messenger.Output( STRING_COMPILE_OPTIMIZING );
 
     //カッコを相互チェック（ダブルクォートチェックチェックを含む）
     CheckParenthesis(basbuf);
 
-    if(bError||bStopCompile) goto EndCompile;
+    if( compiler.errorMessenger.HasError() || bStopCompile )
+    {
+        goto EndCompile;
+    }
 
     //コンパイルダイアログのプログレスバーを上げる
@@ -117 +118 @@
     //CheckPareCommand();
 
-    if(bError||bStopCompile) goto EndCompile;
+    if( compiler.errorMessenger.HasError() || bStopCompile )
+    {
+        goto EndCompile;
+    }
 
     //コンパイルダイアログのプログレスバーを上げる
@@ -136 +140 @@
     SynonymErrorWords=0;
 
-    if(bError||bStopCompile){
+    if( compiler.errorMessenger.HasError() || bStopCompile )
+    {
         //定数に関する情報を解放
         goto EndCompile;
@@ -175 +180 @@
                 if( compiler.staticLibraries.back()->Read( coreFilePath ) )
                 {
-                    CompileMessage( ((string)"\"" + path.GetFileName() + path.GetExt() + "\" を読み込みました。").c_str() );
+                    compiler.messenger.Output( ((string)"\"" + path.GetFileName() + path.GetExt() + "\" を読み込みました。").c_str() );
                 }
                 else
                 {
-                    CompileMessage( ((string)"\"" + path.GetFileName() + path.GetExt() + "\" ファイルが壊れています。").c_str() );
+                    compiler.messenger.Output( ((string)"\"" + path.GetFileName() + path.GetExt() + "\" ファイルが壊れています。").c_str() );
                     isSuccessfulLoadStaticLinkLibrary = false;
                 }
@@ -185 +190 @@
             else
             {
-                CompileMessage( ((string)"\"" + path.GetFileName() + path.GetExt() + "\" ファイルが存在しません。").c_str() );
+                compiler.messenger.Output( ((string)"\"" + path.GetFileName() + path.GetExt() + "\" ファイルが存在しません。").c_str() );
                 isSuccessfulLoadStaticLinkLibrary = false;
             }
@@ -198 +203 @@
                 if( compiler.staticLibraries.back()->Read( filePath ) )
                 {
-                    CompileMessage( ((string)"\"" + path.GetFileName() + path.GetExt() + "\" を読み込みました。").c_str() );
+                    compiler.messenger.Output( ((string)"\"" + path.GetFileName() + path.GetExt() + "\" を読み込みました。").c_str() );
                 }
                 else
                 {
-                    CompileMessage( ((string)"\"" + path.GetFileName() + path.GetExt() + "\" ファイルが壊れています。").c_str() );
+                    compiler.messenger.Output( ((string)"\"" + path.GetFileName() + path.GetExt() + "\" ファイルが壊れています。").c_str() );
                     isSuccessfulLoadStaticLinkLibrary = false;
                 }
@@ -208 +213 @@
             else
             {
-                CompileMessage( ((string)"\"" + path.GetFileName() + path.GetExt() + "\" ファイルが存在しません。").c_str() );
+                compiler.messenger.Output( ((string)"\"" + path.GetFileName() + path.GetExt() + "\" ファイルが存在しません。").c_str() );
                 isSuccessfulLoadStaticLinkLibrary = false;
             }
@@ -225 +230 @@
 
     //"コンパイル中..."
-    CompileMessage(STRING_COMPILE_COMPILING);
+    compiler.messenger.Output(STRING_COMPILE_COMPILING);
 
     Compile();
@@ -248 +253 @@
 
         //"コンパイルはユーザーにより中断されました。"
-        CompileMessage(STRING_COMPILE_STOP);
+        compiler.messenger.Output(STRING_COMPILE_STOP);
     }
     else{
-        extern int CompileMsgNum;
         extern int WarningNum;
-        if(bError==0){
+        if( !compiler.errorMessenger.HasError() )
+        {
             //"コンパイルは正常に完了しました（エラー:%d、警告:%d）"
             sprintf(temp2,
                 STRING_COMPILE_SUCCESS,
-                ErrorNum-CompileMsgNum-WarningNum,
-                WarningNum,
+                compiler.errorMessenger.GetErrorCount(),
+                compiler.errorMessenger.GetWarningCount(),
                 ((double)(GetTickCount() - beforeTickCount))/1000
             );
         }
-        else{
+        else
+        {
             //"コンパイルは中断されました（エラー:%d、警告:%d）"
-            sprintf(temp2,STRING_COMPILE_ERROR,ErrorNum-CompileMsgNum-WarningNum,WarningNum);
-        }
-
-        CompileMessage("");
-        CompileMessage("-----------------------------------------------------");
-        CompileMessage(temp2);
+            sprintf(temp2,STRING_COMPILE_ERROR,
+                compiler.errorMessenger.GetErrorCount(),
+                compiler.errorMessenger.GetWarningCount() );
+        }
+
+        compiler.messenger.Output( "" );
+        compiler.messenger.Output( "-----------------------------------------------------" );
+        compiler.messenger.Output( temp2 );
     }
 
@@ -282 +290 @@
 int MainThread(DWORD dummy){
     extern BOOL bDebugRun;
-    extern int bError;
 
     if(bDebugRun){
@@ -296 +303 @@
 
         //デバッグ実行
-        if(bError==0) DebugProgram();
+        if( !compiler.errorMessenger.HasError() )
+        {
+            DebugProgram();
+        }
     }
     else{

trunk/ab5.0/abdev/BasicCompiler_Common/NumOpe_GetType.cpp

@@ -61 +61 @@
     if(!type){
         extern int cp;
-        SetError(300,NULL,cp);
+        compiler.errorMessenger.Output(300,NULL,cp);
     }
 
@@ -86 +86 @@
             if(IsRealNumberType(type[sp-2])||IsRealNumberType(type[sp-1])){
                 //いずれかの項が実数のとき
-                SetError(45,temporary,cp);
+                compiler.errorMessenger.Output(45,temporary,cp);
                 return 0;
             }
@@ -92 +92 @@
             //As以外の演算子に型名が指定されていないかをチェック
             if((type[sp-2]&FLAG_CAST)||(type[sp-1]&FLAG_CAST)){
-                SetError(48,temporary,cp);
+                compiler.errorMessenger.Output(48,temporary,cp);
                 return 0;
             }
@@ -100 +100 @@
             if(IsRealNumberType(type[sp-1])){
                 //実数のとき
-                SetError(45,temporary,cp);
+                compiler.errorMessenger.Output(45,temporary,cp);
                 return 0;
             }
@@ -106 +106 @@
             //As以外の演算子に型名が指定されていないかをチェック
             if(type[sp-1]&FLAG_CAST){
-                SetError(48,temporary,cp);
+                compiler.errorMessenger.Output(48,temporary,cp);
                 return 0;
             }
@@ -125 +125 @@
             //As以外の演算子に型名が指定されていないかをチェック
             if((type[sp-2]&FLAG_CAST)||(type[sp-1]&FLAG_CAST)){
-                SetError(48,temporary,cp);
+                compiler.errorMessenger.Output(48,temporary,cp);
                 return 0;
             }
@@ -143 +143 @@
             //As以外の演算子に型名が指定されていないかをチェック
             if((type[sp-2]&FLAG_CAST)||(type[sp-1]&FLAG_CAST)){
-                SetError(48,temporary,cp);
+                compiler.errorMessenger.Output(48,temporary,cp);
                 return 0;
             }
@@ -154 +154 @@
             if(IsRealNumberType(type[sp-2])||IsRealNumberType(type[sp-1])){
                 //いずれかの項が実数のとき
-                SetError(45,temporary,cp);
+                compiler.errorMessenger.Output(45,temporary,cp);
                 return 0;
             }
@@ -160 +160 @@
             //As以外の演算子に型名が指定されていないかをチェック
             if((type[sp-2]&FLAG_CAST)||(type[sp-1]&FLAG_CAST)){
-                SetError(48,temporary,cp);
+                compiler.errorMessenger.Output(48,temporary,cp);
                 return 0;
             }
@@ -168 +168 @@
             if((type[sp-1]&FLAG_CAST)==0){
                 //型名が指定されていないときはエラー
-                SetError(47,NULL,cp);
+                compiler.errorMessenger.Output(47,NULL,cp);
                 return 0;
             }
@@ -176 +176 @@
             if(type[sp-1]&FLAG_CAST){
                 //型名が指定されていないときはエラー
-                SetError(47,NULL,cp);
+                compiler.errorMessenger.Output(47,NULL,cp);
                 return 0;
             }
@@ -184 +184 @@
             //As以外の演算子に型名が指定されていないかをチェック
             if(type[sp-1]&FLAG_CAST){
-                SetError(48,temporary,cp);
+                compiler.errorMessenger.Output(48,temporary,cp);
                 return 0;
             }
@@ -279 +279 @@
     if( !compiler.StringToType( TypeName, resultType ) )
     {
-        SetError(3,TypeName,cp);
+        compiler.errorMessenger.Output(3,TypeName,cp);
         return false;
     }
@@ -285 +285 @@
     if( !resultType.IsObject() )
     {
-        SetError(121,NULL,cp);
+        compiler.errorMessenger.Output(121,NULL,cp);
         return false;
     }
@@ -326 +326 @@
         {
             if( !GetReturnTypeOfIndexerGetterProc( classType, resultType ) ){
-                SetError(1,NULL,cp);
+                compiler.errorMessenger.Output(1,NULL,cp);
                 return false;
             }
@@ -509 +509 @@
             //閉じカッコ")"に続く文字がNULLでないとき
             if(termFull[i2+1+i4+1]!='\0'){
-                SetError(42,NULL,cp);
+                compiler.errorMessenger.Output(42,NULL,cp);
             }
 
@@ -541 +541 @@
 
                     //閉じカッコ")"に続く文字がNULLでないときはエラーにする
-                    if(termFull[i2+1+i4+1]!='\0') SetError(42,NULL,cp);
+                    if(termFull[i2+1+i4+1]!='\0') compiler.errorMessenger.Output(42,NULL,cp);
 
                     //マクロ関数の場合
@@ -571 +571 @@
         if( classType.IsObject() ){
             if( !GetReturnTypeOfIndexerGetterProc( classType, resultType ) ){
-                SetError(1,NULL,cp);
+                compiler.errorMessenger.Output(1,NULL,cp);
                 return false;
             }
@@ -649 +649 @@
 
     if(expression[0]=='\0'){
-        SetError(1,NULL,cp);
+        compiler.errorMessenger.Output(1,NULL,cp);
         return false;
     }
@@ -765 +765 @@
                     }
                     else{
-                        SetError(3, term, cp );
+                        compiler.errorMessenger.Output(3, term, cp );
                         goto error;
                     }
@@ -861 +861 @@
                         }
                         else{
-                            SetError(1,NULL,0);
+                            compiler.errorMessenger.Output(1,NULL,0);
                             goto error;
                         }
@@ -876 +876 @@
 
                     if(GetSubHash(VarName,0)){
-                        SetError();
+                        compiler.errorMessenger.OutputFatalError();
                         Type tempType;
                         GetReturnTypeOfPropertyMethod(term,NULL,tempType);
@@ -894 +894 @@
                     //該当する識別子が見当たらないときはエラー扱いにする
                     bError=1;
-                    SetError(3,term,cp);
+                    compiler.errorMessenger.Output(3,term,cp);
                     type_stack[sp]=DEF_DOUBLE;
                 }
@@ -984 +984 @@
                 if( PTR_LEVEL( type_stack[sp-1] ) <= 0 ){
                     //ポインタ型ではないとき
-                    SetError( 3, NULL, cp );
+                    compiler.errorMessenger.Output( 3, NULL, cp );
                     goto error;
                 }
@@ -996 +996 @@
 
     if(sp!=1){
-        SetError(1,NULL,cp);
+        compiler.errorMessenger.Output(1,NULL,cp);
         goto error;
     }

trunk/ab5.0/abdev/BasicCompiler_Common/Object.cpp

@@ -25 +25 @@
     const UserProc *pUserProc = GetMethodHash(ObjectName,type.GetClass().GetName().c_str(),Parameter);
     if(!pUserProc){
-        if(Parameter[0]) SetError(113,type.GetClass().GetName().c_str(),cp);
+        if(Parameter[0]) compiler.errorMessenger.Output(113,type.GetClass().GetName().c_str(),cp);
         return;
     }
@@ -102 +102 @@
             i+=i2;
             if(expression[i]!='\0'){
-                SetError(42,NULL,cp);
+                compiler.errorMessenger.Output(42,NULL,cp);
                 return false;
             }
@@ -115 +115 @@
 
     if( !compiler.StringToType( typeName, resultType ) ){
-        SetError(3,typeName,cp);
+        compiler.errorMessenger.Output(3,typeName,cp);
         return false;
     }
@@ -124 +124 @@
         ////////////////////////
 
-        SetError(121,NULL,cp);
+        compiler.errorMessenger.Output(121,NULL,cp);
         return false;
     }

trunk/ab5.0/abdev/BasicCompiler_Common/OldStatement.cpp

@@ -41 +41 @@
             if(Parameter[i2+1]==';') lstrcpy(buffer+i2,"? \"");
             else if(Parameter[i2+1]==',') lstrcpy(buffer+i2,"\"");
-            else SetError(10,"Input",cp);
+            else compiler.errorMessenger.Output(10,"Input",cp);
             i2+=2;
         }
@@ -57 +57 @@
             if(Parameter[i2+1]==';') lstrcpy(buffer+i2,"? \"");
             else if(Parameter[i2+1]==',') lstrcpy(buffer+i2,"\"");
-            else SetError(10,"Input",cp);
+            else compiler.errorMessenger.Output(10,"Input",cp);
             i2+=2;
         }
@@ -89 +89 @@
         }
         if(temporary[0]=='\0'){
-            SetError(10,"Input",cp);
+            compiler.errorMessenger.Output(10,"Input",cp);
             return;
         }
@@ -122 +122 @@
     else pUserProc=GetSubHash("INPUT_FromPrompt");
     if(!pUserProc){
-        SetError(3,"Input",cp);
+        compiler.errorMessenger.Output(3,"Input",cp);
         return;
     }
@@ -189 +189 @@
         }
         if(temporary[0]=='\0'){
-            SetError(10,"Print",cp);
+            compiler.errorMessenger.Output(10,"Print",cp);
             return;
         }
@@ -224 +224 @@
     else pUserProc=GetSubHash("PRINTUSING_ToPrompt");
     if(!pUserProc){
-        SetError(3,"Print",cp);
+        compiler.errorMessenger.Output(3,"Print",cp);
         return;
     }
@@ -328 +328 @@
     else pUserProc=GetSubHash("PRINT_ToPrompt");
     if(!pUserProc){
-        SetError(3,"Print",cp);
+        compiler.errorMessenger.Output(3,"Print",cp);
         return;
     }

trunk/ab5.0/abdev/BasicCompiler_Common/ParamImpl.cpp

@@ -44 +44 @@
                     if( buffer[i] == '\0' )
                     {
-                        SetError();
+                        compiler.errorMessenger.OutputFatalError();
                         break;
                     }
@@ -236 +236 @@
                 if( pUserProc ){
                     if( isEnabledReturnType ){
-                        SetError(52,name,cp);
+                        compiler.errorMessenger.Output(52,name,cp);
                         return NULL;
                     }
@@ -267 +267 @@
                 if( pUserProc )
                 {
-                    SetError(52,name,cp);
+                    compiler.errorMessenger.Output(52,name,cp);
                     return NULL;
                 }
@@ -278 +278 @@
     if( !pUserProc )
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 
@@ -318 +318 @@
         if( params.size() == 0 || params[params.size()-1]->GetBasicType()!=DEF_ELLIPSE ){
             //パラメータが多すぎるとき
-            SetError(10,procName,cp);
+            compiler.errorMessenger.Output(10,procName,cp);
             return false;
         }
@@ -329 +329 @@
 
             //パラメータが少なすぎるとき
-            SetError(10,procName,cp);
+            compiler.errorMessenger.Output(10,procName,cp);
             return false;
         }

trunk/ab5.0/abdev/BasicCompiler_Common/RSrcSection.cpp

@@ -108 +108 @@
         hFile=CreateFile(pCursorResourceInfo[i3].FileName,GENERIC_READ,0,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL);
         if(hFile==INVALID_HANDLE_VALUE){
-            SetError(23,pCursorResourceInfo[i3].FileName,-1);
+            compiler.errorMessenger.Output(23,pCursorResourceInfo[i3].FileName,-1);
             sw=1;
             continue;
@@ -127 +127 @@
         hFile=CreateFile(pBitmapResourceInfo[i3].FileName,GENERIC_READ,0,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL);
         if(hFile==INVALID_HANDLE_VALUE){
-            SetError(23,pBitmapResourceInfo[i3].FileName,-1);
+            compiler.errorMessenger.Output(23,pBitmapResourceInfo[i3].FileName,-1);
             sw=1;
             continue;
@@ -138 +138 @@
         hFile=CreateFile(pIconResourceInfo[i3].FileName,GENERIC_READ,0,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL);
         if(hFile==INVALID_HANDLE_VALUE){
-            SetError(23,pIconResourceInfo[i3].FileName,-1);
+            compiler.errorMessenger.Output(23,pIconResourceInfo[i3].FileName,-1);
             sw=1;
             continue;
@@ -645 +645 @@
         hFile=CreateFile(pCursorResourceInfo[i3].FileName,GENERIC_READ,0,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL);
         if(hFile==INVALID_HANDLE_VALUE){
-            SetError(23,pCursorResourceInfo[i3].FileName,-1);
+            compiler.errorMessenger.Output(23,pCursorResourceInfo[i3].FileName,-1);
             return buffer;
         }
@@ -725 +725 @@
         hFile=CreateFile(pBitmapResourceInfo[i3].FileName,GENERIC_READ,0,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL);
         if(hFile==INVALID_HANDLE_VALUE){
-            SetError(23,pBitmapResourceInfo[i3].FileName,-1);
+            compiler.errorMessenger.Output(23,pBitmapResourceInfo[i3].FileName,-1);
             return buffer;
         }
@@ -753 +753 @@
         hFile=CreateFile(pIconResourceInfo[i3].FileName,GENERIC_READ,0,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL);
         if(hFile==INVALID_HANDLE_VALUE){
-            SetError(23,pIconResourceInfo[i3].FileName,-1);
+            compiler.errorMessenger.Output(23,pIconResourceInfo[i3].FileName,-1);
             return buffer;
         }
@@ -839 +839 @@
         hFile=CreateFile(temp2,GENERIC_READ,0,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL);
         if(hFile==INVALID_HANDLE_VALUE){
-            SetError(59,temp2,-1);
+            compiler.errorMessenger.Output(59,temp2,-1);
             return buffer;
         }

trunk/ab5.0/abdev/BasicCompiler_Common/Resource.cpp

@@ -59 +59 @@
         }
         if(resultType.IsReal()){
-            SetError(9,temporary,0);
+            compiler.errorMessenger.Output(9,temporary,0);
             return;
         }
@@ -116 +116 @@
         else{
 error:
-            SetError(17,NULL,0);
+            compiler.errorMessenger.Output(17,NULL,0);
             return;
         }
@@ -124 +124 @@
         if(buffer[i2]=='\0') break;
         else if(buffer[i2]!='\n'){
-            SetError(17,NULL,0);
+            compiler.errorMessenger.Output(17,NULL,0);
             return;
         }

trunk/ab5.0/abdev/BasicCompiler_Common/StrOperation.cpp

@@ -883 +883 @@
     if( calcNames[idCalc] == NULL )
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
     lstrcpy( name, calcNames[idCalc] );
@@ -901 +901 @@
         }
     }
-    SetError();
+    compiler.errorMessenger.OutputFatalError();
     return 0;
 }

trunk/ab5.0/abdev/BasicCompiler_Common/Subroutine.cpp

@@ -372 +372 @@
         else if( source[i] == 1 && source[i+1] == ESC_ENDNAMESPACE ){
             if( namespaceScopes.size() <= 0 ){
-                SetError(12, "End Namespace", i );
+                compiler.errorMessenger.Output(12, "End Namespace", i );
             }
             else{
@@ -391 +391 @@
             if( !compiler.GetNamespaceSupporter().ImportsNamespace( temporary ) )
             {
-                SetError(64,temporary,cp );
+                compiler.errorMessenger.Output(64,temporary,cp );
             }
 
@@ -497 +497 @@
             CompileBufferInProcedure( *pUserProc );
         }
-        else SetError(300,NULL,cp);
+        else compiler.errorMessenger.Output(300,NULL,cp);
     }
     else

trunk/ab5.0/abdev/BasicCompiler_Common/VariableOpe.cpp

@@ -173 +173 @@
     else{
         extern int cp;
-        SetError(1,NULL,cp);
+        compiler.errorMessenger.Output(1,NULL,cp);
         return 0;
     }
@@ -273 +273 @@
                 }
                 if(variable[i]=='\"'){
-                    SetError(1,NULL,cp);
+                    compiler.errorMessenger.Output(1,NULL,cp);
                     return;
                 }
@@ -360 +360 @@
                 }
                 if(buffer[i+1]==cPare_Open){
-                    SetError(14,buffer,cp);
+                    compiler.errorMessenger.Output(14,buffer,cp);
                     return 0;
                 }
@@ -411 +411 @@
 
     if(!IsVariableTopChar(name[0])){
-        SetError(1,NULL,nowLine);
+        compiler.errorMessenger.Output(1,NULL,nowLine);
         return 0;
     }
@@ -417 +417 @@
         if(name[i2]=='\0') break;
         if(!IsVariableChar(name[i2])){
-            SetError(1,NULL,nowLine);
+            compiler.errorMessenger.Output(1,NULL,nowLine);
             return 0;
         }
@@ -451 +451 @@
     const CMember *pMember = objClass.FindDynamicMember( VarName );
     if( !pMember ){
-        if(isErrorEnabled) SetError(103,VarName,cp);
+        if(isErrorEnabled) compiler.errorMessenger.Output(103,VarName,cp);
         return false;
     }
@@ -459 +459 @@
         //同一クラスオブジェクトの場合はプライベートアクセスを容認する
         if( pMember->IsNoneAccess() ){
-            if(isErrorEnabled) SetError(107,VarName,cp);
+            if(isErrorEnabled) compiler.errorMessenger.Output(107,VarName,cp);
             return false;
         }
@@ -466 +466 @@
         if(( bPrivateAccess==0 && pMember->IsPrivate() )||
             pMember->IsNoneAccess() ){
-            if(isErrorEnabled) SetError(107,VarName,cp);
+            if(isErrorEnabled) compiler.errorMessenger.Output(107,VarName,cp);
             return false;
         }
         else if( bPrivateAccess==0 && pMember->IsProtected() ){
-            if(isErrorEnabled) SetError(108,VarName,cp);
+            if(isErrorEnabled) compiler.errorMessenger.Output(108,VarName,cp);
             return false;
         }
@@ -490 +490 @@
     else{
         if(lpPtrOffset[0]){
-            if(isErrorEnabled) SetError(16,lpszMember,cp);
+            if(isErrorEnabled) compiler.errorMessenger.Output(16,lpszMember,cp);
             return false;
         }
@@ -523 +523 @@
         else{
             //エラー
-            if(isErrorEnabled) SetError(1,NULL,cp);
+            if(isErrorEnabled) compiler.errorMessenger.Output(1,NULL,cp);
             return false;
         }
@@ -674 +674 @@
 
     //変数として見つからなかったとき
-    if(isErrorEnabled) SetError(3,variable,cp);
+    if(isErrorEnabled) compiler.errorMessenger.Output(3,variable,cp);
     return false;
 
@@ -688 +688 @@
     else{
         if(lpPtrOffset[0]){
-            if(isErrorEnabled) SetError(16,variable,cp);
+            if(isErrorEnabled) compiler.errorMessenger.Output(16,variable,cp);
             return false;
         }
@@ -714 +714 @@
         else{
             //エラー
-            if(isErrorEnabled) SetError(1,NULL,cp);
+            if(isErrorEnabled) compiler.errorMessenger.Output(1,NULL,cp);
             return false;
         }
@@ -828 +828 @@
             (temporary[2]==ESC_FUNCTION||temporary[2]==ESC_SUB)){
             if(buffer[i]!='('){
-                SetError(10,temporary,cp);
+                compiler.errorMessenger.Output(10,temporary,cp);
                 return false;
             }
@@ -849 +849 @@
 
         if( !compiler.StringToType( temporary, type ) ){
-            SetError(3,temporary,cp);
+            compiler.errorMessenger.Output(3,temporary,cp);
             return false;
         }
@@ -860 +860 @@
 
             if( !type.IsObject() ){
-                SetError(112,variable,cp);
+                compiler.errorMessenger.Output(112,variable,cp);
                 return false;
             }
@@ -877 +877 @@
             if(i2>=0){
                 if(!(variable[i2]=='#'||variable[i2]=='!'||variable[i2]=='%'||variable[i2]=='$'))
-                    SetError(-103,variable,cp);
+                    compiler.errorMessenger.Output(-103,variable,cp);
             }
         }
@@ -896 +896 @@
     if( InitBuf[0] != '\0' && ConstractParameter[0] != '\0' ){
         //初期値とコンストラクタパラメータが同時に呼び出されているとき
-        SetError(132, NULL, cp);
+        compiler.errorMessenger.Output(132, NULL, cp);
     }
 
@@ -944 +944 @@
     if( compiler.GetObjectModule().meta.GetGlobalVars().DuplicateCheck( Symbol( name ) ) ){
         //２重定義のエラー
-        SetError(15,name,cp);
+        compiler.errorMessenger.Output(15,name,cp);
         return;
     }
@@ -1024 +1024 @@
     if( Parameter[i2] == 1 && Parameter[i2+1] == ESC_BYREF ){
         //参照型
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
         Parameter += 2;
     }
@@ -1067 +1067 @@
     //定数と２重定義されていないかを調べる
     if(compiler.GetObjectModule().meta.GetGlobalConsts().GetBasicType(VarName)){
-        SetError(15,VarName,cp);
+        compiler.errorMessenger.Output(15,VarName,cp);
         return;
     }
@@ -1073 +1073 @@
     //定数マクロとして定義されている場合
     if( compiler.GetObjectModule().meta.GetGlobalConstMacros().IsExist( VarName ) ){
-        SetError(15,VarName,cp);
+        compiler.errorMessenger.Output(15,VarName,cp);
         return;
     }
@@ -1095 +1095 @@
     if(dwFlags&DIMFLAG_STATIC){
         if( UserProc::IsGlobalAreaCompiling() ){
-            SetError(60,NULL,cp);
+            compiler.errorMessenger.Output(60,NULL,cp);
             return;
         }

trunk/ab5.0/abdev/BasicCompiler_Common/calculation.cpp

@@ -98 +98 @@
     if(sp==1){
         if(stack[0]){
-            SetError(9,NULL,cp);
+            compiler.errorMessenger.Output(9,NULL,cp);
             return;
         }
@@ -106 +106 @@
         //文字列演算が可能な演算子
         if((stack[sp-2]&&stack[sp-1]==0)||(stack[sp-2]==0&&stack[sp-1])){
-            SetError(9,NULL,cp);
+            compiler.errorMessenger.Output(9,NULL,cp);
             return;
         }
@@ -113 +113 @@
         //文字列演算ができない演算子
         if(stack[sp-2]||stack[sp-1]){
-            SetError(9,NULL,cp);
+            compiler.errorMessenger.Output(9,NULL,cp);
             return;
         }
@@ -180 +180 @@
 
     extern int cp;
-    SetError(300,NULL,cp);
+    compiler.errorMessenger.Output(300,NULL,cp);
     return 0;
 }
@@ -253 +253 @@
             else{
                 //ゼロ割りエラーを検地
-                SetError(56,NULL,cp);
+                compiler.errorMessenger.Output(56,NULL,cp);
             }
         }
@@ -261 +261 @@
             else{
                 //ゼロ割りエラーを検地
-                SetError(56,NULL,cp);
+                compiler.errorMessenger.Output(56,NULL,cp);
             }
         }
@@ -360 +360 @@
             else{
                 //ゼロ割りエラーを検地
-                SetError(56,NULL,cp);
+                compiler.errorMessenger.Output(56,NULL,cp);
             }
         }
@@ -489 +489 @@
                         Type tempType;
                         if( !compiler.StringToType( temp2, tempType ) ){
-                            if(enableerror) SetError(3,temp2,cp);
+                            if(enableerror) compiler.errorMessenger.Output(3,temp2,cp);
                             return false;
                         }
@@ -501 +501 @@
                         if( !pConstMacro )
                         {
-                            if(enableerror) SetError(3,temporary,cp);
+                            if(enableerror) compiler.errorMessenger.Output(3,temporary,cp);
                             return false;
                         }
                         if( !pConstMacro->GetCalcBuffer( temp2, Parms ) )
                         {
-                            if(enableerror) SetError(3,temporary,cp);
+                            if(enableerror) compiler.errorMessenger.Output(3,temporary,cp);
                             return false;
                         }
@@ -685 +685 @@
                             else{
                                 //エラー
-                                if(enableerror) SetError(300,NULL,cp);
+                                if(enableerror) compiler.errorMessenger.Output(300,NULL,cp);
                                 return 0;
                             }
@@ -704 +704 @@
                                 }
                                 //エラー
-                                if(enableerror) SetError(3,Parms,cp);
+                                if(enableerror) compiler.errorMessenger.Output(3,Parms,cp);
                                 return false;
                             }
@@ -746 +746 @@
             else{
                 if(!(Command[i]=='+'||Command[i]=='-'||(Command[i]==1&&Command[i+1]==ESC_NOT))){
-                    if(enableerror) SetError(1,NULL,cp);
+                    if(enableerror) compiler.errorMessenger.Output(1,NULL,cp);
                     return false;
                 }
@@ -994 +994 @@
                     return -1;
                 }
-                SetError(57,NULL,cp);
+                compiler.errorMessenger.Output(57,NULL,cp);
                 return DEF_BYTE;
             }
@@ -1020 +1020 @@
                     return -1;
                 }
-                SetError(58,NULL,cp);
+                compiler.errorMessenger.Output(58,NULL,cp);
                 return DEF_BYTE;
             }
@@ -1036 +1036 @@
                 return -1;
             }
-            SetError(12,"&",cp);
+            compiler.errorMessenger.Output(12,"&",cp);
             return DEF_BYTE;
         }
@@ -1090 +1090 @@
                     }
 
-                    SetError(3,value,cp);
+                    compiler.errorMessenger.Output(3,value,cp);
                     return DEF_DOUBLE;
                 }
@@ -1136 +1136 @@
     }
 
-    SetError(33,NULL,cp);
+    compiler.errorMessenger.Output(33,NULL,cp);
     return DEF_DOUBLE;
 }
@@ -1445 +1445 @@
                         (Command[i]==1&&Command[i+1]==ESC_BYVAL)
                     )){
-                        SetError(1,NULL,cp);
+                        compiler.errorMessenger.Output(1,NULL,cp);
                         return 0;
                 }
@@ -1461 +1461 @@
                 i+=i4;
                 if(!i3){
-                    SetError(1,NULL,cp);
+                    compiler.errorMessenger.Output(1,NULL,cp);
                     return 0;
                 }

trunk/ab5.0/abdev/BasicCompiler_Common/common.h

@@ -370 +370 @@
 
 //error.cpp
-void SetError(int ErrorNum,const char *KeyWord,int pos);
-void SetError(int ErrorNum,const string &keyWord,int pos);
-void SetError();
-void CompileMessage(const char *buffer);
 bool CheckDifferentType( const Type &varType,const Type &calcType,const char *pszFuncName,const int ParmNum);
 

trunk/ab5.0/abdev/BasicCompiler_Common/error.cpp

@@ -5 +5 @@
 
 #include "../BasicCompiler_Common/common.h"
-
-BOOL GetErrorMsg(int num,const char *KeyWord,char *msg,int pos){
-    extern HANDLE hHeap;
-    int i2;
-    char temporary[64];
-
-    char tempKeyWord[1024];
-    if(KeyWord){
-        lstrcpy(tempKeyWord,KeyWord);
-        for(i2=0;;i2++){
-            if(tempKeyWord[i2]=='\0') break;
-            if(tempKeyWord[i2]==1){
-                GetDefaultNameFromES(tempKeyWord[i2+1],temporary);
-                SlideString(tempKeyWord+i2+2,lstrlen(temporary)-2);
-                memcpy(tempKeyWord+i2,temporary,lstrlen(temporary));
-            }
-        }
-    }
-    else{
-        lstrcpy(tempKeyWord,"");
-    }
-
-    if(num==-1||num==-2) lstrcpy(msg,tempKeyWord);  //部分エラー
-
-    if(num==3){
-        temporary[0]=tempKeyWord[0];
-        for(i2=1;;i2++){
-            if((!IsVariableChar(tempKeyWord[i2]))||i2>=255){
-                temporary[i2]=0;
-                break;
-            }
-            temporary[i2]=tempKeyWord[i2];
-        }
-
-        extern char **SynonymErrorWords;
-        extern int SynonymErrorNum;
-        for(i2=0;i2<SynonymErrorNum;i2++){
-            if(lstrcmp(SynonymErrorWords[i2],temporary)==0) return 0;
-        }
-
-#if defined(JPN)
-        //日本語
-        sprintf(msg,"\"%s\" 無効な識別子です",temporary);
-#else
-        //英語
-        sprintf(msg,"\"%s\" Invalid identifier.",temporary);
-#endif
-
-        //重複エラー情報を追加
-        SynonymErrorWords=(char **)HeapReAlloc(hHeap,0,SynonymErrorWords,(SynonymErrorNum+1)*sizeof(char *));
-        SynonymErrorWords[SynonymErrorNum]=(char *)HeapAlloc(hHeap,0,lstrlen(temporary)+1);
-        lstrcpy(SynonymErrorWords[SynonymErrorNum],temporary);
-        SynonymErrorNum++;
-    }
-    if(num==30){
-#if defined(JPN)
-        //日本語
-        if(temporary[0]) sprintf(msg,"\"%s\" の使い方が不正です",tempKeyWord);
-        else lstrcpy(msg,"文法が間違っています");
-#else
-        //英語
-        if(temporary[0]) sprintf(msg,"How to use the \"%s\" is wrong.",tempKeyWord);
-        else lstrcpy(msg,"Syntax Error.");
-#endif
-    }
-
-
-    /////////////////////
-    // ワーニングエラー
-    /////////////////////
-#if defined(JPN)
-    ////////////////////
-    //日本語
-    ////////////////////
-    if(num==-101) sprintf(msg,"[警告] %sに強制変換されています。データが失われる可能性があります。",tempKeyWord);
-    if(num==-102) sprintf(msg,"[警告] %sに強制変換されています。",tempKeyWord);
-    if(num==-103) sprintf(msg,"[警告] \"%s\" 型が指定されていません。Double型として扱います。",tempKeyWord);
-    if(num==-104) sprintf(msg,"[警告] \"%s\" 戻り値の型が指定されていません。Double型として扱います。",tempKeyWord);
-    if(num==-105) sprintf(msg,"[警告] 一時オブジェクトの解放を行えません。キャスト用オブジェクトを用意してください。",tempKeyWord);
-    if(num==-106) sprintf(msg,"[警告] DLLファイル \"%s\" が見つかりません。",tempKeyWord);
-    if(num==-107) sprintf(msg,"[警告] DLL関数 \"%s\" を参照できません。",tempKeyWord);
-    if(num==-108) lstrcpy(msg,"[警告] Catch節、Finally節を持たない意味のないTryスコープです。");
-    if(num==-120) sprintf(msg,"[警告] VarPtr関数の引数にオブジェクト インスタンスが指定されました。オブジェクトの先頭アドレスを取得したいときはObjPtr関数に切り替えをお願いします。m(__)m（この警告はVarPtr→ObjPtrへの切り替えが完了したら消します（切り替えは \"適材箇所に限り\" ですので、ご注意ください！））",tempKeyWord);
-#else
-#endif
-
-
-    ///////////////
-    // 一般エラー
-    ///////////////
-
-#if defined(JPN)
-    ////////////////////
-    //日本語
-    ////////////////////
-    if(num==1) lstrcpy(msg,"文法が間違っています。");
-    if(num==2) sprintf(msg,"左のオペランドが、左辺値になっていません。");
-    //num==3は予約されています
-    if(num==4) sprintf(msg,"%sの相互関係が一致しません。",tempKeyWord);
-    if(num==5) sprintf(msg,"ダブルクォートの数が一致しません。");
-    if(num==6) sprintf(msg,"\"%s\" ジャンプ先が不正です。",tempKeyWord);
-    if(num==7) lstrcpy(msg,"DLL名が長すぎます（拡張子を含め、16文字以下にして下さい）。");
-    if(num==8) lstrcpy(msg,"コンパイラが認識できない文字コードが含まれています。");
-    if(num==9) sprintf(msg,"型が違います。");
-    if(num==10) sprintf(msg,"\"%s\" のパラメータ指定が間違っています。",tempKeyWord);
-    if(num==11) sprintf(msg,"\"%s\" 型が違います。",tempKeyWord);
-    if(num==12) sprintf(msg,"%s の使い方が不正です。",tempKeyWord);
-    if(num==13) sprintf(msg,"\"%s\" を参照できません。",tempKeyWord);
-    if(num==14) sprintf(msg,"\"%s\" 配列指定が不正です。",tempKeyWord);
-    if(num==15) sprintf(msg,"\"%s\" はすでに定義されています。",tempKeyWord);
-    if(num==16) sprintf(msg,"\"%s\" 配列、またはポインタ以外の変数に添え字が指定されています。",tempKeyWord);
-    if(num==17) sprintf(msg,"リソース データが不正です。");
-    if(num==18) sprintf(msg,"\"%s\"はポインタ変数型です。文字列演算を指定することはできません。",tempKeyWord);
-    if(num==19) sprintf(msg,"\"%s\"は値参照型です。ByVal指定することはできません。",tempKeyWord);
-    if(num==20) lstrcpy(msg,"全角スペースが含まれています（全角スペースはコンパイラが認識できないので、半角スペースまたはタブ文字にしてください）。");
-    if(num==21) sprintf(msg,"If制御のブロック指定が不正です。");
-    if(num==22) sprintf(msg,"%s に対する End %s が見つかりません。",tempKeyWord,tempKeyWord);
-    if(num==23) sprintf(msg,"リソース ファイル \"%s\" の読み込みに失敗。",tempKeyWord);
-    if(num==24) lstrcpy(msg,"Export指定の関数のパラメータには実体オブジェクトを利用することはできません（BytePtr型などを利用して下さい）。");
-    if(num==25) sprintf(msg,"DLL関数にオブジェクトを引き渡すことはできません(%s)。",tempKeyWord);
-    if(num==26) sprintf(msg,"\"%s\" 戻り値の型が指定されていません。",tempKeyWord);
-    if(num==27) sprintf(msg,"\"%s\" は定義されていません。",tempKeyWord);
-    if(num==28) sprintf(msg,"構造体パラメータは参照渡しにしてください(%s)。",tempKeyWord);
-    if(num==29) sprintf(msg,"配列ポインタを要素と同時に引渡すときは、ポインタ参照（ByRef）にしてください。");
-    //num==30は予約されています
-    if(num==31) sprintf(msg,"\"%s\" は構造体です（メンバの参照はピリオド \".\" で区切ってください）。",tempKeyWord);
-    if(num==32) sprintf(msg,"\"%s\" は構造体ポインタです（メンバの参照は \"->\" で区切ってください）。",tempKeyWord);
-    if(num==33) sprintf(msg,"定数式にリテラル値、または定数以外のものが含まれています。");
-    if(num==34) sprintf(msg,"定数はモジュールレベルで宣言して下さい。");
-    if(num==38) sprintf(msg,"\"%s\" 戻り値が存在しないプロシージャです。",tempKeyWord);
-    if(num==39) sprintf(msg,"\"%s\" はオブジェクトポインタではありません（\"->\" 参照はできません）。",tempKeyWord);
-    if(num==40) lstrcpy(msg,"DLL関数の戻り値としてオブジェクトを受け取ることはできません。");
-    if(num==41) lstrcpy(msg,"初期データが不正です。");
-    if(num==42) lstrcpy(msg,"閉じカッコ \")\" の後に不正な文字が含まれています。");
-    if(num==43) lstrcpy(msg,"ダブルクォートの後に不正な文字が含まれています。");
-    if(num==45) sprintf(msg,"実数に対して \"%s\" 演算子は利用できません。",tempKeyWord);
-    if(num==46) lstrcpy(msg,"配列の添え字に整数以外の値が与えられています。");
-    if(num==47) lstrcpy(msg,"As演算子の右辺値に型名以外の識別子が指定されています。");
-    if(num==48) sprintf(msg,"%s演算子に対して型名が指定されています。",tempKeyWord);
-    if(num==49) lstrcpy(msg,"添え字に整数以外の型が指定されています。");
-    if(num==50) sprintf(msg,"%sに変換できません。",tempKeyWord);
-    if(num==51) lstrcpy(msg,"オブジェクト、構造体のアラインメント値は 1, 2, 4, 8, 16 のいずれかでなければなりません。");
-    if(num==52) sprintf(msg,"\"%s\" オーバーロードを解決できません。",tempKeyWord);
-    if(num==53) sprintf(msg,"\"%s\" 出力ファイルの書き込みに失敗しました。実行されている可能性があります。",tempKeyWord);
-    if(num==54) sprintf(msg,"対応する%sが存在しません。",tempKeyWord);
-    if(num==55) sprintf(msg,"\"%s\" は対応するForステートメントで利用されるカウンタ変数ではありません。",tempKeyWord);
-    if(num==56) lstrcpy(msg,"ゼロ割りが行われました。");
-    if(num==57) lstrcpy(msg,"8進数のリテラル表記が不正です。");
-    if(num==58) lstrcpy(msg,"16進数のリテラル表記が不正です。");
-    if(num==59) sprintf(msg,"マニフェスト ファイル \"%s\" の読み込みに失敗。",tempKeyWord);
-    if(num==60) lstrcpy(msg,"Staticステートメントはグローバル領域では使用できません。");
-    if(num==61) sprintf(msg,"\"%s\" は定数です。書き込みアクセスはできません。",tempKeyWord);
-    if(num==62) sprintf(msg,"グローバル領域でのReturnは禁止されています。",tempKeyWord);
-    if(num==63) lstrcpy(msg,"名前空間が正しく閉じられていません。");
-    if(num==64) sprintf(msg,"\"%s\" 無効な名前空間です。",tempKeyWord);
-    if(num==65) sprintf(msg,"ローカル領域で%sは使用できません。",tempKeyWord);
-    if(num==66) sprintf(msg,"%s 要求されている関数ポインタのパラメータまたは戻り値が一致しません。", tempKeyWord );
-    if(num==67) sprintf(msg,"%s 要求されているデリゲートのパラメータまたは戻り値が一致しません。", tempKeyWord );
-    if(num==68) sprintf(msg,"\"%s\" 不正な関数名です。", tempKeyWord);
-    if(num==69) sprintf(msg,"\"%s\" 不正なメソッド名です。", tempKeyWord);
-    if(num==70) lstrcpy(msg,"一つのTryに対して複数のFinallyを記述できません。");
-    if(num==71) lstrcpy(msg,"Finallyの後ろにCatchを記述することはできません。");
-    if(num==72) lstrcpy(msg,"Catchのパラメータの型が指定されていません。");
-    if(num==73) lstrcpy(msg,"\"%s\" Catchのパラメータの型はクラス型でなければなりません。");
-    if(num==74) sprintf(msg,"\"%s\" 型として認識できません。",tempKeyWord);
-
-
-    //オブジェクト関連
-    if(num==102) sprintf(msg,"\"%s\" オブジェクトは定義されていません。",tempKeyWord);
-    if(num==103) sprintf(msg,"\"%s\" メンバは定義されていません。",tempKeyWord);
-    if(num==104) sprintf(msg,"\"%s\" 参照方法が違います。",tempKeyWord);
-    if(num==105) sprintf(msg,"\"%s\" 自身のクラスを継承することはできません。",tempKeyWord);
-    if(num==106) sprintf(msg,"\"%s\" 存在しないクラスです。",tempKeyWord);
-    if(num==107) sprintf(msg,"Privateメンバ \"%s\" にアクセスすることはできません。",tempKeyWord);
-    if(num==108) sprintf(msg,"Protectedメンバ \"%s\" にアクセスすることはできません。",tempKeyWord);
-    if(num==109) sprintf(msg,"Privateメンバ関数 \"%s\" を呼び出すことはできません。",tempKeyWord);
-    if(num==110) sprintf(msg,"Protectedメンバ関数 \"%s\" を呼び出すことはできません。",tempKeyWord);
-    if(num==111) lstrcpy(msg,"InheritsはClass定義内の先頭に記述する必要があります。");
-    if(num==112) sprintf(msg,"\"%s\" はクラス型ではないため、初期パラメータを指定することはできません。",tempKeyWord);
-    if(num==113) sprintf(msg,"\"%s\" コンストラクタへ渡すパラメータが不正です。",tempKeyWord);
-    if(num==114) lstrcpy(msg,"デストラクタはパラメータを持てません。");
-    if(num==115) lstrcpy(msg,"コンストラクタ及びデストラクタは戻り値を持てません。");
-    //if(num==116) lstrcpy(msg,"コンストラクタ及びデストラクタはパブリックアクセスにしなければなりません。");
-    if(num==117) lstrcpy(msg,"デストラクタの名前が \"~クラス名\" になっていません。");
-    if(num==118) lstrcpy(msg,"参照する基底クラスが存在しません。");
-    if(num==119) sprintf(msg,"\"%s\" メンバは基底クラスで定義されていません。",tempKeyWord);
-    if(num==120) lstrcpy(msg,"デストラクトするオブジェクトの型が不明です。");
-    if(num==121) lstrcpy(msg,"New演算子にはクラス以外の型を指定できません。");
-    if(num==122) lstrcpy(msg,"Delete演算子にポインタ以外の型が指定されています。");
-    if(num==123) lstrcpy(msg,"ループ継承が行われました。");
-    if(num==124) lstrcpy(msg,"循環参照が行われました。");
-    if(num==125) sprintf(msg,"\"%s\" は抽象クラスです。インスタンス化することはできません。",tempKeyWord);
-    if(num==126) lstrcpy(msg,"オペレータのオーバーロードをクラスの外で行うことはできません。");
-    if(num==127) lstrcpy(msg,"Override修飾子の指定が無い状況でオーバーライドを行うことはできません。");
-    if(num==128) lstrcpy(msg,"オーバーライドを行うときはアクセシビリティを同一にしなければなりません。");
-    if(num==129) sprintf(msg,"静的メンバ \"%s\" は定義されていません。",tempKeyWord);
-    if(num==130) sprintf(msg,"\"%s\" はオブジェクト定数です。書き込みアクセスはできません。",tempKeyWord);
-    if(num==131) lstrcpy(msg,"Const定義されたメソッド内でクラスメンバへの書き込みアクセスはできません。");
-    if(num==132) lstrcpy(msg,"明示的なコンストラクタ呼び出しと初期値の指定を同時に行うことはできません。");
-    if(num==133) lstrcpy(msg,"Thisに代入はできません。");
-    if(num==134) lstrcpy( msg,"ObjPtr関数にはオブジェクト インスタンス以外を指定できません。" );
-    if(num==135) lstrcpy( msg, "クラス以外の型を継承元として指定することはできません。" );
-    if(num==136) sprintf( msg, "\"%s\" 非仮想関数に対してオーバーライドしようとしました。", tempKeyWord );
-    if(num==137) lstrcpy(msg,"ImplementsはClass定義内の先頭に記述する必要があります。");
-    if(num==138) sprintf(msg,"%s はインターフェイスではありません。Implementsできるのはインターフェイスに限ります。",tempKeyWord);
-    if(num==139) sprintf(msg,"%s はインターフェイスではありません。",tempKeyWord);
-    if(num==140) lstrcpy(msg,"Align修飾子を構造体以外の型に指定することはできません。");
-    if(num==141) lstrcpy(msg,"Blittable修飾子をクラス以外の型に指定することはできません。");
-    if(num==142) lstrcpy(msg,"不正なThis参照です。");
-
-    //Enum関連
-    if(num==150) sprintf(msg,"\"%s\" 値が定義されていません。",tempKeyWord);
-    if(num==151) sprintf(msg,"\"%s\" 列挙リストに登録されていません。",tempKeyWord);
-
-    //リンカ
-    if(num==200) sprintf(msg,"\"%s\" 未解決です (リンク エラー)。",tempKeyWord);
-    if(num==201) sprintf(msg,"\"%s\" の読み込みに失敗。",tempKeyWord);
-
-    //原因不明
-    if(num==300) lstrcpy(msg,"内部エラー");
-
-    // ベースライブラリ不整合
-    if( num == 400 )    sprintf( msg, "\"%s\" が存在しません。標準ライブラリの内容が古い可能性があります。", tempKeyWord );
-
-#else
-    ////////////////////
-    //英語
-    ////////////////////
-    if(num==1) lstrcpy(msg,"Syntax Error.");
-    if(num==2) sprintf(msg,"Left operand must be l-value.");
-    //num==3は予約されています
-    if(num==4) sprintf(msg,"Correlation of %s is wrong.",tempKeyWord);
-    if(num==5) sprintf(msg,"Correlation of double quotes is wrong.");
-    if(num==6) sprintf(msg,"\"%s\" Label not found.",tempKeyWord);
-    if(num==7) lstrcpy(msg,"The DLL name is too long. Must be 16 characters or less.");
-    if(num==8) lstrcpy(msg,"The inaccurate characters are contained.");
-    if(num==9) sprintf(msg,"Type is wrong.");
-    if(num==10) sprintf(msg,"\"%s\" Rule of parameter is wrong.",tempKeyWord);
-    if(num==11) sprintf(msg,"\"%s\" Type is wrong.",tempKeyWord);
-    if(num==12) sprintf(msg,"\"%s\" Not a valid use.",tempKeyWord);
-    if(num==13) sprintf(msg,"Cannot refer to \"%s\".",tempKeyWord);
-    if(num==14) sprintf(msg,"\"%s\" Array argument(s) out of bound.",tempKeyWord);
-    if(num==15) sprintf(msg,"\"%s\" is already defined.",tempKeyWord);
-    if(num==16) sprintf(msg,"\"%s\" Argument(s) following variable which is not pointer or array.",tempKeyWord);
-    if(num==17) sprintf(msg,"Invalid resource data.");
-    if(num==18) sprintf(msg,"\"%s\" Invalid operation on a pointer variable.",tempKeyWord);
-    if(num==19) sprintf(msg,"\"%s\" is already to be passed by value. You cannot use \"ByVal\".",tempKeyWord);
-    if(num==21) sprintf(msg,"Wrong structure of \"If\" block.");
-    if(num==22) sprintf(msg,"No matching \"End %s\" found for \"%s\".",tempKeyWord,tempKeyWord);
-    if(num==23) sprintf(msg,"Cannot read the resource file \"%s\".",tempKeyWord);
-    if(num==24) lstrcpy(msg,"Must not use String type as an argument for exported function. (Use BytePtr type instead.)");
-    if(num==27) sprintf(msg,"\"%s\" Undefined procedure.",tempKeyWord);
-    if(num==28) sprintf(msg,"\"%s\" Structure must not be passed by value. (Use \"ByRef\".)",tempKeyWord);
-    if(num==29) sprintf(msg,"Array must not be passed by value. (Use \"ByRef\".)");
-    //num==30は予約されています
-    if(num==31) sprintf(msg,"\"%s\" is a struct. (Use period \".\" to refer to the members.)",tempKeyWord);
-    if(num==32) sprintf(msg,"\"%s\" is a pointer of struct. (Use arrow \"->\" to refer to the members.)",tempKeyWord);
-    if(num==33) sprintf(msg,"Constant formula has a thing that is not literal value or constant value.");
-    if(num==34) sprintf(msg,"Constant formula must be defined in the module level.");
-    if(num==38) sprintf(msg,"\"%s\" is a procedure without a return value.",tempKeyWord);
-    if(num==39) sprintf(msg,"\"%s\" is not object pointer. \"->\" is invalid.",tempKeyWord);
-    if(num==40) lstrcpy(msg,"Cannot set a object to return value.");
-    if(num==41) lstrcpy(msg,"Init data is wrong.");
-    if(num==42) lstrcpy(msg,"The inaccurate characters are contained after the closing parenthesis \")\".");
-    if(num==43) lstrcpy(msg,"The inaccurate characters are contained after the double quote.");
-
-    //オブジェクト関連
-    if(num==102) sprintf(msg,"\"%s\" The object is not defined.",tempKeyWord);
-    if(num==103) sprintf(msg,"\"%s\" The member is not defined.",tempKeyWord);
-    if(num==104) sprintf(msg,"\"%s\" The reference character is different.",tempKeyWord);
-    if(num==105) sprintf(msg,"\"%s\" An own class is not inheritable.",tempKeyWord);
-    if(num==106) sprintf(msg,"\"%s\" It class is not defined.",tempKeyWord);
-    if(num==107) sprintf(msg,"\"%s\" Cannot access the private member.",tempKeyWord);
-    if(num==108) sprintf(msg,"\"%s\" Cannot access the protected member.",tempKeyWord);
-    if(num==109) sprintf(msg,"\"%s\" Cannot call the private member.",tempKeyWord);
-    if(num==110) sprintf(msg,"\"%s\" Cannot call the protected member.",tempKeyWord);
-    if(num==111) lstrcpy(msg,"The Inherits phrase must be described to the 1st line of class module");
-    if(num==112) sprintf(msg,"\"%s\" is not class object. Therefor you cannot set the parameter for constructor.",tempKeyWord);
-    if(num==113) sprintf(msg,"\"%s\" The parameter for constructor is wrong.",tempKeyWord);
-    if(num==114) lstrcpy(msg,"Destructor cannot have a parameter.");
-    if(num==115) lstrcpy(msg,"Constructor and Destructor cannot have a return value.");
-    if(num==116) lstrcpy(msg,"Constructor and Destructor must be public access.");
-    if(num==117) lstrcpy(msg,"Destructors name must be \"~ClassName\".");
-    if(num==118) lstrcpy(msg,"Super class is not found.");
-    if(num==119) sprintf(msg,"\"%s\" The member is not defined in the super class.",tempKeyWord);
-
-    //Enum関連
-    if(num==150) sprintf(msg,"\"%s\" The value is not set",tempKeyWord);
-    if(num==151) sprintf(msg,"\"%s\" is not found from enum lists.",tempKeyWord);
-
-    //リンカ
-    if(num==200) sprintf(msg,"\"%s\" Unknown error.",tempKeyWord);
-#endif
-
-    return 1;
-}
-void SetError(int ErrorNum,const string &keyWord,int pos){
-    SetError( ErrorNum, keyWord.c_str(), pos );
-}
-void SetError(int num,const char *KeyWord,int pos){
-    extern HANDLE hHeap;
-    extern HWND hMainDlg;
-    extern ERRORINFO *pErrorInfo;
-    extern int ErrorNum;
-    char temporary[1024],temp2[1024],temp3[32];
-    BOOL bFirst;
-    int i2;
-
-    extern BOOL bDebugRun;
-    if(bDebugRun) return;
-
-    if(num!=-2){
-        //一般エラーまたは警告
-        i2=0;   //ここにブレークポイントをおく
-
-        if(num>-100){
-            //エラーのみ
-
-            i2=0;
-
-            if( num == 300 )
-            {
-                // 内部エラー
-                i2=0;
-            }
-        }
-
-    }
-
-    if(!GetErrorMsg(num,KeyWord,temporary,pos)) return;
-
-    if(ErrorNum==0){
-        SetDlgItemText(hMainDlg,IDC_ERRORLIST,"");
-        EnableWindow(GetDlgItem(hMainDlg,IDC_ERRORLIST),1);
-        bFirst=1;
-    }
-    else bFirst=0;
-
-
-    ////////////////////
-    // エラー情報を追加
-    pErrorInfo=(ERRORINFO *)HeapReAlloc(hHeap,0,pErrorInfo,(ErrorNum+1)*sizeof(ERRORINFO));
-
-    if(pos==-1){
-        pErrorInfo[ErrorNum].FileName=0;
-        lstrcpy(temp2,temporary);
-    }
-    else{
-        std::string dummyStr;
-        compiler.GetObjectModule().GetCurrentSource().GetLineInfo( pos, pErrorInfo[ErrorNum].line, dummyStr );
-
-        pErrorInfo[ErrorNum].FileName=(char *)HeapAlloc(hHeap,0,lstrlen(dummyStr.c_str())+1);
-        lstrcpy(pErrorInfo[ErrorNum].FileName,dummyStr.c_str());
-
-        _splitpath(pErrorInfo[ErrorNum].FileName,0,0,temp2,temp3);
-        lstrcat(temp2,temp3);
-
-        if(pErrorInfo[ErrorNum].line==-1)
-            sprintf(temp2+lstrlen(temp2),"(no area) %s",temporary);
-        else
-            sprintf(temp2+lstrlen(temp2),"(%d) - %s",pErrorInfo[ErrorNum].line+1,temporary);
-    }
-
-    i2=GetWindowTextLength(GetDlgItem(hMainDlg,IDC_ERRORLIST));
-    SendDlgItemMessage(hMainDlg,IDC_ERRORLIST,EM_SETSEL,i2,i2);
-    if(bFirst==0){
-        SendDlgItemMessage(hMainDlg,IDC_ERRORLIST,EM_REPLACESEL,0,(LPARAM)"\r\n");
-        i2+=2;
-        SendDlgItemMessage(hMainDlg,IDC_ERRORLIST,EM_SETSEL,i2,i2);
-    }
-    SendDlgItemMessage(hMainDlg,IDC_ERRORLIST,EM_REPLACESEL,0,(LPARAM)temp2);
-
-    std::string msg = temp2;
-    if(num==-2){
-        //コンパイルメッセージ
-        //※何もしない
-        extern int CompileMsgNum;
-        CompileMsgNum++;
-    }
-    else{
-        msg = (num>-100) ? "error - " : "warning - ";
-        msg += temp2;
-        if(num>-100){
-            //警告ではなく、エラーの場合はエラーチェックフラグを立てる
-            extern BOOL bError;
-            bError=1;
-        }
-        else{
-            extern int WarningNum;
-            WarningNum++;
-        }
-
-        // ログに出力
-        trace( msg );
-    }
-
-    std::cout << msg << endl;
-
-
-    ErrorNum++;
-}
-void SetError(){
-    SetError(300,NULL,cp);
-}
-void CompileMessage(const char *buffer){
-    SetError(-2,buffer,-1);
-}
 
 #define STRING_SYSTEM_DECLAREHANDLE "*_System_DeclareHandle_"
@@ -444 +37 @@
 
     extern int cp;
-    if(iWarning==1) SetError(-101,temporary,cp);
-    else if(iWarning==2) SetError(-102,temporary,cp);
-    else if(iWarning==3) SetError(50,temporary,cp);
+    if(iWarning==1) compiler.errorMessenger.Output(-101,temporary,cp);
+    else if(iWarning==2) compiler.errorMessenger.Output(-102,temporary,cp);
+    else if(iWarning==3) compiler.errorMessenger.Output(50,temporary,cp);
 }
 

trunk/ab5.0/abdev/BasicCompiler_Common/hash.cpp

@@ -125 +125 @@
     if(subs.size() == 0){
         if(bError){
-            SetError(3,lpszName,cp);
+            compiler.errorMessenger.Output(3,lpszName,cp);
         }
         return 0;
@@ -132 +132 @@
     //一つ以上の関数が存在するときは内部エラー（デバッグ用）
     if(subs.size() > 1){
-        if(bError) SetError(300,NULL,cp);
+        if(bError) compiler.errorMessenger.Output(300,NULL,cp);
     }
 
@@ -169 +169 @@
     char temporary[VN_SIZE];
     sprintf( temporary, "%s.%s", className, methodName );
-    SetError(3, temporary, -1 );
+    compiler.errorMessenger.Output(3, temporary, -1 );
 
     return NULL;

trunk/ab5.0/abdev/BasicCompiler_Common/include/Compiler.h

@@ -1 +1 @@
 #pragma once
 
+#include <Messenger.h>
 #include <CodeGenerator.h>
 #include <NamespaceSupporter.h>
@@ -85 +86 @@
         return namespaceSupporter;
     }
+
+    // メッセンジャー
+    Messenger messenger;
+    ErrorMessenger errorMessenger;
 
     // コード生成機構

trunk/ab5.0/abdev/BasicCompiler_Common/include/Method.h

@@ -5 +5 @@
 class UserProc;
 class CClass;
-void SetError();
 
 class CMethod : public MemberPrototype
@@ -175 +174 @@
     }
 
-    virtual bool Override( const UserProc *pUserProc, Prototype::Accessibility accessibility, bool isOverrideModifier ){SetError();return false;}
-
-    virtual bool IsAbstract() const{SetError();return false;}
-    virtual void SetAbstractMark( bool isAbstract ){SetError();}
+    virtual bool Override( const UserProc *pUserProc, Prototype::Accessibility accessibility, bool isOverrideModifier )
+    {
+        throw;
+    }
+
+    virtual bool IsAbstract() const
+    {
+        throw;
+    }
+    virtual void SetAbstractMark( bool isAbstract )
+    {
+        throw;
+    }
     virtual bool IsVirtual() const{
         return false;
     }
-    virtual bool IsConst() const{SetError();return false;}
+    virtual bool IsConst() const
+    {
+        throw;
+    }
     virtual bool IsDynamic() const
     {
@@ -191 +202 @@
         return true;
     }
-    virtual const CClass *GetInheritsClassPtr() const{SetError();return NULL;}
-    virtual void SetInheritsClassPtr( const CClass *pInheritsClass ){SetError();}
+    virtual const CClass *GetInheritsClassPtr() const
+    {
+        throw;
+    }
+    virtual void SetInheritsClassPtr( const CClass *pInheritsClass )
+    {
+        throw;
+    }
     virtual bool IsNotUse() const
     {
@@ -199 +216 @@
     virtual void SetNotUseMark( bool isNotUse )
     {
-        SetError();
+        throw;
     }
 };

trunk/ab5.0/abdev/BasicCompiler_Common/include/NativeCode.h

@@ -119 +119 @@
         return lpValue;
     }
-    const ::DllProc &GetDllProc() const
-    {
-        if( type != Schedule::DllProc )
-        {
-            SetError();
-        }
-        return *pDllProc;
-    }
-    const ::UserProc &GetUserProc() const
-    {
-        if( !( type == Schedule::UserProc || type == Schedule::AddressOf || type == Schedule::CatchAddress ) )
-        {
-            SetError();
-        }
-        return *pUserProc;
-    }
-    const ::CClass &GetClass() const
-    {
-        if( !( type == Schedule::ComVtbl || type == Schedule::Vtbl || type == Schedule::TypeInfo ) )
-        {
-            SetError();
-        }
-        return *pClass;
-    }
-
-    void SpecifyAddressOf()
-    {
-        if( type != Schedule::UserProc )
-        {
-            SetError();
-        }
-        type = Schedule::AddressOf;
-    }
-    void SpecifyCatchAddress()
-    {
-        if( type != Schedule::UserProc )
-        {
-            SetError();
-        }
-        type = Schedule::CatchAddress;
-    }
+    const ::DllProc &GetDllProc() const;
+    const ::UserProc &GetUserProc() const;
+    const ::CClass &GetClass() const;
+
+    void SpecifyAddressOf();
+    void SpecifyCatchAddress();
 };
 typedef std::vector<Schedule> Schedules;

trunk/ab5.0/abdev/BasicCompiler_Common/src/Class.cpp

@@ -199 +199 @@
         const CClass *pInheritsClass = compiler.GetObjectModule().meta.GetClasses().Find(className);
         if( !pInheritsClass ){
-            SetError(106,className,nowLine);
+            compiler.errorMessenger.Output(106,className,nowLine);
             return false;
         }
@@ -212 +212 @@
         }
         else{
-            SetError(135,pInheritsClass->GetFullName().c_str(),nowLine);
+            compiler.errorMessenger.Output(135,pInheritsClass->GetFullName().c_str(),nowLine);
             return false;
         }
@@ -236 +236 @@
     if( !compiler.GetObjectModule().meta.GetClasses().LoopRefCheck(inheritsClass) )
     {
-        SetError(123,inheritsClass.GetName(),nowLine);
+        compiler.errorMessenger.Output(123,inheritsClass.GetName(),nowLine);
         return false;
     }
@@ -296 +296 @@
     {
         // インターフェイスではないとき
-        SetError(138,interfaceClass.GetName().c_str(),nowLine );
+        compiler.errorMessenger.Output(138,interfaceClass.GetName().c_str(),nowLine );
         return false;
     }
@@ -379 +379 @@
         const CClass *pInterfaceClass = compiler.GetObjectModule().meta.GetClasses().Find( className );
         if( !pInterfaceClass ){
-            SetError(106,paramStr.c_str(),nowLine);
+            compiler.errorMessenger.Output(106,paramStr.c_str(),nowLine);
             continue;
         }
@@ -404 +404 @@
     //重複チェック
     if(this->DupliCheckAll(VarName)){
-        SetError(15,VarName,cp);
+        compiler.errorMessenger.Output(15,VarName,cp);
     }
 
@@ -466 +466 @@
         //デストラクタの場合はその名前が正しいかチェックを行う
         if(lstrcmp(temporary+1,pobj_c->GetName().c_str())!=0)
-            SetError(117,NULL,nowLine);
+            compiler.errorMessenger.Output(117,NULL,nowLine);
         else
             bDestructor=1;
@@ -489 +489 @@
 
     if(pobj_c->DupliCheckMember(temporary)){
-        SetError(15,temporary,nowLine);
+        compiler.errorMessenger.Output(15,temporary,nowLine);
         return;
     }
@@ -502 +502 @@
         {
             //関数名、パラメータ、戻り値が合致したとき
-            SetError(15,pUserProc->GetName().c_str(),nowLine);
+            compiler.errorMessenger.Output(15,pUserProc->GetName().c_str(),nowLine);
             return;
         }
@@ -549 +549 @@
     if( interfaceName[0] )
     {
-        SetError(139,interfaceName,nowLine);
+        compiler.errorMessenger.Output(139,interfaceName,nowLine);
     }
 
@@ -557 +557 @@
 
     if( isOverride ){
-        SetError(12,"Override",nowLine);
+        compiler.errorMessenger.Output(12,"Override",nowLine);
     }
 
@@ -757 +757 @@
                 if( !pMember->GetType().IsStruct() )
                 {
-                    SetError();
+                    compiler.errorMessenger.OutputFatalError();
                 }
 
@@ -863 +863 @@
                 if( !pMember->GetType().IsStruct() )
                 {
-                    SetError();
+                    compiler.errorMessenger.OutputFatalError();
                 }
 
@@ -985 +985 @@
     }
 
-    SetError();
+    compiler.errorMessenger.OutputFatalError();
     return;
 }
@@ -1002 +1002 @@
     }
 
-    SetError();
+    compiler.errorMessenger.OutputFatalError();
     return 0;
 }
@@ -1014 +1014 @@
     if( vtblMasterListOffset == -1 )
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 
@@ -1042 +1042 @@
     if( vtblMasterList.size() )
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 
@@ -1062 +1062 @@
             if( this->comVtblOffset )
             {
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
             }
             this->comVtblOffset = tempVtblOffset;
@@ -1167 +1167 @@
     if( !Put( pClass ) )
     {
-        SetError(15,pClass->GetName(), nowLine);
+        compiler.errorMessenger.Output(15,pClass->GetName(), nowLine);
         return false;
     }
@@ -1465 +1465 @@
             pCompilingMethod = pParentClass->GetStaticMethods().GetMethodPtr( pUserProc );
             if( !pCompilingMethod ){
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
             }
         }
@@ -1482 +1482 @@
         if( !pStringClass )
         {
-            SetError(400, "System.String", cp);
+            compiler.errorMessenger.Output(400, "System.String", cp);
             static CClass dummy;
             return &dummy;
@@ -1498 +1498 @@
         if( !pObjectClass )
         {
-            SetError(400, "System.Object", cp);
+            compiler.errorMessenger.Output(400, "System.Object", cp);
             static CClass dummy;
             return &dummy;
@@ -1514 +1514 @@
         if( !pInterfaceInfo )
         {
-            SetError(400, "ActiveBasic.Core.InterfaceInfo", cp);
+            compiler.errorMessenger.Output(400, "ActiveBasic.Core.InterfaceInfo", cp);
             static CClass dummy;
             return &dummy;

trunk/ab5.0/abdev/BasicCompiler_Common/src/Class_Collect.cpp

@@ -102 +102 @@
         else if( source[i] == 1 && source[i+1] == ESC_ENDNAMESPACE ){
             if( namespaceScopes.size() <= 0 ){
-                SetError(12, "End Namespace", i );
+                compiler.errorMessenger.Output(12, "End Namespace", i );
             }
             else{
@@ -121 +121 @@
             if( !compiler.GetNamespaceSupporter().ImportsNamespace( temporary ) )
             {
-                SetError(64,temporary,i );
+                compiler.errorMessenger.Output(64,temporary,i );
             }
 
@@ -228 +228 @@
             if(pobj_LoopRefCheck->check(pMember->GetType().GetClass())){
                 extern int cp;
-                SetError(124,pMember->GetType().GetClass().GetName(),cp);
+                compiler.errorMessenger.Output(124,pMember->GetType().GetClass().GetName(),cp);
                 return false;
             }
@@ -283 +283 @@
         else if( basbuf[i] == 1 && basbuf[i+1] == ESC_ENDNAMESPACE ){
             if( namespaceScopes.size() <= 0 ){
-                SetError(12, "End Namespace", i );
+                compiler.errorMessenger.Output(12, "End Namespace", i );
             }
             else{
@@ -303 +303 @@
             if( !compiler.GetNamespaceSupporter().ImportsNamespace( temporary ) )
             {
-                SetError(64,temporary,i );
+                compiler.errorMessenger.Output(64,temporary,i );
             }
 
@@ -358 +358 @@
                     if( !compiler.StringToType( typeParameterBaseClassNames[i2], baseType ) )
                     {
-                        SetError(106,typeParameterBaseClassNames[i2],i);
+                        compiler.errorMessenger.Output(106,typeParameterBaseClassNames[i2],i);
                     }
                     else if( !baseType.IsObject() )
                     {
-                        SetError(106,typeParameterBaseClassNames[i2],i);
+                        compiler.errorMessenger.Output(106,typeParameterBaseClassNames[i2],i);
                     }
                 }
@@ -394 +394 @@
 
                 if(lstrcmpi(temporary,pobj_c->GetName().c_str())==0){
-                    SetError(105,temporary,i);
+                    compiler.errorMessenger.Output(105,temporary,i);
                     goto Interface_InheritsError;
                 }
@@ -402 +402 @@
                 const CClass *pInheritsClass = classes.Find(temporary);
                 if( !pInheritsClass ){
-                    SetError(106,temporary,i);
+                    compiler.errorMessenger.Output(106,temporary,i);
                     goto Interface_InheritsError;
                 }
@@ -427 +427 @@
                 //エラー
                 if(basbuf[i]==1&&(basbuf[i+1]==ESC_CLASS||basbuf[i+1]==ESC_TYPE||basbuf[i+1]==ESC_INTERFACE)){
-                    SetError(22,"Interface",i);
+                    compiler.errorMessenger.Output(22,"Interface",i);
                     i--;
                     break;
@@ -433 +433 @@
 
                 if(basbuf[i]==1&&basbuf[i+1]==ESC_INHERITS){
-                    SetError(111,NULL,i);
+                    compiler.errorMessenger.Output(111,NULL,i);
                     break;
                 }
                 else if( basbuf[i] == 1 && basbuf[i+1] == ESC_IMPLEMENTS )
                 {
-                    SetError(137, NULL, i );
+                    compiler.errorMessenger.Output(137, NULL, i );
                     break;
                 }
@@ -454 +454 @@
                     if(basbuf[i]=='\0'){
                         i--;
-                        SetError(22,"Interface",top_pos);
+                        compiler.errorMessenger.Output(22,"Interface",top_pos);
                         break;
                     }
@@ -466 +466 @@
                     temporary[1]==ESC_SUB||temporary[1]==ESC_FUNCTION
                     ))){
-                    SetError(1,NULL,i);
+                    compiler.errorMessenger.Output(1,NULL,i);
                     break;
                 }
@@ -505 +505 @@
                 if( dwClassType != ESC_TYPE )
                 {
-                    SetError(140,NULL,i);
+                    compiler.errorMessenger.Output(140,NULL,i);
                 }
 
                 if(!(iAlign==1||iAlign==2||iAlign==4||iAlign==8||iAlign==16))
-                    SetError(51,NULL,i);
+                    compiler.errorMessenger.Output(51,NULL,i);
             }
             else if( memicmp( basbuf + i, "Blittable(", 10 ) == 0 ){
@@ -518 +518 @@
                 if( dwClassType != ESC_CLASS )
                 {
-                    SetError(141,NULL,i);
+                    compiler.errorMessenger.Output(141,NULL,i);
                 }
             }
@@ -568 +568 @@
                     if( !compiler.StringToType( typeParameterBaseClassNames[i2], baseType ) )
                     {
-                        SetError(106,typeParameterBaseClassNames[i2],i);
+                        compiler.errorMessenger.Output(106,typeParameterBaseClassNames[i2],i);
                     }
                     else if( !baseType.IsObject() )
                     {
-                        SetError(106,typeParameterBaseClassNames[i2],i);
+                        compiler.errorMessenger.Output(106,typeParameterBaseClassNames[i2],i);
                     }
                 }
@@ -616 +616 @@
 
                     if(lstrcmpi(temporary,pobj_c->GetName().c_str())==0){
-                        SetError(105,temporary,i);
+                        compiler.errorMessenger.Output(105,temporary,i);
                         goto InheritsError;
                     }
@@ -644 +644 @@
                 //エラー
                 if(basbuf[i]==1&&(basbuf[i+1]==ESC_CLASS||basbuf[i+1]==ESC_TYPE)){
-                    SetError(22,"Class",i);
+                    compiler.errorMessenger.Output(22,"Class",i);
                     i--;
                     break;
@@ -650 +650 @@
 
                 if(basbuf[i]==1&&basbuf[i+1]==ESC_INHERITS){
-                    SetError(111,NULL,i);
+                    compiler.errorMessenger.Output(111,NULL,i);
                     break;
                 }
                 else if( basbuf[i] == 1 && basbuf[i+1] == ESC_IMPLEMENTS )
                 {
-                    SetError(137, NULL, i );
+                    compiler.errorMessenger.Output(137, NULL, i );
                     break;
                 }
@@ -718 +718 @@
 
                         if(dwClassType==ESC_CLASS)
-                            SetError(22,"Class",top_pos);
+                            compiler.errorMessenger.Output(22,"Class",top_pos);
                         else
-                            SetError(22,"Type",top_pos);
+                            compiler.errorMessenger.Output(22,"Type",top_pos);
 
                         i--;
@@ -810 +810 @@
                             basbuf[i+1]==ESC_ENUM)){
                             GetDefaultNameFromES(i3,temporary);
-                            SetError(22,temporary,i);
+                            compiler.errorMessenger.Output(22,temporary,i);
                         }
                         if(basbuf[i]==1&&basbuf[i+1]==GetEndXXXCommand((char)i3)){

trunk/ab5.0/abdev/BasicCompiler_Common/src/CommonCodeGenerator.cpp

@@ -22 +22 @@
     if( pertialSchedules.size() > 0 )
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 }
@@ -40 +40 @@
                 {
                     // 範囲外
-                    SetError();
+                    compiler.errorMessenger.OutputFatalError();
                 }
 
@@ -55 +55 @@
             else
             {
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
             }
 
@@ -72 +72 @@
     if( isSuccessful == false )
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 }
@@ -94 +94 @@
             else
             {
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
             }
 
@@ -111 +111 @@
     if( isSuccessful == false )
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 }
@@ -133 +133 @@
                 {
                     // 範囲外
-                    SetError();
+                    compiler.errorMessenger.OutputFatalError();
                 }
 
@@ -144 +144 @@
             else
             {
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
             }
 
@@ -160 +160 @@
     if( isSuccessful == false )
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 }
@@ -180 +180 @@
         else
         {
-            SetError();
+            compiler.errorMessenger.OutputFatalError();
         }
     }
@@ -196 +196 @@
         else
         {
-            SetError();
+            compiler.errorMessenger.OutputFatalError();
         }
     }
@@ -223 +223 @@
     else
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 
@@ -276 +276 @@
     if( GetContinueCodePos() == -1 )
     {
-        SetError(12,"Continue",cp);
+        compiler.errorMessenger.Output(12,"Continue",cp);
         return;
     }

trunk/ab5.0/abdev/BasicCompiler_Common/src/Compiler.cpp

@@ -206 +206 @@
     }
 
-    SetError(1, NULL, cp);
+    compiler.errorMessenger.Output(1, NULL, cp);
 
     return (string)"(null)";

trunk/ab5.0/abdev/BasicCompiler_Common/src/Const.cpp

@@ -17 +17 @@
     for(i=0;;i++){
         if(buffer[i]=='\0'){
-            SetError(10,"Const",cp);
+            compiler.errorMessenger.Output(10,"Const",cp);
             return;
         }
@@ -31 +31 @@
         || compiler.GetObjectModule().meta.GetGlobalConsts().IsExist( name ) )
     {
-        SetError(15,name,cp);
+        compiler.errorMessenger.Output(15,name,cp);
         return;
     }
@@ -144 +144 @@
         extern int cp;
         for(i2=0;i2<num;i2++) HeapDefaultFree(pParms[i2]);
-        SetError(10,GetName().c_str(),cp);
+        compiler.errorMessenger.Output(10,GetName().c_str(),cp);
         lstrcpy(dest,"0");
         return 1;
@@ -206 +206 @@
     if(parameterStr[i]!='(')
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
         return;
     }
@@ -214 +214 @@
     for(i++,i2=0;;i++,i2++){
         if(parameterStr[i]=='\0'){
-            SetError(1,NULL,cp);
+            compiler.errorMessenger.Output(1,NULL,cp);
             return;
         }
@@ -226 +226 @@
                 if(parameterStr[i]!='='){
                     extern int cp;
-                    SetError(1,NULL,cp);
+                    compiler.errorMessenger.Output(1,NULL,cp);
                     return;
                 }

trunk/ab5.0/abdev/BasicCompiler_Common/src/DataTable.cpp

@@ -121 +121 @@
             {
                 // エラー
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
                 return false;
             }
@@ -196 +196 @@
             i+=i2;
             if(expression[i]!='\0'){
-                SetError(42,NULL,cp);
+                compiler.errorMessenger.Output(42,NULL,cp);
                 return false;
             }
@@ -213 +213 @@
 
     if( !compiler.StringToType( typeName, resultType ) ){
-        SetError(3,typeName,cp);
+        compiler.errorMessenger.Output(3,typeName,cp);
         return false;
     }
@@ -222 +222 @@
         ////////////////////////
 
-        SetError(121,NULL,cp);
+        compiler.errorMessenger.Output(121,NULL,cp);
         return false;
     }
@@ -268 +268 @@
 {
     if( !baseType.IsPointer() ){
-        SetError(1,NULL,cp);
+        compiler.errorMessenger.Output(1,NULL,cp);
         return false;
     }
@@ -301 +301 @@
             if( !RemoveStringQuotes( tempParamStr ) )
             {
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
             }
 
@@ -335 +335 @@
             if( !resultType.IsWhole() ){
                 // TODO: 実数に未対応
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
                 isSuccessful = false;
                 break;

trunk/ab5.0/abdev/BasicCompiler_Common/src/Delegate.cpp

@@ -20 +20 @@
         if( !compiler.StringToType( returnTypeName, returnType ) )
         {
-            SetError(3,returnTypeName,sourceIndex);
+            compiler.errorMessenger.Output(3,returnTypeName,sourceIndex);
         }
     }
@@ -72 +72 @@
         else if( source[i] == 1 && source[i+1] == ESC_ENDNAMESPACE ){
             if( namespaceScopes.size() <= 0 ){
-                SetError(12, "End Namespace", i );
+                compiler.errorMessenger.Output(12, "End Namespace", i );
             }
             else{
@@ -91 +91 @@
             if( !compiler.GetNamespaceSupporter().ImportsNamespace( temporary ) )
             {
-                SetError(64,temporary,i );
+                compiler.errorMessenger.Output(64,temporary,i );
             }
 
@@ -108 +108 @@
             if( !( source[i] == 1 && ( source[i+1] == ESC_SUB || source[i+1] == ESC_FUNCTION ) ) )
             {
-                SetError(1,NULL,i);
+                compiler.errorMessenger.Output(1,NULL,i);
                 continue;
             }
@@ -125 +125 @@
             if( source[i] != '(' )
             {
-                SetError(1,NULL,nowLine);
+                compiler.errorMessenger.Output(1,NULL,nowLine);
                 continue;
             }
@@ -142 +142 @@
                 if( procKind != Procedure::Function )
                 {
-                    SetError(38,name,nowLine);
+                    compiler.errorMessenger.Output(38,name,nowLine);
                 }
             }
@@ -149 +149 @@
                 if( procKind == Procedure::Function )
                 {
-                    SetError(-104,name,nowLine);
+                    compiler.errorMessenger.Output(-104,name,nowLine);
                     lstrcpy( returnTypeName, "Double" );
                 }

trunk/ab5.0/abdev/BasicCompiler_Common/src/Enum.cpp

@@ -18 +18 @@
         }
         if(!IsVariableChar(buffer[i])){
-            SetError(1,NULL,i);
+            compiler.errorMessenger.Output(1,NULL,i);
             break;
         }
@@ -25 +25 @@
 
     if(buffer[i]=='\0'){
-        SetError(22,"Enum",nowLine);
+        compiler.errorMessenger.Output(22,"Enum",nowLine);
         return;
     }
@@ -52 +52 @@
         if(temporary[0]=='\0'){
             if(buffer[i]=='\0'){
-                SetError(22,"Enum",nowLine);
+                compiler.errorMessenger.Output(22,"Enum",nowLine);
                 break;
             }
@@ -131 +131 @@
         else if( source[i] == 1 && source[i+1] == ESC_ENDNAMESPACE ){
             if( namespaceScopes.size() <= 0 ){
-                SetError(12, "End Namespace", i );
+                compiler.errorMessenger.Output(12, "End Namespace", i );
             }
             else{

trunk/ab5.0/abdev/BasicCompiler_Common/src/Exception.cpp

@@ -120 +120 @@
         if( isDefinedFinally )
         {
-            SetError(71,NULL,cp);
+            compiler.errorMessenger.Output(71,NULL,cp);
             return;
         }
@@ -146 +146 @@
         if( isDefinedFinally )
         {
-            SetError(70,NULL,cp);
+            compiler.errorMessenger.Output(70,NULL,cp);
             return;
         }
@@ -173 +173 @@
         if( !isDefinedFinally )
         {
-            SetError();
+            compiler.errorMessenger.OutputFatalError();
         }
 
@@ -259 +259 @@
     if( tryScopes.size() == 0 )
     {
-        SetError(1,NULL,cp);
+        compiler.errorMessenger.Output(1,NULL,cp);
         return;
     }
@@ -271 +271 @@
         if( !typeName[0] )
         {
-            SetError(72,NULL,cp);
+            compiler.errorMessenger.Output(72,NULL,cp);
         }
         else
@@ -277 +277 @@
             if( !compiler.StringToType( typeName, paramType ) )
             {
-                SetError(74,typeName,cp);
+                compiler.errorMessenger.Output(74,typeName,cp);
             }
             else
@@ -283 +283 @@
                 if( !paramType.IsObject() )
                 {
-                    SetError(73,typeName,cp);
+                    compiler.errorMessenger.Output(73,typeName,cp);
                 }
             }
@@ -296 +296 @@
     if( paramType.IsObject() )
     {
-        sprintf( temporary, "Dim %s = Thread.CurrentThread().__GetThrowintParamObject() As %s", varName, paramType.GetClass().GetFullName().c_str() );
+        sprintf( temporary, "Dim %s = System.Threading.Thread.CurrentThread().__GetThrowintParamObject() As %s", varName, paramType.GetClass().GetFullName().c_str() );
         MakeMiddleCode( temporary );
         ChangeOpcode( temporary );
     }
-    lstrcpy( temporary, "Thread.CurrentThread().__Catched()" );
+    lstrcpy( temporary, "System.Threading.Thread.CurrentThread().__Catched()" );
     MakeMiddleCode( temporary );
     ChangeOpcode( temporary );
@@ -326 +326 @@
     if( tryScopes.size() == 0 )
     {
-        SetError(12,"End Try",cp);
+        compiler.errorMessenger.Output(12,"End Try",cp);
         return;
     }
@@ -333 +333 @@
     {
         // CatchもFinallyも存在しないとき
-        SetError(-108,NULL,tryScopes.back().GetSourceCodePos() );
+        compiler.errorMessenger.Output(-108,NULL,tryScopes.back().GetSourceCodePos() );
     }
 
@@ -364 +364 @@
     while( tryScopes.size() > 0 )
     {
-        SetError(22, "Try", tryScopes.back().GetSourceCodePos() );
+        compiler.errorMessenger.Output(22, "Try", tryScopes.back().GetSourceCodePos() );
 
         EndTryCommand( true );
@@ -393 +393 @@
     if( tryScopes.size() == 0 )
     {
-        SetError(1,NULL,cp);
+        compiler.errorMessenger.Output(1,NULL,cp);
         return;
     }
@@ -424 +424 @@
     if( tryScopes.size() == 0 )
     {
-        SetError(1,NULL,cp);
+        compiler.errorMessenger.Output(1,NULL,cp);
         return;
     }

trunk/ab5.0/abdev/BasicCompiler_Common/src/LexicalScope.cpp

@@ -64 +64 @@
 void LexicalScopes::End(){
     if( level <= 0 ){
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
         return;
     }
@@ -154 +154 @@
             if( UserProc::IsGlobalAreaCompiling() ){
                 //ここには来ないハズ
-                SetError(300,NULL,cp);
+                compiler.errorMessenger.Output(300,NULL,cp);
             }
         }

trunk/ab5.0/abdev/BasicCompiler_Common/src/Linker.cpp

@@ -113 +113 @@
                 && schedule.GetUserProc().GetEndOpAddress() == 0 )
             {
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
             }
 
@@ -252 +252 @@
     if( nativeCode.GetSize() > 0 )
     {
-        SetError();
+        compiler.errorMessenger.OutputFatalError();
     }
 

trunk/ab5.0/abdev/BasicCompiler_Common/src/Method.cpp

@@ -11 +11 @@
     {
         // Override修飾子が無い状況で基底クラスの実体メソッドをオーバーライドしようとした
-        SetError(127,NULL,cp);
+        compiler.errorMessenger.Output(127,NULL,cp);
     }
 
@@ -21 +21 @@
     {
         // オーバーライドミス
-        SetError(136, pUserProc->GetName(), cp);
+        compiler.errorMessenger.Output(136, pUserProc->GetName(), cp);
     }
     if(this->GetAccessibility() != accessibility )
     {
-        SetError(128,NULL,cp);
+        compiler.errorMessenger.Output(128,NULL,cp);
     }
 
@@ -35 +35 @@
 {
     // 静的メソッドがコピーコンストラトされることは想定しない
-    SetError();
+    compiler.errorMessenger.OutputFatalError();
 }
 
@@ -160 +160 @@
 
             if(pMethod->IsAbstract()){
-                SetError();
+                compiler.errorMessenger.OutputFatalError();
 
                 ppsi[i2]=0;

trunk/ab5.0/abdev/BasicCompiler_Common/src/NamespaceSupporter.cpp

@@ -46 +46 @@
         else if( source[i] == 1 && source[i+1] == ESC_ENDNAMESPACE ){
             if( namespaceScopes.size() <= 0 ){
-                SetError( 12, "End Namespace", i );
+                compiler.errorMessenger.Output( 12, "End Namespace", i );
                 isSuccessful = false;
             }
@@ -59 +59 @@
 
     if( namespaceScopes.size() > 0 ){
-        SetError( 63, NULL, cp );
+        compiler.errorMessenger.Output( 63, NULL, cp );
         isSuccessful = false;
     }

trunk/ab5.0/abdev/BasicCompiler_Common/src/NativeCode.cpp

@@ -4 +4 @@
 
 #define BREAK_EIP(checkEip)  (obp+0x00401000>=checkEip)
+
+const ::DllProc &Schedule::GetDllProc() const
+{
+    if( type != Schedule::DllProc )
+    {
+        compiler.errorMessenger.OutputFatalError();
+    }
+    return *pDllProc;
+}
+const ::UserProc &Schedule::GetUserProc() const
+{
+    if( !( type == Schedule::UserProc || type == Schedule::AddressOf || type == Schedule::CatchAddress ) )
+    {
+        compiler.errorMessenger.OutputFatalError();
+    }
+    return *pUserProc;
+}
+const ::CClass &Schedule::GetClass() const
+{
+    if( !( type == Schedule::ComVtbl || type == Schedule::Vtbl || type == Schedule::TypeInfo ) )
+    {
+        compiler.errorMessenger.OutputFatalError();
+    }
+    return *pClass;
+}
+
+void Schedule::SpecifyAddressOf()
+{
+    if( type != Schedule::UserProc )
+    {
+        compiler.errorMessenger.OutputFatalError();
+    }
+    type = Schedule::AddressOf;
+}
+void Schedule::SpecifyCatchAddress()
+{
+    if( type != Schedule::UserProc )
+    {
+        compiler.errorMessenger.OutputFatalError();
+    }
+    type = Schedule::CatchAddress;
+}
 
 void NativeCode::PutEx( const NativeCode &nativeCode )

trunk/ab5.0/abdev/BasicCompiler_Common/src/Parameter.cpp

@@ -145 +145 @@
             if( isRef == false )
             {
-                SetError(29,NULL,nowLine);
+                compiler.errorMessenger.Output(29,NULL,nowLine);
             }
             isArray = true;
@@ -206 +206 @@
 
             if( type.IsNull() ){
-                SetError(3,temporary,nowLine);
+                compiler.errorMessenger.Output(3,temporary,nowLine);
                 type.SetBasicType( DEF_PTR_VOID );
             }
@@ -219 +219 @@
         else{
             type.SetBasicType( Type::GetBasicTypeFromSimpleName(temporary) );
-            SetError(-103,temporary,nowLine);
+            compiler.errorMessenger.Output(-103,temporary,nowLine);
         }
 
@@ -240 +240 @@
         }
         else{
-            SetError(1,NULL,nowLine);
+            compiler.errorMessenger.Output(1,NULL,nowLine);
             break;
         }

trunk/ab5.0/abdev/BasicCompiler_Common/src/Procedure.cpp

@@ -105 +105 @@
     //パラメータ
     if(sourceOfParams[i]!='('){
-        SetError(1,NULL,nowLine);
+        compiler.errorMessenger.Output(1,NULL,nowLine);
         return false;
     }
@@ -111 +111 @@
         //クラスのメンバ関数の場合のみ、デストラクタにパラメータがある場合にエラーをだす
         if(this->GetName()[0]=='~'){
-            SetError(114,NULL,nowLine);
+            compiler.errorMessenger.Output(114,NULL,nowLine);
             return false;
         }
@@ -133 +133 @@
             if( !this->IsFunction() ){
                 // Sub/Macroの場合
-                SetError(38,this->GetName(),nowLine);
+                compiler.errorMessenger.Output(38,this->GetName(),nowLine);
             }
 
@@ -140 +140 @@
         else
         {
-            SetError(1,NULL,nowLine);
+            compiler.errorMessenger.Output(1,NULL,nowLine);
             return false;
         }
@@ -199 +199 @@
             if( isRef == false )
             {
-                SetError(29,NULL,nowLine);
+                compiler.errorMessenger.Output(29,NULL,nowLine);
             }
             isArray = true;
@@ -248 +248 @@
 
             if( type.IsNull() ){
-                SetError(3,temporary,nowLine);
+                compiler.errorMessenger.Output(3,temporary,nowLine);
                 type.SetBasicType( DEF_PTR_VOID );
             }
@@ -261 +261 @@
         else{
             type.SetBasicType( Type::GetBasicTypeFromSimpleName(name) );
-            SetError(-103,name,nowLine);
+            compiler.errorMessenger.Output(-103,name,nowLine);
         }
 
@@ -325 +325 @@
         if(sw){
             //配列パラメータ
-            if( isRef == false ) SetError(29,NULL,nowLine);
+            if( isRef == false ) compiler.errorMessenger.Output(29,NULL,nowLine);
             isArray = true;
 
@@ -389 +389 @@
 
             if( type.IsNull() ){
-                SetError(3,temporary,nowLine);
+                compiler.errorMessenger.Output(3,temporary,nowLine);
                 type.SetBasicType( DEF_PTR_VOID );
             }
@@ -402 +402 @@
         else{
             type.SetBasicType( Type::GetBasicTypeFromSimpleName(temporary) );
-            SetError(-103,temporary,nowLine);
+            compiler.errorMessenger.Output(-103,temporary,nowLine);
         }
 
@@ -421 +421 @@
         if( !this->IsFunction() ){
             // Sub/Macroの場合
-            SetError(38,this->GetName(),nowLine);
+            compiler.errorMessenger.Output(38,this->GetName(),nowLine);
         }
 
@@ -428 +428 @@
                 this->GetName()[0]=='~'){
                 //クラスのコンストラクタ、デストラクタがFunction定義の場合はエラーをだす
-                SetError(115,NULL,nowLine);
+                compiler.errorMessenger.Output(115,NULL,nowLine);
             }
         }
@@ -435 +435 @@
         if( this->returnType.IsNull() )
         {
-            SetError(3,returnTypeStr,nowLine);
+            compiler.errorMessenger.Output(3,returnTypeStr,nowLine);
         }
     }
@@ -442 +442 @@
         {
             // Function定義なのに、戻り値の型がセットされていない
-            SetError(-104,this->GetName().c_str(),nowLine);
+            compiler.errorMessenger.Output(-104,this->GetName().c_str(),nowLine);
 
             this->returnType.SetBasicType( DEF_DOUBLE );
@@ -495 +495 @@
     {
         // 重複しているため、失敗
-        SetError(15,pUserProc->GetName().c_str(),nowLine);
+        compiler.errorMessenger.Output(15,pUserProc->GetName().c_str(),nowLine);
         return false;
     }
@@ -536 +536 @@
     if(buffer[i]==1&&buffer[i+1]==ESC_OPERATOR){
         if(!pobj_c){
-            SetError(126,NULL,nowLine);
+            compiler.errorMessenger.Output(126,NULL,nowLine);
             return 0;
         }
@@ -570 +570 @@
         }
         if(!iCalcId){
-            SetError(1,NULL,nowLine);
+            compiler.errorMessenger.Output(1,NULL,nowLine);
             return 0;
         }
@@ -608 +608 @@
                 else
                 {
-                    SetError();
+                    compiler.errorMessenger.OutputFatalError();
                     return NULL;
                 }
@@ -615 +615 @@
                 if( SplitMemberName( memberName, parentName, dummyMemberName, refKind ) )
                 {
-                    SetError(69,temporary,nowLine);
+                    compiler.errorMessenger.Output(69,temporary,nowLine);
                     return NULL;
                 }
@@ -621 +621 @@
             else
             {
-                SetError(68,temporary,nowLine);
+                compiler.errorMessenger.Output(68,temporary,nowLine);
                 return NULL;
             }
@@ -642 +642 @@
 
         if(GetDeclareHash(temporary)){
-            SetError(15,temporary,nowLine);
+            compiler.errorMessenger.Output(15,temporary,nowLine);
             return 0;
         }
@@ -715 +715 @@
     //パラメータ
     if(sourceOfParams[i]!='('){
-        SetError(1,NULL,nowLine);
+        compiler.errorMessenger.Output(1,NULL,nowLine);
         return 0;
     }
@@ -765 +765 @@
         if(sw){
             //配列パラメータ
-            if( isRef == false ) SetError(29,NULL,nowLine);
+            if( isRef == false ) compiler.errorMessenger.Output(29,NULL,nowLine);
             isArray = true;
 
@@ -811 +811 @@
 
             if( type.IsNull() ){
-                SetError(3,temporary,nowLine);
+                compiler.errorMessenger.Output(3,temporary,nowLine);
                 type.SetBasicType( DEF_PTR_VOID );
             }
@@ -817 +817 @@
         else{
             type.SetBasicType( Type::GetBasicTypeFromSimpleName(temporary) );
-            SetError(-103,temporary,nowLine);
+            compiler.errorMessenger.Output(-103,temporary,nowLine);
         }
 
@@ -834 +834 @@
         else if(sourceOfParams[i]==')') continue;
         else{
-            SetError(1,NULL,nowLine);
+            compiler.errorMessenger.Output(1,NULL,nowLine);
             break;
         }
@@ -863 +863 @@
                 }
                 compiler.StringToType( temporary, this->returnType );
-                if( this->returnType.IsNull() ) SetError(3,temporary,nowLine);
+                if( this->returnType.IsNull() ) compiler.errorMessenger.Output(3,temporary,nowLine);
 
                 sw_as=1;
@@ -891 +891 @@
     }
     else{
-        SetError(1,NULL,nowLine);
+        compiler.errorMessenger.Output(1,NULL,nowLine);
         return;
     }
@@ -912 +912 @@
         }
         if(buffer[i]=='\0'){
-            SetError(1,NULL,nowLine);
+            compiler.errorMessenger.Output(1,NULL,nowLine);
             return;
         }
@@ -921 +921 @@
     //ユーザー定義関数との重複チェック
     if(GetSubHash(procName)){
-        SetError(15,procName,nowLine);
+        compiler.errorMessenger.Output(15,procName,nowLine);
         return;
     }
@@ -935 +935 @@
     }
     if( resultType.GetBasicType() != typeOfPtrChar ){
-        SetError(1,NULL,nowLine);
+        compiler.errorMessenger.Output(1,NULL,nowLine);
         return;
     }
@@ -943 +943 @@
         lstrcat(dllFileName,".DLL");
         if(lstrlen(dllFileName)>=16){
-            SetError(7,NULL,nowLine);
+            compiler.errorMessenger.Output(7,NULL,nowLine);
             return;
         }
@@ -956 +956 @@
         }
         if( resultType.GetBasicType() != typeOfPtrChar ){
-            SetError(1,NULL,nowLine);
+            compiler.errorMessenger.Output(1,NULL,nowLine);
             return;
         }
@@ -977 +977 @@
     BOOST_FOREACH( const Parameter *pParam, pDllProc->Params() ){
         if( pParam->IsObject() ){
-            SetError(25,pParam->GetVarName(),nowLine);
+            compiler.errorMessenger.Output(25,pParam->GetVarName(),nowLine);
         }
         if( !pParam->IsRef() ){
             if( pParam->IsStruct() ){
-                SetError(28,pParam->GetVarName(),nowLine);
+                compiler.errorMessenger.Output(28,pParam->GetVarName(),nowLine);
             }
         }
@@ -992 +992 @@
         if( pDllProc->ReturnType().IsObject() ){
             // DLL関数ではオブジェクトを戻り値にできない
-            SetError(40,pDllProc->GetName(),nowLine);
+            compiler.errorMessenger.Output(40,pDllProc->GetName(),nowLine);
         }
     }
@@ -1010 +1010 @@
     //パラメータ
     if(sourceOfParams[i]!='('){
-        SetError(1,NULL,nowLine);
+        compiler.errorMessenger.Output(1,NULL,nowLine);
         return 0;
     }
@@ -1059 +1059 @@
         if(sw){
             //配列パラメータ
-            if( isRef == false ) SetError(29,NULL,nowLine);
+            if( isRef == false ) compiler.errorMessenger.Output(29,NULL,nowLine);
             isArray = true;
 
@@ -1104 +1104 @@
 
             if( type.IsNull() ){
-                SetError(3,temporary,nowLine);
+                compiler.errorMessenger.Output(3,temporary,nowLine);
                 type.SetBasicType( DEF_PTR_VOID );
             }
@@ -1110 +1110 @@
         else{
             type.SetBasicType( Type::GetBasicTypeFromSimpleName(temporary) );
-            SetError(-103,temporary,nowLine);
+            compiler.errorMessenger.Output(-103,temporary,nowLine);
         }
 
@@ -1127 +1127 @@
         else if(sourceOfParams[i]==')') continue;
         else{
-            SetError(1,NULL,nowLine);
+            compiler.errorMessenger.Output(1,NULL,nowLine);
             break;
         }
@@ -1156 +1156 @@
                 }
                 compiler.StringToType( temporary, this->returnType );
-                if( this->returnType.IsNull() ) SetError(3,temporary,nowLine);
+                if( this->returnType.IsNull() ) compiler.errorMessenger.Output(3,temporary,nowLine);
 
                 sw_as=1;
@@ -1174 +1174 @@
         if( this->ReturnType().IsNull() ){
             // 戻り値がない
-            SetError(26,this->GetName(),nowLine);
+            compiler.errorMessenger.Output(26,this->GetName(),nowLine);
         }
     }
@@ -1180 +1180 @@
         if( !this->ReturnType().IsNull() ){
             // Sub定義なのに、戻り値がある
-            SetError(38,this->GetName(),nowLine);
+            compiler.errorMessenger.Output(38,this->GetName(),nowLine);
         }
     }

trunk/ab5.0/abdev/BasicCompiler_Common/src/Source.cpp

@@ -678 +678 @@
                 if( !source.ReadFile_InIncludeDirective( temporary ) ){
                     sprintf(temp2,"インクルードファイル \"%s\" をオープンできません",temporary);
-                    SetError(-1,temp2,i);
+                    compiler.errorMessenger.Output(-1,temp2,i);
                     break;
                 }
@@ -920 +920 @@
     for( int i=0; genBuffer[i] ; i++ ){
         if( genBuffer[i] == '\n' ){
-            SetError();
+            compiler.errorMessenger.OutputFatalError();
             break;
         }

trunk/ab5.0/abdev/BasicCompiler_Common/src/Type.cpp

@@ -116 +116 @@
     }
 
-    SetError();
+    compiler.errorMessenger.OutputFatalError();
 
     return 0;
@@ -219 +219 @@
     {
         if( !pClass ){
-            SetError();
+            compiler.errorMessenger.OutputFatalError();
             return 0;
         }
@@ -232 +232 @@
     }
 
-    SetError();
+    compiler.errorMessenger.OutputFatalError();
     return 0;
 }

trunk/ab5.0/abdev/BasicCompiler_Common/src/TypeDef.cpp

@@ -10 +10 @@
 {
     if( !compiler.StringToType( baseName, baseType ) ){
-        SetError(3, baseName, nowLine );
+        compiler.errorMessenger.Output(3, baseName, nowLine );
         return;
     }
@@ -87 +87 @@
 
     if(expression[i]!='='){
-        SetError(10,"TypeDef",nowLine);
+        compiler.errorMessenger.Output(10,"TypeDef",nowLine);
         return;
     }
@@ -98 +98 @@
         if(temporary[i]=='\0') break;
         if( !( IsVariableChar( temporary[i], true) ) ){
-            SetError(10,"TypeDef",nowLine);
+            compiler.errorMessenger.Output(10,"TypeDef",nowLine);
             return;
         }
@@ -107 +107 @@
         //関数ポインタ
         if(pTemp[3]!='('){
-            SetError(10,"TypeDef",nowLine);
+            compiler.errorMessenger.Output(10,"TypeDef",nowLine);
             return;
         }
@@ -118 +118 @@
             if( !( IsVariableChar( pTemp[i], true) ) )
             {
-                SetError(10,"TypeDef",nowLine);
+                compiler.errorMessenger.Output(10,"TypeDef",nowLine);
                 return;
             }
@@ -126 +126 @@
     //識別子が重複している場合はエラーにする
     if(lstrcmp(temporary,pTemp)==0){
-        SetError(1,NULL,nowLine);
+        compiler.errorMessenger.Output(1,NULL,nowLine);
         return;
     }
@@ -170 +170 @@
         else if( basbuf[i] == 1 && basbuf[i+1] == ESC_ENDNAMESPACE ){
             if( namespaceScopes.size() <= 0 ){
-                SetError(12, "End Namespace", i );
+                compiler.errorMessenger.Output(12, "End Namespace", i );
             }
             else{
@@ -189 +189 @@
             if( !compiler.GetNamespaceSupporter().ImportsNamespace( temporary ) )
             {
-                SetError(64,temporary,i );
+                compiler.errorMessenger.Output(64,temporary,i );
             }
 

trunk/ab5.0/jenga/include/common/String.h

@@ -9 +9 @@
 typedef std::vector<std::string> Strings;
 
+bool IsExistString( const Jenga::Common::Strings &strings, const std::string &findStr );
+
 }
 }

trunk/ab5.0/jenga/projects/common/common.vcproj

@@ -297 +297 @@
                 >
             </File>
+            <File
+                RelativePath="..\..\src\common\String.cpp"
+                >
+            </File>
         </Filter>
         <Filter