/* Return the scoped actual type specification where for the user types,
scopes are separated by "_" chracters.
IDL strings (bounded and unbounded) are mapped on: c_string, other
basic types are mapped on corresponding splice types
IDL structures are identified by: struct <scoped-struct-name>
IDL unions are identified by: struct <scoped-union-name> becuase
the union mapping is:
struct <union-name> {
<tag-type> _d;
union {
<union-case-specifications>
} _u;
}
IDL enumerations are identified by: enum <scoped-enum-name>
IDL typedefs are formed by the scoped type name
IDL sequences are mapped on: c_sequence
*/
static c_char *
idl_scopedSacSequenceTypeIdent (
const idl_typeSpec typeSpec)
{
c_char scopedTypeIdent[256];
/* QAC EXPECT 3416; No unexpected side effects here */
if (idl_typeSpecType(typeSpec) == idl_tbasic) {
switch (idl_typeBasicType(idl_typeBasic(typeSpec))) {
case idl_short:
snprintf (scopedTypeIdent, (size_t)sizeof(scopedTypeIdent), "short");
break;
case idl_ushort:
snprintf (scopedTypeIdent, (size_t)sizeof(scopedTypeIdent), "unsigned_short");
break;
case idl_long:
snprintf (scopedTypeIdent, (size_t)sizeof(scopedTypeIdent), "long");
break;
case idl_ulong:
snprintf (scopedTypeIdent, (size_t)sizeof(scopedTypeIdent), "unsigned_long");
break;
case idl_longlong:
snprintf (scopedTypeIdent, (size_t)sizeof(scopedTypeIdent), "long_long");
break;
case idl_ulonglong:
snprintf (scopedTypeIdent, (size_t)sizeof(scopedTypeIdent), "unsigned_long_long");
break;
case idl_float:
snprintf (scopedTypeIdent, (size_t)sizeof(scopedTypeIdent), "float");
break;
case idl_double:
snprintf (scopedTypeIdent, (size_t)sizeof(scopedTypeIdent), "double");
break;
case idl_char:
snprintf (scopedTypeIdent, (size_t)sizeof(scopedTypeIdent), "char");
break;
case idl_string:
snprintf (scopedTypeIdent, (size_t)sizeof(scopedTypeIdent), "string");
break;
case idl_boolean:
snprintf (scopedTypeIdent, (size_t)sizeof(scopedTypeIdent), "boolean");
break;
case idl_octet:
snprintf (scopedTypeIdent, (size_t)sizeof(scopedTypeIdent), "octet");
break;
default:
os_strncpy (scopedTypeIdent, "", (size_t)sizeof(scopedTypeIdent));
}
} else if (idl_typeSpecType(typeSpec) == idl_tstruct ||
idl_typeSpecType(typeSpec) == idl_tunion ||
idl_typeSpecType(typeSpec) == idl_tenum) {
/* QAC EXPECT 3416; No unexpected side effects here */
snprintf (scopedTypeIdent, (size_t)sizeof(scopedTypeIdent), "%s",
idl_sacTypeFromTypeSpec(idl_typeSpec(typeSpec)));
/* QAC EXPECT 3416; No unexpected side effects here */
} else if (idl_typeSpecType(typeSpec) == idl_ttypedef) {
switch (idl_typeSpecType(idl_typeDefRefered (idl_typeDef(typeSpec)))) {
case idl_tarray:
case idl_tseq:
snprintf (scopedTypeIdent, (size_t)sizeof(scopedTypeIdent), "%s",
idl_sacTypeFromTypeSpec(typeSpec));
break;
case idl_ttypedef:
snprintf (scopedTypeIdent, (size_t)sizeof(scopedTypeIdent), "%s",
idl_scopedSacSequenceTypeIdent(idl_typeDefRefered (idl_typeDef(typeSpec))));
break;
default:
snprintf (scopedTypeIdent, (size_t)sizeof(scopedTypeIdent), "%s",
idl_sacTypeFromTypeSpec(idl_typeDefActual(idl_typeDef(typeSpec))));
}
/* QAC EXPECT 3416; No unexpected side effects here */
} else if (idl_typeSpecType(typeSpec) == idl_tarray) {
snprintf (scopedTypeIdent, (size_t)sizeof(scopedTypeIdent), "%s",
idl_scopedSacSequenceTypeIdent (idl_typeArrayActual(idl_typeArray(typeSpec))));
} else if (idl_typeSpecType(typeSpec) == idl_tseq) {
snprintf (scopedTypeIdent, (size_t)sizeof(scopedTypeIdent), "%s",
idl_sequenceIdent(idl_typeSeq(typeSpec)));
} else {
/* Do nothing, only to prevent dangling else-ifs QAC messages */
}
return os_strdup(scopedTypeIdent);
}
/** @brief callback function called on definition of a named type in the IDL input file.
*
* Generate code for the following IDL construct:
* @verbatim
=> typedef <type-name> <name>;
@endverbatim
*
* @param scope Current scope
* @param name Specifies the name of the type
* @param defSpec Specifies the type of the named type
*/
static void
idl_typedefOpenClose(
idl_scope scope,
const char *name,
idl_typeDef defSpec,
void *userData)
{
int nameLen = strlen(idl_javaId(name)) + strlen("Holder") + 1;
char *holderName;
if (idl_typeSpecType(idl_typeDefRefered (defSpec)) == idl_tseq) {
holderName = os_malloc(nameLen);
snprintf(holderName, nameLen, "%sHolder", idl_javaId(name));
/* Open file for used scope, if needed create the directories */
idl_openJavaPackage(scope, holderName);
if (idl_fileCur() == NULL) {
return;
}
if (idl_scopeStackSize(scope) > 0) {
idl_fileOutPrintf(
idl_fileCur(),
"package %s;\n",
idl_scopeStackJava(scope, ".", NULL));
idl_fileOutPrintf(idl_fileCur(), "\n");
}
idl_fileOutPrintf(idl_fileCur(), "public final class %s\n{\n\n", holderName);
idl_fileOutPrintf(
idl_fileCur(),
" public %s%s value = null;\n\n",
idl_corbaJavaTypeFromTypeSpec(idl_typeSeqActual(idl_typeSeq(idl_typeDefRefered(defSpec)))),
idl_sequenceIndexString (idl_typeSeq (idl_typeDefRefered (defSpec))));
idl_fileOutPrintf(idl_fileCur(), " public %s () { }\n\n", holderName);
idl_fileOutPrintf(
idl_fileCur(),
" public %s (%s%s initialValue)\n",
holderName,
idl_corbaJavaTypeFromTypeSpec(idl_typeSeqActual(idl_typeSeq(idl_typeDefRefered(defSpec)))),
idl_sequenceIndexString(idl_typeSeq (idl_typeDefRefered (defSpec))));
idl_fileOutPrintf(idl_fileCur(), " {\n");
idl_fileOutPrintf(idl_fileCur(), " value = initialValue;\n");
idl_fileOutPrintf(idl_fileCur(), " }\n\n");
idl_fileOutPrintf(idl_fileCur(), "}\n");
/* close file */
idl_closeJavaPackage();
} else if (idl_typeSpecType(idl_typeDefRefered (defSpec)) == idl_tarray) {
holderName = os_malloc(nameLen);
snprintf(holderName, nameLen, "%sHolder", idl_javaId(name));
/* Open file for used scope, if needed create the directories */
idl_openJavaPackage(scope, holderName);
if (idl_fileCur() == NULL) {
return;
}
if (idl_scopeStackSize(scope) > 0) {
idl_fileOutPrintf(
idl_fileCur(),
"package %s;\n",
idl_scopeStackJava(scope, ".", NULL));
idl_fileOutPrintf(idl_fileCur(), "\n");
}
idl_fileOutPrintf(idl_fileCur(), "public final class %s\n{\n\n", holderName);
idl_fileOutPrintf(
idl_fileCur(),
" public %s%s value = null;\n\n",
idl_corbaJavaTypeFromTypeSpec(idl_typeArrayActual(idl_typeArray(idl_typeDefRefered(defSpec)))),
idl_arrayJavaIndexString (idl_typeArray (idl_typeDefRefered (defSpec))));
idl_fileOutPrintf(idl_fileCur(), " public %s () { }\n\n", holderName);
idl_fileOutPrintf(
idl_fileCur(),
" public %s (%s%s initialValue)\n",
holderName,
idl_corbaJavaTypeFromTypeSpec(idl_typeArrayActual(idl_typeArray(idl_typeDefRefered(defSpec)))),
idl_arrayJavaIndexString(idl_typeArray (idl_typeDefRefered (defSpec))));
idl_fileOutPrintf(idl_fileCur(), " {\n");
idl_fileOutPrintf(idl_fileCur(), " value = initialValue;\n");
idl_fileOutPrintf(idl_fileCur(), " }\n\n");
idl_fileOutPrintf(idl_fileCur(), "}\n");
/* close file */
idl_closeJavaPackage();
}
}
static void
idl_arrayTypeImpl(
idl_typeArray typeArray,
const char *name,
struct idl_genSACPPData *arg)
{
idl_typeSpec actualType;
idl_typeSpec subType;
c_ulong totalDim;
actualType = idl_typeArrayActual(typeArray);
subType = idl_typeArrayType(typeArray);
/* determine total buffer len, by multiplying all dimensions */
totalDim = idl_genArrayTotalDimension(typeArray);
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"template <>\n");
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"%s_slice *DDS_DCPS_ArrayHelper<%s, %s_slice, %s_uniq_>::alloc()\n",
name, name, name, name);
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"{\n");
idl_printIndent(arg->indent_level+1);
idl_fileOutPrintf(idl_fileCur(),"return %s_alloc();\n", name);
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"}\n\n");
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"template <>\n");
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"void DDS_DCPS_ArrayHelper<%s, %s_slice, %s_uniq_>::copy(%s_slice *to, const %s_slice *from)\n",
name, name, name, name, name);
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"{\n");
idl_printIndent(arg->indent_level+1);
idl_fileOutPrintf(idl_fileCur(),"%s_copy(to, from);\n", name);
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"}\n\n");
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"template <>\n");
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"void DDS_DCPS_ArrayHelper<%s, %s_slice, %s_uniq_>::free(%s_slice *ptr)\n",
name, name, name, name);
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"{\n");
idl_printIndent(arg->indent_level+1);
idl_fileOutPrintf(idl_fileCur(),"%s_free(ptr);\n", name);
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"}\n\n");
/* Generate implementation _alloc() method */
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"%s_slice *%s_alloc()\n", name, name);
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"{\n");
arg->indent_level++;
if ((idl_typeSpecType(actualType) == idl_tbasic) &&
(idl_typeBasicType(idl_typeBasic(actualType)) == idl_string)) {
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"::DDS::String_mgr *ret = (::DDS::String_mgr *) new ::DDS::String_mgr[%d];\n",totalDim);
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"for (::DDS::ULong i = 0; i < %d; i++) {\n", totalDim);
idl_printIndent(arg->indent_level+1);
idl_fileOutPrintf(idl_fileCur(),"ret[i] = (::DDS::String)NULL;\n");
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"}\n");
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"return (%s_slice *)ret;\n");
} else {
if (idl_typeSpecType(actualType) == idl_tseq) {
/* \TODO */
} else {
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"%s *ret = (%s *) new %s[%d];\n",
idl_corbaCxxTypeFromTypeSpec(actualType),
idl_corbaCxxTypeFromTypeSpec(actualType),
idl_corbaCxxTypeFromTypeSpec(actualType),
totalDim);
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"return (%s_slice *)ret;\n", name);
}
}
arg->indent_level--;
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"}\n\n");
/* Generate implementation _free() method:
* Implementation is independent of the actual type.
*/
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"void %s_free(%s_slice *s)\n", name, name);
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"{\n");
arg->indent_level++;
if ((idl_typeSpecType(actualType) == idl_tbasic) &&
(idl_typeBasicType(idl_typeBasic(actualType)) == idl_string)) {
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"if (s) {\n");
arg->indent_level++;
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"::DDS::String_mgr *base = (::DDS::String_mgr *)s;\n");
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"for (::DDS::ULong i = 0; i < %d; i++) {\n", totalDim);
idl_printIndent(arg->indent_level+1);
idl_fileOutPrintf(idl_fileCur(),"base[i] = (::DDS::String)NULL;\n");
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"}\n");
arg->indent_level--;
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"}\n");
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"delete [] s;\n");
} else {
if (idl_typeSpecType(actualType) == idl_tseq) {
/* \TODO */
} else {
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"delete [] s;\n");
}
}
arg->indent_level--;
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"}\n\n");
/* Generate implementation _copy() method */
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"void %s_copy(%s_slice *to, const %s_slice *from)\n",
name, name, name);
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"{\n");
arg->indent_level++;
if ((idl_typeSpecType(actualType) == idl_tbasic) &&
(idl_typeBasicType(idl_typeBasic(actualType)) == idl_string)) {
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"::DDS::String_mgr *sv = (::DDS::String_mgr *)from;\n");
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"::DDS::String_mgr *tv = (::DDS::String_mgr *)to;\n");
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"for (::DDS::ULong i = 0; i < %d; i++) {\n", totalDim);
idl_printIndent(arg->indent_level+1);
idl_fileOutPrintf(idl_fileCur(),"tv[i] = ::DDS::string_dup (sv[i]);\n");
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"}\n");
} else {
if (idl_typeSpecType(actualType) == idl_tseq) {
/* \TODO */
} else {
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"%s *sv = (%s *)from;\n",
idl_corbaCxxTypeFromTypeSpec(actualType),
idl_corbaCxxTypeFromTypeSpec(actualType));
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"%s *tv = (%s *)to;\n",
idl_corbaCxxTypeFromTypeSpec(actualType),
idl_corbaCxxTypeFromTypeSpec(actualType));
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"for (::DDS::ULong i = 0; i < %d; i++) {\n", totalDim);
idl_printIndent(arg->indent_level+1);
idl_fileOutPrintf(idl_fileCur(),"tv[i] = sv[i];\n");
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"}\n");
}
}
arg->indent_level--;
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"}\n\n");
/* Generate implementation _dup() method */
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"%s_slice *%s_dup(const %s_slice *from)\n",
name, name, name);
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"{\n");
arg->indent_level++;
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"%s_slice *to = %s_alloc();\n", name, name);
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"%s_copy(to, from);\n", name);
idl_printIndent(arg->indent_level);
idl_fileOutPrintf(idl_fileCur(),"return to;\n");
arg->indent_level--;
idl_fileOutPrintf(idl_fileCur(),"}\n\n");
}
/* Return the C specific type identifier for the
specified type specification
*/
c_char *
idl_corbaJavaTypeFromTypeSpec (
idl_typeSpec typeSpec)
{
c_char *typeName = NULL;
/* QAC EXPECT 3416; No side effects here */
if (idl_typeSpecType(typeSpec) == idl_tbasic) {
/* if the specified type is a basic type */
switch (idl_typeBasicType(idl_typeBasic(typeSpec))) {
case idl_short:
case idl_ushort:
typeName = os_strdup("short");
break;
case idl_long:
case idl_ulong:
typeName = os_strdup("int");
break;
case idl_longlong:
case idl_ulonglong:
typeName = os_strdup("long");
break;
case idl_float:
typeName = os_strdup("float");
break;
case idl_double:
typeName = os_strdup("double");
break;
case idl_char:
typeName = os_strdup("char");
break;
case idl_string:
typeName = os_strdup("java.lang.String");
break;
case idl_boolean:
typeName = os_strdup("boolean");
break;
case idl_octet:
typeName = os_strdup("byte");
break;
default:
/* No processing required, empty statement to satisfy QAC */
break;
/* QAC EXPECT 2016; Default case must be empty here */
}
/* QAC EXPECT 3416; No side effects here */
} else if (idl_typeSpecType(typeSpec) == idl_tseq) {
return idl_corbaJavaTypeFromTypeSpec (idl_typeSeqActual(idl_typeSeq (typeSpec)));
} else if (idl_typeSpecType(typeSpec) == idl_tarray) {
#if 0
/* sequence does not have an identification */
typeName = os_strdup ("");
printf ("idl_corbaJavaTypeFromTypeSpec: Unexpected type handled\n");
#else
return idl_corbaJavaTypeFromTypeSpec (idl_typeArrayActual(idl_typeArray (typeSpec)));
#endif
} else if (idl_typeSpecType(typeSpec) == idl_ttypedef) {
return idl_corbaJavaTypeFromTypeSpec (idl_typeDefActual(idl_typeDef (typeSpec)));
} else {
/* if a user type is specified build it from its scope and its name.
The type should be one of idl_ttypedef, idl_tenum, idl_tstruct,
idl_tunion.
*/
typeName = idl_scopeStackJava(
idl_typeUserScope(idl_typeUser(typeSpec)),
".",
idl_typeSpecName(typeSpec));
}
return typeName;
/* QAC EXPECT 5101; The switch statement is simple, therefor the total complexity is low */
}
/** @brief callback function called on definition of a named type in the IDL input file.
*
* Generate code for the following IDL construct:
* @verbatim
=> typedef <type-name> <name>;
@endverbatim
*
* This function generates a prototype for the helper function to
* load the typedef metadata if the typedef is defined
* within the global scope or the scope of a module.
* The name of the metadata load function is:
* @verbatim
__<scope-elements>_<name>__load
@endverbatim
* If the type specification is idl_tbasic a standard mapping will be applied:
* @verbatim
typedef <basic-type-mapping> <scope-elements>_<name>;
@endverbatim
* If the type specification is a user defined idl_ttypedef, idl_tenum,
* idl_tstruct or idl_tunion a scoped name mapping will be generated.
* @verbatim
<typedef-name> <name>; => typedef enum <scope-elements>_<typedef-name> <scope-elements>_<name>;
<enum-name> <name>; => typedef enum <scope-elements>_<enum-name> <scope-elements>_<name>;
<struct-name> <name>; => typedef struct <scope-elements>_<structure-name> <scope-elements>_<name>;
<union-name> <name>; => typedef struct <scope-elements>_<union-name> <scope-elements>_<name>;
@endverbatim
* If the type specification is idl_tarray then generate a scoped name
* with the array specifiers:
* @verbatim
<other-usertype-name> <name>[n1]..[nn]; =>
typedef <scope-elements>_<other-usertype-name> <scope-elements>_<name>[n1]..[nn];
<basic-type> <name>[n1]..[nn]; =>
typedef <basic-type-mapping> <scope-elements>_<name>[n1]..[nn];
sequence<spec> <name>[n1]..[nn]; =>
typedef c_array <scope-elements>_<name>[n1]..[nn];
sequence<spec,length> <name>[n1]..[nn]; =>
typedef c_array <scope-elements>_<name>[n1]..[nn];
@endverbatim
* If the type specification is idl_tseq then generate a mapping on c_sequence:
* @verbatim
sequence<spec> <name>; => typedef c_sequence <scope-elements>_<name>;
sequence<spec,length> <name>; => typedef c_sequence <scope-elements>_<name>;
@endverbatim
*
* @param scope Current scope
* @param name Specifies the name of the type
* @param defSpec Specifies the type of the named type
*/
static void
idl_typedefOpenClose(
idl_scope scope,
const char *name,
idl_typeDef defSpec,
void *userData)
{
if (idl_scopeStackSize(scope) == 0 || idl_scopeElementType (idl_scopeCur(scope)) == idl_tModule) {
idl_fileOutPrintf(
idl_fileCur(),
"extern c_metaObject __%s__load (c_base base);\n",
idl_scopeStack(scope, "_", name));
if (idl_typeSpecType(idl_typeDefActual(defSpec)) == idl_tstruct ||
idl_typeSpecType(idl_typeDefActual(defSpec)) == idl_tunion) {
/* If this is a typedef of a struct or union */
/* define the prototype of the function for querying the keys */
idl_fileOutPrintf(
idl_fileCur(),
"extern const char * __%s__keys (void);\n",
idl_scopeStack(scope, "_", name));
/* define the prototype of the function for querying scoped structure name */
idl_fileOutPrintf(
idl_fileCur(),
"extern const char * __%s__name (void);\n",
idl_scopeStack(scope, "_", name));
}
}
if (idl_typeSpecType(idl_typeSpec(idl_typeDefRefered(defSpec))) == idl_ttypedef ||
idl_typeSpecType(idl_typeSpec(idl_typeDefRefered(defSpec))) == idl_tenum ||
idl_typeSpecType(idl_typeSpec(idl_typeDefRefered(defSpec))) == idl_tstruct ||
idl_typeSpecType(idl_typeSpec(idl_typeDefRefered(defSpec))) == idl_tunion ||
idl_typeSpecType(idl_typeSpec(idl_typeDefRefered(defSpec))) == idl_tbasic) {
/* generate code for a standard mapping or a typedef, enum, struct or union user-type mapping */
idl_printIndent(indent_level);
idl_fileOutPrintf(
idl_fileCur(),
"typedef %s _%s;\n\n",
idl_scopedSplTypeIdent(idl_typeSpec(idl_typeDefRefered(defSpec))),
idl_scopeStack (scope, "_", name));
} else if (idl_typeSpecType(idl_typeSpec(idl_typeDefRefered(defSpec))) == idl_tarray) {
/* generate code for an array mapping */
idl_printIndent(indent_level);
idl_fileOutPrintf(
idl_fileCur(),
"typedef %s _%s",
idl_scopedSplTypeIdent(idl_typeArrayActual (idl_typeArray(idl_typeDefRefered(defSpec)))),
idl_scopeStack(scope, "_", name));
idl_arrayDimensions(idl_typeArray(idl_typeDefRefered(defSpec)), OS_FALSE);
idl_fileOutPrintf(idl_fileCur(), ";\n\n");
} else if (idl_typeSpecType(idl_typeSpec(idl_typeDefRefered(defSpec))) == idl_tseq) {
/* generate code for a sequence mapping */
idl_printIndent(indent_level);
if (idl_typeSeqMaxSize (idl_typeSeq(idl_typeDefRefered(defSpec))) == 0) {
/* unbounded sequence */
idl_fileOutPrintf(
idl_fileCur(),
"typedef c_sequence _%s",
idl_scopeStack (scope, "_", name));
} else {
/* bounded sequence */
idl_fileOutPrintf(
idl_fileCur(),
"typedef c_sequence _%s",
idl_scopeStack(scope, "_", name));
}
idl_fileOutPrintf (idl_fileCur(), ";\n\n");
} else {
printf("idl_typedefOpenClose: Unsupported typedef type (typename = %s, type = %s)\n",
name, idl_scopedTypeName(idl_typeSpec(defSpec)));
}
}
/** @brief callback function called on definition of a structure member in the IDL input file.
*
* Generate code for the following IDL construct:
* @verbatim
struct <structure-name> {
=> <structure-member-1>;
=> ... ...
=> <structure-member-n>;
};
@endverbatim
*
* If the type specification is idl_tbasic a standard mapping can be generated:
* @verbatim
string <name>; => c_string <name>;
string <name,length>; => c_string <name>;
char <name>; => c_char <name>;
octet <name>; => c_octet <name>;
short <name>; => c_short <name>;
unsigned short <name>; => c_ushort <name>;
long <name>; => c_long <name>;
unsigned long <name>; => c_ulong <name>;
long long <name>; => c_longlong <name>;
unsigned long long <name>; => c_ulonglong <name>;
float <name>; => c_float <name>;
double <name>; => c_double <name>;
boolean <name>; => c_bool <name>;
@endverbatim
* If the type specification is a user defined idl_ttypedef, idl_tenum,
* idl_tstruct or idl_tunion a scoped name mapping will be generated.
* @verbatim
<typedef-name> <name>; => enum <scope-elements>_<typedef-name> <name>;
<enum-name> <name>; => enum <scope-elements>_<enum-name> <name>;
<struct-name> <name>; => struct <scope-elements>_<structure-name> <name>;
<union-name> <name>; => struct <scope-elements>_<union-name> <name>;
@endverbatim
* If the type specification is idl_tarray then generate a scoped name
* with the array specifiers:
* @verbatim
<other-usertype-name> <name>[n1]..[nn]; => <scope-elements>_<other-usertype-name> <name>[n1]..[nn];
<basic-type> <name>[n1]..[nn]; => <basic-type-mapping> <name>[n1]..[nn];
sequence<spec> <name>[n1]..[nn]; => c_array <name>[n1]..[nn];
sequence<spec,length> <name>[n1]..[nn]; => c_array <name>[n1]..[nn];
@endverbatim
* If the type specification is idl_tseq then generate a mapping on c_sequence:
* @verbatim
sequence<spec> <name>; => c_sequence <name>;
sequence<spec,length> <name>; => c_sequence <name,length>;
@endverbatim
*
* @param scope Current scope
* @param name Name of the structure member
* @param typeSpec Type specification of the structure member
*/
static void
idl_structureMemberOpenClose(
idl_scope scope,
const char *name,
idl_typeSpec typeSpec,
void *userData)
{
if (idl_typeSpecType(typeSpec) == idl_ttypedef||
idl_typeSpecType(typeSpec) == idl_tenum ||
idl_typeSpecType(typeSpec) == idl_tstruct ||
idl_typeSpecType(typeSpec) == idl_tunion ||
idl_typeSpecType(typeSpec) == idl_tbasic)
{
os_boolean catsRequested = OS_FALSE;
os_boolean stacRequested = OS_FALSE;
idl_typeSpec baseTypeDereffered = NULL;
idl_typeSpec typeDereffered;
/* is a stac pragma defined for this member? */
stacRequested = idl_stacDef_isStacDefined(scope, name, typeSpec, &baseTypeDereffered);
if(!stacRequested)
{
/* Cats and stac def can not be defined over the same member as
* one excepts string types and the other char (array) types
*/
catsRequested = idl_catsDef_isCatsDefined(scope, name, typeSpec);
}
if(catsRequested)
{
assert(!stacRequested);
typeDereffered = idl_typeDefResolveFully(typeSpec);
idl_structureMemberOpenClose(scope, name, typeDereffered, userData);
} else if(stacRequested)
{
assert(baseTypeDereffered);
typeDereffered = idl_typeDefResolveFully(typeSpec);
idl_printIndent(indent_level);
idl_fileOutPrintf(idl_fileCur(), "c_char %s", idl_languageId (name));
/* potential array bounds */
if((idl_typeSpecType(typeDereffered) == idl_tarray))
{
idl_arrayDimensions(idl_typeArray(typeDereffered), OS_TRUE);
}
idl_fileOutPrintf(idl_fileCur(), "[%d];\n", idl_typeBasicMaxlen(idl_typeBasic(baseTypeDereffered))+1);
} else
{
/* generate code for a standard mapping or a typedef, enum, struct or union user-type mapping */
idl_printIndent(indent_level);
idl_fileOutPrintf(
idl_fileCur(),
"%s %s;\n",
idl_scopedSplTypeIdent(typeSpec),
idl_languageId(name));
}
} else if (idl_typeSpecType(typeSpec) == idl_tarray) {
/* generate code for an array mapping */
os_boolean catsRequested = OS_FALSE;
os_boolean stacRequested = OS_FALSE;
idl_typeSpec baseTypeDereffered = NULL;
/* is a stac pragma defined for this member? */
stacRequested = idl_stacDef_isStacDefined(scope, name, typeSpec, &baseTypeDereffered);
if(!stacRequested)
{
/* Cats and stac def can not be defined over the same member as
* one excepts string types and the other char (array) types
*/
catsRequested = idl_catsDef_isCatsDefined(scope, name, typeSpec);
}
if(catsRequested)
{
assert(!stacRequested);
idl_printIndent(indent_level);
idl_fileOutPrintf(idl_fileCur(), "c_string %s;\n", idl_languageId(name));
} else if(stacRequested)
{
assert(!catsRequested);
idl_printIndent(indent_level);
idl_fileOutPrintf(
idl_fileCur(),
"c_char %s",
idl_languageId(name));
idl_arrayDimensions(idl_typeArray(typeSpec), OS_TRUE);
idl_fileOutPrintf(idl_fileCur(),"[%d]", idl_typeBasicMaxlen(idl_typeBasic(baseTypeDereffered))+1);
idl_fileOutPrintf(idl_fileCur(), ";\n");
} else
{
idl_printIndent(indent_level);
if (idl_typeSpecType(idl_typeArrayActual (idl_typeArray(typeSpec))) != idl_tseq)
{
idl_fileOutPrintf(
idl_fileCur(),
"%s %s",
idl_scopedSplTypeIdent(idl_typeArrayActual(idl_typeArray(typeSpec))),
idl_languageId(name));
} else
{
idl_fileOutPrintf(idl_fileCur(), "c_array %s", idl_languageId (name));
}
idl_arrayDimensions(idl_typeArray(typeSpec), OS_FALSE);
idl_fileOutPrintf(idl_fileCur(), ";\n");
}
} else if (idl_typeSpecType(typeSpec) == idl_tseq) {
/* generate code for a sequence mapping */
idl_printIndent(indent_level);
if (idl_typeSeqMaxSize (idl_typeSeq(typeSpec)) == 0) {
/* unbounded sequence */
idl_fileOutPrintf(idl_fileCur(), "c_sequence %s", idl_languageId(name));
} else {
/* bounded sequence */
idl_fileOutPrintf (idl_fileCur(), "c_sequence %s", idl_languageId(name));
}
idl_fileOutPrintf (idl_fileCur(), ";\n");
} else {
printf ("idl_structureMemberOpenClose: Unsupported structure member type (member name = %s, type name = %s)\n",
name, idl_scopedTypeName(typeSpec));
}
}