1 // SPDX-License-Identifier: LGPL-2.1
2 /*
3  * trace/beauty/fcntl.c
4  *
5  *  Copyright (C) 2017, Red Hat Inc, Arnaldo Carvalho de Melo <acme@redhat.com>
6  */
7 
8 #include "trace/beauty/beauty.h"
9 #include <linux/kernel.h>
10 #include <uapi/linux/fcntl.h>
11 
fcntl__scnprintf_getfd(unsigned long val,char * bf,size_t size,bool show_prefix)12 static size_t fcntl__scnprintf_getfd(unsigned long val, char *bf, size_t size, bool show_prefix)
13 {
14 	return val ? scnprintf(bf, size, "%s", "0") :
15 		     scnprintf(bf, size, "%s%s", show_prefix ? "FD_" : "", "CLOEXEC");
16 }
17 
syscall_arg__scnprintf_fcntl_getfd(char * bf,size_t size,struct syscall_arg * arg)18 static size_t syscall_arg__scnprintf_fcntl_getfd(char *bf, size_t size, struct syscall_arg *arg)
19 {
20 	return fcntl__scnprintf_getfd(arg->val, bf, size, arg->show_string_prefix);
21 }
22 
fcntl__scnprintf_getlease(unsigned long val,char * bf,size_t size,bool show_prefix)23 static size_t fcntl__scnprintf_getlease(unsigned long val, char *bf, size_t size, bool show_prefix)
24 {
25 	static const char *fcntl_setlease[] = { "RDLCK", "WRLCK", "UNLCK", };
26 	static DEFINE_STRARRAY(fcntl_setlease, "F_");
27 
28 	return strarray__scnprintf(&strarray__fcntl_setlease, bf, size, "%x", show_prefix, val);
29 }
30 
syscall_arg__scnprintf_fcntl_getlease(char * bf,size_t size,struct syscall_arg * arg)31 static size_t syscall_arg__scnprintf_fcntl_getlease(char *bf, size_t size, struct syscall_arg *arg)
32 {
33 	return fcntl__scnprintf_getlease(arg->val, bf, size, arg->show_string_prefix);
34 }
35 
syscall_arg__scnprintf_fcntl_cmd(char * bf,size_t size,struct syscall_arg * arg)36 size_t syscall_arg__scnprintf_fcntl_cmd(char *bf, size_t size, struct syscall_arg *arg)
37 {
38 	if (arg->val == F_GETFL) {
39 		syscall_arg__set_ret_scnprintf(arg, syscall_arg__scnprintf_open_flags);
40 		goto mask_arg;
41 	}
42 	if (arg->val == F_GETFD) {
43 		syscall_arg__set_ret_scnprintf(arg, syscall_arg__scnprintf_fcntl_getfd);
44 		goto mask_arg;
45 	}
46 	if (arg->val == F_DUPFD_CLOEXEC || arg->val == F_DUPFD) {
47 		syscall_arg__set_ret_scnprintf(arg, syscall_arg__scnprintf_fd);
48 		goto out;
49 	}
50 	if (arg->val == F_GETOWN) {
51 		syscall_arg__set_ret_scnprintf(arg, syscall_arg__scnprintf_pid);
52 		goto mask_arg;
53 	}
54 	if (arg->val == F_GETLEASE) {
55 		syscall_arg__set_ret_scnprintf(arg, syscall_arg__scnprintf_fcntl_getlease);
56 		goto mask_arg;
57 	}
58 	/*
59 	 * Some commands ignore the third fcntl argument, "arg", so mask it
60 	 */
61 	if (arg->val == F_GET_SEALS ||
62 	    arg->val == F_GETSIG) {
63 mask_arg:
64 		arg->mask |= (1 << 2);
65 	}
66 out:
67 	return syscall_arg__scnprintf_strarrays(bf, size, arg);
68 }
69 
syscall_arg__scnprintf_fcntl_arg(char * bf,size_t size,struct syscall_arg * arg)70 size_t syscall_arg__scnprintf_fcntl_arg(char *bf, size_t size, struct syscall_arg *arg)
71 {
72 	bool show_prefix = arg->show_string_prefix;
73 	int cmd = syscall_arg__val(arg, 1);
74 
75 	if (cmd == F_DUPFD)
76 		return syscall_arg__scnprintf_fd(bf, size, arg);
77 
78 	if (cmd == F_SETFD)
79 		return fcntl__scnprintf_getfd(arg->val, bf, size, show_prefix);
80 
81 	if (cmd == F_SETFL)
82 		return open__scnprintf_flags(arg->val, bf, size, show_prefix);
83 
84 	if (cmd == F_SETOWN)
85 		return syscall_arg__scnprintf_pid(bf, size, arg);
86 
87 	if (cmd == F_SETLEASE)
88 		return fcntl__scnprintf_getlease(arg->val, bf, size, show_prefix);
89 	/*
90 	 * We still don't grab the contents of pointers on entry or exit,
91 	 * so just print them as hex numbers
92 	 */
93 	if (cmd == F_SETLK || cmd == F_SETLKW || cmd == F_GETLK ||
94 	    cmd == F_OFD_SETLK || cmd == F_OFD_SETLKW || cmd == F_OFD_GETLK ||
95 	    cmd == F_GETOWN_EX || cmd == F_SETOWN_EX ||
96 	    cmd == F_GET_RW_HINT || cmd == F_SET_RW_HINT ||
97 	    cmd == F_GET_FILE_RW_HINT || cmd == F_SET_FILE_RW_HINT)
98 		return syscall_arg__scnprintf_hex(bf, size, arg);
99 
100 	return syscall_arg__scnprintf_long(bf, size, arg);
101 }
102