Add Glk unit test framework
[projects/chimara/chimara.git] / player / 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 <glib/gstdio.h>
42 #include <gtk/gtk.h>
43
44 /* Use a custom GSettings backend for our preferences file */
45 #define G_SETTINGS_ENABLE_BACKEND
46 #include <gio/gsettingsbackend.h>
47
48 #include "error.h"
49 #include <libchimara/chimara-glk.h>
50 #include <libchimara/chimara-if.h>
51
52 #include "preferences.h"
53
54 /* Static global pointers to widgets */
55 static GtkUIManager *uimanager = NULL;
56 static GtkWidget *window = NULL;
57 static GtkWidget *glk = NULL;
58
59 /* Global global pointers */
60 GtkBuilder *builder = NULL;
61 GtkWidget *aboutwindow = NULL;
62 GtkWidget *prefswindow = NULL;
63 GtkWidget *toolbar = NULL;
64 GSettings *prefs_settings = NULL;
65 GSettings *state_settings = NULL;
66
67 GObject *
68 load_object(const gchar *name)
69 {
70         GObject *retval;
71         if( (retval = gtk_builder_get_object(builder, name)) == NULL) {
72                 error_dialog(NULL, NULL, "Error while getting object '%s'", name);
73                 g_error("Error while getting object '%s'", name);
74         }
75         return retval;
76 }
77
78 static void
79 change_window_title(ChimaraGlk *glk, GParamSpec *pspec, GtkWindow *window)
80 {
81         gchar *program_name, *story_name, *title;
82         g_object_get(glk, "program-name", &program_name, "story-name", &story_name, NULL);
83         if(!program_name) {
84                 gtk_window_set_title(window, "Chimara");
85                 return;
86         }
87         else if(!story_name)
88                 title = g_strdup_printf("%s - Chimara", program_name);
89         else
90                 title = g_strdup_printf("%s - %s - Chimara", program_name, story_name);
91                 
92         g_free(program_name);
93         g_free(story_name);
94         gtk_window_set_title(window, title);
95         g_free(title);
96 }
97
98 static gboolean
99 create_window(void)
100 {
101         GError *error = NULL;
102
103         builder = gtk_builder_new();
104         if( !gtk_builder_add_from_file(builder, PACKAGE_DATA_DIR "/chimara.ui", &error) ) {
105 #ifdef DEBUG
106                 g_error_free(error);
107                 error = NULL;
108                 if( !gtk_builder_add_from_file(builder, PACKAGE_SRC_DIR "/chimara.ui", &error) ) {
109 #endif /* DEBUG */
110                         return FALSE;
111 #ifdef DEBUG
112                 }
113 #endif /* DEBUG */
114         }
115
116         window = GTK_WIDGET(load_object("chimara"));
117         aboutwindow = GTK_WIDGET(load_object("aboutwindow"));
118         prefswindow = GTK_WIDGET(load_object("prefswindow"));
119         GtkActionGroup *actiongroup = GTK_ACTION_GROUP(load_object("actiongroup"));
120
121         /* Set the default value of the "View/Toolbar" menu item upon creation of a
122          new window to the "show-toolbar-default" setting, but bind the setting
123          one-way only - we don't want toolbars to disappear suddenly */
124         GtkToggleAction *toolbar_action = GTK_TOGGLE_ACTION(load_object("toolbar"));
125         gtk_toggle_action_set_active(toolbar_action, g_settings_get_boolean(state_settings, "show-toolbar-default"));
126         g_settings_bind(state_settings, "show-toolbar-default", toolbar_action, "active", G_SETTINGS_BIND_SET);
127
128         const gchar **ptr;
129         GtkRecentFilter *filter = gtk_recent_filter_new();
130         /* TODO: Use mimetypes and construct the filter dynamically depending on 
131         what plugins are installed */
132         const gchar *patterns[] = {
133                 "*.z[1-8]", "*.[zg]lb", "*.[zg]blorb", "*.ulx", "*.blb", "*.blorb", NULL
134         };
135
136         for(ptr = patterns; *ptr; ptr++)
137                 gtk_recent_filter_add_pattern(filter, *ptr);
138         GtkRecentChooser *recent = GTK_RECENT_CHOOSER(load_object("recent"));
139         gtk_recent_chooser_add_filter(recent, filter);
140
141         uimanager = gtk_ui_manager_new();
142         if( !gtk_ui_manager_add_ui_from_file(uimanager, PACKAGE_DATA_DIR "/chimara.menus", &error) ) {
143 #ifdef DEBUG
144                 g_error_free(error);
145                 error = NULL;
146                 if( !gtk_ui_manager_add_ui_from_file(uimanager, PACKAGE_SRC_DIR "/chimara.menus", &error) )
147 #endif /* DEBUG */
148                         return FALSE;
149         }
150
151         glk = chimara_if_new();
152         g_object_set(glk,
153             "ignore-errors", TRUE,
154             /*"interpreter-number", CHIMARA_IF_ZMACHINE_TANDY_COLOR,*/
155             NULL);
156         if( !chimara_glk_set_css_from_file(CHIMARA_GLK(glk), PACKAGE_DATA_DIR "/style.css", &error) ) {
157 #ifdef DEBUG
158                 g_error_free(error);
159                 error = NULL;
160                 if( !chimara_glk_set_css_from_file(CHIMARA_GLK(glk), PACKAGE_SRC_DIR "/style.css", &error) )
161 #endif /* DEBUG */
162                         return FALSE;
163         }
164         
165         /* DON'T UNCOMMENT THIS your eyes will burn
166          but it is a good test of programmatically altering just one style
167         chimara_glk_set_css_from_string(CHIMARA_GLK(glk),
168             "buffer { font-family: 'Comic Sans MS'; }");*/
169         
170         GtkBox *vbox = GTK_BOX( gtk_builder_get_object(builder, "vbox") );                      
171         if(vbox == NULL)
172                 return FALSE;
173
174         gtk_ui_manager_insert_action_group(uimanager, actiongroup, 0);
175         GtkWidget *menubar = gtk_ui_manager_get_widget(uimanager, "/menubar");
176         toolbar = gtk_ui_manager_get_widget(uimanager, "/toolbar");
177         gtk_widget_set_no_show_all(toolbar, TRUE);
178         if(gtk_toggle_action_get_active(toolbar_action))
179                 gtk_widget_show(toolbar);
180         else
181                 gtk_widget_hide(toolbar);
182
183         /* Connect the accelerators */
184         GtkAccelGroup *accels = gtk_ui_manager_get_accel_group(uimanager);
185         gtk_window_add_accel_group(GTK_WINDOW(window), accels);
186
187         gtk_box_pack_end(vbox, glk, TRUE, TRUE, 0);
188         gtk_box_pack_start(vbox, menubar, FALSE, FALSE, 0);
189         gtk_box_pack_start(vbox, toolbar, FALSE, FALSE, 0);
190         
191         gtk_builder_connect_signals(builder, glk);
192         g_signal_connect(glk, "notify::program-name", G_CALLBACK(change_window_title), window);
193         g_signal_connect(glk, "notify::story-name", G_CALLBACK(change_window_title), window);
194         
195         /* Create preferences window */
196         preferences_create(CHIMARA_GLK(glk));
197
198         return TRUE;
199 }
200
201 int
202 main(int argc, char *argv[])
203 {
204         GError *error = NULL;
205
206 #ifdef ENABLE_NLS
207         bindtextdomain(GETTEXT_PACKAGE, PACKAGE_LOCALE_DIR);
208         bind_textdomain_codeset(GETTEXT_PACKAGE, "UTF-8");
209         textdomain(GETTEXT_PACKAGE);
210 #endif
211
212         gdk_threads_init();
213         gtk_init(&argc, &argv);
214
215         /* Create configuration dir ~/.chimara */
216         gchar *configdir = g_build_filename(g_get_home_dir(), ".chimara", NULL);
217         if(!g_file_test(configdir, G_FILE_TEST_IS_DIR)
218                 && g_mkdir(configdir, S_IRWXU | S_IRWXG | S_IROTH | S_IXOTH) != 0)
219                 g_error(_("Cannot create configuration directory ~/.chimara"));
220         g_free(configdir);
221
222         /* Initialize settings file; it can be overridden by a "chimara-config" file
223          in the current directory */
224         gchar *keyfile;
225         if(g_file_test("chimara-config", G_FILE_TEST_IS_REGULAR))
226                 keyfile = g_strdup("chimara-config");
227         else
228                 keyfile = g_build_filename(g_get_home_dir(), ".chimara", "config", NULL);
229         GSettingsBackend *backend = g_keyfile_settings_backend_new(keyfile, "/org/chimara-if/player/", NULL);
230         prefs_settings = g_settings_new_with_backend("org.chimara-if.player.preferences", backend);
231         state_settings = g_settings_new_with_backend("org.chimara-if.player.state", backend);
232         g_free(keyfile);
233
234         if( !create_window() ) {
235                 error_dialog(NULL, NULL, "Error while building interface.");
236                 return 1;
237         }
238         gtk_widget_show_all(window);
239
240         g_object_unref( G_OBJECT(uimanager) );
241
242         if(argc == 3) {
243                 g_object_set(glk, "graphics-file", argv[2], NULL);
244         }
245         if(argc >= 2) {
246                 if( !chimara_if_run_game(CHIMARA_IF(glk), argv[1], &error) ) {
247                         error_dialog(GTK_WINDOW(window), error, "Error starting Glk library: ");
248                         return 1;
249                 }
250         }
251
252     gdk_threads_enter();
253         gtk_main();
254         gdk_threads_leave();
255
256         chimara_glk_stop(CHIMARA_GLK(glk));
257         chimara_glk_wait(CHIMARA_GLK(glk));
258
259         g_object_unref( G_OBJECT(builder) );
260
261         return 0;
262 }