stream.c stream.h \
window.c window.h \
glk.c glk.h \
+ gestalt.c \
+ fileref.c fileref.h \
+ case.c \
model.c
OBJECTS = main.o \
callbacks.o \
stream.o \
window.o \
glk.o \
+ gestalt.o \
+ fileref.o \
+ case.o \
model.o
CFLAGS = -g -Wall -O0 -export-dynamic `pkg-config --cflags ${PKG_CONFIG}`
gargoyle-gtk.ui: gargoyle-gtk.glade
gtk-builder-convert gargoyle-gtk.glade gargoyle-gtk.ui
+
+clean:
+ ${RM} -f ${OBJECTS} gargoyle-gtk gargoyle-gtk.ui
/* These are the compile-time conditionals that reveal various Glk optional
modules. */
-/* #define GLK_MODULE_UNICODE */
-/* #define GLK_MODULE_IMAGE */
-/* #define GLK_MODULE_SOUND */
-/* #define GLK_MODULE_HYPERLINKS */
+#define GLK_MODULE_UNICODE
+#define GLK_MODULE_IMAGE
+#define GLK_MODULE_SOUND
+#define GLK_MODULE_HYPERLINKS
/* These types are opaque object identifiers. They're pointers to opaque
C structures, which are defined differently by each library. */
#include "glk.h"
-/* model.c: Model program for Glk API, version 0.5.
- Designed by Andrew Plotkin <erkyrath@eblong.com>
- http://www.eblong.com/zarf/glk/index.html
- This program is in the public domain.
-*/
-
-/* This is a simple model of a text adventure which uses the Glk API.
- It shows how to input a line of text, display results, maintain a
- status window, write to a transcript file, and so on. */
-
-/* This is the cleanest possible form of a Glk program. It includes only
- "glk.h", and doesn't call any functions outside Glk at all. We even
- define our own str_eq() and str_len(), rather than relying on the
- standard libraries. */
-
-/* We also define our own TRUE and FALSE and NULL. */
-#ifndef TRUE
-#define TRUE 1
-#endif
-#ifndef FALSE
-#define FALSE 0
-#endif
-#ifndef NULL
-#define NULL 0
-#endif
-
static winid_t mainwin = NULL;
-/* Forward declarations */
-void glk_main(void);
-
-/* The glk_main() function is called by the Glk system; it's the main entry
- point for your program. */
void glk_main(void)
{
/* Open the main window. */
/* Set the current output stream to print to it. */
glk_set_window(mainwin);
+ unsigned char buffer[255];
+ int i;
+ for(i = 0; i < 255; i++)
+ buffer[i] = glk_char_to_upper(i + 1);
+
glk_put_string("Philip en Marijn zijn vet goed.\n");
+ glk_put_string(buffer);
/* Bye bye */
glk_exit();
#include "stream.h"
+#include <string.h>
/* Global current stream */
static strid_t current_stream = NULL;
/* List of streams currently in existence */
static GList *stream_list = NULL;
+/**
+ * glk_stream_iterate:
+ * @str: A stream, or #NULL.
+ * @rockptr: Return location for the next window's rock, or #NULL.
+ *
+ * Iterates over the list of streams; if @str is #NULL, it returns the first
+ * stream, otherwise the next stream after @str. If there are no more, it
+ * returns #NULL. The stream's rock is stored in @rockptr. If you don't want
+ * the rocks to be returned, you may set @rockptr to #NULL.
+ *
+ * The order in which streams are returned is arbitrary. The order may change
+ * every time you create or destroy a stream, invalidating the iteration.
+ *
+ * Returns: the next stream, or #NULL if there are no more.
+ */
+strid_t
+glk_stream_iterate(strid_t str, glui32 *rockptr)
+{
+ GList *retnode;
+
+ if(str == NULL)
+ retnode = stream_list;
+ else
+ retnode = str->stream_list->next;
+ strid_t retval = retnode? (strid_t)retnode->data : NULL;
+
+ /* Store the stream's rock in rockptr */
+ if(retval && rockptr)
+ *rockptr = glk_stream_get_rock(retval);
+
+ return retval;
+}
+
+/**
+ * glk_stream_get_rock:
+ * @str: A stream.
+ *
+ * Returns the stream @str's rock value.
+ *
+ * Returns: A rock value.
+ */
+glui32
+glk_stream_get_rock(strid_t str)
+{
+ g_return_val_if_fail(str != NULL, 0);
+ return str->rock;
+}
+
/* Internal function: create a window stream to go with window. */
strid_t
window_stream_new(winid_t window)
current_stream = str;
}
+/* Internal function: change illegal (control) characters in a string to a
+placeholder character. Must free returned string afterwards. */
+static gchar *
+remove_latin1_control_characters(gchar *s)
+{
+ gchar *retval = g_strdup(s);
+ unsigned char *ptr;
+ for(ptr = (unsigned char *)retval; *ptr != '\0'; ptr++)
+ if( (*ptr < 32 && *ptr != 10) || (*ptr >= 127 && *ptr <= 159) )
+ *ptr = '?';
+ /* Our placeholder character is '?'; other options are possible,
+ like printing "0x7F" or something */
+ return retval;
+}
+
/**
* glk_put_string:
* @s: A null-terminated string in Latin-1 encoding.
void
glk_put_string(char *s)
{
+ /* Illegal to print to the current stream if it is NULL */
+ g_return_if_fail(current_stream != NULL);
+
GError *error = NULL;
- gchar *utf8;
+ gchar *canonical, *utf8;
switch(current_stream->stream_type)
{
case STREAM_TYPE_WINDOW:
- utf8 = g_convert(s, -1, "UTF-8", "ISO-8859-1", NULL, NULL, &error);
-
+ canonical = remove_latin1_control_characters(s);
+ utf8 = g_convert(canonical, -1, "UTF-8", "ISO-8859-1", NULL, NULL,
+ &error);
+ g_free(canonical);
+
if(utf8 == NULL)
{
g_warning("glk_put_string: "
return;
}
- GtkTextBuffer *buffer = gtk_text_view_get_buffer(
- GTK_TEXT_VIEW(current_stream->window->widget) );
-
- GtkTextIter iter;
- gtk_text_buffer_get_end_iter(buffer, &iter);
+ /* Each window type has a different way of printing to it */
+ switch(current_stream->window->window_type)
+ {
+ /* Printing to a these windows' streams does nothing */
+ case wintype_Blank:
+ case wintype_Pair:
+ case wintype_Graphics:
+ current_stream->write_count += strlen(s);
+ break;
+ /* Text buffer window */
+ case wintype_TextBuffer:
+ {
+ GtkTextBuffer *buffer = gtk_text_view_get_buffer(
+ GTK_TEXT_VIEW(current_stream->window->widget) );
- gtk_text_buffer_insert(buffer, &iter, utf8, -1);
+ GtkTextIter iter;
+ gtk_text_buffer_get_end_iter(buffer, &iter);
+ gtk_text_buffer_insert(buffer, &iter, utf8, -1);
+ }
+ current_stream->write_count += strlen(s);
+ break;
+ default:
+ g_warning("glk_put_string: "
+ "Writing to this kind of window unsupported.");
+ }
+
g_free(utf8);
break;
default:
/* Global tree of all windows */
static GNode *root_window = NULL;
+/**
+ * glk_window_iterate:
+ * @win: A window, or #NULL.
+ * @rockptr: Return location for the next window's rock, or #NULL.
+ *
+ * Iterates over the list of windows; if @win is #NULL, it returns the first
+ * window, otherwise the next window after @win. If there are no more, it
+ * returns #NULL. The window's rock is stored in @rockptr. If you don't want
+ * the rocks to be returned, you may set @rockptr to #NULL.
+ *
+ * The order in which windows are returned is arbitrary. The root window is
+ * not necessarily first, nor is it necessarily last. The order may change
+ * every time you create or destroy a window, invalidating the iteration.
+ *
+ * Returns: the next window, or #NULL if there are no more.
+ */
+winid_t
+glk_window_iterate(winid_t win, glui32 *rockptr)
+{
+ GNode *retnode;
+
+ if(win == NULL)
+ retnode = root_window;
+ else
+ {
+ GNode *node = win->window_node;
+ if( G_NODE_IS_LEAF(node) )
+ {
+ while(node && node->next == NULL)
+ node = node->parent;
+ if(node)
+ retnode = node->next;
+ else
+ retnode = NULL;
+ }
+ else
+ retnode = g_node_first_child(node);
+ }
+ winid_t retval = retnode? (winid_t)retnode->data : NULL;
+
+ /* Store the window's rock in rockptr */
+ if(retval && rockptr)
+ *rockptr = glk_window_get_rock(retval);
+
+ return retval;
+}
+
+/**
+ * glk_window_get_rock:
+ * @win: A window.
+ *
+ * Returns the window @win's rock value. Pair windows always have rock 0.
+ *
+ * Returns: A rock value.
+ */
+glui32
+glk_window_get_rock(winid_t win)
+{
+ g_return_val_if_fail(win != NULL, 0);
+ return win->rock;
+}
+
/**
* glk_window_open:
* @split: The window to split to create the new window. Must be 0 if there
switch(wintype)
{
+ case wintype_Blank:
+ {
+ /* A blank window will be a label without any text */
+ GtkWidget *window = gtk_label_new("");
+ gtk_box_pack_end(vbox, window, TRUE, TRUE, 0);
+ gtk_widget_show(window);
+
+ new_window->widget = window;
+ /* You can print to a blank window's stream, but it does nothing */
+ new_window->window_stream = window_stream_new(new_window);
+ new_window->echo_stream = NULL;
+ }
+ break;
case wintype_TextBuffer:
{
- /* We need to put these declarations inside their own scope */
GtkWidget *scroll_window = gtk_scrolled_window_new(NULL, NULL);
GtkWidget *window = gtk_text_view_new();
gtk_container_add( GTK_CONTAINER(scroll_window), window );
gchar *line_input_buffer;
glui32 *line_input_buffer_unicode;
glui32 line_input_buffer_max_len;
+ gboolean mouse_input_requested;
};
#endif
projects / rodin / chimara.git / commitdiff