* file.c (test_wr): Rdoc fix. [ruby-core:02225]
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@5450 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
parent
c8b7862e86
commit
6c862db688
@ -1,3 +1,7 @@
|
|||||||
|
Tue Jan 13 01:24:17 2004 Yukihiro Matsumoto <matz@ruby-lang.org>
|
||||||
|
|
||||||
|
* file.c (test_wr): Rdoc fix. [ruby-core:02225]
|
||||||
|
|
||||||
Tue Jan 13 01:04:37 2004 Dave Thomas <dave@pragprog.com>
|
Tue Jan 13 01:04:37 2004 Dave Thomas <dave@pragprog.com>
|
||||||
|
|
||||||
* lib/rdoc/ri/ri_paths.rb (RI::Paths): First attempt at
|
* lib/rdoc/ri/ri_paths.rb (RI::Paths): First attempt at
|
||||||
|
28
file.c
28
file.c
@ -1015,6 +1015,14 @@ test_R(obj, fname)
|
|||||||
return Qtrue;
|
return Qtrue;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
#ifndef S_IRUGO
|
||||||
|
# define S_IRUGO (S_IRUSR | S_IRGRP | S_IROTH)
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifndef S_IWUGO
|
||||||
|
# define S_IWUGO (S_IWUSR | S_IWGRP | S_IWOTH)
|
||||||
|
#endif
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* call-seq:
|
* call-seq:
|
||||||
* File.world_readable?(file_name) => fixnum or nil
|
* File.world_readable?(file_name) => fixnum or nil
|
||||||
@ -1029,14 +1037,6 @@ test_R(obj, fname)
|
|||||||
* sprintf("%o", m) # => "644"
|
* sprintf("%o", m) # => "644"
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#ifndef S_IRUGO
|
|
||||||
# define S_IRUGO (S_IRUSR | S_IRGRP | S_IROTH)
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#ifndef S_IWUGO
|
|
||||||
# define S_IWUGO (S_IWUSR | S_IWGRP | S_IWOTH)
|
|
||||||
#endif
|
|
||||||
|
|
||||||
static VALUE
|
static VALUE
|
||||||
test_wr(obj, fname)
|
test_wr(obj, fname)
|
||||||
VALUE obj, fname;
|
VALUE obj, fname;
|
||||||
@ -1044,7 +1044,7 @@ test_wr(obj, fname)
|
|||||||
#ifdef S_IROTH
|
#ifdef S_IROTH
|
||||||
struct stat st;
|
struct stat st;
|
||||||
|
|
||||||
if (rb_stat(fname, &st) < 0) return Qfalse;
|
if (rb_stat(fname, &st) < 0) return Qnil;
|
||||||
if ((st.st_mode & (S_IROTH)) == S_IROTH) {
|
if ((st.st_mode & (S_IROTH)) == S_IROTH) {
|
||||||
#ifdef __BORLANDC__
|
#ifdef __BORLANDC__
|
||||||
return UINT2NUM((unsigned short)(st.st_mode &
|
return UINT2NUM((unsigned short)(st.st_mode &
|
||||||
@ -1053,11 +1053,8 @@ test_wr(obj, fname)
|
|||||||
return UINT2NUM(st.st_mode & (S_IRUGO|S_IWUGO|S_IXUGO));
|
return UINT2NUM(st.st_mode & (S_IRUGO|S_IWUGO|S_IXUGO));
|
||||||
#endif
|
#endif
|
||||||
}
|
}
|
||||||
else {
|
|
||||||
return Qnil;
|
|
||||||
}
|
|
||||||
#endif
|
#endif
|
||||||
return Qfalse;
|
return Qnil;
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
@ -1124,11 +1121,8 @@ test_ww(obj, fname)
|
|||||||
return UINT2NUM(st.st_mode & (S_IRUGO|S_IWUGO|S_IXUGO));
|
return UINT2NUM(st.st_mode & (S_IRUGO|S_IWUGO|S_IXUGO));
|
||||||
#endif
|
#endif
|
||||||
}
|
}
|
||||||
else {
|
|
||||||
return Qnil;
|
|
||||||
}
|
|
||||||
#endif
|
#endif
|
||||||
return Qfalse;
|
return Qnil;
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
|
Loading…
x
Reference in New Issue
Block a user