4 #include <glib-object.h>
6 #include <glib/gi18n-lib.h>
7 #include "chimara-if.h"
8 #include "chimara-glk.h"
9 #include "chimara-marshallers.h"
14 * @short_description: Widget which plays an interactive fiction game
15 * @stability: Unstable
16 * @include: chimara/chimara-if.h
18 * The #ChimaraIF widget, given an interactive fiction game file to run, selects
19 * an appropriate interpreter plugin and runs it. Interpreter options are set by
20 * setting properties on the widget.
23 static gboolean supported_formats[CHIMARA_IF_NUM_FORMATS][CHIMARA_IF_NUM_INTERPRETERS] = {
24 /* Frotz Nitfol Glulxe Git */
25 { TRUE, TRUE, FALSE, FALSE }, /* Z5 */
26 { TRUE, TRUE, FALSE, FALSE }, /* Z6 */
27 { TRUE, TRUE, FALSE, FALSE }, /* Z8 */
28 { TRUE, TRUE, FALSE, FALSE }, /* Zblorb */
29 { FALSE, FALSE, TRUE, TRUE }, /* Glulx */
30 { FALSE, FALSE, TRUE, TRUE } /* Gblorb */
32 static gchar *format_names[CHIMARA_IF_NUM_FORMATS] = {
33 N_("Z-code version 5"),
34 N_("Z-code version 6"),
35 N_("Z-code version 8"),
40 static gchar *interpreter_names[CHIMARA_IF_NUM_INTERPRETERS] = {
41 N_("Frotz"), N_("Nitfol"), N_("Glulxe"), N_("Git")
43 static gchar *plugin_names[CHIMARA_IF_NUM_INTERPRETERS] = {
44 "frotz", "nitfol", "glulxe", "git"
47 typedef enum _ChimaraIFFlags {
48 CHIMARA_IF_PIRACY_MODE = 1 << 0,
49 CHIMARA_IF_TANDY_BIT = 1 << 1,
50 CHIMARA_IF_EXPAND_ABBREVIATIONS = 1 << 2,
51 CHIMARA_IF_IGNORE_ERRORS = 1 << 3,
52 CHIMARA_IF_TYPO_CORRECTION = 1 << 4
55 typedef struct _ChimaraIFPrivate {
56 ChimaraIFInterpreter preferred_interpreter[CHIMARA_IF_NUM_FORMATS];
57 ChimaraIFFormat format;
58 ChimaraIFInterpreter interpreter;
60 ChimaraIFZmachineVersion interpreter_number;
62 gboolean random_seed_set;
63 /* Holding buffers for input and response */
68 #define CHIMARA_IF_PRIVATE(o) (G_TYPE_INSTANCE_GET_PRIVATE((o), CHIMARA_TYPE_IF, ChimaraIFPrivate))
69 #define CHIMARA_IF_USE_PRIVATE(o, n) ChimaraIFPrivate *n = CHIMARA_IF_PRIVATE(o)
75 PROP_EXPAND_ABBREVIATIONS,
78 PROP_INTERPRETER_NUMBER,
88 static guint chimara_if_signals[LAST_SIGNAL] = { 0 };
90 G_DEFINE_TYPE(ChimaraIF, chimara_if, CHIMARA_TYPE_GLK);
93 chimara_if_waiting(ChimaraGlk *glk)
95 CHIMARA_IF_USE_PRIVATE(glk, priv);
97 gchar *response = g_string_free(priv->response, FALSE);
98 priv->response = g_string_new("");
100 g_signal_emit_by_name(glk, "command", priv->input, response);
108 chimara_if_stopped(ChimaraGlk *glk)
110 CHIMARA_IF_USE_PRIVATE(glk, priv);
112 if(priv->input || priv->response->len > 0)
113 chimara_if_waiting(glk); /* Send one last command signal */
115 priv->format = CHIMARA_IF_FORMAT_NONE;
116 priv->interpreter = CHIMARA_IF_INTERPRETER_NONE;
120 chimara_if_line_input(ChimaraGlk *glk, guint32 win_rock, gchar *input)
122 CHIMARA_IF_USE_PRIVATE(glk, priv);
123 g_assert(priv->input == NULL);
124 priv->input = g_strdup(input);
128 chimara_if_text_buffer_output(ChimaraGlk *glk, guint32 win_rock, gchar *output)
130 CHIMARA_IF_USE_PRIVATE(glk, priv);
131 g_string_append(priv->response, output);
135 chimara_if_init(ChimaraIF *self)
137 CHIMARA_IF_USE_PRIVATE(self, priv);
138 priv->preferred_interpreter[CHIMARA_IF_FORMAT_Z5] = CHIMARA_IF_INTERPRETER_FROTZ;
139 priv->preferred_interpreter[CHIMARA_IF_FORMAT_Z6] = CHIMARA_IF_INTERPRETER_FROTZ;
140 priv->preferred_interpreter[CHIMARA_IF_FORMAT_Z8] = CHIMARA_IF_INTERPRETER_FROTZ;
141 priv->preferred_interpreter[CHIMARA_IF_FORMAT_Z_BLORB] = CHIMARA_IF_INTERPRETER_FROTZ;
142 priv->preferred_interpreter[CHIMARA_IF_FORMAT_GLULX] = CHIMARA_IF_INTERPRETER_GLULXE;
143 priv->preferred_interpreter[CHIMARA_IF_FORMAT_GLULX_BLORB] = CHIMARA_IF_INTERPRETER_GLULXE;
144 priv->format = CHIMARA_IF_FORMAT_NONE;
145 priv->interpreter = CHIMARA_IF_INTERPRETER_NONE;
146 priv->flags = CHIMARA_IF_TYPO_CORRECTION;
147 priv->interpreter_number = CHIMARA_IF_ZMACHINE_DEFAULT;
148 priv->random_seed_set = FALSE;
150 priv->response = g_string_new("");
152 /* Connect to signals of ChimaraGlk parent */
153 g_signal_connect(self, "stopped", G_CALLBACK(chimara_if_stopped), NULL);
154 g_signal_connect(self, "waiting", G_CALLBACK(chimara_if_waiting), NULL);
155 g_signal_connect(self, "line-input", G_CALLBACK(chimara_if_line_input), NULL);
156 g_signal_connect(self, "text-buffer-output", G_CALLBACK(chimara_if_text_buffer_output), NULL);
159 #define PROCESS_FLAG(flags, flag, val) (flags) = (val)? (flags) | (flag) : (flags) & ~(flag)
162 chimara_if_set_property(GObject *object, guint prop_id, const GValue *value, GParamSpec *pspec)
164 CHIMARA_IF_USE_PRIVATE(object, priv);
167 case PROP_PIRACY_MODE:
168 PROCESS_FLAG(priv->flags, CHIMARA_IF_PIRACY_MODE, g_value_get_boolean(value));
169 g_object_notify(object, "piracy-mode");
172 PROCESS_FLAG(priv->flags, CHIMARA_IF_TANDY_BIT, g_value_get_boolean(value));
173 g_object_notify(object, "tandy-bit");
175 case PROP_EXPAND_ABBREVIATIONS:
176 PROCESS_FLAG(priv->flags, CHIMARA_IF_EXPAND_ABBREVIATIONS, g_value_get_boolean(value));
177 g_object_notify(object, "expand-abbreviations");
179 case PROP_IGNORE_ERRORS:
180 PROCESS_FLAG(priv->flags, CHIMARA_IF_IGNORE_ERRORS, g_value_get_boolean(value));
181 g_object_notify(object, "ignore-errors");
183 case PROP_TYPO_CORRECTION:
184 PROCESS_FLAG(priv->flags, CHIMARA_IF_TYPO_CORRECTION, g_value_get_boolean(value));
185 g_object_notify(object, "typo-correction");
187 case PROP_INTERPRETER_NUMBER:
188 priv->interpreter_number = g_value_get_uint(value);
189 g_object_notify(object, "interpreter-number");
191 case PROP_RANDOM_SEED:
192 priv->random_seed = g_value_get_int(value);
193 g_object_notify(object, "random-seed");
195 case PROP_RANDOM_SEED_SET:
196 priv->random_seed_set = g_value_get_boolean(value);
197 g_object_notify(object, "random-seed-set");
200 G_OBJECT_WARN_INVALID_PROPERTY_ID(object, prop_id, pspec);
205 chimara_if_get_property(GObject *object, guint prop_id, GValue *value, GParamSpec *pspec)
207 CHIMARA_IF_USE_PRIVATE(object, priv);
210 case PROP_PIRACY_MODE:
211 g_value_set_boolean(value, priv->flags & CHIMARA_IF_PIRACY_MODE);
214 g_value_set_boolean(value, priv->flags & CHIMARA_IF_TANDY_BIT);
216 case PROP_EXPAND_ABBREVIATIONS:
217 g_value_set_boolean(value, priv->flags & CHIMARA_IF_EXPAND_ABBREVIATIONS);
219 case PROP_IGNORE_ERRORS:
220 g_value_set_boolean(value, priv->flags & CHIMARA_IF_IGNORE_ERRORS);
222 case PROP_TYPO_CORRECTION:
223 g_value_set_boolean(value, priv->flags & CHIMARA_IF_TYPO_CORRECTION);
225 case PROP_INTERPRETER_NUMBER:
226 g_value_set_uint(value, priv->interpreter_number);
228 case PROP_RANDOM_SEED:
229 g_value_set_int(value, priv->random_seed);
231 case PROP_RANDOM_SEED_SET:
232 g_value_set_boolean(value, priv->random_seed_set);
235 G_OBJECT_WARN_INVALID_PROPERTY_ID(object, prop_id, pspec);
240 chimara_if_finalize(GObject *object)
242 G_OBJECT_CLASS(chimara_if_parent_class)->finalize(object);
246 chimara_if_command(ChimaraIF *self, gchar *input, gchar *response)
248 /* Default signal handler */
251 /* G_PARAM_STATIC_STRINGS only appeared in GTK 2.13.0 */
252 #ifndef G_PARAM_STATIC_STRINGS
253 #define G_PARAM_STATIC_STRINGS (G_PARAM_STATIC_NAME | G_PARAM_STATIC_NICK | G_PARAM_STATIC_BLURB)
257 chimara_if_class_init(ChimaraIFClass *klass)
259 /* Override methods of parent classes */
260 GObjectClass *object_class = G_OBJECT_CLASS(klass);
261 object_class->set_property = chimara_if_set_property;
262 object_class->get_property = chimara_if_get_property;
263 object_class->finalize = chimara_if_finalize;
266 klass->command = chimara_if_command;
268 * ChimaraIF::command:
269 * @self: The widget that received the signal
270 * @input: The command typed into the game
271 * @response: The game's response to the command
273 * Emitted once for each input-response cycle of an interactive fiction
274 * game. Note that games with nontraditional input systems (i.e. not all
275 * taking place in the same text buffer window) may throw this signal for a
278 chimara_if_signals[COMMAND] = g_signal_new("command",
279 G_OBJECT_CLASS_TYPE(klass), 0,
280 G_STRUCT_OFFSET(ChimaraIFClass, command), NULL, NULL,
281 chimara_marshal_VOID__STRING_STRING,
282 G_TYPE_NONE, 2, G_TYPE_STRING, G_TYPE_STRING);
286 * ChimaraIF:piracy-mode:
288 * The Z-machine specification defines a facility for games to ask the
289 * interpreter they are running on whether this copy of the game is pirated.
290 * How the interpreter is supposed to magically determine that it is running
291 * pirate software is unclear, and so the majority of games and interpreters
292 * ignore this feature. Set this property to %TRUE if you want the
293 * interpreter to pretend it has detected a pirated game.
295 * Only affects Z-machine interpreters.
297 g_object_class_install_property(object_class, PROP_PIRACY_MODE,
298 g_param_spec_boolean("piracy-mode", _("Piracy mode"),
299 _("Pretend the game is pirated"), FALSE,
300 G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_LAX_VALIDATION | G_PARAM_STATIC_STRINGS));
302 * ChimaraIF:tandy-bit:
304 * Some early Infocom games were sold by the Tandy Corporation. Setting this
305 * property to %TRUE changes the wording of some Version 3 Infocom games
306 * slightly, so as to be less offensive. See <ulink
307 * url="http://www.ifarchive.org/if-archive/infocom/info/tandy_bits.html">
308 * http://www.ifarchive.org/if-archive/infocom/info/tandy_bits.html</ulink>.
310 * Only affects Z-machine interpreters.
312 g_object_class_install_property(object_class, PROP_TANDY_BIT,
313 g_param_spec_boolean("tandy-bit", _("Tandy bit"),
314 _("Censor certain Infocom games"), FALSE,
315 G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_LAX_VALIDATION | G_PARAM_STATIC_STRINGS));
317 * ChimaraIF:expand-abbreviations:
319 * Most Z-machine games, in particular ones compiled with the Inform
320 * library, support the following one-letter abbreviations:
322 * <member>D — Down</member>
323 * <member>E — East</member>
324 * <member>G — aGain</member>
325 * <member>I — Inventory</member>
326 * <member>L — Look</member>
327 * <member>N — North</member>
328 * <member>O — Oops</member>
329 * <member>Q — Quit</member>
330 * <member>S — South</member>
331 * <member>U — Up</member>
332 * <member>W — West</member>
333 * <member>X — eXamine</member>
334 * <member>Y — Yes</member>
335 * <member>Z — wait (ZZZZ...)</member>
337 * Some early Infocom games might not recognize these abbreviations. Setting
338 * this property to %TRUE will cause the interpreter to expand the
339 * abbreviations to the full words before passing the commands on to the
340 * game. Frotz only expands G, X, and Z; Nitfol expands all of the above
341 * plus the following nonstandard ones:
343 * <member>C — Close</member>
344 * <member>K — attacK</member>
345 * <member>P — oPen</member>
346 * <member>R — dRop</member>
347 * <member>T — Take</member>
350 * Only affects Z-machine interpreters. Behaves differently on Frotz and
353 g_object_class_install_property(object_class, PROP_EXPAND_ABBREVIATIONS,
354 g_param_spec_boolean("expand-abbreviations", _("Expand abbreviations"),
355 _("Expand abbreviations such as X for EXAMINE"), FALSE,
356 G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_LAX_VALIDATION | G_PARAM_STATIC_STRINGS));
358 * ChimaraIF:ignore-errors:
360 * Setting this property to %TRUE will cause the interpreter to ignore
361 * certain Z-machine runtime errors. Frotz will ignore any fatal errors.
362 * Nitfol by default warns about any shady behavior, and this property will
363 * turn those warnings off.
365 * Only affects Z-machine interpreters. Behaves differently on Frotz and
368 g_object_class_install_property(object_class, PROP_IGNORE_ERRORS,
369 g_param_spec_boolean("ignore-errors", _("Ignore errors"),
370 _("Do not warn the user about Z-machine errors"), FALSE,
371 G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_LAX_VALIDATION | G_PARAM_STATIC_STRINGS));
373 * ChimaraIF:typo-correction:
375 * Nitfol has an automatic typo-correction facility, where it searches the
376 * game dictionary for words which differ by one letter from any unknown
377 * input words. Set this property to %FALSE to turn this feature off.
379 * Only affects Nitfol.
381 g_object_class_install_property(object_class, PROP_TYPO_CORRECTION,
382 g_param_spec_boolean("typo-correction", _("Typo correction"),
383 _("Try to remedy typos if the interpreter supports it"), TRUE,
384 G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_LAX_VALIDATION | G_PARAM_STATIC_STRINGS));
386 * ChimaraIF:interpreter-number:
388 * Infocom gave each port of their interpreter a different number. The Frotz
389 * and Nitfol plugins can emulate any of these platforms. Some games behave
390 * slightly differently depending on what platform they are on. Set this
391 * property to a #ChimaraIFZmachineVersion value to emulate a certain
394 * Note that Nitfol pretends to be an Apple IIe by default.
396 * Only affects Z-machine interpreters.
398 g_object_class_install_property(object_class, PROP_INTERPRETER_NUMBER,
399 g_param_spec_uint("interpreter-number", _("Interpreter number"),
400 _("Platform the Z-machine should pretend it is running on"),
401 CHIMARA_IF_ZMACHINE_DEFAULT, CHIMARA_IF_ZMACHINE_MAXVAL, CHIMARA_IF_ZMACHINE_DEFAULT,
402 G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_LAX_VALIDATION | G_PARAM_STATIC_STRINGS));
404 * ChimaraIF:random-seed:
406 * If the #ChimaraIF:random-seed-set property is %TRUE, then the interpreter
407 * will use the value of this property as a seed for the random number
408 * generator. Use this feature to duplicate sequences of random numbers
411 * Note that the value -1 is a valid random number seed for
412 * Nitfol, whereas it will cause Frotz to pick an arbitrary seed even when
413 * #ChimaraIF:random-seed-set is %TRUE.
415 * Only affects Z-machine interpreters. Behaves slightly differently on
418 g_object_class_install_property(object_class, PROP_RANDOM_SEED,
419 g_param_spec_int("random-seed", _("Random seed"),
420 _("Seed for the random number generator"), G_MININT, G_MAXINT, 0,
421 G_PARAM_READWRITE | G_PARAM_LAX_VALIDATION | G_PARAM_STATIC_STRINGS));
423 * ChimaraIF:random-seed-set:
425 * Whether to use or ignore the #ChimaraIF:random-seed property.
427 * Only affects Z-machine interpreters.
429 g_object_class_install_property(object_class, PROP_RANDOM_SEED_SET,
430 g_param_spec_boolean("random-seed-set", _("Random seed set"),
431 _("Whether the seed for the random number generator should be set manually"), FALSE,
432 G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_LAX_VALIDATION | G_PARAM_STATIC_STRINGS));
435 g_type_class_add_private(klass, sizeof(ChimaraIFPrivate));
438 /* PUBLIC FUNCTIONS */
443 * Creates and initializes a new #ChimaraIF widget.
445 * Return value: a #ChimaraIF widget, with a floating reference.
450 /* This is a library entry point; initialize the library */
452 return GTK_WIDGET(g_object_new(CHIMARA_TYPE_IF, NULL));
456 * chimara_if_set_preferred_interpreter:
457 * @self: A #ChimaraIF widget.
458 * @format: The game format to set the preferred interpreter plugin for.
459 * @interpreter: The preferred interpreter plugin for @format.
461 * The function chimara_if_run_game() picks an appropriate interpreter for the
462 * type of game file it is given. This function sets which interpreter is picked
463 * for a certain game file format. Most formats, notably the Z-machine, have
464 * had many different interpreters written for them over the years, all with
465 * slightly different quirks and capabilities, so there is plenty of choice.
468 chimara_if_set_preferred_interpreter(ChimaraIF *self, ChimaraIFFormat format, ChimaraIFInterpreter interpreter)
470 g_return_if_fail(self && CHIMARA_IS_IF(self));
471 g_return_if_fail(format < CHIMARA_IF_NUM_FORMATS);
472 g_return_if_fail(interpreter < CHIMARA_IF_NUM_INTERPRETERS);
474 CHIMARA_IF_USE_PRIVATE(self, priv);
476 if(supported_formats[format][interpreter])
477 priv->preferred_interpreter[format] = interpreter;
479 g_warning("Format '%s' is not supported by interpreter '%s'", format_names[format], interpreter_names[interpreter]);
483 * chimara_if_get_preferred_interpreter:
484 * @self: A #ChimaraIF widget.
485 * @format: The game format to query the preferred interpreter plugin for.
487 * Looks up the preferred interpreter for the game file format @format. See
488 * chimara_if_set_preferred_interpreter().
490 * Returns: a #ChimaraIFInterpreter value representing the preferred interpreter
491 * plugin for @format.
494 chimara_if_get_preferred_interpreter(ChimaraIF *self, ChimaraIFFormat format)
496 g_return_val_if_fail(self && CHIMARA_IS_IF(self), -1);
497 g_return_val_if_fail(format < CHIMARA_IF_NUM_FORMATS, -1);
498 CHIMARA_IF_USE_PRIVATE(self, priv);
499 return priv->preferred_interpreter[format];
503 * chimara_if_run_game:
504 * @self: A #ChimaraIF widget.
505 * @gamefile: Path to an interactive fiction game file.
506 * @error: Return location for an error, or %NULL.
508 * Autodetects the type of a game file and runs it using an appropriate
509 * interpreter plugin. If there is more than one interpreter that supports the
510 * file format, the preferred one will be picked, according to
511 * chimara_if_set_preferred_interpreter().
513 * Returns: %TRUE if the game was started successfully, %FALSE if not, in which
514 * case @error is set.
517 chimara_if_run_game(ChimaraIF *self, gchar *gamefile, GError **error)
519 g_return_val_if_fail(self && CHIMARA_IS_IF(self), FALSE);
520 g_return_val_if_fail(gamefile, FALSE);
522 CHIMARA_IF_USE_PRIVATE(self, priv);
524 /* Find out what format the game is */
525 /* TODO: Look inside the file instead of just looking at the extension */
526 ChimaraIFFormat format = CHIMARA_IF_FORMAT_Z5;
527 if(g_str_has_suffix(gamefile, ".z5"))
528 format = CHIMARA_IF_FORMAT_Z5;
529 else if(g_str_has_suffix(gamefile, ".z6"))
530 format = CHIMARA_IF_FORMAT_Z6;
531 else if(g_str_has_suffix(gamefile, ".z8"))
532 format = CHIMARA_IF_FORMAT_Z8;
533 else if(g_str_has_suffix(gamefile, ".zlb") || g_str_has_suffix(gamefile, ".zblorb"))
534 format = CHIMARA_IF_FORMAT_Z_BLORB;
535 else if(g_str_has_suffix(gamefile, ".ulx"))
536 format = CHIMARA_IF_FORMAT_GLULX;
537 else if(g_str_has_suffix(gamefile, ".blb") || g_str_has_suffix(gamefile, ".blorb") || g_str_has_suffix(gamefile, ".glb") || g_str_has_suffix(gamefile, ".gblorb"))
538 format = CHIMARA_IF_FORMAT_GLULX_BLORB;
540 /* Now decide what interpreter to use */
541 ChimaraIFInterpreter interpreter = priv->preferred_interpreter[format];
542 gchar *pluginfile = g_strconcat(plugin_names[interpreter], "." G_MODULE_SUFFIX, NULL);
547 #define LT_OBJDIR ".libs" /* Pre-2.2 libtool, so take a wild guess */
548 #endif /* LT_OBJDIR */
549 /* If there is a plugin in the source tree, use that */
550 pluginpath = g_build_filename(PLUGINSOURCEDIR, plugin_names[interpreter], LT_OBJDIR, pluginfile, NULL);
551 if( !g_file_test(pluginpath, G_FILE_TEST_EXISTS) )
555 pluginpath = g_build_filename(PLUGINDIR, pluginfile, NULL);
556 if( !g_file_test(pluginpath, G_FILE_TEST_EXISTS) )
560 g_set_error(error, CHIMARA_ERROR, CHIMARA_PLUGIN_NOT_FOUND, _("No appropriate %s interpreter plugin was found"), interpreter_names[interpreter]);
568 /* Decide what arguments to pass to the interpreters; currently only the
569 Z-machine interpreters accept command line arguments other than the game */
571 gchar *terpnumstr = NULL, *randomstr = NULL;
572 args = g_slist_prepend(args, pluginpath);
573 args = g_slist_prepend(args, gamefile);
576 case CHIMARA_IF_INTERPRETER_FROTZ:
577 if(priv->flags & CHIMARA_IF_PIRACY_MODE)
578 args = g_slist_prepend(args, "-P");
579 if(priv->flags & CHIMARA_IF_TANDY_BIT)
580 args = g_slist_prepend(args, "-t");
581 if(priv->flags & CHIMARA_IF_EXPAND_ABBREVIATIONS)
582 args = g_slist_prepend(args, "-x");
583 if(priv->flags & CHIMARA_IF_IGNORE_ERRORS)
584 args = g_slist_prepend(args, "-i");
585 if(priv->interpreter_number != CHIMARA_IF_ZMACHINE_DEFAULT)
587 terpnumstr = g_strdup_printf("-I%u", priv->interpreter_number);
588 args = g_slist_prepend(args, terpnumstr);
590 if(priv->random_seed_set)
592 randomstr = g_strdup_printf("-s%d", priv->random_seed);
593 args = g_slist_prepend(args, randomstr);
596 case CHIMARA_IF_INTERPRETER_NITFOL:
597 if(priv->flags & CHIMARA_IF_PIRACY_MODE)
598 args = g_slist_prepend(args, "-pirate");
599 if(priv->flags & CHIMARA_IF_TANDY_BIT)
600 args = g_slist_prepend(args, "-tandy");
601 if(!(priv->flags & CHIMARA_IF_EXPAND_ABBREVIATIONS))
602 args = g_slist_prepend(args, "-no-expand");
603 if(priv->flags & CHIMARA_IF_IGNORE_ERRORS)
604 args = g_slist_prepend(args, "-ignore");
605 if(!(priv->flags & CHIMARA_IF_TYPO_CORRECTION))
606 args = g_slist_prepend(args, "-no-spell");
607 if(priv->interpreter_number != CHIMARA_IF_ZMACHINE_DEFAULT)
609 terpnumstr = g_strdup_printf("-terpnum%u", priv->interpreter_number);
610 args = g_slist_prepend(args, terpnumstr);
612 if(priv->random_seed_set)
614 randomstr = g_strdup_printf("-random%d", priv->random_seed);
615 args = g_slist_prepend(args, randomstr);
622 /* Allocate argv to hold the arguments */
623 int argc = g_slist_length(args);
624 args = g_slist_prepend(args, NULL);
625 char **argv = g_new0(char *, argc + 1);
628 args = g_slist_reverse(args);
631 for(count = 0, ptr = args; ptr; count++, ptr = g_slist_next(ptr))
632 argv[count] = ptr->data;
634 gboolean retval = chimara_glk_run(CHIMARA_GLK(self), pluginpath, argc, argv, error);
642 /* Set current format and interpreter if plugin was started successfully */
645 priv->format = format;
646 priv->interpreter = interpreter;
652 * chimara_if_get_format:
653 * @self: A #ChimaraIF widget.
655 * Returns the file format of the currently running game.
657 * Returns: a #ChimaraIFFormat constant.
660 chimara_if_get_format(ChimaraIF *self)
662 g_return_val_if_fail(self && CHIMARA_IS_IF(self), CHIMARA_IF_FORMAT_NONE);
663 CHIMARA_IF_USE_PRIVATE(self, priv);
668 * chimara_if_get_interpreter:
669 * @self: A #ChimaraIF widget.
671 * Returns the interpreter plugin currently running.
673 * Returns: a #ChimaraIFInterpreter constant.
676 chimara_if_get_interpreter(ChimaraIF *self)
678 g_return_val_if_fail(self && CHIMARA_IS_IF(self), CHIMARA_IF_FORMAT_NONE);
679 CHIMARA_IF_USE_PRIVATE(self, priv);
680 return priv->interpreter;