зеркало из https://github.com/github/ruby.git
2590 строки
49 KiB
C
2590 строки
49 KiB
C
/**********************************************************************
|
|
|
|
file.c -
|
|
|
|
$Author$
|
|
$Date$
|
|
created at: Mon Nov 15 12:24:34 JST 1993
|
|
|
|
Copyright (C) 1993-2001 Yukihiro Matsumoto
|
|
Copyright (C) 2000 Network Applied Communication Laboratory, Inc.
|
|
Copyright (C) 2000 Information-technology Promotion Agency, Japan
|
|
|
|
**********************************************************************/
|
|
|
|
#ifdef NT
|
|
#include "missing/file.h"
|
|
#endif
|
|
|
|
#include "ruby.h"
|
|
#include "rubyio.h"
|
|
#include "rubysig.h"
|
|
#include "util.h"
|
|
#include "dln.h"
|
|
|
|
#ifdef HAVE_UNISTD_H
|
|
#include <unistd.h>
|
|
#endif
|
|
|
|
#ifdef HAVE_SYS_FILE_H
|
|
# include <sys/file.h>
|
|
#else
|
|
int flock _((int, int));
|
|
#endif
|
|
|
|
#ifdef HAVE_SYS_PARAM_H
|
|
# include <sys/param.h>
|
|
#else
|
|
# define MAXPATHLEN 1024
|
|
#endif
|
|
|
|
#include <time.h>
|
|
#ifdef HAVE_SYS_TIME_H
|
|
# include <sys/time.h>
|
|
#else
|
|
#ifndef NT
|
|
struct timeval {
|
|
long tv_sec; /* seconds */
|
|
long tv_usec; /* and microseconds */
|
|
};
|
|
#endif /* NT */
|
|
#endif
|
|
|
|
VALUE rb_time_new _((time_t, time_t));
|
|
|
|
#ifdef HAVE_UTIME_H
|
|
#include <utime.h>
|
|
#endif
|
|
|
|
#ifdef HAVE_PWD_H
|
|
#include <pwd.h>
|
|
#endif
|
|
|
|
#ifndef HAVE_STRING_H
|
|
char *strrchr _((const char*,const char));
|
|
#endif
|
|
|
|
#include <sys/types.h>
|
|
#include <sys/stat.h>
|
|
|
|
#ifndef HAVE_LSTAT
|
|
#define lstat(path,st) stat(path,st)
|
|
#endif
|
|
|
|
VALUE rb_cFile;
|
|
VALUE rb_mFileTest;
|
|
static VALUE rb_cStat;
|
|
|
|
static int
|
|
apply2files(func, vargs, arg)
|
|
void (*func)();
|
|
VALUE vargs;
|
|
void *arg;
|
|
{
|
|
int i;
|
|
VALUE path;
|
|
struct RArray *args = RARRAY(vargs);
|
|
|
|
for (i=0; i<args->len; i++) {
|
|
path = args->ptr[i];
|
|
SafeStringValue(path);
|
|
(*func)(RSTRING(path)->ptr, arg);
|
|
}
|
|
|
|
return args->len;
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_path(obj)
|
|
VALUE obj;
|
|
{
|
|
OpenFile *fptr;
|
|
|
|
GetOpenFile(obj, fptr);
|
|
if (!fptr->path) return Qnil;
|
|
return rb_str_new2(fptr->path);
|
|
}
|
|
|
|
#ifdef NT
|
|
#include "missing/file.h"
|
|
#endif
|
|
|
|
static VALUE
|
|
stat_new_0(klass, st)
|
|
VALUE klass;
|
|
struct stat *st;
|
|
{
|
|
struct stat *nst = 0;
|
|
|
|
if (st) {
|
|
nst = ALLOC(struct stat);
|
|
*nst = *st;
|
|
}
|
|
return Data_Wrap_Struct(klass, NULL, free, nst);
|
|
}
|
|
|
|
static VALUE
|
|
stat_new(st)
|
|
struct stat *st;
|
|
{
|
|
return stat_new_0(rb_cStat, st);
|
|
}
|
|
|
|
static struct stat*
|
|
get_stat(self)
|
|
VALUE self;
|
|
{
|
|
struct stat* st;
|
|
Data_Get_Struct(self, struct stat, st);
|
|
if (!st) rb_raise(rb_eTypeError, "uninitialized File::Stat");
|
|
return st;
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_cmp(self, other)
|
|
VALUE self, other;
|
|
{
|
|
if (rb_obj_is_kind_of(other, rb_obj_class(self))) {
|
|
time_t t1 = get_stat(self)->st_mtime;
|
|
time_t t2 = get_stat(other)->st_mtime;
|
|
if (t1 == t2)
|
|
return INT2FIX(0);
|
|
else if (t1 < t2)
|
|
return INT2FIX(-1);
|
|
else
|
|
return INT2FIX(1);
|
|
}
|
|
rb_raise(rb_eTypeError, "operand is not File::Stat");
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_dev(self)
|
|
VALUE self;
|
|
{
|
|
return INT2NUM(get_stat(self)->st_dev);
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_ino(self)
|
|
VALUE self;
|
|
{
|
|
return ULONG2NUM(get_stat(self)->st_ino);
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_mode(self)
|
|
VALUE self;
|
|
{
|
|
return UINT2NUM(get_stat(self)->st_mode);
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_nlink(self)
|
|
VALUE self;
|
|
{
|
|
return UINT2NUM(get_stat(self)->st_nlink);
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_uid(self)
|
|
VALUE self;
|
|
{
|
|
return UINT2NUM(get_stat(self)->st_uid);
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_gid(self)
|
|
VALUE self;
|
|
{
|
|
return UINT2NUM(get_stat(self)->st_gid);
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_rdev(self)
|
|
VALUE self;
|
|
{
|
|
#ifdef HAVE_ST_RDEV
|
|
return ULONG2NUM(get_stat(self)->st_rdev);
|
|
#else
|
|
return INT2FIX(0);
|
|
#endif
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_size(self)
|
|
VALUE self;
|
|
{
|
|
return LONG2NUM(get_stat(self)->st_size);
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_blksize(self)
|
|
VALUE self;
|
|
{
|
|
#ifdef HAVE_ST_BLKSIZE
|
|
return ULONG2NUM(get_stat(self)->st_blksize);
|
|
#else
|
|
return INT2FIX(0);
|
|
#endif
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_blocks(self)
|
|
VALUE self;
|
|
{
|
|
#ifdef HAVE_ST_BLOCKS
|
|
return ULONG2NUM(get_stat(self)->st_blocks);
|
|
#else
|
|
return INT2FIX(0);
|
|
#endif
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_atime(self)
|
|
VALUE self;
|
|
{
|
|
return rb_time_new(get_stat(self)->st_atime, 0);
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_mtime(self)
|
|
VALUE self;
|
|
{
|
|
return rb_time_new(get_stat(self)->st_mtime, 0);
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_ctime(self)
|
|
VALUE self;
|
|
{
|
|
return rb_time_new(get_stat(self)->st_ctime, 0);
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_inspect(self)
|
|
VALUE self;
|
|
{
|
|
VALUE str;
|
|
int i;
|
|
struct {
|
|
char *name;
|
|
VALUE (*func)();
|
|
} member[] = {
|
|
{"dev", rb_stat_dev},
|
|
{"ino", rb_stat_ino},
|
|
{"mode", rb_stat_mode},
|
|
{"nlink", rb_stat_nlink},
|
|
{"uid", rb_stat_uid},
|
|
{"gid", rb_stat_gid},
|
|
{"rdev", rb_stat_rdev},
|
|
{"size", rb_stat_size},
|
|
{"blksize", rb_stat_blksize},
|
|
{"blocks", rb_stat_blocks},
|
|
{"atime", rb_stat_atime},
|
|
{"mtime", rb_stat_mtime},
|
|
{"ctime", rb_stat_ctime},
|
|
};
|
|
|
|
str = rb_str_buf_new2("#<");
|
|
rb_str_buf_cat2(str, rb_class2name(CLASS_OF(self)));
|
|
rb_str_buf_cat2(str, " ");
|
|
|
|
for (i = 0; i < sizeof(member)/sizeof(member[0]); i++) {
|
|
VALUE str2;
|
|
|
|
if (i > 0) {
|
|
rb_str_buf_cat2(str, ", ");
|
|
}
|
|
rb_str_buf_cat2(str, member[i].name);
|
|
rb_str_buf_cat2(str, "=");
|
|
str2 = rb_inspect((*member[i].func)(self));
|
|
rb_str_append(str, str2);
|
|
}
|
|
rb_str_buf_cat2(str, ">");
|
|
OBJ_INFECT(str, self);
|
|
|
|
return str;
|
|
}
|
|
|
|
static int
|
|
rb_stat(file, st)
|
|
VALUE file;
|
|
struct stat *st;
|
|
{
|
|
if (TYPE(file) == T_FILE) {
|
|
OpenFile *fptr;
|
|
|
|
rb_secure(2);
|
|
GetOpenFile(file, fptr);
|
|
return fstat(fileno(fptr->f), st);
|
|
}
|
|
SafeStringValue(file);
|
|
#if defined DJGPP
|
|
if (RSTRING(file)->len == 0) return -1;
|
|
#endif
|
|
return stat(RSTRING(file)->ptr, st);
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_s_stat(klass, fname)
|
|
VALUE klass, fname;
|
|
{
|
|
struct stat st;
|
|
|
|
SafeStringValue(fname);
|
|
if (stat(RSTRING(fname)->ptr, &st) == -1) {
|
|
rb_sys_fail(RSTRING(fname)->ptr);
|
|
}
|
|
return stat_new(&st);
|
|
}
|
|
|
|
static VALUE
|
|
rb_io_stat(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
|
|
rb_file_s_lstat(klass, fname)
|
|
VALUE klass, fname;
|
|
{
|
|
#ifdef HAVE_LSTAT
|
|
struct stat st;
|
|
|
|
SafeStringValue(fname);
|
|
if (lstat(RSTRING(fname)->ptr, &st) == -1) {
|
|
rb_sys_fail(RSTRING(fname)->ptr);
|
|
}
|
|
return stat_new(&st);
|
|
#else
|
|
return rb_file_s_stat(klass, fname);
|
|
#endif
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_lstat(obj)
|
|
VALUE obj;
|
|
{
|
|
#ifdef HAVE_LSTAT
|
|
OpenFile *fptr;
|
|
struct stat st;
|
|
|
|
rb_secure(2);
|
|
GetOpenFile(obj, fptr);
|
|
if (!fptr->path) return Qnil;
|
|
if (lstat(fptr->path, &st) == -1) {
|
|
rb_sys_fail(fptr->path);
|
|
}
|
|
return stat_new(&st);
|
|
#else
|
|
return rb_io_stat(obj);
|
|
#endif
|
|
}
|
|
|
|
static int
|
|
group_member(gid)
|
|
GETGROUPS_T gid;
|
|
{
|
|
#if !defined(NT)
|
|
if (getgid() == gid)
|
|
return Qtrue;
|
|
|
|
# ifdef HAVE_GETGROUPS
|
|
# ifndef NGROUPS
|
|
# ifdef NGROUPS_MAX
|
|
# define NGROUPS NGROUPS_MAX
|
|
# else
|
|
# define NGROUPS 32
|
|
# endif
|
|
# endif
|
|
{
|
|
GETGROUPS_T gary[NGROUPS];
|
|
int anum;
|
|
|
|
anum = getgroups(NGROUPS, gary);
|
|
while (--anum >= 0)
|
|
if (gary[anum] == gid)
|
|
return Qtrue;
|
|
}
|
|
# endif
|
|
#endif
|
|
return Qfalse;
|
|
}
|
|
|
|
#ifndef S_IXUGO
|
|
# define S_IXUGO (S_IXUSR | S_IXGRP | S_IXOTH)
|
|
#endif
|
|
|
|
int
|
|
eaccess(path, mode)
|
|
const char *path;
|
|
int mode;
|
|
{
|
|
#ifdef S_IXGRP
|
|
struct stat st;
|
|
int euid;
|
|
|
|
if (stat(path, &st) < 0) return -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;
|
|
|
|
return -1;
|
|
}
|
|
|
|
if (st.st_uid == euid) /* owner */
|
|
mode <<= 6;
|
|
else if (getegid() == st.st_gid || group_member(st.st_gid))
|
|
mode <<= 3;
|
|
|
|
if ((st.st_mode & mode) == mode) return 0;
|
|
|
|
return -1;
|
|
#else
|
|
return access(path, mode);
|
|
#endif
|
|
}
|
|
|
|
static VALUE
|
|
test_d(obj, fname)
|
|
VALUE obj, fname;
|
|
{
|
|
#ifndef S_ISDIR
|
|
# define S_ISDIR(m) ((m & S_IFMT) == S_IFDIR)
|
|
#endif
|
|
|
|
struct stat st;
|
|
|
|
if (rb_stat(fname, &st) < 0) return Qfalse;
|
|
if (S_ISDIR(st.st_mode)) return Qtrue;
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
test_p(obj, fname)
|
|
VALUE obj, fname;
|
|
{
|
|
#ifdef S_IFIFO
|
|
# ifndef S_ISFIFO
|
|
# define S_ISFIFO(m) ((m & S_IFMT) == S_IFIFO)
|
|
# endif
|
|
|
|
struct stat st;
|
|
|
|
if (rb_stat(fname, &st) < 0) return Qfalse;
|
|
if (S_ISFIFO(st.st_mode)) return Qtrue;
|
|
|
|
#endif
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
test_l(obj, fname)
|
|
VALUE obj, 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;
|
|
|
|
SafeStringValue(fname);
|
|
if (lstat(RSTRING(fname)->ptr, &st) < 0) return Qfalse;
|
|
if (S_ISLNK(st.st_mode)) return Qtrue;
|
|
#endif
|
|
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
test_S(obj, fname)
|
|
VALUE obj, 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;
|
|
|
|
if (rb_stat(fname, &st) < 0) return Qfalse;
|
|
if (S_ISSOCK(st.st_mode)) return Qtrue;
|
|
|
|
#endif
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
test_b(obj, fname)
|
|
VALUE obj, fname;
|
|
{
|
|
#ifndef S_ISBLK
|
|
# ifdef S_IFBLK
|
|
# define S_ISBLK(m) ((m & S_IFMT) == S_IFBLK)
|
|
# else
|
|
# define S_ISBLK(m) (0) /* anytime false */
|
|
# endif
|
|
#endif
|
|
|
|
#ifdef S_ISBLK
|
|
struct stat st;
|
|
|
|
if (rb_stat(fname, &st) < 0) return Qfalse;
|
|
if (S_ISBLK(st.st_mode)) return Qtrue;
|
|
|
|
#endif
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
test_c(obj, fname)
|
|
VALUE obj, fname;
|
|
{
|
|
#ifndef S_ISCHR
|
|
# define S_ISCHR(m) ((m & S_IFMT) == S_IFCHR)
|
|
#endif
|
|
|
|
struct stat st;
|
|
|
|
if (rb_stat(fname, &st) < 0) return Qfalse;
|
|
if (S_ISCHR(st.st_mode)) return Qtrue;
|
|
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
test_e(obj, fname)
|
|
VALUE obj, fname;
|
|
{
|
|
struct stat st;
|
|
|
|
if (rb_stat(fname, &st) < 0) return Qfalse;
|
|
return Qtrue;
|
|
}
|
|
|
|
static VALUE
|
|
test_r(obj, fname)
|
|
VALUE obj, fname;
|
|
{
|
|
SafeStringValue(fname);
|
|
if (eaccess(RSTRING(fname)->ptr, R_OK) < 0) return Qfalse;
|
|
return Qtrue;
|
|
}
|
|
|
|
static VALUE
|
|
test_R(obj, fname)
|
|
VALUE obj, fname;
|
|
{
|
|
SafeStringValue(fname);
|
|
if (access(RSTRING(fname)->ptr, R_OK) < 0) return Qfalse;
|
|
return Qtrue;
|
|
}
|
|
|
|
static VALUE
|
|
test_w(obj, fname)
|
|
VALUE obj, fname;
|
|
{
|
|
SafeStringValue(fname);
|
|
if (eaccess(RSTRING(fname)->ptr, W_OK) < 0) return Qfalse;
|
|
return Qtrue;
|
|
}
|
|
|
|
static VALUE
|
|
test_W(obj, fname)
|
|
VALUE obj, fname;
|
|
{
|
|
SafeStringValue(fname);
|
|
if (access(RSTRING(fname)->ptr, W_OK) < 0) return Qfalse;
|
|
return Qtrue;
|
|
}
|
|
|
|
static VALUE
|
|
test_x(obj, fname)
|
|
VALUE obj, fname;
|
|
{
|
|
SafeStringValue(fname);
|
|
if (eaccess(RSTRING(fname)->ptr, X_OK) < 0) return Qfalse;
|
|
return Qtrue;
|
|
}
|
|
|
|
static VALUE
|
|
test_X(obj, fname)
|
|
VALUE obj, fname;
|
|
{
|
|
SafeStringValue(fname);
|
|
if (access(RSTRING(fname)->ptr, X_OK) < 0) return Qfalse;
|
|
return Qtrue;
|
|
}
|
|
|
|
#ifndef S_ISREG
|
|
# define S_ISREG(m) ((m & S_IFMT) == S_IFREG)
|
|
#endif
|
|
|
|
static VALUE
|
|
test_f(obj, fname)
|
|
VALUE obj, fname;
|
|
{
|
|
struct stat st;
|
|
|
|
if (rb_stat(fname, &st) < 0) return Qfalse;
|
|
if (S_ISREG(st.st_mode)) return Qtrue;
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
test_z(obj, fname)
|
|
VALUE obj, fname;
|
|
{
|
|
struct stat st;
|
|
|
|
if (rb_stat(fname, &st) < 0) return Qfalse;
|
|
if (st.st_size == 0) return Qtrue;
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
test_s(obj, fname)
|
|
VALUE obj, fname;
|
|
{
|
|
struct stat st;
|
|
|
|
if (rb_stat(fname, &st) < 0) return Qnil;
|
|
if (st.st_size == 0) return Qnil;
|
|
return rb_int2inum(st.st_size);
|
|
}
|
|
|
|
static VALUE
|
|
test_owned(obj, fname)
|
|
VALUE obj, fname;
|
|
{
|
|
struct stat st;
|
|
|
|
if (rb_stat(fname, &st) < 0) return Qfalse;
|
|
if (st.st_uid == geteuid()) return Qtrue;
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
test_rowned(obj, fname)
|
|
VALUE obj, fname;
|
|
{
|
|
struct stat st;
|
|
|
|
if (rb_stat(fname, &st) < 0) return Qfalse;
|
|
if (st.st_uid == getuid()) return Qtrue;
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
test_grpowned(obj, fname)
|
|
VALUE obj, fname;
|
|
{
|
|
#ifndef NT
|
|
struct stat st;
|
|
|
|
if (rb_stat(fname, &st) < 0) return Qfalse;
|
|
if (st.st_gid == getegid()) return Qtrue;
|
|
#endif
|
|
return Qfalse;
|
|
}
|
|
|
|
#if defined(S_ISUID) || defined(S_ISGID) || defined(S_ISVTX)
|
|
static VALUE
|
|
check3rdbyte(fname, mode)
|
|
VALUE fname;
|
|
int mode;
|
|
{
|
|
struct stat st;
|
|
|
|
SafeStringValue(fname);
|
|
if (stat(RSTRING(fname)->ptr, &st) < 0) return Qfalse;
|
|
if (st.st_mode & mode) return Qtrue;
|
|
return Qfalse;
|
|
}
|
|
#endif
|
|
|
|
static VALUE
|
|
test_suid(obj, fname)
|
|
VALUE obj, fname;
|
|
{
|
|
#ifdef S_ISUID
|
|
return check3rdbyte(fname, S_ISUID);
|
|
#else
|
|
return Qfalse;
|
|
#endif
|
|
}
|
|
|
|
static VALUE
|
|
test_sgid(obj, fname)
|
|
VALUE obj, fname;
|
|
{
|
|
#ifdef S_ISGID
|
|
return check3rdbyte(fname, S_ISGID);
|
|
#else
|
|
return Qfalse;
|
|
#endif
|
|
}
|
|
|
|
static VALUE
|
|
test_sticky(obj, fname)
|
|
VALUE obj, fname;
|
|
{
|
|
#ifdef S_ISVTX
|
|
return check3rdbyte(fname, S_ISVTX);
|
|
#else
|
|
return Qnil;
|
|
#endif
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_s_size(klass, fname)
|
|
VALUE klass, fname;
|
|
{
|
|
struct stat st;
|
|
|
|
if (rb_stat(fname, &st) < 0)
|
|
rb_sys_fail(RSTRING(fname)->ptr);
|
|
return rb_int2inum(st.st_size);
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_ftype(st)
|
|
struct stat *st;
|
|
{
|
|
char *t;
|
|
|
|
if (S_ISREG(st->st_mode)) {
|
|
t = "file";
|
|
}
|
|
else if (S_ISDIR(st->st_mode)) {
|
|
t = "directory";
|
|
}
|
|
else if (S_ISCHR(st->st_mode)) {
|
|
t = "characterSpecial";
|
|
}
|
|
#ifdef S_ISBLK
|
|
else if (S_ISBLK(st->st_mode)) {
|
|
t = "blockSpecial";
|
|
}
|
|
#endif
|
|
#ifdef S_ISFIFO
|
|
else if (S_ISFIFO(st->st_mode)) {
|
|
t = "fifo";
|
|
}
|
|
#endif
|
|
#ifdef S_ISLNK
|
|
else if (S_ISLNK(st->st_mode)) {
|
|
t = "link";
|
|
}
|
|
#endif
|
|
#ifdef S_ISSOCK
|
|
else if (S_ISSOCK(st->st_mode)) {
|
|
t = "socket";
|
|
}
|
|
#endif
|
|
else {
|
|
t = "unknown";
|
|
}
|
|
|
|
return rb_str_new2(t);
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_s_ftype(klass, fname)
|
|
VALUE klass, fname;
|
|
{
|
|
struct stat st;
|
|
|
|
SafeStringValue(fname);
|
|
if (lstat(RSTRING(fname)->ptr, &st) == -1) {
|
|
rb_sys_fail(RSTRING(fname)->ptr);
|
|
}
|
|
|
|
return rb_file_ftype(&st);
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_s_atime(klass, fname)
|
|
VALUE klass, fname;
|
|
{
|
|
struct stat st;
|
|
|
|
if (rb_stat(fname, &st) < 0)
|
|
rb_sys_fail(RSTRING(fname)->ptr);
|
|
return rb_time_new(st.st_atime, 0);
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_atime(obj)
|
|
VALUE obj;
|
|
{
|
|
OpenFile *fptr;
|
|
struct stat st;
|
|
|
|
GetOpenFile(obj, fptr);
|
|
if (fstat(fileno(fptr->f), &st) == -1) {
|
|
rb_sys_fail(fptr->path);
|
|
}
|
|
return rb_time_new(st.st_atime, 0);
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_s_mtime(klass, fname)
|
|
VALUE klass, fname;
|
|
{
|
|
struct stat st;
|
|
|
|
if (rb_stat(fname, &st) < 0)
|
|
rb_sys_fail(RSTRING(fname)->ptr);
|
|
return rb_time_new(st.st_mtime, 0);
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_mtime(obj)
|
|
VALUE obj;
|
|
{
|
|
OpenFile *fptr;
|
|
struct stat st;
|
|
|
|
GetOpenFile(obj, fptr);
|
|
if (fstat(fileno(fptr->f), &st) == -1) {
|
|
rb_sys_fail(fptr->path);
|
|
}
|
|
return rb_time_new(st.st_mtime, 0);
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_s_ctime(klass, fname)
|
|
VALUE klass, fname;
|
|
{
|
|
struct stat st;
|
|
|
|
if (rb_stat(fname, &st) < 0)
|
|
rb_sys_fail(RSTRING(fname)->ptr);
|
|
return rb_time_new(st.st_ctime, 0);
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_ctime(obj)
|
|
VALUE obj;
|
|
{
|
|
OpenFile *fptr;
|
|
struct stat st;
|
|
|
|
GetOpenFile(obj, fptr);
|
|
if (fstat(fileno(fptr->f), &st) == -1) {
|
|
rb_sys_fail(fptr->path);
|
|
}
|
|
return rb_time_new(st.st_ctime, 0);
|
|
}
|
|
|
|
static void
|
|
chmod_internal(path, mode)
|
|
const char *path;
|
|
int mode;
|
|
{
|
|
if (chmod(path, mode) < 0)
|
|
rb_sys_fail(path);
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_s_chmod(argc, argv)
|
|
int argc;
|
|
VALUE *argv;
|
|
{
|
|
VALUE vmode;
|
|
VALUE rest;
|
|
int mode, n;
|
|
|
|
rb_secure(2);
|
|
rb_scan_args(argc, argv, "1*", &vmode, &rest);
|
|
mode = NUM2INT(vmode);
|
|
|
|
n = apply2files(chmod_internal, rest, mode);
|
|
return INT2FIX(n);
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_chmod(obj, vmode)
|
|
VALUE obj, vmode;
|
|
{
|
|
OpenFile *fptr;
|
|
int mode;
|
|
|
|
rb_secure(2);
|
|
mode = NUM2INT(vmode);
|
|
|
|
GetOpenFile(obj, fptr);
|
|
#ifdef HAVE_FCHMOD
|
|
if (fchmod(fileno(fptr->f), mode) == -1)
|
|
rb_sys_fail(fptr->path);
|
|
#else
|
|
if (!fptr->path) return Qnil;
|
|
if (chmod(fptr->path, mode) == -1)
|
|
rb_sys_fail(fptr->path);
|
|
#endif
|
|
|
|
return INT2FIX(0);
|
|
}
|
|
|
|
#if defined(HAVE_LCHMOD)
|
|
static void
|
|
lchmod_internal(path, mode)
|
|
const char *path;
|
|
int mode;
|
|
{
|
|
if (lchmod(path, mode) < 0)
|
|
rb_sys_fail(path);
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_s_lchmod(argc, argv)
|
|
int argc;
|
|
VALUE *argv;
|
|
{
|
|
VALUE vmode;
|
|
VALUE rest;
|
|
int mode, n;
|
|
|
|
rb_secure(2);
|
|
rb_scan_args(argc, argv, "1*", &vmode, &rest);
|
|
mode = NUM2INT(vmode);
|
|
|
|
n = apply2files(lchmod_internal, rest, mode);
|
|
return INT2FIX(n);
|
|
}
|
|
#else
|
|
static VALUE
|
|
rb_file_s_lchmod(argc, argv)
|
|
int argc;
|
|
VALUE *argv;
|
|
{
|
|
rb_notimplement();
|
|
}
|
|
#endif
|
|
|
|
struct chown_args {
|
|
int owner, group;
|
|
};
|
|
|
|
static void
|
|
chown_internal(path, args)
|
|
const char *path;
|
|
struct chown_args *args;
|
|
{
|
|
if (chown(path, args->owner, args->group) < 0)
|
|
rb_sys_fail(path);
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_s_chown(argc, argv)
|
|
int argc;
|
|
VALUE *argv;
|
|
{
|
|
VALUE o, g, rest;
|
|
struct chown_args arg;
|
|
int n;
|
|
|
|
rb_secure(2);
|
|
rb_scan_args(argc, argv, "2*", &o, &g, &rest);
|
|
if (NIL_P(o)) {
|
|
arg.owner = -1;
|
|
}
|
|
else {
|
|
arg.owner = NUM2INT(o);
|
|
}
|
|
if (NIL_P(g)) {
|
|
arg.group = -1;
|
|
}
|
|
else {
|
|
arg.group = NUM2INT(g);
|
|
}
|
|
|
|
n = apply2files(chown_internal, rest, &arg);
|
|
return INT2FIX(n);
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_chown(obj, owner, group)
|
|
VALUE obj, owner, group;
|
|
{
|
|
OpenFile *fptr;
|
|
|
|
rb_secure(2);
|
|
GetOpenFile(obj, fptr);
|
|
#if defined(DJGPP) || defined(__CYGWIN32__) || defined(NT) || defined(__EMX__)
|
|
if (!fptr->path) return Qnil;
|
|
if (chown(fptr->path, NUM2INT(owner), NUM2INT(group)) == -1)
|
|
rb_sys_fail(fptr->path);
|
|
#else
|
|
if (fchown(fileno(fptr->f), NUM2INT(owner), NUM2INT(group)) == -1)
|
|
rb_sys_fail(fptr->path);
|
|
#endif
|
|
|
|
return INT2FIX(0);
|
|
}
|
|
|
|
#if defined(HAVE_LCHOWN) && !defined(__CHECKER__)
|
|
static void
|
|
lchown_internal(path, args)
|
|
const char *path;
|
|
struct chown_args *args;
|
|
{
|
|
if (lchown(path, args->owner, args->group) < 0)
|
|
rb_sys_fail(path);
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_s_lchown(argc, argv)
|
|
int argc;
|
|
VALUE *argv;
|
|
{
|
|
VALUE o, g, rest;
|
|
struct chown_args arg;
|
|
int n;
|
|
|
|
rb_secure(2);
|
|
rb_scan_args(argc, argv, "2*", &o, &g, &rest);
|
|
if (NIL_P(o)) {
|
|
arg.owner = -1;
|
|
}
|
|
else {
|
|
arg.owner = NUM2INT(o);
|
|
}
|
|
if (NIL_P(g)) {
|
|
arg.group = -1;
|
|
}
|
|
else {
|
|
arg.group = NUM2INT(g);
|
|
}
|
|
|
|
n = apply2files(lchown_internal, rest, &arg);
|
|
return INT2FIX(n);
|
|
}
|
|
#else
|
|
static VALUE
|
|
rb_file_s_lchown(argc, argv)
|
|
int argc;
|
|
VALUE *argv;
|
|
{
|
|
rb_notimplement();
|
|
}
|
|
#endif
|
|
|
|
struct timeval rb_time_timeval();
|
|
|
|
#if defined(HAVE_UTIMES) && !defined(__CHECKER__)
|
|
|
|
static void
|
|
utime_internal(path, tvp)
|
|
char *path;
|
|
struct timeval tvp[];
|
|
{
|
|
if (utimes(path, tvp) < 0)
|
|
rb_sys_fail(path);
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_s_utime(argc, argv)
|
|
int argc;
|
|
VALUE *argv;
|
|
{
|
|
VALUE atime, mtime, rest;
|
|
struct timeval tvp[2];
|
|
int n;
|
|
|
|
rb_scan_args(argc, argv, "2*", &atime, &mtime, &rest);
|
|
|
|
tvp[0] = rb_time_timeval(atime);
|
|
tvp[1] = rb_time_timeval(mtime);
|
|
|
|
n = apply2files(utime_internal, rest, tvp);
|
|
return INT2FIX(n);
|
|
}
|
|
|
|
#else
|
|
|
|
#ifndef HAVE_UTIME_H
|
|
# ifdef NT
|
|
# if defined(__BORLANDC__)
|
|
# include <utime.h>
|
|
# else
|
|
# include <sys/utime.h>
|
|
# endif
|
|
# if defined(_MSC_VER) || defined __MINGW32__
|
|
# define utimbuf _utimbuf
|
|
# endif
|
|
# else
|
|
struct utimbuf {
|
|
long actime;
|
|
long modtime;
|
|
};
|
|
# endif
|
|
#endif
|
|
|
|
static void
|
|
utime_internal(path, utp)
|
|
const char *path;
|
|
struct utimbuf *utp;
|
|
{
|
|
if (utime(path, utp) < 0)
|
|
rb_sys_fail(path);
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_s_utime(argc, argv)
|
|
int argc;
|
|
VALUE *argv;
|
|
{
|
|
VALUE atime, mtime, rest;
|
|
int n;
|
|
struct timeval tv;
|
|
struct utimbuf utbuf;
|
|
|
|
rb_scan_args(argc, argv, "2*", &atime, &mtime, &rest);
|
|
|
|
tv = rb_time_timeval(atime);
|
|
utbuf.actime = tv.tv_sec;
|
|
tv = rb_time_timeval(mtime);
|
|
utbuf.modtime = tv.tv_sec;
|
|
|
|
n = apply2files(utime_internal, rest, &utbuf);
|
|
return INT2FIX(n);
|
|
}
|
|
|
|
#endif
|
|
|
|
static VALUE
|
|
rb_file_s_link(klass, from, to)
|
|
VALUE klass, from, to;
|
|
{
|
|
SafeStringValue(from);
|
|
SafeStringValue(to);
|
|
|
|
if (link(RSTRING(from)->ptr, RSTRING(to)->ptr) < 0)
|
|
rb_sys_fail(RSTRING(from)->ptr);
|
|
return INT2FIX(0);
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_s_symlink(klass, from, to)
|
|
VALUE klass, from, to;
|
|
{
|
|
#ifdef HAVE_SYMLINK
|
|
SafeStringValue(from);
|
|
SafeStringValue(to);
|
|
|
|
if (symlink(RSTRING(from)->ptr, RSTRING(to)->ptr) < 0)
|
|
rb_sys_fail(RSTRING(from)->ptr);
|
|
return INT2FIX(0);
|
|
#else
|
|
rb_notimplement();
|
|
return Qnil; /* not reached */
|
|
#endif
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_s_readlink(klass, path)
|
|
VALUE klass, path;
|
|
{
|
|
#ifdef HAVE_READLINK
|
|
char *buf;
|
|
int size = 100;
|
|
int rv;
|
|
VALUE v;
|
|
|
|
SafeStringValue(path);
|
|
buf = xmalloc(size);
|
|
if ((rv = readlink(RSTRING(path)->ptr, buf, size)) == size) {
|
|
size *= 2;
|
|
buf = xrealloc(buf, size);
|
|
}
|
|
if (rv < 0) rb_sys_fail(RSTRING(path)->ptr);
|
|
v = rb_tainted_str_new(buf, rv);
|
|
free(buf);
|
|
|
|
return v;
|
|
#else
|
|
rb_notimplement();
|
|
return Qnil; /* not reached */
|
|
#endif
|
|
}
|
|
|
|
static void
|
|
unlink_internal(path)
|
|
const char *path;
|
|
{
|
|
if (unlink(path) < 0)
|
|
rb_sys_fail(path);
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_s_unlink(klass, args)
|
|
VALUE klass, args;
|
|
{
|
|
int n;
|
|
|
|
rb_secure(2);
|
|
n = apply2files(unlink_internal, args, 0);
|
|
return INT2FIX(n);
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_s_rename(klass, from, to)
|
|
VALUE klass, from, to;
|
|
{
|
|
SafeStringValue(from);
|
|
SafeStringValue(to);
|
|
|
|
if (rename(RSTRING(from)->ptr, RSTRING(to)->ptr) < 0) {
|
|
#if defined __CYGWIN__
|
|
extern unsigned long __attribute__((stdcall)) GetLastError();
|
|
errno = GetLastError(); /* This is a Cygwin bug */
|
|
#endif
|
|
rb_sys_fail(RSTRING(from)->ptr);
|
|
}
|
|
|
|
return INT2FIX(0);
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_s_umask(argc, argv)
|
|
int argc;
|
|
VALUE *argv;
|
|
{
|
|
int omask = 0;
|
|
|
|
rb_secure(2);
|
|
if (argc == 0) {
|
|
omask = umask(0);
|
|
umask(omask);
|
|
}
|
|
else if (argc == 1) {
|
|
omask = umask(NUM2INT(argv[0]));
|
|
}
|
|
else {
|
|
rb_raise(rb_eArgError, "wrong # of argument");
|
|
}
|
|
return INT2FIX(omask);
|
|
}
|
|
|
|
#if defined DOSISH
|
|
#define isdirsep(x) ((x) == '/' || (x) == '\\')
|
|
#else
|
|
#define isdirsep(x) ((x) == '/')
|
|
#endif
|
|
#ifndef CharNext /* defined as CharNext[AW] on Windows. */
|
|
# if defined(DJGPP)
|
|
# define CharNext(p) ((p) + mblen(p, MB_CUR_MAX))
|
|
# else
|
|
# define CharNext(p) ((p) + 1)
|
|
# endif
|
|
#endif
|
|
|
|
static char *
|
|
strrdirsep(path)
|
|
char *path;
|
|
{
|
|
char *last = NULL;
|
|
while (*path) {
|
|
if (isdirsep(*path)) {
|
|
last = path++;
|
|
}
|
|
else {
|
|
path = CharNext(path);
|
|
}
|
|
}
|
|
return last;
|
|
}
|
|
|
|
VALUE
|
|
rb_file_s_expand_path(argc, argv)
|
|
int argc;
|
|
VALUE *argv;
|
|
{
|
|
VALUE fname, dname;
|
|
char *s, *p, *b;
|
|
char buf[MAXPATHLEN+2];
|
|
char *bend = buf + sizeof(buf) - 2;
|
|
int tainted;
|
|
|
|
rb_scan_args(argc, argv, "11", &fname, &dname);
|
|
|
|
tainted = OBJ_TAINTED(fname);
|
|
s = StringValuePtr(fname);
|
|
p = buf;
|
|
if (s[0] == '~') {
|
|
if (isdirsep(s[1]) || s[1] == '\0') {
|
|
char *dir = getenv("HOME");
|
|
|
|
if (!dir) {
|
|
rb_raise(rb_eArgError, "couldn't find HOME environment -- expanding `%s'", s);
|
|
}
|
|
if (strlen(dir) > MAXPATHLEN) goto toolong;
|
|
strcpy(buf, dir);
|
|
p = &buf[strlen(buf)];
|
|
s++;
|
|
tainted = 1;
|
|
}
|
|
else {
|
|
#ifdef HAVE_PWD_H
|
|
struct passwd *pwPtr;
|
|
s++;
|
|
#endif
|
|
b = s;
|
|
while (*s && !isdirsep(*s)) {
|
|
s = CharNext(s);
|
|
}
|
|
if (p + (s-b) >= bend) goto toolong;
|
|
memcpy(p, b, s-b);
|
|
p += s-b;
|
|
*p = '\0';
|
|
#ifdef HAVE_PWD_H
|
|
pwPtr = getpwnam(buf);
|
|
if (!pwPtr) {
|
|
endpwent();
|
|
rb_raise(rb_eArgError, "user %s doesn't exist", buf);
|
|
}
|
|
if (strlen(pwPtr->pw_dir) > MAXPATHLEN) goto toolong;
|
|
strcpy(buf, pwPtr->pw_dir);
|
|
p = &buf[strlen(buf)];
|
|
endpwent();
|
|
#endif
|
|
}
|
|
}
|
|
#if defined DOSISH
|
|
/* skip drive letter */
|
|
else if (ISALPHA(s[0]) && s[1] == ':' && isdirsep(s[2])) {
|
|
b = s;
|
|
while (*s && !isdirsep(*s)) {
|
|
s = CharNext(s);
|
|
}
|
|
if (p + (s-b) >= bend) goto toolong;
|
|
memcpy(p, b, s-b);
|
|
p += s-b;
|
|
}
|
|
#endif
|
|
else if (!isdirsep(*s)) {
|
|
if (!NIL_P(dname)) {
|
|
dname = rb_file_s_expand_path(1, &dname);
|
|
if (OBJ_TAINTED(dname)) tainted = 1;
|
|
if (strlen(RSTRING(dname)->ptr) > MAXPATHLEN) goto toolong;
|
|
strcpy(buf, RSTRING(dname)->ptr);
|
|
}
|
|
else {
|
|
tainted = 1;
|
|
getcwd(buf, MAXPATHLEN);
|
|
}
|
|
p = &buf[strlen(buf)];
|
|
while (p > buf && *(p - 1) == '/') p--;
|
|
}
|
|
else {
|
|
while (*s && isdirsep(*s)) {
|
|
*p++ = '/';
|
|
if (p >= bend) goto toolong;
|
|
s++;
|
|
}
|
|
if (p > buf && *s) p--;
|
|
}
|
|
*p = '/';
|
|
|
|
b = s;
|
|
while (*s) {
|
|
switch (*s) {
|
|
case '.':
|
|
if (b == s++) { /* beginning of path element */
|
|
switch (*s) {
|
|
case '\0':
|
|
b = s;
|
|
break;
|
|
case '.':
|
|
if (*(s+1) == '\0' || isdirsep(*(s+1))) {
|
|
/* We must go back to the parent */
|
|
*p = '\0';
|
|
if (!(b = strrdirsep(buf))) {
|
|
*p = '/';
|
|
}
|
|
else {
|
|
p = b;
|
|
}
|
|
b = ++s;
|
|
}
|
|
break;
|
|
case '/':
|
|
#if defined DOSISH
|
|
case '\\':
|
|
#endif
|
|
b = ++s;
|
|
break;
|
|
default:
|
|
/* ordinary path element, beginning don't move */
|
|
break;
|
|
}
|
|
}
|
|
break;
|
|
case '/':
|
|
#if defined DOSISH
|
|
case '\\':
|
|
#endif
|
|
if (s > b) {
|
|
if (p + (s-b+1) >= bend) goto toolong;
|
|
memcpy(++p, b, s-b);
|
|
p += s-b;
|
|
*p = '/';
|
|
}
|
|
b = ++s;
|
|
break;
|
|
default:
|
|
s = CharNext(s);
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (s > b) {
|
|
if (p + (s-b) >= bend) goto toolong;
|
|
memcpy(++p, b, s-b);
|
|
p += s-b;
|
|
}
|
|
else if (p == buf) {
|
|
p++;
|
|
}
|
|
#if defined(DOSISH)
|
|
else if (ISALPHA(buf[0]) && (buf[1] == ':') && isdirsep(buf[2])) {
|
|
/* root directory needs a trailing backslash,
|
|
otherwise it mean the current directory of the drive */
|
|
if (p == (buf+2)) p++;
|
|
}
|
|
else if (isdirsep(buf[0]) && isdirsep(buf[1])) {
|
|
if (p == (buf+1)) p++;
|
|
}
|
|
#endif
|
|
|
|
fname = rb_str_new(buf, p - buf);
|
|
if (tainted) OBJ_TAINT(fname);
|
|
return fname;
|
|
|
|
toolong:
|
|
rb_raise(rb_eArgError, "argument too long (size=%d)", RSTRING(fname)->len);
|
|
return Qnil; /* not reached */
|
|
}
|
|
|
|
static int
|
|
rmext(p, e)
|
|
const char *p, *e;
|
|
{
|
|
int l1, l2;
|
|
|
|
l1 = strlen(p);
|
|
if (!e) return 0;
|
|
|
|
l2 = strlen(e);
|
|
if (l2 == 2 && e[1] == '*') {
|
|
e = strrchr(p, *e);
|
|
if (!e) return 0;
|
|
return e - p;
|
|
}
|
|
if (l1 < l2) return l1;
|
|
|
|
if (strcmp(p+l1-l2, e) == 0) {
|
|
return l1-l2;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_s_basename(argc, argv)
|
|
int argc;
|
|
VALUE *argv;
|
|
{
|
|
VALUE fname, fext, basename;
|
|
char *name, *p, *ext;
|
|
int f;
|
|
|
|
if (rb_scan_args(argc, argv, "11", &fname, &fext) == 2) {
|
|
ext = StringValuePtr(fext);
|
|
}
|
|
name = StringValuePtr(fname);
|
|
p = strrdirsep(name);
|
|
if (!p) {
|
|
if (NIL_P(fext) || !(f = rmext(name, ext)))
|
|
return fname;
|
|
basename = rb_str_new(name, f);
|
|
}
|
|
else {
|
|
p++; /* skip last `/' */
|
|
if (NIL_P(fext) || !(f = rmext(p, ext))) {
|
|
basename = rb_str_new2(p);
|
|
}
|
|
else {
|
|
basename = rb_str_new(p, f);
|
|
}
|
|
}
|
|
OBJ_INFECT(basename, fname);
|
|
return basename;
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_s_dirname(klass, fname)
|
|
VALUE klass, fname;
|
|
{
|
|
char *name, *p;
|
|
VALUE dirname;
|
|
|
|
name = StringValuePtr(fname);
|
|
p = strrdirsep(name);
|
|
if (!p) {
|
|
return rb_str_new2(".");
|
|
}
|
|
if (p == name)
|
|
p++;
|
|
dirname = rb_str_new(name, p - name);
|
|
if (OBJ_TAINTED(fname)) OBJ_TAINT(dirname);
|
|
return dirname;
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_s_split(klass, path)
|
|
VALUE klass, path;
|
|
{
|
|
return rb_assoc_new(rb_file_s_dirname(Qnil, path), rb_file_s_basename(1,&path));
|
|
}
|
|
|
|
static VALUE separator;
|
|
|
|
static VALUE
|
|
rb_file_s_join(klass, args)
|
|
VALUE klass, args;
|
|
{
|
|
return rb_ary_join(args, separator);
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_s_truncate(klass, path, len)
|
|
VALUE klass, path, len;
|
|
{
|
|
rb_secure(2);
|
|
SafeStringValue(path);
|
|
|
|
#ifdef HAVE_TRUNCATE
|
|
if (truncate(RSTRING(path)->ptr, NUM2INT(len)) < 0)
|
|
rb_sys_fail(RSTRING(path)->ptr);
|
|
#else
|
|
# ifdef HAVE_CHSIZE
|
|
{
|
|
int tmpfd;
|
|
|
|
# if defined(NT)
|
|
if ((tmpfd = open(RSTRING(path)->ptr, O_RDWR)) < 0) {
|
|
rb_sys_fail(RSTRING(path)->ptr);
|
|
}
|
|
# else
|
|
if ((tmpfd = open(RSTRING(path)->ptr, 0)) < 0) {
|
|
rb_sys_fail(RSTRING(path)->ptr);
|
|
}
|
|
# endif
|
|
if (chsize(tmpfd, NUM2INT(len)) < 0) {
|
|
close(tmpfd);
|
|
rb_sys_fail(RSTRING(path)->ptr);
|
|
}
|
|
close(tmpfd);
|
|
}
|
|
# else
|
|
rb_notimplement();
|
|
# endif
|
|
#endif
|
|
return INT2FIX(0);
|
|
}
|
|
|
|
static VALUE
|
|
rb_file_truncate(obj, len)
|
|
VALUE obj, len;
|
|
{
|
|
OpenFile *fptr;
|
|
|
|
rb_secure(2);
|
|
GetOpenFile(obj, fptr);
|
|
if (!(fptr->mode & FMODE_WRITABLE)) {
|
|
rb_raise(rb_eIOError, "not opened for writing");
|
|
}
|
|
#ifdef HAVE_TRUNCATE
|
|
if (ftruncate(fileno(fptr->f), NUM2INT(len)) < 0)
|
|
rb_sys_fail(fptr->path);
|
|
#else
|
|
# ifdef HAVE_CHSIZE
|
|
if (chsize(fileno(fptr->f), NUM2INT(len)) < 0)
|
|
rb_sys_fail(fptr->path);
|
|
# else
|
|
rb_notimplement();
|
|
# endif
|
|
#endif
|
|
return INT2FIX(0);
|
|
}
|
|
|
|
# ifndef LOCK_SH
|
|
# define LOCK_SH 1
|
|
# endif
|
|
# ifndef LOCK_EX
|
|
# define LOCK_EX 2
|
|
# endif
|
|
# ifndef LOCK_NB
|
|
# define LOCK_NB 4
|
|
# endif
|
|
# ifndef LOCK_UN
|
|
# define LOCK_UN 8
|
|
# endif
|
|
|
|
#if 0
|
|
static int
|
|
rb_thread_flock(fd, op, fptr)
|
|
int fd, op;
|
|
OpenFile *fptr;
|
|
{
|
|
if (rb_thread_alone() || (op & LOCK_NB)) {
|
|
return flock(fd, op);
|
|
}
|
|
op |= LOCK_NB;
|
|
while (flock(fd, op) < 0) {
|
|
switch (errno) {
|
|
case EAGAIN:
|
|
case EACCES:
|
|
#if defined(EWOULDBLOCK) && EWOULDBLOCK != EAGAIN
|
|
case EWOULDBLOCK:
|
|
#endif
|
|
rb_thread_polling(); /* busy wait */
|
|
rb_io_check_closed(fptr);
|
|
continue;
|
|
default:
|
|
return -1;
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
#define flock(fd, op) rb_thread_flock(fd, op, fptr)
|
|
#endif
|
|
|
|
static VALUE
|
|
rb_file_flock(obj, operation)
|
|
VALUE obj;
|
|
VALUE operation;
|
|
{
|
|
#ifndef __CHECKER__
|
|
OpenFile *fptr;
|
|
int ret;
|
|
|
|
rb_secure(2);
|
|
GetOpenFile(obj, fptr);
|
|
|
|
if (fptr->mode & FMODE_WRITABLE) {
|
|
fflush(GetWriteFile(fptr));
|
|
}
|
|
TRAP_BEG;
|
|
ret = flock(fileno(fptr->f), NUM2INT(operation));
|
|
TRAP_END;
|
|
if (ret < 0) {
|
|
switch (errno) {
|
|
case EAGAIN:
|
|
case EACCES:
|
|
#if defined(EWOULDBLOCK) && EWOULDBLOCK != EAGAIN
|
|
case EWOULDBLOCK:
|
|
#endif
|
|
return Qfalse;
|
|
}
|
|
rb_sys_fail(fptr->path);
|
|
}
|
|
#endif
|
|
return INT2FIX(0);
|
|
}
|
|
#undef flock
|
|
|
|
static void
|
|
test_check(n, argc, argv)
|
|
int n, argc;
|
|
VALUE *argv;
|
|
{
|
|
int i;
|
|
|
|
n+=1;
|
|
if (n != argc) rb_raise(rb_eArgError, "wrong # of arguments(%d for %d)", argc, n);
|
|
for (i=1; i<n; i++) {
|
|
switch (TYPE(argv[i])) {
|
|
case T_STRING:
|
|
SafeStringValue(argv[i]);
|
|
break;
|
|
case T_FILE:
|
|
break;
|
|
default:
|
|
Check_Type(argv[i], T_STRING);
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
#define CHECK(n) test_check((n), argc, argv)
|
|
|
|
static VALUE
|
|
rb_f_test(argc, argv)
|
|
int argc;
|
|
VALUE *argv;
|
|
{
|
|
int cmd;
|
|
|
|
if (argc == 0) rb_raise(rb_eArgError, "wrong # of arguments");
|
|
#if 0 /* 1.7 behavior? */
|
|
if (argc == 1) {
|
|
return RTEST(argv[0]) ? Qtrue : Qfalse;
|
|
}
|
|
#endif
|
|
cmd = NUM2CHR(argv[0]);
|
|
if (cmd == 0) return Qfalse;
|
|
if (strchr("bcdefgGkloOprRsSuwWxXz", cmd)) {
|
|
CHECK(1);
|
|
switch (cmd) {
|
|
case 'b':
|
|
return test_b(0, argv[1]);
|
|
|
|
case 'c':
|
|
return test_c(0, argv[1]);
|
|
|
|
case 'd':
|
|
return test_d(0, argv[1]);
|
|
|
|
case 'a':
|
|
case 'e':
|
|
return test_e(0, argv[1]);
|
|
|
|
case 'f':
|
|
return test_f(0, argv[1]);
|
|
|
|
case 'g':
|
|
return test_sgid(0, argv[1]);
|
|
|
|
case 'G':
|
|
return test_grpowned(0, argv[1]);
|
|
|
|
case 'k':
|
|
return test_sticky(0, argv[1]);
|
|
|
|
case 'l':
|
|
return test_l(0, argv[1]);
|
|
|
|
case 'o':
|
|
return test_owned(0, argv[1]);
|
|
|
|
case 'O':
|
|
return test_rowned(0, argv[1]);
|
|
|
|
case 'p':
|
|
return test_p(0, argv[1]);
|
|
|
|
case 'r':
|
|
return test_r(0, argv[1]);
|
|
|
|
case 'R':
|
|
return test_R(0, argv[1]);
|
|
|
|
case 's':
|
|
return test_s(0, argv[1]);
|
|
|
|
case 'S':
|
|
return test_S(0, argv[1]);
|
|
|
|
case 'u':
|
|
return test_suid(0, argv[1]);
|
|
|
|
case 'w':
|
|
return test_w(0, argv[1]);
|
|
|
|
case 'W':
|
|
return test_W(0, argv[1]);
|
|
|
|
case 'x':
|
|
return test_x(0, argv[1]);
|
|
|
|
case 'X':
|
|
return test_X(0, argv[1]);
|
|
|
|
case 'z':
|
|
return test_z(0, argv[1]);
|
|
}
|
|
}
|
|
|
|
if (strchr("MAC", cmd)) {
|
|
struct stat st;
|
|
|
|
CHECK(1);
|
|
if (rb_stat(argv[1], &st) == -1) {
|
|
rb_sys_fail(RSTRING(argv[1])->ptr);
|
|
}
|
|
|
|
switch (cmd) {
|
|
case 'A':
|
|
return rb_time_new(st.st_atime, 0);
|
|
case 'M':
|
|
return rb_time_new(st.st_mtime, 0);
|
|
case 'C':
|
|
return rb_time_new(st.st_ctime, 0);
|
|
}
|
|
}
|
|
|
|
if (strchr("-=<>", cmd)) {
|
|
struct stat st1, st2;
|
|
|
|
CHECK(2);
|
|
if (rb_stat(argv[1], &st1) < 0) return Qfalse;
|
|
if (rb_stat(argv[2], &st2) < 0) return Qfalse;
|
|
|
|
switch (cmd) {
|
|
case '-':
|
|
if (st1.st_dev == st2.st_dev && st1.st_ino == st2.st_ino)
|
|
return Qtrue;
|
|
return Qfalse;
|
|
|
|
case '=':
|
|
if (st1.st_mtime == st2.st_mtime) return Qtrue;
|
|
return Qfalse;
|
|
|
|
case '>':
|
|
if (st1.st_mtime > st2.st_mtime) return Qtrue;
|
|
return Qfalse;
|
|
|
|
case '<':
|
|
if (st1.st_mtime < st2.st_mtime) return Qtrue;
|
|
return Qfalse;
|
|
}
|
|
}
|
|
/* unknown command */
|
|
rb_raise(rb_eArgError, "unknown command ?%c", cmd);
|
|
return Qnil; /* not reached */
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_s_alloc(klass)
|
|
VALUE klass;
|
|
{
|
|
return stat_new_0(klass, 0);
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_init(obj, fname)
|
|
VALUE obj, fname;
|
|
{
|
|
struct stat st, *nst;
|
|
|
|
Check_SafeStr(fname);
|
|
|
|
if (stat(RSTRING(fname)->ptr, &st) == -1) {
|
|
rb_sys_fail(RSTRING(fname)->ptr);
|
|
}
|
|
nst = ALLOC(struct stat);
|
|
*nst = st;
|
|
DATA_PTR(obj) = nst;
|
|
|
|
return Qnil;
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_clone(obj)
|
|
VALUE obj;
|
|
{
|
|
struct stat st, *nst;
|
|
|
|
VALUE clone;
|
|
|
|
clone = rb_obj_alloc(RBASIC(obj)->klass);
|
|
CLONESETUP(clone,obj);
|
|
if (DATA_PTR(obj)) {
|
|
nst = ALLOC(struct stat);
|
|
*nst = *(struct stat*)DATA_PTR(obj);
|
|
DATA_PTR(clone) = nst;
|
|
}
|
|
|
|
return clone;
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_ftype(obj)
|
|
VALUE obj;
|
|
{
|
|
return rb_file_ftype(get_stat(obj));
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_d(obj)
|
|
VALUE obj;
|
|
{
|
|
if (S_ISDIR(get_stat(obj)->st_mode)) return Qtrue;
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_p(obj)
|
|
VALUE obj;
|
|
{
|
|
#ifdef S_IFIFO
|
|
if (S_ISFIFO(get_stat(obj)->st_mode)) return Qtrue;
|
|
|
|
#endif
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_l(obj)
|
|
VALUE obj;
|
|
{
|
|
#ifdef S_ISLNK
|
|
if (S_ISLNK(get_stat(obj)->st_mode)) return Qtrue;
|
|
#endif
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_S(obj)
|
|
VALUE obj;
|
|
{
|
|
#ifdef S_ISSOCK
|
|
if (S_ISSOCK(get_stat(obj)->st_mode)) return Qtrue;
|
|
|
|
#endif
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_b(obj)
|
|
VALUE obj;
|
|
{
|
|
#ifdef S_ISBLK
|
|
if (S_ISBLK(get_stat(obj)->st_mode)) return Qtrue;
|
|
|
|
#endif
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_c(obj)
|
|
VALUE obj;
|
|
{
|
|
if (S_ISCHR(get_stat(obj)->st_mode)) return Qtrue;
|
|
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_owned(obj)
|
|
VALUE obj;
|
|
{
|
|
if (get_stat(obj)->st_uid == geteuid()) return Qtrue;
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_rowned(obj)
|
|
VALUE obj;
|
|
{
|
|
if (get_stat(obj)->st_uid == getuid()) return Qtrue;
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_grpowned(obj)
|
|
VALUE obj;
|
|
{
|
|
#ifndef NT
|
|
if (get_stat(obj)->st_gid == getegid()) return Qtrue;
|
|
#endif
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_r(obj)
|
|
VALUE obj;
|
|
{
|
|
struct stat *st = get_stat(obj);
|
|
|
|
#ifdef S_IRUSR
|
|
if (rb_stat_owned(obj))
|
|
return st->st_mode & S_IRUSR ? Qtrue : Qfalse;
|
|
#endif
|
|
#ifdef S_IRGRP
|
|
if (rb_stat_grpowned(obj))
|
|
return st->st_mode & S_IRGRP ? Qtrue : Qfalse;
|
|
#endif
|
|
#ifdef S_IROTH
|
|
if (!(st->st_mode & S_IROTH)) return Qfalse;
|
|
#endif
|
|
return Qtrue;
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_R(obj)
|
|
VALUE obj;
|
|
{
|
|
struct stat *st = get_stat(obj);
|
|
|
|
#ifdef S_IRUSR
|
|
if (rb_stat_rowned(obj))
|
|
return st->st_mode & S_IRUSR ? Qtrue : Qfalse;
|
|
#endif
|
|
#ifdef S_IRGRP
|
|
if (group_member(get_stat(obj)->st_gid))
|
|
return st->st_mode & S_IRGRP ? Qtrue : Qfalse;
|
|
#endif
|
|
#ifdef S_IROTH
|
|
if (!(st->st_mode & S_IROTH)) return Qfalse;
|
|
#endif
|
|
return Qtrue;
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_w(obj)
|
|
VALUE obj;
|
|
{
|
|
struct stat *st = get_stat(obj);
|
|
|
|
#ifdef S_IWUSR
|
|
if (rb_stat_owned(obj))
|
|
return st->st_mode & S_IWUSR ? Qtrue : Qfalse;
|
|
#endif
|
|
#ifdef S_IWGRP
|
|
if (rb_stat_grpowned(obj))
|
|
return st->st_mode & S_IWGRP ? Qtrue : Qfalse;
|
|
#endif
|
|
#ifdef S_IWOTH
|
|
if (!(st->st_mode & S_IWOTH)) return Qfalse;
|
|
#endif
|
|
return Qtrue;
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_W(obj)
|
|
VALUE obj;
|
|
{
|
|
struct stat *st = get_stat(obj);
|
|
|
|
#ifdef S_IWUSR
|
|
if (rb_stat_rowned(obj))
|
|
return st->st_mode & S_IWUSR ? Qtrue : Qfalse;
|
|
#endif
|
|
#ifdef S_IWGRP
|
|
if (group_member(get_stat(obj)->st_gid))
|
|
return st->st_mode & S_IWGRP ? Qtrue : Qfalse;
|
|
#endif
|
|
#ifdef S_IWOTH
|
|
if (!(st->st_mode & S_IWOTH)) return Qfalse;
|
|
#endif
|
|
return Qtrue;
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_x(obj)
|
|
VALUE obj;
|
|
{
|
|
struct stat *st = get_stat(obj);
|
|
|
|
#ifdef S_IXUSR
|
|
if (rb_stat_owned(obj))
|
|
return st->st_mode & S_IXUSR ? Qtrue : Qfalse;
|
|
#endif
|
|
#ifdef S_IXGRP
|
|
if (rb_stat_grpowned(obj))
|
|
return st->st_mode & S_IXGRP ? Qtrue : Qfalse;
|
|
#endif
|
|
#ifdef S_IXOTH
|
|
if (!(st->st_mode & S_IXOTH)) return Qfalse;
|
|
#endif
|
|
return Qtrue;
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_X(obj)
|
|
VALUE obj;
|
|
{
|
|
struct stat *st = get_stat(obj);
|
|
|
|
#ifdef S_IXUSR
|
|
if (rb_stat_rowned(obj))
|
|
return st->st_mode & S_IXUSR ? Qtrue : Qfalse;
|
|
#endif
|
|
#ifdef S_IXGRP
|
|
if (group_member(get_stat(obj)->st_gid))
|
|
return st->st_mode & S_IXGRP ? Qtrue : Qfalse;
|
|
#endif
|
|
#ifdef S_IXOTH
|
|
if (!(st->st_mode & S_IXOTH)) return Qfalse;
|
|
#endif
|
|
return Qtrue;
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_f(obj)
|
|
VALUE obj;
|
|
{
|
|
if (S_ISREG(get_stat(obj)->st_mode)) return Qtrue;
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_z(obj)
|
|
VALUE obj;
|
|
{
|
|
if (get_stat(obj)->st_size == 0) return Qtrue;
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_s(obj)
|
|
VALUE obj;
|
|
{
|
|
int size = get_stat(obj)->st_size;
|
|
|
|
if (size == 0) return Qnil;
|
|
return INT2FIX(size);
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_suid(obj)
|
|
VALUE obj;
|
|
{
|
|
#ifdef S_ISUID
|
|
if (get_stat(obj)->st_mode & S_ISUID) return Qtrue;
|
|
#endif
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_sgid(obj)
|
|
VALUE obj;
|
|
{
|
|
#ifdef S_ISGID
|
|
if (get_stat(obj)->st_mode & S_ISGID) return Qtrue;
|
|
#endif
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
rb_stat_sticky(obj)
|
|
VALUE obj;
|
|
{
|
|
#ifdef S_ISVTX
|
|
if (get_stat(obj)->st_mode & S_ISVTX) return Qtrue;
|
|
#endif
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE rb_mFConst;
|
|
|
|
void
|
|
rb_file_const(name, value)
|
|
const char *name;
|
|
VALUE value;
|
|
{
|
|
rb_define_const(rb_mFConst, name, value);
|
|
}
|
|
|
|
static int
|
|
is_absolute_path(path)
|
|
const char *path;
|
|
{
|
|
#ifdef DOSISH
|
|
if (ISALPHA(path[0]) && path[1] == ':' && isdirsep(path[2])) return 1;
|
|
if (isdirsep(path[0]) && isdirsep(path[1])) return 1;
|
|
#else
|
|
if (path[0] == '/') return 1;
|
|
#endif
|
|
return 0;
|
|
}
|
|
|
|
static int
|
|
path_check_1(path)
|
|
VALUE path;
|
|
{
|
|
struct stat st;
|
|
char *p0 = RSTRING(path)->ptr;
|
|
char *p = 0, *s;
|
|
|
|
if (!is_absolute_path(p0)) {
|
|
char *buf = my_getcwd();
|
|
VALUE newpath;
|
|
|
|
newpath = rb_str_new2(buf);
|
|
free(buf);
|
|
|
|
rb_str_cat2(newpath, "/");
|
|
rb_str_cat2(newpath, p0);
|
|
return path_check_1(newpath);
|
|
}
|
|
for (;;) {
|
|
if (stat(p0, &st) == 0 && (st.st_mode & 002)) {
|
|
if (p) *p = '/';
|
|
return 0;
|
|
}
|
|
s = strrdirsep(p0);
|
|
if (p) *p = '/';
|
|
if (!s || s == p0) return 1;
|
|
p = s;
|
|
*p = '\0';
|
|
}
|
|
}
|
|
|
|
int
|
|
rb_path_check(path)
|
|
char *path;
|
|
{
|
|
char *p0, *p, *pend;
|
|
const char sep = PATH_SEP_CHAR;
|
|
|
|
if (!path) return 1;
|
|
|
|
pend = path + strlen(path);
|
|
p0 = path;
|
|
p = strchr(path, sep);
|
|
if (!p) p = pend;
|
|
|
|
for (;;) {
|
|
if (!path_check_1(rb_str_new(p0, p - p0))) {
|
|
return 0; /* not safe */
|
|
}
|
|
p0 = p + 1;
|
|
if (p0 > pend) break;
|
|
p = strchr(p0, sep);
|
|
if (!p) p = pend;
|
|
}
|
|
return 1;
|
|
}
|
|
|
|
#if defined(__MACOS__) || defined(riscos)
|
|
static int
|
|
is_macos_native_path(path)
|
|
const char *path;
|
|
{
|
|
if (strchr(path, ':')) return 1;
|
|
return 0;
|
|
}
|
|
#endif
|
|
|
|
static int
|
|
file_load_ok(file)
|
|
char *file;
|
|
{
|
|
FILE *f;
|
|
|
|
if (!file) return 0;
|
|
f = fopen(file, "r");
|
|
if (f == NULL) return 0;
|
|
fclose(f);
|
|
return 1;
|
|
}
|
|
|
|
extern VALUE rb_load_path;
|
|
|
|
int
|
|
rb_find_file_ext(filep, ext)
|
|
VALUE *filep;
|
|
const char * const *ext;
|
|
{
|
|
char *path, *e, *found;
|
|
char *f = RSTRING(*filep)->ptr;
|
|
VALUE fname;
|
|
int i, j;
|
|
|
|
if (f[0] == '~') {
|
|
fname = *filep;
|
|
fname = rb_file_s_expand_path(1, &fname);
|
|
if (rb_safe_level() >= 2 && OBJ_TAINTED(fname)) {
|
|
rb_raise(rb_eSecurityError, "loading from unsafe file %s", f);
|
|
}
|
|
f = StringValuePtr(fname);
|
|
*filep = fname;
|
|
}
|
|
|
|
if (is_absolute_path(f)) {
|
|
for (i=0; ext[i]; i++) {
|
|
fname = rb_str_dup(*filep);
|
|
rb_str_cat2(fname, ext[i]);
|
|
if (file_load_ok(RSTRING(fname)->ptr)) {
|
|
*filep = fname;
|
|
return i+1;
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
if (!rb_load_path) return 0;
|
|
|
|
Check_Type(rb_load_path, T_ARRAY);
|
|
for (i=0;i<RARRAY(rb_load_path)->len;i++) {
|
|
VALUE str = RARRAY(rb_load_path)->ptr[i];
|
|
|
|
SafeStringValue(str);
|
|
path = RSTRING(str)->ptr;
|
|
for (j=0; ext[j]; j++) {
|
|
fname = rb_str_dup(*filep);
|
|
rb_str_cat2(fname, ext[j]);
|
|
found = dln_find_file(RSTRING(fname)->ptr, path);
|
|
if (found && file_load_ok(found)) {
|
|
*filep = fname;
|
|
return j+1;
|
|
}
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
VALUE
|
|
rb_find_file(path)
|
|
VALUE path;
|
|
{
|
|
VALUE tmp, fname;
|
|
char *f = RSTRING(path)->ptr;
|
|
char *lpath;
|
|
struct stat st;
|
|
|
|
if (f[0] == '~') {
|
|
path = rb_file_s_expand_path(1, &path);
|
|
if (rb_safe_level() >= 2 && OBJ_TAINTED(path)) {
|
|
rb_raise(rb_eSecurityError, "loading from unsafe file %s", f);
|
|
}
|
|
f = StringValuePtr(path);
|
|
}
|
|
|
|
#if defined(__MACOS__) || defined(riscos)
|
|
if (is_macos_native_path(f)) {
|
|
if (rb_safe_level() >= 2 && !rb_path_check(f)) {
|
|
rb_raise(rb_eSecurityError, "loading from unsafe file %s", f);
|
|
}
|
|
if (file_load_ok(f)) return path;
|
|
}
|
|
#endif
|
|
|
|
if (is_absolute_path(f)) {
|
|
if (rb_safe_level() >= 2 && !rb_path_check(f)) {
|
|
rb_raise(rb_eSecurityError, "loading from unsafe file %s", f);
|
|
}
|
|
if (file_load_ok(f)) return path;
|
|
}
|
|
|
|
if (rb_load_path) {
|
|
int i;
|
|
|
|
Check_Type(rb_load_path, T_ARRAY);
|
|
tmp = rb_ary_new();
|
|
for (i=0;i<RARRAY(rb_load_path)->len;i++) {
|
|
VALUE str = RARRAY(rb_load_path)->ptr[i];
|
|
SafeStringValue(str);
|
|
if (RSTRING(str)->len > 0) {
|
|
rb_ary_push(tmp, str);
|
|
}
|
|
}
|
|
tmp = rb_ary_join(tmp, rb_str_new2(PATH_SEP));
|
|
lpath = StringValuePtr(tmp);
|
|
if (rb_safe_level() >= 2 && !rb_path_check(lpath)) {
|
|
rb_raise(rb_eSecurityError, "loading from unsafe path %s", lpath);
|
|
}
|
|
}
|
|
else {
|
|
lpath = 0;
|
|
}
|
|
|
|
f = dln_find_file(f, lpath);
|
|
if (file_load_ok(f)) {
|
|
return rb_str_new2(f);
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static void
|
|
define_filetest_function(name, func, argc)
|
|
const char *name;
|
|
VALUE (*func)();
|
|
int argc;
|
|
{
|
|
rb_define_module_function(rb_mFileTest, name, func, argc);
|
|
rb_define_singleton_method(rb_cFile, name, func, argc);
|
|
}
|
|
|
|
void
|
|
Init_File()
|
|
{
|
|
rb_mFileTest = rb_define_module("FileTest");
|
|
rb_cFile = rb_define_class("File", rb_cIO);
|
|
|
|
define_filetest_function("directory?", test_d, 1);
|
|
define_filetest_function("exist?", test_e, 1);
|
|
define_filetest_function("exists?", test_e, 1); /* temporary */
|
|
define_filetest_function("readable?", test_r, 1);
|
|
define_filetest_function("readable_real?", test_R, 1);
|
|
define_filetest_function("writable?", test_w, 1);
|
|
define_filetest_function("writable_real?", test_W, 1);
|
|
define_filetest_function("executable?", test_x, 1);
|
|
define_filetest_function("executable_real?", test_X, 1);
|
|
define_filetest_function("file?", test_f, 1);
|
|
define_filetest_function("zero?", test_z, 1);
|
|
define_filetest_function("size?", test_s, 1);
|
|
define_filetest_function("size", rb_file_s_size, 1);
|
|
define_filetest_function("owned?", test_owned, 1);
|
|
define_filetest_function("grpowned?", test_grpowned, 1);
|
|
|
|
define_filetest_function("pipe?", test_p, 1);
|
|
define_filetest_function("symlink?", test_l, 1);
|
|
define_filetest_function("socket?", test_S, 1);
|
|
|
|
define_filetest_function("blockdev?", test_b, 1);
|
|
define_filetest_function("chardev?", test_c, 1);
|
|
|
|
define_filetest_function("setuid?", test_suid, 1);
|
|
define_filetest_function("setgid?", test_sgid, 1);
|
|
define_filetest_function("sticky?", test_sticky, 1);
|
|
|
|
rb_define_singleton_method(rb_cFile, "stat", rb_file_s_stat, 1);
|
|
rb_define_singleton_method(rb_cFile, "lstat", rb_file_s_lstat, 1);
|
|
rb_define_singleton_method(rb_cFile, "ftype", rb_file_s_ftype, 1);
|
|
|
|
rb_define_singleton_method(rb_cFile, "atime", rb_file_s_atime, 1);
|
|
rb_define_singleton_method(rb_cFile, "mtime", rb_file_s_mtime, 1);
|
|
rb_define_singleton_method(rb_cFile, "ctime", rb_file_s_ctime, 1);
|
|
|
|
rb_define_singleton_method(rb_cFile, "utime", rb_file_s_utime, -1);
|
|
rb_define_singleton_method(rb_cFile, "chmod", rb_file_s_chmod, -1);
|
|
rb_define_singleton_method(rb_cFile, "chown", rb_file_s_chown, -1);
|
|
rb_define_singleton_method(rb_cFile, "lchmod", rb_file_s_lchmod, -1);
|
|
rb_define_singleton_method(rb_cFile, "lchown", rb_file_s_lchown, -1);
|
|
|
|
rb_define_singleton_method(rb_cFile, "link", rb_file_s_link, 2);
|
|
rb_define_singleton_method(rb_cFile, "symlink", rb_file_s_symlink, 2);
|
|
rb_define_singleton_method(rb_cFile, "readlink", rb_file_s_readlink, 1);
|
|
|
|
rb_define_singleton_method(rb_cFile, "unlink", rb_file_s_unlink, -2);
|
|
rb_define_singleton_method(rb_cFile, "delete", rb_file_s_unlink, -2);
|
|
rb_define_singleton_method(rb_cFile, "rename", rb_file_s_rename, 2);
|
|
rb_define_singleton_method(rb_cFile, "umask", rb_file_s_umask, -1);
|
|
rb_define_singleton_method(rb_cFile, "truncate", rb_file_s_truncate, 2);
|
|
rb_define_singleton_method(rb_cFile, "expand_path", rb_file_s_expand_path, -1);
|
|
rb_define_singleton_method(rb_cFile, "basename", rb_file_s_basename, -1);
|
|
rb_define_singleton_method(rb_cFile, "dirname", rb_file_s_dirname, 1);
|
|
|
|
separator = rb_obj_freeze(rb_str_new2("/"));
|
|
rb_define_const(rb_cFile, "Separator", separator);
|
|
rb_define_const(rb_cFile, "SEPARATOR", separator);
|
|
rb_define_singleton_method(rb_cFile, "split", rb_file_s_split, 1);
|
|
rb_define_singleton_method(rb_cFile, "join", rb_file_s_join, -2);
|
|
|
|
#if defined DOSISH && !defined __CYGWIN__
|
|
rb_define_const(rb_cFile, "ALT_SEPARATOR", rb_obj_freeze(rb_str_new2("\\")));
|
|
#else
|
|
rb_define_const(rb_cFile, "ALT_SEPARATOR", Qnil);
|
|
#endif
|
|
rb_define_const(rb_cFile, "PATH_SEPARATOR", rb_obj_freeze(rb_str_new2(PATH_SEP)));
|
|
|
|
rb_define_method(rb_cIO, "stat", rb_io_stat, 0); /* this is IO's method */
|
|
rb_define_method(rb_cFile, "lstat", rb_file_lstat, 0);
|
|
|
|
rb_define_method(rb_cFile, "atime", rb_file_atime, 0);
|
|
rb_define_method(rb_cFile, "mtime", rb_file_mtime, 0);
|
|
rb_define_method(rb_cFile, "ctime", rb_file_ctime, 0);
|
|
|
|
rb_define_method(rb_cFile, "chmod", rb_file_chmod, 1);
|
|
rb_define_method(rb_cFile, "chown", rb_file_chown, 2);
|
|
rb_define_method(rb_cFile, "truncate", rb_file_truncate, 1);
|
|
|
|
rb_define_method(rb_cFile, "flock", rb_file_flock, 1);
|
|
|
|
rb_mFConst = rb_define_module_under(rb_cFile, "Constants");
|
|
rb_include_module(rb_cFile, rb_mFConst);
|
|
rb_file_const("LOCK_SH", INT2FIX(LOCK_SH));
|
|
rb_file_const("LOCK_EX", INT2FIX(LOCK_EX));
|
|
rb_file_const("LOCK_UN", INT2FIX(LOCK_UN));
|
|
rb_file_const("LOCK_NB", INT2FIX(LOCK_NB));
|
|
|
|
rb_define_method(rb_cFile, "path", rb_file_path, 0);
|
|
|
|
rb_define_global_function("test", rb_f_test, -1);
|
|
|
|
rb_cStat = rb_define_class_under(rb_cFile, "Stat", rb_cObject);
|
|
rb_define_singleton_method(rb_cStat, "allocate", rb_stat_s_alloc, 0);
|
|
rb_define_method(rb_cStat, "initialize", rb_stat_init, 1);
|
|
rb_define_method(rb_cStat, "clone", rb_stat_clone, 0);
|
|
|
|
rb_include_module(rb_cStat, rb_mComparable);
|
|
|
|
rb_define_method(rb_cStat, "<=>", rb_stat_cmp, 1);
|
|
|
|
rb_define_method(rb_cStat, "dev", rb_stat_dev, 0);
|
|
rb_define_method(rb_cStat, "ino", rb_stat_ino, 0);
|
|
rb_define_method(rb_cStat, "mode", rb_stat_mode, 0);
|
|
rb_define_method(rb_cStat, "nlink", rb_stat_nlink, 0);
|
|
rb_define_method(rb_cStat, "uid", rb_stat_uid, 0);
|
|
rb_define_method(rb_cStat, "gid", rb_stat_gid, 0);
|
|
rb_define_method(rb_cStat, "rdev", rb_stat_rdev, 0);
|
|
rb_define_method(rb_cStat, "size", rb_stat_size, 0);
|
|
rb_define_method(rb_cStat, "blksize", rb_stat_blksize, 0);
|
|
rb_define_method(rb_cStat, "blocks", rb_stat_blocks, 0);
|
|
rb_define_method(rb_cStat, "atime", rb_stat_atime, 0);
|
|
rb_define_method(rb_cStat, "mtime", rb_stat_mtime, 0);
|
|
rb_define_method(rb_cStat, "ctime", rb_stat_ctime, 0);
|
|
|
|
rb_define_method(rb_cStat, "inspect", rb_stat_inspect, 0);
|
|
|
|
rb_define_method(rb_cStat, "ftype", rb_stat_ftype, 0);
|
|
|
|
rb_define_method(rb_cStat, "directory?", rb_stat_d, 0);
|
|
rb_define_method(rb_cStat, "readable?", rb_stat_r, 0);
|
|
rb_define_method(rb_cStat, "readable_real?", rb_stat_R, 0);
|
|
rb_define_method(rb_cStat, "writable?", rb_stat_w, 0);
|
|
rb_define_method(rb_cStat, "writable_real?", rb_stat_W, 0);
|
|
rb_define_method(rb_cStat, "executable?", rb_stat_x, 0);
|
|
rb_define_method(rb_cStat, "executable_real?", rb_stat_X, 0);
|
|
rb_define_method(rb_cStat, "file?", rb_stat_f, 0);
|
|
rb_define_method(rb_cStat, "zero?", rb_stat_z, 0);
|
|
rb_define_method(rb_cStat, "size?", rb_stat_s, 0);
|
|
rb_define_method(rb_cStat, "owned?", rb_stat_owned, 0);
|
|
rb_define_method(rb_cStat, "grpowned?", rb_stat_grpowned, 0);
|
|
|
|
rb_define_method(rb_cStat, "pipe?", rb_stat_p, 0);
|
|
rb_define_method(rb_cStat, "symlink?", rb_stat_l, 0);
|
|
rb_define_method(rb_cStat, "socket?", rb_stat_S, 0);
|
|
|
|
rb_define_method(rb_cStat, "blockdev?", rb_stat_b, 0);
|
|
rb_define_method(rb_cStat, "chardev?", rb_stat_c, 0);
|
|
|
|
rb_define_method(rb_cStat, "setuid?", rb_stat_suid, 0);
|
|
rb_define_method(rb_cStat, "setgid?", rb_stat_sgid, 0);
|
|
rb_define_method(rb_cStat, "sticky?", rb_stat_sticky, 0);
|
|
}
|