From: Philip Chimento Date: Sun, 2 May 2010 19:58:13 +0000 (+0000) Subject: Implemented garglk_set_program_name(), garglk_set_program_info(), garglk_set_story_name() X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=7e8eb7e80c6d900fc07412037d5b0a835d8ca1cd;p=rodin%2Fchimara.git Implemented garglk_set_program_name(), garglk_set_program_info(), garglk_set_story_name() git-svn-id: http://lassie.dyndns-server.com/svn/gargoyle-gtk@257 ddfedd41-794f-dd11-ae45-00112f111e67 --- diff --git a/libchimara/chimara-glk-private.h b/libchimara/chimara-glk-private.h index 7b00d0a..6743ecd 100644 --- a/libchimara/chimara-glk-private.h +++ b/libchimara/chimara-glk-private.h @@ -69,6 +69,10 @@ struct _ChimaraGlkPrivate { guint32 resource_available; /* *** Glk library data *** */ + /* Info about current plugin */ + gchar *program_name; + gchar *program_info; + gchar *story_name; /* User-defined interrupt handler */ void (*interrupt_handler)(void); /* Global tree of all windows */ diff --git a/libchimara/chimara-glk.c b/libchimara/chimara-glk.c index f0d946d..59f99ac 100644 --- a/libchimara/chimara-glk.c +++ b/libchimara/chimara-glk.c @@ -125,6 +125,9 @@ enum { PROP_INTERACTIVE, PROP_PROTECT, PROP_SPACING, + PROP_PROGRAM_NAME, + PROP_PROGRAM_INFO, + PROP_STORY_NAME }; enum { @@ -178,6 +181,9 @@ chimara_glk_init(ChimaraGlk *self) priv->resource_loaded = g_cond_new(); priv->resource_info_available = g_cond_new(); priv->image_cache = NULL; + priv->program_name = NULL; + priv->program_info = NULL; + priv->story_name = NULL; priv->interrupt_handler = NULL; priv->root_window = NULL; priv->fileref_list = NULL; @@ -227,7 +233,16 @@ chimara_glk_get_property(GObject *object, guint prop_id, GValue *value, GParamSp case PROP_SPACING: g_value_set_uint(value, priv->spacing); break; - default: + case PROP_PROGRAM_NAME: + g_value_set_string(value, priv->program_name); + break; + case PROP_PROGRAM_INFO: + g_value_set_string(value, priv->program_info); + break; + case PROP_STORY_NAME: + g_value_set_string(value, priv->story_name); + break; + default: G_OBJECT_WARN_INVALID_PROPERTY_ID(object, prop_id, pspec); } } @@ -286,6 +301,9 @@ chimara_glk_finalize(GObject *object) /* Free other stuff */ g_free(priv->current_dir); + g_free(priv->program_name); + g_free(priv->program_info); + g_free(priv->story_name); /* Chain up to parent */ G_OBJECT_CLASS(chimara_glk_parent_class)->finalize(object); @@ -630,6 +648,12 @@ chimara_glk_stopped(ChimaraGlk *self) { CHIMARA_GLK_USE_PRIVATE(self, priv); priv->running = FALSE; + priv->program_name = NULL; + g_object_notify(G_OBJECT(self), "program-name"); + priv->program_info = NULL; + g_object_notify(G_OBJECT(self), "program-info"); + priv->story_name = NULL; + g_object_notify(G_OBJECT(self), "story-name"); } static void @@ -815,7 +839,54 @@ chimara_glk_class_init(ChimaraGlkClass *klass) 0, G_MAXUINT, 0, G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_LAX_VALIDATION | G_PARAM_STATIC_STRINGS) ); - /* Private data */ + /** + * ChimaraGlk:program-name: + * + * The name of the currently running Glk program. You cannot set this + * property yourself. It is set to the filename of the plugin when you call + * chimara_glk_run(), but the plugin can change it by calling + * garglk_set_program_name(). To find out when this information changes, + * for example to put the program name in the title bar of a window, connect + * to the ::notify::program-name signal. + */ + g_object_class_install_property(object_class, PROP_PROGRAM_NAME, + g_param_spec_string("program-name", _("Program name"), + _("Name of the currently running program"), + NULL, + G_PARAM_READABLE | G_PARAM_STATIC_STRINGS) ); + + /** + * ChimaraGlk:program-info: + * + * Information about the currently running Glk program. You cannot set this + * property yourself. The plugin can change it by calling + * garglk_set_program_info(). See also #ChimaraGlk:program-name. + */ + g_object_class_install_property(object_class, PROP_PROGRAM_INFO, + g_param_spec_string("program-info", _("Program info"), + _("Information about the currently running program"), + NULL, + G_PARAM_READABLE | G_PARAM_STATIC_STRINGS) ); + + /** + * ChimaraGlk:story-name: + * + * The name of the story currently running in the Glk interpreter. You + * cannot set this property yourself. It is set to the story filename when + * you call chimara_if_run_game(), but the plugin can change it by calling + * garglk_set_story_name(). + * + * Strictly speaking, this should be a property of #ChimaraIF, but it is + * legal for any Glk program to call garglk_set_story_name(), even if it is + * not an interpreter and does not load story files. + */ + g_object_class_install_property(object_class, PROP_STORY_NAME, + g_param_spec_string("story-name", _("Story name"), + _("Name of the story currently loaded in the interpreter"), + NULL, + G_PARAM_READABLE | G_PARAM_STATIC_STRINGS) ); + + /* Private data */ g_type_class_add_private(klass, sizeof(ChimaraGlkPrivate)); } @@ -1159,11 +1230,15 @@ chimara_glk_run(ChimaraGlk *glk, const gchar *plugin, int argc, char *argv[], GE startup->args.argv = g_new0(gchar *, 1); } - /* Set the program name */ + /* Set the program invocation name */ startup->args.argv[0] = g_strdup(plugin); } startup->glk_data = priv; + /* Set the program name */ + priv->program_name = g_path_get_basename(plugin); + g_object_notify(G_OBJECT(glk), "program-name"); + /* Run in a separate thread */ priv->thread = g_thread_create((GThreadFunc)glk_enter, startup, TRUE, error); diff --git a/libchimara/chimara-if.c b/libchimara/chimara-if.c index cb0f425..2c26fbf 100644 --- a/libchimara/chimara-if.c +++ b/libchimara/chimara-if.c @@ -6,6 +6,7 @@ #include #include "chimara-if.h" #include "chimara-glk.h" +#include "chimara-glk-private.h" #include "chimara-marshallers.h" #include "init.h" @@ -642,7 +643,14 @@ chimara_if_run_game(ChimaraIF *self, gchar *gamefile, GError **error) GSList *ptr; for(count = 0, ptr = args; ptr; count++, ptr = g_slist_next(ptr)) argv[count] = ptr->data; - + + /* Set the story name */ + /* We peek into ChimaraGlk's private data here, because GObject has no + equivalent to "protected" */ + CHIMARA_GLK_USE_PRIVATE(self, glk_priv); + glk_priv->story_name = g_path_get_basename(gamefile); + g_object_notify(G_OBJECT(self), "story-name"); + gboolean retval = chimara_glk_run(CHIMARA_GLK(self), pluginpath, argc, argv, error); g_free(argv); if(terpnumstr) diff --git a/libchimara/garglk.c b/libchimara/garglk.c index b72fc59..1a657ec 100644 --- a/libchimara/garglk.c +++ b/libchimara/garglk.c @@ -32,13 +32,13 @@ garglk_fileref_get_name(frefid_t fref) * — for example, in the title bar of a window. A typical use of this * function would be: * |[ garglk_set_program_name("SuperGlkFrotz 0.1"); ]| - * - * This function is not currently implemented. */ void garglk_set_program_name(const char *name) { - WARNING(_("Not implemented")); + ChimaraGlkPrivate *glk_data = g_private_get(glk_data_key); + glk_data->program_name = g_strdup(name); + g_object_notify(G_OBJECT(glk_data->self), "program-name"); } /** @@ -56,13 +56,13 @@ garglk_set_program_name(const char *name) * "Glk port by Tor Andersson\n" * "Animation, networking, and evil AI by Sven Metcalfe"); * ]| - * - * This function is not currently implemented. */ void garglk_set_program_info(const char *info) { - WARNING(_("Not implemented")); + ChimaraGlkPrivate *glk_data = g_private_get(glk_data_key); + glk_data->program_info = g_strdup(info); + g_object_notify(G_OBJECT(glk_data->self), "program-info"); } /** @@ -75,13 +75,14 @@ garglk_set_program_info(const char *info) * anywhere — for example, in the title bar of a window. A typical use of * this function would be: * |[ garglk_set_story_name("Lighan Ses Lion, el Zarf"); ]| - * - * This function is not currently implemented. */ void garglk_set_story_name(const char *name) { - WARNING(_("Not implemented")); + g_printerr("garglk_set_story_name(\"%s\");\n", name); + ChimaraGlkPrivate *glk_data = g_private_get(glk_data_key); + glk_data->story_name = g_strdup(name); + g_object_notify(G_OBJECT(glk_data->self), "story-name"); } /**