Release 0.92.2

[gob-dx.git] / src / test.gob

diff --git a/src/test.gob b/src/test.gob
index ac4fa0bd89e637e79d82edd38d74135f578ec0f4..3adbd25cd414c70b1a3589e1f11fe986edb97482 100644 (file)
--- a/src/test.gob
+++ b/src/test.gob
@@ -1,3 +1,24 @@
+/* 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
@@ -7,20 +28,39 @@
 #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);
 %}
 
 %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) {
                object->i=0;
@@ -37,6 +77,10 @@ class Gtk:Weird:Button from Gtk:Button {
        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)
@@ -44,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 {
@@ -72,20 +122,53 @@ class Gtk:Weird:Button from Gtk:Button {
                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])
        {
-               puts("TEST2");
+               /* 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),
@@ -97,7 +180,26 @@ class Gtk:Weird:Button from Gtk:Button {
                /* 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 */
+       }
 }
 
 %{