Clear GModule pointer to prevent accidental re-use
[projects/chimara/chimara.git] / tests / plugin-loader.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  * plugin-loader.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 <config.h>
44 #include <libchimara/chimara-glk.h>
45
46 /* Global pointers to widgets */
47 GtkWidget *window = NULL;
48 GtkWidget *glk = NULL;
49
50 static gboolean
51 quit()
52 {
53     gtk_main_quit();
54     return TRUE;
55 }
56
57 static void
58 create_window(void)
59 {
60     window = gtk_window_new(GTK_WINDOW_TOPLEVEL);
61     gtk_widget_set_size_request(window, 400, 400);
62     g_signal_connect(window, "delete-event", G_CALLBACK(quit), NULL);
63         glk = chimara_glk_new();
64         g_object_ref(glk);
65         gtk_container_add(GTK_CONTAINER(window), glk);
66 }
67
68 static gchar *
69 resource_load(ChimaraResourceType usage, guint32 resnum)
70 {
71         char *resstr;
72         if(usage == CHIMARA_RESOURCE_IMAGE)
73                 resstr = "PIC";
74         else if(usage == CHIMARA_RESOURCE_SOUND)
75                 resstr = "SND";
76         else
77                 resstr = "FCK";
78         return g_strdup_printf("%s%d", resstr, resnum);
79 }
80
81 static GFile *
82 libname_from_la_file(char *la_filename)
83 {
84         GFile *la_file = g_file_new_for_commandline_arg(la_filename);
85         GFile *parentdir = g_file_get_parent(la_file);
86         GFile *objdir = g_file_get_child(parentdir, LT_OBJDIR);
87         g_object_unref(parentdir);
88
89         GFileInputStream *istream = g_file_read(la_file, NULL, NULL);
90         if(istream == NULL)
91                 return NULL;
92         GDataInputStream *stream = g_data_input_stream_new( G_INPUT_STREAM(istream) );
93
94         char *line;
95         char *dlname = NULL;
96         while( (line = g_data_input_stream_read_line(stream, NULL, NULL, NULL)) ) {
97                 if( g_str_has_prefix(line, "dlname=") ) {
98                         dlname = g_strdup( line + strlen("dlname='") );
99                         *(strrchr(dlname, '\'')) = '\0';
100                         g_free(line);
101                         break;
102                 }
103                 g_free(line);
104         }
105         if(dlname == NULL)
106                 return NULL;
107
108         g_input_stream_close(G_INPUT_STREAM (stream), NULL, NULL);
109
110         GFile *libfile = g_file_get_child(objdir, dlname);
111         g_free(dlname);
112
113         g_object_unref(la_file);
114         g_object_unref(objdir);
115         return libfile;
116 }
117
118 int
119 main(int argc, char *argv[])
120 {
121         GError *error = NULL;
122
123         gdk_threads_init();
124         gtk_init(&argc, &argv);
125
126         create_window();
127         gtk_widget_show_all(window);
128
129         if(argc < 2)
130                 g_error("Must provide a plugin\n");
131
132     GFile *plugin_file;
133     if( g_str_has_suffix(argv[1], ".la") )
134         plugin_file = libname_from_la_file(argv[1]);
135     else
136         plugin_file = g_file_new_for_commandline_arg(argv[1]);
137
138         chimara_glk_set_resource_load_callback(CHIMARA_GLK(glk), (ChimaraResourceLoadFunc)resource_load, NULL, NULL);
139
140     if( !chimara_glk_run_file(CHIMARA_GLK(glk), plugin_file,
141         argc - 1, argv + 1, &error) )
142                 g_error("Error starting Glk library: %s\n", error->message);
143     g_object_unref(plugin_file);
144
145     gdk_threads_enter();
146         gtk_main();
147         gdk_threads_leave();
148
149         chimara_glk_stop(CHIMARA_GLK(glk));
150         chimara_glk_wait(CHIMARA_GLK(glk));
151         g_object_unref(glk);
152
153         return 0;
154 }