From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

SANKO / Affix-0.08_01-TRIAL / t / lib / nativecall.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85

              
package t::lib::nativecall {
    use strict;
    use warnings;
    use Test::More;
    use experimental 'signatures';
    use Exporter 'import';
    our @EXPORT = qw[compile_test_lib compile_cpp_test_lib is_approx];
    use Config;
    #
    my $OS = $^O;
    my @cleanup;
    #
    sub compile_test_lib ($name) {
        my $libname = $name . '.' . $Config{so};
        #warn $libname;
        my @cmds;
        #$VM;
        #my $cfg = $VM->{config};
        if ( $OS eq 'MSWin32' ) {
            @cmds = (
                "cl /LD /EHsc /Fe$libname t/src/$name.c",
                "gcc --shared -fPIC -DBUILD_LIB -o t/$libname t/src/$name.c"
            );
        }
        else {
            @cmds = (
                "gcc --shared -fPIC -DBUILD_LIB -o t/$libname t/src/$name.c",
                "clang -stdlib=libc --shared -fPIC -o t/$libname t/src/$name.c"
            );
        }
        my ( @fails, $succeeded );
        for my $cmd (@cmds) {
            #my $out = `$cmd 2>&1`;
            last if !system(qq[$cmd 2>&1]);
            #warn $out;
            #system (qq"$cmd 2>&1") == 0 or warn qq[system( $cmd ) failed: $?];
        }
        push @cleanup, $libname;
    }
    sub compile_cpp_test_lib ($name) {
        my $libname = $name . '.' . $Config{so};
        #warn $libname;
        my @cmds;
        #$VM;
        #my $cfg = $VM->{config};
        if ( $OS eq 'MSWin32' ) {
            @cmds = (
                "cl /LD /EHsc /Fe$libname t/src/$name.cpp",
                "g++ --shared -fPIC -DBUILD_LIB -o t/$libname t/src/$name.cpp"
            );
        }
        else {
            @cmds = (
                "g++ --shared -fPIC -DBUILD_LIB -o t/$libname t/src/$name.cpp",
                "clang++ -stdlib=libc++ --shared -fPIC -o t/$libname t/src/$name.cpp"
            );
        }
        my ( @fails, $succeeded );
        for my $cmd (@cmds) {
            #my $out = `$cmd 2>&1`;
            last if !system(qq[$cmd 2>&1]);
            #warn $out;
            #system (qq"$cmd 2>&1") == 0 or warn qq[system( $cmd ) failed: $?];
        }
        push @cleanup, $libname;
    }
    END {
        unlink $_ for @cleanup;
    }
    sub is_approx ( $actual, $expected, $desc ) {    # https://docs.raku.org/routine/is-approx
        ok abs( $actual - $expected ) < 1e-6, $desc;
    }
};
1;