X-Git-Url: https://git.draconx.ca/gitweb/gob-dx.git/blobdiff_plain/489e97ede850a8de01ca3bd653dce9c25dcd54a1..4cda31fc14f41746b4f3ced7015f9f15e0168dfc:/src/test.gob

diff --git a/src/test.gob b/src/test.gob
index 9dca3c8..b900902 100644
--- a/src/test.gob
+++ b/src/test.gob
@@ -56,6 +56,11 @@ union _gob__union_t {
 	int i, x, y, z;
 };
 void bubu(void);
+
+/* Fake boxed */
+#define PACKAGE_TYPE_BOXED 1
+typedef void * PackageBoxed;
+
 %}
 %header{
 /* this should be in the header, just under bubu prototype */
@@ -79,6 +84,14 @@ error TEST_OBJECT_ERROR {
 	BAD_THAT
 } Test:Object:Error;
 
+enum BUBLE {
+        KEIN = 0,
+        STANDARD,
+        STANDARD_RO,
+        KOMPLETT,
+        ALT
+} Buble:Enum;
+
 class Test:Object from G:Object
 	(interface Gtk:Tree:Model)
 	/* We can add more interfaces by adding more lines like the above */
@@ -108,9 +121,17 @@ class Test:Object from G:Object
 	argument POINTER testingstring stringlink;
 
 	public Test:Object * testingobj
-		destroywith g_object_unref;
+		unrefwith g_object_unref;
 	argument POINTER testingobj objectlink;
 
+	public Test:Object * testingobjllll
+		unrefwith gtk_widget_destroy;
+	argument POINTER testingobjllll objectlink;
+
+	public Test:Object * testingobjfoo
+		unref { if (VAR) g_object_unref (VAR); };
+	argument POINTER testingobjfoo objectlink;
+
 	classwide int foo = 20;
 	argument INT foo link;
 
@@ -187,11 +208,31 @@ class Test:Object from G:Object
 				link);
 
 	private Some:Flags flags_property;
-	property ENUM flags_property (nick   = "flagsprop",
+	property FLAGS flags_property (nick   = "flagsprop",
 				blurb  = "flagsprop",
 				flags_type = Some:Flags,
 				link);
 
+	  private PackageBoxed prop;
+	  property BOXED prop (nick="prop",
+			       blurb="prop",
+			       boxed_type=Package:Boxed,
+			       link);
+	  /* testing old semantics */
+	  private PackageBoxed prop2;
+	  property BOXED prop2 (nick="prop2",
+			       blurb="prop2",
+			       boxed_type=PACKAGE_TYPE_BOXED,
+			       link);
+
+	private char ov_prop;
+	property CHAR ov_prop
+		(export,
+		 override)
+		set { self->_priv->ov_prop = g_value_get_char (VAL); }
+		get { g_value_set_char (VAL, self->_priv->ov_prop); };
+
+
 	private int j;
 	public GObject * h;
 	public char *bleh;
@@ -247,6 +288,9 @@ class Test:Object from G:Object
 	char *
 	test_handler (self, GObject *w, int h, gpointer data)
 	{
+		data = w = NULL;
+		h = 0;
+			
 		return NULL;
 	}
 
@@ -270,6 +314,9 @@ class Test:Object from G:Object
 		test_object_connect_data__bleh (self, self_test_handler, NULL, NULL, 0);
 		self_connect_data__bleh (self, self_test_handler, NULL, NULL, 0);
 
+		wid = NULL;
+		h = 0;
+
 		/* testing multiple marshaller support */
 		return 0;
 	}
@@ -310,14 +357,17 @@ class Test:Object from G:Object
 	}*/
 	public int consttest(self, const gchar *text, ...)
 	{
+		text = NULL;
 		return 25;
 	}
 	public int consttest2(self, gchar const *text, ...)
 	{
+		text = NULL;
 		return 25;
 	}
 	public int consttest3(self, G:Object const *wid (check null type))
 	{
+		wid = NULL;
 		return 25;
 	}
 	public int consttest4(const self)
@@ -345,10 +395,14 @@ class Test:Object from G:Object
 	}
 	public int consttest9(const self, int i, double b)
 	{
+		b = 0.0;
+		i = 0;
 		return 25;
 	}
 	public int consttest10(self const, int i, double b)
 	{
+		b = 0.0;
+		i = 0;
 		return 25;
 	}
 	signal private first NONE (NONE)
@@ -390,26 +444,32 @@ class Test:Object from G:Object
 	{
 		puts("TEST3");
 		self_googlegoogle(self);
+		if (some_array[0]) return;
 	}
 	private virtual
 	void testprivvirtual2(self, const int some_array[5][8][9])
 	{
 		/* nothing here */
+		if (some_array[0]) return;
 	}
 	public virtual
 	void testpublicvirtual(self, int const some_array[5][8][9])
 	{
 		/* nothing here */
+		if (some_array[0]) return;
 	}
 	protected virtual
 	void testprotectedvirtual(self, int some_array[5][8][9])
 	{
 		/* nothing here */
+		if (some_array[0]) return;
 	}
-	signal first NONE (POINTER)
-	void testarrsignal(self, long arr[8])
+	signal first NONE (POINTER, ENUM)
+	void testarrsignal(self, long arr[8], Buble:Enum foo)
 	{
 		/* foo */
+		arr[0] = 1;
+		foo = BUBLE_KEIN;
 	}
 
 	/* testing empty func */
@@ -453,12 +513,16 @@ class Test:Object from G:Object
 	}
 
 	signal last NONE(CHAR,UCHAR,BOOLEAN,INT,UINT,LONG,ULONG,FLOAT,DOUBLE,
-			 STRING,ENUM,FLAGS,BOXED,POINTER,OBJECT)
+			 STRING,ENUM,POINTER,OBJECT)
 	void
 	testargs(self, gchar a, guchar b, gboolean c, gint d, guint e, glong f,
 		 gulong g, gfloat h, gdouble i, gchar * j, gint k,
-		 guint l, gpointer m, gpointer o, GObject *p)
+		 gpointer o, GObject *p)
 	{
+		h = i = k = 0;
+		a = b = c = d = e = f = g = 0;
+		o = p = (GObject *)NULL;
+		j = (char *)NULL;
 		/* ugh, testing casting */
 	}
 
@@ -476,6 +540,15 @@ class Test:Object from G:Object
 		return FALSE;
 	}
 
+	/* some more enum testing */
+	public BubleEnum buble;
+        property ENUM buble
+                (nick = "Buble",
+                 blurb = "Buble",
+                 enum_type = Buble:Enum,
+                 default_value = BUBLE_STANDARD,
+                 link, export);
+
 	/* testing types */
 	public int t1;
 	public long int t2;