use Devel::CheckCompiler

skaji · Jul 13, 2023 · b9c243e · b9c243e
1 parent 39d3dc2
commit b9c243e
Show file tree

Hide file tree

Showing 5 changed files with 54 additions and 13 deletions.
diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
@@ -26,7 +26,7 @@ jobs:
       - name: perl -V
         run: ${{ matrix.perl }} -V
       - name: Install Dependencies
-        run: curl -fsSL --compressed https://raw.githubusercontent.com/skaji/cpm/main/cpm | ${{ matrix.perl }} - install -g ${{ matrix.cpm-option }} --with-develop --with-recommends --show-build-log-on-failure
+        run: curl -fsSL --compressed https://raw.githubusercontent.com/skaji/cpm/main/cpm | ${{ matrix.perl }} - install -g ${{ matrix.cpm-option }} --with-configure --with-develop --with-recommends --show-build-log-on-failure
       - name: Build
         run: ${{ matrix.perl }} Makefile.PL && make
       - name: Run Tests

diff --git a/META.json b/META.json
@@ -16,6 +16,7 @@
    "prereqs" : {
       "configure" : {
          "requires" : {
+            "Devel::CheckCompiler" : "0.07",
             "ExtUtils::MakeMaker" : "0"
          }
       },

diff --git a/Makefile.PL b/Makefile.PL
@@ -13,11 +13,35 @@ use warnings;
 
 use ExtUtils::Constant ();
 use Config ();
+use Devel::CheckCompiler ();
 
 if ($^O ne 'darwin') {
     die "OS unsupported\n";
 }
 
+my $check = <<'EOF';
+#include <stdio.h>
+#include <CoreFoundation/CoreFoundation.h>
+#include <CoreServices/CoreServices.h>
+
+int main() {
+  FSEventStreamEventId id = FSEventsGetCurrentEventId();
+  return (int)id;
+}
+EOF
+
+my $lddlflags = join " ", (
+    $Config::Config{lddlflags} ? $Config::Config{lddlflags} : (),
+    "-framework CoreServices",
+    "-framework CoreFoundation",
+);
+
+my $ok = Devel::CheckCompiler::check_compile($check, executable => 1, extra_linker_flags => $lddlflags);
+if (!$ok) {
+    print "This OS does not have FSEventsGetCurrentEventId() function. exit";
+    exit 0;
+}
+
 my @c_name = qw(
     kFSEventStreamCreateFlagNone
     kFSEventStreamCreateFlagWatchRoot
@@ -43,12 +67,6 @@ ExtUtils::Constant::WriteConstants(
     NAMES => \@name,
 );
 
-my $lddlflags = join " ", grep { length $_ } (
-    $Config::Config{lddlflags},
-    "-framework CoreServices",
-    "-framework CoreFoundation",
-);
-
 my %args = (
     LDDLFLAGS => $lddlflags,
 );
@@ -57,6 +75,7 @@ my %WriteMakefileArgs = (
   "ABSTRACT" => "Monitor a directory structure for changes",
   "AUTHOR" => "Andy Grundman <andy\@hybridized.org>, Rob Hoelz <rob\@hoelz.ro>",
   "CONFIGURE_REQUIRES" => {
+    "Devel::CheckCompiler" => "0.07",
     "ExtUtils::MakeMaker" => 0
   },
   "DISTNAME" => "Mac-FSEvents",

diff --git a/cpm.yml b/cpm.yml
@@ -1,4 +1,7 @@
 prereqs:
+  configure:
+    requires:
+      Devel::CheckCompiler: { version: '0.07' }
   runtime:
     requires:
       perl: { version: '5.008008' }

diff --git a/maint/Makefile_header.PL b/maint/Makefile_header.PL
@@ -3,11 +3,35 @@ use warnings;
 
 use ExtUtils::Constant ();
 use Config ();
+use Devel::CheckCompiler ();
 
 if ($^O ne 'darwin') {
     die "OS unsupported\n";
 }
 
+my $check = <<'EOF';
+#include <stdio.h>
+#include <CoreFoundation/CoreFoundation.h>
+#include <CoreServices/CoreServices.h>
+
+int main() {
+  FSEventStreamEventId id = FSEventsGetCurrentEventId();
+  return (int)id;
+}
+EOF
+
+my $lddlflags = join " ", (
+    $Config::Config{lddlflags} ? $Config::Config{lddlflags} : (),
+    "-framework CoreServices",
+    "-framework CoreFoundation",
+);
+
+my $ok = Devel::CheckCompiler::check_compile($check, executable => 1, extra_linker_flags => $lddlflags);
+if (!$ok) {
+    print "This OS does not have FSEventsGetCurrentEventId() function. exit";
+    exit 0;
+}
+
 my @c_name = qw(
     kFSEventStreamCreateFlagNone
     kFSEventStreamCreateFlagWatchRoot
@@ -33,12 +57,6 @@ ExtUtils::Constant::WriteConstants(
     NAMES => \@name,
 );
 
-my $lddlflags = join " ", grep { length $_ } (
-    $Config::Config{lddlflags},
-    "-framework CoreServices",
-    "-framework CoreFoundation",
-);
-
 my %args = (
     LDDLFLAGS => $lddlflags,
 );