1 // PARAVIS : ParaView wrapper SALOME module
3 // Copyright (C) 2010-2012 CEA/DEN, EDF R&D
5 // This library is free software; you can redistribute it and/or
6 // modify it under the terms of the GNU Lesser General Public
7 // License as published by the Free Software Foundation; either
8 // version 2.1 of the License.
10 // This library is distributed in the hope that it will be useful,
11 // but WITHOUT ANY WARRANTY; without even the implied warranty of
12 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 // Lesser General Public License for more details.
15 // You should have received a copy of the GNU Lesser General Public
16 // License along with this library; if not, write to the Free Software
17 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
21 // File : vtkWrapIDL.c
22 // Author : Vladimir TURIN
28 #include "vtkConfigure.h"
30 #include "vtkParseType.h"
31 #include "vtkParseMain.h"
32 #include "vtkWrapIDL.h"
36 "// Copyright (C) 2003 OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,",
37 "// CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS",
39 "// This library is free software; you can redistribute it and/or",
40 "// modify it under the terms of the GNU Lesser General Public",
41 "// License as published by the Free Software Foundation; either",
42 "// version 2.1 of the License.",
44 "// This library is distributed in the hope that it will be useful,",
45 "// but WITHOUT ANY WARRANTY; without even the implied warranty of",
46 "// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU",
47 "// Lesser General Public License for more details.",
49 "// You should have received a copy of the GNU Lesser General Public",
50 "// License along with this library; if not, write to the Free Software",
51 "// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA",
53 "// See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com",
59 HierarchyInfo *hierarchyInfo = NULL;
60 int numberOfWrappedFunctions = 0;
61 FunctionInfo *wrappedFunctions[1000];
62 extern FunctionInfo *currentFunction;
63 char *EmptyString = "";
66 static void add_to_sig(char *sig, const char *add, int *i)
69 *i += (int)strlen(add);
72 int IsReturnArg(int I) {
73 return (I == MAX_ARGS);
76 void AddReturnArg(char *Result, int *CurrPos) {
77 add_to_sig(Result,"virtual ",CurrPos);
80 int IsIn(ValueInfo* Type) {
82 //return ((Type % VTK_PARSE_BASE_TYPE)/0x100 < 1 || (Type % VTK_PARSE_BASE_TYPE)/0x100 > 7);
85 void AddNotReturnArg(ValueInfo* Type, char *Result, int *CurrPos) {
86 #if defined(IDL_I_HH) || defined(IDL_I_CC)
90 add_to_sig(Result,"in ",CurrPos);
92 add_to_sig(Result,"inout ",CurrPos);
96 int IsFunction(ValueInfo* Type) {
97 //return (Type == VTK_PARSE_FUNCTION);
98 return vtkWrap_IsFunction(Type);
101 int IsConst(ValueInfo* Type) {
102 //return ((Type % 0x2000) >= 0x1000);
103 return vtkWrap_IsConst(Type);
106 void AddConst(char *Result, int *CurrPos) {
107 #if defined(IDL_I_HH) || defined(IDL_I_CC)
108 add_to_sig(Result,"const ",CurrPos);
110 add_to_sig(Result,"in ",CurrPos);
115 int IsClass(ValueInfo* theType) {
116 //return ((theType->Type % 0x10) == 0x9);
117 return vtkWrap_IsObject(theType) || vtkWrap_IsVTKObject(theType);
120 int IsString(ValueInfo* Type) {
121 //return (IsChar(Type) && IsArray(Type));
122 //return (IsChar(Type) && IsPtr(Type));
123 return vtkWrap_IsCharPointer(Type) || vtkWrap_IsString(Type) || (strcmp(Type->Class, "vtkStdString") == 0);
126 int IsPtr(ValueInfo* Type) {
127 //return ((Type % VTK_PARSE_BASE_TYPE)/0x100 == 0x1);
128 return vtkWrap_IsPointer(Type) && (!IsString(Type)) && (!IsClass(Type));
131 int IsUnknown(ValueInfo* theType) {
132 //return ((Type % VTK_PARSE_BASE_TYPE)/0x100 == 0x8);
133 return (theType->Type & VTK_PARSE_BASE_TYPE) == VTK_PARSE_UNKNOWN;
136 void AddAtomArg(int I, ValueInfo* Type, char *TypeIDL, char *TypeCorba, char *Result, int *CurrPos) {
137 #if defined(IDL_I_HH) || defined(IDL_I_CC)
138 add_to_sig(Result,"CORBA::",CurrPos);
139 add_to_sig(Result,TypeCorba,CurrPos);
141 if (!IsReturnArg(I) && !IsConst(Type) && !IsIn(Type))
142 add_to_sig(Result,"&",CurrPos);
144 add_to_sig(Result,TypeIDL,CurrPos);
146 add_to_sig(Result," ",CurrPos);
149 int IsArray(ValueInfo* Type) {
150 //return ((Type % VTK_PARSE_BASE_TYPE)/0x100 == 0x3);
151 return vtkWrap_IsArray(Type);
154 void AddArrayArg(int I, ValueInfo* Type, char *TypeIDL, char *Result, int *CurrPos) {
155 #if defined(IDL_I_HH) || defined(IDL_I_CC)
156 if(!IsReturnArg(I) && !IsConst(Type))
157 add_to_sig(Result, "const ",CurrPos);
159 add_to_sig(Result, TypeIDL,CurrPos);
160 add_to_sig(Result, "_array",CurrPos);
161 #if defined(IDL_I_HH) || defined(IDL_I_CC)
163 add_to_sig(Result, "*",CurrPos);
165 add_to_sig(Result, "&",CurrPos);
169 add_to_sig(Result, " ",CurrPos);
172 int IsBoolean(ValueInfo* Type) {
173 //return ((Type % 0x10) == 0xE);
174 return vtkWrap_IsBool(Type);
177 void AddBooleanAtomArg(int I, ValueInfo* Type, char *Result, int *CurrPos) {
178 AddAtomArg(I,Type,"boolean","Boolean",Result,CurrPos);
181 int IsChar(ValueInfo* theType) {
182 //return ((Type % 0x10) == 0x3 || (Type % 0x10) == 0xD);
183 int aBase = theType->Type & VTK_PARSE_BASE_TYPE;
184 return (aBase == VTK_PARSE_CHAR) || (aBase == VTK_PARSE_UNSIGNED_CHAR) || (aBase == VTK_PARSE_SIGNED_CHAR);
187 int IsCharArray(ValueInfo* theType) {
188 return (IsChar(theType) && IsArray(theType));
191 void AddCharAtomArg(int I, ValueInfo* Type, char *Result, int *CurrPos) {
192 AddAtomArg(I,Type,"char","Char",Result,CurrPos);
195 void AddStringArg(int I, char *Result, int *CurrPos) {
196 #if defined(IDL_I_HH) || defined(IDL_I_CC)
197 add_to_sig(Result,"char ",CurrPos);
199 add_to_sig(Result,"string ",CurrPos);
203 int IsFloat(ValueInfo* theType) {
204 //return ((Type % 0x10) == 0x1);
205 return (theType->Type & VTK_PARSE_BASE_TYPE) == VTK_PARSE_FLOAT;
208 void AddFloatAtomArg(int I, ValueInfo* Type, char *Result, int *CurrPos) {
209 AddAtomArg(I,Type,"float","Float",Result,CurrPos);
212 int IsFloatArray(ValueInfo* theType) {
213 return (IsFloat(theType) && IsArray(theType));
216 void AddFloatArrayArg(int I, ValueInfo* Type, char *Result, int *CurrPos) {
217 AddArrayArg(I,Type,"float",Result,CurrPos);
220 int IsDouble(ValueInfo* theType) {
221 //return ((Type % 0x10) == 0x7);
222 return (theType->Type & VTK_PARSE_BASE_TYPE) == VTK_PARSE_DOUBLE;
225 void AddDoubleAtomArg(int I, ValueInfo* Type, char *Result, int *CurrPos) {
226 AddAtomArg(I,Type,"double","Double",Result,CurrPos);
229 int IsDoubleArray(ValueInfo* Type) {
230 return (IsDouble(Type) && IsArray(Type));
233 void AddDoubleArrayArg(int I, ValueInfo* Type, char *Result, int *CurrPos) {
234 AddArrayArg(I,Type,"double",Result,CurrPos);
237 int IsvtkIdType(ValueInfo* theType) {
238 //return((Type % 0x10) == 0xA);
239 return (theType->Type & VTK_PARSE_BASE_TYPE) == VTK_PARSE_ID_TYPE;
242 int IsShort(ValueInfo* theType) {
243 //return ((Type % 0x10) == 0x4 || (Type % 0x10) == 0x5 || (Type % 0x10) == 0xA);
244 int aVal = theType->Type & VTK_PARSE_BASE_TYPE;
245 return (aVal == VTK_PARSE_SHORT) || (aVal == VTK_PARSE_INT) ||
246 (aVal == VTK_PARSE_ID_TYPE) || (aVal == VTK_PARSE_UNSIGNED_INT) || (aVal == VTK_PARSE_UNSIGNED_SHORT) ||
247 (aVal == VTK_PARSE_SSIZE_T) || (aVal == VTK_PARSE_SIZE_T);
250 void AddShortAtomArg(int I, ValueInfo* Type, char *Result, int *CurrPos) {
251 AddAtomArg(I,Type,"short","Short",Result,CurrPos);
254 int IsShortArray(ValueInfo* Type) {
255 return (IsShort(Type) && IsArray(Type));
258 void AddShortArrayArg(int I, ValueInfo* Type, char *Result, int *CurrPos) {
259 AddArrayArg(I,Type,"short",Result,CurrPos);
262 int IsLong(ValueInfo* theType) {
263 //return ((Type % 0x10) == 0x6 || (Type % 0x10) == 0xB || (Type % 0x10) == 0xC);
264 unsigned int aVal = theType->Type & VTK_PARSE_BASE_TYPE;
265 return (aVal == VTK_PARSE_LONG) || (aVal == VTK_PARSE_UNSIGNED_LONG) ||
266 (aVal == VTK_PARSE___INT64) || (aVal == VTK_PARSE_UNSIGNED___INT64) || (aVal == VTK_PARSE_LONG_LONG) ||
267 (aVal == VTK_PARSE_UNSIGNED_LONG_LONG);
270 void AddLongAtomArg(int I, ValueInfo* Type, char *Result, int *CurrPos) {
271 AddAtomArg(I,Type,"long","Long",Result,CurrPos);
274 int IsLongArray(ValueInfo* Type) {
275 return (IsLong(Type) && IsArray(Type));
278 void AddLongArrayArg(int I, ValueInfo* Type, char *Result, int *CurrPos) {
279 AddArrayArg(I,Type,"long",Result,CurrPos);
282 void AddClassArg(int I, ValueInfo* Type, const char *Class, char *Result, int *CurrPos) {
283 #if defined(IDL_I_HH) || defined(IDL_I_CC)
284 add_to_sig(Result,"PARAVIS_Base",CurrPos);
285 if(IsReturnArg(I) || IsConst(Type) || IsIn(Type)) {
286 add_to_sig(Result,"_ptr",CurrPos);
288 add_to_sig(Result,"_ptr&",CurrPos);
290 add_to_sig(Result," ",CurrPos);
292 add_to_sig(Result,"PARAVIS_Base ",CurrPos);
296 int _IsVoid(ValueInfo* theType) {
297 //return ((Type % 0x10) == 0x2);
298 return (theType->Type & VTK_PARSE_BASE_TYPE) == VTK_PARSE_VOID;
301 int IsVoid(ValueInfo* Type) {
302 return (_IsVoid(Type) && (!IsPtr(Type)));
305 int IsUnsigned(ValueInfo* theType) {
306 unsigned int aVal = theType->Type & VTK_PARSE_BASE_TYPE;
308 case VTK_PARSE_UNSIGNED_CHAR:
309 case VTK_PARSE_UNSIGNED_INT:
310 case VTK_PARSE_UNSIGNED_SHORT:
311 case VTK_PARSE_UNSIGNED_LONG:
312 case VTK_PARSE_UNSIGNED_ID_TYPE:
313 case VTK_PARSE_UNSIGNED_LONG_LONG:
314 case VTK_PARSE_UNSIGNED___INT64:
315 case VTK_PARSE_UNSIGNED_CHAR_PTR:
316 case VTK_PARSE_UNSIGNED_INT_PTR:
317 case VTK_PARSE_UNSIGNED_SHORT_PTR:
318 case VTK_PARSE_UNSIGNED_LONG_PTR:
319 case VTK_PARSE_UNSIGNED_ID_TYPE_PTR:
320 case VTK_PARSE_UNSIGNED_LONG_LONG_PTR:
321 case VTK_PARSE_UNSIGNED___INT64_PTR:
327 void AddVoid(char *Result, int *CurrPos) {
328 add_to_sig(Result,"void ",CurrPos);
331 int IsVoidPtr(ValueInfo* Type) {
332 return (_IsVoid(Type) && (IsPtr(Type) || IsArray(Type)));
335 void AddVoidArg(int I, char *Result, int *CurrPos, ValueInfo* Type) {
336 #if defined(IDL_I_HH) || defined(IDL_I_CC)
337 if(!IsReturnArg(I)) {
339 add_to_sig(Result,"const ",CurrPos);
340 add_to_sig(Result,"CORBA::Any& ",CurrPos);
342 add_to_sig(Result,"CORBA::Any ",CurrPos);
345 add_to_sig(Result,"any ",CurrPos);
349 void AddTypeArray(ValueInfo* Type, char *Result, int *CurrPos) {
351 add_to_sig(Result,"short",CurrPos);
353 add_to_sig(Result,"long",CurrPos);
355 add_to_sig(Result,"float",CurrPos);
357 add_to_sig(Result,"double",CurrPos);
359 add_to_sig(Result,"char",CurrPos);
360 add_to_sig(Result,"_array",CurrPos);
363 typedef struct _ReadFuncs
371 ReadFuncs readFunctions[1000];
372 int numberOfReadFunctions = 0;
374 static int class_has_new = 0;
376 void output_type(char* result, int *currPos, int i, ValueInfo* aType, const char *Id)
378 if (vtkWrap_IsConst(aType))
379 add_to_sig(result,"const ",currPos);
383 add_to_sig(result,"float",currPos);
385 add_to_sig(result,"CORBA::Float",currPos);
389 if(IsDouble(aType)) {
391 add_to_sig(result,"double",currPos);
393 add_to_sig(result,"CORBA::Double",currPos);
399 if (IsUnsigned(aType))
400 add_to_sig(result,"unsigned ",currPos);
401 if(IsvtkIdType(aType)) {
402 add_to_sig(result,"vtkIdType",currPos);
404 add_to_sig(result,"int",currPos);
407 add_to_sig(result,"CORBA::Short",currPos);
413 if (IsUnsigned(aType))
414 add_to_sig(result,"unsigned ",currPos);
415 add_to_sig(result,"long",currPos);
417 add_to_sig(result,"CORBA::Long",currPos);
421 if(IsString(aType)) {
423 add_to_sig(result,"const ",currPos);
424 if(strcmp(aType->Class, "vtkStdString") == 0) {
425 add_to_sig(result,"vtkStdString",currPos);
427 add_to_sig(result,"char",currPos);
429 } else if(IsChar(aType)) {
430 add_to_sig(result,"CORBA::Char",currPos);
433 if(IsBoolean(aType)) {
434 add_to_sig(result,"CORBA::Boolean",currPos);
437 if(IsVoidPtr(aType)) {
438 add_to_sig(result,"void",currPos);
442 add_to_sig(result,"::",currPos);
443 add_to_sig(result,Id,currPos);
446 if(IsArray(aType) || IsPtr(aType) || IsClass(aType) || IsString(aType)) {
447 if(strcmp(aType->Class, "vtkStdString") != 0) {
448 add_to_sig(result,"*",currPos);
453 void output_typedef(char* result, int *currPos, int i, ValueInfo* aType, const char *Id)
455 add_to_sig(result," typedef ",currPos);
456 output_type(result,currPos,i,aType,Id);
459 void output_temp(char* result, int *currPos, int i, ValueInfo* aType, const char *Id, int aCount)
463 /* handle VAR FUNCTIONS */
464 if (IsFunction(aType)) {
468 #if defined(IDL_I_HH)
470 AddReturnArg(result,currPos);
474 if (IsReturnArg(i) && IsVoid(aType) && !IsVoidPtr(aType)) {
475 AddVoid(result,currPos);
479 /* for const * return types prototype with const */
480 if ( IsConst(aType) || IsString(aType)) {
481 if(!IsReturnArg(i)) {
482 AddConst(result,currPos);
485 if(!IsReturnArg(i)) {
486 AddNotReturnArg(aType,result,currPos);
491 if(IsFloatArray(aType)) {
492 AddFloatArrayArg(i,aType,result,currPos);
494 AddFloatAtomArg(i,aType,result,currPos);
498 if(IsDouble(aType)) {
499 if(IsDoubleArray(aType)) {
500 AddDoubleArrayArg(i,aType,result,currPos);
502 AddDoubleAtomArg(i,aType,result,currPos);
507 if(IsShortArray(aType)) {
508 AddShortArrayArg(i,aType,result,currPos);
510 AddShortAtomArg(i,aType,result,currPos);
515 if(IsLongArray(aType)) {
516 AddLongArrayArg(i,aType,result,currPos);
518 AddLongAtomArg(i,aType,result,currPos);
523 if(IsString(aType)) {
524 AddStringArg(i,result,currPos);
526 AddCharAtomArg(i,aType,result,currPos);
528 } else if (IsString(aType)) //!!! VSV
529 AddStringArg(i,result,currPos);
531 if(IsBoolean(aType)) {
532 AddBooleanAtomArg(i,aType,result,currPos);
536 AddVoidArg(i,result,currPos,aType);
540 AddClassArg(i,aType,Id,result,currPos);
543 if(IsUnknown(aType)) {
547 if(!IsClass(aType)) {
549 add_to_sig(result," *",currPos);
551 #if defined(IDL_I_HH) || defined(IDL_I_CC)
552 if(IsString(aType) && !IsIn(aType) && !IsConst(aType) && !IsReturnArg(i)) {
553 add_to_sig(result,"*&",currPos);
555 if(IsString(aType) || (IsReturnArg(i) && IsVoidPtr(aType))) {
556 add_to_sig(result," *",currPos);
562 if(!IsReturnArg(i)) {
563 sprintf(buf,"temp%i",i);
564 add_to_sig(result,buf,currPos);
570 void read_class_functions(const char* name, const char* classname, FILE* fp)
584 #if ! defined(IDL_I_CC)
591 #if defined(IDL_I_HH)
592 sprintf(buf,"PARAVIS_Gen_%s_i.hh",name);
593 #elif defined(IDL_I_CC)
594 sprintf(buf,"PARAVIS_Gen_%s_i.cc",name);
596 sprintf(buf,"PARAVIS_Gen_%s.idl",name);
598 if (!(fin = fopen(buf,"r"))) {
599 fprintf(stderr,"Error opening input file %s\n",buf);
602 while (fgets(sig,bs-1,fin) != 0) {
603 #if defined(IDL_I_CC)
604 if(strncmp("#include \"PARAVIS_Gen_vtk",sig,25)==0) {
605 fprintf(fp, "%s",sig);
607 if(strncmp("#include <vtk",sig,13)==0) {
608 fprintf(fp, "%s",sig);
612 #if ! defined(IDL_I_CC)
613 if(strncmp(" //C++: ",sig,clen)==0) {
615 if(strncmp("//C++: ",sig,clen)==0) {
617 #if defined(IDL_I_CC)
618 while(fgets(buf,bs-1,fin) != 0) {
621 if(strlen(buf) == 3 && buf[0]=='/' && buf[1]=='/')
626 if(fgets(buf,bs-1,fin)!=NULL && strlen(buf) > 1) {
628 #if defined(IDL_I_HH)
630 readFunctions[numberOfReadFunctions].EndPos=strlen(sig);
631 sscanf(sig+len,"%s %s %s",buf,buf1,fname);
632 if(fname[0] == '*') {
635 #elif defined(IDL_I_CC)
637 sscanf(buf1,"%s %s",buf,fname);
640 sprintf(sig+curlen,"%s ",buf);
643 if(fname[0] == '*') {
645 sprintf(sig+curlen," *");
649 sprintf(sig+curlen,"%s_i::",classname);
651 for(i = 0; i < strlen(fname)-1; i++) {
654 if(fname[i] == ':' && fname[i] == ':') {
661 sprintf(sig+curlen,"%s", buf1+j);
664 readFunctions[numberOfReadFunctions].EndPos=curlen;
665 while (fgets(sig+curlen,bs-1-curlen,fin) != 0) {
666 if(sig[curlen] == '}')
672 readFunctions[numberOfReadFunctions].EndPos=strlen(sig);
673 sscanf(sig+len,"%s _%s",buf,fname);
677 if(flen>2 && fname[flen-2]=='_') {
680 readFunctions[numberOfReadFunctions].Name = malloc((flen+1-ret_str)*sizeof(char));
681 strncpy(readFunctions[numberOfReadFunctions].Name,fname+ret_str,flen-ret_str);
682 readFunctions[numberOfReadFunctions].Name[flen-ret_str]='\0';
684 #if defined(IDL_I_HH)
685 len+=slen+strlen(buf)+1+strlen(buf1)+2+flen+ret_str-1; //spaces+virtual+space+return+space+space+*+name
686 #elif defined(IDL_I_CC)
687 len+=2+strlen(buf)+2+strlen(classname)+2+strlen(readFunctions[numberOfReadFunctions].Name)-1; //return+space+space+name
688 if(fname[0] == '*') {
691 if(fname[flen-2]=='_') {
695 len+=slen+strlen(buf)+2+flen; //spaces+return+space+_+name
697 readFunctions[numberOfReadFunctions].NumPos=len;
698 if(fname[flen]=='_') {
699 readFunctions[numberOfReadFunctions].NumPos=len+2; //+_+num
703 readFunctions[numberOfReadFunctions].Signature = malloc((len+1)*sizeof(char));
704 strncpy(readFunctions[numberOfReadFunctions].Signature,sig,len);
705 readFunctions[numberOfReadFunctions].Signature[len]='\0';
707 numberOfReadFunctions++;
716 void get_signature(const char* num, ClassInfo *data)
718 static char result[bs];
724 static char buf1[bs];
728 ValueInfo* aRetVal = NULL;
729 ValueInfo* aArgVal = NULL;
732 aRetVal = currentFunction->ReturnValue;
734 add_to_sig(result,"\n",&currPos);
735 if (currentFunction->Signature) {
736 #if ! defined(IDL_I_CC)
737 add_to_sig(result," ",&currPos);
739 add_to_sig(result,"//C++: ",&currPos);
740 add_to_sig(result,currentFunction->Signature,&currPos);
741 add_to_sig(result,"\n",&currPos);
744 if(IsClass(aRetVal) && ret == 0) {
746 for(i = 0; strcmp(wrapped_classes[i],"") != 0 && found == 0; i++) {
747 if(strcmp(wrapped_classes[i],currentFunction->ReturnValue->Class) == 0)
754 for (j = 0; j < vtkWrap_CountWrappedParameters(currentFunction); j++) {
755 aArgVal = currentFunction->Parameters[j];
756 if(IsFunction(aArgVal))
758 if(IsClass(aArgVal) && ret == 0) {
760 for(i = 0; strcmp(wrapped_classes[i],"") != 0 && found == 0; i++) {
761 if(strcmp(wrapped_classes[i],aArgVal->Class) == 0)
769 if (IsArray(aRetVal) && !IsClass(aRetVal) && !IsString(aRetVal) && currentFunction->HintSize == 0) {
775 add_to_sig(result,"//\n",&currPos);
776 /*currentFunction->Signature = (const char*)realloc((void*)currentFunction->Signature,
777 (size_t)(currPos+1));*/
778 //strcpy((char*)currentFunction->Signature,result);
779 cp = (char *)malloc(currPos+1);
781 currentFunction->Signature = cp;
785 #if defined(IDL_I_CC)
786 add_to_sig(result,"struct CreateEventName(",&currPos);
787 add_to_sig(result,currentFunction->Name,&currPos);
788 if( strlen(num)!=0 ) {
789 add_to_sig(result,num,&currPos);
791 add_to_sig(result,")",&currPos);
792 add_to_sig(result,": public SALOME_Event\n",&currPos);
793 add_to_sig(result,"{\n",&currPos);
794 if(!IsVoid(aRetVal)) {
795 //output_typedef(result,&currPos,MAX_ARGS,aRetVal, currentFunction->ReturnValue->Class);
796 add_to_sig(result," typedef ",&currPos);
797 if (vtkWrap_IsConst(aRetVal))
798 add_to_sig(result, " const ",&currPos);
799 if (vtkWrap_IsObject(aRetVal))
800 add_to_sig(result, " ::",&currPos);
801 add_to_sig(result, aRetVal->Class,&currPos);
802 if (vtkWrap_IsPointer(aRetVal) || vtkWrap_IsArray(aRetVal))
803 add_to_sig(result, "*",&currPos);
804 add_to_sig(result," TResult;\n",&currPos);
805 add_to_sig(result," TResult myResult;\n",&currPos);
808 //output_typedef(result, &currPos, 0, 0x309, data->Name); //!!??
809 add_to_sig(result," typedef ::",&currPos);
810 add_to_sig(result,data->Name,&currPos);
811 add_to_sig(result,"* TObj;\n",&currPos);
812 add_to_sig(result," TObj myObj;\n",&currPos);
814 for (i = 0; i < vtkWrap_CountWrappedParameters(currentFunction); i++) {
815 aArgVal = currentFunction->Parameters[i];
816 //output_typedef(result, &currPos, i, currentFunction->ArgTypes[i],
817 // currentFunction->ArgClasses[i]);
818 output_typedef(result, &currPos, i, aArgVal, currentFunction->ArgClasses[i]);
819 sprintf(buf," TParam%d;\n",i);
820 add_to_sig(result,buf,&currPos);
821 sprintf(buf," TParam%d myParam%d;\n",i,i);
822 add_to_sig(result,buf,&currPos);
825 add_to_sig(result,"\n",&currPos);
826 add_to_sig(result," CreateEventName(",&currPos);
827 add_to_sig(result,currentFunction->Name,&currPos);
828 if( strlen(num)!=0 ) {
829 add_to_sig(result,num,&currPos);
831 add_to_sig(result,")",&currPos);
832 add_to_sig(result,"(TObj theObj",&currPos);
833 for (i = 0; i < vtkWrap_CountWrappedParameters(currentFunction); i++) {
834 sprintf(buf,", TParam%d theParam%d",i,i);
835 add_to_sig(result,buf,&currPos);
837 add_to_sig(result,"):\n",&currPos);
838 add_to_sig(result," myObj(theObj)",&currPos);
839 for (i = 0; i < vtkWrap_CountWrappedParameters(currentFunction); i++) {
840 sprintf(buf,", myParam%d(theParam%d)",i,i);
841 add_to_sig(result,buf,&currPos);
843 add_to_sig(result,"\n",&currPos);
844 add_to_sig(result," { }\n",&currPos);
845 add_to_sig(result,"\n",&currPos);
846 add_to_sig(result," virtual void Execute()\n",&currPos);
847 add_to_sig(result," {\n",&currPos);
848 add_to_sig(result," ",&currPos);
849 if(!IsVoid(aRetVal)/* && !IsString(aRetVal)*/) {
850 add_to_sig(result,"myResult = ",&currPos);
852 //if(IsString(aRetVal)) {
853 //add_to_sig(result,"const char* ret = ",&currPos);
855 add_to_sig(result,"myObj->",&currPos);
856 add_to_sig(result,currentFunction->Name,&currPos);
857 add_to_sig(result,"(",&currPos);
858 for (i = 0; i < vtkWrap_CountWrappedParameters(currentFunction); i++) {
859 aArgVal = currentFunction->Parameters[i];
861 add_to_sig(result,", ",&currPos);
862 if(IsClass(aArgVal) && IsPtr(aArgVal)) {
863 add_to_sig(result,"*",&currPos);
865 if (IsString(aArgVal) && IsConst(aArgVal))
866 sprintf(buf,"checkNullStr(myParam%d)",i);
868 sprintf(buf,"myParam%d",i);
869 add_to_sig(result,buf,&currPos);
871 add_to_sig(result,");\n",&currPos);
872 //if(IsString(aRetVal)) {
873 //add_to_sig(result," myResult = (ret==NULL)?NULL:CORBA::string_dup(\"\");\n",&currPos);
875 add_to_sig(result," }\n",&currPos);
877 add_to_sig(result,"};\n",&currPos);
878 add_to_sig(result,"//\n",&currPos);
882 #if ! defined(IDL_I_CC)
883 add_to_sig(result," ",&currPos);
886 output_temp(result,&currPos,MAX_ARGS,aRetVal,
887 currentFunction->ReturnValue->Class,0);
889 #if defined(IDL_I_CC)
890 add_to_sig(result,data->Name,&currPos);
891 add_to_sig(result,"_i::",&currPos);
893 #if ! defined(IDL_I_HH) && ! defined(IDL_I_CC)
894 add_to_sig(result,"_",&currPos);
896 add_to_sig(result,currentFunction->Name,&currPos);
898 if( strlen(num)!=0 ) {
899 add_to_sig(result,num,&currPos);
902 add_to_sig(result," ",&currPos);
904 /* print the arg list */
905 add_to_sig(result,"(",&currPos);
907 for (i = 0; i < vtkWrap_CountWrappedParameters(currentFunction); i++) {
908 aArgVal = currentFunction->Parameters[i];
910 add_to_sig(result,", ",&currPos);
912 /* output_temp(result, &currPos, i, currentFunction->ArgTypes[i],
913 (char*)currentFunction->ArgClasses[i],
914 currentFunction->ArgCounts[i]);*/
915 output_temp(result, &currPos, i, aArgVal, aArgVal->Class, vtkWrap_CountWrappedParameters(currentFunction));
918 add_to_sig(result,")",&currPos);
919 #if defined(IDL_I_CC)
920 add_to_sig(result," {\n",&currPos);
921 add_to_sig(result," try {\n",&currPos);
922 for (i = 0; i < vtkWrap_CountWrappedParameters(currentFunction); i++) {
923 aArgVal = currentFunction->Parameters[i];
924 if(IsClass(aArgVal)) {
925 sprintf(buf," PARAVIS_Base_i* i_temp%d = GET_SERVANT(temp%d);\n",i,i);
926 add_to_sig(result,buf,&currPos);
929 if(IsArray(aArgVal) && !IsString(aArgVal) && !IsClass(aArgVal) && !IsVoid(aArgVal) ) {
930 sprintf(buf," CORBA::ULong j_temp%d;\n",i);
931 add_to_sig(result,buf,&currPos);
932 sprintf(buf," CORBA::ULong l_temp%d = temp%d.length();\n",i,i);
933 add_to_sig(result,buf,&currPos);
934 add_to_sig(result," ",&currPos);
937 add_to_sig(result,"float",&currPos);
939 if(IsDouble(aArgVal))
940 add_to_sig(result,"double",&currPos);
942 if(IsvtkIdType(aArgVal)) {
943 if (IsUnsigned(aArgVal))
944 add_to_sig(result,"unsigned ",&currPos);
945 add_to_sig(result,"vtkIdType",&currPos);
947 if(IsShort(aArgVal)) {
948 if (IsUnsigned(aArgVal))
949 add_to_sig(result,"unsigned ",&currPos);
950 add_to_sig(result,"int",&currPos);
954 if(IsLong(aArgVal)) {
955 if (IsUnsigned(aArgVal))
956 add_to_sig(result,"unsigned ",&currPos);
957 add_to_sig(result,"long",&currPos);
959 sprintf(buf,"* a_temp%d = new ",i);
960 add_to_sig(result,buf,&currPos);
963 add_to_sig(result,"float",&currPos);
965 if(IsDouble(aArgVal))
966 add_to_sig(result,"double",&currPos);
968 if(IsvtkIdType(aArgVal)) {
969 if (IsUnsigned(aArgVal))
970 add_to_sig(result,"unsigned ",&currPos);
971 add_to_sig(result,"vtkIdType",&currPos);
973 if(IsShort(aArgVal)) {
974 if (IsUnsigned(aArgVal))
975 add_to_sig(result,"unsigned ",&currPos);
976 add_to_sig(result,"int",&currPos);
980 if(IsLong(aArgVal)) {
981 if (IsUnsigned(aArgVal))
982 add_to_sig(result,"unsigned ",&currPos);
983 add_to_sig(result,"long",&currPos);
986 sprintf(buf,"[l_temp%d];\n",i);
987 add_to_sig(result,buf,&currPos);
989 sprintf(buf," for(j_temp%d=0;j_temp%d<l_temp%d;j_temp%d++) {\n",i,i,i,i);
990 add_to_sig(result,buf,&currPos);
992 sprintf(buf," a_temp%d[j_temp%d]=temp%d[j_temp%d];\n",i,i,i,i);
993 add_to_sig(result,buf,&currPos);
995 add_to_sig(result," }\n",&currPos);
998 if(IsString(aArgVal)) {
999 sprintf(buf," char *c_temp%d = CORBA::string_dup(temp%d);\n",i,i);
1000 add_to_sig(result,buf,&currPos);
1003 if(IsVoid(aArgVal)) {
1004 sprintf(buf," long v_temp%d;\n",i);
1005 add_to_sig(result,buf,&currPos);
1007 sprintf(buf," temp%d.operator>>=(v_temp%d);\n",i,i);
1008 add_to_sig(result,buf,&currPos);
1011 add_to_sig(result," ",&currPos);
1013 if(IsArray(aRetVal) && !IsClass(aRetVal) && !IsString(aRetVal)) {
1014 add_to_sig(result,"CORBA::ULong i_ret;\n",&currPos);
1015 add_to_sig(result," PARAVIS::",&currPos);
1016 AddTypeArray(aRetVal,result,&currPos);
1017 add_to_sig(result,"_var s_ret = new ",&currPos);
1018 AddTypeArray(aRetVal,result,&currPos);
1019 add_to_sig(result,"();\n",&currPos);
1020 sprintf(buf," s_ret->length(%d);\n",currentFunction->HintSize);
1021 add_to_sig(result,buf,&currPos);
1022 add_to_sig(result," ",&currPos);
1025 if(IsArray(aRetVal) && IsUnsigned(aRetVal)) {
1026 add_to_sig(result,"unsigned ",&currPos);
1029 if(IsFloat(aRetVal)) {
1030 if(IsArray(aRetVal)) {
1031 add_to_sig(result,"float* a_ret = ",&currPos);
1033 add_to_sig(result,"CORBA::Float ret = ",&currPos);
1037 if(IsDouble(aRetVal)) {
1038 if(IsArray(aRetVal)) {
1039 add_to_sig(result,"double* a_ret = ",&currPos);
1041 add_to_sig(result,"CORBA::Double ret = ",&currPos);
1045 if(IsShort(aRetVal)) {
1046 if(IsArray(aRetVal)) {
1047 if(IsvtkIdType(aRetVal)) {
1048 add_to_sig(result,"vtkIdType",&currPos);
1050 add_to_sig(result,"int",&currPos);
1052 add_to_sig(result,"* a_ret = ",&currPos);
1054 add_to_sig(result,"CORBA::Short ret = ",&currPos);
1058 if(IsLong(aRetVal)) {
1059 if(IsArray(aRetVal)) {
1060 add_to_sig(result,"long* a_ret = ",&currPos);
1062 add_to_sig(result,"CORBA::Long ret = ",&currPos);
1066 //if(IsChar(aRetVal)) {
1067 if(IsString(aRetVal)) {
1068 add_to_sig(result,"char * ret = CORBA::string_dup(\"\");\n",&currPos);
1069 add_to_sig(result," const char * cret = ",&currPos);
1070 } else if (IsChar(aRetVal)) { //!!! vsv
1071 add_to_sig(result,"CORBA::Char ret = ",&currPos);
1075 if(IsBoolean(aRetVal)) {
1076 add_to_sig(result,"CORBA::Boolean ret = ",&currPos);
1079 if(IsVoidPtr(aRetVal)) {
1080 add_to_sig(result,"void * v_ret = ",&currPos);
1083 if(IsClass(aRetVal)) {
1084 add_to_sig(result,"::",&currPos);
1085 add_to_sig(result,currentFunction->ReturnValue->Class,&currPos);
1086 add_to_sig(result,"* a",&currPos);
1087 add_to_sig(result,currentFunction->ReturnValue->Class,&currPos);
1088 add_to_sig(result," = ",&currPos);
1090 if(IsVoid(aRetVal)) {
1091 add_to_sig(result,"if(getVTKObject() != NULL) ProcessVoidEvent",&currPos);
1093 add_to_sig(result,"(getVTKObject() != NULL) ? ProcessEvent",&currPos);
1095 add_to_sig(result,"(\n",&currPos);
1096 add_to_sig(result," new CreateEventName(",&currPos);
1097 add_to_sig(result,currentFunction->Name,&currPos);
1098 if( strlen(num)!=0 ) {
1099 add_to_sig(result,num,&currPos);
1101 add_to_sig(result,")",&currPos);
1103 add_to_sig(result,"((::",&currPos);
1104 add_to_sig(result,data->Name,&currPos);
1105 add_to_sig(result,"*)",&currPos);
1106 add_to_sig(result,"getVTKObject()\n",&currPos);
1108 for (i = 0; i < vtkWrap_CountWrappedParameters(currentFunction); i++) {
1109 aArgVal = currentFunction->Parameters[i];
1110 add_to_sig(result," , ",&currPos);
1112 //if(IsClass(currentFunction->ArgTypes[i]) && IsPtr(currentFunction->ArgTypes[i])) {
1113 //add_to_sig(result,"*(",&currPos);
1116 if(IsClass(aArgVal)) {
1117 //sprintf(buf,"(i_temp%d != NULL)?dynamic_cast< ::%s*>(i_temp%d->getVTKObject()):NULL",i,currentFunction->ArgClasses[i],i);
1118 sprintf(buf,"(i_temp%d != NULL)?dynamic_cast< ::%s*>(i_temp%d->getVTKObject()):NULL",i,aArgVal->Class,i);
1120 if(IsArray(aArgVal) && !IsString(aArgVal) && !IsVoid(aArgVal)) {
1121 sprintf(buf,"a_temp%d",i);
1123 if(IsVoidPtr(aArgVal)) {
1124 sprintf(buf,"(void*)v_temp%d",i);
1126 if(IsString(aArgVal)) {
1127 sprintf(buf,"c_temp%d",i);
1129 sprintf(buf,"temp%d",i);
1135 add_to_sig(result,buf,&currPos);
1136 //if(IsClass(currentFunction->ArgTypes[i]) && IsPtr(currentFunction->ArgTypes[i])) {
1137 //add_to_sig(result,")",&currPos);
1139 add_to_sig(result,"\n",&currPos);
1142 add_to_sig(result," )\n",&currPos);
1143 add_to_sig(result," )",&currPos);
1144 if(!IsVoid(aRetVal)) {
1145 add_to_sig(result,":",&currPos);
1146 if(IsClass(aRetVal) || IsString(aRetVal) || IsPtr(aRetVal) || IsArray(aRetVal))
1147 add_to_sig(result,"NULL",&currPos);
1149 add_to_sig(result,"0",&currPos);
1151 add_to_sig(result,";\n",&currPos);
1152 if(IsString(aRetVal)) {
1153 add_to_sig(result," if(cret!=NULL) ret=CORBA::string_dup(cret);\n",&currPos);
1156 if(IsClass(aRetVal)) {
1157 add_to_sig(result," if(a",&currPos);
1158 add_to_sig(result,currentFunction->ReturnValue->Class,&currPos);
1159 add_to_sig(result," == NULL) {\n",&currPos);
1160 add_to_sig(result," return PARAVIS::",&currPos);
1161 add_to_sig(result,currentFunction->ReturnValue->Class,&currPos);
1162 add_to_sig(result,"::_nil();\n",&currPos);
1163 add_to_sig(result," }\n",&currPos);
1164 add_to_sig(result," ",&currPos);
1165 add_to_sig(result,"PARAVIS_Base_i* aPtr = ::CreateInstance(a",&currPos);
1166 add_to_sig(result,currentFunction->ReturnValue->Class,&currPos);
1167 add_to_sig(result,", a",&currPos);
1168 add_to_sig(result,currentFunction->ReturnValue->Class,&currPos);
1169 add_to_sig(result,"->GetClassName());\n",&currPos);
1170 add_to_sig(result," aPtr->Init(a",&currPos);
1171 add_to_sig(result,currentFunction->ReturnValue->Class,&currPos);
1172 add_to_sig(result,");\n",&currPos);
1175 for (i = 0; i < vtkWrap_CountWrappedParameters(currentFunction); i++) {
1176 aArgVal = currentFunction->Parameters[i];
1177 if(IsArray(aArgVal) && !IsVoid(aArgVal) && !IsString(aArgVal) && !IsClass(aArgVal)) {
1178 if (!IsIn(aArgVal)) {
1179 sprintf(buf," for(j_temp%d=0;j_temp%d<l_temp%d;j_temp%d++) {\n",i,i,i,i);
1180 add_to_sig(result,buf,&currPos);
1182 sprintf(buf," temp%d[j_temp%d]=a_temp%d[j_temp%d];\n",i,i,i,i);
1183 add_to_sig(result,buf,&currPos);
1185 add_to_sig(result," }\n",&currPos);
1187 sprintf(buf," delete [] a_temp%d;\n",i);
1188 add_to_sig(result,buf,&currPos);
1192 if (IsVoid(aRetVal) && !IsVoidPtr(aRetVal)) {
1193 add_to_sig(result," return;\n",&currPos);
1195 if(IsClass(aRetVal)) {
1196 add_to_sig(result," return aPtr->_this();\n",&currPos);
1198 if(IsVoid(aRetVal)) {
1199 add_to_sig(result," CORBA::Any* ret = new CORBA::Any;\n",&currPos);
1200 add_to_sig(result," (*ret) <<= v_ret;\n",&currPos);
1201 add_to_sig(result," return ret;\n",&currPos);
1203 if(IsArray(aRetVal) && !IsString(aRetVal)) {
1204 sprintf(buf," for(i_ret=0; i_ret<%d; i_ret++) {\n",currentFunction->HintSize);
1205 add_to_sig(result,buf,&currPos);
1206 add_to_sig(result," s_ret[i_ret]=a_ret[i_ret];\n",&currPos);
1207 add_to_sig(result," }\n",&currPos);
1208 add_to_sig(result," return s_ret._retn();\n",&currPos);
1210 add_to_sig(result," return ret;\n",&currPos);
1216 add_to_sig(result," } catch(...) {\n",&currPos);
1217 add_to_sig(result," MESSAGE(\"",&currPos);
1218 //add_to_sig(result,data->ClassName,&currPos);
1219 //add_to_sig(result,"::",&currPos);
1220 add_to_sig(result,currentFunction->Name,&currPos);
1221 add_to_sig(result," - Unknown exception was occured!!!\");\n",&currPos);
1223 if (IsVoid(aRetVal)&& !IsVoidPtr(aRetVal)) {
1224 add_to_sig(result," return;\n",&currPos);
1226 if(IsString(aRetVal)) {
1227 add_to_sig(result," return CORBA::string_dup(\"\");\n",&currPos);
1229 if(IsClass(aRetVal)) {
1230 add_to_sig(result," return PARAVIS::",&currPos);
1231 add_to_sig(result,currentFunction->ReturnValue->Class,&currPos);
1232 add_to_sig(result,"::_nil();\n",&currPos);
1234 if(IsArray(aRetVal) && !IsVoid(aRetVal)) {
1235 add_to_sig(result," PARAVIS::",&currPos);
1236 AddTypeArray(aRetVal,result,&currPos);
1237 add_to_sig(result,"_var s_ret = new ",&currPos);
1238 AddTypeArray(aRetVal,result,&currPos);
1239 add_to_sig(result,"();\n",&currPos);
1240 sprintf(buf," s_ret->length(%d);\n",currentFunction->HintSize);
1241 add_to_sig(result,buf,&currPos);
1242 add_to_sig(result," return s_ret._retn();\n",&currPos);
1244 add_to_sig(result," return 0;\n",&currPos);
1250 add_to_sig(result," }\n",&currPos);
1251 add_to_sig(result,"}\n",&currPos);
1253 add_to_sig(result,";\n",&currPos);
1258 result[currPos_sig]='\0';
1259 /*currentFunction->Signature = (const char*)realloc((void*)currentFunction->Signature,
1260 (size_t)(currPos_sig+1));*/
1261 cp = (char *)malloc(currPos_sig+1);
1263 currentFunction->Signature = cp;
1264 //strcpy((char*)currentFunction->Signature,result);
1269 //if(strcmp(currentFunction->Name,"NewInstance") == 0) {
1270 //currentFunction->Signature[0]='\0';
1274 for(i = 0; i < numberOfReadFunctions; i++) {
1275 if(strcmp(readFunctions[i].Name,currentFunction->Name) == 0) {
1276 j=readFunctions[i].EndPos-readFunctions[i].NumPos;
1277 strncpy(buf,result+currPos_num,j);
1278 strncpy(buf1,readFunctions[i].Signature+readFunctions[i].NumPos,j);
1281 if(strcmp(buf,buf1) == 0) {
1282 //((char*)currentFunction->Signature)[0]='\0';
1283 currentFunction->Signature = EmptyString;
1288 /*currentFunction->Signature = (const char*)realloc((void*)currentFunction->Signature,
1289 (size_t)(currPos+1));*/
1290 //strcpy((char*)currentFunction->Signature, result);
1291 cp = (char *)malloc(currPos+1);
1293 currentFunction->Signature = cp;
1296 void outputFunction2(FILE *fp, ClassInfo *data)
1298 int i, j, k, is_vtkobject, fnum, backnum;//, is_static, occ, goto_used;
1300 FunctionInfo *theFunc;
1301 FunctionInfo *backFunc;
1302 const char *theName;
1303 unsigned int theType;
1304 const char *backName;
1307 //int isSMObject = 0;
1309 ValueInfo* aArgVal = 0;
1310 ValueInfo* aBackArgVal = 0;
1313 #if defined(IDL_I_HH)
1314 fprintf(fp,"#include \"SALOMEconfig.h\"\n");
1315 fprintf(fp,"#include CORBA_SERVER_HEADER(PARAVIS_Gen_%s)\n",data->Name);
1317 fprintf(fp,"#include \"SALOME_GenericObj_i.hh\"\n");
1318 fprintf(fp,"#include \"PARAVIS_Gen_i.hh\"\n");
1319 fprintf(fp,"#include \"PARAVIS_Gen_Types.hh\"\n");
1320 fprintf(fp,"#include \"vtkSmartPointer.h\"\n");
1321 fprintf(fp,"#include \"SALOME_Event.h\"\n");
1323 for(i=0;i<data->NumberOfSuperClasses;i++)
1325 fprintf(fp,"#include \"PARAVIS_Gen_%s_i.hh\"\n",data->SuperClasses[i]);
1328 fprintf(fp,"\nclass %s;\n",data->Name);
1329 fprintf(fp,"\nnamespace PARAVIS\n{\n\n");
1330 #elif defined(IDL_I_CC)
1331 fprintf(fp,"#include \"SALOME_GenericObj_i.hh\"\n");
1332 fprintf(fp,"#include \"PARAVIS_Gen_%s_i.hh\"\n",data->Name);
1333 fprintf(fp,"#include \"PV_Tools.h\"\n");
1334 fprintf(fp,"#include \"SALOME_Event.h\"\n");
1335 fprintf(fp,"#include <%s.h>\n",data->Name);
1337 fprintf(fp,"#include \"PARAVIS_Gen.idl\"\n");
1338 fprintf(fp,"#include \"PARAVIS_Gen_Types.idl\"\n");
1340 for(i=0;i<data->NumberOfSuperClasses;i++)
1342 fprintf(fp,"#include \"PARAVIS_Gen_%s.idl\"\n",data->SuperClasses[i]);
1345 fprintf(fp,"\nmodule PARAVIS\n{\n\n");
1348 is_vtkobject = ((strcmp(data->Name,"vtkObjectBase") == 0) ||
1349 (data->NumberOfSuperClasses != 0));
1351 for(i = 0; i < data->NumberOfSuperClasses; i++) {
1352 read_class_functions(data->SuperClasses[i],data->Name,fp);
1355 /* create a idl signature for each method */
1356 for (fnum = 0; fnum < numberOfWrappedFunctions; fnum++)
1358 theFunc = wrappedFunctions[fnum];
1359 currentFunction = theFunc;
1360 //printf("#### %i)Function %s\n", fnum, theFunc->Name);
1362 /* names of idl methods should be unique */
1365 for (i = 0; i < numberOfReadFunctions; i++) {
1366 if(strcmp(currentFunction->Name,readFunctions[i].Name) == 0)
1369 for (i = 0; i < fnum; i++)
1371 if( strcmp(currentFunction->Name,wrappedFunctions[i]->Name) == 0 )
1376 for (i = fnum+1; i < numberOfWrappedFunctions; i++) {
1377 if( strcmp(currentFunction->Name,wrappedFunctions[i]->Name) == 0 ) {
1388 sprintf(num,"_%d",j);
1390 get_signature(num,data);
1392 /* create external type declarations for all object
1394 for (fnum = 0; fnum < numberOfWrappedFunctions; fnum++)
1396 theFunc = wrappedFunctions[fnum];
1397 currentFunction = theFunc;
1401 for (i = vtkWrap_CountWrappedParameters(theFunc); i >= 0; i--)
1403 if (i==0)/* return type */
1405 aArgVal = theFunc->ReturnValue;
1406 //theType = theFunc->ReturnType;
1407 //theName = (char*)theFunc->ReturnClass;
1411 aArgVal = theFunc->Parameters[i-1];
1412 //theType = theFunc->ArgTypes[i-1];
1413 //theName = (char*)theFunc->ArgClasses[i-1];
1415 theType = aArgVal->Type & VTK_PARSE_BASE_TYPE;
1416 theName = aArgVal->Class;
1417 /* check for object types */
1418 /*if ((theType & VTK_PARSE_BASE_TYPE == 0x309)||
1419 (theType & VTK_PARSE_BASE_TYPE == 0x109))*/
1420 if ((theType == VTK_PARSE_OBJECT) || (theType == VTK_PARSE_OBJECT_REF))
1422 /* check that we haven't done this type (no duplicate declarations) */
1423 for (backnum = fnum; backnum >= 0; backnum--)
1425 backFunc = wrappedFunctions[backnum];
1428 if (backnum == fnum)
1432 for (j = vtkWrap_CountWrappedParameters(backFunc); j >= k; j--)
1434 if (j==0) /* return type */
1436 aBackArgVal = backFunc->ReturnValue;
1437 //backType = backFunc->ReturnType;
1438 //backName = (char*)backFunc->ReturnClass;
1442 aBackArgVal = backFunc->Parameters[j-1];
1443 //backType = backFunc->ArgTypes[j-1];
1444 //backName = (char*)backFunc->ArgClasses[j-1];
1446 backType = aBackArgVal->Type & VTK_PARSE_BASE_TYPE;
1447 backName = aBackArgVal->Class;
1448 /*if (((backType % VTK_PARSE_BASE_TYPE == 0x309)||
1449 (backType % VTK_PARSE_BASE_TYPE == 0x109)))*/
1450 if ((backType == VTK_PARSE_OBJECT) || (backType == VTK_PARSE_OBJECT_REF))
1452 if(strcmp(theName,backName) == 0)
1463 if (backnum < 0 && strcmp(data->Name,theName) != 0)
1466 for(j = 0; strcmp(wrapped_classes[j],"") != 0 && found == 0; j++)
1468 if(strcmp(wrapped_classes[j],theName) == 0)
1473 #if defined(IDL_I_HH)
1474 fprintf(fp," class %s_i;\n",theName);
1475 #elif defined(IDL_I_CC)
1476 fprintf(fp,"#include \"PARAVIS_Gen_%s_i.hh\"\n",theName);
1477 fprintf(fp,"#include <%s.h>\n",theName);
1479 //fprintf(fp,"#include \"PARAVIS_Gen_%s.idl\"\n",theName);
1480 fprintf(fp," interface %s;\n",theName);
1488 //fprintf(fp,"\nmodule PARAVIS\n{\n");
1489 #if defined(IDL_I_HH)
1490 fprintf(fp,"\n class %s_i : public virtual POA_PARAVIS::%s, public virtual PARAVIS::PARAVIS_Base_i",data->Name,data->Name);
1491 //for(i = 0; i < data->NumberOfSuperClasses; i++) {
1492 // fprintf(fp,", public virtual %s_i",data->SuperClasses[i]);
1494 //fprintf(fp,", public virtual SALOME::GenericObj_i");
1496 fprintf(fp,"\n public:\n");
1497 fprintf(fp,"\n %s_i();\n",data->Name);
1498 if(strcmp(data->Name,"vtkSMSessionProxyManager") != 0) {
1499 fprintf(fp,"\n ::vtkObjectBase* GetNew();\n");
1502 #elif defined(IDL_I_CC)
1503 fprintf(fp,"extern PARAVIS::PARAVIS_Base_i* CreateInstance(::vtkObjectBase* Inst, const QString&);\n");
1504 fprintf(fp,"\nnamespace PARAVIS\n{\n");
1505 fprintf(fp,"typedef %s_i current_interface;\n",data->Name);
1506 fprintf(fp,"#define CreateEventName(Function) Event%s ##Function\n",data->Name);
1507 fprintf(fp,"%s_i::%s_i() {\n",data->Name,data->Name);
1508 //fprintf(fp," Init(::%s::New());\n",data->Name);
1512 if(strcmp(data->Name,"vtkSMSessionProxyManager") != 0) {
1513 fprintf(fp,"::vtkObjectBase* %s_i::GetNew() {\n", data->Name);
1514 if(strcmp(data->Name,"vtkSMProxyManager") == 0) {
1515 fprintf(fp," return ::%s::GetProxyManager();\n",data->Name);
1517 fprintf(fp," return ::%s::New();\n",data->Name);
1522 fprintf(fp,"\n interface %s : PARAVIS_Base",data->Name);
1523 fprintf(fp,"\n {\n");
1526 for(i = 0; i < numberOfReadFunctions; i++) {
1527 fprintf(fp, "%s\n", readFunctions[i].Signature);
1530 for (fnum = 0; fnum < numberOfWrappedFunctions; fnum++) {
1531 fprintf(fp,"%s\n",wrappedFunctions[fnum]->Signature);
1534 #if defined(IDL_I_HH)
1535 fprintf(fp," };\n");
1537 #elif defined(IDL_I_CC)
1540 fprintf(fp," };\n");
1547 void outputFunction(FILE *fp, ClassInfo *data)
1551 ValueInfo* aRetVal = NULL;//currentFunction->ReturnValue;
1552 ValueInfo* aArgVal = NULL;
1554 unsigned int argtype;
1557 /* some functions will not get wrapped no matter what else,
1558 and some really common functions will appear only in vtkObjectPython */
1559 if (currentFunction->IsOperator ||
1560 currentFunction->ArrayFailure ||
1561 !currentFunction->IsPublic ||
1562 !currentFunction->Name)
1566 //printf("#### Check %s\n", currentFunction->Name);
1568 /* check to see if we can handle the args */
1569 for (i = 0; i < vtkWrap_CountWrappedParameters(currentFunction); i++)
1571 aArgVal = currentFunction->Parameters[i];
1572 /*printf(" Argument: %s ", vtkWrap_GetTypeName(aArgVal));
1573 if (vtkWrap_IsArray(aArgVal)) {
1574 printf("!!!! Argument %i is array\n", i);
1577 if (vtkWrap_IsStream(aArgVal)) {
1578 //printf("!!!! Argument %i is stream\n", i);
1581 if (IsPtr(aArgVal)) {
1582 //printf("!!!! Argument %i is pointer value\n", i);
1585 if (IsUnknown(aArgVal)) {
1586 //printf("!!!! Argument %i is unknown value\n", i);
1589 if (vtkWrap_IsVoidPointer(aArgVal)) {
1590 //printf("!!!! Argument %i is void pointer\n", i);
1593 if (vtkWrap_IsVoidFunction(aArgVal)) {
1594 //printf("!!!! Argument %i is void function\n", i);
1597 argtype = (aArgVal->Type & VTK_PARSE_INDIRECT);
1598 if (argtype == VTK_PARSE_POINTER_POINTER){
1599 //printf("!!!! Argument %i is pointer to pointer\n", i);
1602 if (vtkWrap_IsNonConstRef(aArgVal)) {
1603 //printf("!!!! Argument %i is non const ref\n", i);
1606 if (vtkWrap_IsSpecialObject(aArgVal)) {
1607 //printf("!!!! Argument %i is special object\n", i);
1610 /*if (currentFunction->ArgTypes[i] % VTK_PARSE_BASE_TYPE == 9) args_ok = 0;
1611 if ((currentFunction->ArgTypes[i] % 0x10) == 8) args_ok = 0;
1612 if (((currentFunction->ArgTypes[i] % VTK_PARSE_BASE_TYPE)/0x100 != 0x3)&&
1613 (currentFunction->ArgTypes[i] % VTK_PARSE_BASE_TYPE != 0x109)&&
1614 ((currentFunction->ArgTypes[i] % VTK_PARSE_BASE_TYPE)/0x100)) args_ok = 0;
1615 if (currentFunction->ArgTypes[i] % VTK_PARSE_BASE_TYPE == 0x313) args_ok = 0;
1616 if (currentFunction->ArgTypes[i] % VTK_PARSE_BASE_TYPE == 0x314) args_ok = 0;
1617 if (currentFunction->ArgTypes[i] % VTK_PARSE_BASE_TYPE == 0x31A) args_ok = 0;
1618 if (currentFunction->ArgTypes[i] % VTK_PARSE_BASE_TYPE == 0x31B) args_ok = 0;
1619 if (currentFunction->ArgTypes[i] % VTK_PARSE_BASE_TYPE == 0x31C) args_ok = 0;
1620 if (currentFunction->ArgTypes[i] % VTK_PARSE_BASE_TYPE == 0x315) args_ok = 0;
1621 if (currentFunction->ArgTypes[i] % VTK_PARSE_BASE_TYPE == 0x316) args_ok = 0;*/
1623 aRetVal = currentFunction->ReturnValue;
1625 //printf("#### Return type: %s\n", vtkWrap_GetTypeName(aRetVal));
1626 aType = aRetVal->Type & VTK_PARSE_BASE_TYPE;
1627 if (IsPtr(aRetVal)) {
1628 //printf("!!!! Return Value is pointer\n");
1631 /* eliminate unsigned char * and unsigned short * */
1632 argtype = (aRetVal->Type & VTK_PARSE_UNQUALIFIED_TYPE);
1633 if ((argtype == VTK_PARSE_UNSIGNED_CHAR_PTR) || (argtype == VTK_PARSE_UNSIGNED_SHORT)) {
1634 //printf("!!!! Return Value is unsigned char or short\n");
1638 if ((aType == VTK_PARSE_UNKNOWN)) {
1639 //printf("!!!! Return Value is unknown\n");
1642 argtype = (aRetVal->Type & VTK_PARSE_INDIRECT);
1643 if (argtype == VTK_PARSE_POINTER_POINTER){
1644 //printf("!!!! Return value is pointer to pointer\n", i);
1647 if (vtkWrap_IsSpecialObject(aRetVal)) {
1648 //printf("!!!! Return is special object\n", i);
1652 /*if ((aRetVal % 0x10) == 0x8) args_ok = 0;
1653 if (aRetVal % VTK_PARSE_BASE_TYPE == 0x9) args_ok = 0;
1654 if (((aRetVal % VTK_PARSE_BASE_TYPE)/0x100 != 0x3)&&
1655 (aRetVal % VTK_PARSE_BASE_TYPE != 0x109)&&
1656 ((aRetVal % VTK_PARSE_BASE_TYPE)/0x100)) args_ok = 0;
1659 /*if (aRetVal % VTK_PARSE_BASE_TYPE == 0x313) args_ok = 0;
1660 if (aRetVal % VTK_PARSE_BASE_TYPE == 0x314) args_ok = 0;
1661 if (aRetVal % VTK_PARSE_BASE_TYPE == 0x31A) args_ok = 0;
1662 if (aRetVal % VTK_PARSE_BASE_TYPE == 0x31B) args_ok = 0;
1663 if (aRetVal % VTK_PARSE_BASE_TYPE == 0x31C) args_ok = 0;
1664 if (aRetVal % VTK_PARSE_BASE_TYPE == 0x315) args_ok = 0;
1665 if (aRetVal % VTK_PARSE_BASE_TYPE == 0x316) args_ok = 0;
1668 if (vtkWrap_CountWrappedParameters(currentFunction) &&
1669 (currentFunction->ArgTypes[0] == 0x5000)
1670 &&(vtkWrap_CountWrappedParameters(currentFunction) != 0x1)) args_ok = 0;*/
1672 /* make sure we have all the info we need for array arguments in */
1673 /*for (i = 0; i < vtkWrap_CountWrappedParameters(currentFunction); i++)
1675 if (((currentFunction->ArgTypes[i] % VTK_PARSE_BASE_TYPE)/0x100 == 0x3)&&
1676 (currentFunction->ArgCounts[i] <= 0)&&
1677 (currentFunction->ArgTypes[i] % VTK_PARSE_BASE_TYPE != 0x309)&&
1678 (currentFunction->ArgTypes[i] % VTK_PARSE_BASE_TYPE != 0x303)&&
1679 (currentFunction->ArgTypes[i] % VTK_PARSE_BASE_TYPE != 0x302)) args_ok = 0;
1682 /* if we need a return type hint make sure we have one */
1683 //switch (aRetVal % VTK_PARSE_BASE_TYPE)
1684 /*switch (aRetVal->Type % VTK_PARSE_BASE_TYPE)
1686 case 0x301: case 0x307: case 0x30A: case 0x30B: case 0x30C: case 0x30D: case 0x30E:
1687 case 0x304: case 0x305: case 0x306:
1688 args_ok = currentFunction->HaveHint;
1692 /* make sure it isn't a Delete or New function */
1693 if (!strcmp("Delete",currentFunction->Name) ||
1694 !strcmp("New",currentFunction->Name))
1699 if (vtkWrap_IsDestructor(data, currentFunction) || vtkWrap_IsConstructor(data, currentFunction)) {
1700 //printf("!!!! Return Value is constructor or destructor\n");
1704 /* check for New() function */
1705 if (!strcmp("New",currentFunction->Name) && vtkWrap_CountWrappedParameters(currentFunction) == 0)
1710 if (currentFunction->IsPublic && //args_ok &&
1711 strcmp(data->Name,currentFunction->Name) &&
1712 strcmp(data->Name, currentFunction->Name + 1))
1714 //printf("#### %i Function %s\n", numberOfWrappedFunctions, currentFunction->Name);
1715 wrappedFunctions[numberOfWrappedFunctions] = currentFunction;
1716 numberOfWrappedFunctions++;
1722 /* print the parsed structures */
1723 int main(int argc, char *argv[])
1725 OptionInfo *options;
1726 FileInfo *file_info;
1731 /* get command-line args and parse the header file */
1732 file_info = vtkParse_Main(argc, argv);
1734 /* get the command-line options */
1735 options = vtkParse_GetCommandLineOptions();
1737 /* get the output file */
1738 fp = fopen(options->OutputFileName, "w");
1742 fprintf(stderr, "Error opening output file %s\n", options->OutputFileName);
1746 /* get the main class */
1747 if ((data = file_info->MainClass) == NULL)
1753 /* get the hierarchy info for accurate typing */
1754 if (options->HierarchyFileName)
1756 hierarchyInfo = vtkParseHierarchy_ReadFile(options->HierarchyFileName);
1759 #if defined(IDL_I_HH)
1760 fprintf(fp, "// idl wrapper interface for %s object implementation\n//\n", data->Name);
1761 #elif defined(IDL_I_CC)
1762 fprintf(fp, "// idl wrapper implementation for %s object\n//\n", data->Name);
1764 fprintf(fp, "// idl wrapper for %s object\n//\n", data->Name);
1768 if(strlen(Copyright[i]) != 0)
1770 fprintf(fp,"%s\n",Copyright[i]);
1778 #if defined(IDL_I_HH)
1779 fprintf(fp,"#ifndef PARAVIS_Gen_%s_i_HeaderFile\n",data->Name);
1780 fprintf(fp,"#define PARAVIS_Gen_%s_i_HeaderFile\n",data->Name);
1782 #elif defined(IDL_I_CC)
1784 fprintf(fp,"#ifndef __PARAVIS_Gen_%s__\n",data->Name);
1785 fprintf(fp,"#define __PARAVIS_Gen_%s__\n",data->Name);
1789 /* insert function handling code here */
1790 for (i = 0; i < data->NumberOfFunctions; i++)
1792 currentFunction = data->Functions[i];
1793 #ifdef VTK_LEGACY_REMOVE
1794 if(currentFunction->IsLegacy)
1797 outputFunction(fp, data);
1799 //printf("#### NbFunctions %i\n", numberOfWrappedFunctions);
1800 //if (data->NumberOfSuperClasses || (!data->IsAbstract))
1801 //if (numberOfWrappedFunctions)
1803 outputFunction2(fp, data);
1806 #if defined(IDL_I_HH)
1807 fprintf(fp,"\n#endif\n");
1808 #elif defined(IDL_I_CC)
1810 fprintf(fp,"\n#endif\n");
1813 vtkParse_Free(file_info);