Added Nitfol and Frotz source code.

[projects/chimara/chimara.git] / interpreters / frotz / glkio.h

diff --git a/interpreters/frotz/glkio.h b/interpreters/frotz/glkio.h
new file mode 100644 (file)
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);
+