path: root/bin/grepc

#!/bin/bash


if (($# != 1)); then
	>&2 echo "Usage: $0 <identifier>";
	exit 1;
fi;


function grepc_helper()
{
	find . -type f \
	| grep "$1" \
	| xargs grep -lP "$2" \
	| sort \
	| xargs pcregrep -Mn "$3" /dev/null \
	| sed -E 's/^[^: ]+:[0-9]+:/\n\n&\n\n/';
}


function grepc_macro_simple()
{
	grepc_helper '\.[ch]$' \
	  "define\s+$1\b[^(]" \
	  "(?s)define\s+$1\b[^(].*?[^\\\\]$";
}


function grepc_macro_func()
{
	grepc_helper '\.[ch]$' \
	  "define\s+$1\(" \
	  "(?s)define\s+$1\(.*?[^\\\\]$";
}


function grepc_macro()
{
	grepc_macro_simple "$1";
	grepc_macro_func "$1";
}


function grepc_enum_constant()
{
	grepc_helper '\.[ch]$' \
	  "^\s*$1\s*[,=]" \
	  "(?s)\benum\b\s*[\w\s[\]]*{[^}]*^\s*$1\s*[=,].*?^}.*?;";
}


function grepc_func_decl()
{
	grepc_helper '\.[ch]$' \
	  "\b$1\s*\(" \
	  "(?s)^[\w[][\w\s(,)[:\]*]+\s+\**$1\s*\([\w\s(,)[\]*]+?(...)?\)[\w\s(,)[:\]]*;";
}


function grepc_func_def()
{
	grepc_helper '\.[ch]$' \
	  "\b$1\s*\(" \
	  "(?s)^[\w[][\w\s(,)[:\]*]+\s+\**$1\s*\([\w\s(,)[\]*]+?(...)?\)\s*{.*?^}";
}


function grepc_func()
{
	grepc_func_decl "$1";
	grepc_func_def "$1";
}


function grepc_linux_syscall_decl()
{
	grepc_helper '\.[ch]$' \
	  "\bsys_$1\s*\(" \
	  "(?s)^asmlinkage\s+[\w\s]+\**sys_$1\s*\(.*?\)";
}


function grepc_linux_syscall_def()
{
	grepc_helper '\.c$' \
	  "SYSCALL_DEFINE.\($1\b" \
	  "(?s)^\w*SYSCALL_DEFINE.\($1\b.*?^}";
}


function grepc_linux()
{
	grepc_linux_syscall_decl "$1";
	grepc_linux_syscall_def "$1";
}


function grepc_glibc_math()
{
	grepc_func_def "M_DECL_FUNC \(__$1\)";
}


function grepc_glibc()
{
	grepc_glibc_math "$1";
}


function grepc_type_struct_union_enum()
{
	grepc_helper '\.[ch]$' \
	  "\b(struct|union|enum)\s+$1\b" \
	  "(?s)^(?!^typedef\b)([\w[][\w\s(,)[:\]*]+\s+)?\b(struct|union|enum)\s+$1\b\s*[\w\s[\]]*{.*?^}.*?;";
}


function grepc_type_typedef_simple()
{
	grepc_helper '\.[ch]$' \
	  "\b$1;" \
	  "(?s)^typedef\s+[^{};]+$1;";
}


function grepc_type_typedef_struct_union_enum()
{
	grepc_helper '\.[ch]$' \
	  "^}\s*$1;" \
	  "(?s)^typedef\s(?:(?!^}).)*^}\s*$1;";
}


function grepc_type_typedef_underlying_struct_union_enum()
{
	find . -type f \
	| grep '\.[ch]$' \
	| xargs grep -hP "^typedef\s+.*\b$1;" \
	| sed -E -e 's/^typedef\s+//' -e "s/\s*\**\b$1;.*//" \
	| sed -E -e 's/^struct\s+//' -e 's/^union\s+//' -e 's/^enum\s+//' \
	| while read t; do
		test "$1" != "$t" \
		&& grepc_type_struct_union_enum "$t";
	done;
}


function grepc_type_typedef()
{
	grepc_type_typedef_simple "$1";
	grepc_type_typedef_struct_union_enum "$1";
	grepc_type_typedef_underlying_struct_union_enum "$1";
}


function grepc_type()
{
	grepc_type_struct_union_enum "$1";
	grepc_type_typedef "$1";
}


function main()
{
	grepc_macro "$1";
	grepc_enum_constant "$1";
	grepc_func "$1";
	grepc_linux "$1";
	grepc_glibc "$1";
	grepc_type "$1";
}


main "$1";