Select Code to Download

Select or download this

#include "EXTERN.h"
#include "perl.h"
...
    OUTPUT:
        RETVAL

Select or download this

I32
ATTR_HIDDEN()
...
    OUTPUT:
        RETVAL

Select or download this

int
FAT_IOCTL_GET_ATTRIBUTES()
...
        RETVAL

# END

Select or download this

use warnings; use strict;
package FatConst;
...
}
1;
__END__

Select or download this

use warnings; use strict;
use ExtUtils::MakeMaker;
...
    NAME => "FatConst",
    VERSION_FROM => "FatConst.pm",
);

Select or download this

sudo -u oper perl -I./blib/arch -we 'use FatConst; my $d 
= $ARGV[0]; opendir my $D, $d or die; while (my $b = readdir $D) { my 
+$n = $d . "/" . $b; my $err = !defined(my $a = fat_get_attr($n)); pri
+ntf "%8s  %s\n", ($err ? "E" : fat_format_attr($a)), $n; }' /mnt/s0

Select or download this

   D      /mnt/s0/.
       E  /mnt/s0/..
...
  A       /mnt/s0/CONFIG.BAK
  A       /mnt/s0/AUTOEXEC.BAK
  A       /mnt/s0/TREEINFO.NCD