[lttng-modules.git] / instrumentation / syscalls / lttng-syscalls-generate-headers.sh

#!/bin/sh

# Generate system call probe description macros from syscall metadata dump file.
# The resulting header will be written in the headers subdirectory, in a file name
# based on the name of the input file. 
#
# example usage:
#
# lttng-syscalls-generate-headers.sh <type> <input_dir> <input_filename_in_dir> <bitness>
# lttng-syscalls-generate-headers.sh integers 3.0.4 x86-64-syscalls-3.0.4 64
# lttng-syscalls-generate-headers.sh pointers 3.0.4 x86-64-syscalls-3.0.4 64

CLASS=$1
INPUTDIR=$2
INPUTFILE=$3
BITNESS=$4
INPUT=${INPUTDIR}/${INPUTFILE}
SRCFILE=gen.tmp.0
TMPFILE=gen.tmp.1
TMPFILE2=gen.tmp.2
TMPFILE3=gen.tmp.3
HEADER=headers/${INPUTFILE}_${CLASS}.h

if [ x"$INPUTDIR" = x"" ]; then
	echo "Error: Please specify input directory as second argument"
	exit 1
fi

if [ x"$INPUTFILE" = x"" ]; then
	echo "Error: Please specify input file as third argument"
	exit 1
fi

if [ x"$BITNESS" != x"32" ] && [ x"$BITNESS" != x"64" ]; then
	echo "Error: Please specify bitness as fourth argument (\"32\" or \"64\")"
	exit 1
fi

cp ${INPUT} ${SRCFILE}

#Cleanup
perl -p -e 's/^\[.*\] //g' ${SRCFILE} > ${TMPFILE}
mv ${TMPFILE} ${SRCFILE}

perl -p -e 's/^syscall sys_([^ ]*)/syscall $1/g' ${SRCFILE} > ${TMPFILE}
mv ${TMPFILE} ${SRCFILE}

#Filter

if [ "$CLASS" = integers ]; then
	#select integers and no-args.
	CLASSCAP=INTEGERS
	grep -v "\\*\|cap_user_header_t" ${SRCFILE} > ${TMPFILE}
	mv ${TMPFILE} ${SRCFILE}
fi


if [ "$CLASS" = pointers ]; then
	#select system calls using pointers.
	CLASSCAP=POINTERS
	grep "\\*\|cap_#user_header_t" ${SRCFILE} > ${TMPFILE}
	mv ${TMPFILE} ${SRCFILE}
fi

if [ x"$CLASSCAP" = x"" ]; then
	echo "Error: Please specify \"integers\" or \"pointers\" as first argument"
	rm -f ${SRCFILE}
	exit 1
fi

echo "/* THIS FILE IS AUTO-GENERATED. DO NOT EDIT */" > ${HEADER}

echo \
"#ifndef CREATE_SYSCALL_TABLE

#if !defined(_TRACE_SYSCALLS_${CLASSCAP}_H) || defined(TRACE_HEADER_MULTI_READ)
#define _TRACE_SYSCALLS_${CLASSCAP}_H

#include <linux/tracepoint.h>
#include <linux/syscalls.h>
#include \"${INPUTFILE}_${CLASS}_override.h\"
#include \"syscalls_${CLASS}_override.h\"
" >> ${HEADER}

if [ "$CLASS" = integers ]; then

NRARGS=0

printf \
'#ifdef SC_ENTER\n'\
	>> ${HEADER}

printf \
'SC_DECLARE_EVENT_CLASS_NOARGS(syscalls_noargs,\n'\
'	TP_STRUCT__entry(),\n'\
'	TP_fast_assign(),\n'\
'	TP_printk()\n'\
')\n'\
	>> ${HEADER}

grep "^syscall [^ ]* nr [^ ]* nbargs ${NRARGS} " ${SRCFILE} > ${TMPFILE}
perl -p -e 's/^syscall ([^ ]*) nr ([^ ]*) nbargs ([^ ]*) '\
'types: \(([^)]*)\) '\
'args: \(([^)]*)\)/'\
'#ifndef OVERRIDE_'"${BITNESS}"'_$1\n'\
'SC_DEFINE_EVENT_NOARGS(syscalls_noargs, $1)\n'\
'#endif/g'\
	${TMPFILE} >> ${HEADER}

printf \
'#else /* #ifdef SC_ENTER */\n'\
	>> ${HEADER}

grep "^syscall [^ ]* nr [^ ]* nbargs ${NRARGS} " ${SRCFILE} > ${TMPFILE}
perl -p -e 's/^syscall ([^ ]*) nr ([^ ]*) nbargs ([^ ]*) '\
'types: \(([^)]*)\) '\
'args: \(([^)]*)\)/'\
'#ifndef OVERRIDE_'"${BITNESS}"'_$1\n'\
'SC_TRACE_EVENT($1,\n'\
'	TP_PROTO(sc_exit(long ret)),\n'\
'	TP_ARGS(sc_exit(ret)),\n'\
'	TP_STRUCT__entry(sc_exit(__field(long, ret))),\n'\
'	TP_fast_assign(sc_exit(tp_assign(long, ret, ret))),\n'\
'	TP_printk()\n'\
')\n'\
'#endif/g'\
	${TMPFILE} >> ${HEADER}

printf \
'#endif /* else #ifdef SC_ENTER */\n'\
	>> ${HEADER}

fi


# types: 4
# args   5

NRARGS=1
grep "^syscall [^ ]* nr [^ ]* nbargs ${NRARGS} " ${SRCFILE} > ${TMPFILE}

while read LINE; do
	echo "${LINE}" > ${TMPFILE2}
	perl -p -e 's/^syscall ([^ ]*) .*/$1/g' ${TMPFILE2} > ${TMPFILE3}
	SC_NAME=$(cat ${TMPFILE3})
	ARG1=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 1)
	echo Syscall: ${SC_NAME} ${ARG1}
	perl -p -e 's/^syscall ([^ ]*) nr ([^ ]*) nbargs ([^ ]*) '\
'types: \(([^)]*)\) '\
'args: \(([^)]*)\)/'\
'#ifndef OVERRIDE_'"${BITNESS}"'_$1\n'\
'SC_TRACE_EVENT($1,\n'\
'	TP_PROTO(sc_exit(long ret,) $4 $5),\n'\
'	TP_ARGS(sc_exit(ret,) $5),\n'\
'	TP_STRUCT__entry(sc_exit(__field(long, ret)) '"${ARG1}"'(__field($4, $5))),\n'\
'	TP_fast_assign(sc_exit(tp_assign(long, ret, ret)) '"${ARG1}"'(tp_assign($4, $5, $5))),\n'\
'	TP_printk()\n'\
')\n'\
'#endif/g'\
		${TMPFILE2} >> ${HEADER}
done < ${TMPFILE}

# types: 4 5
# args   6 7

NRARGS=2
grep "^syscall [^ ]* nr [^ ]* nbargs ${NRARGS} " ${SRCFILE} > ${TMPFILE}

while read LINE; do
	echo "${LINE}" > ${TMPFILE2}
	perl -p -e 's/^syscall ([^ ]*) .*/$1/g' ${TMPFILE2} > ${TMPFILE3}
	SC_NAME=$(cat ${TMPFILE3})
	ARG1=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 1)
	ARG2=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 2)
	echo Syscall: ${SC_NAME} ${ARG1} ${ARG2}
	perl -p -e 's/^syscall ([^ ]*) nr ([^ ]*) nbargs ([^ ]*) '\
'types: \(([^,]*), ([^)]*)\) '\
'args: \(([^,]*), ([^)]*)\)/'\
'#ifndef OVERRIDE_'"${BITNESS}"'_$1\n'\
'SC_TRACE_EVENT($1,\n'\
'	TP_PROTO(sc_exit(long ret,) $4 $6, $5 $7),\n'\
'	TP_ARGS(sc_exit(ret,) $6, $7),\n'\
'	TP_STRUCT__entry(sc_exit(__field(long, ret)) '"${ARG1}"'(__field($4, $6)) '"${ARG2}"'(__field($5, $7))),\n'\
'	TP_fast_assign(sc_exit(tp_assign(long, ret, ret)) '"${ARG1}"'(tp_assign($4, $6, $6)) '"${ARG2}"'(tp_assign($5, $7, $7))),\n'\
'	TP_printk()\n'\
')\n'\
'#endif/g'\
		${TMPFILE2} >> ${HEADER}
done < ${TMPFILE}

# types: 4 5 6
# args   7 8 9

NRARGS=3
grep "^syscall [^ ]* nr [^ ]* nbargs ${NRARGS} " ${SRCFILE} > ${TMPFILE}

while read LINE; do
	echo "${LINE}" > ${TMPFILE2}
	perl -p -e 's/^syscall ([^ ]*) .*/$1/g' ${TMPFILE2} > ${TMPFILE3}
	SC_NAME=$(cat ${TMPFILE3})
	ARG1=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 1)
	ARG2=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 2)
	ARG3=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 3)
	echo Syscall: ${SC_NAME} ${ARG1} ${ARG2} ${ARG3}
	perl -p -e 's/^syscall ([^ ]*) nr ([^ ]*) nbargs ([^ ]*) '\
'types: \(([^,]*), ([^,]*), ([^)]*)\) '\
'args: \(([^,]*), ([^,]*), ([^)]*)\)/'\
'#ifndef OVERRIDE_'"${BITNESS}"'_$1\n'\
'SC_TRACE_EVENT($1,\n'\
'	TP_PROTO(sc_exit(long ret,) $4 $7, $5 $8, $6 $9),\n'\
'	TP_ARGS(sc_exit(ret,) $7, $8, $9),\n'\
'	TP_STRUCT__entry(sc_exit(__field(long, ret)) '"${ARG1}"'(__field($4, $7)) '"${ARG2}"'(__field($5, $8)) '"${ARG3}"'(__field($6, $9))),\n'\
'	TP_fast_assign(sc_exit(tp_assign(long, ret, ret)) '"${ARG1}"'(tp_assign($4, $7, $7)) '"${ARG2}"'(tp_assign($5, $8, $8)) '"${ARG3}"'(tp_assign($6, $9, $9))),\n'\
'	TP_printk()\n'\
')\n'\
'#endif/g'\
		${TMPFILE2} >> ${HEADER}
done < ${TMPFILE}


# types: 4 5  6  7
# args   8 9 10 11

NRARGS=4
grep "^syscall [^ ]* nr [^ ]* nbargs ${NRARGS} " ${SRCFILE} > ${TMPFILE}

while read LINE; do
	echo "${LINE}" > ${TMPFILE2}
	perl -p -e 's/^syscall ([^ ]*) .*/$1/g' ${TMPFILE2} > ${TMPFILE3}
	SC_NAME=$(cat ${TMPFILE3})
	ARG1=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 1)
	ARG2=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 2)
	ARG3=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 3)
	ARG4=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 4)
	echo Syscall: ${SC_NAME} ${ARG1} ${ARG2} ${ARG3} ${ARG4}
	perl -p -e 's/^syscall ([^ ]*) nr ([^ ]*) nbargs ([^ ]*) '\
'types: \(([^,]*), ([^,]*), ([^,]*), ([^)]*)\) '\
'args: \(([^,]*), ([^,]*), ([^,]*), ([^)]*)\)/'\
'#ifndef OVERRIDE_'"${BITNESS}"'_$1\n'\
'SC_TRACE_EVENT($1,\n'\
'	TP_PROTO(sc_exit(long ret,) $4 $8, $5 $9, $6 $10, $7 $11),\n'\
'	TP_ARGS(sc_exit(ret,) $8, $9, $10, $11),\n'\
'	TP_STRUCT__entry(sc_exit(__field(long, ret)) '"${ARG1}"'(__field($4, $8)) '"${ARG2}"'(__field($5, $9)) '"${ARG3}"'(__field($6, $10)) '"${ARG4}"'(__field($7, $11))),\n'\
'	TP_fast_assign(sc_exit(tp_assign(long, ret, ret)) '"${ARG1}"'(tp_assign($4, $8, $8)) '"${ARG2}"'(tp_assign($5, $9, $9)) '"${ARG3}"'(tp_assign($6, $10, $10)) '"${ARG4}"'(tp_assign($7, $11, $11))),\n'\
'	TP_printk()\n'\
')\n'\
'#endif/g'\
		${TMPFILE2} >> ${HEADER}
done < ${TMPFILE}

# types: 4  5  6  7  8
# args   9 10 11 12 13

NRARGS=5
grep "^syscall [^ ]* nr [^ ]* nbargs ${NRARGS} " ${SRCFILE} > ${TMPFILE}

while read LINE; do
	echo "${LINE}" > ${TMPFILE2}
	perl -p -e 's/^syscall ([^ ]*) .*/$1/g' ${TMPFILE2} > ${TMPFILE3}
	SC_NAME=$(cat ${TMPFILE3})
	ARG1=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 1)
	ARG2=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 2)
	ARG3=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 3)
	ARG4=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 4)
	ARG5=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 5)
	echo Syscall: ${SC_NAME} ${ARG1} ${ARG2} ${ARG3} ${ARG4} ${ARG5}
	perl -p -e 's/^syscall ([^ ]*) nr ([^ ]*) nbargs ([^ ]*) '\
'types: \(([^,]*), ([^,]*), ([^,]*), ([^,]*), ([^)]*)\) '\
'args: \(([^,]*), ([^,]*), ([^,]*), ([^,]*), ([^)]*)\)/'\
'#ifndef OVERRIDE_'"${BITNESS}"'_$1\n'\
'SC_TRACE_EVENT($1,\n'\
'	TP_PROTO(sc_exit(long ret,) $4 $9, $5 $10, $6 $11, $7 $12, $8 $13),\n'\
'	TP_ARGS(sc_exit(ret,) $9, $10, $11, $12, $13),\n'\
'	TP_STRUCT__entry(sc_exit(__field(long, ret)) '"${ARG1}"'(__field($4, $9)) '"${ARG2}"'(__field($5, $10)) '"${ARG3}"'(__field($6, $11)) '"${ARG4}"'(__field($7, $12)) '"${ARG5}"'(__field($8, $13))),\n'\
'	TP_fast_assign(sc_exit(tp_assign(long, ret, ret)) '"${ARG1}"'(tp_assign($4, $9, $9)) '"${ARG2}"'(tp_assign($5, $10, $10)) '"${ARG3}"'(tp_assign($6, $11, $11)) '"${ARG4}"'(tp_assign($7, $12, $12)) '"${ARG5}"'(tp_assign($8, $13, $13))),\n'\
'	TP_printk()\n'\
')\n'\
'#endif/g'\
	${TMPFILE2} >> ${HEADER}
done < ${TMPFILE}


# types: 4   5  6  7  8  9
# args   10 11 12 13 14 15

NRARGS=6
grep "^syscall [^ ]* nr [^ ]* nbargs ${NRARGS} " ${SRCFILE} > ${TMPFILE}

while read LINE; do
	echo "${LINE}" > ${TMPFILE2}
	perl -p -e 's/^syscall ([^ ]*) .*/$1/g' ${TMPFILE2} > ${TMPFILE3}
	SC_NAME=$(cat ${TMPFILE3})
	ARG1=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 1)
	ARG2=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 2)
	ARG3=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 3)
	ARG4=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 4)
	ARG5=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 5)
	ARG6=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 6)
	echo Syscall: ${SC_NAME} ${ARG1} ${ARG2} ${ARG3} ${ARG4} ${ARG5} ${ARG6}
	perl -p -e 's/^syscall ([^ ]*) nr ([^ ]*) nbargs ([^ ]*) '\
'types: \(([^,]*), ([^,]*), ([^,]*), ([^,]*), ([^,]*), ([^\)]*)\) '\
'args: \(([^,]*), ([^,]*), ([^,]*), ([^,]*), ([^,]*), ([^\)]*)\)/'\
'#ifndef OVERRIDE_'"${BITNESS}"'_$1\n'\
'SC_TRACE_EVENT($1,\n'\
'	TP_PROTO(sc_exit(long ret,) $4 $10, $5 $11, $6 $12, $7 $13, $8 $14, $9 $15),\n'\
'	TP_ARGS(sc_exit(ret,) $10, $11, $12, $13, $14, $15),\n'\
'	TP_STRUCT__entry(sc_exit(__field(long, ret)) '"${ARG1}"'(__field($4, $10)) '"${ARG2}"'(__field($5, $11)) '"${ARG3}"'(__field($6, $12)) '"${ARG4}"'(__field($7, $13)) '"${ARG5}"'(__field($8, $14)) '"${ARG6}"'(__field($9, $15))),\n'\
'	TP_fast_assign(sc_exit(tp_assign(long, ret, ret)) '"${ARG1}"'(tp_assign($4, $10, $10)) '"${ARG2}"'(tp_assign($5, $11, $11)) '"${ARG3}"'(tp_assign($6, $12, $12)) '"${ARG4}"'(tp_assign($7, $13, $13)) '"${ARG5}"'(tp_assign($8, $14, $14)) '"${ARG6}"'(tp_assign($9, $15, $15))),\n'\
'	TP_printk()\n'\
')\n'\
'#endif/g'\
	${TMPFILE2} >> ${HEADER}
done < ${TMPFILE}

# Macro for tracing syscall table

echo \
"
#endif /*  _TRACE_SYSCALLS_${CLASSCAP}_H */

/* This part must be outside protection */
#include \"../../../probes/define_trace.h\"

#else /* CREATE_SYSCALL_TABLE */

#include \"${INPUTFILE}_${CLASS}_override.h\"
#include \"syscalls_${CLASS}_override.h\"
" >> ${HEADER}

NRARGS=0

if [ "$CLASS" = integers ]; then
#noargs

printf \
'#ifdef SC_ENTER\n'\
	>> ${HEADER}

grep "^syscall [^ ]* nr [^ ]* nbargs ${NRARGS} " ${SRCFILE} > ${TMPFILE}
perl -p -e 's/^syscall ([^ ]*) nr ([^ ]*) nbargs ([^ ]*) .*$/'\
'#ifndef OVERRIDE_TABLE_'"${BITNESS}"'_$1\n'\
'TRACE_SYSCALL_TABLE\(syscalls_noargs, $1, $2, $3\)\n'\
'#endif/g'\
	${TMPFILE} >> ${HEADER}

printf \
'#else /* #ifdef SC_ENTER */\n'\
	>> ${HEADER}

grep "^syscall [^ ]* nr [^ ]* nbargs ${NRARGS} " ${SRCFILE} > ${TMPFILE}
perl -p -e 's/^syscall ([^ ]*) nr ([^ ]*) nbargs ([^ ]*) .*$/'\
'#ifndef OVERRIDE_TABLE_'"${BITNESS}"'_$1\n'\
'TRACE_SYSCALL_TABLE($1, $1, $2, $3)\n'\
'#endif/g'\
	${TMPFILE} >> ${HEADER}

printf \
'#endif /* else #ifdef SC_ENTER */\n'\
	>> ${HEADER}

fi

#others.
grep -v "^syscall [^ ]* nr [^ ]* nbargs ${NRARGS} " ${SRCFILE} > ${TMPFILE}
perl -p -e 's/^syscall ([^ ]*) nr ([^ ]*) nbargs ([^ ]*) .*$/'\
'#ifndef OVERRIDE_TABLE_'"${BITNESS}"'_$1\n'\
'TRACE_SYSCALL_TABLE($1, $1, $2, $3)\n'\
'#endif/g'\
	${TMPFILE} >> ${HEADER}

echo -n \
"
#endif /* CREATE_SYSCALL_TABLE */
" >> ${HEADER}

#fields names: ...char * type with *name* or *file* or *path* or *root*
# or *put_old* or *type*
cp -f ${HEADER} ${TMPFILE}
rm -f ${HEADER}
perl -p -e 's/__field\(([^,)]*char \*), ([^\)]*)(name|file|path|root|put_old|type)([^\)]*)\)/__string_from_user($2$3$4, $2$3$4)/g'\
	${TMPFILE} >> ${HEADER}
cp -f ${HEADER} ${TMPFILE}
rm -f ${HEADER}
perl -p -e 's/tp_assign\(([^,)]*char \*), ([^,]*)(name|file|path|root|put_old|type)([^,]*), ([^\)]*)\)/tp_copy_string_from_user($2$3$4, $5)/g'\
	${TMPFILE} >> ${HEADER}

#prettify addresses heuristics.
#field names with addr or ptr
cp -f ${HEADER} ${TMPFILE}
rm -f ${HEADER}
perl -p -e 's/__field\(([^,)]*), ([^,)]*addr|[^,)]*ptr)([^),]*)\)/__field_hex($1, $2$3)/g'\
	${TMPFILE} >> ${HEADER}

#field types ending with '*'
cp -f ${HEADER} ${TMPFILE}
rm -f ${HEADER}
perl -p -e 's/__field\(([^,)]*\*), ([^),]*)\)/__field_hex($1, $2)/g'\
	${TMPFILE} >> ${HEADER}

#strip the extra type information from tp_assign.
cp -f ${HEADER} ${TMPFILE}
rm -f ${HEADER}
perl -p -e 's/tp_assign\(([^,)]*), ([^,]*), ([^\)]*)\)/tp_assign($2, $3)/g'\
	${TMPFILE} >> ${HEADER}

rm -f ${INPUTFILE}.tmp
rm -f ${TMPFILE3}
rm -f ${TMPFILE2}
rm -f ${TMPFILE}
rm -f ${SRCFILE}
Commit	Line	Data
	1	#!/bin/sh
	2
	3	# Generate system call probe description macros from syscall metadata dump file.
	4	# The resulting header will be written in the headers subdirectory, in a file name
	5	# based on the name of the input file.
	6	#
	7	# example usage:
	8	#
	9	# lttng-syscalls-generate-headers.sh <type> <input_dir> <input_filename_in_dir> <bitness>
	10	# lttng-syscalls-generate-headers.sh integers 3.0.4 x86-64-syscalls-3.0.4 64
	11	# lttng-syscalls-generate-headers.sh pointers 3.0.4 x86-64-syscalls-3.0.4 64
	12
	13	CLASS=$1
	14	INPUTDIR=$2
	15	INPUTFILE=$3
	16	BITNESS=$4
	17	INPUT=${INPUTDIR}/${INPUTFILE}
	18	SRCFILE=gen.tmp.0
	19	TMPFILE=gen.tmp.1
	20	TMPFILE2=gen.tmp.2
	21	TMPFILE3=gen.tmp.3
	22	HEADER=headers/${INPUTFILE}_${CLASS}.h
	23
	24	if [ x"$INPUTDIR" = x"" ]; then
	25	echo "Error: Please specify input directory as second argument"
	26	exit 1
	27	fi
	28
	29	if [ x"$INPUTFILE" = x"" ]; then
	30	echo "Error: Please specify input file as third argument"
	31	exit 1
	32	fi
	33
	34	if [ x"$BITNESS" != x"32" ] && [ x"$BITNESS" != x"64" ]; then
	35	echo "Error: Please specify bitness as fourth argument (\"32\" or \"64\")"
	36	exit 1
	37	fi
	38
	39	cp ${INPUT} ${SRCFILE}
	40
	41	#Cleanup
	42	perl -p -e 's/^\[.*\] //g' ${SRCFILE} > ${TMPFILE}
	43	mv ${TMPFILE} ${SRCFILE}
	44
	45	perl -p -e 's/^syscall sys_([^ ]*)/syscall $1/g' ${SRCFILE} > ${TMPFILE}
	46	mv ${TMPFILE} ${SRCFILE}
	47
	48	#Filter
	49
	50	if [ "$CLASS" = integers ]; then
	51	#select integers and no-args.
	52	CLASSCAP=INTEGERS
	53	grep -v "\\*\\|cap_user_header_t" ${SRCFILE} > ${TMPFILE}
	54	mv ${TMPFILE} ${SRCFILE}
	55	fi
	56
	57
	58	if [ "$CLASS" = pointers ]; then
	59	#select system calls using pointers.
	60	CLASSCAP=POINTERS
	61	grep "\\*\\|cap_#user_header_t" ${SRCFILE} > ${TMPFILE}
	62	mv ${TMPFILE} ${SRCFILE}
	63	fi
	64
	65	if [ x"$CLASSCAP" = x"" ]; then
	66	echo "Error: Please specify \"integers\" or \"pointers\" as first argument"
	67	rm -f ${SRCFILE}
	68	exit 1
	69	fi
	70
	71	echo "/* THIS FILE IS AUTO-GENERATED. DO NOT EDIT */" > ${HEADER}
	72
	73	echo \
	74	"#ifndef CREATE_SYSCALL_TABLE
	75
	76	#if !defined(_TRACE_SYSCALLS_${CLASSCAP}_H) \|\| defined(TRACE_HEADER_MULTI_READ)
	77	#define _TRACE_SYSCALLS_${CLASSCAP}_H
	78
	79	#include <linux/tracepoint.h>
	80	#include <linux/syscalls.h>
	81	#include \"${INPUTFILE}_${CLASS}_override.h\"
	82	#include \"syscalls_${CLASS}_override.h\"
	83	" >> ${HEADER}
	84
	85	if [ "$CLASS" = integers ]; then
	86
	87	NRARGS=0
	88
	89	printf \
	90	'#ifdef SC_ENTER\n'\
	91	>> ${HEADER}
	92
	93	printf \
	94	'SC_DECLARE_EVENT_CLASS_NOARGS(syscalls_noargs,\n'\
	95	' TP_STRUCT__entry(),\n'\
	96	' TP_fast_assign(),\n'\
	97	' TP_printk()\n'\
	98	')\n'\
	99	>> ${HEADER}
	100
	101	grep "^syscall [^ ]* nr [^ ]* nbargs ${NRARGS} " ${SRCFILE} > ${TMPFILE}
	102	perl -p -e 's/^syscall ([^ ]) nr ([^ ]) nbargs ([^ ]*) '\
	103	'types: \(([^)]*)\) '\
	104	'args: \(([^)]*)\)/'\
	105	'#ifndef OVERRIDE_'"${BITNESS}"'_$1\n'\
	106	'SC_DEFINE_EVENT_NOARGS(syscalls_noargs, $1)\n'\
	107	'#endif/g'\
	108	${TMPFILE} >> ${HEADER}
	109
	110	printf \
	111	'#else /* #ifdef SC_ENTER */\n'\
	112	>> ${HEADER}
	113
	114	grep "^syscall [^ ]* nr [^ ]* nbargs ${NRARGS} " ${SRCFILE} > ${TMPFILE}
	115	perl -p -e 's/^syscall ([^ ]) nr ([^ ]) nbargs ([^ ]*) '\
	116	'types: \(([^)]*)\) '\
	117	'args: \(([^)]*)\)/'\
	118	'#ifndef OVERRIDE_'"${BITNESS}"'_$1\n'\
	119	'SC_TRACE_EVENT($1,\n'\
	120	' TP_PROTO(sc_exit(long ret)),\n'\
	121	' TP_ARGS(sc_exit(ret)),\n'\
	122	' TP_STRUCT__entry(sc_exit(__field(long, ret))),\n'\
	123	' TP_fast_assign(sc_exit(tp_assign(long, ret, ret))),\n'\
	124	' TP_printk()\n'\
	125	')\n'\
	126	'#endif/g'\
	127	${TMPFILE} >> ${HEADER}
	128
	129	printf \
	130	'#endif /* else #ifdef SC_ENTER */\n'\
	131	>> ${HEADER}
	132
	133	fi
	134
	135
	136	# types: 4
	137	# args 5
	138
	139	NRARGS=1
	140	grep "^syscall [^ ]* nr [^ ]* nbargs ${NRARGS} " ${SRCFILE} > ${TMPFILE}
	141
	142	while read LINE; do
	143	echo "${LINE}" > ${TMPFILE2}
	144	perl -p -e 's/^syscall ([^ ]) ./$1/g' ${TMPFILE2} > ${TMPFILE3}
	145	SC_NAME=$(cat ${TMPFILE3})
	146	ARG1=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 1)
	147	echo Syscall: ${SC_NAME} ${ARG1}
	148	perl -p -e 's/^syscall ([^ ]) nr ([^ ]) nbargs ([^ ]*) '\
	149	'types: \(([^)]*)\) '\
	150	'args: \(([^)]*)\)/'\
	151	'#ifndef OVERRIDE_'"${BITNESS}"'_$1\n'\
	152	'SC_TRACE_EVENT($1,\n'\
	153	' TP_PROTO(sc_exit(long ret,) $4 $5),\n'\
	154	' TP_ARGS(sc_exit(ret,) $5),\n'\
	155	' TP_STRUCT__entry(sc_exit(__field(long, ret)) '"${ARG1}"'(__field($4, $5))),\n'\
	156	' TP_fast_assign(sc_exit(tp_assign(long, ret, ret)) '"${ARG1}"'(tp_assign($4, $5, $5))),\n'\
	157	' TP_printk()\n'\
	158	')\n'\
	159	'#endif/g'\
	160	${TMPFILE2} >> ${HEADER}
	161	done < ${TMPFILE}
	162
	163	# types: 4 5
	164	# args 6 7
	165
	166	NRARGS=2
	167	grep "^syscall [^ ]* nr [^ ]* nbargs ${NRARGS} " ${SRCFILE} > ${TMPFILE}
	168
	169	while read LINE; do
	170	echo "${LINE}" > ${TMPFILE2}
	171	perl -p -e 's/^syscall ([^ ]) ./$1/g' ${TMPFILE2} > ${TMPFILE3}
	172	SC_NAME=$(cat ${TMPFILE3})
	173	ARG1=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 1)
	174	ARG2=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 2)
	175	echo Syscall: ${SC_NAME} ${ARG1} ${ARG2}
	176	perl -p -e 's/^syscall ([^ ]) nr ([^ ]) nbargs ([^ ]*) '\
	177	'types: \(([^,]), ([^)])\) '\
	178	'args: \(([^,]), ([^)])\)/'\
	179	'#ifndef OVERRIDE_'"${BITNESS}"'_$1\n'\
	180	'SC_TRACE_EVENT($1,\n'\
	181	' TP_PROTO(sc_exit(long ret,) $4 $6, $5 $7),\n'\
	182	' TP_ARGS(sc_exit(ret,) $6, $7),\n'\
	183	' TP_STRUCT__entry(sc_exit(__field(long, ret)) '"${ARG1}"'(__field($4, $6)) '"${ARG2}"'(__field($5, $7))),\n'\
	184	' TP_fast_assign(sc_exit(tp_assign(long, ret, ret)) '"${ARG1}"'(tp_assign($4, $6, $6)) '"${ARG2}"'(tp_assign($5, $7, $7))),\n'\
	185	' TP_printk()\n'\
	186	')\n'\
	187	'#endif/g'\
	188	${TMPFILE2} >> ${HEADER}
	189	done < ${TMPFILE}
	190
	191	# types: 4 5 6
	192	# args 7 8 9
	193
	194	NRARGS=3
	195	grep "^syscall [^ ]* nr [^ ]* nbargs ${NRARGS} " ${SRCFILE} > ${TMPFILE}
	196
	197	while read LINE; do
	198	echo "${LINE}" > ${TMPFILE2}
	199	perl -p -e 's/^syscall ([^ ]) ./$1/g' ${TMPFILE2} > ${TMPFILE3}
	200	SC_NAME=$(cat ${TMPFILE3})
	201	ARG1=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 1)
	202	ARG2=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 2)
	203	ARG3=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 3)
	204	echo Syscall: ${SC_NAME} ${ARG1} ${ARG2} ${ARG3}
	205	perl -p -e 's/^syscall ([^ ]) nr ([^ ]) nbargs ([^ ]*) '\
	206	'types: \(([^,]), ([^,]), ([^)]*)\) '\
	207	'args: \(([^,]), ([^,]), ([^)]*)\)/'\
	208	'#ifndef OVERRIDE_'"${BITNESS}"'_$1\n'\
	209	'SC_TRACE_EVENT($1,\n'\
	210	' TP_PROTO(sc_exit(long ret,) $4 $7, $5 $8, $6 $9),\n'\
	211	' TP_ARGS(sc_exit(ret,) $7, $8, $9),\n'\
	212	' TP_STRUCT__entry(sc_exit(__field(long, ret)) '"${ARG1}"'(__field($4, $7)) '"${ARG2}"'(__field($5, $8)) '"${ARG3}"'(__field($6, $9))),\n'\
	213	' TP_fast_assign(sc_exit(tp_assign(long, ret, ret)) '"${ARG1}"'(tp_assign($4, $7, $7)) '"${ARG2}"'(tp_assign($5, $8, $8)) '"${ARG3}"'(tp_assign($6, $9, $9))),\n'\
	214	' TP_printk()\n'\
	215	')\n'\
	216	'#endif/g'\
	217	${TMPFILE2} >> ${HEADER}
	218	done < ${TMPFILE}
	219
	220
	221	# types: 4 5 6 7
	222	# args 8 9 10 11
	223
	224	NRARGS=4
	225	grep "^syscall [^ ]* nr [^ ]* nbargs ${NRARGS} " ${SRCFILE} > ${TMPFILE}
	226
	227	while read LINE; do
	228	echo "${LINE}" > ${TMPFILE2}
	229	perl -p -e 's/^syscall ([^ ]) ./$1/g' ${TMPFILE2} > ${TMPFILE3}
	230	SC_NAME=$(cat ${TMPFILE3})
	231	ARG1=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 1)
	232	ARG2=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 2)
	233	ARG3=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 3)
	234	ARG4=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 4)
	235	echo Syscall: ${SC_NAME} ${ARG1} ${ARG2} ${ARG3} ${ARG4}
	236	perl -p -e 's/^syscall ([^ ]) nr ([^ ]) nbargs ([^ ]*) '\
	237	'types: \(([^,]), ([^,]), ([^,]), ([^)])\) '\
	238	'args: \(([^,]), ([^,]), ([^,]), ([^)])\)/'\
	239	'#ifndef OVERRIDE_'"${BITNESS}"'_$1\n'\
	240	'SC_TRACE_EVENT($1,\n'\
	241	' TP_PROTO(sc_exit(long ret,) $4 $8, $5 $9, $6 $10, $7 $11),\n'\
	242	' TP_ARGS(sc_exit(ret,) $8, $9, $10, $11),\n'\
	243	' TP_STRUCT__entry(sc_exit(__field(long, ret)) '"${ARG1}"'(__field($4, $8)) '"${ARG2}"'(__field($5, $9)) '"${ARG3}"'(__field($6, $10)) '"${ARG4}"'(__field($7, $11))),\n'\
	244	' TP_fast_assign(sc_exit(tp_assign(long, ret, ret)) '"${ARG1}"'(tp_assign($4, $8, $8)) '"${ARG2}"'(tp_assign($5, $9, $9)) '"${ARG3}"'(tp_assign($6, $10, $10)) '"${ARG4}"'(tp_assign($7, $11, $11))),\n'\
	245	' TP_printk()\n'\
	246	')\n'\
	247	'#endif/g'\
	248	${TMPFILE2} >> ${HEADER}
	249	done < ${TMPFILE}
	250
	251	# types: 4 5 6 7 8
	252	# args 9 10 11 12 13
	253
	254	NRARGS=5
	255	grep "^syscall [^ ]* nr [^ ]* nbargs ${NRARGS} " ${SRCFILE} > ${TMPFILE}
	256
	257	while read LINE; do
	258	echo "${LINE}" > ${TMPFILE2}
	259	perl -p -e 's/^syscall ([^ ]) ./$1/g' ${TMPFILE2} > ${TMPFILE3}
	260	SC_NAME=$(cat ${TMPFILE3})
	261	ARG1=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 1)
	262	ARG2=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 2)
	263	ARG3=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 3)
	264	ARG4=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 4)
	265	ARG5=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 5)
	266	echo Syscall: ${SC_NAME} ${ARG1} ${ARG2} ${ARG3} ${ARG4} ${ARG5}
	267	perl -p -e 's/^syscall ([^ ]) nr ([^ ]) nbargs ([^ ]*) '\
	268	'types: \(([^,]), ([^,]), ([^,]), ([^,]), ([^)]*)\) '\
	269	'args: \(([^,]), ([^,]), ([^,]), ([^,]), ([^)]*)\)/'\
	270	'#ifndef OVERRIDE_'"${BITNESS}"'_$1\n'\
	271	'SC_TRACE_EVENT($1,\n'\
	272	' TP_PROTO(sc_exit(long ret,) $4 $9, $5 $10, $6 $11, $7 $12, $8 $13),\n'\
	273	' TP_ARGS(sc_exit(ret,) $9, $10, $11, $12, $13),\n'\
	274	' TP_STRUCT__entry(sc_exit(__field(long, ret)) '"${ARG1}"'(__field($4, $9)) '"${ARG2}"'(__field($5, $10)) '"${ARG3}"'(__field($6, $11)) '"${ARG4}"'(__field($7, $12)) '"${ARG5}"'(__field($8, $13))),\n'\
	275	' TP_fast_assign(sc_exit(tp_assign(long, ret, ret)) '"${ARG1}"'(tp_assign($4, $9, $9)) '"${ARG2}"'(tp_assign($5, $10, $10)) '"${ARG3}"'(tp_assign($6, $11, $11)) '"${ARG4}"'(tp_assign($7, $12, $12)) '"${ARG5}"'(tp_assign($8, $13, $13))),\n'\
	276	' TP_printk()\n'\
	277	')\n'\
	278	'#endif/g'\
	279	${TMPFILE2} >> ${HEADER}
	280	done < ${TMPFILE}
	281
	282
	283	# types: 4 5 6 7 8 9
	284	# args 10 11 12 13 14 15
	285
	286	NRARGS=6
	287	grep "^syscall [^ ]* nr [^ ]* nbargs ${NRARGS} " ${SRCFILE} > ${TMPFILE}
	288
	289	while read LINE; do
	290	echo "${LINE}" > ${TMPFILE2}
	291	perl -p -e 's/^syscall ([^ ]) ./$1/g' ${TMPFILE2} > ${TMPFILE3}
	292	SC_NAME=$(cat ${TMPFILE3})
	293	ARG1=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 1)
	294	ARG2=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 2)
	295	ARG3=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 3)
	296	ARG4=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 4)
	297	ARG5=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 5)
	298	ARG6=$(./lttng-get-syscall-inout.sh table-syscall-inout.txt ${SC_NAME} 6)
	299	echo Syscall: ${SC_NAME} ${ARG1} ${ARG2} ${ARG3} ${ARG4} ${ARG5} ${ARG6}
	300	perl -p -e 's/^syscall ([^ ]) nr ([^ ]) nbargs ([^ ]*) '\
	301	'types: \(([^,]), ([^,]), ([^,]), ([^,]), ([^,]), ([^\)])\) '\
	302	'args: \(([^,]), ([^,]), ([^,]), ([^,]), ([^,]), ([^\)])\)/'\
	303	'#ifndef OVERRIDE_'"${BITNESS}"'_$1\n'\
	304	'SC_TRACE_EVENT($1,\n'\
	305	' TP_PROTO(sc_exit(long ret,) $4 $10, $5 $11, $6 $12, $7 $13, $8 $14, $9 $15),\n'\
	306	' TP_ARGS(sc_exit(ret,) $10, $11, $12, $13, $14, $15),\n'\
	307	' TP_STRUCT__entry(sc_exit(__field(long, ret)) '"${ARG1}"'(__field($4, $10)) '"${ARG2}"'(__field($5, $11)) '"${ARG3}"'(__field($6, $12)) '"${ARG4}"'(__field($7, $13)) '"${ARG5}"'(__field($8, $14)) '"${ARG6}"'(__field($9, $15))),\n'\
	308	' TP_fast_assign(sc_exit(tp_assign(long, ret, ret)) '"${ARG1}"'(tp_assign($4, $10, $10)) '"${ARG2}"'(tp_assign($5, $11, $11)) '"${ARG3}"'(tp_assign($6, $12, $12)) '"${ARG4}"'(tp_assign($7, $13, $13)) '"${ARG5}"'(tp_assign($8, $14, $14)) '"${ARG6}"'(tp_assign($9, $15, $15))),\n'\
	309	' TP_printk()\n'\
	310	')\n'\
	311	'#endif/g'\
	312	${TMPFILE2} >> ${HEADER}
	313	done < ${TMPFILE}
	314
	315	# Macro for tracing syscall table
	316
	317	echo \
	318	"
	319	#endif /* _TRACE_SYSCALLS_${CLASSCAP}_H */
	320
	321	/* This part must be outside protection */
	322	#include \"../../../probes/define_trace.h\"
	323
	324	#else /* CREATE_SYSCALL_TABLE */
	325
	326	#include \"${INPUTFILE}_${CLASS}_override.h\"
	327	#include \"syscalls_${CLASS}_override.h\"
	328	" >> ${HEADER}
	329
	330	NRARGS=0
	331
	332	if [ "$CLASS" = integers ]; then
	333	#noargs
	334
	335	printf \
	336	'#ifdef SC_ENTER\n'\
	337	>> ${HEADER}
	338
	339	grep "^syscall [^ ]* nr [^ ]* nbargs ${NRARGS} " ${SRCFILE} > ${TMPFILE}
	340	perl -p -e 's/^syscall ([^ ]) nr ([^ ]) nbargs ([^ ]) .$/'\
	341	'#ifndef OVERRIDE_TABLE_'"${BITNESS}"'_$1\n'\
	342	'TRACE_SYSCALL_TABLE\(syscalls_noargs, $1, $2, $3\)\n'\
	343	'#endif/g'\
	344	${TMPFILE} >> ${HEADER}
	345
	346	printf \
	347	'#else /* #ifdef SC_ENTER */\n'\
	348	>> ${HEADER}
	349
	350	grep "^syscall [^ ]* nr [^ ]* nbargs ${NRARGS} " ${SRCFILE} > ${TMPFILE}
	351	perl -p -e 's/^syscall ([^ ]) nr ([^ ]) nbargs ([^ ]) .$/'\
	352	'#ifndef OVERRIDE_TABLE_'"${BITNESS}"'_$1\n'\
	353	'TRACE_SYSCALL_TABLE($1, $1, $2, $3)\n'\
	354	'#endif/g'\
	355	${TMPFILE} >> ${HEADER}
	356
	357	printf \
	358	'#endif /* else #ifdef SC_ENTER */\n'\
	359	>> ${HEADER}
	360
	361	fi
	362
	363	#others.
	364	grep -v "^syscall [^ ]* nr [^ ]* nbargs ${NRARGS} " ${SRCFILE} > ${TMPFILE}
	365	perl -p -e 's/^syscall ([^ ]) nr ([^ ]) nbargs ([^ ]) .$/'\
	366	'#ifndef OVERRIDE_TABLE_'"${BITNESS}"'_$1\n'\
	367	'TRACE_SYSCALL_TABLE($1, $1, $2, $3)\n'\
	368	'#endif/g'\
	369	${TMPFILE} >> ${HEADER}
	370
	371	echo -n \
	372	"
	373	#endif /* CREATE_SYSCALL_TABLE */
	374	" >> ${HEADER}
	375
	376	#fields names: ...char * type with name or file or path or root
	377	# or put_old or type
	378	cp -f ${HEADER} ${TMPFILE}
	379	rm -f ${HEADER}
	380	perl -p -e 's/__field\(([^,)]char \), ([^\)])(name\|file\|path\|root\|put_old\|type)([^\)])\)/__string_from_user($2$3$4, $2$3$4)/g'\
	381	${TMPFILE} >> ${HEADER}
	382	cp -f ${HEADER} ${TMPFILE}
	383	rm -f ${HEADER}
	384	perl -p -e 's/tp_assign\(([^,)]char \), ([^,])(name\|file\|path\|root\|put_old\|type)([^,]), ([^\)]*)\)/tp_copy_string_from_user($2$3$4, $5)/g'\
	385	${TMPFILE} >> ${HEADER}
	386
	387	#prettify addresses heuristics.
	388	#field names with addr or ptr
	389	cp -f ${HEADER} ${TMPFILE}
	390	rm -f ${HEADER}
	391	perl -p -e 's/__field\(([^,)]), ([^,)]addr\|[^,)]ptr)([^),])\)/__field_hex($1, $2$3)/g'\
	392	${TMPFILE} >> ${HEADER}
	393
	394	#field types ending with '*'
	395	cp -f ${HEADER} ${TMPFILE}
	396	rm -f ${HEADER}
	397	perl -p -e 's/__field\(([^,)]\), ([^),]*)\)/__field_hex($1, $2)/g'\
	398	${TMPFILE} >> ${HEADER}
	399
	400	#strip the extra type information from tp_assign.
	401	cp -f ${HEADER} ${TMPFILE}
	402	rm -f ${HEADER}
	403	perl -p -e 's/tp_assign\(([^,)]), ([^,]), ([^\)]*)\)/tp_assign($2, $3)/g'\
	404	${TMPFILE} >> ${HEADER}
	405
	406	rm -f ${INPUTFILE}.tmp
	407	rm -f ${TMPFILE3}
	408	rm -f ${TMPFILE2}
	409	rm -f ${TMPFILE}
	410	rm -f ${SRCFILE}