From 5454f6a266616ef7a071cf9cb3ba2beb70db40b0 Mon Sep 17 00:00:00 2001
From: frozar <fabien.rozar@gmail.com>
Date: Thu, 18 Feb 2016 11:04:12 +0100
Subject: [PATCH] [DEV] Add the delete_subroutine script

---
 delete_subroutine.sh | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100755 delete_subroutine.sh

diff --git a/delete_subroutine.sh b/delete_subroutine.sh
new file mode 100755
index 0000000..3a6dc6d
--- /dev/null
+++ b/delete_subroutine.sh
@@ -0,0 +1,40 @@
+#!/bin/bash
+
+usage(){
+    # display the number of argument given
+    # echo $#
+    echo "  Usage:" $0 "<file_name> <subroutine_name>"
+}
+
+
+if [ $# -ne 2 ]
+then
+    usage 
+    exit -1
+fi
+
+f=$1
+sub=$2
+
+f_tmp=/tmp/${f}_tmp
+
+beg=`grep -ni -e "subroutine *${sub}_" -e "end *subroutine" $f | grep -i -e "^[0-9]*: *!\? *subroutine *$sub" -A1 | head -n1 | cut -d":" -f1`
+end=`grep -ni -e "subroutine *${sub}_" -e "end *subroutine" $f | grep -i -e "^[0-9]*: *!\? *subroutine *$sub" -A1 | tail -n1 | cut -d":" -f1`
+
+if [ "${beg}" == "" ]
+then
+    exit
+fi
+
+if [ "${end}" == "" ]
+then
+    exit
+fi
+
+head -n $(( ${beg}-1 )) $f > $f_tmp
+nb_line=$( wc -l $f | cut -d" " -f1 )
+tail -n $(( ${nb_line} - ${end} )) $f >> $f_tmp
+
+mv $f_tmp $f
+
+echo "INFO: delete subroutine '${sub}()' in $f"
-- 
GitLab