MAJOR_MINOR(1)

NAME

major_minor - PERL start engine

SYNOPSIS

eval `major_minor`;

$major_number = &dev_major($devnum);

$minor_number = &dev_minor($devnum);

DESCRIPTION

major_minor emits two PERL routines, dev_major() and dev_minor() that take a device number as returned by stat() and that break the number up into the device major and minor number, respectively.

For example, the FreeBSD 2.2 output is:

sub dev_major { local($dev) = @_; ($dev >> 8) & 0xff; };

sub dev_minor { local($dev) = @_; ($dev & 0xffff00ff); };

1;

In principle, this information could be obtained by parsing system include files, but a little C program is more robust.

HISTORY

A similar trick was used first with the SATAN program.

LICENSE

This software is distributed under the IBM Public License.

AUTHOR(S)

Wietse Venema
IBM T.J. Watson Research
P.O. Box 704
Yorktown Heights, NY 10598, USA

MAJOR_MINOR(1)