package Perl::osnames; our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY our $DATE = '2020-02-13'; # DATE our $DIST = 'Perl-osnames'; # DIST our $VERSION = '0.122'; # VERSION use strict; use warnings; use Exporter qw(import); our @EXPORT_OK = qw($data is_unix is_posix $RE_OS_IS_KNOWN $RE_OS_IS_POSIX $RE_OS_IS_UNIX); our $data = [map { chomp; my @f = split /\s+/, $_, 3; $f[1] = $f[1] eq '-' ? [] : [split /,/, $f[1]]; \@f; } split /^/m, <<'_']; aix posix,sysv,unix IBM AIX. amigaos - android sysv,unix bsdos bsd,unix BSD/OS. Originally called BSD/386, also known as BSDi. beos posix See also: haiku. bitrig bsd,unix An OpenBSD fork. dgux sysv,unix DG/UX. dos - dynixptx sysv,unix DYNIX/ptx. cygwin posix,unix Unix-like emulation layer that runs on Windows. darwin bsd,posix,unix Mac OS X. Does not currently (2013) include iOS. See also: iphoneos. dec_osf - DEC Alpha. dragonfly bsd,posix,unix DragonFly BSD. freebsd bsd,posix,unix gnu posix,unix Unix-like operating system which can have one these kernels: Hurd, Linux, FreeBSD. gnukfreebsd bsd,posix,unix Debian GNU/kFreeBSD. haiku posix See also: beos. hpux posix,sysv,unix HP-UX. interix posix,unix Optional, POSIX-compliant Unix subsystem for Windows NT. Also known as Microsoft SFU. No longer included in Windows nor supported. iphoneos posix,unix Darwin-based OS X which is mostly POSIX compatible. irix posix,sysv,unix linux posix,sysv,unix MacOS - Mac OS Classic (predates Mac OS X). See also: darwin, iphoneos. machten bsd,unix MachTen, an operating system that runs virtually under Mac OS. midnightbsd bsd,posix,unix minix bsd,posix mirbsd bsd,posix,unix MirOS BSD. mpeix - MPEiX. msys posix,unix A component of MinGW (minimalist Gnu for Windows) that is POSIX compatible. MSWin32 - All Windows platforms including 95/98/ME/NT/2000/XP/CE/.NET. But does not include Cygwin (see "cygwin") or Interix (see "interix"). To get more details on which Windows you are on, use Win32::GetOSName() or Win32::GetOSVersion(). Ref: perlvar. netbsd bsd,posix,unix next unix NeXTSTEP OS. nto unix ? openbsd bsd,posix,unix os2 - OS/2. os390 ebcdic os400 ebcdic posix-bc ebcdic qnx unix riscos - sco posix,sysv,unix SCO UNIX. sco_sv posix,sysv,unix SCO OpenServer/UnixWare. solaris posix,sysv,unix This includes the old SunOS. sunos bsd,posix,unix SunOS, BSD-based predecessor to the System V Solaris. svr4 posix,sysv,unix System V Release 4. svr5 posix,sysv,unix System V Release 5. unicos posix,sysv,unix Unix-like operating system for Cray supercomputers. unicosmk posix,sysv,unix Unix-like operating system for Cray supercomputers. vmesa ebcdic VMS - vos - _ # dump: display data as table #use Data::Format::Pretty::Text qw(format_pretty); #say format_pretty($data, { # table_column_formats=>[{description=>[[wrap=>{columns=>40}]]}], # table_column_orders=>[[qw/code summary description/]], #}); # debug: dump data #use Data::Dump::Color; #dd $data; our $RE_OS_IS_KNOWN = do { my $re = join "|", map { $_->[0] } @$data; qr/\A(?:$re)\z/; }; our $RE_OS_IS_POSIX = do { my @os; OS: for my $rec (@$data) { for (@{$rec->[1]}) { do { push @os, $rec->[0]; next OS } if $_ eq 'posix'; } } my $re = join("|", @os); qr/\A(?:$re)\z/; }; our $RE_OS_IS_UNIX = do { my @os; OS: for my $rec (@$data) { for (@{$rec->[1]}) { do { push @os, $rec->[0]; next OS } if $_ eq 'unix'; } } my $re = join("|", @os); qr/\A(?:$re)\z/; }; sub is_posix { my $os = shift || $^O; return undef unless $os =~ $RE_OS_IS_KNOWN; $os =~ $RE_OS_IS_POSIX ? 1:0; } sub is_unix { my $os = shift || $^O; return undef unless $os =~ $RE_OS_IS_KNOWN; $os =~ $RE_OS_IS_UNIX ? 1:0; } 1; # ABSTRACT: List possible $^O ($OSNAME) values, with description __END__ =pod =encoding UTF-8 =head1 NAME Perl::osnames - List possible $^O ($OSNAME) values, with description =head1 VERSION This document describes version 0.122 of Perl::osnames (from Perl distribution Perl-osnames), released on 2020-02-13. =head1 DESCRIPTION This package contains C<$data> which lists possible values of C<$^O> along with description for each. It also provides some helper functions. =head2 Tags =over =item * unix Unix-like operating systems. This currently excludes beos/haiku. =item * bsd BSD-derived Unix operating systems. =item * sysv SysV-derived Unix operating systems. =item * posix For POSIX-compliant OSes, including fully-, mostly-, and largely-compliant ones (source: L). From what I can gather, dec_osf is not POSIX compliant, although there is a posix package for it. =back =head1 VARIABLES None are exported by default, but they are exportable. =head2 C<$data> An arrayref of records (arrayrefs), each structured as: [$name, \@tags, $description] =head2 $RE_OS_IS_KNOWN Current value: qr/\A(?:aix|amigaos|android|bsdos|beos|bitrig|dgux|dos|dynixptx|cygwin|darwin|dec_osf|dragonfly|freebsd|gnu|gnukfreebsd|haiku|hpux|interix|iphoneos|irix|linux|MacOS|machten|midnightbsd|minix|mirbsd|mpeix|msys|MSWin32|netbsd|next|nto|openbsd|os2|os390|os400|posix-bc|qnx|riscos|sco|sco_sv|solaris|sunos|svr4|svr5|unicos|unicosmk|vmesa|VMS|vos)\z/ =head2 $RE_OS_IS_POSIX Current value: qr/\A(?:aix|beos|cygwin|darwin|dragonfly|freebsd|gnu|gnukfreebsd|haiku|hpux|interix|iphoneos|irix|linux|midnightbsd|minix|mirbsd|msys|netbsd|openbsd|sco|sco_sv|solaris|sunos|svr4|svr5|unicos|unicosmk)\z/ =head2 $RE_OS_IS_UNIX Current value: qr/\A(?:aix|android|bsdos|bitrig|dgux|dynixptx|cygwin|darwin|dragonfly|freebsd|gnu|gnukfreebsd|hpux|interix|iphoneos|irix|linux|machten|midnightbsd|mirbsd|msys|netbsd|next|nto|openbsd|qnx|sco|sco_sv|solaris|sunos|svr4|svr5|unicos|unicosmk)\z/ =head1 FUNCTIONS None are exported by default, but they are exportable. =head2 is_posix([ $os ]) => bool Check whether C<$os> (defaults to C<$^O> if not specified) is POSIX (checked by the existence of C tag on the OS's record in C<$data>). Will return 0, 1, or undef if C<$os> is unknown. =head2 is_unix([ $os ]) => bool Check whether C<$os> (defaults to C<$^O> if not specified) is Unix (checked by the existence of C tag on the OS's record in C<$data>). Will return 0, 1, or undef if C<$os> is unknown. =head1 HOMEPAGE Please visit the project's homepage at L. =head1 SOURCE Source repository is at L. =head1 BUGS Please report any bugs or feature requests on the bugtracker website L When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature. =head1 SEE ALSO L L L, a core module. You should probably use this module instead. Currently the difference between this module and Perl::osnames: 1) Perl::osnames currently doesn't list beos/haiku as Unix, but POSIX; 2) Perl::osnames provides more tags (like sysv, bsd, posix) and description. L The output of C L, the original reason for Perl::osnames. With this CLI tool you can grep OS names by name, tag, or description, e.g. C or C. =head1 AUTHOR perlancar =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2020, 2014 by perlancar@cpan.org. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut