Commit c27fceec authored by Fabien Rozar's avatar Fabien Rozar

'get_one_subroutine.sh' -> 'get_one_procedure.sh'

parent 3c4548be
......@@ -17,9 +17,9 @@ f=$1
sub=$2
f_id=$(basename $f)
id=$(echo ${f_id:4:5})
id=$(echo ${f_id:4:4})
beg=`grep -ni -e "^ *\(subroutine\|.*function\) *${sub}\(_\|\)${id}" -e "^ *end *\(subroutine\|function\)" $f | grep -i -e "^[0-9]*: *\(subroutine\|.*function\) *${sub}\(_\|\)${id} *(" -A1 | head -n2 | head -n1 | cut -d":" -f1`
end=`grep -ni -e "^ *\(subroutine\|.*function\) *${sub}\(_\|\)${id}" -e "^ *end *\(subroutine\|function\)" $f | grep -i -e "^[0-9]*: *\(subroutine\|.*function\) *${sub}\(_\|\)${id} *(" -A1 | head -n2 | tail -n1 | cut -d":" -f1`
beg=`grep -ni -e "^ *\(subroutine\|.*function\) *\(${sub}\(_\|.\|\)${id}\|${id}\(_\|.\|\)${sub}\)" -e "^ *end *\(subroutine\|function\)" $f | grep -i -e "^[0-9]*: *\(subroutine\|.*function\) *\(${sub}\(_\|.\|\)${id}\|${id}\(_\|.\|\)${sub}\).*(" -A1 | head -n2 | head -n1 | cut -d":" -f1`
end=`grep -ni -e "^ *\(subroutine\|.*function\) *\(${sub}\(_\|.\|\)${id}\|${id}\(_\|.\|\)${sub}\)" -e "^ *end *\(subroutine\|function\)" $f | grep -i -e "^[0-9]*: *\(subroutine\|.*function\) *\(${sub}\(_\|.\|\)${id}\|${id}\(_\|.\|\)${sub}\).*(" -A1 | head -n2 | tail -n1 | cut -d":" -f1`
head -n $end $f | tail -n $((${end}-${beg}+1))
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