check_init_asserts

#!/bin/sh

FILES="$1/src/*.rs"
if test -d $1/src/auto; then
    FILES="$FILES $1/src/auto/*.rs"
fi

perl -0777 -ne '
BEGIN { $e = 0 }
while (/^(\N*)\V*fn\s+(\w+)\s*(<[^(]+>)?\s*(\([^{;]+)\{\N*\n^(\N*)$/gms) {
	($modifiers, $name, $signature, $first_line) = ($1, $2, $4, $5);
	unless ($modifiers =~ /^\s*(\/\/|(pub )?unsafe)/ ||
		$signature =~ /^\(\s*(&(\x27\w+ )?)?(mut )?self\b/ ||
		$signature =~ /^\(\)/ ||
		$first_line =~ /^\s*(
			assert_initialized_main_thread |
			assert_not_initialized |
			skip_assert_initialized
		)!\(\)/x) {
		print "$ARGV: $name$signature\n";
		$e = 1
	}
}
END { exit $e }' $FILES