view release on metacpan or  search on metacpan

lib/Sidef/Sys/Sys.pm  view on Meta::CPAN

}

sub refaddr {
    my ($self, $obj) = @_;
    Sidef::Types::Number::Number::_set_int(Scalar::Util::refaddr($obj));
}

sub reftype {
    my ($self, $obj) = @_;
    Sidef::Types::String::String->new(Scalar::Util::reftype($obj));
}

sub weaken {
    my ($self, $obj) = @_;
    (Scalar::Util::weaken($obj)) ? (Sidef::Types::Bool::Bool::TRUE) : (Sidef::Types::Bool::Bool::FALSE);
}

sub isweak {
    my ($self, $obj) = @_;
    (Scalar::Util::isweak($obj)) ? (Sidef::Types::Bool::Bool::TRUE) : (Sidef::Types::Bool::Bool::FALSE);
}

sub unweaken {
    my ($self, $obj) = @_;
    (Scalar::Util::unweaken($obj)) ? (Sidef::Types::Bool::Bool::TRUE) : (Sidef::Types::Bool::Bool::FALSE);
}

sub select {
    my ($self, $fh) = @_;
    Sidef::Types::Glob::FileHandle->new(scalar CORE::select(CORE::ref($fh) eq 'GLOB' ? $fh : $fh->get_value));
}

sub system {
    my ($self, @args) = @_;
    Sidef::Types::Number::Number::_set_int(scalar CORE::system(@args));
}

*run = \&system;

sub exec {
    my ($self, @args) = @_;
    CORE::exec(@args);
}

sub __GETPW__ {
    my ($self, $name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = @_;
    $name // return undef;
    Sidef::Types::Array::Array->new(
                                    Sidef::Types::String::String->new($name),  Sidef::Types::String::String->new($passwd),
                                    Sidef::Types::Number::Number->new($uid),   Sidef::Types::Number::Number->new($gid),
                                    Sidef::Types::String::String->new($quota), Sidef::Types::String::String->new($comment),
                                    Sidef::Types::String::String->new($gcos),  Sidef::Types::String::String->new($shell),
                                   );
}

sub setpwent {
    my ($self) = @_;
    (CORE::setpwent) ? (Sidef::Types::Bool::Bool::TRUE) : (Sidef::Types::Bool::Bool::FALSE);
}

sub getpwuid {
    my ($self, $uid) = @_;
    $self->__GETPW__(CORE::getpwuid($uid));
}

sub getpwnam {
    my ($self, $name) = @_;
    $self->__GETPW__(CORE::getpwnam($name));
}

sub getpwent {
    my ($self) = @_;
    $self->__GETPW__(CORE::getpwent);
}

sub __GETGR__ {
    my ($self, $name, $passwd, $gid, $members) = @_;
    $name // return
      Sidef::Types::Array::Array->new(Sidef::Types::String::String->new($name),
                                      Sidef::Types::String::String->new($passwd),
                                      Sidef::Types::Number::Number->new($gid),
                                      Sidef::Types::Array::Array->new(map { Sidef::Types::String::String->new($_) } split(' ', $members)),
                                     );
}

sub setgrent {
    my ($self) = @_;
    (CORE::setgrent) ? (Sidef::Types::Bool::Bool::TRUE) : (Sidef::Types::Bool::Bool::FALSE);
}

sub getgrent {
    my ($self) = @_;
    $self->__GETGR__(CORE::getgrent);
}

sub getgrgid {
    my ($self, $gid) = @_;
    $self->__GETGR__(CORE::getgrgid($gid));
}

sub getgrnam {
    my ($self, $name) = @_;
    $self->__GETGR__(CORE::getgrnam($name));
}

sub __GETHOST__ {
    my ($self, $name, $aliases, $addrtype, $length, @addrs) = @_;
    $name // return undef;
    Sidef::Types::Array::Array->new(
                                    Sidef::Types::String::String->new($name),
                                    Sidef::Types::String::String->new($aliases),
                                    Sidef::Types::String::String->new($addrtype),
                                    Sidef::Types::Number::Number->new($length),
                                    Sidef::Types::Array::Array->new(map { Sidef::Types::String::String->new($_) } @addrs),
                                   );
}

sub sethostent {
    my ($self, $stayopen) = @_;
    (CORE::sethostent($stayopen)) ? (Sidef::Types::Bool::Bool::TRUE) : (Sidef::Types::Bool::Bool::FALSE);
}

sub gethostbyaddr {