source: dev/BasicCompiler_Common/Procedure.cpp@ 128

Last change on this file since 128 was 128, checked in by dai_9181, 19 years ago

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