From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on dcvr.yhbt.net X-Spam-Level: X-Spam-ASN: X-Spam-Status: No, score=-4.0 required=3.0 tests=ALL_TRUSTED,BAYES_00 shortcircuit=no autolearn=ham autolearn_force=no version=3.4.2 Received: from localhost (dcvr.yhbt.net [127.0.0.1]) by dcvr.yhbt.net (Postfix) with ESMTP id 4A2FB1F5AE for ; Fri, 18 Jun 2021 21:44:38 +0000 (UTC) From: Eric Wong To: meta@public-inbox.org Subject: [PATCH] scripts: add syscall-list tool for development Date: Fri, 18 Jun 2021 18:44:38 -0300 Message-Id: <20210618214438.15018-1-e@80x24.org> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit List-Id: We'll be supporting inotify directly as we do with epoll so so Linux users won't have to deal with XS, extra DSOs or install Linux::Inotify2 (and common::sense) modules. --- MANIFEST | 2 ++ devel/README | 1 + devel/syscall-list | 49 ++++++++++++++++++++++++++++++++++++++ lib/PublicInbox/Syscall.pm | 1 + 4 files changed, 53 insertions(+) create mode 100644 devel/README create mode 100755 devel/syscall-list diff --git a/MANIFEST b/MANIFEST index d4b3e75d..146a32ab 100644 --- a/MANIFEST +++ b/MANIFEST @@ -97,6 +97,8 @@ contrib/css/216light.css contrib/css/README contrib/selinux/el7/publicinbox.fc contrib/selinux/el7/publicinbox.te +devel/README +devel/syscall-list examples/README examples/README.unsubscribe examples/apache2_cgi.conf diff --git a/devel/README b/devel/README new file mode 100644 index 00000000..8f9a0485 --- /dev/null +++ b/devel/README @@ -0,0 +1 @@ +scripts use for public-inbox development that don't belong in t/ diff --git a/devel/syscall-list b/devel/syscall-list new file mode 100755 index 00000000..b33401d9 --- /dev/null +++ b/devel/syscall-list @@ -0,0 +1,49 @@ +# Copyright 2021 all contributors +# License: AGPL-3.0+ +# Dump syscall numbers under Linux and any other kernel which +# promises stable syscall numbers. This is to maintain +# PublicInbox::Syscall +# DO NOT USE this for *BSDs, none of the current BSD kernels +# we know about promise stable syscall numbers, we'll use +# Inline::C to support them. +eval 'exec perl -S $0 ${1+"$@"}' # no shebang + if 0; # running under some shell +use strict; +use File::Temp 0.19; +my $cc = $ENV{CC} // 'cc'; +my @cflags = split(/\s+/, $ENV{CFLAGS} // '-Wall'); +my $str = do { local $/; }; +my $tmp = File::Temp->newdir('syscall-list-XXXX', TMPDIR => 1); +my $f = "$tmp/sc.c"; +my $x = "$tmp/sc"; +open my $fh, '>', $f or die "open $f $!"; +print $fh $str or die "print $f $!"; +close $fh or die "close $f $!"; +system($cc, '-o', $x, $f, @cflags) == 0 or die "cc failed \$?=$?"; +exec($x); +__DATA__ +#define _GNU_SOURCE +#include +#include +#include + +#define D(x) printf("$" #x " = %ld;\n", (long)x) + +int main(void) +{ +#ifdef __linux__ + D(SYS_epoll_create1); + D(SYS_epoll_ctl); +#ifdef SYS_epoll_wait + D(SYS_epoll_wait); +#endif + D(SYS_epoll_pwait); + D(SYS_signalfd4); + D(SYS_inotify_init1); + D(SYS_inotify_add_watch); + D(SYS_inotify_rm_watch); + D(SYS_prctl); +#endif /* Linux, any other OSes with stable syscalls? */ + printf("size_t=%zu off_t=%zu\n", sizeof(size_t), sizeof(off_t)); + return 0; +} diff --git a/lib/PublicInbox/Syscall.pm b/lib/PublicInbox/Syscall.pm index 2599f8a3..a8a6f42a 100644 --- a/lib/PublicInbox/Syscall.pm +++ b/lib/PublicInbox/Syscall.pm @@ -197,6 +197,7 @@ if ($^O eq "linux") { } # use Inline::C for *BSD-only or general POSIX stuff. # Linux guarantees stable syscall numbering, BSDs only offer a stable libc +# use scripts/syscall-list on Linux to detect new syscall numbers ############################################################################ # epoll functions