6 /* Copyright (C) 1995,1997,1998,1999,2000,2001, 2006, 2008 Free Software Foundation, Inc.
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public License
10 * as published by the Free Software Foundation; either version 3 of
11 * the License, or (at your option) any later version.
13 * This library is distributed in the hope that it will be useful, but
14 * WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the Free Software
20 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
26 #include "libguile/__scm.h"
30 SCM_API scm_t_bits scm_tc16_dir
;
32 #define SCM_DIR_FLAG_OPEN (1L << 16)
34 #define SCM_DIRP(x) (!SCM_IMP (x) && (SCM_TYP16 (x) == scm_tc16_dir))
35 #define SCM_DIR_OPEN_P(x) (SCM_CELL_WORD_0 (x) & SCM_DIR_FLAG_OPEN)
39 SCM_API SCM
scm_chown (SCM object
, SCM owner
, SCM group
);
40 SCM_API SCM
scm_chmod (SCM object
, SCM mode
);
41 SCM_API SCM
scm_umask (SCM mode
);
42 SCM_API SCM
scm_open_fdes (SCM path
, SCM flags
, SCM mode
);
43 SCM_API SCM
scm_open (SCM path
, SCM flags
, SCM mode
);
44 SCM_API SCM
scm_close (SCM fd_or_port
);
45 SCM_API SCM
scm_close_fdes (SCM fd
);
46 SCM_API SCM
scm_stat (SCM object
, SCM exception_on_error
);
47 SCM_API SCM
scm_link (SCM oldpath
, SCM newpath
);
48 SCM_API SCM
scm_rename (SCM oldname
, SCM newname
);
49 SCM_API SCM
scm_delete_file (SCM str
);
50 SCM_API SCM
scm_mkdir (SCM path
, SCM mode
);
51 SCM_API SCM
scm_rmdir (SCM path
);
52 SCM_API SCM
scm_directory_stream_p (SCM obj
);
53 SCM_API SCM
scm_opendir (SCM dirname
);
54 SCM_API SCM
scm_readdir (SCM port
);
55 SCM_API SCM
scm_rewinddir (SCM port
);
56 SCM_API SCM
scm_closedir (SCM port
);
57 SCM_API SCM
scm_chdir (SCM str
);
58 SCM_API SCM
scm_getcwd (void);
59 SCM_API SCM
scm_select (SCM reads
, SCM writes
, SCM excepts
, SCM secs
, SCM msecs
);
60 SCM_API SCM
scm_fcntl (SCM object
, SCM cmd
, SCM value
);
61 SCM_API SCM
scm_fsync (SCM object
);
62 SCM_API SCM
scm_symlink (SCM oldpath
, SCM newpath
);
63 SCM_API SCM
scm_readlink (SCM path
);
64 SCM_API SCM
scm_lstat (SCM str
);
65 SCM_API SCM
scm_copy_file (SCM oldfile
, SCM newfile
);
66 SCM_API SCM
scm_dirname (SCM filename
);
67 SCM_API SCM
scm_basename (SCM filename
, SCM suffix
);
68 SCM_API SCM
scm_canonicalize_path (SCM path
);
70 SCM_INTERNAL
void scm_init_filesys (void);
72 #endif /* SCM_FILESYS_H */