Changeset 99 in dev


Ignore:
Timestamp:
Apr 19, 2007, 3:09:55 AM (17 years ago)
Author:
dai_9181
Message:

Namespaceステートメントのエスケープシーケンス化を行った。
[IDE]バックアップに失敗したときにエラーメッセージを出さないようにした。

Files:
7 edited

Legend:

Unmodified
Added
Removed

  • BasicCompiler_Common/BasicFixed.h

    r69 r99  
    129129
    130130//以下制御用エスケープシーケンス
    131 #define ESC_MOD         '1' //MOD 演算子
    132 #define ESC_AND         '&' //AND 演算子
    133 #define ESC_OR          '3' //OR 演算子
    134 #define ESC_XOR         '4' //XOR 演算子
    135 #define ESC_NOT         '5' //NOT 演算子
    136 #define ESC_AS          '6' //AS（区切り文字）
    137 #define ESC_THEN        2   //Then
    138 #define ESC_ELSE        3   //Else
    139 #define ESC_IF          'A' //If
    140 #define ESC_ELSEIF      'B' //ElseIf
    141 #define ESC_ENDIF       'C' //End If
    142 #define ESC_DEF         'D' //Def
    143 #define ESC_DECLARE     'E' //Declare
    144 #define ESC_SUB         'F' //Sub
    145 #define ESC_ENDSUB      'G' //End Sub
    146 #define ESC_EXITSUB     'H' //Exit Sub
    147 #define ESC_FUNCTION    'I' //Function
    148 #define ESC_ENDFUNCTION 'J' //End Function
    149 #define ESC_EXITFUNCTION 'K'//Exit Function
    150 #define ESC_BYVAL       'L' //ByVal
    151 #define ESC_BYREF       'M' //ByRef
    152 #define ESC_TYPE        'N' //Type
    153 #define ESC_ENDTYPE     'O' //End Type
    154 #define ESC_EXITFOR     'P' //Exit For
    155 #define ESC_EXITWHILE   'Q' //Exit Wend
    156 #define ESC_EXITDO      'R' //Exit Do
    157 #define ESC_SELECTCASE  'S' //Select Case
    158 #define ESC_CASE        'T' //Case
    159 #define ESC_CASEELSE    'U' //Case Else
    160 #define ESC_ENDSELECT   'V' //End Select
    161 #define ESC_CONST       'W' //Const
    162 #define ESC_WITH        'X' //With
    163 #define ESC_ENDWITH     'Y' //End With
    164 #define ESC_CDECL       'Z' //cdecl規約
    165 #define ESC_MACRO       'a' //Macro
    166 #define ESC_ENDMACRO    'b' //End Macro
    167 #define ESC_EXITMACRO   'c' //Exit Macro
    168 #define ESC_EXPORT      'd' //Export
    169 #define ESC_CONTINUE    'e' //Continue
    170 #define ESC_PSMEM       'f' //"->" Member of Pointer Struct（構造体ポインタのメンバ参照）
    171 #define ESC_STATIC      'g' //Static
    172 #define ESC_TYPEDEF     'h' //TypeDef
    173 #define ESC_TRY         'i' //Try
    174 #define ESC_CATCH       'j' //Catch
    175 #define ESC_FINALLY     'k' //Finally
    176 #define ESC_THROW       'l' //Throw
    177 #define ESC_ENDTRY      'm' //End Try
     131#define ESC_MOD             '1'     // MOD 演算子
     132#define ESC_AND             '&'     // AND 演算子
     133#define ESC_OR              '3'     // OR 演算子
     134#define ESC_XOR             '4'     // XOR 演算子
     135#define ESC_NOT             '5'     // NOT 演算子
     136#define ESC_AS              '6'     // AS（区切り文字）
     137#define ESC_THEN            2       // Then
     138#define ESC_ELSE            3       // Else
     139#define ESC_IF              'A'     // If
     140#define ESC_ELSEIF          'B'     // ElseIf
     141#define ESC_ENDIF           'C'     // End If
     142#define ESC_DEF             'D'     // Def
     143#define ESC_DECLARE         'E'     // Declare
     144#define ESC_SUB             'F'     // Sub
     145#define ESC_ENDSUB          'G'     // End Sub
     146#define ESC_EXITSUB         'H'     // Exit Sub
     147#define ESC_FUNCTION        'I'     // Function
     148#define ESC_ENDFUNCTION     'J'     // End Function
     149#define ESC_EXITFUNCTION    'K'     // Exit Function
     150#define ESC_BYVAL           'L'     // ByVal
     151#define ESC_BYREF           'M'     // ByRef
     152#define ESC_TYPE            'N'     // Type
     153#define ESC_ENDTYPE         'O'     // End Type
     154#define ESC_EXITFOR         'P'     // Exit For
     155#define ESC_EXITWHILE       'Q'     // Exit Wend
     156#define ESC_EXITDO          'R'     // Exit Do
     157#define ESC_SELECTCASE      'S'     // Select Case
     158#define ESC_CASE            'T'     // Case
     159#define ESC_CASEELSE        'U'     // Case Else
     160#define ESC_ENDSELECT       'V'     // End Select
     161#define ESC_CONST           'W'     // Const
     162#define ESC_WITH            'X'     // With
     163#define ESC_ENDWITH         'Y'     // End With
     164#define ESC_CDECL           'Z'     // cdecl規約
     165#define ESC_MACRO           'a'     // Macro
     166#define ESC_ENDMACRO        'b'     // End Macro
     167#define ESC_EXITMACRO       'c'     // Exit Macro
     168#define ESC_EXPORT          'd'     // Export
     169#define ESC_CONTINUE        'e'     // Continue
     170#define ESC_PSMEM           'f'     // "->" Member of Pointer Struct（構造体ポインタのメンバ参照）
     171#define ESC_STATIC          'g'     // Static
     172#define ESC_TYPEDEF         'h'     // TypeDef
     173#define ESC_TRY             'i'     // Try
     174#define ESC_CATCH           'j'     // Catch
     175#define ESC_FINALLY         'k'     // Finally
     176#define ESC_THROW           'l'     // Throw
     177#define ESC_ENDTRY          'm'     // End Try
     178#define ESC_NAMESPACE       'o'     // Namespace
     179#define ESC_ENDNAMESPACE    'p'     // End Namespace
    178180//EXEファイル用制御エスケープシーケンス
    179 #define ESC_USING       'o' //Print命令語のUsing
    180 #define ESC_FOR         'p' //Open命令語のFor
    181 #define ESC_LINENUM     'q' //行番号を示す
     181#define ESC_USING           'q'     // Print命令語のUsing
     182#define ESC_FOR             'r'     // Open命令語のFor
     183#define ESC_LINENUM         's'     // 行番号を示す
    182184
    183185//オブジェクト指向エスケープシーケンス

  • BasicCompiler_Common/Compile.cpp

    r89 r99  
    219219                break;
    220220            case ESC_DECLARE:
     221                break;
     222
     223            case ESC_NAMESPACE:
     224            case ESC_ENDNAMESPACE:
    221225                break;
    222226

  • BasicCompiler_Common/Intermediate_Step1.cpp

    r96 r99  
    320320    char *temporary,temp2[VN_SIZE];
    321321
     322    bool isBeforeCharDelimitation = false;
    322323    temporary=(char *)HeapAlloc(hHeap,HEAP_ZERO_MEMORY,lstrlen(buffer)*2);
    323324    for(i=0,i2=0,IsStr=0;;i++,i2++){
    … …  
    327328            buffer[i+1]=ESC_PSMEM;
    328329        }
     330
     331        if( buffer[i] && IsCommandDelimitation( buffer[i] ) ){
     332            isBeforeCharDelimitation = true;
     333
     334            temporary[i2]=buffer[i];
     335            continue;
     336        }
     337
    329338        if(IsVariableChar(buffer[i])&&IsStr==0){
     339
    330340            i3=i2;
    331341            for(;;i++,i2++){
    … …  
    336346                temporary[i2]=buffer[i];
    337347            }
     348
     349            bool isAfterCharBlank = false;
     350            if( IsBlank( buffer[i] ) ){
     351                isAfterCharBlank = true;
     352            }
     353
    338354            if(lstrcmpi(temporary+i3,"End")==0) i6=1;
    339355            else if(lstrcmpi(temporary+i3,"Exit")==0) i6=2;
    … …  
    389405                            if(lstrcmpi(temp2,"Macro")==0) sw1=1;
    390406                            break;
     407                        case 'n':
     408                        case 'N':
     409                            if(lstrcmpi(temp2,"Namespace")==0) sw1=1;
     410                            break;
    391411                        case 's':
    392412                        case 'S':
    … …  
    642662                            temporary[i2]=ESC_ENDMACRO;
    643663                        }
     664                        else if(lstrcmpi(temporary+i3,"EndNamespace")==0){
     665                            i2=i3;
     666                            temporary[i2++]=1;
     667                            temporary[i2]=ESC_ENDNAMESPACE;
     668                        }
    644669                        else if(lstrcmpi(temporary+i3,"EndClass")==0){
    645670                            i2=i3;
    … …  
    757782                case 'n':
    758783                case 'N':
    759                     if(lstrcmpi(temporary+i3,"New")==0){
     784                    if(isBeforeCharDelimitation
     785                        && lstrcmpi(temporary+i3,"Namespace")==0
     786                        && isAfterCharBlank ){
     787                        i2=i3;
     788                        temporary[i2++]=1;
     789                        temporary[i2]=ESC_NAMESPACE;
     790                    }
     791                    else if(lstrcmpi(temporary+i3,"New")==0){
    760792                        i2=i3;
    761793                        temporary[i2++]=1;
    … …  
    868900            continue;
    869901        }
     902
     903        if( !IsBlank( buffer[i] ) ){
     904            isBeforeCharDelimitation = false;
     905        }
     906
    870907        temporary[i2]=buffer[i];
    871908        if(buffer[i]=='\0') break;

  • BasicCompiler_Common/Subroutine.cpp

    r97 r99  
    659659    MacroNum=0;
    660660
     661    // 名前空間管理
     662    vector<string> namespaceScopes;
     663
    661664    i=-1;
    662665    while(1){
    … …  
    679682        }
    680683
     684        if( basbuf[i] == 1 && basbuf[i+1] == ESC_NAMESPACE ){
     685            for(i+=2,i2=0;;i2++,i++){
     686                if( IsCommandDelimitation( basbuf[i] ) ){
     687                    temporary[i2]=0;
     688                    break;
     689                }
     690                temporary[i2]=basbuf[i];
     691            }
     692            namespaceScopes.push_back( temporary );
     693
     694            continue;
     695        }
     696        else if( basbuf[i] == 1 && basbuf[i+1] == ESC_ENDNAMESPACE ){
     697            if( namespaceScopes.size() <= 0 ){
     698                SetError(12, "End Namespace", i );
     699            }
     700            else{
     701                namespaceScopes.pop_back();
     702            }
     703
     704            i += 2;
     705            continue;
     706        }
     707
    681708        if(basbuf[i]==1&&basbuf[i+1]==ESC_DECLARE){
    682709            for(i+=2,i2=0;;i2++,i++){

  • ProjectEditor/Backup.cpp

    r24 r99  
    5555            //ファイルを保存
    5656            sprintf(temporary,"%sdocument%02d.txt",szBackupDirPath,iNum);
    57             WriteBuffer(temporary,MdiInfo[WndNum].pMdiTextEdit->buffer,lstrlen(MdiInfo[WndNum].pMdiTextEdit->buffer));
     57            WriteBuffer(temporary,MdiInfo[WndNum].pMdiTextEdit->buffer,lstrlen(MdiInfo[WndNum].pMdiTextEdit->buffer), false);
    5858
    5959            //情報を追加

  • ProjectEditor/Common.h

    r85 r99  
    6666#define APPLICATION_NAME "ActiveBasic 5.0"
    6767#define VERSION_APPLI_NAME APPLICATION_NAME
    68 #define VERSION_STRING "5.00.00 β rev.194"
     68#define VERSION_STRING "5.00.00 β rev.218"
    6969
    7070#endif
    … …  
    780780char *ReadBuffer(char *path);
    781781char *ReadBuffer_NonErrMsg(char *path);
    782 _int8 WriteBuffer(char *path,char *buffer,int length);
     782_int8 WriteBuffer(char *path,char *buffer,int length, bool isEnableError = true);
    783783_int8 WriteBuffer_NonErrMsg(char *path,char *buffer,int length);
    784784void GetRelationalPath(char *path,char *dir);

  • ProjectEditor/FileOperation.cpp

    r80 r99  
    5555    return buffer;
    5656}
    57 _int8 WriteBuffer(char *path,char *buffer,int length){
     57_int8 WriteBuffer(char *path,char *buffer,int length, bool isEnableError){
    5858    HANDLE hFile;
    5959    DWORD dw;
    … …  
    6262        char temporary[MAX_PATH];
    6363
    64         //"\"%s\" ファイルへの書き込みに失敗しました。"
    65         sprintf(temporary,STRING_ERROR_CANT_FILESAVE,path);
    66         MessageBox(hOwner,temporary,STRING_ERROR,MB_OK|MB_ICONEXCLAMATION);
     64        if( isEnableError ){
     65            //"\"%s\" ファイルへの書き込みに失敗しました。"
     66            sprintf(temporary,STRING_ERROR_CANT_FILESAVE,path);
     67            MessageBox(hOwner,temporary,STRING_ERROR,MB_OK|MB_ICONEXCLAMATION);
     68        }
    6769        return 0;
    6870    }
    … …  
    7274}
    7375_int8 WriteBuffer_NonErrMsg(char *path,char *buffer,int length){
    74     extern HWND hOwnerEditor;
    75     HANDLE hFile;
    76     DWORD dw;
    77     hFile=CreateFile(path,GENERIC_WRITE,0,NULL,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,NULL);
    78     if(hFile==INVALID_HANDLE_VALUE){
    79         return 0;
    80     }
    81     if(length) WriteFile(hFile,buffer,length,&dw,NULL);
    82     CloseHandle(hFile);
    83     return 1;
     76    return WriteBuffer( path, buffer, length, false );
    8477}
    8578void GetRelationalPath(char *path,char *dir){
Note: See TracChangeset for help on using the changeset viewer.