+#include <config.h>
#include "charset.h"
#include "magic.h"
#include "stream.h"
#include <string.h>
#include <glib.h>
#include <glib/gstdio.h>
+#include <glib/gi18n-lib.h>
/* Internal function: ensure that an fseek() is called on a file pointer in
between reading and writing operations, and vice versa. This will only come up
// Write to the buffer
g_string_append(win->buffer, s);
}
-
+
/* Internal function: flush a window's text buffer to the screen. */
void
flush_window_buffer(winid_t win)
gtk_text_buffer_get_end_iter(buffer, &end);
gint start_offset;
- GtkTextTagTable *tags = gtk_text_buffer_get_tag_table(buffer);
-
- GtkTextTag *default_tag = gtk_text_tag_table_lookup(tags, "default");
- GtkTextTag *style_tag = gtk_text_tag_table_lookup(tags, win->window_stream->style);
- GtkTextTag *glk_style_tag = gtk_text_tag_table_lookup(tags, win->window_stream->glk_style);
-
start_offset = gtk_text_iter_get_offset(&end);
gtk_text_buffer_insert(buffer, &end, win->buffer->str, -1);
gtk_text_buffer_get_iter_at_offset(buffer, &start, start_offset);
-
- // Player's style overrides
- gtk_text_buffer_apply_tag(buffer, style_tag, &start, &end);
-
- // GLK Program's style overrides
- gtk_text_buffer_apply_tag(buffer, glk_style_tag, &start, &end);
-
- // Default style
- gtk_text_buffer_apply_tag(buffer, default_tag, &start, &end);
-
- // Link style overrides
- if(win->window_stream->hyperlink_mode) {
- GtkTextTag *link_style_tag = gtk_text_tag_table_lookup(tags, "hyperlink");
- GtkTextTag *link_tag = win->current_hyperlink->tag;
- gtk_text_buffer_apply_tag(buffer, link_style_tag, &start, &end);
- gtk_text_buffer_apply_tag(buffer, link_tag, &start, &end);
- }
-
- // GLK Program's style overrides using garglk_set_zcolors()
- if(win->zcolor != NULL) {
- gtk_text_buffer_apply_tag(buffer, win->zcolor, &start, &end);
- }
-
- // GLK Program's style overrides using garglk_set_reversevideo()
- if(win->zcolor_reversed != NULL) {
- gtk_text_buffer_apply_tag(buffer, win->zcolor_reversed, &start, &end);
- }
+ style_apply(win, &start, &end);
ChimaraGlk *glk = CHIMARA_GLK(gtk_widget_get_ancestor(win->widget, CHIMARA_TYPE_GLK));
g_assert(glk);
gint start_offset;
gtk_text_buffer_get_iter_at_mark(buffer, &insert, cursor);
- /* Spaces available on this line */
- gint available_space = win->width - gtk_text_iter_get_line_offset(&insert);
-
- GtkTextTagTable *tags = gtk_text_buffer_get_tag_table(buffer);
- GtkTextTag *default_tag = gtk_text_tag_table_lookup(tags, "default");
- GtkTextTag *style_tag = gtk_text_tag_table_lookup(tags, win->window_stream->style);
- GtkTextTag *glk_style_tag = gtk_text_tag_table_lookup(tags, win->window_stream->glk_style);
- GtkTextTag *link_style_tag = gtk_text_tag_table_lookup(tags, "hyperlink");
-
- while(chars_left > available_space && !gtk_text_iter_is_end(&insert))
+ while(chars_left > 0 && !gtk_text_iter_is_end(&insert))
{
+ /* Spaces available on this line */
+ gint available_space = win->width - gtk_text_iter_get_line_offset(&insert);
+
GtkTextIter end = insert;
- gtk_text_iter_forward_to_line_end(&end);
- gtk_text_buffer_delete(buffer, &insert, &end);
-
- start_offset = gtk_text_iter_get_offset(&insert);
- gtk_text_buffer_insert(buffer, &insert, win->buffer->str + (length - chars_left), available_space);
- gtk_text_buffer_get_iter_at_offset(buffer, &start, start_offset);
-
- // Default style
- gtk_text_buffer_apply_tag(buffer, default_tag, &start, &insert);
-
- // Player's style overrides
- gtk_text_buffer_apply_tag(buffer, style_tag, &start, &insert);
-
- // GLK Program's style overrides
- gtk_text_buffer_apply_tag(buffer, glk_style_tag, &start, &insert);
-
- // Link style overrides
- if(win->window_stream->hyperlink_mode) {
- GtkTextTag *link_tag = win->current_hyperlink->tag;
- gtk_text_buffer_apply_tag(buffer, link_style_tag, &start, &insert);
- gtk_text_buffer_apply_tag(buffer, link_tag, &start, &insert);
- }
-
- // GLK Program's style overrides using garglk_set_zcolors()
- if(win->zcolor != NULL)
- gtk_text_buffer_apply_tag(buffer, win->zcolor, &start, &insert);
-
- // GLK Program's style overrides using garglk_set_reversevideo()
- if(win->zcolor_reversed != NULL) {
- gtk_text_buffer_apply_tag(buffer, win->zcolor_reversed, &start, &insert);
- }
+ if(chars_left <= available_space)
+ gtk_text_iter_forward_chars(&end, chars_left);
+ else
+ gtk_text_iter_forward_to_line_end(&end);
- chars_left -= available_space;
- gtk_text_iter_forward_line(&insert);
- available_space = win->width;
- }
- if(!gtk_text_iter_is_end(&insert))
- {
- GtkTextIter end = insert;
- gtk_text_iter_forward_chars(&end, chars_left);
gtk_text_buffer_delete(buffer, &insert, &end);
start_offset = gtk_text_iter_get_offset(&insert);
- gtk_text_buffer_insert(buffer, &insert, win->buffer->str + (length - chars_left), -1);
+ gtk_text_buffer_insert(buffer, &insert, win->buffer->str + (length - chars_left), MIN(chars_left, available_space));
gtk_text_buffer_get_iter_at_offset(buffer, &start, start_offset);
+ style_apply(win, &start, &insert);
+
+ chars_left -= available_space;
- // Default style
- gtk_text_buffer_apply_tag(buffer, default_tag, &start, &insert);
-
- // Player's style overrides
- gtk_text_buffer_apply_tag(buffer, style_tag, &start, &insert);
-
- // GLK Program's style overrides
- gtk_text_buffer_apply_tag(buffer, glk_style_tag, &start, &insert);
-
- // Link style overrides
- if(win->window_stream->hyperlink_mode) {
- GtkTextTag *link_tag = win->current_hyperlink->tag;
- gtk_text_buffer_apply_tag(buffer, link_style_tag, &start, &insert);
- gtk_text_buffer_apply_tag(buffer, link_tag, &start, &insert);
- }
-
- // GLK Program's style overrides using garglk_set_zcolors()
- if(win->zcolor != NULL)
- gtk_text_buffer_apply_tag(buffer, win->zcolor, &start, &insert);
-
- // GLK Program's style overrides using garglk_set_reversevideo()
- if(win->zcolor_reversed != NULL) {
- gtk_text_buffer_apply_tag(buffer, win->zcolor_reversed, &start, &insert);
- }
+ if(gtk_text_iter_get_line_offset(&insert) >= win->width)
+ gtk_text_iter_forward_line(&insert);
}
-
- gtk_text_buffer_move_mark(buffer, cursor, &start);
+
+ gtk_text_buffer_move_mark(buffer, cursor, &insert);
}
break;
}
str->write_count += len;
break;
+ case STREAM_TYPE_RESOURCE:
+ ILLEGAL(_("Writing to a resource stream is illegal."));
+ break;
default:
ILLEGAL_PARAM("Unknown stream type: %u", str->type);
}
str->write_count += len;
break;
+ case STREAM_TYPE_RESOURCE:
+ ILLEGAL(_("Writing to a resource stream is illegal."));
+ break;
default:
ILLEGAL_PARAM("Unknown stream type: %u", str->type);
}
return charresult;
}
+/* Internal function: Read one UTF-8 character, which may be more than one byte,
+from a memory stream @str, and return it as a Unicode code point. */
+static glsi32
+read_utf8_char_from_buffer(strid_t str)
+{
+ size_t foo;
+ gunichar charresult = (gunichar)-2;
+ char *buffer = str->buffer + str->mark;
+ size_t maxlen = str->buflen - str->mark;
+
+ if(maxlen == 0)
+ return -1;
+
+ for(foo = 1; foo <= maxlen; foo++)
+ {
+ charresult = g_utf8_get_char_validated(buffer, foo);
+ /* charresult is -1 if invalid, -2 if incomplete, and the
+ Unicode code point otherwise */
+ if(charresult != (gunichar)-2)
+ break;
+ }
+ str->mark += foo;
+ str->read_count++;
+
+ /* Return -1 on EOS */
+ if(charresult == (gunichar)-2)
+ return -1;
+ /* Silently return unknown characters as 0xFFFD, Replacement Character */
+ if(charresult == (gunichar)-1)
+ return 0xFFFD;
+ return charresult;
+}
+
+/* Internal function: Read one big-endian four-byte character from memory and
+return it as a Unicode code point, or -1 on EOF */
+static glsi32
+read_ucs4be_char_from_buffer(strid_t str)
+{
+ glui32 ch = str->buffer[str->mark++];
+ if(str->mark >= str->buflen)
+ return -1;
+ ch = (ch << 8) | (str->buffer[str->mark++] & 0xFF);
+ if(str->mark >= str->buflen)
+ return -1;
+ ch = (ch << 8) | (str->buffer[str->mark++] & 0xFF);
+ if(str->mark >= str->buflen)
+ return -1;
+ ch = (ch << 8) | (str->buffer[str->mark++] & 0xFF);
+ str->read_count++;
+ return ch;
+}
+
/* Internal function: Tell whether this code point is a Unicode newline. The
file pointer and eight-bit flag are included in case the newline is a CR
(U+000D). If the next character is LF (U+000A) then it also belongs to the
glsi32 ch2 = utf8? read_utf8_char_from_file(str) :
read_ucs4be_char_from_file(str);
if(ch2 != 0x0A) {
- if(fseek(str->file_pointer, utf8? -1 : -4, SEEK_CUR) == -1);
+ if(fseek(str->file_pointer, utf8? -1 : -4, SEEK_CUR) == -1)
WARNING_S("Seek failed on stream", g_strerror(errno) );
str->lastop = 0; /* can read or write after a seek */
}
{
switch(str->type)
{
+ case STREAM_TYPE_RESOURCE:
+ if(str->unicode)
+ {
+ if(!str->buffer || str->mark >= str->buflen)
+ return -1;
+ if(str->binary)
+ /* Cheap big-endian stream */
+ return read_ucs4be_char_from_buffer(str);
+ /* slightly less cheap UTF8 stream */
+ return read_utf8_char_from_buffer(str);
+ }
+ /* for text streams, fall through to memory case */
case STREAM_TYPE_MEMORY:
if(str->unicode)
{
switch(str->type)
{
+ case STREAM_TYPE_RESOURCE:
+ {
+ int copycount = 0;
+ if(str->unicode)
+ {
+ while(copycount < len && str->buffer && str->mark < str->buflen)
+ {
+ glui32 ch;
+ if(str->binary)
+ ch = read_ucs4be_char_from_buffer(str);
+ else
+ ch = read_utf8_char_from_buffer(str);
+ buf[copycount++] = (ch > 0xFF)? '?' : (char)ch;
+ }
+ return copycount;
+ }
+ /* for text streams, fall through to memory case */
+ }
case STREAM_TYPE_MEMORY:
{
int copycount = 0;
switch(str->type)
{
+ case STREAM_TYPE_RESOURCE:
+ {
+ int copycount = 0;
+ if(str->unicode)
+ {
+ while(copycount < len && str->buffer && str->mark < str->buflen)
+ {
+ glui32 ch;
+ if(str->binary)
+ ch = read_ucs4be_char_from_buffer(str);
+ else
+ ch = read_utf8_char_from_buffer(str);
+ buf[copycount++] = ch;
+ }
+ return copycount;
+ }
+ /* for text streams, fall through to memory case */
+ }
case STREAM_TYPE_MEMORY:
{
int copycount = 0;
switch(str->type)
{
+ case STREAM_TYPE_RESOURCE:
+ {
+ int copycount = 0;
+ if(str->unicode)
+ {
+ /* Do it character-by-character */
+ while(copycount < len - 1 && str->buffer && str->mark < str->buflen)
+ {
+ glsi32 ch;
+ if(str->binary)
+ ch = read_ucs4be_char_from_buffer(str);
+ else
+ ch = read_utf8_char_from_buffer(str);
+ /* Check for Unicode newline; slightly different than
+ in file streams */
+ if(ch == 0x0A || ch == 0x85 || ch == 0x0C || ch == 0x2028 || ch == 0x2029)
+ {
+ buf[copycount++] = '\n';
+ break;
+ }
+ if(ch == 0x0D)
+ {
+ if(str->buffer[str->mark] == 0x0A)
+ str->mark++; /* skip past next newline */
+ buf[copycount++] = '\n';
+ break;
+ }
+ buf[copycount++] = (ch > 0xFF)? '?' : (char)ch;
+ }
+ buf[copycount] = '\0';
+ return copycount;
+ }
+ /* for text streams, fall through to the memory case */
+ }
case STREAM_TYPE_MEMORY:
{
int copycount = 0;
switch(str->type)
{
+ case STREAM_TYPE_RESOURCE:
+ {
+ int copycount = 0;
+ if(str->unicode)
+ {
+ /* Do it character-by-character */
+ while(copycount < len - 1 && str->buffer && str->mark < str->buflen)
+ {
+ glsi32 ch;
+ if(str->binary)
+ ch = read_ucs4be_char_from_buffer(str);
+ else
+ ch = read_utf8_char_from_buffer(str);
+ /* Check for Unicode newline; slightly different than
+ in file streams */
+ if(ch == 0x0A || ch == 0x85 || ch == 0x0C || ch == 0x2028 || ch == 0x2029)
+ {
+ buf[copycount++] = '\n';
+ break;
+ }
+ if(ch == 0x0D)
+ {
+ if(str->ubuffer[str->mark] == 0x0A)
+ str->mark++; /* skip past next newline */
+ buf[copycount++] = '\n';
+ break;
+ }
+ buf[copycount++] = ch;
+ }
+ buf[copycount] = '\0';
+ return copycount;
+ }
+ /* for text streams, fall through to the memory case */
+ }
case STREAM_TYPE_MEMORY:
{
int copycount = 0;
switch(str->type)
{
case STREAM_TYPE_MEMORY:
+ case STREAM_TYPE_RESOURCE:
return str->mark;
case STREAM_TYPE_FILE:
return ftell(str->file_pointer);
switch(str->type)
{
+ case STREAM_TYPE_RESOURCE:
case STREAM_TYPE_MEMORY:
switch(seekmode)
{