src/pmc/os.pmc - OS PMC


Provide access to the filesystem files and directories.


From PIR code:

    $P0 = new 'OS'

From NQP:

    my $os := pir::new__ps("OS");

From Winxed:

    var os = new 'OS';


static PMC * stat_buf_to_array(PARROT_INTERP, const Parrot_Stat_Buf *buf)
Converts a stat buffer to a Perl-like array.
STRING *cwd()
Returns the current working directory.
void chdir(STRING *path)
Changes the current working directory to the one specified by path.
void unlink(STRING *file)
Removes file file from the file system.
void rmdir(STRING *path)
Removes directory path from the file system, if it is empty.
void rm(STRING *path)
Calls remove to remove the file or empty directory specified by path.
void mkdir(STRING *path, STRING *mode)
Creates a directory specified by path with mode mode.
fixedpmcarray *stat(STRING *path)
Stats a file, and returns a 13 position array as in Perl:
     0 dev      device number of filesystem
     1 ino      inode number
     2 mode     file mode  (type and permissions)
     3 nlink    number of (hard) links to the file
     4 uid      numeric user ID of file's owner
     5 gid      numeric group ID of file's owner
     6 rdev     the device identifier (special files only)
     7 size     total size of file, in bytes
     8 atime    last access time in seconds since the epoch
     9 mtime    last modify time in seconds since the epoch
    10 ctime    inode change time in seconds since the epoch (*)
    11 blksize  preferred block size for file system I/O
    12 blocks   actual number of blocks allocated
11 and 12 are not available under Windows.
fixedpmcarray *lstat(STRING *path)
Lstats a symlink, and returns a 13 position array as in Perl. See lstat.
void symlink(STRING *from, STRING *to)
Creates a symlink
STRING *readlink(STRING *path)
Reads a symlink.
void link(STRING *from, STRING *to)
Creates a hard link
INTVAL umask(INTVAL mask)
umask sets the process's file mode creation mask (and returns the previous one).
INTVAL chroot(STRING *path)
it makes the named directory the new root directory for all further pathnames that begin with a "/" by your process and all its children.NOTE: perl restricts this operation to superusers. It might be a good idea to do the same with parrot.
PMC *readdir(STRING *path)
Reads entries from a directory.
rename(STRING *oldpath, STRING *newpath)
This method is a wrapper for rename(2). On error a SystemError exception is thrown.
chmod(STRING *path, INTVAL mode)
Returns the ID number of the current user. This is platform-dependent.
can_execute(STRING *filename)
can_read(STRING *filename)
can_write(STRING *filename)
exists(STRING *filename)
Determine if the file exists. Return 1 if it exists. Return 0 otherwise.


   chdir(2), getcwd(3), unlink(2), mkdir(2), stat(2), lstat(2),
   symlink(2), link(2), umask(2), chroot(2)