#!/bin/sh
fail=0

( . "${tools_dir}"/check-misc.sh ) || fail=$?

# The first regex finds function calls like foo() (as opposed to foo ()).
#   It attempts to ignore string constants (may cause false negatives).
# The second and third ignore block comments (gtkdoc uses foo() as markup).
# The fourth ignores cpp so you can
#   #define foo(bar) (_real_foo (__FUNC__, bar)) (cpp insists on foo() style).
if grep -n '^[^"]*[[:lower:]](' "$@" \
  | grep -v '^[-[:alnum:]_./]*:[[:digit:]]*: *\*' \
  | grep -v '^[-[:alnum:]_./]*:[[:digit:]]*: */\*' \
  | grep -v '^[-[:alnum:]_./]*:[[:digit:]]*: *#'
then
  echo "^^^ Our coding style is to use function calls like foo (), not foo()"
  fail=1
fi

if grep -En '[(][[:alnum:]_]+ ?\*[)][(]?[[:alpha:]_]' "$@"; then
  echo "^^^ Our coding style is to have a space between a cast and the "
  echo "    thing being cast"
  fail=1
fi

# this only spots casts
if grep -En '[(][[:alnum:]_]+\*+[)]' "$@"; then
  echo "^^^ Our coding style is to have a space before the * of pointer types"
  echo "    (regex 1)"
  fail=1
fi
# ... and this only spots variable declarations and function return types
if grep -En '^ *(static |const |)* *[[:alnum:]_]+\*+([[:alnum:]_]|;|$)' \
    "$@"; then
  echo "^^^ Our coding style is to have a space before the * of pointer types"
  echo "    (regex 2)"
  fail=1
fi

if grep -n 'g_hash_table_destroy' "$@"; then
  echo "^^^ Our coding style is to use g_hash_table_unref"
  fail=1
fi

for p in "" "ptr_" "byte_"; do
  if grep -En "g_${p}array_free \(([^ ,]+), TRUE\)" "$@"; then
    echo "^^^ Our coding style is to use g_${p}array_unref in the case "
    echo "    the underlying C array is not used"
    fail=1
  fi
done

if test -n "$CHECK_FOR_LONG_LINES"
then
  if egrep -n '.{80,}' "$@"
  then
    echo "^^^ The above files contain long lines"
    fail=1
  fi
fi

exit $fail