Changeset 273 for trunk/idl-compiler

Timestamp:

Mar 25, 2007, 11:19:03 PM (18 years ago)

Author:

cinc

Message:

Code for H file emitter.

File:

• trunk/idl-compiler/h-emitter_c/h_file_emitter.c (modified) (1 diff)

trunk/idl-compiler/h-emitter_c/h_file_emitter.c

@@ -40 +40 @@
 #include "parser.h"
 
-
 extern GScanner *gScanner;
 
+static void emitHFileHeader(PPARSEINFO pLocalPI, PINTERFACE pif)
+{
+  FILE* fh=pLocalPI->outFile;
+  fprintf(fh, "/*\n * This file was generated by the NOM IDL compiler for Voyager - DO NOT EDIT!\n");
+  fprintf(fh, " *\n *\n * And remember, phase 3 is near...\n */\n");
+  fprintf(fh, "/*\n * %s\n */\n", pif->chrSourceFileName);
+
+  /* Protective #ifndef for whole file */
+  fprintf(fh, "#ifndef %s_H\n#define %s_H\n\n", pif->chrName, pif->chrName);
+
+  fprintf(fh, "#include <glib.h>\n");
+  fprintf(fh, "#include <nomcls.h> /* This is needed for _nomNew() */\n\n");
+
+  fprintf(fh, "#ifdef __cplusplus\n");
+  fprintf(fh, "extern \"C\" {\n");
+  fprintf(fh, "#endif /* __cplusplus */\n\n");
+
+  /* Define the name as an object */
+  fprintf(fh, "#if !defined(_%s_defined)\n", pif->chrName);
+  fprintf(fh, "#define _%s_defined 1\n", pif->chrName);
+  fprintf(fh, "#ifndef %s\n", pif->chrName);
+  fprintf(fh, "#define %s NOMObject\n", pif->chrName);
+  fprintf(fh, "typedef %s *P%s;\n", pif->chrName, pif->chrName);
+  fprintf(fh, "#endif\n");
+  fprintf(fh, "#endif\n\n");
+
+}
+
+/**
+   Returns the interface structure (holding all the interface information) of the
+   parent of an interface.
+
+   \Param pif Pointer to an interface structure.
+   \Returns The interface data structure of the parent interface or NULL if the
+   interface has no parent.
+
+ */
+static PINTERFACE getParentInterface(PINTERFACE pif)
+{
+  if(pif->chrParent==NULL)
+    return NULL;
+
+  return findInterfaceFromName(pif->chrParent);
+}
+
+static void emitParentHeader(PPARSEINFO pLocalPI, PINTERFACE pif)
+{
+  FILE* fh=pLocalPI->outFile;
+  PINTERFACE pifParent=getParentInterface(pif);
+
+  /* Include header of parent */
+  if(pifParent){
+    char* chrTemp=strlwr(g_strdup(pifParent->chrName));
+    fprintf(fh, "/* Include for the parent class */\n");
+    fprintf(fh, "#include \"%s.h\"\n\n", chrTemp);
+    g_free(chrTemp);
+  }
+}
+
+static void emitClassVersion(PPARSEINFO pLocalPI, PINTERFACE pif)
+{
+  FILE* fh=pLocalPI->outFile;
+
+  fprintf(fh, "#define %s_MajorVersion %ld\n", pif->chrName, pif->ulMajor);
+  fprintf(fh, "#define %s_MinorVersion %ld\n\n", pif->chrName, pif->ulMinor);
+}
+
+static void emitClassDataStruct(PPARSEINFO pLocalPI, PINTERFACE pif)
+{
+  int a;
+  FILE* fh=pLocalPI->outFile;
+
+  fprintf(fh, "/* Class data structure */\n");
+  fprintf(fh, "NOMEXTERN struct %sClassDataStructure {\n", pif->chrName);
+
+  fprintf(fh, "    NOMClass *classObject;\n");
+  /* Do introduced methods */
+  for(a=0;a<pif->pMethodArray->len;a++)
+    {
+      PMETHOD pm=(PMETHOD)g_ptr_array_index(pif->pMethodArray, a);
+      fprintf(fh, "    nomMToken %s;\n", pm->chrName);
+    }
+  fprintf(fh, "}%sClassData\n\n", pif->chrName);
+}
+
+
+static void emitObjectCheckFunction(PPARSEINFO pLocalPI, PINTERFACE pif)
+{
+  FILE* fh=pLocalPI->outFile;
+
+  fprintf(fh, "/* This function is used to check if a given object is valid and the\n");
+  fprintf(fh, "   object supports the method */\n");
+  fprintf(fh, "NOMEXTERN gboolean NOMLINK nomCheckObjectPtr(NOMObject *nomSelf, NOMClass* nomClass, gchar* chrMethodName, CORBA_Environment *ev);\n\n");
+}
+
+/*
+  \param pArray Pointer to the list of parameters.
+ */
+static void emitMethodParams(PPARSEINFO pLocalPI, PINTERFACE pif, GPtrArray *pArray)
+{
+  FILE* fh=pLocalPI->outFile;
+  int a;
+
+  for(a=0;a<pArray->len;a++)
+    {
+      int b;
+      PMETHODPARAM pm=(PMETHODPARAM)g_ptr_array_index(pArray, a);
+
+      switch(pm->uiDirection)
+        {
+        case PARM_DIRECTION_IN:
+          fprintf(fh, "    const %s", pm->chrType);
+          break;
+        case PARM_DIRECTION_OUT:
+          fprintf(fh, "    %s*", pm->chrType);
+          break;
+        case PARM_DIRECTION_INOUT:
+
+          break;
+        default:
+          fprintf(fh, "    %s*", pm->chrType);
+          break;
+        }
+      for(b=0;b<pm->uiStar;b++)
+        fprintf(fh, "*");
+      fprintf(fh, " %s,\n", pm->chrName);      
+    }
+}
+
+/*
+  \param pArray Pointer to the list of parameters.
+ */
+static void emitMethodParamsNoTypes(PPARSEINFO pLocalPI, PINTERFACE pif, GPtrArray *pArray)
+{
+  FILE* fh=pLocalPI->outFile;
+  int a;
+
+  for(a=0;a<pArray->len;a++)
+    {
+      PMETHODPARAM pm=(PMETHODPARAM)g_ptr_array_index(pArray, a);
+      fprintf(fh, " %s,", pm->chrName);      
+    }
+}
+
+static void emitNewMethods(PPARSEINFO pLocalPI, PINTERFACE pif)
+{
+  int a;
+  GPtrArray *pArray;
+  FILE* fh=pLocalPI->outFile;
+
+  pArray=pif->pMethodArray;
+
+  for(a=0;a<pArray->len;a++)
+    {
+      int b;
+      PMETHOD pm=(PMETHOD)g_ptr_array_index(pArray, a);
+
+      fprintf(fh, "/*\n * New method: %s \n */\n",  pm->chrName);
+      fprintf(fh, "#ifndef _decl_%s_%s_\n", pif->chrName, pm->chrName);
+      fprintf(fh, "#define _decl_%s_%s_\n\n", pif->chrName,  pm->chrName);
+
+      /* Do return type */
+      fprintf(fh, "typedef %s", pm->mpReturn.chrType);
+      for(b=0;b<pm->mpReturn.uiStar;b++)
+        fprintf(fh, "*");
+
+      fprintf(fh, " NOMLINK nomTP_%s_%s(%s* nomSelf,\n", pif->chrName,  pm->chrName, pif->chrName);
+
+      /* Do parameters */
+      emitMethodParams(pLocalPI, pif, pm->pParamArray);
+
+      fprintf(fh, "    Corba_Environment *ev);\n");
+      fprintf(fh, "typedef nomTP_%s_%s *nomTD_%s_%s\n", pif->chrName,  pm->chrName,
+              pif->chrName,  pm->chrName);
+      fprintf(fh, "/* define the name for this method */\n");
+      fprintf(fh, "#define nomMNDef_%s_%s \"%s\"\n", pif->chrName, pm->chrName,  pm->chrName);
+      fprintf(fh, "#define nomMNFullDef_%s_%s \"%s:%s\"\n",
+              pif->chrName, pm->chrName, pif->chrName, pm->chrName);
+
+      fprintf(fh, "/* define method call as a macro */\n");
+      fprintf(fh, "#ifndef NOM_NO_PARAM_CHECK /* Parameter check at all? */\n");
+      fprintf(fh, "#ifdef %s_%s_ParmCheck_h /* Extended parameter check enabled */\n",
+              pif->chrName, pm->chrName);
+      fprintf(fh, "NOMEXTERN gboolean NOMLINK parmCheckFunc_%s_%s(%s *nomSelf,\n",
+              pif->chrName,  pm->chrName, pif->chrName);
+      /* Do parameters */
+      emitMethodParams(pLocalPI, pif, pm->pParamArray);
+      fprintf(fh, "    Corba_Environment *ev);\n");
+
+      fprintf(fh, "#define %s_%s(nomSelf,", pif->chrName, pm->chrName);
+      /* Do parameters */
+      emitMethodParamsNoTypes(pLocalPI, pif, pm->pParamArray);
+      fprintf(fh, " ev) \\\n");
+      fprintf(fh, "        (parmCheckFunc_%s_%s(nomSelf,", pif->chrName, pm->chrName);
+      /* Do parameters */
+      emitMethodParamsNoTypes(pLocalPI, pif, pm->pParamArray);
+      fprintf(fh, " ev) ? \\\n");
+      fprintf(fh, "        (NOM_Resolve(nomSelf, %s, %s) \\\n", pif->chrName, pm->chrName);
+      fprintf(fh, "        (nomSelf,");
+      /* Do parameters */
+      emitMethodParamsNoTypes(pLocalPI, pif, pm->pParamArray);
+      fprintf(fh, " ev)) : %s_%s_retval)\n", pif->chrName, pm->chrName);
+      fprintf(fh, "#else /* Extended parameter check */\n");
+      fprintf(fh, "#define %s_%s(nomSelf,", pif->chrName, pm->chrName);
+      /* Do parameters */
+      emitMethodParamsNoTypes(pLocalPI, pif, pm->pParamArray);
+      fprintf(fh, " ev) \\\n");
+      fprintf(fh, "        (nomCheckObjectPtr((NOMObject*)nomSelf, %sClassData.classObject,",pif->chrName);
+      fprintf(fh, "\"%s_%s\", ev) ? \\\n", pif->chrName, pm->chrName);
+
+      fprintf(fh, "        (NOM_Resolve(nomSelf, %s, %s) \\\n", pif->chrName, pm->chrName);
+      fprintf(fh, "        (nomSelf,");
+      /* Do parameters */
+      emitMethodParamsNoTypes(pLocalPI, pif, pm->pParamArray);
+      fprintf(fh, " ev)) : (gpointer) NULL)\n");
+      fprintf(fh, "#endif\n");
+      fprintf(fh, "#else /* NOM_NO_PARAM_CHECK */\n");
+      fprintf(fh, "#define %s_%s(nomSelf,", pif->chrName, pm->chrName);
+      /* Do parameters */
+      emitMethodParamsNoTypes(pLocalPI, pif, pm->pParamArray);
+      fprintf(fh, " ev) \\\n");
+      fprintf(fh, "        (NOM_Resolve(nomSelf, %s, %s) \\\n", pif->chrName, pm->chrName);
+      fprintf(fh, "        (nomSelf,");
+      /* Do parameters */
+      emitMethodParamsNoTypes(pLocalPI, pif, pm->pParamArray);
+      fprintf(fh, " ev))\n");
+      fprintf(fh, "#endif\n");
+      fprintf(fh, "#define _%s %s_%s\n", pm->chrName, pif->chrName, pm->chrName);
+      fprintf(fh, "#endif /* _decl_%s_%s_ */ \n\n", pif->chrName,  pm->chrName);
+    }
+};
+
+static void emitHFileFooter(PPARSEINFO pLocalPI, PINTERFACE pif)
+{
+  FILE* fh=pLocalPI->outFile;
+
+  fprintf(fh, "#ifdef __cplusplus\n");
+  fprintf(fh, "}\n");
+  fprintf(fh, "#endif /* __cplusplus */\n\n");
+
+  fprintf(fh, "\n#endif /* %s_H */\n", pif->chrName);
+}
+
 void emitHFile(GPtrArray* pInterfaceArray)
 {
   int a;
-  PPARSEINFO pParseInfo=(PPARSEINFO)gScanner->user_data;
+  PPARSEINFO pLocalPI=(PPARSEINFO)gScanner->user_data;
 
   for(a=0;a<pInterfaceArray->len;a++)
     {
-      PINTERFACE pif=g_ptr_array_index(pParseInfo->pInterfaceArray, a); 
-      if(!strcmp(pif->chrSourceFileName, pParseInfo->chrRootSourceFile))
-        printInterface(pif);
-    }
-}
+      PINTERFACE pif=g_ptr_array_index(pLocalPI->pInterfaceArray, a); 
+      if(!strcmp(pif->chrSourceFileName, pLocalPI->chrRootSourceFile))
+        {
+          printInterface(pif);
+
+          emitHFileHeader(pLocalPI, pif);
+          emitParentHeader(pLocalPI, pif);
+          emitClassVersion(pLocalPI, pif);
+          emitClassDataStruct(pLocalPI, pif);
+          emitObjectCheckFunction(pLocalPI, pif);
+          emitNewMethods(pLocalPI, pif);
+          emitHFileFooter(pLocalPI, pif);
+        }
+    }
+}
+
+