X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;ds=sidebyside;f=devel%2Fsyscall-list;fp=devel%2Fsyscall-list;h=b33401d98ce4e2bac487b6f710eeb788bcf09ba5;hb=84eaf6b35986277e02f6df65dee21182cd07a138;hp=0000000000000000000000000000000000000000;hpb=ebe480ba1bfe628c1b1e4726544cf901dfcd7612;p=public-inbox.git
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;
+}