source: dev/trunk/abdev/BasicCompiler_Common/Procedure.cpp@ 163

Last change on this file since 163 was 140, checked in by dai_9181, 17 years ago

traceログ機能を搭載
動的メンバをstl::vectorにまとめた
シンボルをクラス化した
File size: 20.8 KB
Line 
1#include "common.h"
2
3string UserProc::GetFullName() const
4{
5 if( HasParentClass() ){
6 return GetParentClass().GetName() + "." + GetName();
7 }
8
9 return GetName();
10}
11bool UserProc::SetParamsAndReturnType( const char *sourceOfParams, int nowLine, bool isStatic ){
12 int i = 0;
13 int i2,i3,sw;
14 char temporary[8192],temp2[VN_SIZE];
15
16 //ソースコードの位置
17 this->codePos = nowLine;
18
19 //パラメータ
20 if(sourceOfParams[i]!='('){
21 SetError(1,NULL,nowLine);
22 return 0;
23 }
24 i++;
25 if(sourceOfParams[i]!=')'&& this->pParentClass ){
26 //クラスのメンバ関数の場合のみ、デストラクタにパラメータがある場合にエラーをだす
27 if(this->GetName()[0]=='~'){
28 SetError(114,NULL,nowLine);
29 i=JumpStringInPare(sourceOfParams,i);
30 }
31 }
32 while(1){
33 if(sourceOfParams[i]==')') break;
34
35 //ByRef
36 bool isRef;
37 if(sourceOfParams[i]==1&&sourceOfParams[i+1]==ESC_BYVAL){
38 isRef = false;
39 i+=2;
40 }
41 else if(sourceOfParams[i]==1&&sourceOfParams[i+1]==ESC_BYREF){
42 isRef = true;
43 i+=2;
44 }
45 else isRef = false;
46
47 //パラメータ名
48 bool isArray = false;
49 int subScripts[MAX_ARRAYDIM];
50 char name[VN_SIZE];
51 sw=0;
52 for(i2=0;;i++,i2++){
53 if(sourceOfParams[i]=='('){
54 if(!sw) sw=1;
55
56 i3=GetStringInPare(name+i2,sourceOfParams+i);
57 i2+=i3-1;
58 i+=i3-1;
59 continue;
60 }
61 if(sourceOfParams[i]=='['){
62 if(!sw) sw=1;
63
64 i3=GetStringInBracket(name+i2,sourceOfParams+i);
65 i2+=i3-1;
66 i+=i3-1;
67 continue;
68 }
69 if(!IsVariableChar(sourceOfParams[i])){
70 name[i2]=0;
71 break;
72 }
73 name[i2]=sourceOfParams[i];
74 }
75 if(sw){
76 //配列パラメータ
77 if( isRef == false ) SetError(29,NULL,nowLine);
78 isArray = true;
79
80 if((name[i2-2]=='('&&name[i2-1]==')')||
81 (name[i2-2]=='['&&name[i2-1]==']')){
82 subScripts[0]=LONG_MAX;
83 subScripts[1]=-1;
84
85 name[i2-2]=0;
86 }
87 else{
88 GetArrange(name,temp2,subScripts);
89 lstrcpy(name,temp2);
90 }
91
92 i2=lstrlen(name);
93 }
94
95 Type type( DEF_NON );
96 char initValue[8192] = "";
97 if( sourceOfParams[i] == '=' ){
98 i++;
99 i = GetOneParameter( sourceOfParams, i, initValue );
100
101 //エラー用
102 cp = nowLine;
103
104 NumOpe_GetType( initValue, Type::String(), type );
105 }
106 else if(sourceOfParams[i]==1&&sourceOfParams[i+1]==ESC_AS){
107 // As指定
108 i+=2;
109
110 i2=0;
111 while(sourceOfParams[i]=='*'){
112 temporary[i2]=sourceOfParams[i];
113 i++;
114 i2++;
115 }
116 for(;;i++,i2++){
117 if(!IsVariableChar(sourceOfParams[i])){
118 if(sourceOfParams[i]==1&&(sourceOfParams[i+1]==ESC_FUNCTION||sourceOfParams[i+1]==ESC_SUB)){
119 temporary[i2++]=sourceOfParams[i++];
120 temporary[i2]=sourceOfParams[i];
121 continue;
122 }
123 temporary[i2]=0;
124 break;
125 }
126 temporary[i2]=sourceOfParams[i];
127 }
128
129 Type::StringToType( temporary, type );
130
131 if( type.IsNull() ){
132 SetError(3,temporary,nowLine);
133 type.SetBasicType( DEF_PTR_VOID );
134 }
135
136 if( type.IsObject() ){
137 if( type.GetClass().IsBlittableType() ){
138 // Blittable型のときは基本型として扱う
139 type = type.GetClass().GetBlittableType();
140 }
141 }
142 }
143 else{
144 type.SetBasicType( GetTypeFromSimpleName(temporary) );
145 SetError(-103,temporary,nowLine);
146 }
147
148 Parameter *pParam = new Parameter( name, type, isRef, initValue );
149 if( isArray ){
150 pParam->SetArray( subScripts );
151 }
152
153 //パラメータを追加
154 this->params.push_back( pParam );
155
156/* if( type.IsObject() && type.GetClass().IsInterface() ){
157 // インターフェイスが引数だったとき
158 // vtblOffsetを引き渡すための引数も用意しておく
159 this->params.push_back( new Parameter( ((string)name + "_vtbl").c_str(), Type(DEF_LONG) ) );
160 }*/
161
162 if(sourceOfParams[i]==','){
163 i++;
164 continue;
165 }
166 else if(sourceOfParams[i]==')') continue;
167 else{
168 SetError(1,NULL,nowLine);
169 break;
170 }
171 }
172 this->secondParmNum = (int)this->params.size();
173 i++;
174 if(sourceOfParams[i]=='('){
175 i++;
176 while(1){
177 if(sourceOfParams[i]==')') break;
178
179 //ByRef
180 bool isRef;
181 if(sourceOfParams[i]==1&&sourceOfParams[i+1]==ESC_BYVAL){
182 isRef = false;
183 i+=2;
184 }
185 else if(sourceOfParams[i]==1&&sourceOfParams[i+1]==ESC_BYREF){
186 isRef = true;
187 i+=2;
188 }
189 else isRef = false;
190
191 //パラメータ名
192 bool isArray = false;
193 int subScripts[MAX_ARRAYDIM];
194 char name[VN_SIZE];
195 sw=0;
196 for(i2=0;;i++,i2++){
197 if(sourceOfParams[i]=='('){
198 if(!sw) sw=1;
199
200 i3=GetStringInPare(name+i2,sourceOfParams+i);
201 i2+=i3-1;
202 i+=i3-1;
203 continue;
204 }
205 if(sourceOfParams[i]=='['){
206 if(!sw) sw=1;
207
208 i3=GetStringInBracket(name+i2,sourceOfParams+i);
209 i2+=i3-1;
210 i+=i3-1;
211 continue;
212 }
213 if(!IsVariableChar(sourceOfParams[i])){
214 name[i2]=0;
215 break;
216 }
217 name[i2]=sourceOfParams[i];
218 }
219 if(sw){
220 //配列パラメータ
221 if( isRef == false ) SetError(29,NULL,nowLine);
222 isArray = true;
223
224 if((name[i2-2]=='('&&name[i2-1]==')')||
225 (name[i2-2]=='['&&name[i2-1]==']')){
226 subScripts[0]=LONG_MAX;
227 subScripts[1]=-1;
228
229 name[i2-2]=0;
230 }
231 else{
232 GetArrange(name,temp2,subScripts);
233 lstrcpy(name,temp2);
234 }
235
236 i2=lstrlen(name);
237 }
238
239 //型
240 Type type( DEF_NON );
241 if(sourceOfParams[i]==1&&sourceOfParams[i+1]==ESC_AS){
242 i+=2;
243
244 i2=0;
245 while(sourceOfParams[i]=='*'){
246 temporary[i2]=sourceOfParams[i];
247 i++;
248 i2++;
249 }
250 for(;;i++,i2++){
251 if(!IsVariableChar(sourceOfParams[i])){
252 if(sourceOfParams[i]==1&&(sourceOfParams[i+1]==ESC_FUNCTION||sourceOfParams[i+1]==ESC_SUB)){
253 temporary[i2++]=sourceOfParams[i++];
254 temporary[i2]=sourceOfParams[i];
255 continue;
256 }
257 temporary[i2]=0;
258 break;
259 }
260 temporary[i2]=sourceOfParams[i];
261 }
262
263 Type::StringToType( temporary, type );
264
265 if( type.IsNull() ){
266 SetError(3,temporary,nowLine);
267 type.SetBasicType( DEF_PTR_VOID );
268 }
269 }
270 else{
271 type.SetBasicType( GetTypeFromSimpleName(temporary) );
272 SetError(-103,temporary,nowLine);
273 }
274
275 Parameter *pParam = new Parameter( name, type, isRef );
276 if( isArray ){
277 pParam->SetArray( subScripts );
278 }
279
280 //パラメータを追加
281 this->params.push_back( pParam );
282
283 if(sourceOfParams[i]==','){
284 i++;
285 continue;
286 }
287 else if(sourceOfParams[i]==')') continue;
288 else{
289 SetError(1,NULL,nowLine);
290 break;
291 }
292 }
293 i++;
294 }
295
296 if(sourceOfParams[i]){
297 ///////////////////
298 // 戻り値を取得
299 ///////////////////
300
301 if( !this->IsFunction() ){
302 // Sub/Macroの場合
303 SetError(38,this->GetName(),nowLine);
304 }
305
306 if( this->pParentClass ){
307 if( this->GetName() == this->pParentClass->GetName() ||
308 this->GetName()[0]=='~'){
309 //クラスのコンストラクタ、デストラクタがFunction定義の場合はエラーをだす
310 SetError(115,NULL,nowLine);
311 }
312 }
313
314
315 i2=lstrlen(sourceOfParams)-2;
316
317 int sw_as=0;
318 for(;i2>0;i2--){
319 if(sourceOfParams[i2]==')') break;
320
321 if(sourceOfParams[i2]==1&&sourceOfParams[i2+1]==ESC_AS){
322 i2+=2;
323 i3=0;
324 while(sourceOfParams[i2]=='*') temporary[i3++]=sourceOfParams[i2++];
325 for(;;i2++,i3++){
326 if(!IsVariableChar(sourceOfParams[i2])){
327 temporary[i3]=0;
328 break;
329 }
330 temporary[i3]=sourceOfParams[i2];
331 }
332 Type::StringToType( temporary, this->returnType );
333 if( this->returnType.IsNull() ) SetError(3,temporary,nowLine);
334
335 sw_as=1;
336 break;
337 }
338 }
339
340 if(!sw_as){
341 SetError(-104,this->GetName().c_str(),nowLine);
342
343 this->returnType.SetBasicType( DEF_DOUBLE );
344 }
345 }
346 else{
347 //戻り値なしのSub定義
348 this->returnType.SetNull();
349 }
350
351 //リアルパラメータ領域を取得（_System_LocalThisを考慮して2つだけ多く確保する場合がある）
352
353 if( this->pParentClass && isStatic == false ){
354 //オブジェクトメンバの場合は、第一パラメータを_System_LocalThis引き渡し用として利用
355 string name = "_System_LocalThis";
356 Type type( DEF_PTR_VOID );
357 this->realParams.push_back( new Parameter( name, type ) );
358 }
359
360 if( this->returnType.IsStruct() ){
361 //構造体を戻り値として持つ場合
362 //※第一パラメータ（Thisポインタありの場合は第二パラメータ）を戻り値用の参照宣言にする
363
364 string name = this->GetName();
365 if(name[0]==1&&name[1]==ESC_OPERATOR){
366 name="_System_ReturnValue";
367 }
368 Type type( DEF_STRUCT, this->returnType.GetIndex() );
369 this->realParams.push_back( new Parameter( name, type, true ) );
370 }
371
372 //パラメータをコピー
373 foreach( Parameter *pParam, params ){
374 this->realParams.push_back( new Parameter( *pParam ) );
375 }
376
377 return true;
378}
379bool UserProc::IsVirtual() const
380{
381 if( pMethod == NULL ){
382 return false;
383 }
384 return ( pMethod->IsVirtual() != 0 );
385}
386const NamespaceScopes &UserProc::GetNamespaceScopes() const
387{
388 if( !pParentClass ){
389 SetError();
390 }
391 return pParentClass->GetNamespaceScopes();
392}
393const NamespaceScopesCollection &UserProc::GetImportedNamespaces() const
394{
395 if( !pParentClass ){
396 SetError();
397 }
398 return pParentClass->GetImportedNamespaces();
399}
400bool UserProc::IsEqualSymbol( const NamespaceScopes &namespaceScopes, const string &name ) const
401{
402 SetError();
403 return false;
404}
405
406/*
407GlobalProc *GlobalProc::Create( const NamespaceScopes &namespaceScopes, char *buffer,int nowLine ){
408 int i2;
409 char temporary[8192];
410
411 int i=1;
412
413 Procedure::Kind kind = Procedure::Sub;
414 bool isMacro = false;
415 if(buffer[i]==ESC_FUNCTION) kind = Procedure::Function;
416 if(buffer[i]==ESC_MACRO){
417 isMacro = true;
418 }
419
420 i++;
421
422 bool isCdecl = false;
423 bool isExport = false;
424 while(1){
425 if(buffer[i]==1&&buffer[i+1]==ESC_CDECL&& isCdecl == false ){
426 isCdecl = true;
427
428 i+=2;
429 }
430 else if(buffer[i]==1&&buffer[i+1]==ESC_EXPORT&& isExport == false ){
431 isExport = true;
432
433 i+=2;
434 }
435 else break;
436 }
437
438 i2=0;
439 if(buffer[i]==1&&buffer[i+1]==ESC_OPERATOR){
440 SetError(126,NULL,nowLine);
441 return 0;
442 }
443 else{
444 for(;;i++,i2++){
445 if(!IsVariableChar(buffer[i])){
446 temporary[i2]=0;
447 break;
448 }
449 temporary[i2]=buffer[i];
450 }
451 }
452
453 if( isMacro ){
454 //大文字に変換
455 CharUpper(temporary);
456
457 //マクロ関数の場合は名前リストに追加
458 extern char **ppMacroNames;
459 extern int MacroNum;
460 ppMacroNames=(char **)HeapReAlloc(hHeap,0,ppMacroNames,(MacroNum+1)*sizeof(char *));
461 ppMacroNames[MacroNum]=(char *)HeapAlloc(hHeap,0,lstrlen(temporary)+1);
462 lstrcpy(ppMacroNames[MacroNum],temporary);
463 MacroNum++;
464 }
465
466 //重複チェック
467 if(GetDeclareHash(temporary)){
468 SetError(15,temporary,nowLine);
469 return 0;
470 }
471
472 extern int SubNum;
473 SubNum++;
474
475 GlobalProc *pGlobalProc = new GlobalProc( namespaceScopes, temporary, kind, isMacro, isCdecl, isExport );
476
477 //ID
478 static int id_base=0;
479 pGlobalProc->id = (id_base++);
480
481 if(isExport){
482 pGlobalProc->Using();
483 }
484
485 // パラメータを解析
486 // ※第1パラメータにに指定するデータの例："( s As String ) As String"
487 pGlobalProc->SetParamsAndReturnType( buffer + i, nowLine, true );
488
489
490 pGlobalProc->_paramStr = buffer + i;
491
492
493
494 return pGlobalProc;
495}
496bool GlobalProc::AddGlobalProc( const NamespaceScopes &namespaceScopes, char *buffer,int nowLine ){
497 GlobalProc *pGlobalProc = Create( namespaceScopes, buffer, nowLine );
498 if( pGlobalProc == NULL ){
499 return false;
500 }
501
502
503 /////////////////////////////////
504 // ハッシュデータに追加
505 /////////////////////////////////
506
507 int key;
508 key=hash_default(pGlobalProc->GetName().c_str());
509
510 extern GlobalProc **ppSubHash;
511 if(ppSubHash[key]){
512 GlobalProc *psi2;
513 psi2=ppSubHash[key];
514 while(1){
515 //重複エラーチェックを行う
516 if( pGlobalProc->GetName() == psi2->GetName() ){
517 if( Parameter::Equals( psi2->Params(), pGlobalProc->Params() ) ){
518 SetError(15,pGlobalProc->GetName().c_str(),nowLine);
519 return 0;
520 }
521 }
522
523 if(psi2->pNextData==0) break;
524 psi2=psi2->pNextData;
525 }
526 psi2->pNextData=pGlobalProc;
527 }
528 else{
529 ppSubHash[key]=pGlobalProc;
530 }
531
532 return true;
533}*/
534const NamespaceScopes &GlobalProc::GetNamespaceScopes() const
535{
536 if( HasParentClass() ){
537 return GetParentClassPtr()->GetNamespaceScopes();
538 }
539 return namespaceScopes;
540}
541bool GlobalProc::IsEqualSymbol( const NamespaceScopes &namespaceScopes, const string &name ) const
542{
543 if( GetName() != name ){
544 return false;
545 }
546
547 return NamespaceScopes::IsSameArea( GetNamespaceScopes(), namespaceScopes );
548}
549bool GlobalProc::IsEqualSymbol( const GlobalProc &globalProc ) const
550{
551 return IsEqualSymbol( globalProc.GetNamespaceScopes(), globalProc.GetName() );
552}
553bool GlobalProc::IsEqualSymbol( const string &fullName ) const
554{
555 char AreaName[VN_SIZE] = ""; //オブジェクト変数
556 char NestName[VN_SIZE] = ""; //入れ子メンバ
557 bool isNest = SplitMemberName( fullName.c_str(), AreaName, NestName );
558
559 return IsEqualSymbol( NamespaceScopes( AreaName ), NestName );
560}
561
562bool DllProc::IsEqualSymbol( const NamespaceScopes &namespaceScopes, const string &name ) const
563{
564 if( GetName() != name ){
565 return false;
566 }
567 return NamespaceScopes::IsSameArea( this->namespaceScopes, namespaceScopes );
568}
569bool DllProc::IsEqualSymbol( const string &fullName ) const
570{
571 char AreaName[VN_SIZE] = ""; //オブジェクト変数
572 char NestName[VN_SIZE] = ""; //入れ子メンバ
573 bool isNest = SplitMemberName( fullName.c_str(), AreaName, NestName );
574
575 if( IsEqualSymbol( NamespaceScopes( AreaName ), NestName ) ){
576 return true;
577 }
578
579 if( isNest ){
580 // 静的メンバを考慮
581
582 char AreaName2[VN_SIZE] = ""; //オブジェクト変数
583 char NestName2[VN_SIZE] = ""; //入れ子メンバ
584 bool isNest = SplitMemberName( AreaName, AreaName2, NestName2 );
585 lstrcat( NestName2, "." );
586 lstrcat( NestName2, NestName );
587
588 return IsEqualSymbol( NamespaceScopes( AreaName2 ), NestName2 );
589 }
590
591 return false;
592}
593
594
595bool DllProc::SetParamsAndReturnType( const char *sourceOfParams, int nowLine ){
596 int i = 0;
597 int i2,i3,sw;
598 char temporary[8192],temp2[VN_SIZE];
599
600 //ソースコードの位置
601 this->codePos = nowLine;
602
603 //パラメータ
604 if(sourceOfParams[i]!='('){
605 SetError(1,NULL,nowLine);
606 return 0;
607 }
608 i++;
609
610 while(1){
611 if(sourceOfParams[i]==')') break;
612
613 //ByRef
614 bool isRef;
615 if(sourceOfParams[i]==1&&sourceOfParams[i+1]==ESC_BYVAL){
616 isRef = false;
617 i+=2;
618 }
619 else if(sourceOfParams[i]==1&&sourceOfParams[i+1]==ESC_BYREF){
620 isRef = true;
621 i+=2;
622 }
623 else isRef = false;
624
625 //パラメータ名
626 bool isArray = false;
627 int subScripts[MAX_ARRAYDIM];
628 char name[VN_SIZE];
629 sw=0;
630 for(i2=0;;i++,i2++){
631 if(sourceOfParams[i]=='('){
632 if(!sw) sw=1;
633
634 i3=GetStringInPare(name+i2,sourceOfParams+i);
635 i2+=i3-1;
636 i+=i3-1;
637 continue;
638 }
639 if(sourceOfParams[i]=='['){
640 if(!sw) sw=1;
641
642 i3=GetStringInBracket(name+i2,sourceOfParams+i);
643 i2+=i3-1;
644 i+=i3-1;
645 continue;
646 }
647 if(!IsVariableChar(sourceOfParams[i])){
648 name[i2]=0;
649 break;
650 }
651 name[i2]=sourceOfParams[i];
652 }
653 if(sw){
654 //配列パラメータ
655 if( isRef == false ) SetError(29,NULL,nowLine);
656 isArray = true;
657
658 if((name[i2-2]=='('&&name[i2-1]==')')||
659 (name[i2-2]=='['&&name[i2-1]==']')){
660 subScripts[0]=LONG_MAX;
661 subScripts[1]=-1;
662
663 name[i2-2]=0;
664 }
665 else{
666 GetArrange(name,temp2,subScripts);
667 lstrcpy(name,temp2);
668 }
669
670 i2=lstrlen(name);
671 }
672
673 //型
674 Type type( DEF_NON );
675 if(lstrcmp(name,"...")==0) type.SetBasicType( DEF_ELLIPSE );
676 else if(sourceOfParams[i]==1&&sourceOfParams[i+1]==ESC_AS){
677 i+=2;
678
679 i2=0;
680 while(sourceOfParams[i]=='*'){
681 temporary[i2]=sourceOfParams[i];
682 i++;
683 i2++;
684 }
685 for(;;i++,i2++){
686 if(!IsVariableChar(sourceOfParams[i])){
687 if(sourceOfParams[i]==1&&(sourceOfParams[i+1]==ESC_FUNCTION||sourceOfParams[i+1]==ESC_SUB)){
688 temporary[i2++]=sourceOfParams[i++];
689 temporary[i2]=sourceOfParams[i];
690 continue;
691 }
692 temporary[i2]=0;
693 break;
694 }
695 temporary[i2]=sourceOfParams[i];
696 }
697
698 Type::StringToType( temporary, type );
699
700 if( type.IsNull() ){
701 SetError(3,temporary,nowLine);
702 type.SetBasicType( DEF_PTR_VOID );
703 }
704 }
705 else{
706 type.SetBasicType( GetTypeFromSimpleName(temporary) );
707 SetError(-103,temporary,nowLine);
708 }
709
710 Parameter *pParam = new Parameter( name, type, isRef );
711 if( isArray ){
712 pParam->SetArray( subScripts );
713 }
714
715 //パラメータを追加
716 this->params.push_back( pParam );
717
718 if(sourceOfParams[i]==','){
719 i++;
720 continue;
721 }
722 else if(sourceOfParams[i]==')') continue;
723 else{
724 SetError(1,NULL,nowLine);
725 break;
726 }
727 }
728 i++;
729
730 if(sourceOfParams[i]){
731 ///////////////////
732 // 戻り値を取得
733 ///////////////////
734
735 i2=lstrlen(sourceOfParams)-2;
736
737 int sw_as=0;
738 for(;i2>0;i2--){
739 if(sourceOfParams[i2]==')') break;
740
741 if(sourceOfParams[i2]==1&&sourceOfParams[i2+1]==ESC_AS){
742 i2+=2;
743 i3=0;
744 while(sourceOfParams[i2]=='*') temporary[i3++]=sourceOfParams[i2++];
745 for(;;i2++,i3++){
746 if(!IsVariableChar(sourceOfParams[i2])){
747 temporary[i3]=0;
748 break;
749 }
750 temporary[i3]=sourceOfParams[i2];
751 }
752 Type::StringToType( temporary, this->returnType );
753 if( this->returnType.IsNull() ) SetError(3,temporary,nowLine);
754
755 sw_as=1;
756 break;
757 }
758 }
759 }
760 else{
761 //戻り値なしのSub定義
762 this->returnType.SetNull();
763 }
764
765 return true;
766}
767
768bool ProcPointer::SetParamsAndReturnType( const char *sourceOfParams, int nowLine ){
769 int i = 0;
770 int i2,i3,sw;
771 char temporary[8192],temp2[VN_SIZE];
772
773 //ソースコードの位置
774 this->codePos = nowLine;
775
776 //パラメータ
777 if(sourceOfParams[i]!='('){
778 SetError(1,NULL,nowLine);
779 return 0;
780 }
781 i++;
782 while(1){
783 if(sourceOfParams[i]==')') break;
784
785 //ByRef
786 bool isRef;
787 if(sourceOfParams[i]==1&&sourceOfParams[i+1]==ESC_BYVAL){
788 isRef = false;
789 i+=2;
790 }
791 else if(sourceOfParams[i]==1&&sourceOfParams[i+1]==ESC_BYREF){
792 isRef = true;
793 i+=2;
794 }
795 else isRef = false;
796
797 //パラメータ名
798 bool isArray = false;
799 int subScripts[MAX_ARRAYDIM];
800 char name[VN_SIZE];
801 sw=0;
802 for(i2=0;;i++,i2++){
803 if(sourceOfParams[i]=='('){
804 if(!sw) sw=1;
805
806 i3=GetStringInPare(name+i2,sourceOfParams+i);
807 i2+=i3-1;
808 i+=i3-1;
809 continue;
810 }
811 if(sourceOfParams[i]=='['){
812 if(!sw) sw=1;
813
814 i3=GetStringInBracket(name+i2,sourceOfParams+i);
815 i2+=i3-1;
816 i+=i3-1;
817 continue;
818 }
819 if(!IsVariableChar(sourceOfParams[i])){
820 name[i2]=0;
821 break;
822 }
823 name[i2]=sourceOfParams[i];
824 }
825 if(sw){
826 //配列パラメータ
827 if( isRef == false ) SetError(29,NULL,nowLine);
828 isArray = true;
829
830 if((name[i2-2]=='('&&name[i2-1]==')')||
831 (name[i2-2]=='['&&name[i2-1]==']')){
832 subScripts[0]=LONG_MAX;
833 subScripts[1]=-1;
834
835 name[i2-2]=0;
836 }
837 else{
838 GetArrange(name,temp2,subScripts);
839 lstrcpy(name,temp2);
840 }
841
842 i2=lstrlen(name);
843 }
844
845 //型
846 Type type( DEF_NON );
847 if(sourceOfParams[i]==1&&sourceOfParams[i+1]==ESC_AS){
848 i+=2;
849
850 i2=0;
851 while(sourceOfParams[i]=='*'){
852 temporary[i2]=sourceOfParams[i];
853 i++;
854 i2++;
855 }
856 for(;;i++,i2++){
857 if(!IsVariableChar(sourceOfParams[i])){
858 if(sourceOfParams[i]==1&&(sourceOfParams[i+1]==ESC_FUNCTION||sourceOfParams[i+1]==ESC_SUB)){
859 temporary[i2++]=sourceOfParams[i++];
860 temporary[i2]=sourceOfParams[i];
861 continue;
862 }
863 temporary[i2]=0;
864 break;
865 }
866 temporary[i2]=sourceOfParams[i];
867 }
868
869 Type::StringToType( temporary, type );
870
871 if( type.IsNull() ){
872 SetError(3,temporary,nowLine);
873 type.SetBasicType( DEF_PTR_VOID );
874 }
875 }
876 else{
877 type.SetBasicType( GetTypeFromSimpleName(temporary) );
878 SetError(-103,temporary,nowLine);
879 }
880
881 Parameter *pParam = new Parameter( name, type, isRef );
882 if( isArray ){
883 pParam->SetArray( subScripts );
884 }
885
886 //パラメータを追加
887 this->params.push_back( pParam );
888
889 if(sourceOfParams[i]==','){
890 i++;
891 continue;
892 }
893 else if(sourceOfParams[i]==')') continue;
894 else{
895 SetError(1,NULL,nowLine);
896 break;
897 }
898 }
899 i++;
900
901 if(sourceOfParams[i]){
902 ///////////////////
903 // 戻り値を取得
904 ///////////////////
905
906 i2=lstrlen(sourceOfParams)-2;
907
908 int sw_as=0;
909 for(;i2>0;i2--){
910 if(sourceOfParams[i2]==')') break;
911
912 if(sourceOfParams[i2]==1&&sourceOfParams[i2+1]==ESC_AS){
913 i2+=2;
914 i3=0;
915 while(sourceOfParams[i2]=='*') temporary[i3++]=sourceOfParams[i2++];
916 for(;;i2++,i3++){
917 if(!IsVariableChar(sourceOfParams[i2])){
918 temporary[i3]=0;
919 break;
920 }
921 temporary[i3]=sourceOfParams[i2];
922 }
923 Type::StringToType( temporary, this->returnType );
924 if( this->returnType.IsNull() ) SetError(3,temporary,nowLine);
925
926 sw_as=1;
927 break;
928 }
929 }
930 }
931 else{
932 //戻り値なしのSub定義
933 this->returnType.SetNull();
934 }
935
936 //戻り値のエラーチェック
937 if( IsFunction() ){
938 // Function定義
939
940 if( this->ReturnType().IsNull() ){
941 // 戻り値がない
942 SetError(26,this->GetName(),nowLine);
943 }
944 }
945 else{
946 if( !this->ReturnType().IsNull() ){
947 // Sub定義なのに、戻り値がある
948 SetError(38,this->GetName(),nowLine);
949 }
950 }
951
952 return true;
953}
954
955UserProc *UserProc::pCompilingUserProc = NULL;
Note: See TracBrowser for help on using the repository browser.