This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Replace $compile_ok by $compile since it's ok for this probe to fail.
[metaconfig.git] / U / perl / usekernprocpathname.U
CommitLineData
c0f9c291
MB
1?MAKE:usekernprocpathname: cat rm_try Compile run Setvar
2?MAKE: -pick add $@ %<
3?S:usekernprocpathname:
4?S: This variable, indicates that we can use sysctl with
5?S: KERN_PROC_PATHNAME to get a full path for the executable, and hence
6?S: convert $^X to an absolute path.
7?S:.
8?C:USE_KERN_PROC_PATHNAME:
9?C: This symbol, if defined, indicates that we can use sysctl with
10?C: KERN_PROC_PATHNAME to get a full path for the executable, and hence
11?C: convert $^X to an absolute path.
12?C:.
13?H:#$usekernprocpathname USE_KERN_PROC_PATHNAME /**/
14?H:.
15?LINT:set usekernprocpathname
16?F:!try
17: Determine if we can use sysctl with KERN_PROC_PATHNAME to find executing program
18echo " "
19echo "Determining whether we can use sysctl with KERN_PROC_PATHNAME to find executing program..." >&4
20$cat >try.c <<'EOM'
21/* Intentionally a long probe as I'd like to sanity check that the exact
22 approach is going to work, as thinking it will work, but only having it
23 part working at runtime is worse than not having it. */
24
25#include <sys/types.h>
26#include <sys/sysctl.h>
27#include <sys/param.h>
28#include <stdio.h>
29#include <string.h>
30#include <stdlib.h>
31#include <unistd.h>
32
33int
34main(int argc, char **argv) {
35 char *buffer;
36 char *argv_leaf = strrchr(argv[0], '/');
37 char *buffer_leaf;
38 size_t size = 0;
39 int mib[4];
40
41 mib[0] = CTL_KERN;
42 mib[1] = KERN_PROC;
43 mib[2] = KERN_PROC_PATHNAME;
44 mib[3] = -1;
45
46 if (!argv_leaf) {
47 fprintf(stderr, "Can't locate / in '%s'\n", argv[0]);
48 return 1;
49 }
50
51 if (sysctl(mib, 4, NULL, &size, NULL, 0)) {
52 perror("sysctl");
53 return 2;
54 }
55
56 if (size < strlen(argv_leaf) + 1) {
57 fprintf(stderr, "size %lu is too short for a path\n",
58 (unsigned long) size);
59 return 3;
60 }
61
62 if (size > MAXPATHLEN * MAXPATHLEN) {
63 fprintf(stderr, "size %lu is too long for a path\n",
64 (unsigned long) size);
65 return 4;
66 }
67
68 buffer = malloc(size);
69 if (!buffer) {
70 perror("malloc");
71 return 5;
72 }
73
74 if (sysctl(mib, 4, buffer, &size, NULL, 0)) {
75 perror("sysctl");
76 return 6;
77 }
78
79 if (strlen(buffer) + 1 != size) {
80 fprintf(stderr, "size != strlen(buffer) + 1 (%lu != %lu)\n",
81 (unsigned long)size, (unsigned long)strlen(buffer) + 1);
82 return 7;
83 }
84
85
86 if (*buffer != '/') {
87 fprintf(stderr, "Not an absolute path: '%s'\n", buffer);
88 return 8;
89 }
90
91 if (strstr(buffer, "/./")) {
92 fprintf(stderr, "Contains /./: '%s'\n", buffer);
93 return 9;
94 }
95
96 if (strstr(buffer, "/../")) {
97 fprintf(stderr, "Contains /../: '%s'\n", buffer);
98 return 10;
99 }
100
101 buffer_leaf = strrchr(buffer, '/');
102 if (strcmp(buffer_leaf, argv_leaf) != 0) {
103 fprintf(stderr, "Leafnames differ: '%s' vs '%s'\n", argv[0], buffer);
104 return 11;
105 }
106
107 free(buffer);
108
109 return 0;
110}
111EOM
112
113val=$undef
114set try
79b14e84 115if eval $compile; then
c0f9c291
MB
116 if $run ./try; then
117 echo "You can use sysctl with KERN_PROC_PATHNAME to find the executing program." >&4
118 val="$define"
119 else
120 echo "Nope, sysctl with KERN_PROC_PATHNAME doesn't work here." >&4
121 val="$undef"
122 fi
123else
124 echo "I'm unable to compile the test program." >&4
125 echo "I'll assume no sysctl with KERN_PROC_PATHNAME here." >&4
126 val="$undef"
127fi
128$rm_try
129set usekernprocpathname
130eval $setvar
131