Commit f32609b2 authored by frozar's avatar frozar

[DEV] Fix script.

parent cd35c1c6
......@@ -18,7 +18,7 @@ sub_names=`grep -i subroutine $f | grep -iv -e " *\!.*" -e " *end *subroutine" |
( for sub in ${sub_names}
do
beg=`grep -ni "subroutine" $f | grep "${sub}" -A1 | head -n1 | cut -d":" -f1`
end=`grep -ni "subroutine" $f | grep "${sub}" -A1 | tail -n1 | cut -d":" -f1`
beg=`grep -ni "subroutine" $f | grep -i "subroutine *${sub}(\?" -A1 | head -n1 | cut -d":" -f1`
end=`grep -ni "subroutine" $f | grep -i "subroutine *${sub}(\?" -A1 | head -n2 | tail -n1 | cut -d":" -f1`
echo -e "$(( $end - $beg + 1 ))\t: $sub"
done ) | sort -rn
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment