From c754c8c62122eaf9862795b161f5d1446235b5b7 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 14 Apr 1992 18:36:17 +0000 Subject: [PATCH] Add FILE-OPEN-BINARY-INPUT-CHANNEL and FILE-OPEN-BINARY-OUTPUT-CHANNEL for systems where text files and binary files are distinct. --- v7/src/microcode/prosfile.c | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/v7/src/microcode/prosfile.c b/v7/src/microcode/prosfile.c index 80bac0c00..9ff4ec317 100644 --- a/v7/src/microcode/prosfile.c +++ b/v7/src/microcode/prosfile.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosfile.c,v 1.3 1992/01/20 17:25:43 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosfile.c,v 1.4 1992/04/14 18:36:17 jinx Exp $ Copyright (c) 1987-1992 Massachusetts Institute of Technology @@ -63,6 +63,15 @@ DEFINE_PRIMITIVE ("FILE-OPEN-OUTPUT-CHANNEL", Prim_file_open_output_channel, 1, If the file exists, it is rewritten.") OPEN_FILE_PRIMITIVE (OS_open_output_file) +DEFINE_PRIMITIVE ("FILE-OPEN-BINARY-INPUT-CHANNEL", Prim_file_open_binary_input_channel, 1, 1, + "Open an input file called FILENAME, in binary mode, returning a channel number.") + OPEN_FILE_PRIMITIVE (OS_open_load_file) + +DEFINE_PRIMITIVE ("FILE-OPEN-BINARY-OUTPUT-CHANNEL", Prim_file_open_binary_output_channel, 1, 1, + "Open an output file called FILENAME, in binary mode,\n\ +returning a channel number. If the file exists, it is rewritten.") + OPEN_FILE_PRIMITIVE (OS_open_dump_file) + DEFINE_PRIMITIVE ("FILE-OPEN-IO-CHANNEL", Prim_file_open_io_channel, 1, 1, "Open a file called FILENAME, returning a channel number.\n\ The file is opened for both input and output.\n\ -- 2.25.1