diff options
Diffstat (limited to 'libguile/ioext.c')
-rw-r--r-- | libguile/ioext.c | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/libguile/ioext.c b/libguile/ioext.c index 3fc250d65..75c5e7e7f 100644 --- a/libguile/ioext.c +++ b/libguile/ioext.c @@ -67,7 +67,7 @@ #endif -GUILE_PROC (scm_read_delimited_x, "%read-delimited!", 3, 3, 0, +SCM_DEFINE (scm_read_delimited_x, "%read-delimited!", 3, 3, 0, (SCM delims, SCM buf, SCM gobble, SCM port, SCM start, SCM end), "Read characters from @var{port} into @var{buf} until one of the characters in the @var{delims} string is encountered. If @var{gobble?} @@ -228,7 +228,7 @@ scm_do_read_line (SCM port, int *len_p) * efficiently in Scheme. */ -GUILE_PROC (scm_read_line, "%read-line", 0, 1, 0, +SCM_DEFINE (scm_read_line, "%read-line", 0, 1, 0, (SCM port), "Read a newline-terminated line from @var{port}, allocating storage as necessary. The newline terminator (if any) is removed from the string, @@ -281,7 +281,7 @@ delimiter may be either a newline or the @var{eof-object}; if } #undef FUNC_NAME -GUILE_PROC (scm_write_line, "write-line", 1, 1, 0, +SCM_DEFINE (scm_write_line, "write-line", 1, 1, 0, (SCM obj, SCM port), "Display @var{obj} and a newline character to @var{port}. If @var{port} is not specified, @code{(current-output-port)} is used. This function @@ -298,7 +298,7 @@ is equivalent to: } #undef FUNC_NAME -GUILE_PROC (scm_ftell, "ftell", 1, 0, 0, +SCM_DEFINE (scm_ftell, "ftell", 1, 0, 0, (SCM object), "Returns an integer representing the current position of @var{fd/port}, measured from the beginning. Equivalent to: @@ -311,7 +311,7 @@ measured from the beginning. Equivalent to: } #undef FUNC_NAME -GUILE_PROC (scm_fseek, "fseek", 3, 0, 0, +SCM_DEFINE (scm_fseek, "fseek", 3, 0, 0, (SCM object, SCM offset, SCM whence), "Obsolete. Almost the same as seek, above, but the return value is unspecified.") @@ -322,7 +322,7 @@ unspecified.") } #undef FUNC_NAME -GUILE_PROC (scm_redirect_port, "redirect-port", 2, 0, 0, +SCM_DEFINE (scm_redirect_port, "redirect-port", 2, 0, 0, (SCM old, SCM new), "This procedure takes two ports and duplicates the underlying file descriptor from @var{old-port} into @var{new-port}. The @@ -371,7 +371,7 @@ revealed counts.") } #undef FUNC_NAME -GUILE_PROC (scm_dup_to_fdes, "dup->fdes", 1, 1, 0, +SCM_DEFINE (scm_dup_to_fdes, "dup->fdes", 1, 1, 0, (SCM fd_or_port, SCM fd), "Returns an integer file descriptor.") #define FUNC_NAME s_scm_dup_to_fdes @@ -411,7 +411,7 @@ GUILE_PROC (scm_dup_to_fdes, "dup->fdes", 1, 1, 0, } #undef FUNC_NAME -GUILE_PROC (scm_fileno, "fileno", 1, 0, 0, +SCM_DEFINE (scm_fileno, "fileno", 1, 0, 0, (SCM port), "Returns the integer file descriptor underlying @var{port}. Does not change its revealed count.") @@ -427,7 +427,7 @@ Does not change its revealed count.") an error if the arg is not a port? This proc as is would be better names isattyport? if it is not going to assume that the arg is a port */ -GUILE_PROC (scm_isatty_p, "isatty?", 1, 0, 0, +SCM_DEFINE (scm_isatty_p, "isatty?", 1, 0, 0, (SCM port), "Returns @code{#t} if @var{port} is using a serial non-file device, otherwise @code{#f}.") @@ -447,7 +447,7 @@ non-file device, otherwise @code{#f}.") -GUILE_PROC (scm_fdopen, "fdopen", 2, 0, 0, +SCM_DEFINE (scm_fdopen, "fdopen", 2, 0, 0, (SCM fdes, SCM modes), "Returns a new port based on the file descriptor @var{fdes}. Modes are given by the string @var{modes}. The revealed count of the port @@ -472,7 +472,7 @@ by @ref{File Ports, open-file}.") * #t if fdes moved. * MOVE->FDES is implemented in Scheme and calls this primitive. */ -GUILE_PROC (scm_primitive_move_to_fdes, "primitive-move->fdes", 2, 0, 0, +SCM_DEFINE (scm_primitive_move_to_fdes, "primitive-move->fdes", 2, 0, 0, (SCM port, SCM fd), "Moves the underlying file descriptor for @var{port} to the integer value @var{fdes} without changing the revealed count of @var{port}. @@ -509,7 +509,7 @@ required value or @code{#t} if it was moved.") #undef FUNC_NAME /* Return a list of ports using a given file descriptor. */ -GUILE_PROC(scm_fdes_to_ports, "fdes->ports", 1, 0, 0, +SCM_DEFINE(scm_fdes_to_ports, "fdes->ports", 1, 0, 0, (SCM fd), "Returns a list of existing ports which have @var{fdes} as an underlying file descriptor, without changing their revealed counts.") |