Context Navigation

source: dev/BasicCompiler_Common/Variable.cpp@ 34

Last change on this file since 34 was 34, checked in by dai_9181, 17 years ago
スコープ処理を統一した。関数の途中でReturnしても、スコープにあるローカルオブジェクトを正確に破棄できるようにした。
File size: 26.3 KB

Line
1	#include "../BasicCompiler_Common/common.h"
2
3	#ifdef _AMD64_
4	#include "../BasicCompiler64/opcode.h"
5	#else
6	#include "../BasicCompiler32/opcode.h"
7	#endif
8
9	BOOL IsVariableTopChar(char c){
10	if((c>='A'&&c<='Z')\|\|(c>='a'&&c<='z')\|\|c=='_') return 1;
11	return 0;
12	}
13	BOOL IsVariableChar(char c){
14	if((c>='A'&&c<='Z')\|\|(c>='a'&&c<='z')\|\|(c>='0'&&c<='9')\|\|
15	c=='%'\|\|c=='!'\|\|c=='#'\|\|c=='$'\|\|
16	c=='_'\|\|c=='.') return 1;
17	return 0;
18	}
19	BOOL IsPtrType(int type){
20	if(type==-1) return 0;
21
22	if(PTR_LEVEL(type)\|\|type==DEF_PTR_VOID\|\|type==DEF_PTR_PROC\|\|
23	(type&FLAG_PTR) ) return 1;
24
25	return 0;
26	}
27	BOOL IsSignedType(int type){
28	switch(type){
29	case DEF_CHAR:
30	case DEF_INTEGER:
31	case DEF_LONG:
32	case DEF_INT64:
33	case DEF_SINGLE:
34	case DEF_DOUBLE:
35	return 1;
36	default:
37	break;
38	}
39	return 0;
40	}
41	BOOL IsNaturalWholeNumberType(int type){
42	switch(type){
43	case DEF_CHAR:
44	case DEF_BYTE:
45	case DEF_INTEGER:
46	case DEF_WORD:
47	case DEF_LONG:
48	case DEF_DWORD:
49	case DEF_INT64:
50	case DEF_QWORD:
51	return 1;
52	default:
53	break;
54	}
55	return 0;
56	}
57	BOOL IsWholeNumberType(int type){
58	return (IsNaturalWholeNumberType(type)\|\|IsPtrType(type));
59	}
60	BOOL IsRealNumberType(int type){
61	switch(type){
62	case DEF_DOUBLE:
63	case DEF_SINGLE:
64	return 1;
65	default:
66	break;
67	}
68	return 0;
69	}
70	BOOL Is64Type(int type){
71	switch(type){
72	case DEF_INT64:
73	case DEF_QWORD:
74	return 1;
75	default:
76	break;
77	}
78	#ifdef _AMD64_
79	return IsPtrType(type);
80	#else
81	return 0;
82	#endif
83	}
84	int GetSignedType(int type){
85	switch(type){
86	case DEF_BYTE:
87	return DEF_CHAR;
88	case DEF_WORD:
89	return DEF_INTEGER;
90	case DEF_DWORD:
91	return DEF_LONG;
92	case DEF_QWORD:
93	return DEF_INT64;
94	default:
95	break;
96	}
97	#ifdef _AMD64_
98	if(IsPtrType(type)) return DEF_INT64;
99	#else
100	if(IsPtrType(type)) return DEF_LONG;
101	#endif
102	return type;
103	}
104	int GetUnsignedType(int type){
105	switch(type){
106	case DEF_CHAR:
107	return DEF_BYTE;
108	case DEF_INTEGER:
109	return DEF_WORD;
110	case DEF_LONG:
111	return DEF_DWORD;
112	case DEF_INT64:
113	return DEF_QWORD;
114	}
115	return type;
116	}
117	int GetTypeSize(int type,LONG_PTR lpIndex){
118	if(type==DEF_LONG){
119	if(lpIndex==LITERAL_NULL\|\|lpIndex==LITERAL_M128_0\|\|lpIndex==LITERAL_0_255)
120	return sizeof(BYTE);
121	else if(lpIndex==LITERAL_M32768_0\|\|lpIndex==LITERAL_0_65535)
122	return sizeof(WORD);
123
124	return sizeof(DWORD);
125	}
126
127	//整数型
128	if(type==DEF_INT64\|\|type==DEF_QWORD)
129	return sizeof(_int64);
130	else if(type==DEF_LONG\|\|type==DEF_DWORD)
131	return sizeof(DWORD);
132	else if(type==DEF_INTEGER\|\|type==DEF_WORD)
133	return sizeof(WORD);
134	else if(type==DEF_CHAR\|\|type==DEF_BYTE)
135	return sizeof(BYTE);
136
137	//実数型
138	else if(type==DEF_DOUBLE) return sizeof(double);
139	else if(type==DEF_SINGLE) return sizeof(float);
140
141	//ポインタ型
142	else if(IsPtrType(type)) return PTR_SIZE;
143
144	else if(type==DEF_OBJECT){
145	CClass *pobj_c;
146	pobj_c=(CClass *)lpIndex;
147	if(!pobj_c) return 0;
148	return GetSizeOfClass(pobj_c);
149	}
150	else{
151	SetError(300,NULL,cp);
152	}
153	return 0;
154	}
155	int GetPtrType(int type,LONG_PTR lpIndex){
156	return MAKE_PTR_TYPE(NATURAL_TYPE(type),PTR_LEVEL(type)+1);
157	}
158	int GetTypeFixed(char TypeName,LONG_PTR lpNum){
159	int type;
160
161	if(lpNum) *lpNum=-1;
162
163	if(TypeName[0]=='*'){
164	if(TypeName[1]==1&&(TypeName[2]==ESC_FUNCTION\|\|TypeName[2]==ESC_SUB)){
165	//関数ポインタ（*Function）
166	return DEF_PTR_PROC;
167	}
168
169	type=GetTypeFixed(TypeName+1,lpNum);
170	if(type==-1) return -1;
171
172	return GetPtrType(type,*lpNum);
173	}
174
175	//整数型
176	if(lstrcmpi(TypeName,"Char")==0) return DEF_CHAR;
177	else if(lstrcmpi(TypeName,"Byte")==0) return DEF_BYTE;
178	else if(lstrcmpi(TypeName,"Integer")==0) return DEF_INTEGER;
179	else if(lstrcmpi(TypeName,"WORD")==0) return DEF_WORD;
180	else if(lstrcmpi(TypeName,"Long")==0) return DEF_LONG;
181	else if(lstrcmpi(TypeName,"DWORD")==0) return DEF_DWORD;
182	else if(lstrcmpi(TypeName,"Int64")==0) return DEF_INT64;
183	else if(lstrcmpi(TypeName,"QWORD")==0) return DEF_QWORD;
184
185	//実数型
186	else if(lstrcmpi(TypeName,"Single")==0) return DEF_SINGLE;
187	else if(lstrcmpi(TypeName,"Double")==0) return DEF_DOUBLE;
188
189	//ポインタ型
190	//※VoidPtr型以外のポインタ型はTypeDef宣言により定義される
191	else if(lstrcmpi(TypeName,"VoidPtr")==0) return DEF_PTR_VOID;
192
193	//その他
194	else if(lstrcmpi(TypeName,"Any")==0) return DEF_ANY;
195
196
197	////////////////////
198	// TypeDefされた型
199	////////////////////
200	int i;
201	i=pobj_DBTypeDef->check(TypeName);
202	if(i!=-1){
203	return GetTypeFixed(pobj_DBTypeDef->ppobj_TypeDef[i]->lpszBaseName,lpNum);
204	}
205
206	if(!lpNum) return -1;
207
208	//クラス
209	CClass *pobj_c;
210	pobj_c=pobj_DBClass->check(TypeName);
211	if(pobj_c){
212	*lpNum=(LONG_PTR)pobj_c;
213	return DEF_OBJECT;
214	}
215
216	return -1;
217	}
218	void GetOriginalTypeName(char *buffer){
219	// TypeDefされた型に対して、オリジナルの型の名前に変更する
220
221	if(buffer[0]=='*'){
222	if(buffer[1]==1&&(buffer[2]==ESC_FUNCTION\|\|buffer[2]==ESC_SUB)) return;
223
224	GetOriginalTypeName(buffer+1);
225	return;
226	}
227
228	int i;
229	i=pobj_DBTypeDef->check(buffer);
230	if(i!=-1){
231	lstrcpy(buffer,pobj_DBTypeDef->ppobj_TypeDef[i]->lpszBaseName);
232	GetOriginalTypeName(buffer);
233	}
234	}
235	BOOL GetTypeName(int type,LONG_PTR lpIndex,char *name){
236	if(PTR_LEVEL(type)){
237	//ポインタ型
238	name[0]='*';
239	return GetTypeName(MAKE_PTR_TYPE(NATURAL_TYPE(type),PTR_LEVEL(type)-1),lpIndex,name+1);
240	}
241
242	//整数型
243	if(type==DEF_CHAR) lstrcpy(name,"Char");
244	else if(type==DEF_BYTE) lstrcpy(name,"Byte");
245	else if(type==DEF_INTEGER) lstrcpy(name,"Integer");
246	else if(type==DEF_WORD) lstrcpy(name,"Word");
247	else if(type==DEF_LONG) lstrcpy(name,"Long");
248	else if(type==DEF_DWORD) lstrcpy(name,"DWord");
249	else if(type==DEF_INT64) lstrcpy(name,"Int64");
250	else if(type==DEF_QWORD) lstrcpy(name,"QWord");
251
252	//実数型
253	else if(type==DEF_SINGLE) lstrcpy(name,"Single");
254	else if(type==DEF_DOUBLE) lstrcpy(name,"Double");
255
256	//オブジェクト
257	else if(type==DEF_OBJECT){
258	if(lpIndex==0) lstrcpy(name,"non");
259	else{
260	lstrcpy(name,((CClass *)lpIndex)->name);
261	}
262	}
263
264	//ポインタ型
265	else if(type==DEF_PTR_VOID) lstrcpy(name,"VoidPtr");
266
267	else if(type==DEF_PTR_PROC){
268	if(lpIndex==-1) lstrcpy(name,"VoidPtr");
269	else{
270	extern PROCPTRINFO *pProcPtrInfo;
271	if(pProcPtrInfo[lpIndex].ReturnType==-1)
272	lstrcpy(name,"*Sub");
273	else lstrcpy(name,"*Function");
274	}
275	}
276
277	else{
278	extern int cp;
279	SetError(1,NULL,cp);
280	return 0;
281	}
282	return 1;
283	}
284
285	TYPEINFO GetStringTypeInfo(){
286	extern CClass *pobj_StringClass;
287	TYPEINFO TypeInfo = { DEF_OBJECT, (LONG_PTR)pobj_StringClass };
288	return TypeInfo;
289	}
290
291	BOOL GetVarFormatString(char buffer,char array,char array2,char NestMember,int *pRefType){
292	extern int cp;
293	int i,i2,i3;
294	char cPare_Open,cPare_Close;
295
296	array[0]=0;
297	array2[0]=0;
298	NestMember[0]=0;
299	*pRefType=0;
300	for(i=0;;i++){
301	if(buffer[i]=='\"'){
302	for(i++;;i++){
303	if(IsDBCSLeadByte(buffer[i])){
304	i++;
305	continue;
306	}
307	if(buffer[i]=='\"') break;
308	}
309	}
310	if(buffer[i]=='['\|\|buffer[i]=='('){
311	if(buffer[i]=='['){
312	cPare_Open='[';
313	cPare_Close=']';
314	}
315	else{
316	cPare_Open='(';
317	cPare_Close=')';
318	}
319	buffer[i]=0;
320	for(i++,i2=0;;i++,i2++){
321	if(buffer[i]==cPare_Open){
322	if(cPare_Open=='[') i3=GetStringInBracket(array+i2,buffer+i);
323	else i3=GetStringInPare(array+i2,buffer+i);
324	i+=i3-1;
325	i2+=i3-1;
326	continue;
327	}
328	if(buffer[i]==cPare_Close){
329	array[i2]=0;
330	break;
331	}
332	array[i2]=buffer[i];
333	}
334	if(buffer[i+1]==cPare_Open){
335	for(i+=2,i2=0;;i++,i2++){
336	if(buffer[i]==cPare_Open){
337	if(cPare_Open=='[') i3=GetStringInBracket(array2+i2,buffer+i);
338	else i3=GetStringInPare(array2+i2,buffer+i);
339	i+=i3-1;
340	i2+=i3-1;
341	continue;
342	}
343	if(buffer[i]==cPare_Close){
344	array2[i2]=0;
345	break;
346	}
347	array2[i2]=buffer[i];
348	}
349	if(buffer[i+1]==cPare_Open){
350	SetError(14,buffer,cp);
351	return 0;
352	}
353	}
354	continue;
355	}
356	if(buffer[i]=='.'){
357	lstrcpy(NestMember,buffer+i+1);
358	*pRefType=DEF_OBJECT;
359	buffer[i]=0;
360	break;
361	}
362	if(buffer[i]==1&&buffer[i+1]==ESC_PSMEM){
363	lstrcpy(NestMember,buffer+i+2);
364	*pRefType=DEF_PTR_OBJECT;
365	buffer[i]=0;
366	break;
367	}
368	if(buffer[i]=='\0') break;
369	}
370	return 1;
371	}
372
373	void GetArrayElement(char buffer,char variable,char *array_element){
374	array_element[0]=0;
375
376	if(buffer[lstrlen(buffer)-1]!=']'){
377	lstrcpy(variable,buffer);
378	return;
379	}
380
381	int i,i2;
382	for(i=0;;i++){
383	if(buffer[i]=='\0') break;
384	if(buffer[i]=='['){
385	i2=GetStringInBracket(array_element,buffer+i);
386	i+=i2-1;
387	continue;
388	}
389	}
390
391	lstrcpy(variable,buffer);
392	variable[lstrlen(variable)-lstrlen(array_element)]=0;
393
394	RemoveStringBracket(array_element);
395	}
396
397	BOOL CheckVarNameError(char *name,int NowLine){
398	int i2;
399
400	if(!IsVariableTopChar(name[0])){
401	SetError(1,NULL,NowLine);
402	return 0;
403	}
404	for(i2=1;;i2++){
405	if(name[i2]=='\0') break;
406	if(!IsVariableChar(name[i2])){
407	SetError(1,NULL,NowLine);
408	return 0;
409	}
410	}
411	return 1;
412	}
413
414	int JumpSubScripts(int *ss){
415	//DIMで定義された並んだ配列の数だけアドレスを進める
416	int i,i2;
417	for(i=0,i2=1;i<255;i++){
418	if(ss[i]==-1) break;
419	i2*=ss[i]+1;
420	}
421	return i2;
422	}
423	void GetArrange(char variable,char variAnswer,int *SubScripts){
424	extern int cp;
425	int i,i2,i3,i4;
426	double dbl;
427	_int64 i64data;
428	BOOL bBracket;
429	char temporary[VN_SIZE];
430
431	for(i=0;;i++){
432	if(variable[i]=='('\|\|variable[i]=='['){
433	if(variable[i]=='[') bBracket=1;
434	else bBracket=0;
435
436	variAnswer[i]=0;
437	for(i++,i2=0,i3=0;;i++,i2++){
438	if(variable[i]==','){
439	temporary[i2]=0;
440
441	i2=StaticCalculation(true, temporary,0,&i64data,0);
442	if(IsRealNumberType(i2)){
443	memcpy(&dbl,&i64data,sizeof(double));
444	i64data=(_int64)dbl;
445	}
446
447	if(i64data<0){
448	//error
449	SubScripts[i3]=0;
450	}
451	else SubScripts[i3]=(int)i64data;
452	i3++;
453	i2=-1;
454	continue;
455	}
456	if(variable[i]=='('){
457	i4=GetStringInPare(temporary+i2,variable+i);
458	i2+=i4-1;
459	i+=i4-1;
460	continue;
461	}
462	if(variable[i]=='['){
463	i4=GetStringInBracket(temporary+i2,variable+i);
464	i2+=i4-1;
465	i+=i4-1;
466	continue;
467	}
468	if(variable[i]==')'&&bBracket==0\|\|
469	variable[i]==']'&&bBracket){
470	temporary[i2]=0;
471	if(i2==0){
472	SubScripts[i3]=-2;
473	break;
474	}
475
476	i2=StaticCalculation(true, temporary,0,&i64data,0);
477	if(IsRealNumberType(i2)){
478	memcpy(&dbl,&i64data,sizeof(double));
479	i64data=(_int64)dbl;
480	}
481
482	if(i64data<0){
483	//error
484	SubScripts[i3]=0;
485	}
486	else SubScripts[i3]=(int)i64data;
487	SubScripts[i3+1]=-1;
488	break;
489	}
490	if(variable[i]=='\"'){
491	SetError(1,NULL,cp);
492	return;
493	}
494	temporary[i2]=variable[i];
495	}
496	break;
497	}
498	variAnswer[i]=variable[i];
499	if(variable[i]=='\0'){
500	SubScripts[0]=-1;
501	break;
502	}
503	}
504	}
505
506	int GetTypeFromSimpleName(char *variable){
507	extern char DefIntVari[26],DefSngVari[26],DefStrVari[26],divNum,dsvNum,dStrvNum;
508	int i;
509	char name[VN_SIZE];
510
511	//構造体メンバの場合を考慮
512	for(i=lstrlen(variable);i>0;i--){
513	if(variable[i]=='.'){
514	i++;
515	break;
516	}
517	}
518
519	for(;;i++){
520	if(variable[i]=='('\|\|variable[i]=='\0'){
521	name[i]=0;
522	break;
523	}
524	name[i]=variable[i];
525	}
526	//変数名から選択
527	i--;
528	if(name[i]=='#') return DEF_DOUBLE;
529	if(name[i]=='!') return DEF_SINGLE;
530	if(name[i]=='%') return DEF_INTEGER;
531	return DEF_DOUBLE;
532	}
533
534
535	int GetMemberType(CClass pobj_c,char member,LONG_PTR *plpNestIndex,BOOL bPrivateAccess,BOOL bError){
536	extern int cp;
537	int i;
538
539	//クラス、配列の構成要素を解析する
540	char VarName[VN_SIZE]; //変数名
541	char array[VN_SIZE]; //第1次配列
542	char lpPtrOffset[VN_SIZE]; //第2次配列
543	char NestMember[VN_SIZE]; //入れ子メンバ
544	int object_type; //"."参照のときは0、"->"参照のときは1
545	lstrcpy(VarName,member);
546	if(!GetVarFormatString(VarName,array,lpPtrOffset,NestMember,&object_type)) return 0;
547
548	for(i=0;i<pobj_c->iMemberNum;i++){
549	if(lstrcmp(pobj_c->ppobj_Member[i]->name,VarName)==0) break;
550	}
551	if(i==pobj_c->iMemberNum){
552	if(bError) SetError(103,VarName,cp);
553	return -1;
554	}
555
556	//アクセシビリティをチェック
557	if(pobj_c==pobj_CompilingClass){
558	//同一クラスオブジェクトの場合はプライベートアクセスを容認する
559	if(pobj_c->ppobj_Member[i]->dwAccess==ACCESS_NON){
560	if(bError) SetError(107,VarName,cp);
561	return -1;
562	}
563	}
564	else{
565	if((bPrivateAccess==0&&pobj_c->ppobj_Member[i]->dwAccess==ACCESS_PRIVATE)\|\|
566	pobj_c->ppobj_Member[i]->dwAccess==ACCESS_NON){
567	if(bError) SetError(107,VarName,cp);
568	return -1;
569	}
570	else if(bPrivateAccess==0&&pobj_c->ppobj_Member[i]->dwAccess==ACCESS_PROTECTED){
571	if(bError) SetError(108,VarName,cp);
572	return -1;
573	}
574	}
575
576	int type;
577	type=pobj_c->ppobj_Member[i]->TypeInfo.type;
578	*plpNestIndex=pobj_c->ppobj_Member[i]->TypeInfo.u.lpIndex;
579
580	//ポインタ変数の場合
581	if(IsPtrType(type)){
582	if(pobj_c->ppobj_Member[i]->SubScripts[0]==-1){
583	lstrcpy(lpPtrOffset,array);
584	array[0]=0;
585	}
586	}
587	else{
588	if(lpPtrOffset[0]){
589	if(bError) SetError(16,member,cp);
590	return 0;
591	}
592	}
593
594	if(object_type){
595	//入れ子構造の場合
596
597	return GetMemberType(pobj_c->ppobj_Member[i]->TypeInfo.u.pobj_Class,
598	NestMember,
599	plpNestIndex,
600	0,
601	bError);
602	}
603
604	if(array[0]==0&&pobj_c->ppobj_Member[i]->SubScripts[0]!=-1){
605	return type\|FLAG_PTR;
606	}
607
608	if(lpPtrOffset[0]){
609	if(PTR_LEVEL(type)){
610	type=MAKE_PTR_TYPE(NATURAL_TYPE(type),PTR_LEVEL(type)-1);
611	}
612	else{
613	//エラー
614	if(bError) SetError(1,NULL,cp);
615	return -1;
616	}
617	}
618
619	return type;
620	}
621	int GetVarType(char NameBuffer,LONG_PTR plpIndex,BOOL bError){
622	extern BOOL bCompilingGlobal;
623	int i;
624	char variable[VN_SIZE],member[VN_SIZE],VarName[VN_SIZE],array[VN_SIZE],lpPtrOffset[VN_SIZE];
625
626	if(NameBuffer[0]=='.'){
627	GetWithName(variable);
628	lstrcat(variable,NameBuffer);
629	}
630	else lstrcpy(variable,NameBuffer);
631
632	lstrcpy(VarName,variable);
633	GetVarFormatString(VarName,array,lpPtrOffset,member,&i);
634
635	int *pSubScripts;
636	int type;
637	LONG_PTR lpIndex;
638
639	extern int MaxGlobalVarNum;
640	extern VARIABLE *GlobalVar;
641	extern int MaxLocalVarNum;
642	extern VARIABLE *LocalVar;
643
644	if(bCompilingGlobal==0){
645	/////////////////
646	// ローカル変数
647	/////////////////
648
649	for(i=MaxLocalVarNum-1;i>=0;i--){ //レキシカルスコープを考慮してバックサーチ
650	if( LocalVar[i].bLiving //現在のスコープで有効なもの
651	&& LocalVar[i].ScopeLevel <= obj_LexScopes.GetNowLevel() //現在のスコープレベルを超さないもの（Returnによる解放処理中を考慮）
652	){
653	if(lstrcmp(VarName,LocalVar[i].name)==0) break;
654	}
655	}
656	if(i>=0){
657	//ポインタ変数の場合
658	if(IsPtrType(LocalVar[i].type)){
659	if(LocalVar[i].SubScripts[0]==-1){
660	lstrcpy(lpPtrOffset,array);
661	array[0]=0;
662	}
663	}
664	else{
665	if(lpPtrOffset[0]){
666	if(bError) SetError(16,variable,cp);
667	return -1;
668	}
669	}
670
671	type=LocalVar[i].type;
672	lpIndex=LocalVar[i].u.index;
673	pSubScripts=LocalVar[i].SubScripts;
674
675	goto ok;
676	}
677	}
678
679	if(pobj_CompilingClass){
680	///////////////////////
681	// クラスメンバの参照
682	///////////////////////
683
684	if(lstrcmpi(variable,"This")==0){
685	//Thisオブジェクト
686	*plpIndex=(LONG_PTR)pobj_CompilingClass;
687	return DEF_OBJECT;
688	}
689
690	if(_memicmp(variable,"This.",5)==0){
691	//Thisオブジェクトのメンバを参照するとき
692	SlideString(variable+5,-5);
693	lstrcpy(VarName,variable);
694	}
695	else{
696	//クラス内メンバを参照するとき（通常）
697
698	for(i=0;i<pobj_CompilingClass->iMemberNum;i++){
699	if(lstrcmp(VarName,pobj_CompilingClass->ppobj_Member[i]->name)==0) break;
700	}
701	if(i==pobj_CompilingClass->iMemberNum) goto NonClassMember;
702	}
703
704	return GetMemberType(pobj_CompilingClass,variable,plpIndex,1,bError);
705	}
706
707	NonClassMember:
708
709	//////////////////////////
710	// 静的ローカル変数
711	// ※"Static.Object.Method.Variable"
712	//////////////////////////
713
714	char temporary[VN_SIZE];
715	extern SUBINFO *pCompilingSubInfo;
716	if(pCompilingSubInfo){
717	GetNowStaticVarFullName(VarName,temporary);
718
719	for(i=0;i<MaxGlobalVarNum;i++){
720	if(lstrcmp(temporary,GlobalVar[i].name)==0) break;
721	}
722	if(i!=MaxGlobalVarNum){
723	goto GlobalOk;
724	}
725	}
726
727
728	//////////////////////////
729	// クラスの静的メンバ
730	//////////////////////////
731
732	if(member[0]){
733	lstrcpy(temporary,member);
734	char tempMember[VN_SIZE];
735	char tempArray[VN_SIZE];
736	GetVarFormatString(temporary,tempArray,lpPtrOffset,tempMember,&i);
737
738	char temp2[VN_SIZE];
739	sprintf(temp2,"%s.%s",VarName,temporary);
740	for(i=0;i<MaxGlobalVarNum;i++){
741	if(lstrcmp(temp2,GlobalVar[i].name)==0) break;
742	}
743
744	if(i!=MaxGlobalVarNum){
745	lstrcpy(member,tempMember);
746	lstrcpy(array,tempArray);
747	goto GlobalOk;
748	}
749	}
750
751	if(pobj_CompilingClass){
752	//自身のクラスから静的メンバを参照する場合
753	char temp2[VN_SIZE];
754	sprintf(temp2,"%s.%s",pobj_CompilingClass->name,VarName);
755	for(i=0;i<MaxGlobalVarNum;i++){
756	if(lstrcmp(temp2,GlobalVar[i].name)==0) break;
757	}
758
759	if(i!=MaxGlobalVarNum){
760	goto GlobalOk;
761	}
762	}
763
764
765	////////////////////
766	// グローバル変数
767	////////////////////
768
769	for(i=MaxGlobalVarNum-1;i>=0;i--){ //レキシカルスコープを考慮してバックサーチ
770	if( GlobalVar[i].bLiving //現在のスコープで有効なもの
771	&& GlobalVar[i].ScopeLevel <= obj_LexScopes.GetNowLevel() //現在のスコープレベルを超さないもの（Returnによる解放処理中を考慮）
772	){
773	if(lstrcmp(VarName,GlobalVar[i].name)==0) break;
774	}
775	}
776
777	if(i>=0){
778	goto GlobalOk;
779	}
780
781	//変数として見つからなかったとき
782	if(bError) SetError(3,variable,cp);
783	return -1;
784
785	GlobalOk:
786
787	//ポインタ変数の場合
788	if(IsPtrType(GlobalVar[i].type)){
789	if(GlobalVar[i].SubScripts[0]==-1){
790	lstrcpy(lpPtrOffset,array);
791	array[0]=0;
792	}
793	}
794	else{
795	if(lpPtrOffset[0]){
796	if(bError) SetError(16,variable,cp);
797	return -1;
798	}
799	}
800
801	type=GlobalVar[i].type;
802	lpIndex=GlobalVar[i].u.index;
803	pSubScripts=GlobalVar[i].SubScripts;
804
805	ok:
806
807	if(member[0]){
808	if(NATURAL_TYPE(type)==DEF_OBJECT)
809	return GetMemberType((CClass *)lpIndex,member,plpIndex,0,bError);
810	}
811
812	if(array[0]==0&&pSubScripts[0]!=-1){
813	//配列の先頭ポインタを示す場合
814	type\|=FLAG_PTR;
815	}
816
817	if(lpPtrOffset[0]){
818	if(PTR_LEVEL(type)){
819	type=MAKE_PTR_TYPE(NATURAL_TYPE(type),PTR_LEVEL(type)-1);
820	}
821	else{
822	//エラー
823	if(bError) SetError(1,NULL,cp);
824	return -1;
825	}
826	}
827
828	*plpIndex=lpIndex;
829	return type;
830	}
831
832	BOOL GetVarOffsetReadOnly(char NameBuffer,int pType,RELATIVE_VAR pRelativeVar,LONG_PTR plpIndex,int *pss){
833	//読み取り専用で変数へアクセス
834	return GetVarOffset(
835	true, //エラー表示有効
836	false, //書き込みアクセスは無し
837	NameBuffer,
838	pType,
839	pRelativeVar,
840	plpIndex,
841	pss);
842	}
843	BOOL GetVarOffsetReadWrite(char NameBuffer,int pType,RELATIVE_VAR pRelativeVar,LONG_PTR plpIndex,int *pss){
844	//読み書き両用で変数へアクセス
845	return GetVarOffset(
846	true, //エラー表示有効
847	true, //書き込みアクセス
848	NameBuffer,
849	pType,
850	pRelativeVar,
851	plpIndex,
852	pss);
853	}
854
855
856
857	BOOL GetDimentionFormat(char buffer,char VarName,int SubScripts,TYPEINFO pTypeInfo,char InitBuf,char ConstractParameter){
858	int i,i2,i3,IsStr;
859	char variable[VN_SIZE],temporary[8192];
860
861	for(i=0;;i++){
862	if((buffer[i]==1&&buffer[i+1]==ESC_AS)\|\|
863	buffer[i]=='='\|\|
864	buffer[i]=='\0'){
865	variable[i]=0;
866	break;
867	}
868	variable[i]=buffer[i];
869	}
870
871	if(buffer[i]=='='){
872	////////////////////////////////////
873	// 初期化データが指定されいるとき
874	////////////////////////////////////
875
876	for(i++,i2=0,IsStr=0;;i++,i2++){
877	if(buffer[i]=='\"') IsStr^=1;
878	if(buffer[i]=='('&&IsStr==0){
879	i3=GetStringInPare(InitBuf+i2,buffer+i);
880	i+=i3-1;
881	i2+=i3-1;
882	continue;
883	}
884	if(buffer[i]=='['&&IsStr==0){
885	i3=GetStringInBracket(InitBuf+i2,buffer+i);
886	i+=i3-1;
887	i2+=i3-1;
888	continue;
889	}
890	if((buffer[i]==1&&buffer[i+1]==ESC_AS)\|\|
891	(buffer[i]==','&&IsStr==0)\|\|
892	buffer[i]=='\0'){
893	InitBuf[i2]=0;
894	break;
895	}
896	InitBuf[i2]=buffer[i];
897	}
898	}
899	else{
900	//初期化データなし
901	InitBuf[0]=0;
902	}
903
904	ConstractParameter[0]=0;
905	if(buffer[i]==1&&buffer[i+1]==ESC_AS){
906	/////////////////////////////
907	// "As ～" による型指定あり
908	/////////////////////////////
909
910	for(i+=2,i2=0;;i++,i2++){
911	if(buffer[i]==','\|\|buffer[i]=='('\|\|buffer[i]=='\0'){
912	temporary[i2]=0;
913	break;
914	}
915	temporary[i2]=buffer[i];
916	}
917	pTypeInfo->type=GetTypeFixed(temporary,&pTypeInfo->u.lpIndex);
918	if(pTypeInfo->type==-1){
919	SetError(3,temporary,cp);
920	return 0;
921	}
922
923	if(pTypeInfo->type==DEF_PTR_PROC){
924	if(temporary[0]=='*'&&
925	temporary[1]==1&&
926	(temporary[2]==ESC_FUNCTION\|\|temporary[2]==ESC_SUB)){
927	if(buffer[i]!='('){
928	SetError(10,temporary,cp);
929	return 0;
930	}
931	i3=GetStringInPare(temporary+3,buffer+i);
932	i+=i3;
933	i2+=i3;
934
935	if(temporary[2]==ESC_FUNCTION&&buffer[i]==1&&buffer[i+1]==ESC_AS){
936	temporary[i2++]=buffer[i++];
937	temporary[i2++]=buffer[i++];
938	for(;;i++,i2++){
939	if(!IsVariableChar(buffer[i])){
940	temporary[i2]=0;
941	break;
942	}
943	temporary[i2]=buffer[i];
944	}
945	}
946	}
947	else{
948	//TypeDefをする前のベース型を取得
949	GetOriginalTypeName(temporary);
950	}
951
952	if(temporary[3]!='('){
953	SetError(10,temporary,cp);
954	return 0;
955	}
956
957	//関数ポインタ
958	pTypeInfo->u.lpIndex=AddProcPtrInfo(temporary+3,temporary[2]);
959	}
960
961	if(buffer[i]=='('){
962	//コンストラクタに渡すパラメータを取得
963	i2=GetStringInPare(ConstractParameter,buffer+i);
964	i+=i2;
965	RemoveStringPare(ConstractParameter);
966
967	if(pTypeInfo->type!=DEF_OBJECT){
968	SetError(112,variable,cp);
969	return 0;
970	}
971	}
972	}
973	else{
974	/////////////////
975	// As指定なし
976	/////////////////
977
978	if( InitBuf[0] == '\0' ){
979	//As指定も、初期値指定もない場合
980	pTypeInfo->type=GetTypeFromSimpleName(variable);
981
982	i2=lstrlen(variable)-1;
983	if(i2>=0){
984	if(!(variable[i2]=='#'\|\|variable[i2]=='!'\|\|variable[i2]=='%'\|\|variable[i2]=='$'))
985	SetError(-103,variable,cp);
986	}
987	}
988	else{
989	//初期値の型を判別して自動的に型情報を付加する
990
991	TYPEINFO BaseType = GetStringTypeInfo();
992	int result = NumOpe_GetType( InitBuf, &BaseType, &pTypeInfo->u.lpIndex );
993
994	//エラーの場合
995	if( result == -1 ) return 0;
996
997	pTypeInfo->type = result;
998	}
999
1000	}
1001
1002	if( InitBuf[0] != '\0' && ConstractParameter[0] != '\0' ){
1003	//初期値とコンストラクタパラメータが同時に呼び出されているとき
1004	SetError(132, NULL, cp);
1005	}
1006
1007	if( pTypeInfo->type == DEF_OBJECT && InitBuf[0] != '\0' && InitBuf[0] != '[' ){
1008	lstrcpy( ConstractParameter, InitBuf );
1009	InitBuf[0] = 0;
1010	}
1011
1012	GetArrange(variable,VarName,SubScripts);
1013	return 1;
1014	}
1015
1016	BOOL GetNowStaticVarFullName(char VarName,char FullName){
1017	extern SUBINFO *pCompilingSubInfo;
1018	if(!pCompilingSubInfo) return 0;
1019
1020	//Static識別
1021	lstrcpy(FullName,"Static%");
1022
1023	//クラス名
1024	if(pobj_CompilingClass){
1025	lstrcat(FullName,pobj_CompilingClass->name);
1026	lstrcat(FullName,"%");
1027	}
1028
1029	//関数（またはメソッド）名
1030	lstrcat(FullName,pCompilingSubInfo->name);
1031	lstrcat(FullName,"%");
1032
1033	//ID
1034	char temp[255];
1035	sprintf(temp,"%x",pCompilingSubInfo->id);
1036	lstrcat(FullName,temp);
1037	lstrcat(FullName,"%");
1038
1039	//変数名
1040	lstrcat(FullName,VarName);
1041
1042	return 1;
1043	}
1044
1045
1046	void AddGlobalVariable(char name,int SubScripts,TYPEINFO pTypeInfo,int TypeSize,char InitBuf,char *ConstractParameter,DWORD dwFlag){
1047	/////////////////////////
1048	// グローバル変数を追加
1049	/////////////////////////
1050	extern VARIABLE *GlobalVar;
1051	extern int MaxGlobalVarNum;
1052	extern int AllInitGlobalVarSize;
1053	extern int AllGlobalVarSize;
1054
1055	int i2,i3,VarSize;
1056
1057	for(i2=0;i2<MaxGlobalVarNum;i2++){
1058	if(GlobalVar[i2].bLiving&&obj_LexScopes.GetNowLevel()==GlobalVar[i2].ScopeLevel){
1059	if(lstrcmp(GlobalVar[i2].name,name)==0){
1060	//２重定義のエラー
1061	SetError(15,name,cp);
1062	return;
1063	}
1064	}
1065	}
1066
1067	GlobalVar=(VARIABLE )HeapReAlloc(hHeap,0,GlobalVar,(MaxGlobalVarNum+1)sizeof(VARIABLE));
1068
1069	for(i2=1,i3=0;i3<255;i3++){
1070	//配列要素数
1071	GlobalVar[MaxGlobalVarNum].SubScripts[i3]=SubScripts[i3];
1072
1073	if(SubScripts[i3]==-1) break;
1074	i2*=SubScripts[i3]+1;
1075	}
1076	VarSize=TypeSize*i2;
1077	if(VarSize%PTR_SIZE) VarSize+=PTR_SIZE-(VarSize%PTR_SIZE);
1078
1079	//新しいオブジェクトポインタを取得
1080	VARIABLE *pVar = &GlobalVar[MaxGlobalVarNum];
1081
1082	//グローバル変数の個数を増加
1083	MaxGlobalVarNum++;
1084
1085	lstrcpy(pVar->name,name);
1086	pVar->fRef = 0;
1087	if(dwFlag & DIMFLAG_CONST) pVar->bConst = true;
1088	else pVar->bConst = false;
1089	if(SubScripts[0]==-1) pVar->bArray=0;
1090	else pVar->bArray=1;
1091	pVar->type=pTypeInfo->type;
1092	pVar->u.index=pTypeInfo->u.lpIndex;
1093
1094	//コンストラクタ用パラメータ
1095	pVar->ConstractParameter=(char *)HeapAlloc(hHeap,0,lstrlen(ConstractParameter)+1);
1096	lstrcpy(pVar->ConstractParameter,ConstractParameter);
1097
1098	if(InitBuf[0]\|\|dwFlag==DIMFLAG_INITDEBUGVAR){
1099	//初期バッファがあるとき
1100	pVar->offset=AllInitGlobalVarSize;
1101	AllInitGlobalVarSize+=VarSize;
1102	}
1103	else{
1104	//初期バッファがないとき
1105	pVar->offset=AllGlobalVarSize \| 0x80000000;
1106	AllGlobalVarSize+=VarSize;
1107	}
1108
1109	//レキシカルスコープ
1110	pVar->ScopeLevel=obj_LexScopes.GetNowLevel();
1111	pVar->ScopeStartAddress=obj_LexScopes.GetStartAddress();
1112	pVar->bLiving=TRUE;
1113
1114	//エラー用
1115	pVar->source_code_address=cp;
1116
1117	//初期バッファにデータをセット
1118	extern BYTE *initGlobalBuf;
1119	initGlobalBuf=(BYTE *)HeapReAlloc(hHeap,
1120	HEAP_ZERO_MEMORY,
1121	initGlobalBuf,
1122	AllInitGlobalVarSize);
1123	if(InitBuf[0]){
1124	if( pVar->type == DEF_OBJECT && InitBuf[0] != '[' ){
1125	//単発式が初期値のオブジェクトの場合
1126	//初期値をコピーコンストラクタに渡す
1127	}
1128	else{
1129	int result = SetInitGlobalData(pVar->offset,
1130	pVar->type,
1131	pVar->u.index,
1132	pVar->SubScripts,
1133	InitBuf);
1134
1135	if(!result){
1136	//動的な式だった場合は代入演算を行う
1137
1138	//初期代入時のみ、書き込みアクセスを許可する
1139	bool bConstBack = pVar->bConst;
1140	pVar->bConst = false;
1141
1142	//代入
1143	char temporary[8192];
1144	sprintf(temporary,"%s=%s",name,InitBuf);
1145	OpcodeCalc(temporary);
1146
1147	//アクセス制限を元に戻す
1148	pVar->bConst = bConstBack;
1149	}
1150	}
1151	}
1152
1153
1154
1155
1156	if(pTypeInfo->type==DEF_OBJECT){
1157	//利用対象のクラスコンストラクタ、デストラクタに使用チェックをつける
1158	for(i2=0;i2<pTypeInfo->u.pobj_Class->iMethodNum;i2++){
1159	if(lstrcmp(pTypeInfo->u.pobj_Class->ppobj_Method[i2]->psi->name,pTypeInfo->u.pobj_Class->name)==0){
1160	//コンストラクタ
1161	pTypeInfo->u.pobj_Class->ppobj_Method[i2]->psi->bUse=1;
1162	}
1163	if(pTypeInfo->u.pobj_Class->ppobj_Method[i2]->psi->name[0]=='~'){
1164	//デストラクタ
1165	pTypeInfo->u.pobj_Class->ppobj_Method[i2]->psi->bUse=1;
1166	}
1167	}
1168	}
1169	}

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

Download in other formats: