view release on metacpan or  search on metacpan

lib/File/At.pm  view on Meta::CPAN

    )
  );


  # helpers
  push(@EXPORT_OK,qw( dir open_fd_at open_fh_at ));

  # raw bindings (callable directly if you want)
  push(@EXPORT_OK,qw(
    openat     fstatat     unlinkat  mkdirat    mknodat
    mkfifoat   fchmodat    fchownat  utimensat  linkat
    symlinkat  readlinkat  renameat  renameat2  faccessat
    futimesat                                   
    )
  );
};

#----------------------------------------------------------------------
# Constants (from linux/fcntl.h and friends)
#----------------------------------------------------------------------

lib/File/At.pm  view on Meta::CPAN

# int mknodat(int dirfd, const char *pathname, mode_t mode, dev_t dev);
$ffi->attach( mknodat => ['int','string','mode_t','dev_t'] => 'int' );

# int mkfifoat(int dirfd, const char *pathname, mode_t mode);
$ffi->attach( mkfifoat => ['int','string','mode_t'] => 'int' );

# int fchmodat(int dirfd, const char *pathname, mode_t mode, int flags);
$ffi->attach( fchmodat => ['int','string','mode_t','int'] => 'int' );

# int fchownat(int dirfd, const char *pathname,
#              uid_t owner, gid_t group, int flags);
$ffi->attach( fchownat => ['int','string','uid_t','gid_t','int'] => 'int' );

# int utimensat(int dirfd, const char *pathname,
#               const struct timespec times[2], int flags);
$ffi->attach( utimensat => ['int','string','opaque','int'] => 'int' );

# int linkat(int olddirfd, const char *oldpath,
#            int newdirfd, const char *newpath, int flags);
$ffi->attach( linkat => ['int','string','int','string','int'] => 'int' );

# int symlinkat(const char *target, int newdirfd, const char *linkpath);