source: dev/trunk/abdev/ProjectEditor/EndPairCommandComplement.cpp@ 364

Last change on this file since 364 was 364, checked in by dai_9181, 18 years ago

Throw→Catch間のパラメータ引渡しに対応。
グローバル領域でのTryスコープを可能にした。これで例外処理機構実装完了。
エディタの補間機能にTry/Catch/Finally/EndTryを追加。
File size: 12.1 KB
Line 
1#include "common.h"
2
3///////////////////////////////////////////////////////////////////
4// ここから、ペアステートメント補完を行うための関数郡
5///////////////////////////////////////////////////////////////////
6
7int GetStartCommandId_FromBuffer(char *buffer){
8 int i;
9 char temporary[VN_SIZE];
10
11 for(i=0;;i++){
12 if(!IsVariableChar(buffer[i])){
13 temporary[i]=0;
14 break;
15 }
16 temporary[i]=buffer[i];
17 }
18
19 if(lstrcmpi(temporary,"If")==0){
20 //If文の場合はブロック形式の有無を判定
21
22 int IsStr=0;
23 for(;;i++){
24 if(buffer[i]=='\"') IsStr^=1;
25 if((buffer[i]=='\''||IsCommandDelimitation(buffer,i))&&IsStr==0){
26 i--;
27 break;
28 }
29 }
30
31 while(buffer[i]==' '||buffer[i]=='\t') i--;
32
33 if(memicmp(buffer+i-3,"Then",4)==0){
34 //ブロック形式のIf
35 return COM_IF;
36 }
37 else{
38 //一行のみのIf
39 return 0;
40 }
41 }
42
43 if(lstrcmpi(temporary,"Virtual")==0||
44 lstrcmpi(temporary,"Override")==0||
45 lstrcmpi(temporary,"Static")==0){
46 if(temporary[0]=='s'||temporary[0]=='S')
47 i=7;
48 else if(temporary[0]=='v'||temporary[0]=='V')
49 i=8;
50 else i=9;
51
52 while(buffer[i]==' '||buffer[i]=='\t') i++;
53
54 int i2;
55 for(i2=0;;i++,i2++){
56 if(!IsVariableChar(buffer[i])){
57 temporary[i2]=0;
58 break;
59 }
60 temporary[i2]=buffer[i];
61 }
62
63 if(lstrcmpi(temporary,"Function")==0) return COM_FUNCTION;
64 if(lstrcmpi(temporary,"Sub")==0) return COM_SUB;
65 return 0;
66 }
67
68 if(lstrcmpi(temporary,"Class")==0) return COM_CLASS;
69 if(lstrcmpi(temporary,"Interface")==0) return COM_INTERFACE;
70 if(lstrcmpi(temporary,"Do")==0) return COM_DO;
71 if(lstrcmpi(temporary,"Enum")==0) return COM_ENUM;
72 if(lstrcmpi(temporary,"For")==0) return COM_FOR;
73 if(lstrcmpi(temporary,"Function")==0) return COM_FUNCTION;
74 if(lstrcmpi(temporary,"Namespace")==0) return COM_NAMESPACE;
75 if(lstrcmpi(temporary,"Select")==0) return COM_SELECT;
76 if(lstrcmpi(temporary,"Sub")==0) return COM_SUB;
77 if(lstrcmpi(temporary,"Try")==0) return COM_TRY;
78 if(lstrcmpi(temporary,"Type")==0) return COM_TYPE;
79 if(lstrcmpi(temporary,"While")==0) return COM_WHILE;
80 if(lstrcmpi(temporary,"With")==0) return COM_WITH;
81
82 return 0;
83}
84int GetEndCommandId_FromBuffer(char *buffer){
85 int i,i2;
86 char temporary[VN_SIZE];
87
88 for(i=0,i2=0;;i++,i2++){
89 if(!IsVariableChar(buffer[i])){
90 temporary[i2]=0;
91
92 if(lstrcmpi(temporary,"End")==0&&
93 (buffer[i]==' '||buffer[i]=='\t')){
94 while(buffer[i]==' '||buffer[i]=='\t') i++;
95 i--;
96 i2--;
97 continue;
98 }
99
100 break;
101 }
102 temporary[i2]=buffer[i];
103 }
104
105 if(lstrcmpi(temporary,"EndClass")==0) return COM_CLASS;
106 if(lstrcmpi(temporary,"EndInterface")==0) return COM_INTERFACE;
107 if(lstrcmpi(temporary,"Loop")==0) return COM_DO;
108 if(lstrcmpi(temporary,"EndEnum")==0) return COM_ENUM;
109 if(lstrcmpi(temporary,"Next")==0) return COM_FOR;
110 if(lstrcmpi(temporary,"EndFunction")==0) return COM_FUNCTION;
111 if(lstrcmpi(temporary,"EndIf")==0) return COM_IF;
112 if(lstrcmpi(temporary,"EndNamespace")==0) return COM_NAMESPACE;
113 if(lstrcmpi(temporary,"EndSelect")==0) return COM_SELECT;
114 if(lstrcmpi(temporary,"EndSub")==0) return COM_SUB;
115 if(lstrcmpi(temporary,"EndType")==0) return COM_TYPE;
116 if(lstrcmpi(temporary,"Wend")==0) return COM_WHILE;
117 if(lstrcmpi(temporary,"EndWith")==0) return COM_WITH;
118
119 return 0;
120}
121void GetNameOfEndCommand(int CmdId,char *buffer){
122 switch(CmdId){
123 case COM_CLASS:
124 lstrcpy(buffer,"End Class");
125 break;
126 case COM_INTERFACE:
127 lstrcpy(buffer,"End Interface");
128 break;
129 case COM_DO:
130 lstrcpy(buffer,"Loop");
131 break;
132 case COM_ENUM:
133 lstrcpy(buffer,"End Enum");
134 break;
135 case COM_FOR:
136 lstrcpy(buffer,"Next");
137 break;
138 case COM_FUNCTION:
139 lstrcpy(buffer,"End Function");
140 break;
141 case COM_IF:
142 lstrcpy(buffer,"End If");
143 break;
144 case COM_NAMESPACE:
145 lstrcpy(buffer,"End Namespace");
146 break;
147 case COM_SELECT:
148 lstrcpy(buffer,"End Select");
149 break;
150 case COM_SUB:
151 lstrcpy(buffer,"End Sub");
152 break;
153 case COM_TRY:
154 lstrcpy(buffer,"End Try");
155 break;
156 case COM_TYPE:
157 lstrcpy(buffer,"End Type");
158 break;
159 case COM_WHILE:
160 lstrcpy(buffer,"Wend");
161 break;
162 case COM_WITH:
163 lstrcpy(buffer,"End With");
164 break;
165 }
166}
167BOOL IsIntoStringQuotes(char *buffer,int i){
168 int i2;
169
170 i2=i;
171 while(i2&&buffer[i2]!='\n') i2--;
172 if(i2==-1) i2=0;
173 if(buffer[i2]=='\n') i2++;
174
175 int IsStr=0;
176 for(;i2<i;i2++){
177 if(buffer[i2]=='\"') IsStr^=1;
178 }
179 return IsStr;
180}
181BOOL GetEndPairCommandInfo(char *buffer,int p){
182 int i,i2,i3,CmdId;
183 char epcName[32];
184 char indent[255],LineNum;
185
186 int stack[255];
187 int sp;
188
189 CmdId=0;
190 LineNum=0;
191 sp=-1;
192
193 i=p;
194
195 //入力中の行を除く
196 for(i--;i>=0;i--){
197 i2=IsCommandDelimitation(buffer,i);
198 if(i2) break;
199 }
200
201 while(1){
202
203 //i2に一行前の先頭位置を格納
204 for(i--;i>=0;i--){
205 i2=IsCommandDelimitation(buffer,i);
206 if(i2){
207 if(IsIntoStringQuotes(buffer,i)){
208 //文字列中の場合
209 continue;
210 }
211
212 if(i2==1) i2=i+1;
213 else{
214 i2=i+2;
215 LineNum++;
216
217 if(LineNum>pobj_nv->BackNum_PairStatementComplement){
218 //設定された行数を超えた場合
219 return 0;
220 }
221 }
222
223 break;
224 }
225 }
226 if(i==-1) i2=i+1;
227
228 //インデント文字列をindentにコピー
229 for(i3=0;;i2++,i3++){
230 if(buffer[i2]!='\t'){
231 indent[i3]=0;
232 break;
233 }
234 indent[i3]=buffer[i2];
235 }
236
237 //空白文字を飛び越す
238 while(buffer[i2]==' '||buffer[i2]=='\t') i2++;
239
240 //終了コマンドを取得（End Class、End Sub、Next、Wendなど…）
241 i3=GetEndCommandId_FromBuffer(buffer+i2);
242 if(i3){
243 sp++;
244 stack[sp]=i3;
245 }
246
247 //開始コマンドを取得（Class、Sub、For、Whileなど…）
248 i3=GetStartCommandId_FromBuffer(buffer+i2);
249 if(i3){
250 if(sp==-1){
251 CmdId=i3;
252 break;
253 }
254
255 if(stack[sp]!=i3) return 0;
256 sp--;
257 }
258
259 if(i<=0) break;
260 }
261
262 if(!CmdId) return 0;
263
264 extern HANDLE hHeap;
265 extern COMPLEMENT_WINDOW_INFO ComplementWndInfo;
266 if(CmdId==COM_IF){
267 //Else、ElseIf、End Ifをリストに追加
268
269 ///////////////////////
270 // 補完情報
271 ///////////////////////
272
273 ComplementWndInfo.pMemberInfo=(MEMBERINFO *)HeapAlloc(hHeap,0,sizeof(MEMBERINFO)*2);
274 ComplementWndInfo.MemberNum=2;
275
276 ComplementWndInfo.pMemberInfo[0].pName=(char *)HeapAlloc(hHeap,0,5);
277 lstrcpy(ComplementWndInfo.pMemberInfo[0].pName,"Else");
278 ComplementWndInfo.pMemberInfo[0].dwProc=0;
279 ComplementWndInfo.pMemberInfo[0].dwAccess=ACCESS_PAIRCOMMAND;
280
281 ComplementWndInfo.pMemberInfo[1].pName=(char *)HeapAlloc(hHeap,0,7);
282 lstrcpy(ComplementWndInfo.pMemberInfo[1].pName,"End If");
283 ComplementWndInfo.pMemberInfo[1].dwProc=0;
284 ComplementWndInfo.pMemberInfo[1].dwAccess=ACCESS_PAIRCOMMAND;
285 }
286 else if(CmdId==COM_CLASS){
287 ComplementWndInfo.pMemberInfo=(MEMBERINFO *)HeapAlloc(hHeap,0,sizeof(MEMBERINFO)*4);
288 ComplementWndInfo.MemberNum=4;
289
290 ComplementWndInfo.pMemberInfo[0].pName=(char *)HeapAlloc(hHeap,0,10);
291 lstrcpy(ComplementWndInfo.pMemberInfo[0].pName,"End Class");
292 ComplementWndInfo.pMemberInfo[0].dwProc=0;
293 ComplementWndInfo.pMemberInfo[0].dwAccess=ACCESS_PAIRCOMMAND;
294
295 ComplementWndInfo.pMemberInfo[1].pName=(char *)HeapAlloc(hHeap,0,8);
296 lstrcpy(ComplementWndInfo.pMemberInfo[1].pName,"Private");
297 ComplementWndInfo.pMemberInfo[1].dwProc=0;
298 ComplementWndInfo.pMemberInfo[1].dwAccess=ACCESS_PAIRCOMMAND;
299
300 ComplementWndInfo.pMemberInfo[2].pName=(char *)HeapAlloc(hHeap,0,10);
301 lstrcpy(ComplementWndInfo.pMemberInfo[2].pName,"Protected");
302 ComplementWndInfo.pMemberInfo[2].dwProc=0;
303 ComplementWndInfo.pMemberInfo[2].dwAccess=ACCESS_PAIRCOMMAND;
304
305 ComplementWndInfo.pMemberInfo[3].pName=(char *)HeapAlloc(hHeap,0,7);
306 lstrcpy(ComplementWndInfo.pMemberInfo[3].pName,"Public");
307 ComplementWndInfo.pMemberInfo[3].dwProc=0;
308 ComplementWndInfo.pMemberInfo[3].dwAccess=ACCESS_PAIRCOMMAND;
309 }
310 else if(CmdId==COM_SELECT){
311 ComplementWndInfo.pMemberInfo=(MEMBERINFO *)HeapAlloc(hHeap,0,sizeof(MEMBERINFO)*4);
312 ComplementWndInfo.MemberNum=2;
313
314 ComplementWndInfo.pMemberInfo[0].pName=(char *)HeapAlloc(hHeap,0,10);
315 lstrcpy(ComplementWndInfo.pMemberInfo[0].pName,"End Select");
316 ComplementWndInfo.pMemberInfo[0].dwProc=0;
317 ComplementWndInfo.pMemberInfo[0].dwAccess=ACCESS_PAIRCOMMAND;
318
319 ComplementWndInfo.pMemberInfo[1].pName=(char *)HeapAlloc(hHeap,0,8);
320 lstrcpy(ComplementWndInfo.pMemberInfo[1].pName,"Case");
321 ComplementWndInfo.pMemberInfo[1].dwProc=0;
322 ComplementWndInfo.pMemberInfo[1].dwAccess=ACCESS_PAIRCOMMAND;
323 }
324 else if(CmdId==COM_TRY){
325 ComplementWndInfo.pMemberInfo=(MEMBERINFO *)HeapAlloc(hHeap,0,sizeof(MEMBERINFO)*4);
326 ComplementWndInfo.MemberNum=3;
327
328 ComplementWndInfo.pMemberInfo[0].pName=(char *)HeapAlloc(hHeap,0,10);
329 lstrcpy(ComplementWndInfo.pMemberInfo[0].pName,"End Try");
330 ComplementWndInfo.pMemberInfo[0].dwProc=0;
331 ComplementWndInfo.pMemberInfo[0].dwAccess=ACCESS_PAIRCOMMAND;
332
333 ComplementWndInfo.pMemberInfo[1].pName=(char *)HeapAlloc(hHeap,0,10);
334 lstrcpy(ComplementWndInfo.pMemberInfo[1].pName,"Catch");
335 ComplementWndInfo.pMemberInfo[1].dwProc=0;
336 ComplementWndInfo.pMemberInfo[1].dwAccess=ACCESS_PAIRCOMMAND;
337
338 ComplementWndInfo.pMemberInfo[2].pName=(char *)HeapAlloc(hHeap,0,8);
339 lstrcpy(ComplementWndInfo.pMemberInfo[2].pName,"Finally");
340 ComplementWndInfo.pMemberInfo[2].dwProc=0;
341 ComplementWndInfo.pMemberInfo[2].dwAccess=ACCESS_PAIRCOMMAND;
342 }
343 else{
344 //その他のコマンド
345
346 //エンドペアステートメントの名前を取得
347 GetNameOfEndCommand(CmdId,epcName);
348
349
350 ///////////////////////
351 // 補完情報
352 ///////////////////////
353
354 ComplementWndInfo.pMemberInfo=(MEMBERINFO *)HeapAlloc(hHeap,0,sizeof(MEMBERINFO));
355 ComplementWndInfo.MemberNum=1;
356
357 ComplementWndInfo.pMemberInfo[0].pName=(char *)HeapAlloc(hHeap,0,lstrlen(epcName)+1);
358 lstrcpy(ComplementWndInfo.pMemberInfo[0].pName,epcName);
359
360 ComplementWndInfo.pMemberInfo[0].dwProc=0;
361 ComplementWndInfo.pMemberInfo[0].dwAccess=ACCESS_PAIRCOMMAND;
362 }
363 lstrcpy(ComplementWndInfo.szIndent,indent);
364
365
366 return 1;
367}
368BOOL IsNeedNewIndentCommand(char *name){
369 if(lstrcmpi(name,"Case")==0) return 1;
370 return 0;
371}
372
373
374
375///////////////////////////////////////////////
376// Withで構成されるオブジェクト識別子を取得
377///////////////////////////////////////////////
378
379void GetWithObjectVariable(char *buffer,int p,char *pObjectVar){
380 int i,i2,i3,i4,CmdId;
381 char LineNum;
382 char temporary[VN_SIZE];
383
384 int stack[255];
385 int sp;
386
387 CmdId=0;
388 LineNum=0;
389 sp=-1;
390 pObjectVar[0]=0;
391
392 i=p;
393
394 //入力中の行を除く
395 for(i--;i>=0;i--){
396 i2=IsCommandDelimitation(buffer,i);
397 if(i2) break;
398 }
399
400 while(1){
401
402 //i2に一行前の先頭位置を格納
403 for(i--;i>=0;i--){
404 i2=IsCommandDelimitation(buffer,i);
405 if(i2){
406 if(i2==1) i2=i+1;
407 else{
408 i2=i+2;
409 LineNum++;
410
411 if(LineNum>pobj_nv->BackNum_PairStatementComplement){
412 //設定された行数を超えた場合
413 return;
414 }
415 }
416
417 break;
418 }
419 }
420 if(i==-1) i2=i+1;
421
422 //インデントを飛び越す
423 while(buffer[i2]==' '||buffer[i2]=='\t') i2++;
424
425 //終了コマンドを取得（End Class、End Sub、Next、Wendなど…）
426 CmdId=GetEndCommandId_FromBuffer(buffer+i2);
427 if(CmdId){
428 sp++;
429 stack[sp]=CmdId;
430 }
431
432 //開始コマンドを取得（Class、Sub、For、Whileなど…）
433 CmdId=GetStartCommandId_FromBuffer(buffer+i2);
434 if(CmdId){
435 if(sp==-1){
436 if(CmdId==COM_WITH){
437 //オブジェクト識別子を付加
438 i2+=5;
439 while(buffer[i2]==' '||buffer[i2]=='\t') i2++;
440
441 for(i3=0;;i2++,i3++){
442 if(buffer[i2]=='-'&&buffer[i2+1]=='>'){
443 temporary[i3++]=buffer[i2++];
444 temporary[i3]=buffer[i2];
445 continue;
446 }
447 if(buffer[i2]=='['){
448 i4=GetStringInBracket(temporary+i3,buffer+i2);
449 i2+=i4-1;
450 i3+=i4-1;
451 continue;
452 }
453 if(buffer[i2]=='('){
454 i4=GetStringInPare(temporary+i3,buffer+i2);
455 i2+=i4-1;
456 i3+=i4-1;
457 continue;
458 }
459 if(!(IsVariableChar(buffer[i2])||buffer[i2]=='.')){
460 temporary[i3]=0;
461 break;
462 }
463 temporary[i3]=buffer[i2];
464 }
465 lstrcat(temporary,pObjectVar);
466 lstrcpy(pObjectVar,temporary);
467 }
468 }
469 else{
470 if(stack[sp]!=CmdId){
471 pObjectVar[0]=0;
472 break;
473 }
474 sp--;
475 }
476 }
477
478 if(i<=0) break;
479 }
480}
Note: See TracBrowser for help on using the repository browser.