]> git.draconx.ca Git - gob-dx.git/blobdiff - src/str.gob
Pull in dxcommon for library tests.
[gob-dx.git] / src / str.gob
diff --git a/src/str.gob b/src/str.gob
deleted file mode 100644 (file)
index 4936879..0000000
+++ /dev/null
@@ -1,73 +0,0 @@
-// A simple string class, a lot like GString but with full GObject
-// machinery and really short method names for the lazy :)
-
-%{
-#include <stdio.h>
-%}
-
-class :Str from G:Object {
-  private GString *contents;
-
-  public
-  void
-  print (self)
-  {
-    g_print ("%s", self->_priv->contents->str);
-  }
-
-   public
-   GObject *
-   new (const char *format (check null), ...) attr {G_GNUC_PRINTF (1, 2)}
-     onerror NULL defreturn NULL
-   {
-     va_list ap;
-     va_start (ap, format);
-     gchar *tmp = g_strdup_vprintf (format, ap);
-     va_end (ap);
-     
-     Self *self = (Self *) GET_NEW;
-     
-     self->_priv->contents = g_string_new (tmp);
-     
-     g_free (tmp);
-     
-     return G_OBJECT (self);
-   }
-
-   // It seems gob accepts defreturn on non-virtual non-signal types
-   // without complaint, though from the man page I'm not sure the
-   // resulting behavior is well defined.
-   public
-   char *
-   nonvirt_test (self, const char *format (check null), ...)
-     attr {G_GNUC_PRINTF (2,3)}
-     defreturn NULL
-   {
-     return NULL;
-   }
-
-   private
-   char *
-   private_test_method (self, const char *format (check null), ...)   
-     attr {G_GNUC_PRINTF (2, 3)}
-     defreturn NULL
-   {
-     return NULL;
-   }
-
-   public
-   char *
-   private_method_caller (self)
-   {
-     int much_too_general = 42;
-
-     // This should trigger a warning.
-     self_private_test_method (self, "want a string: %s", much_too_general);
-
-     // So should this.
-     str_private_test_method (self, "want a string: %s", much_too_general);
-
-     return NULL;
-   }
-}