X-Git-Url: http://git.draconx.ca/gitweb/gob-dx.git/blobdiff_plain/64034bc2613afefb289d1450411e69a0de4bce4e..e10d6e307623d0952f6e1f5d9fee8720ddab4808:/src/test.gob

diff --git a/src/test.gob b/src/test.gob
index bac330a..3adbd25 100644
--- a/src/test.gob
+++ b/src/test.gob
@@ -1,5 +1,37 @@
+/* this is a TEST file, it's VERY VERY ugly, it's just supposed to test
+   the parser of gob and somewhat test some output as well, you can
+   look in here to see a whole array of different syntax options, but
+   don't expect this to be an easy to read file */
+
+requires 0.92.1
+
+%headertop{
+/* this should go on the very top of the header */
+%}
+%ht{
+/* this should go on the very top of the header as well */
+%}
+%ph{
+/* this should go into the private header */
+%}
+%privateheader{
+/* this should go into the private header as well*/
+%}
+
+
 %{
 #include <stdio.h>
+/* the next line is not mandatory, but if gob finds an include in one of
+   the %{ %} sections above the class definitions, it will not put it in
+   the file itself.  So you can this way select where the include file is
+   at */
+#include "gtk-weird-button.h"
+#include "gtk-weird-button-private.h"
+
+/* this is to test if the lexer won't get confused by requires inside
+   some c code
+requires 99.99.99
+*/
 
 static void jjjj(void);
 %}
@@ -7,29 +39,48 @@ static void jjjj(void);
 %h{
 void bubu(void);
 %}
+%header{
+/* this should be in the header, just under bubu prototype */
+%}
 
 class Gtk:Weird:Button from Gtk:Button {
 	public int i;
 	argument INT i set { self->i = ARG; } get { ARG = self->i; } ;
+	argument POINTER (type GtkObject *) some_object
+		set { /* set some_object */ }
+		get { /* get some_object */
+			ARG=NULL; };
+	argument (CONSTRUCT) LONG (type long) write_only_long
+		set { /* set write_only_long */ };
+	argument POINTER (type char *) read_only_string
+		get { /* get readonly_long */
+			ARG = g_strdup("BLAH"); };
 	private int j;
 	public GtkWidget * h;
+	public char *bleh;
+	public double array[23][18];
+	protected unsigned long int wagawaga;
+	public int wagawaga_should_be_after_this_in_the_header;
 
 	init(object) {
-		GtkWeirdButton *but = GTK_WEIRD_BUTTON(object);
-		but->i=0;
+		object->i=0;
 	}
-	class_init(class);
+	class_init(klass);
 	public GtkWidget * new(int j (check > 0)) {
 		GtkWidget *ret;
 		ret = GTK_WIDGET (GET_NEW);
 
-		GTK_WEIRD_BUTTON(ret)->j = j;
+		GTK_WEIRD_BUTTON(ret)->_priv->j = j;
 
 		return ret;
 	}
 	private int blah(self, Gtk:Widget * wid (check null type),
 			 int h (check > 0)) onerror -1 {
 		gtk_container_add(GTK_CONTAINER(self),wid);
+
+		gtk_object_set(GTK_OBJECT(self),
+			       GTK_WEIRD_BUTTON_ARG_I(99),
+			       NULL);
 		return h;
 	}
 	signal last INT (POINTER, INT)
@@ -37,6 +88,12 @@ class Gtk:Weird:Button from Gtk:Button {
 		        int h (check > 0)) {
 		return blah(self,wid,h);
 	}
+	signal last INT (POINTER, INT)
+	int bleh2(self, Gtk:Widget * wid (check null type),
+		        int h (check > 0)) {
+		/* testing multiple marshaller support */
+		return 0;
+	}
 	signal first NONE (NONE)
 	void bloh(self);
 	virtual void * bah(self, int h (check > 0)) onerror NULL {
@@ -46,13 +103,103 @@ class Gtk:Weird:Button from Gtk:Button {
 	virtual int beh(self, int h (check > 0));
 	override(Gtk:Container) void add(Gtk:Container * self (check null type),
 				         Gtk:Widget * wid (check null type)) {
-		if (GTK_CONTAINER_CLASS (parent_class)->add)
-			(* GTK_CONTAINER_CLASS (parent_class)->add) (self,wid);
+		PARENT_HANDLER(self,wid);
 	}
 	public int consttest(self, const gchar *text, ...)
 	{
 		return 25;
 	}
+	signal private first NONE (NONE)
+	void googlegoogle(self)
+	{
+		puts("TEST1");
+		googlegoogle2(self);
+	}
+	signal first private NONE (NONE)
+	void googlegoogle2(self)
+	{
+		int array[5][8][9]={{{0}}};
+		puts("TEST2");
+		testprivvirtual(self,array);
+	}
+	private signal first NONE (NONE)
+	void googlegoogle3(self)
+	{
+		puts("TEST3");
+	}
+	protected signal first NONE (NONE)
+	void googlegoogle4(self)
+	{
+		puts("TEST4");
+	}
+	virtual private
+	void testprivvirtual(self, int some_array[5][8][9])
+	{
+		puts("TEST3");
+		googlegoogle(self);
+	}
+	private virtual
+	void testprivvirtual2(self, int some_array[5][8][9])
+	{
+		/* nothing here */
+	}
+	public virtual
+	void testpublicvirtual(self, int some_array[5][8][9])
+	{
+		/* nothing here */
+	}
+	protected virtual
+	void testprotectedvirtual(self, int some_array[5][8][9])
+	{
+		/* nothing here */
+	}
+	signal first NONE (POINTER)
+	void testarrsignal(self, long arr[8])
+	{
+		/* foo */
+	}
+
+	/* testing empty func */
+	public void foofoofoo(self) {}
+	/* testing empty func 2 */
+	public void foofoofoo2(self);
+	/* testing empty func 3 */
+	public void foofoofoo3(self) {   }
+	/* testing empty func 4 */
+	public void foofoofoo4(self)
+	{
+	}
+
+	override (Gtk:Widget)
+	int event(Gtk:Widget *self (check null type),
+		  GdkEvent *event (check null)) onerror FALSE
+	{
+		int ret;
+		/* some code */
+		ret = PARENT_HANDLER(self,event);
+		/* some code */
+		return ret;
+	}
+	override(Gtk:Container)
+	void
+	remove(Gtk:Container * self (check null type),
+	       Gtk:Widget * wid (check null type));
+
+	protected
+	int foobar(self) {
+		/* just an empty function */
+		return 5;
+	}
+
+	signal last NONE(CHAR,UCHAR,BOOL,INT,UINT,LONG,ULONG,FLOAT,DOUBLE,
+			 STRING,ENUM,FLAGS,BOXED,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, GtkObject *p)
+	{
+		/* ugh, testing casting */
+	}
 }
 
 %{