#! /bin/sh

SED=${SED:-'sed'}
AWK=${AWK:-'awk'}

F77_TOLOWER=%F77_APPEND_UNDERSCORE%
F77_APPEND_UNDERSCORE=%F77_APPEND_UNDERSCORE%
F77_APPEND_EXTRA_UNDERSCORE=%F77_APPEND_EXTRA_UNDERSCORE%

if $F77_TOLOWER; then
  case_cmd="tolower";
else
  case_cmd="toupper";
fi

if $F77_APPEND_UNDERSCORE; then
  uscore="_";
else
  uscore="";
fi

if $F77_APPEND_EXTRA_UNDERSCORE; then
  awkcmd="$AWK '{ if (\$0 ~ /_/) extra = \"_\"; else extra = \"\"; printf (\"%s%s%s\n\", $case_cmd (\$0), \"$uscore\", extra); }'"
else
  awkcmd="$AWK '{ printf (\"%s%s\n\", tolower (\$0), \"$uscore\"); }'"
fi

$SED -n \
  -e 'y/ABCDEFGHIJLKMNOPQRSTUVWXYZ/abcdefghijlkmnopqrstuvwxyz/' \
  -e 's/^\(      \|\t\)[ \t]*\(.*function\|subroutine\|entry\)[ \t]*\([^ \t(]*\).*$/\3/p' | \
  eval $awkcmd