mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 15:00:21 +02:00
Code Activity

* ports.c, ports.h (close-input-port, close-output-port): New R5RS

Browse source 
procedures.
This commit is contained in:
Mikael Djurfeldt 2000-04-15 19:29:47 +00:00
parent 01c8a3dd96
commit 7a754ca6c2
1 changed files with 34 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

37
libguile/ports.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996,1997,1998,1999 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1997,1998,1999, 2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by
@ -621,7 +621,7 @@ SCM_DEFINE (scm_close_port, "close-port", 1, 0, 0,
port = SCM_COERCE_OUTPORT (port); port = SCM_COERCE_OUTPORT (port);
SCM_VALIDATE_PORT (1,port); SCM_VALIDATE_PORT (1, port);
if (SCM_CLOSEDP (port)) if (SCM_CLOSEDP (port))
return SCM_BOOL_F; return SCM_BOOL_F;
i = SCM_PTOBNUM (port); i = SCM_PTOBNUM (port);
@ -631,7 +631,38 @@ SCM_DEFINE (scm_close_port, "close-port", 1, 0, 0,
rv = 0; rv = 0;
scm_remove_from_port_table (port); scm_remove_from_port_table (port);
SCM_SETAND_CAR (port, ~SCM_OPN); SCM_SETAND_CAR (port, ~SCM_OPN);
return SCM_NEGATE_BOOL(rv < 0); return SCM_NEGATE_BOOL (rv < 0);
}
#undef FUNC_NAME
SCM_DEFINE (scm_close_input_port, "close-input-port", 1, 0, 0,
(SCM port),
"Close the specified input port object. The routine has no effect if\n"
"the file has already been closed. An exception may be raised if an\n"
"error occurs. The value returned is unspecified.\n\n"
"See also @ref{Ports and File Descriptors, close}, for a procedure\n"
"which can close file descriptors.")
#define FUNC_NAME s_scm_close_input_port
{
SCM_VALIDATE_INPUT_PORT (1, port);
scm_close_port (port);
return SCM_UNSPECIFIED;
}
#undef FUNC_NAME
SCM_DEFINE (scm_close_output_port, "close-output-port", 1, 0, 0,
(SCM port),
"Close the specified output port object. The routine has no effect if\n"
"the file has already been closed. An exception may be raised if an\n"
"error occurs. The value returned is unspecified.\n\n"
"See also @ref{Ports and File Descriptors, close}, for a procedure\n"
"which can close file descriptors.")
#define FUNC_NAME s_scm_close_output_port
{
port = SCM_COERCE_OUTPORT (port);
SCM_VALIDATE_OUTPUT_PORT (1, port);
scm_close_port (port);
return SCM_UNSPECIFIED;
} }
#undef FUNC_NAME #undef FUNC_NAME