diff options
author | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-01-12 13:34:26 +0000 |
---|---|---|
committer | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-01-12 13:34:26 +0000 |
commit | a739d26d0a494a141059c0e8045bff66bc66d39b (patch) | |
tree | f117a1536af4f02b3a575a5eb5132a4c14d0d2fa /file.c | |
parent | a1d3a8e8619b82fbff71ae7dd264926983be829a (diff) |
* file.c (test_wr, test_ww): New functions implementing new
methods (File::world_readable?, File::world_writable?).
* file.c (S_IRUGO, S_IGUGO): New macros.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@5445 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'file.c')
-rw-r--r-- | file.c | 83 |
1 files changed, 83 insertions, 0 deletions
@@ -1015,6 +1015,50 @@ test_R(obj, fname) return Qtrue; } +/* + * call-seq: + * File.world_readable?(file_name) => fixnum or nil + * + * If <i>file_name</i> is readable by others, returns an integer + * representing the file permission bits of <i>file_name</i>. Returns + * <code>nil</code> otherwise. The meaning of the bits is platform + * dependent; on Unix systems, see <code>stat(2)</code>. + * + * File.world_readable?("/etc/passwd") # => 420 + * m = File.world_readable?("/etc/passwd") + * 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 +test_wr(obj, fname) + VALUE obj, fname; +{ +#ifdef S_IROTH + struct stat st; + + if (rb_stat(fname, &st) < 0) return Qfalse; + if ((st.st_mode & (S_IROTH)) == S_IROTH) { +#ifdef __BORLANDC__ + return UINT2NUM((unsigned short)(st.st_mode & + (S_IRUGO|S_IWUGO|S_IXUGO))); +#else + return UINT2NUM(st.st_mode & (S_IRUGO|S_IWUGO|S_IXUGO)); +#endif + } + else { + return Qnil; + } +#endif + return Qfalse; +} /* * call-seq: @@ -1052,6 +1096,43 @@ test_W(obj, fname) /* * call-seq: + * File.world_writable?(file_name) => fixnum or nil + * + * If <i>file_name</i> is writable by others, returns an integer + * representing the file permission bits of <i>file_name</i>. Returns + * <code>nil</code> otherwise. The meaning of the bits is platform + * dependent; on Unix systems, see <code>stat(2)</code>. + * + * File.world_writable?("/tmp") #=> 511 + * m = File.world_writable?("/tmp") + * sprintf("%o", m) #=> "777" + */ + +static VALUE +test_ww(obj, fname) + VALUE obj, fname; +{ +#ifdef S_IWOTH + struct stat st; + + if (rb_stat(fname, &st) < 0) return Qfalse; + if ((st.st_mode & (S_IWOTH)) == S_IWOTH) { +#ifdef __BORLANDC__ + return UINT2NUM((unsigned short)(st.st_mode & + (S_IRUGO|S_IWUGO|S_IXUGO))); +#else + return UINT2NUM(st.st_mode & (S_IRUGO|S_IWUGO|S_IXUGO)); +#endif + } + else { + return Qnil; + } +#endif + return Qfalse; +} + +/* + * call-seq: * File.executable?(file_name) => true or false * * Returns <code>true</code> if the named file is executable by the effective @@ -4052,8 +4133,10 @@ Init_File() 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("world_readable?", test_wr, 1); define_filetest_function("writable?", test_w, 1); define_filetest_function("writable_real?", test_W, 1); + define_filetest_function("world_writable?", test_ww, 1); define_filetest_function("executable?", test_x, 1); define_filetest_function("executable_real?", test_X, 1); define_filetest_function("file?", test_f, 1); |