diff options
author | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-05 19:05:23 +0000 |
---|---|---|
committer | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-05 19:05:23 +0000 |
commit | a1ec69163dd2e55e5d2b03a164513aa4a0d5943c (patch) | |
tree | 99489194c03fa41397c77e84b3f8660ffef1ed30 /libguile/filesys.c | |
parent | fb764465068f84e3ab047c45792ffc3026e5505a (diff) | |
download | guile-a1ec69163dd2e55e5d2b03a164513aa4a0d5943c.tar.gz |
*.[ch]: Replace GUILE_PROC w/ SCM_DEFINE.
Diffstat (limited to 'libguile/filesys.c')
-rw-r--r-- | libguile/filesys.c | 56 |
1 files changed, 28 insertions, 28 deletions
diff --git a/libguile/filesys.c b/libguile/filesys.c index 950e3d4ea..d00616736 100644 --- a/libguile/filesys.c +++ b/libguile/filesys.c @@ -122,7 +122,7 @@ /* {Permissions} */ -GUILE_PROC (scm_chown, "chown", 3, 0, 0, +SCM_DEFINE (scm_chown, "chown", 3, 0, 0, (SCM object, SCM owner, SCM group), "Change the ownership and group of the file referred to by @var{obj} to the integer userid values @var{owner} and @var{group}. @var{obj} can be @@ -168,7 +168,7 @@ as @code{-1}, then that ID is not changed.") #undef FUNC_NAME -GUILE_PROC (scm_chmod, "chmod", 2, 0, 0, +SCM_DEFINE (scm_chmod, "chmod", 2, 0, 0, (SCM object, SCM mode), "Changes the permissions of the file referred to by @var{obj}. @var{obj} can be a string containing a file name or a port or integer file @@ -205,7 +205,7 @@ The return value is unspecified.") } #undef FUNC_NAME -GUILE_PROC (scm_umask, "umask", 0, 1, 0, +SCM_DEFINE (scm_umask, "umask", 0, 1, 0, (SCM mode), "If @var{mode} is omitted, retuns a decimal number representing the current file creation mask. Otherwise the file creation mask is set to @@ -231,7 +231,7 @@ E.g., @code{(umask #o022)} sets the mask to octal 22, decimal 18.") -GUILE_PROC (scm_open_fdes, "open-fdes", 2, 1, 0, +SCM_DEFINE (scm_open_fdes, "open-fdes", 2, 1, 0, (SCM path, SCM flags, SCM mode), "Similar to @code{open} but returns a file descriptor instead of a port.") @@ -252,7 +252,7 @@ port.") } #undef FUNC_NAME -GUILE_PROC (scm_open, "open", 2, 1, 0, +SCM_DEFINE (scm_open, "open", 2, 1, 0, (SCM path, SCM flags, SCM mode), "Open the file named by @var{path} for reading and/or writing. @var{flags} is an integer specifying how the file should be opened. @@ -312,7 +312,7 @@ for additional flags.") } #undef FUNC_NAME -GUILE_PROC (scm_close, "close", 1, 0, 0, +SCM_DEFINE (scm_close, "close", 1, 0, 0, (SCM fd_or_port), "Similar to close-port (@pxref{Generic Port Operations, close-port}), but also works on file descriptors. A side @@ -445,7 +445,7 @@ scm_stat2scm (struct stat *stat_temp) return ans; } -GUILE_PROC (scm_stat, "stat", 1, 0, 0, +SCM_DEFINE (scm_stat, "stat", 1, 0, 0, (SCM object), "Returns an object containing various information about the file determined by @var{obj}. @@ -543,7 +543,7 @@ An integer representing the access permission bits. /* {Modifying Directories} */ -GUILE_PROC (scm_link, "link", 2, 0, 0, +SCM_DEFINE (scm_link, "link", 2, 0, 0, (SCM oldpath, SCM newpath), "Creates a new name @var{path-to} in the file system for the file named by @var{path-from}. If @var{path-from} is a symbolic link, the @@ -569,7 +569,7 @@ link may or may not be followed depending on the system.") -GUILE_PROC (scm_rename, "rename-file", 2, 0, 0, +SCM_DEFINE (scm_rename, "rename-file", 2, 0, 0, (SCM oldname, SCM newname), "Renames the file specified by @var{path-from} to @var{path-to}. The return value is unspecified.") @@ -599,7 +599,7 @@ The return value is unspecified.") #undef FUNC_NAME -GUILE_PROC(scm_delete_file, "delete-file", 1, 0, 0, +SCM_DEFINE(scm_delete_file, "delete-file", 1, 0, 0, (SCM str), "Deletes (or \"unlinks\") the file specified by @var{path}.") #define FUNC_NAME s_scm_delete_file @@ -614,7 +614,7 @@ GUILE_PROC(scm_delete_file, "delete-file", 1, 0, 0, } #undef FUNC_NAME -GUILE_PROC (scm_mkdir, "mkdir", 1, 1, 0, +SCM_DEFINE (scm_mkdir, "mkdir", 1, 1, 0, (SCM path, SCM mode), "Create a new directory named by @var{path}. If @var{mode} is omitted then the permissions of the directory file are set using the current @@ -650,7 +650,7 @@ umask. Otherwise they are set to the decimal value specified with #undef FUNC_NAME -GUILE_PROC (scm_rmdir, "rmdir", 1, 0, 0, +SCM_DEFINE (scm_rmdir, "rmdir", 1, 0, 0, (SCM path), "Remove the existing directory named by @var{path}. The directory must be empty for this to succeed. The return value is unspecified.") @@ -679,7 +679,7 @@ be empty for this to succeed. The return value is unspecified.") long scm_tc16_dir; -GUILE_PROC (scm_directory_stream_p, "directory-stream?", 1, 0, 0, +SCM_DEFINE (scm_directory_stream_p, "directory-stream?", 1, 0, 0, (SCM obj), "Returns a boolean indicating whether @var{object} is a directory stream as returned by @code{opendir}.") @@ -689,7 +689,7 @@ as returned by @code{opendir}.") } #undef FUNC_NAME -GUILE_PROC (scm_opendir, "opendir", 1, 0, 0, +SCM_DEFINE (scm_opendir, "opendir", 1, 0, 0, (SCM dirname), "Open the directory specified by @var{path} and return a directory stream.") @@ -706,7 +706,7 @@ stream.") #undef FUNC_NAME -GUILE_PROC (scm_readdir, "readdir", 1, 0, 0, +SCM_DEFINE (scm_readdir, "readdir", 1, 0, 0, (SCM port), "Return (as a string) the next directory entry from the directory stream @var{stream}. If there is no remaining entry to be read then the @@ -726,7 +726,7 @@ end of file object is returned.") -GUILE_PROC (scm_rewinddir, "rewinddir", 1, 0, 0, +SCM_DEFINE (scm_rewinddir, "rewinddir", 1, 0, 0, (SCM port), "Reset the directory port @var{stream} so that the next call to @code{readdir} will return the first directory entry.") @@ -740,7 +740,7 @@ GUILE_PROC (scm_rewinddir, "rewinddir", 1, 0, 0, -GUILE_PROC (scm_closedir, "closedir", 1, 0, 0, +SCM_DEFINE (scm_closedir, "closedir", 1, 0, 0, (SCM port), "Close the directory stream @var{stream}. The return value is unspecified.") @@ -790,7 +790,7 @@ scm_dir_free (SCM p) */ -GUILE_PROC (scm_chdir, "chdir", 1, 0, 0, +SCM_DEFINE (scm_chdir, "chdir", 1, 0, 0, (SCM str), "Change the current working directory to @var{path}. The return value is unspecified.") @@ -809,7 +809,7 @@ The return value is unspecified.") -GUILE_PROC (scm_getcwd, "getcwd", 0, 0, 0, +SCM_DEFINE (scm_getcwd, "getcwd", 0, 0, 0, (), "Returns the name of the current working directory.") #define FUNC_NAME s_scm_getcwd @@ -936,7 +936,7 @@ retrieve_select_type (SELECT_TYPE *set, SCM list) } /* Static helper functions above refer to s_scm_select directly as s_select */ -GUILE_PROC (scm_select, "select", 3, 2, 0, +SCM_DEFINE (scm_select, "select", 3, 2, 0, (SCM reads, SCM writes, SCM excepts, SCM secs, SCM usecs), "@var{reads}, @var{writes} and @var{excepts} can be lists or vectors: it doesn't matter which, but the corresponding object returned will be @@ -1044,7 +1044,7 @@ values instead of a list and has an additional select! interface. -GUILE_PROC (scm_fcntl, "fcntl", 2, 0, 1, +SCM_DEFINE (scm_fcntl, "fcntl", 2, 0, 1, (SCM object, SCM cmd, SCM value), "Apply @var{command} to the specified file descriptor or the underlying file descriptor of the specified port. @var{value} is an optional @@ -1101,7 +1101,7 @@ The value used to indicate the "close on exec" flag with @code{F_GETFL} or } #undef FUNC_NAME -GUILE_PROC (scm_fsync, "fsync", 1, 0, 0, +SCM_DEFINE (scm_fsync, "fsync", 1, 0, 0, (SCM object), "Copies any unwritten data for the specified output file descriptor to disk. If @var{port/fd} is a port, its buffer is flushed before the underlying @@ -1129,7 +1129,7 @@ The return value is unspecified.") } #undef FUNC_NAME -GUILE_PROC (scm_symlink, "symlink", 2, 0, 0, +SCM_DEFINE (scm_symlink, "symlink", 2, 0, 0, (SCM oldpath, SCM newpath), "Create a symbolic link named @var{path-to} with the value (i.e., pointing to) @var{path-from}. The return value is unspecified.") @@ -1155,7 +1155,7 @@ GUILE_PROC (scm_symlink, "symlink", 2, 0, 0, #undef FUNC_NAME -GUILE_PROC (scm_readlink, "readlink", 1, 0, 0, +SCM_DEFINE (scm_readlink, "readlink", 1, 0, 0, (SCM path), "Returns the value of the symbolic link named by @var{path} (a string), i.e., the @@ -1190,7 +1190,7 @@ file that the link points to.") #undef FUNC_NAME -GUILE_PROC (scm_lstat, "lstat", 1, 0, 0, +SCM_DEFINE (scm_lstat, "lstat", 1, 0, 0, (SCM str), "Similar to @code{stat}, but does not follow symbolic links, i.e., it will return information about a symbolic link itself, not the @@ -1224,7 +1224,7 @@ file it points to. @var{path} must be a string.") #undef FUNC_NAME -GUILE_PROC (scm_copy_file, "copy-file", 2, 0, 0, +SCM_DEFINE (scm_copy_file, "copy-file", 2, 0, 0, (SCM oldfile, SCM newfile), "Copy the file specified by @var{path-from} to @var{path-to}. The return value is unspecified.") @@ -1272,7 +1272,7 @@ The return value is unspecified.") SCM scm_dot_string; -GUILE_PROC (scm_dirname, "dirname", 1, 0, 0, +SCM_DEFINE (scm_dirname, "dirname", 1, 0, 0, (SCM filename), "") #define FUNC_NAME s_scm_dirname @@ -1298,7 +1298,7 @@ GUILE_PROC (scm_dirname, "dirname", 1, 0, 0, } #undef FUNC_NAME -GUILE_PROC (scm_basename, "basename", 1, 1, 0, +SCM_DEFINE (scm_basename, "basename", 1, 1, 0, (SCM filename, SCM suffix), "") #define FUNC_NAME s_scm_basename |