Mercurial > hg > mauch-mirex-2010
annotate common_startstring.sh @ 0:4182672fd6f8
Initial commit of files from the mauch-MIREX directory on octave
| author | Chris Cannam |
|---|---|
| date | Tue, 24 Apr 2012 11:52:05 +0100 |
| parents | |
| children |
| rev | line source |
|---|---|
| Chris@0 | 1 #!/bin/bash |
| Chris@0 | 2 filelist="$1" |
| Chris@0 | 3 common_st="`head -n 1 "$filelist"`"first |
| Chris@0 | 4 |
| Chris@0 | 5 while read f; do |
| Chris@0 | 6 diff_pos=`./diff_position.sh "$common_st" "$f"` |
| Chris@0 | 7 last_same=$(( $diff_pos-1 )) |
| Chris@0 | 8 common_st="`echo "$common_st" | cut -c 1-$last_same`" |
| Chris@0 | 9 done < "$filelist" |
| Chris@0 | 10 echo "$common_st" |