diff options
Diffstat (limited to 'libguile/ports.h')
-rw-r--r-- | libguile/ports.h | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/libguile/ports.h b/libguile/ports.h index fabf744eb..c8c96aa5b 100644 --- a/libguile/ports.h +++ b/libguile/ports.h @@ -1,8 +1,8 @@ /* classes: h_files */ -#ifndef PORTSH -#define PORTSH -/* Copyright (C) 1995,1996,1997,1998,1999, 2000, 2001 Free Software Foundation, Inc. +#ifndef SCM_PORTS_H +#define SCM_PORTS_H +/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001 Free Software Foundation, Inc. * * 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 @@ -152,7 +152,7 @@ extern int scm_port_table_size; /* Number of ports in scm_port_table. */ #define SCM_BUF0 (8L<<16) /* Is it unbuffered? */ #define SCM_BUFLINE (64L<<16) /* Is it line-buffered? */ -#define SCM_PORTP(x) (SCM_NIMP(x) && (SCM_TYP7(x)==scm_tc7_port)) +#define SCM_PORTP(x) (SCM_NIMP (x) && (SCM_TYP7 (x) == scm_tc7_port)) #define SCM_OPPORTP(x) (SCM_NIMP(x) && (((0x7f | SCM_OPN) & SCM_CELL_WORD_0(x))==(scm_tc7_port | SCM_OPN))) #define SCM_OPINPORTP(x) (SCM_NIMP(x) && (((0x7f | SCM_OPN | SCM_RDNG) & SCM_CELL_WORD_0(x))==(scm_tc7_port | SCM_OPN | SCM_RDNG))) #define SCM_OPOUTPORTP(x) (SCM_NIMP(x) && (((0x7f | SCM_OPN | SCM_WRTNG) & SCM_CELL_WORD_0(x))==(scm_tc7_port | SCM_OPN | SCM_WRTNG))) @@ -164,6 +164,8 @@ extern int scm_port_table_size; /* Number of ports in scm_port_table. */ && (((0x7f | SCM_WRTNG) & SCM_CELL_WORD_0(x))==(scm_tc7_port | SCM_WRTNG))) #define SCM_OPENP(x) (SCM_NIMP(x) && (SCM_OPN & SCM_CELL_WORD_0 (x))) #define SCM_CLOSEDP(x) (!SCM_OPENP(x)) +#define SCM_CLR_PORT_OPEN_FLAG(p) \ + SCM_SET_CELL_WORD_0 ((p), SCM_CELL_WORD_0 (p) & ~SCM_OPN) #define SCM_PTAB_ENTRY(x) ((scm_port *) SCM_CELL_WORD_1 (x)) #define SCM_SETPTAB_ENTRY(x,ent) (SCM_SET_CELL_WORD_1 ((x), (scm_bits_t) (ent))) @@ -324,7 +326,7 @@ extern SCM scm_close_all_ports_except (SCM ports); #endif /* SCM_DEBUG_DEPRECATED == 0 */ -#endif /* PORTSH */ +#endif /* SCM_PORTS_H */ /* Local Variables: |