aDriv4 website!

Linux web1060.sh.fuk1 4.18.0-425.19.2.lve.el7h.x86_64 #1 SMP Thu Apr 6 13:40:55 UTC 2023 x86_64
Apache
127.0.0.1

CheckCompiler.pm

package Devel::CheckCompiler;
use strict;
use warnings;
use 5.008001;
our $VERSION = '0.05';
use parent qw/Exporter/;

our @EXPORT = qw/check_c99 check_c99_or_exit check_compile/;
use ExtUtils::CBuilder;

my $C99_SOURCE = <<'C99';
// include a C99 header
#include <stdbool.h>
inline // a C99 keyword with C99 style comments
int test_c99() {
    int i = 0;
    i++;
    int j = i - 1; // another C99 feature: declaration after statement
    return j;
}
C99

sub check_c99 {
    check_compile($C99_SOURCE);
}

sub check_c99_or_exit {
    check_compile($C99_SOURCE) or do {
        warn "Your system is not support C99(OS unsupported)\n";
        exit 0;
    };
}

sub check_compile {
    my ($src, %opt) = @_;

my $cbuilder = ExtUtils::CBuilder->new(quiet => 1);
    return 0 unless $cbuilder->have_compiler;

require File::Temp;

my $tmpfile = File::Temp->new(SUFFIX => '.c');
    $tmpfile->print($src);
    $tmpfile->close();

my $objname = eval {
        $cbuilder->compile(source => $tmpfile->filename);
    };
    if ($objname) {
        my $ret = 1;
        if ($opt{executable}) {
            my $execfile = eval {
                $cbuilder->link_executable(objects => $objname,
                                           extra_linker_flags => $opt{extra_linker_flags});
            };

if ($execfile) {
                unlink $execfile or warn "Cannot unlink $execfile (ignored): $!";
            } else {
                $ret = 0;
            }
        }
        unlink $objname or warn "Cannot unlink $objname (ignored): $!";
        return $ret;
    } else {
        return 0;
    }
}

1;
__END__

=encoding utf8

=head1 NAME

Devel::CheckCompiler - Check the compiler's availability

=head1 SYNOPSIS

use Devel::CheckCompiler;

check_c99_or_exit();

=head1 DESCRIPTION

Devel::CheckCompiler is checker for compiler's availability.

=head1 FUNCTIONS

=over 4

=item C<check_c99()>

Returns true if the current system has a working C99 compiler, false otherwise.

=item C<check_c99_or_exit()>

Check the current system has a working C99 compiler, if it's not available, exit by 0.

=item C<check_compile($src: Str, %options)>

Compile C<$src> as C code. Return 1 if it's available, 0 otherwise.

Possible options are:

=over

=item executable :Bool = false

Check to see if generating executable is possible if this parameter is true.

=item extra_linker_flags : Str | ArrayRef[Str]

Any additional flags you wish to pass to the linker. This option is used
only when C<executable> option specified.

=back

=head1 AUTHOR

Tokuhiro Matsuno E<lt>tokuhirom AAJKLFJEF@ GMAIL COME<gt>

=head1 SEE ALSO

L<ExtUtils::CBuilder>

=head1 LICENSE

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2023-08-25 11:53:16
..	dir	-	root/root	0755	2023-08-25 12:05:20
REPL	dir	-	root/root	0755	2023-08-25 11:53:02
StackTrace	dir	-	root/root	0755	2023-08-25 11:53:15
Symdump	dir	-	root/root	0755	2023-08-25 11:52:52
AssertC99.pm	text/plain	612 B	root/root	0444	2014-10-07 08:50:35
Autoflush.pm	text/plain	2.28 KB	root/root	0644	2014-02-27 12:31:48
CheckBin.pm	text/plain	1.87 KB	root/root	0444	2018-11-15 10:40:16
CheckCompiler.pm	text/plain	2.77 KB	root/root	0444	2014-10-07 08:50:35
CheckLib.pm	text/plain	14.78 KB	root/root	0644	2013-04-03 01:13:48
Cycle.pm	text/plain	13.25 KB	root/root	0644	2014-06-10 08:37:07
Cycle.pm.512	text/plain	13.17 KB	root/root	0644	2009-08-24 12:54:45
Dwarn.pm	text/plain	2.36 KB	root/root	0644	2011-01-20 06:46:55
EnforceEncapsulation.pm	text/plain	7.09 KB	root/root	0644	2006-10-11 01:55:54
GlobalDestruction.pm	text/plain	2.71 KB	root/root	0644	2013-11-01 04:04:39
GraphVizProf.pm	text/plain	10.52 KB	root/root	0644	2012-11-09 05:10:05
Hide.pm	text/plain	8.77 KB	root/root	0644	2013-01-28 01:30:27
InnerPackage.pm	text/plain	2.42 KB	root/root	0644	2014-06-09 09:44:26
Loaded.pm	text/plain	2.78 KB	root/root	0644	2014-02-08 08:30:07
OverloadInfo.pm	text/plain	4.88 KB	root/root	0644	2014-03-26 12:02:40
PartialDump.pm	text/x-perl	12.11 KB	root/root	0644	2011-05-05 10:05:19
REPL.pm	text/plain	10.13 KB	root/root	0644	2013-03-01 06:25:26
StackTrace.pm	text/plain	11.53 KB	root/root	0644	2012-11-20 05:06:36
StringInfo.pm	text/x-perl	7.79 KB	root/root	0644	2009-05-14 03:40:34
Symdump.pm	text/plain	12.14 KB	root/root	0644	2013-03-24 07:03:44
Timer.pm	text/plain	10.03 KB	root/root	0644	2016-02-06 05:19:47

For more Private tool come to me!

https://t.me/aDriv4vz