Unix-Mknod-0.04/0000755000076500007650000000000010733371473014352 5ustar pirzykpirzyk00000000000000Unix-Mknod-0.04/Changes0000644000076500007650000000105310733367045015644 0ustar pirzykpirzyk00000000000000Revision history for Perl extension Unix::Mknod. 0.04 Sat Dec 22 22:26:48 CST 2007 - Update Copyright for 2008 - Ignore make test running as non-root, for cpan compilance. - More documentation fixes (pointed out by Bryan Henderson). 0.03 Wed May 10 11:50:45 2006 - Documentation fixes (pointed out by Brian Finley finley at anl.gov) 0.02 Sun Jun 19 20:01:16 2005 - Renamed package Unix::Mknod - Cleaned up the make test cases 0.01 Sun Jun 19 20:01:16 2005 - original version; created by h2xs 1.23 with options -b 5.6.0 -A -n Sys::Mknod2 Unix-Mknod-0.04/MANIFEST0000644000076500007650000000024510263547067015506 0ustar pirzykpirzyk00000000000000Changes Makefile.PL MANIFEST Mknod.xs README t/Unix-Mknod.t typemap lib/Unix/Mknod.pm META.yml Module meta-data (added by MakeMaker) Unix-Mknod-0.04/META.yml0000644000076500007650000000046010733367045015623 0ustar pirzykpirzyk00000000000000# http://module-build.sourceforge.net/META-spec.html #XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX# name: Unix-Mknod version: 0.04 version_from: lib/Unix/Mknod.pm installdirs: site requires: distribution_type: module generated_by: ExtUtils::MakeMaker version 6.17 Unix-Mknod-0.04/Makefile.PL0000644000076500007650000000113210733367045016321 0ustar pirzykpirzyk00000000000000use 5.006; use ExtUtils::MakeMaker; use Config(%Config); $defines= '-DHAS_SYSMKDEV' if ($Config{osname} eq 'solaris'); # See lib/ExtUtils/MakeMaker.pm for details of how to influence # the contents of the Makefile that is written. WriteMakefile( NAME => 'Unix::Mknod', VERSION_FROM => 'lib/Unix/Mknod.pm', # finds $VERSION ($] >= 5.005 ? ## Add these new keywords supported since 5.005 (ABSTRACT_FROM => 'lib/Unix/Mknod.pm', # retrieve abstract from module AUTHOR => 'Jim Pirzyk ') : ()), DEFINE => $defines ); Unix-Mknod-0.04/Mknod.xs0000644000076500007650000000114210263547067015776 0ustar pirzykpirzyk00000000000000#ifdef __cplusplus extern "C" { #endif #include "EXTERN.h" #include "perl.h" #include "XSUB.h" #include #include #ifdef HAS_SYSMKDEV #include #endif #ifdef __cplusplus } #endif MODULE = Unix::Mknod PACKAGE = Unix::Mknod dev_t major(dev_t dev) PROTOTYPE: $ dev_t minor(dev_t dev) PROTOTYPE: $ dev_t makedev(dev_t major, dev_t minor) PROTOTYPE: $;$ int mknod(filename, mode, dev) char * filename mode_t mode dev_t dev CODE: TAINT_PROPER("mknod"); RETVAL = mknod(filename, mode, dev); OUTPUT: RETVAL Unix-Mknod-0.04/README0000644000076500007650000000604410733367045015236 0ustar pirzykpirzyk00000000000000Unix-Mknod version 0.04 ======================= This module allows access to the device routines major()/minor()/makedev() that may or may not be macros in .h files. It also allows access to the mknod system call. NOTES There are 2 other perl modules that implement the mknod(2) system call, but they have problems working on some platforms. Sys::Mknod does not work on AIX because it uses the syscall(2) generic system call which AIX does not have. Mknod implements S_IFIFO, which on most platforms is not implemented in mknod, but rather mkfifo (which is implemented in POSIX perl module). The perl module File::Stat::Bits also implements major() and minor() (and a version of makedev() called dev_join). They are done as a program to get the bit masks at compile time, but if major() and minor() are implemented as sub routines, the arugment could be something as simple as an index to a lookup table (and thereby having no decernable relation to its result). INSTALLATION To install this module type the following: perl Makefile.PL make make test make install PLATFORMS This module has been tested out and verified on the following platforms: FreeBSD-5.4-STABLE Mac OS X 10.3.9 Solaris 8, 9, 10 RedHat Linux EL 4.1 AIX 4.3.3, 5.1 DEPENDENCIES This module does not require any other modules or libraries. COPYRIGHT AND LICENCE Copyright (c) 2005-2008 University of Illinois Board of Trustees All rights reserved. Developed by: Campus Information Technologies and Educational Services, University of Illinois at Urbana-Champaign Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the ``Software''), to deal with the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: * Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimers. * Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimers in the documentation and/or other materials provided with the distribution. * Neither the names of Campus Information Technologies and Educational Services, University of Illinois at Urbana-Champaign, nor the names of its contributors may be used to endorse or promote products derived from this Software without specific prior written permission. THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE CONTRIBUTORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS WITH THE SOFTWARE. Unix-Mknod-0.04/lib/0000755000076500007650000000000010733371473015120 5ustar pirzykpirzyk00000000000000Unix-Mknod-0.04/lib/Unix/0000755000076500007650000000000010733371473016043 5ustar pirzykpirzyk00000000000000Unix-Mknod-0.04/lib/Unix/Mknod.pm0000644000076500007650000001150510733371407017450 0ustar pirzykpirzyk00000000000000package Unix::Mknod; use 5.006; use strict; use warnings; require Exporter; our @ISA = qw(Exporter); # Items to export into callers namespace by default. Note: do not export # names by default without a very good reason. Use EXPORT_OK instead. # Do not simply export all your public functions/methods/constants. # This allows declaration use Unix::Mknod qw(:all); # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK # will save memory. our %EXPORT_TAGS = ( 'all' => [ qw( mknod major minor makedev ) ] ); our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} }); our @EXPORT = qw( ); our $VERSION = '0.04'; require XSLoader; XSLoader::load('Unix::Mknod', $VERSION); 1; __END__ =head1 NAME Unix::Mknod - Perl extension for mknod, major, minor, and makedev =head1 SYNOPSIS use Unix::Mknod qw(:all); use File::stat; use Fcntl qw(:mode); $st=stat('/dev/null'); $major=major($st->rdev); $minor=minor($st->rdev); mknod('/tmp/special', S_IFCHR|0600, makedev($major,$minor+1)); =head1 DESCRIPTION This module allows access to the device routines major()/minor()/makedev() that may or may not be macros in .h files. It also allows access to the C system call. =head1 FUNCTIONS =over 4 =item I Creates a block or character device special file named I<$filename>. Must be run as a privileged user, usually I. Returns 0 on success and -1 on failure, like C does. =item I<$major = major($rdev)> Returns the major number for the device special file as defined by the st_rdev field from the C call. =item I<$minor = minor($rdev)> Returns the minor number for the device special file as defined by the st_rdev field from the C call. =item I<$rdev = makedev($major, $minor)> Returns the st_rdev number for the device special file from the I<$major> and I<$minor> numbers. =back =head1 NOTES There are 2 other perl modules that implement the C system call, but they have problems working on some platforms. C does not work on AIX because it uses the C generic system call which AIX does not have. C implements S_IFIFO, which on most platforms is not implemented in C, but rather C (which is implemented in POSIX perl module). The perl module C also implements major() and minor() (and a version of makedev() called dev_join). They are done as a program to get the bit masks at compile time, but if major() and minor() are implemented as sub routines, the arugment could be something as simple as an index to a lookup table (and thereby having no decernable relation to its result). =head1 BUGS Running C as non root will not truly test the functions, as in most UNIX like OSes, C needs to be invoked by a privelaged user, usually I. =head1 SEE ALSO C<$ERRNO> or C<$!> for the specific error message. L, L, L, L C, C, C, C ftp://ftp-dev.cites.uiuc.edu/pub/Unix-Mknod =head1 AUTHOR Jim Pirzyk, Epirzyk@uiuc.eduE =head1 COPYRIGHT AND LICENSE Copyright (c) 2005-2008 University of Illinois Board of Trustees All rights reserved. Developed by: Campus Information Technologies and Educational Services, University of Illinois at Urbana-Champaign Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the ``Software''), to deal with the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: * Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimers. * Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimers in the documentation and/or other materials provided with the distribution. * Neither the names of Campus Information Technologies and Educational Services, University of Illinois at Urbana-Champaign, nor the names of its contributors may be used to endorse or promote products derived from this Software without specific prior written permission. THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE CONTRIBUTORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS WITH THE SOFTWARE. =cut Unix-Mknod-0.04/t/0000755000076500007650000000000010733371473014615 5ustar pirzykpirzyk00000000000000Unix-Mknod-0.04/t/Unix-Mknod.t0000644000076500007650000000306410733367045016776 0ustar pirzykpirzyk00000000000000# Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl Unix-Mknod.t' ######################### # change 'tests => 1' to 'tests => last_test_to_print'; use Test; BEGIN { plan tests => 11 }; use Unix::Mknod qw(:all); use Fcntl qw(:mode); use File::stat; $file='/tmp/special'; ######################### # Check to make sure major maps back to itself ok(major(makedev(10,2)), 10); # Same with minor ok(minor(makedev(7,5)), 5); # Check that makedev does as well, using the rdev from /dev/null my ($st)=stat('/dev/null'); ok(makedev(major($st->rdev), minor($st->rdev)), $st->rdev); # Can only run mknod if we are root skip ( ($< != 0? "Test needs to be run as root": 0), mknod($file, S_IFCHR|0600, makedev(1,2)), 0 ); $st=stat($file); skip ( ($< != 0? "Test needs to be run as root": 0), defined($st) && &S_ISCHR($st->mode) ); skip ( ($< != 0? "Test needs to be run as root": 0), defined($st) && !&S_ISBLK($st->mode) ); skip( ($< != 0? "Test needs to be run as root": 0), defined($st) && ($st->mode & S_IRUSR|S_IWUSR) ); unlink $file if ( -e $file); skip ( ($< != 0? "Test needs to be run as root": 0), mknod($file, S_IFBLK|0600, makedev(1,2)), 0 ); $st=stat($file); skip ( ($< != 0? "Test needs to be run as root": 0), defined($st) && &S_ISBLK($st->mode) ); skip ( ($< != 0? "Test needs to be run as root": 0), defined($st) && !&S_ISCHR($st->mode) ); skip ( ($< != 0? "Test needs to be run as root": 0), defined($st) && ($st->mode & S_IRUSR|S_IWUSR) ); unlink $file if ( -e $file); Unix-Mknod-0.04/typemap0000644000076500007650000000003610255447004015744 0ustar pirzykpirzyk00000000000000mode_t T_UV dev_t T_UV