removed the gtk and perl interfaces for now, beefing up the internal structure

Author: James Michael DuPont

example_output.c

@@ -6,6 +6,10 @@ noname(),fields(
 	field(
 name("code"),
 declare_field_type(tree_code(6,"enumeral_type"),
+TYPE_NAME("tree_code"),
+	TYPE_SIZE_UNIT_val(4),
+	TYPE_PRECISION(32),
+	TYPE_UNSIGNED(1),
 TREE_CODE(6),
 ENUM(
 ENUMVALUE("ERROR_MARK",0),
@@ -292,9 +296,6 @@ ENUMVALUE("MESSAGE_SEND_EXPR",280),
 ENUMVALUE("CLASS_REFERENCE_EXPR",281),
 ENUMVALUE("MAX_TREE_CODES",282),
 0),/*enum*/
-	TYPE_SIZE_UNIT_val(4),
-	TYPE_PRECISION(32),
-	TYPE_UNSIGNED(1),
 0),/*ft*/
 CONSTRUCTOR_BITFIELD_P(),
 BIT_FIELD(),

field_type.c

@@ -9,6 +9,22 @@ void field_type_TYPE_SIZE_UNIT_value(tree t)
     fprintf( code_outputfile,PREFIX "\tTYPE_SIZE_UNIT_val(%ld),\n",tree_low_cst(TYPE_SIZE_UNIT(t),1));
   }
 }
+
+void field_type_TYPE_NAME(tree t)
+{
+  ENTER; if (TYPE_NAME(t)) {
+
+    if (TREE_CODE (TYPE_NAME (t)) == IDENTIFIER_NODE)
+      {
+	fprintf( code_outputfile,PREFIX "TYPE_NAME(\"%s\"),\n",IDENTIFIER_POINTER (TYPE_NAME(t)));
+      }
+    else if (TREE_CODE (TYPE_NAME (t)) == TYPE_DECL
+	     && DECL_NAME (TYPE_NAME (t)))
+      {
+	fprintf( code_outputfile,PREFIX "TYPE_NAME(DECL_NAME(\"%s\")),\n",IDENTIFIER_POINTER (DECL_NAME(TYPE_NAME(t))));
+      }    
+  }
+}
 void field_type_TYPE_UNSIGNED(tree t)
 {
   ENTER; if (TYPE_UNSIGNED(t)) {
@@ -29,6 +45,16 @@ void field_type_EXPR_P(tree t)
     fprintf( code_outputfile,PREFIX "\tEXPR_P(%d),\n",EXPR_P(t));
   }
 }
+void field_type_TYPE_MAIN_VARIANT(tree t)
+{
+  ENTER; if (TYPE_MAIN_VARIANT(t)) {
+    //   fprintf( code_outputfile,PREFIX "TYPE_MAIN_VARIANT\n");
+    fprintf( code_outputfile,PREFIX "TYPE_MAIN_VARIANT(\n");
+    //    field_type(TYPE_MAIN_VARIANT(t));
+    field_type_TYPE_NAME(TYPE_MAIN_VARIANT(t));
+    fprintf( code_outputfile,PREFIX "),\n");
+  }
+}
 
 void field_type_TREE_CONSTANT(tree t)
 {
@@ -1714,27 +1740,15 @@ void field_type_TYPE_SYMTAB_DIE(tree t)
     //struct die_struct *
   }
 }
-void field_type_TYPE_NAME(tree t)
-{
-  ENTER; if (TYPE_NAME(t)) {
-    fprintf( code_outputfile,PREFIX "TYPE_NAME\n");
-    fprintf( code_outputfile,PREFIX "TYPE_NAME %p\n",TYPE_NAME(t));
-  }
-}
+
 void field_type_TYPE_NEXT_VARIANT(tree t)
 {
   ENTER; if (TYPE_NEXT_VARIANT(t)) {
     fprintf( code_outputfile,PREFIX "TYPE_NEXT_VARIANT\n");
     fprintf( code_outputfile,PREFIX "TYPE_NEXT_VARIANT %p\n",TYPE_NEXT_VARIANT(t));
   }
 }
-void field_type_TYPE_MAIN_VARIANT(tree t)
-{
-  ENTER; if (TYPE_MAIN_VARIANT(t)) {
-    fprintf( code_outputfile,PREFIX "TYPE_MAIN_VARIANT\n");
-    fprintf( code_outputfile,PREFIX "TYPE_MAIN_VARIANT %p\n",TYPE_MAIN_VARIANT(t));
-  }
-}
+
 void field_type_TYPE_CONTEXT(tree t)
 {
   ENTER; if (TYPE_CONTEXT(t)) {
@@ -3030,12 +3044,16 @@ void field_type_MAIN_NAME_P(tree t)
 void field_type(tree t)
 {
   fprintf( code_outputfile, "declare_field_type(tree_code(%d,\"%s\"),\n", TREE_CODE(t),tree_code_name[TREE_CODE(t)]);
-  field_type_TREE_CODE(t);
+  field_type_TYPE_NAME(t);
+
+  //  field_type_TYPE_MAIN_VARIANT(t);
+  //  tree type = TYPE_MAIN_VARIANT(orig_type);
   //  field_type_TYPE_SIZE_UNIT(t);
   field_type_TYPE_SIZE_UNIT_value(t);
   field_type_TYPE_PRECISION(t);
   field_type_TYPE_UNSIGNED(t);
   field_type_TREE_CONSTANT(t);
+  field_type_TREE_CODE(t);
   fprintf( code_outputfile,"0),/*ft*/\n");// field_type
 
   return;
@@ -3419,7 +3437,7 @@ void field_type(tree t)
   field_type_TYPE_LANG_FLAG_6(t);
   field_type_TYPE_LANG_SLOT_1(t);
   field_type_TYPE_LANG_SPECIFIC(t);
-  field_type_TYPE_MAIN_VARIANT(t);
+
   field_type_TYPE_MAXVAL(t);
   field_type_TYPE_MAX_VALUE(t);
   field_type_TYPE_METHODS(t);

field_type_switch.c

@@ -37,7 +37,8 @@ void field_type_GCC_BLOCK(tree t){emit_tree_code("GCC_BLOCK");
 };
 void field_type_OFFSET_TYPE(tree t){emit_tree_code("OFFSET_TYPE");
 };
-void field_type_ENUMERAL_TYPE(tree t){emit_tree_code("ENUMERAL_TYPE");
+void field_type_ENUMERAL_TYPE(tree t){
+  emit_tree_code("ENUMERAL_TYPE");
   field_type_ENUMERAL_TYPE2(t);
 };
 void field_type_BOOLEAN_TYPE(tree t){emit_tree_code("BOOLEAN_TYPE");

gccinterface.c

@@ -19,3 +19,7 @@ void fields(){}
 void noname(){}
 void finish_type(){}
 void start_plugin(){}
+void DECL_NAME(const char * pname){
+  printf("Typename %s\n", pname);
+}
+void TYPE_NAME(){}

hello2.c

@@ -1,4 +1,4 @@
-typedef enum tree_code {
+enum tree_code  {
 ERROR_MARK,
 IDENTIFIER_NODE,
 TREE_LIST,
@@ -282,10 +282,10 @@ CLASS_METHOD_DECL,
 MESSAGE_SEND_EXPR,
 CLASS_REFERENCE_EXPR,
 MAX_TREE_CODES
-} t_tree_code;
+} ;
 
 
 struct funky
 {
-  t_tree_code code;
+  enum tree_code code;
 };