X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=interpreters%2Ffrotz%2Fglkio.h;fp=interpreters%2Ffrotz%2Fglkio.h;h=b580d759a7aef4162f04ab5d385844ad0f5a2a25;hb=c98ccb87aa2581cbcd0458682727274b6e9a8cf7;hp=0000000000000000000000000000000000000000;hpb=a1689380dcfe59c99e70da8c311ace071d113ce5;p=rodin%2Fchimara.git

diff --git a/interpreters/frotz/glkio.h b/interpreters/frotz/glkio.h
new file mode 100644
index 0000000..b580d75
--- /dev/null
+++ b/interpreters/frotz/glkio.h
@@ -0,0 +1,44 @@
+/* glkio.h -- make stdio calls use glk i/o instead */
+
+#undef FILE
+typedef struct glk_stream_struct FILE;
+
+#undef EOF
+#define EOF				(-1)
+
+#undef ungetc
+#define ungetc(f,c)
+
+#undef fclose
+#define fclose(f)       (glk_stream_close(f, NULL), 0)
+#undef ferror
+#define ferror(f)       (0)     /* No ferror() equivalent */
+#undef fgetc
+#define fgetc(f)        (glk_get_char_stream(f))
+#undef fgets
+#define fgets(a, n, f)  (glk_get_line_stream(f, a, n))
+#undef fread
+#define fread(a,s,n,f)  (glk_get_buffer_stream(f, (char *)a, s*n))
+#undef fwrite
+#define fwrite(a,s,n,f)  (glk_put_buffer_stream(f, (char *)a, s*n), 0)
+#undef fprintf
+#define fprintf(f,s,a)  (glk_put_string_stream(f, a), 0)
+#undef fputc
+#define fputc(c, f)     (glk_put_char_stream(f, (unsigned char)(c)), 0)
+#undef fputs
+#define fputs(s, f)     (glk_put_buffer_stream(f, s, strlen(s)), 0)
+#undef ftell
+#define ftell(f)        (glk_stream_get_position(f))
+#undef fseek
+#define fseek(f, p, m)  (glk_stream_set_position(f, p, m), 0)
+
+#undef SEEK_SET
+#define SEEK_SET        seekmode_Start
+#undef SEEK_CUR
+#define SEEK_CUR		seekmode_Current
+#undef SEEK_END
+#define SEEK_END        seekmode_End
+
+FILE *frotzopenprompt(int flag);
+FILE *frotzopen(char *filename, int flag);
+