Context Navigation

source: dev/trunk/abdev/BasicCompiler_Common/VarList.cpp@ 408

Last change on this file since 408 was 393, checked in by dai_9181, 17 years ago
デバッガ変数リストのローカル変数のスコープ判定が間違っていたため、修正。
File size: 39.5 KB

Line
1	#include "stdafx.h"
2
3	#include <jenga/include/smoothie/Smoothie.h>
4
5	#include <Compiler.h>
6
7	#include "../BasicCompiler_Common/common.h"
8
9	//デバッグ用
10	#include "../BasicCompiler_Common/debug.h"
11
12	//変数リストのツリーハンドル
13	HWND hVarTree_Global,hVarTree_Local,hVarTree_This;
14
15	int VarList_Array(HWND hVarTree,HTREEITEM hParent,LONG_PTR offset,const Type &type,const Subscripts &subscripts);
16	void VarList_Member(HWND hVarTree,HTREEITEM hParent,LONG_PTR pTopOffset,const CClass &objClass,BOOL bPtr);
17	void VarList_Insert(HWND hVarTree,TV_INSERTSTRUCT lptv,const char VarName,const Type &type,LONG_PTR offset){
18	extern HANDLE hDebugProcess;
19	int i2;
20	char temporary[255],temp2[255];
21	LONG_PTR pData;
22	SIZE_T accessBytes;
23	double dbl;
24	float flt;
25	WORD wData;
26	BYTE byteData;
27	HTREEITEM hParent;
28	_int64 i64data;
29
30	if( type.IsObject() \|\| type.IsStruct() ){
31	i2=1;
32	if( type.IsObject() ){
33	// 参照型ということを考慮する
34	i2=ReadProcessMemory(hDebugProcess,(void )offset,&pData,sizeof(void ),&accessBytes);
35	offset = pData;
36	}
37
38	sprintf(lptv->item.pszText,"%s %s(&H%X)",VarName,STRING_OBJECT,(ULONG_PTR)offset);
39	lptv->item.iImage=1;
40	lptv->item.iSelectedImage=1;
41	hParent=TreeView_InsertItem(hVarTree,lptv);
42
43	if(i2 && offset) VarList_Member(hVarTree,hParent,offset,type.GetClass(),0);
44	return;
45	}
46	else if( type.IsObjectPtr() \|\| type.IsStructPtr() ){
47	i2=ReadProcessMemory(hDebugProcess,(void )offset,&pData,sizeof(void ),&accessBytes);
48
49	sprintf(lptv->item.pszText,"%s %s(&H%X)",VarName,STRING_POINTEROFOBJECT,(ULONG_PTR)pData);
50	lptv->item.iImage=4;
51	lptv->item.iSelectedImage=4;
52	hParent=TreeView_InsertItem(hVarTree,lptv);
53
54	if(i2) VarList_Member(hVarTree,hParent,pData,type.GetClass(),1);
55	return;
56	}
57	else{
58	if(type.GetBasicType()==MAKE_PTR_TYPE(DEF_SBYTE,1)\|\|type.GetBasicType()==MAKE_PTR_TYPE(DEF_BYTE,1)){
59	if(ReadProcessMemory(hDebugProcess,(void )offset,&pData,sizeof(void ),&accessBytes)){
60	for(i2=0;;i2++){
61	if(!ReadProcessMemory(hDebugProcess,(void *)(pData+i2),&temporary[i2],1,&accessBytes)){
62	i2=-1;
63	break;
64	}
65	if(temporary[i2]=='\0') break;
66	if(i2==64){
67	lstrcpy(temporary+i2,"...");
68	break;
69	}
70	}
71	if(i2==-1) sprintf(lptv->item.pszText,"%s %d(&H%X)",VarName,(ULONG_PTR)pData,(ULONG_PTR)pData);
72	else sprintf(lptv->item.pszText,"%s %d(&H%X) \"%s\"",VarName,(ULONG_PTR)pData,(ULONG_PTR)pData,temporary);
73	}
74	else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
75	}
76	else if(type.IsDouble()){
77	if(ReadProcessMemory(hDebugProcess,(void *)offset,&dbl,sizeof(double),&accessBytes)){
78	sprintf(lptv->item.pszText,"%s %.15g",VarName,dbl);
79	}
80	else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
81	}
82	else if(type.IsSingle()){
83	if(ReadProcessMemory(hDebugProcess,(void *)offset,&flt,sizeof(float),&accessBytes)){
84	sprintf(lptv->item.pszText,"%s %.6g",VarName,flt);
85	}
86	else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
87	}
88	else if(type.IsInt64()){
89	_int64 i64data;
90	if(ReadProcessMemory(hDebugProcess,(void *)offset,&i64data,sizeof(_int64),&accessBytes)){
91	_i64toa(i64data,temporary,10);
92	_i64toa(i64data,temp2,16);
93	CharUpper(temp2);
94	sprintf(lptv->item.pszText,"%s %s(&H%s)",VarName,temporary,temp2);
95	}
96	else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
97	}
98	else if(type.IsQWord()\|\|(type.IsPointer()&&PTR_SIZE==sizeof(_int64))){
99	if(ReadProcessMemory(hDebugProcess,(void *)offset,&i64data,sizeof(_int64),&accessBytes)){
100	_ui64toa(i64data,temporary,10);
101	_ui64toa(i64data,temp2,16);
102	CharUpper(temp2);
103	sprintf(lptv->item.pszText,"%s %s(&H%s)",VarName,temporary,temp2);
104	}
105	else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
106	}
107	else if(type.IsLong()){
108	long l;
109	if(ReadProcessMemory(hDebugProcess,(void *)offset,&l,sizeof(long),&accessBytes)){
110	sprintf(lptv->item.pszText,"%s %d(&H%X)",VarName,l,l);
111	}
112	else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
113	}
114	else if(type.IsDWord()\|\|(type.IsPointer()&&PTR_SIZE==sizeof(long))){
115	if(ReadProcessMemory(hDebugProcess,(void *)offset,&i64data,sizeof(_int64),&accessBytes)){
116	sprintf(lptv->item.pszText,"%s %u(&H%X)",VarName,(int)i64data,(int)i64data);
117	}
118	else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
119	}
120	else if(type.IsInteger()){
121	if(ReadProcessMemory(hDebugProcess,(void *)offset,&wData,sizeof(WORD),&accessBytes)){
122	sprintf(lptv->item.pszText,"%s %d(&H%X)",VarName,(short)wData,(short)wData);
123	}
124	else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
125	}
126	else if(type.IsWord()){
127	if(ReadProcessMemory(hDebugProcess,(void *)offset,&wData,sizeof(WORD),&accessBytes)){
128	sprintf(lptv->item.pszText,"%s %u(&H%X)",VarName,wData,wData);
129	}
130	else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
131	}
132	else if(type.IsSByte()){
133	if(ReadProcessMemory(hDebugProcess,(void *)offset,&byteData,sizeof(BYTE),&accessBytes)){
134	temporary[0]=byteData;
135	temporary[1]=0;
136	sprintf(lptv->item.pszText,"%s %d(&H%X)'%s'",VarName,(char)byteData,byteData,temporary);
137	}
138	else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
139	}
140	else if(type.IsByte()){
141	if(ReadProcessMemory(hDebugProcess,(void *)offset,&byteData,sizeof(BYTE),&accessBytes)){
142	temporary[0]=byteData;
143	temporary[1]=0;
144	sprintf(lptv->item.pszText,"%s %d(&H%X)'%s'",VarName,byteData,byteData,temporary);
145	}
146	else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
147	}
148	else if(type.IsBoolean()){
149	if(ReadProcessMemory(hDebugProcess,(void *)offset,&byteData,sizeof(BYTE),&accessBytes)){
150	if( byteData ) lstrcpy( temporary, "True" );
151	else lstrcpy( temporary, "False" );
152
153	wsprintf(lptv->item.pszText,"%s %s",VarName,temporary);
154	}
155	else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
156	}
157	lptv->item.iImage=2;
158	lptv->item.iSelectedImage=2;
159	}
160	TreeView_InsertItem(hVarTree,lptv);
161	}
162	void VarList_Member(HWND hVarTree,HTREEITEM hParent,LONG_PTR pTopOffset,const CClass &objClass,BOOL bPtr){
163	char VarData[VN_SIZE],VarName[VN_SIZE];
164	TV_INSERTSTRUCT tv;
165
166	memset(&tv,0,sizeof(TV_INSERTSTRUCT));
167	tv.hInsertAfter=TVI_LAST;
168	tv.item.mask=TVIF_TEXT\|TVIF_IMAGE\|TVIF_SELECTEDIMAGE;
169	tv.hParent=hParent;
170	tv.item.pszText=VarData;
171
172	BOOST_FOREACH( CMember *pMember, objClass.GetDynamicMembers() ){
173	if(bPtr){
174	lstrcpy(VarName,"->");
175	lstrcat(VarName,pMember->GetName().c_str());
176	}
177	else{
178	lstrcpy(VarName,".");
179	lstrcat(VarName,pMember->GetName().c_str());
180	}
181
182	LONG_PTR offset;
183	int i2;
184	offset=objClass.GetMemberOffset( pMember->GetName().c_str(), &i2 );
185
186	if( pMember->GetSubscripts().size() > 0 ){
187	//構造体内の配列
188	sprintf(VarData,"%s %s(&H%X)",VarName,STRING_ARRAY,pTopOffset+offset);
189	tv.item.iImage=0;
190	tv.item.iSelectedImage=0;
191	hParent=TreeView_InsertItem(hVarTree,&tv);
192
193	VarList_Array(
194	hVarTree,
195	hParent,
196	pTopOffset + offset,
197	pMember->GetType(),
198	pMember->GetSubscripts()
199	);
200	}
201	else{
202	//メンバ変数
203	VarList_Insert(hVarTree,
204	&tv,
205	VarName,
206	pMember->GetType(),
207	pTopOffset+offset);
208	}
209	}
210	}
211	int VarList_Array(HWND hVarTree,HTREEITEM hParent,LONG_PTR offset,const Type &type, const Subscripts &subscripts ){
212	int i,i2,i3,ElementNum,MemCounter,UseCount[255];
213	char temporary[VN_SIZE],temp2[DIGIT_SIZE];
214
215	TV_INSERTSTRUCT tv;
216	memset(&tv,0,sizeof(TV_INSERTSTRUCT));
217	tv.hInsertAfter=TVI_LAST;
218	tv.item.mask=TVIF_TEXT\|TVIF_IMAGE\|TVIF_SELECTEDIMAGE;
219	tv.hParent=hParent;
220	tv.item.pszText=temporary;
221
222	for(i=0;i<(int)subscripts.size();i++){
223	UseCount[i]=0;
224	}
225	UseCount[i]=-2;
226	MemCounter=0;
227	i--;
228	while(1){
229	UseCount[i]++;
230	for(ElementNum=0;subscripts[i-ElementNum]<UseCount[i-ElementNum];ElementNum++){
231	UseCount[i-ElementNum]=0;
232	if(i-ElementNum-1<0) return MemCounter;
233	UseCount[i-ElementNum-1]++;
234	}
235
236	if(MemCounter<50){
237	temporary[0]='[';
238	temporary[1]=0;
239	for(i2=0;i2<i;i2++){
240	sprintf(temp2,"%d",UseCount[i2]);
241	lstrcat(temporary,temp2);
242	lstrcat(temporary,",");
243	}
244	i3=lstrlen(temporary);
245	temporary[i3-1]=']';
246	temporary[i3]=0;
247
248	VarList_Insert(hVarTree,&tv,temporary,type,
249	offset+MemCounter*type.GetSize());
250	}
251
252	MemCounter++;
253	if(MemCounter==50){
254	lstrcpy(tv.item.pszText,"...");
255	TreeView_InsertItem(hVarTree,&tv);
256	}
257	}
258	return 0;
259	}
260	void RefreshGlobalVar(void){
261	extern DWORD ImageBase;
262	char temporary[VN_SIZE];
263	TV_INSERTSTRUCT tv;
264	HTREEITEM hParent;
265
266	TreeView_DeleteAllItems(hVarTree_Global);
267
268	memset(&tv,0,sizeof(TV_INSERTSTRUCT));
269	tv.hInsertAfter=TVI_LAST;
270	tv.item.mask=TVIF_TEXT\|TVIF_IMAGE\|TVIF_SELECTEDIMAGE;
271	tv.hParent=TVI_ROOT;
272	tv.item.pszText=temporary;
273
274	extern HANDLE hDebugProcess;
275	extern int MemPos_RWSection;
276
277	BOOST_FOREACH( Variable *pVar, compiler.GetObjectModule().meta.GetGlobalVars() ){
278
279	//スコープ外の場合は無視
280	if(pVar->GetScopeLevel()!=0){
281	if(rva_to_real(pVar->GetScopeStartAddress()) <= pobj_dti->lplpObp[0] &&
282	pobj_dti->lplpObp[0] < rva_to_real(pVar->GetScopeEndAddress())){
283	//範囲内
284	}
285	else{
286	//範囲外
287	continue;
288	}
289	}
290
291
292	if(!pobj_nv->bShow_DefaultSystem_Var){
293	if(memcmp(pVar->GetName().c_str(),"_System_",8)==0\|\|
294	memcmp(pVar->GetName().c_str(),"_DebugSys_",10)==0\|\|
295	memcmp(pVar->GetName().c_str(),"_PromptSys_",11)==0) continue;
296	}
297	if(!pobj_nv->bShow_Rad_Var){
298	if(memcmp(pVar->GetName().c_str(),"_RadSys_",8)==0) continue;
299	}
300	if(!pobj_nv->bShow_GUID_Var){
301	if(memcmp(pVar->GetName().c_str(),"GUID_",5)==0\|\|
302	memcmp(pVar->GetName().c_str(),"IID_",4)==0\|\|
303	memcmp(pVar->GetName().c_str(),"CLSID_",6)==0) continue;
304	}
305
306	//静的メンバ
307	if(strstr(pVar->GetName().c_str(),".")) continue;
308
309	if(pVar->IsArray()){
310	sprintf(temporary,"%s %s(&H%X)",
311	pVar->GetName().c_str(),
312	STRING_ARRAY,
313	ImageBase+MemPos_RWSection+pVar->GetOffsetAddress());
314	tv.item.iImage=0;
315	tv.item.iSelectedImage=0;
316	hParent=TreeView_InsertItem(hVarTree_Global,&tv);
317
318	VarList_Array(
319	hVarTree_Global,
320	hParent,
321	(LONG_PTR)(ImageBase+MemPos_RWSection + pVar->GetOffsetAddress()),
322	pVar->GetType(),
323	pVar->GetSubscripts()
324	);
325	}
326	else{
327	VarList_Insert(hVarTree_Global,
328	&tv,
329	pVar->GetName().c_str(),
330	pVar->GetType(),
331	(LONG_PTR)(ImageBase+MemPos_RWSection+pVar->GetOffsetAddress()));
332	}
333	}
334	}
335	void RefreshLocalVar(void){
336	int i2;
337	char temporary[VN_SIZE];
338	TV_INSERTSTRUCT tv;
339	HTREEITEM hParent;
340	LONG_PTR offset;
341	SIZE_T accessBytes;
342	LONG_PTR lpData;
343
344	TreeView_DeleteAllItems(hVarTree_Local);
345
346	memset(&tv,0,sizeof(TV_INSERTSTRUCT));
347	tv.hInsertAfter=TVI_LAST;
348	tv.item.mask=TVIF_TEXT\|TVIF_IMAGE\|TVIF_SELECTEDIMAGE;
349	tv.hParent=TVI_ROOT;
350	tv.item.pszText=temporary;
351
352	extern HANDLE hDebugProcess;
353	extern HWND hDebugWnd;
354	i2=(int)SendDlgItemMessage(hDebugWnd,IDC_PROCCOMBO,CB_GETCURSEL,0,0);
355	i2=pobj_dti->iProcLevel-i2;
356
357	if(pobj_dti->lplpSpBase[i2]==0) return;
358
359	UserProc *pUserProc = NULL;
360	compiler.GetObjectModule().meta.GetUserProcs().Iterator_Reset();
361	while( compiler.GetObjectModule().meta.GetUserProcs().Iterator_HasNext() )
362	{
363	pUserProc = compiler.GetObjectModule().meta.GetUserProcs().Iterator_GetNext();
364	if(rva_to_real(pUserProc->GetBeginOpAddress()) <= pobj_dti->lplpObp[i2] &&
365	pobj_dti->lplpObp[i2] < rva_to_real(pUserProc->GetEndOpAddress())){
366	break;
367	}
368	}
369	if(!pUserProc) return;
370
371	BOOST_FOREACH( Variable *pVar, pUserProc->GetLocalVars() ){
372
373	//スコープ外の場合は無視
374	int scopeBeginAddressRva = pUserProc->GetBeginOpAddress() + pVar->GetScopeStartAddress();
375	int scopeEndAddressRva = pUserProc->GetBeginOpAddress() + pVar->GetScopeEndAddress();
376	if(pVar->GetScopeLevel()!=0)
377	{
378	if( rva_to_real( scopeBeginAddressRva ) <= pobj_dti->lplpObp[i2]
379	&& pobj_dti->lplpObp[i2] < rva_to_real( scopeEndAddressRva ) )
380	{
381	//範囲内
382	}
383	else{
384	//範囲外
385	continue;
386	}
387	}
388
389	if(pVar->IsArray()){
390	sprintf(temporary,"%s %s(&H%X)",
391	pVar->GetName().c_str(),
392	STRING_ARRAY,
393	pobj_dti->lplpSpBase[i2]+pVar->GetOffsetAddress());
394	tv.item.iImage=0;
395	tv.item.iSelectedImage=0;
396	hParent=TreeView_InsertItem(hVarTree_Local,&tv);
397
398	VarList_Array(
399	hVarTree_Local,
400	hParent,
401	pobj_dti->lplpSpBase[i2] + pVar->GetOffsetAddress(),
402	pVar->GetType(),
403	pVar->GetSubscripts()
404	);
405	}
406	else{
407	offset=pobj_dti->lplpSpBase[i2]+pVar->GetOffsetAddress();
408	if(pVar->IsRef()){
409	ReadProcessMemory(hDebugProcess,(void *)offset,&lpData,sizeof(LONG_PTR),&accessBytes);
410	offset=lpData;
411	}
412	VarList_Insert(hVarTree_Local,&tv,
413	pVar->GetName().c_str(),
414	pVar->GetType(),
415	offset);
416	}
417	}
418
419
420
421	/////////////////////////////
422	// Thisオブジェクトのリスト
423	/////////////////////////////
424
425	TreeView_DeleteAllItems(hVarTree_This);
426	if( pUserProc->IsGlobalProcedure() ) return;
427
428	//Thisポインタを取得
429	LONG_PTR pThis;
430	const Variable *pVar = pUserProc->GetLocalVars().Find( Symbol( "_System_LocalThis" ) );
431	if( !pVar ){
432	return;
433	}
434	lpData=pobj_dti->lplpSpBase[i2]+pVar->GetOffsetAddress();
435	ReadProcessMemory(hDebugProcess,(void *)lpData,&pThis,sizeof(LONG_PTR),&accessBytes);
436
437	BOOST_FOREACH( CMember *pMember, pUserProc->GetParentClassPtr()->GetDynamicMembers() ){
438	offset=pUserProc->GetParentClassPtr()->GetMemberOffset( pMember->GetName().c_str(),&i2);
439
440	if( pMember->GetSubscripts().size() > 0 ){
441	//配列
442	sprintf(temporary,"%s %s(&H%X)",
443	pMember->GetName().c_str(),
444	STRING_ARRAY,
445	(ULONG_PTR)offset);
446	tv.item.iImage=0;
447	tv.item.iSelectedImage=0;
448	hParent=TreeView_InsertItem(hVarTree_This,&tv);
449
450	VarList_Array(
451	hVarTree_This,
452	hParent,
453	pThis + offset,
454	pMember->GetType(),
455	pMember->GetSubscripts()
456	);
457	}
458	else{
459	VarList_Insert(hVarTree_This,&tv,
460	pMember->GetName().c_str(),
461	pMember->GetType(),
462	pThis+offset);
463	}
464	}
465	}
466	void RefreshGlobalVar_with_WindowLock(void){
467	extern HWND hDebugWnd;
468
469	//処理時間を短くするため、一時的に非表示にする
470	LockWindowUpdate(hDebugWnd);
471	ShowWindow(GetParent(hVarTree_Global),SW_HIDE);
472
473	//リフレッシュ
474	RefreshGlobalVar();
475
476	LockWindowUpdate(NULL);
477	ShowWindow(GetParent(hVarTree_Global),SW_SHOW);
478	}
479	void RefreshLocalVar_with_WindowLock(void){
480	extern HWND hDebugWnd;
481
482	//処理時間を短くするため、一時的に非表示にする
483	LockWindowUpdate(hDebugWnd);
484	ShowWindow(GetParent(hVarTree_Local),SW_HIDE);
485
486	//リフレッシュ
487	RefreshLocalVar();
488
489	LockWindowUpdate(NULL);
490	ShowWindow(GetParent(hVarTree_Local),SW_SHOW);
491	}
492
493	void SetCalcToWatchList(HWND hListView,int iItem,char *buffer){
494	char temporary[255],temp2[255];
495
496	//エスケープシーケンスをセット
497	SetEscapeSequenceFormat(buffer);
498
499	KillStringSpaces(buffer);
500
501	//カッコを相互チェック
502	if(!CheckParenthesis2(buffer)){
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521	ListView_SetItemText(hListView,iItem,1,"式の解析に失敗");
522	return;
523	}
524
525	double dbl;
526	_int64 i64data;
527	Type resultType;
528	bool isMemoryAccessError;
529	if( !StaticCalculation(true, buffer,0,&i64data,resultType,1,&isMemoryAccessError) ){
530	ListView_SetItemText(hListView,iItem,1,"式の解析に失敗");
531	}
532	else if(isMemoryAccessError){
533	ListView_SetItemText(hListView,iItem,1,"アクセスできません");
534	}
535	else{
536	if(resultType.IsReal()){
537	memcpy(&dbl,&i64data,sizeof(double));
538	sprintf(temporary,"%.15g (&H%08X)",dbl,(int)dbl);
539	}
540	else if(resultType.Is64()){
541	_i64toa(i64data,temporary,10);
542	_i64toa(i64data,temp2,16);
543	CharUpper(temp2);
544	sprintf(temporary+lstrlen(temporary)," (&H%s)",temp2);
545	}
546	else sprintf(temporary,"%d (&H%08X)",(long)i64data,(long)i64data);
547
548	ListView_SetItemText(hListView,iItem,1,temporary);
549	}
550	}
551	void RefreshWatchList(void){
552	extern HWND hDebugWnd;
553	HWND hListView;
554	int i,i2;
555	char temporary[VN_SIZE];
556
557	hListView=GetDlgItem(hDebugWnd,IDC_WATCHLIST);
558	i2=ListView_GetItemCount(hListView);
559	for(i=0;i<i2-1;i++){
560	ListView_GetItemText(hListView,i,0,temporary,VN_SIZE);
561
562	//演算結果を表示
563	SetCalcToWatchList(hListView,i,temporary);
564	}
565	}
566
567	BOOL SetDebugProcCombo(HWND hProcCombo){
568	int i2,i3;
569	char temporary[255];
570
571	extern DWORD ImageBase;
572	extern int MemPos_CodeSection;
573
574	//行番号情報
575	extern SourceLines oldSourceLines;
576	for(i3=0;i3<(int)pobj_dti->iProcLevel+1;i3++){
577	for(i2=0;i2<(int)oldSourceLines.size()-2;i2++){
578	if((ULONG_PTR)(oldSourceLines[i2].GetNativeCodePos()+ImageBase+MemPos_CodeSection)<=pobj_dti->lplpObp[i3]&&
579	pobj_dti->lplpObp[i3]<=(ULONG_PTR)(oldSourceLines[i2+1].GetNativeCodePos()+ImageBase+MemPos_CodeSection)) break;
580	}
581	if(i2==oldSourceLines.size()-1) pobj_dti->lpdwCp[i3]=-1;
582	else
583	{
584	pobj_dti->lpdwCp[i3]=oldSourceLines[i2].GetSourceCodePos();
585	pobj_dti->lpdwSourceIndex[i3]=oldSourceLines[i2].GetSourceIndex();
586	}
587	}
588	for(i3=0;i3<(int)pobj_dti->iProcLevel+1;i3++){
589	if(pobj_dti->lpdwCp[i3]==-1){
590	pobj_dti->iProcLevel--;
591	for(i2=i3;i2<(int)pobj_dti->iProcLevel+1;i2++){
592	pobj_dti->lplpObp[i2]=pobj_dti->lplpObp[i2+1];
593	pobj_dti->lplpSpBase[i2]=pobj_dti->lplpSpBase[i2+1];
594	pobj_dti->lpdwCp[i2]=pobj_dti->lpdwCp[i2+1];
595	pobj_dti->lpdwSourceIndex[i2]=pobj_dti->lpdwSourceIndex[i2+1];
596	}
597	i3--;
598	continue;
599	}
600	}
601
602	std::string dummyStr;
603	if(!compiler.GetObjectModule().GetSource( pobj_dti->lpdwSourceIndex[pobj_dti->iProcLevel] ).GetLineInfo( pobj_dti->lpdwCp[pobj_dti->iProcLevel], i2, dummyStr )){
604	extern HWND hMainDlg;
605	//"デバッグ情報の取得に失敗"
606	MessageBox(hMainDlg,STRING_DEBUG_FAILED,"ActiveBasic error",MB_OK);
607	return 0;
608	}
609	ShowErrorLine(i2,dummyStr.c_str());
610
611	//プロシージャコンボボックス
612	SendMessage(hProcCombo,CB_RESETCONTENT,0,0);
613	for(i2=pobj_dti->iProcLevel;i2>=0;i2--){
614
615	UserProc *pUserProc = NULL;
616	compiler.GetObjectModule().meta.GetUserProcs().Iterator_Reset();
617	while( compiler.GetObjectModule().meta.GetUserProcs().Iterator_HasNext() )
618	{
619	pUserProc = compiler.GetObjectModule().meta.GetUserProcs().Iterator_GetNext();
620
621	if(rva_to_real(pUserProc->GetBeginOpAddress()) <= pobj_dti->lplpObp[i2] &&
622	pobj_dti->lplpObp[i2] < rva_to_real(pUserProc->GetEndOpAddress()))
623	{
624	lstrcpy(temporary,pUserProc->GetName().c_str());
625	break;
626	}
627	}
628	if(!pUserProc){
629	if(i2==0){
630	lstrcpy(temporary,"Global");
631	pobj_dti->lplpSpBase[i2]=0;
632	}
633	else lstrcpy(temporary,"error");
634	}
635	SendMessage(hProcCombo,CB_ADDSTRING,0,(LPARAM)temporary);
636	}
637	SendMessage(hProcCombo,CB_SETCURSEL,0,0);
638
639	return pobj_dti->iProcLevel;
640	}
641
642	//IDC_THREADCOMBOプロシージャ
643	LRESULT CALLBACK ThreadComboProc(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam){
644	extern WNDPROC OldThreadComboProc;
645	int i2;
646	DWORD dwThreadID;
647	char temporary[255];
648
649	switch(message){
650	case WM_COMMAND:
651	if(HIWORD(wParam)==CBN_SELCHANGE){
652	SendMessage(hwnd,CB_GETLBTEXT,SendMessage(hwnd,CB_GETCURSEL,0,0),(LPARAM)temporary);
653	sscanf(temporary+2,"%X",&dwThreadID);
654
655	extern DWORD _DebugSys_dwThreadID[256];
656	i2=0;
657	while(_DebugSys_dwThreadID[i2]!=dwThreadID) i2++;
658
659	//次回のステップ実行対象を指定
660	extern int NextStepThreadNum;
661	NextStepThreadNum=i2;
662
663	//スレッド情報をリフレッシュ
664	pobj_dti->Reflesh(i2);
665
666	SetDebugProcCombo(GetDlgItem(GetParent(hwnd),IDC_PROCCOMBO));
667
668	SendDlgItemMessage(GetParent(hwnd),IDC_PROCCOMBO,WM_COMMAND,MAKELONG(0,CBN_SELCHANGE),0);
669	}
670	break;
671	}
672	return CallWindowProc(OldThreadComboProc,hwnd,message,wParam,lParam);
673	}
674	//IDC_PROCCOMBOプロシージャ
675	LRESULT CALLBACK ProcComboProc(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam){
676	extern WNDPROC OldProcComboProc;
677	int i2,i3;
678
679	switch(message){
680	case WM_COMMAND:
681	if(HIWORD(wParam)==CBN_SELCHANGE){
682	i2=(int)SendMessage(hwnd,CB_GETCURSEL,0,0);
683
684	std::string dummyStr;
685	compiler.GetObjectModule().GetSource( pobj_dti->lpdwSourceIndex[pobj_dti->iProcLevel] ).GetLineInfo( pobj_dti->lpdwCp[pobj_dti->iProcLevel-i2], i3, dummyStr );
686	ShowErrorLine(i3,dummyStr.c_str());
687
688	RefreshLocalVar_with_WindowLock();
689	}
690	break;
691	}
692	return CallWindowProc(OldProcComboProc,hwnd,message,wParam,lParam);
693	}
694	void InitVarList(DWORD dwThreadId){
695	extern HWND hDebugWnd;
696	int i2,i5;
697	char temporary[255];
698
699
700	//スレッド
701	SendDlgItemMessage(hDebugWnd,IDC_THREADCOMBO,CB_RESETCONTENT,0,0);
702	extern DWORD _DebugSys_dwThreadID[256];
703	for(i2=0;i2<256;i2++){
704	if(_DebugSys_dwThreadID[i2]){
705	sprintf(temporary,"&H%08X",_DebugSys_dwThreadID[i2]);
706	SendDlgItemMessage(hDebugWnd,IDC_THREADCOMBO,CB_ADDSTRING,0,(LPARAM)temporary);
707	if(_DebugSys_dwThreadID[i2]==dwThreadId){
708	extern int NextStepThreadNum;
709	NextStepThreadNum=i2;
710	}
711	}
712	}
713	sprintf(temporary,"&H%08X",dwThreadId);
714	i5=(int)SendDlgItemMessage(hDebugWnd,IDC_THREADCOMBO,CB_FINDSTRING,0,(LPARAM)temporary);
715	SendDlgItemMessage(hDebugWnd,IDC_THREADCOMBO,CB_SETCURSEL,i5,0);
716
717	i2=SetDebugProcCombo(GetDlgItem(hDebugWnd,IDC_PROCCOMBO));
718
719
720	///////////////////////////////////////////////
721	// 実行中のプロシージャのローカル変数をセット
722	///////////////////////////////////////////////
723
724	i2=(int)SendDlgItemMessage(hDebugWnd,IDC_PROCCOMBO,CB_GETCURSEL,0,0);
725	i2=pobj_dti->iProcLevel-i2;
726
727	if(pobj_dti->lplpSpBase[i2]){
728
729	UserProc *pUserProc = NULL;
730	compiler.GetObjectModule().meta.GetUserProcs().Iterator_Reset();
731	while( compiler.GetObjectModule().meta.GetUserProcs().Iterator_HasNext() )
732	{
733	pUserProc = compiler.GetObjectModule().meta.GetUserProcs().Iterator_GetNext();
734
735	if(rva_to_real(pUserProc->GetBeginOpAddress()) <= pobj_dti->lplpObp[i2] &&
736	pobj_dti->lplpObp[i2] < rva_to_real(pUserProc->GetEndOpAddress())){
737	break;
738	}
739	}
740
741	if(pUserProc){
742	compiler.pCompilingClass = pUserProc->GetParentClassPtr();
743	UserProc::CompileStartForUserProc( pUserProc );
744	}
745	}
746
747
748	////////////////////////
749	// 変数リストを再表示
750	////////////////////////
751
752	//処理時間を短くするため、一時的に非表示にする
753	LockWindowUpdate(hDebugWnd);
754	ShowWindow(GetParent(hVarTree_Global),SW_HIDE);
755	ShowWindow(GetDlgItem(hDebugWnd,IDC_WATCHLIST),SW_HIDE);
756
757	//リフレッシュ
758	RefreshLocalVar();
759	RefreshGlobalVar();
760	RefreshWatchList();
761
762	LockWindowUpdate(NULL);
763	ShowWindow(GetParent(hVarTree_Global),SW_SHOW);
764	ShowWindow(GetDlgItem(hDebugWnd,IDC_WATCHLIST),SW_SHOW);
765	}
766
767
768
769
770	//////////////////////////////////////
771	// エディタに埋め込み表示のデバッガ
772	//////////////////////////////////////
773
774	BOOL CALLBACK DebuggerButtonsProc(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam){
775	extern HINSTANCE hInst;
776	extern DWORD dwStepRun;
777
778	//デバッガ用ツールバー
779	#define BMPNUM_DEBUGGERTOOLBAR 3
780	#define BTNNUM_DEBUGGERTOOLBAR 4
781	TBBUTTON DebuggerToolBar[]={
782	{0,IDC_DEBUG_START,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0},
783	{0,0,TBSTATE_ENABLED,TBSTYLE_SEP,0,0},
784	{1,IDC_DEBUG_STEPOVER,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0},
785	{2,IDC_DEBUG_STEPIN,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0},
786	};
787	TOOLTIPTEXT *pTipText;
788
789	static HIMAGELIST hImageList,hImageList_Disabled;
790
791	switch(message){
792	case WM_INITDIALOG:
793	//ツールバーを生成
794	extern HWND hDebuggerToolbar;
795	hDebuggerToolbar=CreateToolbarEx(hwnd,WS_CHILD\|WS_VISIBLE\|CCS_NODIVIDER\|TBSTYLE_FLAT\|TBSTYLE_TOOLTIPS\|WS_CLIPSIBLINGS,
796	NULL,
797	0,0,0,
798	DebuggerToolBar,
799	BTNNUM_DEBUGGERTOOLBAR, /アイテムの個数/
800	0,0,16,15,sizeof(TBBUTTON));
801
802	hImageList = ImageList_LoadImage(hInst, MAKEINTRESOURCE(IDR_DEBUGGERTOOLBAR),
803	16, 0, RGB(192,192,192),IMAGE_BITMAP, LR_CREATEDIBSECTION);
804	SendMessage(hDebuggerToolbar, TB_SETIMAGELIST, 0, (LPARAM)hImageList);
805	hImageList_Disabled = ImageList_LoadImage(hInst, MAKEINTRESOURCE(IDR_DEBUGGERTOOLBAR_DISABLED),
806	16, 0, RGB(192,192,192),IMAGE_BITMAP, LR_CREATEDIBSECTION);
807	SendMessage(hDebuggerToolbar, TB_SETDISABLEDIMAGELIST, 0, (LPARAM)hImageList_Disabled);
808
809	break;
810	case WM_COMMAND:
811	switch(LOWORD(wParam)){
812	case IDC_DEBUG_START:
813	DestroyWindow(GetParent(hwnd));
814	return 1;
815	case IDC_DEBUG_STEPIN:
816	dwStepRun=1;
817	return 1;
818	case IDC_DEBUG_STEPOVER:
819	dwStepRun=2;
820	return 1;
821	}
822	break;
823	case WM_NOTIFY:
824	pTipText=(TOOLTIPTEXT *)lParam;
825	if(pTipText->hdr.code==TTN_NEEDTEXT){
826	//ツールチップを表示
827	switch(pTipText->hdr.idFrom){
828	case IDC_DEBUG_START:
829	pTipText->lpszText="実行";
830	break;
831	case IDC_DEBUG_STEPOVER:
832	pTipText->lpszText="ステップアウト";
833	break;
834	case IDC_DEBUG_STEPIN:
835	pTipText->lpszText="ステップイン";
836	break;
837	}
838	}
839	break;
840	case WM_SIZE:
841	MoveWindow(hDebuggerToolbar,0,0,LOWORD(lParam),HIWORD(lParam),1);
842	return 1;
843
844	case WM_DESTROY:
845	ImageList_Destroy(hImageList);
846	ImageList_Destroy(hImageList_Disabled);
847	return 1;
848	}
849	return 0;
850	}
851
852	WNDPROC OldTabProc;
853	LRESULT CALLBACK TabProc(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam){
854	extern HINSTANCE hInst;
855
856	static HMENU hDummyMenu,hMenu=0;
857
858	switch(message){
859	case WM_CONTEXTMENU:
860	if(hMenu==0){
861	hDummyMenu=LoadMenu(hInst,MAKEINTRESOURCE(IDR_DEBUGGER_VARLIST_MENU));
862	hMenu=GetSubMenu(hDummyMenu,0);
863	}
864
865	MENUITEMINFO mi;
866	mi.cbSize=sizeof(MENUITEMINFO);
867	mi.fMask=MIIM_STATE;
868	mi.fState=MFS_CHECKED;
869
870	if(pobj_nv->bShow_DefaultSystem_Var)
871	SetMenuItemInfo(hMenu,IDM_SHOW_DEFAULTSYSTEM_VAR,0,&mi);
872	if(pobj_nv->bShow_Rad_Var)
873	SetMenuItemInfo(hMenu,IDM_SHOW_RAD_VAR,0,&mi);
874	if(pobj_nv->bShow_GUID_Var)
875	SetMenuItemInfo(hMenu,IDM_SHOW_GUID_VAR,0,&mi);
876
877	TrackPopupMenu(hMenu,TPM_LEFTALIGN,LOWORD(lParam),HIWORD(lParam),0,hwnd,0);
878
879	break;
880	case WM_COMMAND:
881	mi.cbSize=sizeof(MENUITEMINFO);
882	mi.fMask=MIIM_STATE;
883	switch(LOWORD(wParam)){
884	case IDM_SHOW_DEFAULTSYSTEM_VAR:
885	if(pobj_nv->bShow_DefaultSystem_Var){
886	pobj_nv->bShow_DefaultSystem_Var=0;
887	mi.fState=MFS_UNCHECKED;
888	}
889	else{
890	pobj_nv->bShow_DefaultSystem_Var=1;
891	mi.fState=MFS_CHECKED;
892	}
893	SetMenuItemInfo(hMenu,IDM_SHOW_DEFAULTSYSTEM_VAR,0,&mi);
894	RefreshGlobalVar_with_WindowLock();
895	break;
896	case IDM_SHOW_RAD_VAR:
897	if(pobj_nv->bShow_Rad_Var){
898	pobj_nv->bShow_Rad_Var=0;
899	mi.fState=MFS_UNCHECKED;
900	}
901	else{
902	pobj_nv->bShow_Rad_Var=1;
903	mi.fState=MFS_CHECKED;
904	}
905	SetMenuItemInfo(hMenu,IDM_SHOW_RAD_VAR,0,&mi);
906	RefreshGlobalVar_with_WindowLock();
907	break;
908	case IDM_SHOW_GUID_VAR:
909	if(pobj_nv->bShow_GUID_Var){
910	pobj_nv->bShow_GUID_Var=0;
911	mi.fState=MFS_UNCHECKED;
912	}
913	else{
914	pobj_nv->bShow_GUID_Var=1;
915	mi.fState=MFS_CHECKED;
916	}
917	SetMenuItemInfo(hMenu,IDM_SHOW_GUID_VAR,0,&mi);
918	RefreshGlobalVar_with_WindowLock();
919	break;
920	}
921	break;
922	case WM_DESTROY:
923	DestroyMenu(hMenu);
924	hMenu=0;
925	break;
926	}
927	return CallWindowProc(OldTabProc,hwnd,message,wParam,lParam);
928	}
929
930	BOOL CALLBACK DlgDebugger(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam){
931	extern HANDLE hHeap;
932	extern HINSTANCE hInst;
933	extern DWORD dwStepRun;
934	extern double width_ratio_VarList;
935	RECT rect;
936	int i,i2,i3;
937	char temporary[VN_SIZE];
938	LV_DISPINFO *lvinfo;
939	LVITEM ListView_Item;
940
941	static POINT pos_VarList;
942	static POINT pos_WatchList;
943
944	switch(message){
945	case WM_INITDIALOG:
946	extern HWND hDebugWnd;
947	hDebugWnd=hwnd;
948
949	//変数リストの初期位置を取得
950	GetWindowRect(GetDlgItem(hwnd,IDC_VARPOS),&rect);
951	pos_VarList.x=rect.left;
952	pos_VarList.y=rect.top;
953	ScreenToClient(hwnd,&pos_VarList);
954
955	//ウォッチリストの初期位置を取得
956	pos_WatchList.x=pos_VarList.x+(rect.right-rect.left)+LEVER_THICK;
957	pos_WatchList.y=0;
958
959	//ツールバーのベースウィンドウを生成
960	static HWND hBase_ToolBar;
961	hBase_ToolBar=CreateDialog(hInst,MAKEINTRESOURCE(IDD_DEBUGGER_TOOLBARBASE),hwnd,(DLGPROC)DebuggerButtonsProc);
962	MoveWindow(hBase_ToolBar,50,0,20*BTNNUM_DEBUGGERTOOLBAR,22,1);
963
964	extern WNDPROC OldThreadComboProc;
965	OldThreadComboProc=(WNDPROC)GetWindowLongPtr(GetDlgItem(hwnd,IDC_THREADCOMBO),GWLP_WNDPROC);
966	SetWindowLongPtr(GetDlgItem(hwnd,IDC_THREADCOMBO),GWLP_WNDPROC,(LONG_PTR)ThreadComboProc);
967
968	extern WNDPROC OldProcComboProc;
969	OldProcComboProc=(WNDPROC)GetWindowLongPtr(GetDlgItem(hwnd,IDC_PROCCOMBO),GWLP_WNDPROC);
970	SetWindowLongPtr(GetDlgItem(hwnd,IDC_PROCCOMBO),GWLP_WNDPROC,(LONG_PTR)ProcComboProc);
971
972
973	///////////////////////////
974	// タブコントロールを生成
975	///////////////////////////
976
977	static HWND hTab;
978	HFONT hFont;
979	hFont=(HFONT)SendMessage(hwnd,WM_GETFONT,0,0);
980	hTab=CreateWindow(WC_TABCONTROL,NULL,
981	WS_CHILD \| WS_CLIPCHILDREN \| WS_VISIBLE,
982	0,0,0,0,hwnd,0,hInst,0);
983	SendMessage(hTab,WM_SETFONT,(WPARAM)hFont,0);
984	OldTabProc=(WNDPROC)GetWindowLongPtr(hTab,GWLP_WNDPROC);
985	SetWindowLongPtr(hTab,GWLP_WNDPROC,(LONG_PTR)TabProc);
986
987	//タブを設定
988	TC_ITEM tcItem;
989	tcItem.mask=TCIF_TEXT;
990	tcItem.pszText="グローバル";
991	SendMessage(hTab,TCM_INSERTITEM,0,(LPARAM)&tcItem);
992	tcItem.mask=TCIF_TEXT;
993	tcItem.pszText="ローカル";
994	SendMessage(hTab,TCM_INSERTITEM,1,(LPARAM)&tcItem);
995	tcItem.mask=TCIF_TEXT;
996	tcItem.pszText="This";
997	SendMessage(hTab,TCM_INSERTITEM,2,(LPARAM)&tcItem);
998
999	//グローバル変数リストのツリーを作成
1000	hVarTree_Global=CreateWindowEx(WS_EX_CLIENTEDGE,WC_TREEVIEW,"",
1001	WS_CHILD\|TVS_HASLINES\|TVS_HASBUTTONS\|TVS_LINESATROOT\|TVS_SHOWSELALWAYS,
1002	0,0,0,0,
1003	hTab,0,hInst,0);
1004
1005	//ローカル変数リストのツリーを作成
1006	hVarTree_Local=CreateWindowEx(WS_EX_CLIENTEDGE,WC_TREEVIEW,"",
1007	WS_CHILD\|TVS_HASLINES\|TVS_HASBUTTONS\|TVS_LINESATROOT\|TVS_SHOWSELALWAYS,
1008	0,0,0,0,
1009	hTab,0,hInst,0);
1010
1011	//This変数リストのツリーを作成
1012	hVarTree_This=CreateWindowEx(WS_EX_CLIENTEDGE,WC_TREEVIEW,"",
1013	WS_CHILD\|TVS_HASLINES\|TVS_HASBUTTONS\|TVS_LINESATROOT\|TVS_SHOWSELALWAYS,
1014	0,0,0,0,
1015	hTab,0,hInst,0);
1016
1017	ShowWindow(hVarTree_Global,SW_SHOW);
1018
1019
1020	//イメージリスト読み込み、設定
1021	static HIMAGELIST hVariOrderImageList;
1022	hVariOrderImageList=ImageList_Create(16,16,ILC_COLOR4\|ILC_MASK,4,0);
1023	ImageList_AddIcon(hVariOrderImageList,LoadIcon(hInst,MAKEINTRESOURCE(IDI_VARARRAY)));
1024	ImageList_AddIcon(hVariOrderImageList,LoadIcon(hInst,MAKEINTRESOURCE(IDI_VARSTRUCT)));
1025	ImageList_AddIcon(hVariOrderImageList,LoadIcon(hInst,MAKEINTRESOURCE(IDI_VARDATA)));
1026	ImageList_AddIcon(hVariOrderImageList,LoadIcon(hInst,MAKEINTRESOURCE(IDI_VARSTR)));
1027	ImageList_AddIcon(hVariOrderImageList,LoadIcon(hInst,MAKEINTRESOURCE(IDI_VARPTRSTRUCT)));
1028	TreeView_SetImageList(hVarTree_Global,hVariOrderImageList,TVSIL_NORMAL);
1029	TreeView_SetImageList(hVarTree_Local,hVariOrderImageList,TVSIL_NORMAL);
1030	TreeView_SetImageList(hVarTree_This,hVariOrderImageList,TVSIL_NORMAL);
1031
1032
1033	/////////////////////////
1034	// ウォッチリスト
1035	/////////////////////////
1036
1037	//コラムの設定
1038	static HWND hListView;
1039	LV_COLUMN ListView_Column;
1040	DWORD dwStyle;
1041
1042	hListView=GetDlgItem(hwnd,IDC_WATCHLIST);
1043	GetClientRect(hListView,&rect);
1044	dwStyle=ListView_GetExtendedListViewStyle(hListView);
1045	dwStyle\|=LVS_EX_FULLROWSELECT;
1046	ListView_SetExtendedListViewStyle(hListView,dwStyle);
1047
1048	ListView_Column.mask=LVCF_FMT \| LVCF_WIDTH \| LVCF_TEXT \| LVCF_SUBITEM;
1049	ListView_Column.fmt=LVCFMT_LEFT;
1050
1051	extern int width_WatchColumn_Expression;
1052	ListView_Column.cx=width_WatchColumn_Expression;
1053	ListView_Column.pszText="ウォッチ式";
1054	ListView_Column.iSubItem=0;
1055	ListView_InsertColumn(hListView,0,&ListView_Column);
1056
1057	extern int width_WatchColumn_Value;
1058	ListView_Column.cx=width_WatchColumn_Value;
1059	ListView_Column.pszText="値";
1060	ListView_Column.iSubItem=1;
1061	ListView_InsertColumn(hListView,1,&ListView_Column);
1062
1063	//アイテムの設定
1064	ListView_Item.mask=LVIF_TEXT;
1065	ListView_Item.iSubItem=0;
1066	for(i=0;i<pobj_nv->WatchNum;i++){
1067	ListView_Item.pszText=pobj_nv->ppWatchStr[i];
1068	ListView_Item.iItem=i;
1069	ListView_InsertItem(hListView,&ListView_Item);
1070	}
1071	ListView_Item.pszText="...";
1072	ListView_Item.iItem=i;
1073	ListView_InsertItem(hListView,&ListView_Item);
1074
1075
1076	///////////////////////
1077	// 変数リストの初期化
1078	///////////////////////
1079	InitVarList((DWORD)lParam);
1080
1081	break;
1082	case WM_NOTIFY:
1083	NMHDR *hdr;
1084	hdr=(NMHDR *)lParam;
1085	if(hdr->hwndFrom==hTab&&hdr->code==TCN_SELCHANGE){
1086	i=TabCtrl_GetCurSel(hTab);
1087
1088	if(i==0){
1089	//グローバル変数を表示
1090	ShowWindow(hVarTree_Global,SW_SHOW);
1091	ShowWindow(hVarTree_Local,SW_HIDE);
1092	ShowWindow(hVarTree_This,SW_HIDE);
1093	}
1094	else if(i==1){
1095	//ローカル変数を表示
1096	ShowWindow(hVarTree_Global,SW_HIDE);
1097	ShowWindow(hVarTree_Local,SW_SHOW);
1098	ShowWindow(hVarTree_This,SW_HIDE);
1099	}
1100	else if(i==2){
1101	//This変数を表示
1102	ShowWindow(hVarTree_Global,SW_HIDE);
1103	ShowWindow(hVarTree_Local,SW_HIDE);
1104	ShowWindow(hVarTree_This,SW_SHOW);
1105	}
1106	}
1107
1108	if(hdr->hwndFrom==hListView){
1109	lvinfo=(LV_DISPINFO *)hdr;
1110	if(hdr->code==NM_DBLCLK){
1111	i2=ListView_GetItemCount(hListView);
1112	for(i=0;i<i2;i++){
1113	if(ListView_GetItemState(hListView,i,LVIS_SELECTED)) break;
1114	}
1115	if(i==i2) break;
1116
1117	ListView_EditLabel(hListView,i);
1118	}
1119
1120	static HWND hEdit;
1121	if(hdr->code==LVN_BEGINLABELEDIT){
1122	hEdit=ListView_GetEditControl(hListView);
1123
1124	GetWindowText(hEdit,temporary,VN_SIZE);
1125	if(lstrcmp(temporary,"...")==0) SetWindowText(hEdit,"");
1126	}
1127	if(hdr->code==LVN_ENDLABELEDIT){
1128	GetWindowText(hEdit,temporary,VN_SIZE);
1129	if(temporary[0]=='\0'){
1130	if(ListView_GetItemCount(hListView)-1==lvinfo->item.iItem) break;
1131
1132	//空白入力の場合はそのアイテムを削除する
1133	ListView_DeleteItem(hListView,lvinfo->item.iItem);
1134	break;
1135	}
1136	ListView_SetItemText(hListView,lvinfo->item.iItem,0,temporary);
1137
1138	//演算結果を表示
1139	SetCalcToWatchList(hListView,lvinfo->item.iItem,temporary);
1140
1141	if(lvinfo->item.iItem==ListView_GetItemCount(hListView)-1){
1142	//リストアイテムを追加
1143	ListView_Item.mask=LVIF_TEXT;
1144	ListView_Item.pszText="...";
1145	ListView_Item.iItem=lvinfo->item.iItem+1;
1146	ListView_Item.iSubItem=0;
1147	ListView_InsertItem(hListView,&ListView_Item);
1148	}
1149	}
1150
1151	if(hdr->code==LVN_KEYDOWN){
1152	LV_KEYDOWN *plvKeydown;
1153	plvKeydown=(LV_KEYDOWN *)hdr;
1154	if(plvKeydown->wVKey==VK_DELETE){
1155	i2=ListView_GetItemCount(hListView);
1156	for(i=i2-2;i>=0;i--){
1157	if(ListView_GetItemState(hListView,i,LVIS_SELECTED)){
1158	ListView_DeleteItem(hListView,i);
1159	i3=i;
1160	}
1161	}
1162
1163	ListView_SetItemState(hListView,i3,LVIS_SELECTED,LVIS_SELECTED);
1164	}
1165	}
1166	}
1167	break;
1168
1169	case WM_SIZE:
1170	//変数リストの位置
1171	int width_VarList;
1172	width_VarList=
1173	(int)((double)(LOWORD(lParam)-pos_VarList.x)*width_ratio_VarList);
1174
1175	MoveWindow(hTab,
1176	pos_VarList.x,
1177	pos_VarList.y,
1178	width_VarList,
1179	HIWORD(lParam)-pos_VarList.y,
1180	1);
1181
1182	GetClientRect(hTab,&rect);
1183	TabCtrl_AdjustRect(hTab,FALSE,&rect);
1184	rect.left-=2;
1185	rect.right++;
1186	rect.bottom++;
1187
1188	MoveWindow(hVarTree_Global,
1189	rect.left,rect.top,rect.right-rect.left,rect.bottom-rect.top,1);
1190	MoveWindow(hVarTree_Local,
1191	rect.left,rect.top,rect.right-rect.left,rect.bottom-rect.top,1);
1192	MoveWindow(hVarTree_This,
1193	rect.left,rect.top,rect.right-rect.left,rect.bottom-rect.top,1);
1194
1195	pos_WatchList.x=pos_VarList.x+width_VarList+LEVER_THICK;
1196	pos_WatchList.y=0;
1197
1198	//ウォッチリストの位置
1199	MoveWindow(GetDlgItem(hwnd,IDC_WATCHLIST),
1200	pos_WatchList.x,
1201	pos_WatchList.y,
1202	LOWORD(lParam)-pos_WatchList.x,
1203	HIWORD(lParam)-pos_WatchList.y,
1204	1);
1205
1206	return 1;
1207
1208	case WM_VARLIST_CLOSE:
1209	DestroyWindow(hwnd);
1210	return 1;
1211	case WM_DESTROY:
1212	ImageList_Destroy(hVariOrderImageList);
1213
1214
1215	//////////////////////////////////////////////////////////////
1216	// ウォッチリストの以前の内容を破棄し、新しい内容に書き換える
1217	//////////////////////////////////////////////////////////////
1218
1219	for(i=0;i<pobj_nv->WatchNum;i++){
1220	HeapDefaultFree(pobj_nv->ppWatchStr[i]);
1221	}
1222	HeapDefaultFree(pobj_nv->ppWatchStr);
1223
1224	pobj_nv->WatchNum=ListView_GetItemCount(hListView)-1;
1225	pobj_nv->ppWatchStr=(char *)HeapAlloc(hHeap,0,pobj_nv->WatchNumsizeof(char *)+1);
1226	for(i=0;i<pobj_nv->WatchNum;i++){
1227	ListView_GetItemText(hListView,i,0,temporary,VN_SIZE);
1228	pobj_nv->ppWatchStr[i]=(char *)HeapAlloc(hHeap,0,lstrlen(temporary)+1);
1229	lstrcpy(pobj_nv->ppWatchStr[i],temporary);
1230	}
1231
1232
1233	//////////////////////////////
1234	// デバッグダイアログを破棄
1235	//////////////////////////////
1236
1237	hDebugWnd=0;
1238
1239	extern BOOL bClipCompileView;
1240	if(bClipCompileView){
1241	extern HWND hOwnerEditor;
1242	SendMessage(hOwnerEditor,WM_DESTROYDEBUGGERVIEW,0,0);
1243	}
1244
1245	return 1;
1246
1247
1248
1249	///////////////////////
1250	// デバッグコマンド
1251	///////////////////////
1252
1253	case WM_DEBUG_CONTINUE:
1254	DestroyWindow(hwnd);
1255	return 1;
1256	case WM_STEP_IN:
1257	Debugger_StepIn();
1258	return 1;
1259	case WM_STEP_OVER:
1260	Debugger_StepOver();
1261	return 1;
1262	case WM_STEP_CURSOR:
1263	Debugger_StepCursor();
1264	return 1;
1265	}
1266	return 0;
1267	}
1268
1269
1270
1271
1272	//////////////////////////////////
1273	// ポップアップ表示の変数リスト
1274	//////////////////////////////////
1275
1276	BOOL CALLBACK DlgVarList(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam){
1277	extern HANDLE hHeap;
1278	extern HINSTANCE hInst;
1279	extern DWORD dwStepRun;
1280	RECT rect;
1281	POINT pos;
1282	SIZE size;
1283
1284	switch(message){
1285	case WM_INITDIALOG:
1286	extern HWND hDebugWnd;
1287	hDebugWnd=hwnd;
1288
1289	pos.x=pobj_nv->VarDlgRect.left;
1290	pos.y=pobj_nv->VarDlgRect.top;
1291	size.cx=pobj_nv->VarDlgRect.right-pobj_nv->VarDlgRect.left;
1292	size.cy=pobj_nv->VarDlgRect.bottom-pobj_nv->VarDlgRect.top;
1293	MoveWindow(hwnd,pos.x,pos.y,size.cx,size.cy,1);
1294
1295	extern WNDPROC OldThreadComboProc;
1296	OldThreadComboProc=(WNDPROC)GetWindowLongPtr(GetDlgItem(hwnd,IDC_THREADCOMBO),GWLP_WNDPROC);
1297	SetWindowLongPtr(GetDlgItem(hwnd,IDC_THREADCOMBO),GWLP_WNDPROC,(LONG_PTR)ThreadComboProc);
1298
1299	extern WNDPROC OldProcComboProc;
1300	OldProcComboProc=(WNDPROC)GetWindowLongPtr(GetDlgItem(hwnd,IDC_PROCCOMBO),GWLP_WNDPROC);
1301	SetWindowLongPtr(GetDlgItem(hwnd,IDC_PROCCOMBO),GWLP_WNDPROC,(LONG_PTR)ProcComboProc);
1302
1303	//イメージリスト読み込み、設定
1304	static HIMAGELIST hVariOrderImageList;
1305	hVariOrderImageList=ImageList_Create(16,16,ILC_COLOR4\|ILC_MASK,4,0);
1306	ImageList_AddIcon(hVariOrderImageList,LoadIcon(hInst,MAKEINTRESOURCE(IDI_VARARRAY)));
1307	ImageList_AddIcon(hVariOrderImageList,LoadIcon(hInst,MAKEINTRESOURCE(IDI_VARSTRUCT)));
1308	ImageList_AddIcon(hVariOrderImageList,LoadIcon(hInst,MAKEINTRESOURCE(IDI_VARDATA)));
1309	ImageList_AddIcon(hVariOrderImageList,LoadIcon(hInst,MAKEINTRESOURCE(IDI_VARSTR)));
1310	ImageList_AddIcon(hVariOrderImageList,LoadIcon(hInst,MAKEINTRESOURCE(IDI_VARPTRSTRUCT)));
1311	TreeView_SetImageList(GetDlgItem(hwnd,IDC_VARTREE),hVariOrderImageList,TVSIL_NORMAL);
1312
1313	InitVarList((DWORD)lParam);
1314	break;
1315	case WM_COMMAND:
1316	switch(LOWORD(wParam)){
1317	case IDCANCEL:
1318	DestroyWindow(hwnd);
1319	return 1;
1320	case IDC_STEPIN:
1321	dwStepRun=1;
1322	return 1;
1323	case IDC_STEPOVER:
1324	dwStepRun=2;
1325	return 1;
1326	}
1327	break;
1328	case WM_SIZE:
1329	GetWindowRect(GetDlgItem(hwnd,IDC_VARTREE),&rect);
1330	pos.x=rect.left;
1331	pos.y=rect.top;
1332	ScreenToClient(hwnd,&pos);
1333	MoveWindow(GetDlgItem(hwnd,IDC_VARTREE),0,pos.y,LOWORD(lParam),HIWORD(lParam)-pos.y,TRUE);
1334	SetWindowPos(GetDlgItem(hwnd,IDCANCEL),0,LOWORD(lParam)-91,9,0,0,SWP_NOSIZE);
1335	return 1;
1336	case WM_VARLIST_CLOSE:
1337	DestroyWindow(hwnd);
1338	return 1;
1339	case WM_DESTROY:
1340	ImageList_Destroy(hVariOrderImageList);
1341
1342	GetWindowRect(hwnd,&pobj_nv->VarDlgRect);
1343
1344	hDebugWnd=0;
1345
1346	return 1;
1347	}
1348	return 0;
1349	}

Note: See TracBrowser for help on using the repository browser.

Download in other formats: