diff options
Diffstat (limited to 'file.c')
-rw-r--r-- | file.c | 1059 |
1 files changed, 1059 insertions, 0 deletions
diff --git a/file.c b/file.c new file mode 100644 index 0000000000..7001a2f559 --- /dev/null +++ b/file.c @@ -0,0 +1,1059 @@ + +/************************************************ + + file.c - + + $Author: matz $ + $Date: 1994/06/27 15:48:26 $ + created at: Mon Nov 15 12:24:34 JST 1993 + + Copyright (C) 1994 Yukihiro Matsumoto + +************************************************/ + +#include "ruby.h" +#include "io.h" +#include <sys/time.h> +#include <sys/param.h> +#ifdef HAVE_UNISTD_H +#include <unistd.h> +#endif + +char *strdup(); + +extern VALUE C_IO; +VALUE C_File; + +VALUE time_new(); + +VALUE +file_open(fname, mode) + char *fname, *mode; +{ + VALUE port; + OpenFile *fptr; + + GC_LINK; + GC_PRO3(port, obj_alloc(C_File)); + + MakeOpenFile(port, fptr); + fptr->mode = io_mode_flags(mode); + + fptr->f = fopen(fname, mode); + if (fptr->f == NULL) { + if (errno == EMFILE) { + gc(); + fptr->f = fopen(fname, mode); + } + if (fptr->f == NULL) { + rb_sys_fail(fname); + } + } + + fptr->path = strdup(fname); + + GC_UNLINK; + + return port; +} + +static VALUE +Ffile_tell(obj) + VALUE obj; +{ + OpenFile *fptr; + long pos; + + GetOpenFile(obj, fptr); + + pos = ftell(fptr->f); + if (ferror(fptr->f) != 0) rb_sys_fail(Qnil); + + return int2inum(pos); +} + +static VALUE +Ffile_seek(obj, offset, ptrname) + VALUE obj, offset, ptrname; +{ + OpenFile *fptr; + long pos; + + Check_Type(ptrname, T_FIXNUM); + + GetOpenFile(obj, fptr); + + pos = fseek(fptr->f, NUM2INT(offset), NUM2INT(ptrname)); + if (pos != 0) rb_sys_fail(Qnil); + + return obj; +} + +static VALUE +Ffile_rewind(obj) + VALUE obj; +{ + OpenFile *fptr; + + GetOpenFile(obj, fptr); + if (fseek(fptr->f, 0L, 0) != 0) rb_sys_fail(Qnil); + + return obj; +} + +static VALUE +Ffile_eof(obj) + VALUE obj; +{ + OpenFile *fptr; + + GetOpenFile(obj, fptr); + if (feof(fptr->f) == 0) return FALSE; + return TRUE; +} + +static VALUE +Ffile_path(obj) + VALUE obj; +{ + OpenFile *fptr; + + GetOpenFile(obj, fptr); + return str_new2(fptr->path); +} + +static VALUE +Ffile_isatty(obj) + VALUE obj; +{ + return FALSE; +} + +#include <sys/types.h> +#include <sys/stat.h> +#include <sys/file.h> + +static VALUE +stat_new(st) + struct stat *st; +{ + VALUE obj, data, atime, mtime, ctime, stat; + + if (st == Qnil) Bug("stat_new() called with nil"); + + GC_LINK; + GC_PRO3(atime, time_new(st->st_atime, 0)); + GC_PRO3(mtime, time_new(st->st_mtime, 0)); + GC_PRO3(ctime, time_new(st->st_ctime, 0)); + + stat = struct_new("stat", + "dev", INT2FIX((int)st->st_dev), + "ino", INT2FIX((int)st->st_ino), + "mode", INT2FIX((int)st->st_mode), + "nlink", INT2FIX((int)st->st_nlink), + "uid", INT2FIX((int)st->st_uid), + "gid", INT2FIX((int)st->st_gid), +#ifdef HAVE_ST_RDEV + "rdev", INT2FIX((int)st->st_rdev), +#else + "rdev", INT2FIX(0), +#endif + "size", INT2FIX((int)st->st_size), +#ifdef HAVE_ST_BLKSIZE + "blksize", INT2FIX((int)st->st_blksize), +#else + "blksize", INT2FIX(0), +#endif +#ifdef HAVE_ST_BLOCKS + "blocks", INT2FIX((int)st->st_blocks), +#else + "blocks", INT2FIX(0), +#endif + "atime", atime, + "mtime", mtime, + "ctime", ctime, + Qnil); + GC_UNLINK; + + return stat; +} + +static char lastpath[MAXPATHLEN]; +static struct stat laststat; + +cache_stat(path, st) + char *path; + struct stat *st; +{ + if (strcmp(lastpath, path) == 0) { + *st = laststat; + return 0; + } + if (stat(path, st) == -1) + return -1; + strcpy(lastpath, path); + laststat = *st; + + return 0; +} + +static VALUE +Ffile_stat(obj, fname) + VALUE obj; + struct RString *fname; +{ + struct stat st; + + Check_Type(fname, T_STRING); + if (cache_stat(fname->ptr, &st) == -1) { + rb_sys_fail(fname->ptr); + } + return stat_new(&st); +} + +static VALUE +Ffile_stat2(obj) + VALUE obj; +{ + OpenFile *fptr; + struct stat st; + + GetOpenFile(obj, fptr); + if (fstat(fileno(fptr->f), &st) == -1) { + rb_sys_fail(fptr->path); + } + return stat_new(&st); +} + +static VALUE +Ffile_lstat(obj, fname) + VALUE obj; + struct RString *fname; +{ + struct stat st; + + Check_Type(fname, T_STRING); + if (lstat(fname->ptr, &st) == -1) { + rb_sys_fail(fname->ptr); + } + return stat_new(&st); +} + +static VALUE +Ffile_lstat2(obj) + VALUE obj; +{ + OpenFile *fptr; + struct stat st; + + GetOpenFile(obj, fptr); + if (lstat(fptr->path, &st) == -1) { + rb_sys_fail(fptr->path); + } + return stat_new(&st); +} + +#define HAS_GETGROUPS + +static int +group_member(gid) + GETGROUPS_T gid; +{ + GETGROUPS_T egid; + + if (getgid() == gid || getegid() == gid) + return TRUE; + +#ifdef HAS_GETGROUPS +#ifndef NGROUPS +#define NGROUPS 32 +#endif + { + GETGROUPS_T gary[NGROUPS]; + int anum; + + anum = getgroups(NGROUPS, gary); + while (--anum >= 0) + if (gary[anum] == gid) + return TRUE; + } +#endif + return FALSE; +} + +#ifndef S_IXUGO +# define S_IXUGO (S_IXUSR | S_IXGRP | S_IXOTH) +#endif + +int +eaccess(path, mode) + char *path; + int mode; +{ + extern int group_member (); + struct stat st; + static int euid = -1; + + if (cache_stat(path, &st) < 0) return (-1); + + if (euid == -1) + euid = geteuid (); + + if (euid == 0) + { + /* Root can read or write any file. */ + if (mode != X_OK) + return 0; + + /* Root can execute any file that has any one of the execute + bits set. */ + if (st.st_mode & S_IXUGO) + return 0; + } + + if (st.st_uid == euid) /* owner */ + mode <<= 6; + else if (group_member (st.st_gid)) + mode <<= 3; + + if (st.st_mode & mode) return 0; + + return -1; +} + +static VALUE +Ffile_d(obj, fname) + VALUE obj; + struct RString *fname; +{ +#ifndef S_ISDIR +# define S_ISDIR(m) ((m & S_IFMT) == S_IFDIR) +#endif + + struct stat st; + + Check_Type(fname, T_STRING); + if (cache_stat(fname->ptr, &st) < 0) return FALSE; + if (S_ISDIR(st.st_mode)) return TRUE; + return FALSE; +} + +static VALUE +Ffile_p(obj, fname) + VALUE obj; + struct RString *fname; +{ +#ifdef S_IFIFO +# ifndef S_ISFIFO +# define S_ISFIFO(m) ((m & S_IFMT) == S_IFIFO) +# endif + + struct stat st; + + Check_Type(fname, T_STRING); + if (cache_stat(fname->ptr, &st) < 0) return FALSE; + if (S_ISFIFO(st.st_mode)) return TRUE; + +#endif + return FALSE; +} + +static VALUE +Ffile_l(obj, fname) + VALUE obj; + struct RString *fname; +{ +#ifndef S_ISLNK +# ifdef _S_ISLNK +# define S_ISLNK(m) _S_ISLNK(m) +# else +# ifdef _S_IFLNK +# define S_ISLNK(m) ((m & S_IFMT) == _S_IFLNK) +# else +# ifdef S_IFLNK +# define S_ISLNK(m) ((m & S_IFMT) == S_IFLNK) +# endif +# endif +# endif +#endif + +#ifdef S_ISLNK + struct stat st; + + Check_Type(fname, T_STRING); + if (cache_stat(fname->ptr, &st) < 0) return FALSE; + if (S_ISLNK(st.st_mode)) return TRUE; + +#endif + return FALSE; +} + +Ffile_S(obj, fname) + VALUE obj; + struct RString *fname; +{ +#ifndef S_ISSOCK +# ifdef _S_ISSOCK +# define S_ISSOCK(m) _S_ISSOCK(m) +# else +# ifdef _S_IFSOCK +# define S_ISSOCK(m) ((m & S_IFMT) == _S_IFSOCK) +# else +# ifdef S_IFSOCK +# define S_ISSOCK(m) ((m & S_IFMT) == S_IFSOCK) +# endif +# endif +# endif +#endif + +#ifdef S_ISSOCK + struct stat st; + + Check_Type(fname, T_STRING); + if (cache_stat(fname->ptr, &st) < 0) return FALSE; + if (S_ISSOCK(st.st_mode)) return TRUE; + +#endif + return FALSE; +} + +static VALUE +Ffile_b(obj, fname) + VALUE obj; + struct RString *fname; +{ +#ifndef S_ISBLK +# ifdef S_IFBLK +# define S_ISBLK(m) ((m & S_IFMT) == S_IFBLK) +# endif +#endif + +#ifdef S_ISBLK + struct stat st; + + Check_Type(fname, T_STRING); + if (cache_stat(fname->ptr, &st) < 0) return FALSE; + if (S_ISBLK(st.st_mode)) return TRUE; + +#endif + return FALSE; +} + +static VALUE +Ffile_c(obj, fname) + VALUE obj; + struct RString *fname; +{ +#ifndef S_ISCHR +# define S_ISCHR(m) ((m & S_IFMT) == S_IFCHR) +#endif + + struct stat st; + + Check_Type(fname, T_STRING); + if (cache_stat(fname->ptr, &st) < 0) return FALSE; + if (S_ISBLK(st.st_mode)) return TRUE; + + return FALSE; +} + +static VALUE +Ffile_e(obj, fname) + VALUE obj; + struct RString *fname; +{ + struct stat st; + + Check_Type(fname, T_STRING); + if (cache_stat(fname->ptr, &st) < 0) return FALSE; + return TRUE; +} + +static VALUE +Ffile_r(obj, fname) + VALUE obj; + struct RString *fname; +{ + Check_Type(fname, T_STRING); + if (eaccess(fname->ptr, R_OK) < 0) return FALSE; + return TRUE; +} + +static VALUE +Ffile_R(obj, fname) + VALUE obj; + struct RString *fname; +{ + Check_Type(fname, T_STRING); + if (access(fname->ptr, R_OK) < 0) return FALSE; + return TRUE; +} + +static VALUE +Ffile_w(obj, fname) + VALUE obj; + struct RString *fname; +{ + Check_Type(fname, T_STRING); + if (eaccess(fname->ptr, W_OK) < 0) return FALSE; + return TRUE; +} + +static VALUE +Ffile_W(obj, fname) + VALUE obj; + struct RString *fname; +{ + Check_Type(fname, T_STRING); + if (access(fname->ptr, W_OK) < 0) return FALSE; + return TRUE; +} + +static VALUE +Ffile_x(obj, fname) + VALUE obj; + struct RString *fname; +{ + Check_Type(fname, T_STRING); + if (eaccess(fname->ptr, X_OK) < 0) return FALSE; + return TRUE; +} + +static VALUE +Ffile_X(obj, fname) + VALUE obj; + struct RString *fname; +{ + Check_Type(fname, T_STRING); + if (access(fname->ptr, X_OK) < 0) return FALSE; + return TRUE; +} + +static VALUE +Ffile_f(obj, fname) + VALUE obj; + struct RString *fname; +{ + struct stat st; + + Check_Type(fname, T_STRING); + if (cache_stat(fname->ptr, &st) < 0) return FALSE; + if (S_ISREG(st.st_mode)) return TRUE; + return FALSE; +} + +static VALUE +Ffile_z(obj, fname) + VALUE obj; + struct RString *fname; +{ + struct stat st; + + Check_Type(fname, T_STRING); + if (cache_stat(fname->ptr, &st) < 0) return FALSE; + if (st.st_size == 0) return TRUE; + return FALSE; +} + +static VALUE +Ffile_s(obj, fname) + VALUE obj; + struct RString *fname; +{ + struct stat st; + + Check_Type(fname, T_STRING); + if (cache_stat(fname->ptr, &st) < 0) return FALSE; + if (st.st_size == 0) return FALSE; + return int2inum(st.st_size); +} + +static VALUE +Ffile_owned(obj, fname) + VALUE obj; + struct RString *fname; +{ + struct stat st; + + Check_Type(fname, T_STRING); + if (cache_stat(fname->ptr, &st) < 0) return FALSE; + if (st.st_uid == geteuid()) return TRUE; + return FALSE; +} + +static VALUE +Ffile_grpowned(obj, fname) + VALUE obj; + struct RString *fname; +{ + struct stat st; + + Check_Type(fname, T_STRING); + if (cache_stat(fname->ptr, &st) < 0) return FALSE; + if (st.st_gid == getegid()) return TRUE; + return FALSE; +} + +#if defined(S_ISUID) || defined(S_ISGID) || defined(S_ISVTX) +static VALUE +check3rdbyte(file, mode) + char *file; + int mode; +{ + struct stat st; + + if (cache_stat(file, &st) < 0) return FALSE; + if (st.st_mode & mode) return TRUE; + return FALSE; +} +#endif + +static VALUE +Ffile_suid(obj, fname) + VALUE obj; + struct RString *fname; +{ + Check_Type(fname, T_STRING); +#ifdef S_ISUID + return check3rdbyte(fname->ptr, S_ISUID); +#else + return FALSE; +#endif +} + +static VALUE +Ffile_sgid(obj, fname) + VALUE obj; + struct RString *fname; +{ + Check_Type(fname, T_STRING); +#ifdef S_ISGID + return check3rdbyte(fname->ptr, S_ISGID); +#else + return FALSE; +#endif +} + +static VALUE +Ffile_sticky(obj, fname) + VALUE obj; + struct RString *fname; +{ + Check_Type(fname, T_STRING); +#ifdef S_ISVTX + return check3rdbyte(fname->ptr, S_ISVTX); +#else + return FALSE; +#endif +} + +static VALUE +Ffile_atime(obj, fname) + VALUE obj; + struct RString *fname; +{ + struct stat st; + + Check_Type(fname, T_STRING); + if (cache_stat(fname->ptr, &st) < 0) rb_sys_fail(fname->ptr); + return time_new(st.st_atime, 0); +} + +static VALUE +Ffile_atime2(obj) + VALUE obj; +{ + OpenFile *fptr; + struct stat st; + + GetOpenFile(obj, fptr); + if (fstat(fileno(fptr->f), &st) == -1) { + rb_sys_fail(fptr->path); + } + return time_new(st.st_atime, 0); +} + +static VALUE +Ffile_mtime(obj, fname) + VALUE obj; + struct RString *fname; +{ + struct stat st; + + Check_Type(fname, T_STRING); + if (cache_stat(fname->ptr, &st) < 0) rb_sys_fail(fname->ptr); + return time_new(st.st_mtime, 0); +} + +static VALUE +Ffile_mtime2(obj) + VALUE obj; +{ + OpenFile *fptr; + struct stat st; + + GetOpenFile(obj, fptr); + if (fstat(fileno(fptr->f), &st) == -1) { + rb_sys_fail(fptr->path); + } + return time_new(st.st_mtime, 0); +} + +static VALUE +Ffile_ctime(obj, fname) + VALUE obj; + struct RString *fname; +{ + struct stat st; + + Check_Type(fname, T_STRING); + if (cache_stat(fname->ptr, &st) < 0) rb_sys_fail(fname->ptr); + return time_new(st.st_ctime, 0); +} + +static VALUE +Ffile_ctime2(obj) + VALUE obj; +{ + OpenFile *fptr; + struct stat st; + + GetOpenFile(obj, fptr); + if (fstat(fileno(fptr->f), &st) == -1) { + rb_sys_fail(fptr->path); + } + return time_new(st.st_ctime, 0); +} + +static VALUE +Ffile_chmod(obj, args) + VALUE obj, args; +{ + VALUE vmode; + VALUE rest; + int mode, i, len; + VALUE path; + + rb_scan_args(args, "1*", &vmode, &rest); + mode = NUM2INT(vmode); + + len = RARRAY(rest)->len; + for (i=0; i<len; i++) { + path = RARRAY(rest)->ptr[i]; + Check_Type(path, T_STRING); + if (chmod(RSTRING(path)->ptr, mode) == -1) + rb_sys_fail(RSTRING(path)->ptr); + } + + return Qnil; +} + +static VALUE +Ffile_chmod2(obj, vmode) + VALUE obj, vmode; +{ + OpenFile *fptr; + int mode; + + mode = NUM2INT(vmode); + + GetOpenFile(obj, fptr); + if (fchmod(fileno(fptr->f), mode) == -1) + rb_sys_fail(fptr->path); + + return obj; +} + +static VALUE +Ffile_chown(obj, args) + VALUE obj, args; +{ + VALUE o, g, rest; + int owner, group; + int i, len; + + len = rb_scan_args(args, "2*", &o, &g, &rest); + if (o == Qnil) { + owner = -1; + } + else { + owner = NUM2INT(o); + } + if (g == Qnil) { + group = -1; + } + else { + group = NUM2INT(g); + } + + len -= 2; + for (i=0; i<len; i++) { + Check_Type(RARRAY(rest)->ptr[i], T_STRING); + } + + for (i=0; i<len; i++) { + if (chown(RSTRING(RARRAY(rest)->ptr[i])->ptr, owner, group) < 0) + rb_sys_fail(RSTRING(RARRAY(rest)->ptr[i])->ptr); + } + + return INT2FIX(i); +} + +Ffile_chown2(obj, owner, group) + VALUE obj, owner, group; +{ + OpenFile *fptr; + int mode; + + GetOpenFile(obj, fptr); + if (fchown(fileno(fptr->f), NUM2INT(owner), NUM2INT(group)) == -1) + rb_sys_fail(fptr->path); + + return obj; +} + +struct timeval *time_timeval(); + +static VALUE +Ffile_utime(obj, args) + VALUE obj, args; +{ + VALUE atime, mtime, rest; + struct timeval tvp[2]; + int i, len; + + len = rb_scan_args(args, "2*", &atime, &mtime, &rest); + + tvp[0] = *time_timeval(atime); + tvp[1] = *time_timeval(mtime); + + len -= 2; + for (i=0; i<len; i++) { + Check_Type(RARRAY(rest)->ptr[i], T_STRING); + } + + for (i=0; i<len; i++) { + if (utimes(RSTRING(RARRAY(rest)->ptr[i])->ptr, tvp) < 0) + rb_sys_fail(RSTRING(RARRAY(rest)->ptr[i])->ptr); + } + + return INT2FIX(i); +} + +static VALUE +Ffile_link(obj, from, to) + VALUE obj; + struct RString *from, *to; +{ + Check_Type(from, T_STRING); + Check_Type(to, T_STRING); + + if (link(from->ptr, to->ptr) < 0) + rb_sys_fail(from->ptr); + return TRUE; +} + +static VALUE +Ffile_symlink(obj, from, to) + VALUE obj; + struct RString *from, *to; +{ + Check_Type(from, T_STRING); + Check_Type(to, T_STRING); + + if (symlink(from->ptr, to->ptr) < 0) + rb_sys_fail(from->ptr); + return TRUE; +} + +Ffile_readlink(obj, path) + VALUE obj; + struct RString *path; +{ + char buf[MAXPATHLEN]; + int cc; + + Check_Type(path, T_STRING); + + if ((cc = readlink(path->ptr, buf, MAXPATHLEN)) < 0) + rb_sys_fail(path->ptr); + + return str_new(buf, cc); +} + +static VALUE +Ffile_unlink(obj, args) + VALUE obj; + struct RArray *args; +{ + int i, len; + + len = args->len; + for (i=0; i<len; i++) { + Check_Type(args->ptr[i], T_STRING); + } + for (i=0; i<len; i++) { + if (unlink(RSTRING(args->ptr[i])->ptr) < 0) + rb_sys_fail(RSTRING(args->ptr[i])->ptr); + } + + return INT2FIX(i); +} + +static VALUE +Ffile_rename(obj, from, to) + VALUE obj; + struct RString *from, *to; +{ + Check_Type(from, T_STRING); + Check_Type(to, T_STRING); + + if (rename(from->ptr, to->ptr) == -1) + rb_sys_fail(from->ptr); + + return TRUE; +} + +static VALUE +Ffile_umask(argc, argv) + int argc; + VALUE *argv; +{ + VALUE mask; + int omask; + + if (argc == 1) { + int omask = umask(0); + umask(omask); + } + else if (argc == 2) { + omask = umask(NUM2INT(argv[1])); + } + else { + Fail("wrong # of argument"); + } + return INT2FIX(omask); +} + +static VALUE +Ffile_truncate(obj, path, len) + VALUE obj, len; + struct RString *path; +{ + Check_Type(path, T_STRING); + + if (truncate(path->ptr, NUM2INT(len)) < 0) + rb_sys_fail(path->ptr); + return TRUE; +} + +static VALUE +Ffile_truncate2(obj, len) + VALUE obj, len; +{ + OpenFile *fptr; + + GetOpenFile(obj, fptr); + + if (!(fptr->mode & FMODE_WRITABLE)) { + Fail("not opened for writing"); + } + if (ftruncate(fileno(fptr->f), NUM2INT(len)) < 0) + rb_sys_fail(fptr->path); + return TRUE; +} + +static VALUE +Ffile_fcntl(obj, req, arg) + VALUE obj, req; + struct RString *arg; +{ + io_ctl(obj, req, arg, 0); + return obj; +} + +Init_File() +{ + C_File = rb_define_class("File", C_IO); + + rb_define_single_method(C_File, "stat", Ffile_stat, 1); + rb_define_single_method(C_File, "lstat", Ffile_lstat, 1); + + rb_define_single_method(C_File, "d", Ffile_d, 1); + rb_define_single_method(C_File, "isdirectory", Ffile_d, 1); + rb_define_single_method(C_File, "a", Ffile_e, 1); + rb_define_single_method(C_File, "e", Ffile_e, 1); + rb_define_single_method(C_File, "exists", Ffile_e, 1); + rb_define_single_method(C_File, "r", Ffile_r, 1); + rb_define_single_method(C_File, "readable", Ffile_r, 1); + rb_define_single_method(C_File, "R", Ffile_R, 1); + rb_define_single_method(C_File, "w", Ffile_w, 1); + rb_define_single_method(C_File, "writable", Ffile_w, 1); + rb_define_single_method(C_File, "W", Ffile_W, 1); + rb_define_single_method(C_File, "x", Ffile_x, 1); + rb_define_single_method(C_File, "executable", Ffile_x, 1); + rb_define_single_method(C_File, "X", Ffile_X, 1); + rb_define_single_method(C_File, "f", Ffile_f, 1); + rb_define_single_method(C_File, "isfile", Ffile_f, 1); + rb_define_single_method(C_File, "z", Ffile_z, 1); + rb_define_single_method(C_File, "s", Ffile_s, 1); + rb_define_single_method(C_File, "size", Ffile_s, 1); + rb_define_single_method(C_File, "O", Ffile_owned, 1); + rb_define_single_method(C_File, "owned", Ffile_owned, 1); + rb_define_single_method(C_File, "G", Ffile_grpowned, 1); + + rb_define_single_method(C_File, "p", Ffile_p, 1); + rb_define_single_method(C_File, "ispipe", Ffile_p, 1); + rb_define_single_method(C_File, "l", Ffile_l, 1); + rb_define_single_method(C_File, "issymlink", Ffile_l, 1); + rb_define_single_method(C_File, "S", Ffile_S, 1); + rb_define_single_method(C_File, "issocket", Ffile_S, 1); + + rb_define_single_method(C_File, "b", Ffile_b, 1); + rb_define_single_method(C_File, "c", Ffile_c, 1); + + rb_define_single_method(C_File, "u", Ffile_suid, 1); + rb_define_single_method(C_File, "setuid", Ffile_suid, 1); + rb_define_single_method(C_File, "g", Ffile_sgid, 1); + rb_define_single_method(C_File, "setgid", Ffile_sgid, 1); + rb_define_single_method(C_File, "k", Ffile_sticky, 1); + + rb_define_single_method(C_File, "atime", Ffile_atime, 1); + rb_define_single_method(C_File, "mtime", Ffile_mtime, 1); + rb_define_single_method(C_File, "ctime", Ffile_ctime, 1); + + rb_define_single_method(C_File, "utime", Ffile_utime, -1); + rb_define_single_method(C_File, "chmod", Ffile_chmod, -2); + rb_define_single_method(C_File, "chown", Ffile_chown, -1); + + rb_define_single_method(C_File, "link", Ffile_link, 2); + rb_define_single_method(C_File, "symlink", Ffile_symlink, 2); + rb_define_single_method(C_File, "readlink", Ffile_readlink, 1); + + rb_define_single_method(C_File, "unlink", Ffile_unlink, -1); + rb_define_single_method(C_File, "delete", Ffile_unlink, -1); + rb_define_single_method(C_File, "rename", Ffile_rename, 2); + rb_define_single_method(C_File, "umask", Ffile_umask, -1); + rb_define_single_method(C_File, "truncate", Ffile_truncate, 2); + + rb_define_method(C_File, "stat", Ffile_stat2, 0); + rb_define_method(C_File, "lstat", Ffile_lstat2, 0); + + rb_define_method(C_File, "atime", Ffile_atime2, 0); + rb_define_method(C_File, "mtime", Ffile_mtime2, 0); + rb_define_method(C_File, "ctime", Ffile_ctime2, 0); + + rb_define_method(C_File, "chmod", Ffile_chmod2, 1); + rb_define_method(C_File, "chown", Ffile_chown2, 2); + rb_define_method(C_File, "truncate", Ffile_truncate2, 1); + + rb_define_method(C_File, "tell", Ffile_tell, 0); + rb_define_method(C_File, "seek", Ffile_seek, 2); + rb_define_method(C_File, "rewind", Ffile_rewind, 0); + rb_define_method(C_File, "isatty", Ffile_isatty, 0); + rb_define_method(C_File, "eof", Ffile_eof, 0); + + rb_define_method(C_IO, "fcntl", Ffile_fcntl, 2); + + rb_define_method(C_File, "path", Ffile_path, 0); +} |