1 # Copyright (C) 2006-2022 CEA/DEN, EDF R&D
3 # This library is free software; you can redistribute it and/or
4 # modify it under the terms of the GNU Lesser General Public
5 # License as published by the Free Software Foundation; either
6 # version 2.1 of the License, or (at your option) any later version.
8 # This library is distributed in the hope that it will be useful,
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
11 # Lesser General Public License for more details.
13 # You should have received a copy of the GNU Lesser General Public
14 # License along with this library; if not, write to the Free Software
15 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
17 # See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
20 # This awk program contains the type mapping tables - and the treatments
25 # file name generation
26 print "Functions parsing (for debug parse4)" > "parse_result";
27 dispatch_file="code_dispatch"
28 class_cpp=class_name"_cpp"
29 print "//\n// generated part\n//\n" > dispatch_file
31 print "#include <exception>\n" >> dispatch_file
32 print "#include \"Any.hxx\"\n" >> dispatch_file
33 print "struct returnInfo {\n int code;\n std::string message;\n};\n\n" >> dispatch_file
34 print "extern \"C\"" >> dispatch_file
35 print "void * __init() {" >> dispatch_file
36 print "\n "class_name " *Obj = new " class_name ";\n return Obj;\n}\n" >> dispatch_file
38 print "extern \"C\"" >> dispatch_file
39 print "void __terminate(void ** vObj) {" >> dispatch_file
40 print "\n "class_name " *Obj = ("class_name" *) *vObj;\n delete Obj;\n *vObj = NULL;\n}\n" >> dispatch_file
42 print "extern \"C\"" >> dispatch_file
43 print "void __run(void * O, const char * service, int nbIn, int nbOut," >> dispatch_file
44 print " YACS::ENGINE::Any ** argIn, YACS::ENGINE::Any ** argOut, returnInfo *r)" >> dispatch_file
45 print " {" >> dispatch_file
46 print " if (O == NULL) {" >> dispatch_file
47 print " r->code = -1;" >> dispatch_file
48 print " r->message = \"Component "class_name" has not been initialized\";" >> dispatch_file
49 print " return;" >> dispatch_file
50 print " }\n" >> dispatch_file
51 print " returnInfo return_code;" >> dispatch_file
52 print " return_code.message = \"\";" >> dispatch_file
53 print " return_code.code = 0;\n" >> dispatch_file
54 print " int kIn = 0, kOut = 0;" >> dispatch_file;
55 print " "class_name" * Obj = ("class_name" *) O;">> dispatch_file;
56 print "\n try {\n" >> dispatch_file;
61 # table for c++ code generation : argument's processing
63 cpp_arg["int"]=" int argIn%d = argIn[kIn++]->getIntValue();\n"
64 cpp_arg["double"]=" double argIn%d = argIn[kIn++]->getDoubleValue();\n"
65 cpp_arg["float"]=" float argIn%d = argIn[kIn++]->getDoubleValue();\n"
66 cpp_arg["long"]=" long argIn%d = argIn[kIn++]->getIntValue();\n"
67 cpp_arg["short"]=" short argIn%d = (short) argIn[kIn++]->getIntValue();\n"
68 cpp_arg["unsigned"]=" unsigned argIn%d = (unsigned ) argIn[kIn++];->getIntValue()\n"
69 cpp_arg["const char*"]=" const char * argIn%d = argIn[kIn++]->getStringValue().c_str();\n"
70 cpp_arg["const std::string&"]=" const std::string& argIn%d = argIn[kIn++]->getStringValue();\n"
71 cpp_arg["const std::vector<double>&"]=" YACS::ENGINE::SequenceAny * sA\n"\
72 " = dynamic_cast<YACS::ENGINE::SequenceAny *>(argIn[kIn]);\n"\
73 " if (NULL == sA) {\n"\
75 " r->message = \"sequence expected\";\n"\
78 " unsigned int i, n = sA->size();\n"\
79 " std::vector<double> argIn%d(n);\n"\
80 " for (i=0; i<n; i++) argIn%d[i] = ((*sA)[i])->getDoubleValue();\n"\
83 cpp_arg["int&"]=" int argOut%d;\n"
84 cpp_arg["double&"]=" double argOut%d;\n"
85 cpp_arg["float&"]=" float argOut%d;\n"
86 cpp_arg["long&"]=" long argOut%d;\n"
87 cpp_arg["short&"]=" short argOut%d;\n"
88 cpp_arg["unsigned&"]=" unsigned argOut%d;\n"
89 cpp_arg["std::string&"]=" std::string argOut%d;\n"
90 cpp_arg["std::vector<double>&"]=" std::vector<double> argOut%d;\n"
92 cpp_out["int&"]=" argOut[kOut++] = YACS::ENGINE::AtomAny::New(argOut%d);"
93 cpp_out["double&"]=" argOut[kOut++] = YACS::ENGINE::AtomAny::New(argOut%d);"
94 cpp_out["float&"]=" argOut[kOut++] = YACS::ENGINE::AtomAny::New(argOut%d);"
95 cpp_out["long&"]=" argOut[kOut++] = YACS::ENGINE::AtomAny::New(argOut%d);"
96 cpp_out["short&"]=" argOut[kOut++] = YACS::ENGINE::AtomAny::New(argOut%d);"
97 cpp_out["unsigned&"]=" argOut[kOut++] = YACS::ENGINE::AtomAny::New(argOut%d);"
98 cpp_out["std::string&"]=" argOut[kOut++] = YACS::ENGINE::AtomAny::New(argOut%d);"
99 cpp_out["std::vector<double>&"]=" argOut[kOut++] = YACS::ENGINE::SequenceAny::New(argOut%d);"
101 cpp_out["int"]=" argOut[kOut++] = YACS::ENGINE::AtomAny::New(argOut%d);"
102 cpp_out["double"]=" argOut[kOut++] = YACS::ENGINE::AtomAny::New(argOut%d);"
103 cpp_out["float"]=" argOut[kOut++] = YACS::ENGINE::AtomAny::New(argOut%d);"
104 cpp_out["long"]=" argOut[kOut++] = YACS::ENGINE::AtomAny::New(argOut%d);"
105 cpp_out["short"]=" argOut[kOut++] = YACS::ENGINE::AtomAny::New(argOut%d);"
106 cpp_out["unsigned"]=" argOut[kOut++] = YACS::ENGINE::AtomAny::New(argOut%d);"
107 cpp_out["std::string"]=" argOut[kOut++] = YACS::ENGINE::AtomAny::New(argOut%d);"
108 cpp_out["std::vector<double>"]=" argOut[kOut++] = YACS::ENGINE::SequenceAny::New(argOut%d);"
113 type_arg["int"]= type_in
114 type_arg["double"]= type_in
115 type_arg["float"]= type_in
116 type_arg["long"]= type_in
117 type_arg["short"]= type_in
118 type_arg["unsigned"]= type_in
119 type_arg["const char*"]= type_in
120 type_arg["const std::string&"]= type_in
121 type_arg["const std::vector<double>&"]= type_in
123 type_arg["int&"]= type_out
124 type_arg["double&"]= type_out
125 type_arg["float&"]= type_out
126 type_arg["long&"]= type_out
127 type_arg["short&"]= type_out
128 type_arg["unsigned&"]= type_out
129 type_arg["std::string&"]= type_out
130 type_arg["std::vector<double>&"]= type_out
134 # record sep is ");\n" whith blanks all around, and optional "(" at the beginning
135 RS="[(]?[ ]*[)][ ]*;[ ]*\n?"
136 FS="[ ]*[(,][ ]*" # field sep is either "(" or "," surrounded by blanks
139 # --------------------- treatment 1 ----------------------------------
141 # extract from fields types, function name, and argument's names
144 nitems = split($0, items);
145 print "Function : ",$0 >> "parse_result"; # print for debug
146 for (i=1; i<=nitems; i++) {
147 print " -> ",i," : ",items[i] >> "parse_result";
148 split(items[i], j, " ");
149 l=0; for (k in j) {l++;}
151 for (ll=2; ll<l; ll++) k=k " " j[ll];
154 way[i] = type_arg[k];
157 print " if (strcmp(service, \""name[1]"\") == 0) {\n" >> dispatch_file;
159 for (i=2; i<=nitems; i++) {
160 printf cpp_arg[type[i]],(i-1),(i-1) >> dispatch_file;
163 # Internal function call with local arguments
165 # if no return value, return NULL
166 if (type[1] == "void") {
170 s=" "type[1]" argOut0 = ";
173 s = s"Obj->"name[1]"(";
174 for (i=2; i<nitems; i++) {
175 if (way[i] == type_in) {
178 else if (way[i] == type_out) {
183 if (way[nitems] == type_in) {
184 s=s"argIn"(nitems-1);
186 else if (way[nitems] == type_out) {
187 s=s"argOut"(nitems-1);
191 print s >> dispatch_file;
193 if (type[1] != "void") {
194 printf cpp_out[type[1]],0 >> dispatch_file;
197 for (i=2; i<nitems; i++) {
198 if (way[i] == type_out) {
199 printf cpp_out[type[i]],(i-1) >> dispatch_file;
203 print "\n }\n else" >> dispatch_file;
208 print " {\n // error in function name" >> dispatch_file
209 print " return_code.code = -1;" >> dispatch_file
210 print " return_code.message = std::string(service) + \" is not the name of a service\";\n }" >> dispatch_file
211 print "\n }\n catch(std::exception & e) {\n" >> dispatch_file
212 print " return_code.code = -1;" >> dispatch_file;
213 print " return_code.message = std::string(\"internal exception in \") + service + \" : \" + e.what();" >> dispatch_file;
214 print "\n }\n catch(...) {\n" >> dispatch_file
215 print " return_code.code = -1;" >> dispatch_file;
216 print " return_code.message = std::string(\"internal exception in \") + service;" >> dispatch_file;
217 print " }" >> dispatch_file
218 print " *r = return_code;\n}" >> dispatch_file
220 print "\n#include <iostream>\n" >> dispatch_file
221 print "extern \"C\"" >> dispatch_file
222 print "\nvoid __ping() {\n" >> dispatch_file
223 print " std::cerr << \"ping\" << std::endl;\n}" >> dispatch_file