txr-015 2009-10-15txr-015

1 files changed, 48 insertions, 0 deletions

diff --git a/stream.h b/stream.h
new file mode 100644
index 00000000..2be353f3
--- /dev/null
+++ b/stream.h
@@ -0,0 +1,48 @@
+/* Copyright 2009
+ * Kaz Kylheku <kkylheku@gmail.com>
+ * Vancouver, Canada
+ * All rights reserved.
+ *
+ * BSD License:
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   1. Redistributions of source code must retain the above copyright
+ *      notice, this list of conditions and the following disclaimer.
+ *   2. Redistributions in binary form must reproduce the above copyright
+ *      notice, this list of conditions and the following disclaimer in
+ *      the documentation and/or other materials provided with the
+ *      distribution.
+ *   3. The name of the author may not be used to endorse or promote
+ *      products derived from this software without specific prior
+ *      written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
+ * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
+ * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+ */
+
+extern obj_t *std_input, *std_output, *std_error;
+
+obj_t *make_stdio_stream(FILE *, obj_t *input, obj_t *output);
+obj_t *make_pipe_stream(FILE *, obj_t *input, obj_t *output);
+obj_t *make_string_input_stream(obj_t *);
+obj_t *make_string_output_stream(void);
+obj_t *get_string_from_stream(obj_t *);
+obj_t *make_dir_stream(DIR *);
+obj_t *close_stream(obj_t *);
+obj_t *get_line(obj_t *);
+obj_t *get_char(obj_t *);
+obj_t *vformat(obj_t *stream, const char *string, va_list); /* nao-terminated */
+obj_t *vcformat(obj_t *stream, const char *string, va_list); /* printf-style */
+obj_t *format(obj_t *stream, const char *string, ...);
+obj_t *cformat(obj_t *stream, const char *string, ...);
+obj_t *put_string(obj_t *stream, obj_t *string);
+obj_t *put_line(obj_t *stream, obj_t *string);
+obj_t *put_cstring(obj_t *stream, const char *);
+obj_t *put_char(obj_t *stream, obj_t *ch);
+obj_t *put_cchar(obj_t *stream, int ch);
+
+void stream_init(void);