NAME
    File::Stat::Bits - stat(2) bit mask constants

SYNOPSIS
     use File::stat;
     use File::Stat::Bits;

     my $st = stat($file) or die "Can't stat $file: $!";

     if ( S_ISCHR($st->mode) ) {
            my ($major, $minor) = dev_split( $st->rdev );

            print "$file is character device $major:$minor\n";
     }

     printf "Permissions are %04o\n", $st->mode & ALLPERMS;

    (Too many S_IF* constants to example)

DESCRIPTION
    Lots of Perl modules use the Unix file permissions and type bits
    directly in binary form with risk of non-portability for some exotic
    bits. Note that the POSIX module does not provides all needed constants
    and I can't wait when the POSIX module will be updated.

    This separate module provides file type/mode bit and more constants from
    sys/stat.ph and sys/sysmacros.ph without pollution caller's namespace by
    other unneeded symbols from these headers. Most of these constants
    exported by this module are Constant Functions (see perlsub).

    Since some of Perl builds does not include these converted headers, the
    build procedure will generate it for itself in the its own lib
    directory.

    This module also should concentrate all portability and compatibility
    issues.

CONSTANTS
  
    File type bit masks (for the st_mode field):

     S_IFMT         bitmask for the file type bitfields
     S_IFDIR        directory
     S_IFCHR        character device
     S_IFBLK        block device
     S_IFREG        regular file
     S_IFIFO        fifo (named pipe)
     S_IFLNK        symbolic link
     S_IFSOCK       socket
    =cut

        sub S_IFMT  () { File::Stat::Bits::dirty::S_IFMT  () }
        sub S_IFDIR () { File::Stat::Bits::dirty::S_IFDIR () }
        sub S_IFCHR () { File::Stat::Bits::dirty::S_IFCHR () }
        sub S_IFBLK () { File::Stat::Bits::dirty::S_IFBLK () }
        sub S_IFREG () { File::Stat::Bits::dirty::S_IFREG () }
        sub S_IFIFO () { File::Stat::Bits::dirty::S_IFIFO () }
        sub S_IFLNK () { File::Stat::Bits::dirty::S_IFLNK () }
        sub S_IFSOCK() { File::Stat::Bits::dirty::S_IFSOCK() }

  
    File access permission bit masks (for the st_mode field):

     S_IRWXU        mask for file owner permissions
     S_IRUSR        owner has read permission
     S_IWUSR        owner has write permission
     S_IXUSR        owner has execute permission
     S_ISUID        set UID bit

     S_IRWXG        mask for group permissions
     S_IRGRP        group has read permission
     S_IWGRP        group has write permission
     S_IXGRP        group has execute permission
     S_ISGID        set GID bit

     S_IRWXO        mask for permissions for others
     S_IROTH        others have read permission
     S_IWOTH        others have write permisson
     S_IXOTH        others have execute permission
     S_ISVTX        sticky bit

    Common mode bit masks:

     ACCESSPERMS     0777
        ALLPERMS    07777
     DEFFILEMODE     0666
    =cut

        sub S_IRWXU() { File::Stat::Bits::dirty::S_IRWXU() }
        sub S_IRUSR() { File::Stat::Bits::dirty::S_IRUSR() }
        sub S_IWUSR() { File::Stat::Bits::dirty::S_IWUSR() }
        sub S_IXUSR() { File::Stat::Bits::dirty::S_IXUSR() }
        sub S_ISUID() { File::Stat::Bits::dirty::S_ISUID() }

        sub S_IRWXG() { File::Stat::Bits::dirty::S_IRWXG() }
        sub S_IRGRP() { File::Stat::Bits::dirty::S_IRGRP() }
        sub S_IWGRP() { File::Stat::Bits::dirty::S_IWGRP() }
        sub S_IXGRP() { File::Stat::Bits::dirty::S_IXGRP() }
        sub S_ISGID() { File::Stat::Bits::dirty::S_ISGID() }

        sub S_IRWXO() { File::Stat::Bits::dirty::S_IRWXO() }
        sub S_IROTH() { File::Stat::Bits::dirty::S_IROTH() }
        sub S_IWOTH() { File::Stat::Bits::dirty::S_IWOTH() }
        sub S_IXOTH() { File::Stat::Bits::dirty::S_IXOTH() }
        sub S_ISVTX() { File::Stat::Bits::dirty::S_ISVTX() }

        sub ACCESSPERMS()   { S_IRWXU|S_IRWXG|S_IRWXO }
        sub    ALLPERMS()   { S_ISUID|S_ISGID|S_ISVTX|ACCESSPERMS }
        sub DEFFILEMODE()   { S_IRUSR|S_IWUSR|S_IRGRP|S_IWGRP|S_IROTH|S_IWOTH }

FUNCTIONS
  
    File type test macros (for the st_mode field):

     S_ISDIR ( mode )       directory?
     S_ISCHR ( mode )       character device?
     S_ISBLK ( mode )       block device?
     S_ISREG ( mode )       regular file?
     S_ISFIFO( mode )       fifo (named pipe)?
     S_ISLNK ( mode )       is it a symbolic link?
     S_ISSOCK( mode )       socket?

    All returns boolean value.

  
    $major = major( $st_rdev )

    Returns major device number of st_rdev

  
    $minor = minor( $st_rdev )

    Returns minor device number of st_rdev

  
    ($major, $minor) = dev_split( $st_rdev )

    Splits st_rdev to major and minor device numbers

  
    $st_rdev = dev_join( $major, $minor )

    Makes st_rdev from major and minor device numbers (makedev())

NOTE
    If major/minor definitions absent in reasonable set of system C headers
    all major/minor related functions returns undef.

SEE ALSO
    stat(2)

    File::stat(3)

AUTHOR
    Dmitry Fedorov <dm.fedorov@gmail.com>

COPYRIGHT
    Copyright (C) 2003 Dmitry Fedorov <dm.fedorov@gmail.com>

LICENSE
    This program is free software; you can redistribute it and/or modify it
    under the terms of the GNU General Public License as published by the
    Free Software Foundation; either version 2 of the License, or (at your
    option) any later version.

DISCLAIMER
    The author disclaims any responsibility for any mangling of your system
    etc, that this script may cause.