1 #include "tests.h"
2 #include <sys/ipc.h>
3 #include <sys/sem.h>
4 #include <stdint.h>
5 #include <stdio.h>
6 #include <stdlib.h>
7 #include <unistd.h>
8
9 #include "xlat.h"
10 #include "xlat/semop_flags.h"
11
12 union semun
13 {
14 int val;
15 struct semid_ds *buf;
16 unsigned short *array;
17 struct seminfo *__buf;
18 };
19
20 static int id = -1;
21
22 static void
cleanup(void)23 cleanup(void)
24 {
25 semctl(id, 0, IPC_RMID, 0);
26 id = -1;
27 }
28
29 int
main(void)30 main(void)
31 {
32 static const int bogus_semid = 0xfdb97531;
33 static void * const bogus_sops = (void *) -1L;
34 static const size_t bogus_nsops = (size_t) 0xdefaceddeadbeefULL;
35
36 static const struct timespec ts_data = { 1, 123456789 };
37
38 struct timespec *ts = tail_memdup(&ts_data, sizeof(*ts));
39 int rc;
40
41 id = semget(IPC_PRIVATE, 1, 0600);
42 if (id < 0)
43 perror_msg_and_skip("semget");
44 atexit(cleanup);
45
46 union semun sem_union = { .val = 0 };
47 if (semctl(id, 0, SETVAL, sem_union) == -1)
48 perror_msg_and_skip("semctl");
49
50 struct sembuf *const sem_b = tail_alloc(sizeof(*sem_b));
51 struct sembuf *const sem_b2 = tail_alloc(sizeof(*sem_b2));
52
53 rc = semop(bogus_semid, NULL, bogus_nsops);
54 printf("semop(%d, NULL, %u) = %s\n",
55 bogus_semid, (unsigned) bogus_nsops, sprintrc(rc));
56
57 rc = semop(bogus_semid, bogus_sops, 1);
58 printf("semop(%d, %p, %u) = %s\n",
59 bogus_semid, bogus_sops, 1, sprintrc(rc));
60
61 sem_b->sem_num = 0;
62 sem_b->sem_op = 1;
63 sem_b->sem_flg = SEM_UNDO;
64
65 sem_b2->sem_num = 0xface;
66 sem_b2->sem_op = 0xf00d;
67 sem_b2->sem_flg = 0xbeef;
68
69 rc = semop(bogus_semid, sem_b2, 2);
70 printf("semop(%d, [{%hu, %hd, %s%s%#hx}, %p], %u) = %s\n",
71 bogus_semid, sem_b2->sem_num, sem_b2->sem_op,
72 sem_b2->sem_flg & SEM_UNDO ? "SEM_UNDO|" : "",
73 sem_b2->sem_flg & IPC_NOWAIT ? "IPC_NOWAIT|" : "",
74 sem_b2->sem_flg & ~(SEM_UNDO | IPC_NOWAIT),
75 sem_b2 + 1, 2, sprintrc(rc));
76
77 if (semop(id, sem_b, 1))
78 perror_msg_and_skip("semop, 1");
79 printf("semop(%d, [{0, 1, SEM_UNDO}], 1) = 0\n", id);
80
81 sem_b->sem_op = -1;
82 if (semop(id, sem_b, 1))
83 perror_msg_and_skip("semop, -1");
84 printf("semop(%d, [{0, -1, SEM_UNDO}], 1) = 0\n", id);
85
86 rc = semtimedop(bogus_semid, NULL, bogus_nsops, NULL);
87 printf("semtimedop(%d, NULL, %u, NULL) = %s\n",
88 bogus_semid, (unsigned) bogus_nsops, sprintrc(rc));
89
90 rc = semtimedop(id, sem_b + 1, 1, ts + 1);
91 printf("semtimedop(%d, %p, 1, %p) = %s\n",
92 id, sem_b + 1, ts + 1, sprintrc(rc));
93
94 rc = semtimedop(bogus_semid, sem_b2, 2, ts);
95 printf("semtimedop(%d, [{%hu, %hd, %s%s%#hx}, %p], %u, "
96 "{tv_sec=%jd, tv_nsec=%jd}) = %s\n",
97 bogus_semid, sem_b2->sem_num, sem_b2->sem_op,
98 sem_b2->sem_flg & SEM_UNDO ? "SEM_UNDO|" : "",
99 sem_b2->sem_flg & IPC_NOWAIT ? "IPC_NOWAIT|" : "",
100 sem_b2->sem_flg & ~(SEM_UNDO | IPC_NOWAIT),
101 sem_b2 + 1, 2,
102 (intmax_t) ts->tv_sec, (intmax_t) ts->tv_nsec,
103 sprintrc(rc));
104
105 sem_b->sem_op = 1;
106 if (semtimedop(id, sem_b, 1, NULL))
107 perror_msg_and_skip("semtimedop, 1");
108 printf("semtimedop(%d, [{0, 1, SEM_UNDO}], 1, NULL) = 0\n", id);
109
110 sem_b->sem_op = -1;
111 if (semtimedop(id, sem_b, 1, ts))
112 perror_msg_and_skip("semtimedop, -1");
113 printf("semtimedop(%d, [{0, -1, SEM_UNDO}], 1, "
114 "{tv_sec=%jd, tv_nsec=%jd}) = 0\n", id,
115 (intmax_t) ts->tv_sec, (intmax_t) ts->tv_nsec);
116
117 puts("+++ exited with 0 +++");
118 return 0;
119 }
120