Add set_perm

Author: jackpot51

src/libstd/sys/redox/ext/fs.rs

@@ -216,7 +216,7 @@ impl MetadataExt for fs::Metadata {
     }
 }
 
-/*
+/* TODO
 /// Add special unix types (block/char device, fifo and socket)
 #[stable(feature = "file_type_ext", since = "1.5.0")]
 pub trait FileTypeExt {

src/libstd/sys/redox/fs.rs

@@ -386,9 +386,12 @@ pub fn rename(_old: &Path, _new: &Path) -> io::Result<()> {
     unimplemented!();
 }
 
-pub fn set_perm(_p: &Path, _perm: FilePermissions) -> io::Result<()> {
-    ::sys_common::util::dumb_print(format_args!("Set perm\n"));
-    unimplemented!();
+pub fn set_perm(p: &Path, perm: FilePermissions) -> io::Result<()> {
+    let mut options = OpenOptions::new();
+    options.read(true);
+    let file = File::open(p, &options)?;
+    cvt(libc::fcntl(file.0.raw(), libc::F_SETMODE, perm.mode as usize))?;
+    Ok(())
 }
 
 pub fn rmdir(p: &Path) -> io::Result<()> {