Remove unused file girwriter.c

1 files changed, 0 insertions, 532 deletions

diff --git a/girepository/girwriter.c b/girepository/girwriter.c
deleted file mode 100644
index 2d18d145..00000000
--- a/girepository/girwriter.c
+++ /dev/null
@@ -1,532 +0,0 @@
-/* GObject introspection: gen-introspect
- *
- * Copyright (C) 2007  Jürg Billeter
- * Copyright (C) 2007  Johan Dahlin
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the
- * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
- * Boston, MA 02111-1307, USA.
- *
- * Author:
- * 	Jürg Billeter <j@bitron.ch>
- */
-
-#include <stdio.h>
-#include <glib.h>
-#include "scanner.h"
-#include "gidlnode.h"
-
-typedef struct {
-  int indent;
-  FILE *output;
-} GIdlWriter;
-
-static void node_generate (GIdlWriter * writer, GIdlNode * node);
-
-static void
-g_writer_write_inline (GIdlWriter * writer, const char *s)
-{
-  fprintf (writer->output, "%s", s);
-}
-
-static void
-g_writer_write (GIdlWriter * writer, const char *s)
-{
-  int i;
-  for (i = 0; i < writer->indent; i++)
-    {
-      fprintf (writer->output, "\t");
-    }
-
-  g_writer_write_inline (writer, s);
-}
-
-static void
-g_writer_write_indent (GIdlWriter * writer, const char *s)
-{
-  g_writer_write (writer, s);
-  writer->indent++;
-}
-
-static void
-g_writer_write_unindent (GIdlWriter * writer, const char *s)
-{
-  writer->indent--;
-  g_writer_write (writer, s);
-}
-
-static void
-field_generate (GIdlWriter * writer, GIdlNodeField * node)
-{
-  char *markup =
-    g_markup_printf_escaped ("<field name=\"%s\" type=\"%s\"/>\n",
-			     node->node.name, node->type->unparsed);
-  g_writer_write (writer, markup);
-  g_free (markup);
-}
-
-static void
-value_generate (GIdlWriter * writer, GIdlNodeValue * node)
-{
-  char *markup =
-    g_markup_printf_escaped ("<member name=\"%s\" value=\"%d\"/>\n",
-			     node->node.name, node->value);
-  g_writer_write (writer, markup);
-  g_free (markup);
-}
-
-static void
-constant_generate (GIdlWriter * writer, GIdlNodeConstant * node)
-{
-  char *markup =
-    g_markup_printf_escaped
-    ("<constant name=\"%s\" type=\"%s\" value=\"%s\"/>\n", node->node.name,
-     node->type->unparsed, node->value);
-  g_writer_write (writer, markup);
-  g_free (markup);
-}
-
-static void
-property_generate (GIdlWriter * writer, GIdlNodeProperty * node)
-{
-  char *markup =
-    g_markup_printf_escaped ("<property name=\"%s\" "
-			     "type=\"%s\" "
-			     "readable=\"%s\" "
-			     "writable=\"%s\" "
-			     "construct=\"%s\" "
-			     "construct-only=\"%s\"/>\n",
-			     node->node.name,
-			     node->type->unparsed,
-			     node->readable ? "1" : "0",
-			     node->writable ? "1" : "0",
-			     node->construct ? "1" : "0",
-			     node->construct_only ? "1" : "0");
-  g_writer_write (writer, markup);
-  g_free (markup);
-}
-
-static void
-function_generate (GIdlWriter * writer, GIdlNodeFunction * node)
-{
-  const char *tag_name;
-  GString *markup_s;
-  gchar *markup;
-
-  if (node->node.type == G_IR_NODE_CALLBACK)
-    tag_name = "callback";
-  else if (node->is_constructor)
-    tag_name = "constructor";
-  else if (node->is_method)
-    tag_name = "method";
-  else
-    tag_name = "function";
-
-  markup_s = g_string_new ("<");
-  g_string_append_printf (markup_s,
-			  "%s name=\"%s\"",
-			  tag_name, node->node.name);
-
-  if (node->node.type != G_IR_NODE_CALLBACK)
-    g_string_append_printf (markup_s,
-			    g_markup_printf_escaped (" symbol=\"%s\"", node->symbol));
-
-  if (node->deprecated)
-    g_string_append_printf (markup_s, " deprecated=\"1\"");
-
-  g_string_append (markup_s, ">\n");
-
-  g_writer_write_indent (writer, markup_s->str);
-  g_string_free (markup_s, TRUE);
-
-  markup_s =
-    g_string_new (g_markup_printf_escaped ("<return-type type=\"%s\"",
-			     node->result->type->unparsed));
-
-  if (node->result->transfer)
-    g_string_append (markup_s, g_markup_printf_escaped (" transfer=\"full\"/>\n"));
-  else
-    g_string_append (markup_s, "/>\n");
-
-  g_writer_write (writer, markup_s->str);
-  g_string_free (markup_s, TRUE);
-
-  if (node->parameters != NULL)
-    {
-      GList *l;
-      g_writer_write_indent (writer, "<parameters>\n");
-      for (l = node->parameters; l != NULL; l = l->next)
-	{
-	  GIdlNodeParam *param = l->data;
-	  const gchar *direction = g_idl_node_param_direction_string (param);
-
-	  markup_s = g_string_new ("<parameter");
-
-	  g_string_append_printf (markup_s, " name=\"%s\"", param->node.name);
-
-	  g_string_append (markup_s,
-			   g_markup_printf_escaped (" type=\"%s\"",
-						    param->type->unparsed));
-
-	  if (param->transfer)
-	    g_string_append (markup_s,
-			   g_markup_printf_escaped (" transfer=\"full\""));
-
-	  if (param->allow_none)
-	    g_string_append (markup_s,
-			     g_markup_printf_escaped (" allow-none=\"1\""));
-
-	  if (strcmp (direction, "in") != 0)
-	    g_string_append (markup_s,
-			     g_markup_printf_escaped (" direction=\"%s\"",
-						      direction));
-
-	  g_string_append (markup_s, "/>\n");
-
-	  g_writer_write (writer, markup_s->str);
-	  g_string_free (markup_s, TRUE);
-	}
-      g_writer_write_unindent (writer, "</parameters>\n");
-    }
-  markup = g_strdup_printf ("</%s>\n", tag_name);
-  g_writer_write_unindent (writer, markup);
-  g_free (markup);
-}
-
-static void
-vfunc_generate (GIdlWriter * writer, GIdlNodeVFunc * node)
-{
-  char *markup =
-    g_markup_printf_escaped ("<vfunc name=\"%s\">\n", node->node.name);
-  g_writer_write_indent (writer, markup);
-  g_free (markup);
-  markup =
-    g_markup_printf_escaped ("<return-type type=\"%s\"/>\n",
-			     node->result->type->unparsed);
-  g_writer_write (writer, markup);
-  g_free (markup);
-  if (node->parameters != NULL)
-    {
-      GList *l;
-      g_writer_write_indent (writer, "<parameters>\n");
-      for (l = node->parameters; l != NULL; l = l->next)
-	{
-	  GIdlNodeParam *param = l->data;
-	  markup =
-	    g_markup_printf_escaped ("<parameter name=\"%s\" type=\"%s\"/>\n",
-				     param->node.name, param->type->unparsed);
-	  g_writer_write (writer, markup);
-	  g_free (markup);
-	}
-      g_writer_write_unindent (writer, "</parameters>\n");
-    }
-  g_writer_write_unindent (writer, "</vfunc>\n");
-}
-
-static void
-signal_generate (GIdlWriter * writer, GIdlNodeSignal * node)
-{
-  char *markup;
-  const char *when = "LAST";
-  if (node->run_first)
-    {
-      when = "FIRST";
-    }
-  else if (node->run_cleanup)
-    {
-      when = "CLEANUP";
-    }
-  markup =
-    g_markup_printf_escaped ("<signal name=\"%s\" when=\"%s\">\n",
-			     node->node.name, when);
-  g_writer_write_indent (writer, markup);
-  g_free (markup);
-  markup =
-    g_markup_printf_escaped ("<return-type type=\"%s\"/>\n",
-			     node->result->type->unparsed);
-  g_writer_write (writer, markup);
-  g_free (markup);
-  if (node->parameters != NULL)
-    {
-      GList *l;
-      g_writer_write_indent (writer, "<parameters>\n");
-      for (l = node->parameters; l != NULL; l = l->next)
-	{
-	  GIdlNodeParam *param = l->data;
-	  markup =
-	    g_markup_printf_escaped ("<parameter name=\"%s\" type=\"%s\"/>\n",
-				     param->node.name, param->type->unparsed);
-	  g_writer_write (writer, markup);
-	  g_free (markup);
-	}
-      g_writer_write_unindent (writer, "</parameters>\n");
-    }
-  g_writer_write_unindent (writer, "</signal>\n");
-}
-
-static void
-interface_generate (GIdlWriter * writer, GIdlNodeInterface * node)
-{
-  GList *l;
-  char *markup;
-  if (node->node.type == G_IR_NODE_OBJECT)
-    {
-      markup =
-	g_markup_printf_escaped ("<object name=\"%s\" "
-				 "parent=\"%s\" "
-				 "type-name=\"%s\" "
-				 "get-type=\"%s\">\n",
-				 node->node.name,
-				 node->parent,
-				 node->gtype_name,
-				 node->gtype_init);
-    }
-  else if (node->node.type == G_IR_NODE_INTERFACE)
-    {
-      markup =
-	g_markup_printf_escaped
-	("<interface name=\"%s\" type-name=\"%s\" get-type=\"%s\">\n",
-	 node->node.name, node->gtype_name, node->gtype_init);
-    }
-
-  g_writer_write_indent (writer, markup);
-  g_free (markup);
-  if (node->node.type == G_IR_NODE_OBJECT && node->interfaces != NULL)
-    {
-      GList *l;
-      g_writer_write_indent (writer, "<implements>\n");
-      for (l = node->interfaces; l != NULL; l = l->next)
-	{
-	  markup =
-	    g_markup_printf_escaped ("<interface name=\"%s\"/>\n",
-				     (char *) l->data);
-	  g_writer_write (writer, markup);
-	  g_free (markup);
-	}
-      g_writer_write_unindent (writer, "</implements>\n");
-    }
-  else if (node->node.type == G_IR_NODE_INTERFACE
-	   && node->prerequisites != NULL)
-    {
-      GList *l;
-      g_writer_write_indent (writer, "<requires>\n");
-      for (l = node->prerequisites; l != NULL; l = l->next)
-	{
-	  markup =
-	    g_markup_printf_escaped ("<interface name=\"%s\"/>\n",
-				     (char *) l->data);
-	  g_writer_write (writer, markup);
-	  g_free (markup);
-	}
-      g_writer_write_unindent (writer, "</requires>\n");
-    }
-
-  for (l = node->members; l != NULL; l = l->next)
-    {
-      node_generate (writer, l->data);
-    }
-
-  if (node->node.type == G_IR_NODE_OBJECT)
-    {
-      g_writer_write_unindent (writer, "</object>\n");
-    }
-  else if (node->node.type == G_IR_NODE_INTERFACE)
-    {
-      g_writer_write_unindent (writer, "</interface>\n");
-    }
-}
-
-static void
-struct_generate (GIdlWriter * writer, GIdlNodeStruct * node)
-{
-  GList *l;
-  char *markup =
-    g_markup_printf_escaped ("<struct name=\"%s\">\n", node->node.name);
-  g_writer_write_indent (writer, markup);
-  g_free (markup);
-  for (l = node->members; l != NULL; l = l->next)
-    {
-      node_generate (writer, l->data);
-    }
-  g_writer_write_unindent (writer, "</struct>\n");
-}
-
-static void
-union_generate (GIdlWriter * writer, GIdlNodeUnion * node)
-{
-  GList *l;
-  char *markup =
-    g_markup_printf_escaped ("<union name=\"%s\">\n", node->node.name);
-  g_writer_write_indent (writer, markup);
-  g_free (markup);
-  for (l = node->members; l != NULL; l = l->next)
-    {
-      node_generate (writer, l->data);
-    }
-  g_writer_write_unindent (writer, "</union>\n");
-}
-
-static void
-boxed_generate (GIdlWriter * writer, GIdlNodeBoxed * node)
-{
-  GList *l;
-  char *markup =
-    g_markup_printf_escaped
-    ("<boxed name=\"%s\" type-name=\"%s\" get-type=\"%s\">\n",
-     node->node.name, node->gtype_name, node->gtype_init);
-  g_writer_write_indent (writer, markup);
-  g_free (markup);
-  for (l = node->members; l != NULL; l = l->next)
-    {
-      node_generate (writer, l->data);
-    }
-  g_writer_write_unindent (writer, "</boxed>\n");
-}
-
-static void
-enum_generate (GIdlWriter * writer, GIdlNodeEnum * node)
-{
-  GList *l;
-  GString *markup_s;
-  char *markup;
-  const char *tag_name = NULL;
-
-  if (node->node.type == G_IR_NODE_ENUM)
-    {
-      tag_name = "enum";
-    }
-  else if (node->node.type == G_IR_NODE_FLAGS)
-    {
-      tag_name = "flags";
-    }
-
-  markup_s = g_string_new ("<");
-  g_string_append_printf (markup_s,
-			  "%s name=\"%s\"",
-			  tag_name, node->node.name);
-
-  if (node->gtype_name != NULL)
-    g_string_append_printf (markup_s,
-			    g_markup_printf_escaped (" type-name=\"%s\"", node->gtype_name));
-
-  if (node->gtype_init != NULL)
-    g_string_append_printf (markup_s,
-			    g_markup_printf_escaped (" get-type=\"%s\"", node->gtype_init));
-
-  if (node->deprecated)
-    g_string_append_printf (markup_s, " deprecated=\"1\"");
-
-  g_string_append (markup_s, ">\n");
-
-  g_writer_write_indent (writer, markup_s->str);
-  g_string_free (markup_s, TRUE);
-
-  for (l = node->values; l != NULL; l = l->next)
-    {
-      node_generate (writer, l->data);
-    }
-
-  markup = g_strdup_printf ("</%s>\n", tag_name);
-  g_writer_write_unindent (writer, markup);
-  g_free (markup);
-}
-
-static void
-node_generate (GIdlWriter * writer, GIdlNode * node)
-{
-  switch (node->type)
-    {
-    case G_IR_NODE_FUNCTION:
-    case G_IR_NODE_CALLBACK:
-      function_generate (writer, (GIdlNodeFunction *) node);
-      break;
-    case G_IR_NODE_VFUNC:
-      vfunc_generate (writer, (GIdlNodeVFunc *) node);
-      break;
-    case G_IR_NODE_OBJECT:
-    case G_IR_NODE_INTERFACE:
-      interface_generate (writer, (GIdlNodeInterface *) node);
-      break;
-    case G_IR_NODE_STRUCT:
-      struct_generate (writer, (GIdlNodeStruct *) node);
-      break;
-    case G_IR_NODE_UNION:
-      union_generate (writer, (GIdlNodeUnion *) node);
-      break;
-    case G_IR_NODE_BOXED:
-      boxed_generate (writer, (GIdlNodeBoxed *) node);
-      break;
-    case G_IR_NODE_ENUM:
-    case G_IR_NODE_FLAGS:
-      enum_generate (writer, (GIdlNodeEnum *) node);
-      break;
-    case G_IR_NODE_PROPERTY:
-      property_generate (writer, (GIdlNodeProperty *) node);
-      break;
-    case G_IR_NODE_FIELD:
-      field_generate (writer, (GIdlNodeField *) node);
-      break;
-    case G_IR_NODE_SIGNAL:
-      signal_generate (writer, (GIdlNodeSignal *) node);
-      break;
-    case G_IR_NODE_VALUE:
-      value_generate (writer, (GIdlNodeValue *) node);
-      break;
-    case G_IR_NODE_CONSTANT:
-      constant_generate (writer, (GIdlNodeConstant *) node);
-      break;
-    default:
-      g_assert_not_reached ();
-    }
-}
-
-static void
-g_writer_write_module (GIdlWriter * writer, GIdlModule * module)
-{
-  GList *l;
-  char *markup =
-    g_markup_printf_escaped ("<namespace name=\"%s\">\n", module->name);
-  g_writer_write_indent (writer, markup);
-  g_free (markup);
-  for (l = module->entries; l != NULL; l = l->next)
-    {
-      node_generate (writer, l->data);
-    }
-  g_writer_write_unindent (writer, "</namespace>\n");
-}
-
-void
-g_idl_writer_save_file (GIdlModule *module,
-			const gchar *filename)
-{
-  GIdlWriter *writer;
-
-  writer = g_new0 (GIdlWriter, 1);
-
-  if (!filename)
-    writer->output = stdout;
-  else
-    writer->output = fopen (filename, "w");
-
-  g_writer_write (writer, "<?xml version=\"1.0\"?>\n");
-  g_writer_write_indent (writer, "<repository version=\"1.0\""
-			 "xmlns=\"http://www.gtk.org/introspection/core/1.0\""
-			 "xmlns:c=\"http://www.gtk.org/introspection/c/1.0\""
-			 "xmlns:glib=\"http://www.gtk.org/introspection/glib/1.0\">");
-  g_writer_write_module (writer, module);
-  g_writer_write_unindent (writer, "</repository>\n");
-
-  if (filename)
-    fclose (writer->output);
-}