path: root/tests/load-functions

# -*- sh -*-
# See LICENSE file for copyright and license details.

parallelindex=0
p () {
	(
		set +ev
		pid=$$-$parallelindex
		a=.a-$pid.tmp
		b=.b-$pid.tmp
		log=.x-$pid.tmp
		( set -ev ; $t "$@" ) > $log 2>&1
		r=$?
		test $r = 0 || cat -- $log >&2
		rm -f -- .?-$pid.tmp
		exit $r
	) &
	eval parallelpid$(( ++parallelindex ))=$!
}
await () {
	while (( parallelindex )); do
		parallelvar=parallelpid$(( parallelindex-- ))
		eval wait '$'$parallelvar
	done
}


stderr () {
	("$@") 2>&1 >/dev/null
}

getlist () {
	getlist_list="$1"
	shift 1
	if test $# = 0; then set cat; fi
	"$@" < libsyscalls.h \
	| tr , '\n' \
	| sed -n 's/^[[:space:]]*LIBSYSCALLS_'"${getlist_list}"'_\([A-Z0-9_]\{1,\}\([[:space:]]*=[[:space:]]*[[:space:]0-9A-Fa-fxXULul()^&|!*/<>~+-]\{1,\}\)\{0,1\}\)\([^A-Za-z0-9_].*\)*$/\1/p' \
	| tr = ' ' \
	| (i=0; while read name value; do
		if test -n "$value"; then
			i=$(( $(printf '%s\n' "$value" | tr -d 'ULul') ))
			i=$(printf '%s\n' "$i" | cut -d . -f 1)
		fi
		printf '%i %s\n' $(( i++ )) $name;
	done)
}

getnamelist () {
	getlist "$@" | cut -d ' ' -f 2
}

getnumlist () {
	getlist "$@" | cut -d ' ' -f 1
}

getname () {
	(getlist "$1" | grep "^$2 " | cut -d ' ' -f 2 | tee /dev/stderr | grep . >/dev/null) 2>&1
}

getnum () {
	(getlist "$1" | grep " $2"\$ | cut -d ' ' -f 1 | tee /dev/stderr | grep . >/dev/null) 2>&1
}

lookupname () {
	(printf '%s\n' "$1" | grep "^$2 " | cut -d ' ' -f 2 | tee /dev/stderr | grep . >/dev/null) 2>&1
}

lookupnum () {
	(printf '%s\n' "$1" | grep " $2"\$ | cut -d ' ' -f 1 | tee /dev/stderr | grep . >/dev/null) 2>&1
}

issupported () {
	if test $# = 1; then
		printf '%s\n' ${SUPPORTED_OSES} | grep -i "^$1"\$ > /dev/null
	else
		printf '%s\n' ${SUPPORTED_OSES} | grep -i "^$1"\$ > /dev/null &&
		env | sed -n 's/^SUPPORTED_'"$1"'_ARCHES=//p' | xargs printf '%s\n' | grep -i "^$2"\$ > /dev/null
	fi
}

cpp_enum_clean () {
	$CPP < libsyscalls.h 2>/dev/null | grep -v '#' | tr '\n,{}' ' \n\n\n'
}

min () {
	printf '%s\n' "$@" | tr -d + | sort -n | sed -n 1p
}