Implemented glk_select_poll() (Fix #18)
[rodin/chimara.git] / tests / main.c
1 /* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
2 /*
3  * main.c
4  * Copyright (C) Philip en Marijn 2008 <>
5  * 
6  * main.c is free software copyrighted by Philip en Marijn.
7  * 
8  * Redistribution and use in source and binary forms, with or without
9  * modification, are permitted provided that the following conditions
10  * are met:
11  * 1. Redistributions of source code must retain the above copyright
12  *    notice, this list of conditions and the following disclaimer.
13  * 2. Redistributions in binary form must reproduce the above copyright
14  *    notice, this list of conditions and the following disclaimer in the
15  *    documentation and/or other materials provided with the distribution.
16  * 3. Neither the name ``Philip en Marijn'' nor the name of any other
17  *    contributor may be used to endorse or promote products derived
18  *    from this software without specific prior written permission.
19  * 
20  * main.c IS PROVIDED BY Philip en Marijn ``AS IS'' AND ANY EXPRESS
21  * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
22  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23  * ARE DISCLAIMED.  IN NO EVENT SHALL Philip en Marijn OR ANY OTHER CONTRIBUTORS
24  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
25  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
26  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
27  * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
28  * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
29  * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
30  * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
31  */
32
33 #include <sys/types.h>
34 #include <sys/stat.h>
35 #include <unistd.h>
36 #include <string.h>
37 #include <stdio.h>
38
39 #include <glib.h>
40 #include <glib/gi18n.h>
41 #include <gtk/gtk.h>
42
43 #include "callbacks.h"
44 #include "error.h"
45 #include <libchimara/chimara-glk.h>
46
47 /* Global pointers to widgets */
48 GtkBuilder *builder = NULL;
49 GtkWidget *window = NULL;
50 GtkWidget *glk = NULL;
51
52 static void
53 on_started(ChimaraGlk *glk)
54 {
55     g_printerr("Started!\n");
56 }
57
58 static void
59 on_stopped(ChimaraGlk *glk)
60 {
61     g_printerr("Stopped!\n");
62 }
63
64 static void
65 create_window(void)
66 {
67         if( (window = GTK_WIDGET(gtk_builder_get_object(builder, "gargoyle-gtk"))) == NULL ) {
68                 error_dialog(NULL, NULL, "Error while getting main window object");
69                 return;
70         }
71
72         gtk_builder_connect_signals(builder, NULL);
73         
74         glk = chimara_glk_new();
75         g_object_set(glk, "border-width", 6, "spacing", 6, NULL);
76         chimara_glk_set_default_font_string(CHIMARA_GLK(glk), "Serif 12");
77         chimara_glk_set_monospace_font_string(CHIMARA_GLK(glk), "Monospace 12");
78         g_signal_connect(glk, "started", G_CALLBACK(on_started), NULL);
79         g_signal_connect(glk, "stopped", G_CALLBACK(on_stopped), NULL);
80         
81         GtkBox *vbox = GTK_BOX( gtk_builder_get_object(builder, "vbox") );                      
82         if(vbox == NULL)
83         {
84                 error_dialog(NULL, NULL, "Could not find vbox");
85                 return;
86         }
87
88         gtk_box_pack_end(vbox, glk, TRUE, TRUE, 0);
89 }
90
91 int
92 main(int argc, char *argv[])
93 {
94         GError *error = NULL;
95
96 #ifdef ENABLE_NLS
97         bindtextdomain(GETTEXT_PACKAGE, PACKAGE_LOCALE_DIR);
98         bind_textdomain_codeset(GETTEXT_PACKAGE, "UTF-8");
99         textdomain(GETTEXT_PACKAGE);
100 #endif
101
102         if( !g_thread_supported() )
103                 g_thread_init(NULL);
104
105         gdk_threads_init();
106     
107         gtk_set_locale();
108         gtk_init(&argc, &argv);
109
110         builder = gtk_builder_new();
111         if( !gtk_builder_add_from_file(builder, "chimara.ui", &error) ) {
112                 error_dialog(NULL, error, "Error while building interface: ");  
113                 return 1;
114         }
115
116         create_window();
117         gtk_widget_show_all(window);
118
119         g_object_unref( G_OBJECT(builder) );
120
121     if( !chimara_glk_run(CHIMARA_GLK(glk), "../interpreters/frotz/.libs/frotz.so", argc, argv, &error) ) {
122                 error_dialog(GTK_WINDOW(window), error, "Error starting Glk library: ");
123                 return 1;
124         }
125
126     gdk_threads_enter();
127         gtk_main();
128         gdk_threads_leave();
129
130         chimara_glk_stop(CHIMARA_GLK(glk));
131         chimara_glk_wait(CHIMARA_GLK(glk));
132
133         return 0;
134 }