mirror of https://github.com/patacrep/patacrep.git
Alexandre Dupas
14 years ago
1 changed files with 16 additions and 10 deletions
@ -1,25 +1,31 @@ |
|||
#!/bin/sh |
|||
|
|||
#Author: Romain Goffe |
|||
# |
|||
#Author: Romain Goffe and Alexandre Dupas |
|||
#Date: 27/10/2010 |
|||
#Description: apply typo rules depending on language for songs (.sg files) |
|||
#Commentary: to be merge with latex-preprocessing script |
|||
#Description: fix typographic mistakes, some depending on language |
|||
|
|||
# remove trailing space and double space |
|||
sed -i \ |
|||
-e 's/\s*$//g' \ |
|||
-e '/\s*%/! s/\([^ ]\)\s\+/\1 /g' \ |
|||
$@ |
|||
|
|||
for song in $@; do |
|||
echo $song |
|||
# formating rules depending on language |
|||
for song in $@; |
|||
do |
|||
if grep -q "selectlanguage{english}" $song |
|||
then |
|||
sed -i \ |
|||
-e 's/\s*?/?/g' \ |
|||
-e 's/\s*!/!/g' \ |
|||
-e 's/\s*:/:/g' \ |
|||
$song; |
|||
$song |
|||
elif grep -q "selectlanguage{french}" $song |
|||
then |
|||
sed -i \ |
|||
-e 's/\([^ ]\)?/\1 ?/g' \ |
|||
-e 's/\([^ ]\)!/\1 !/g' \ |
|||
-e '/\\gtab.*/ ! s/\([^ ]\):/\1 :/g' \ |
|||
$song; |
|||
fi; |
|||
done; |
|||
$song |
|||
fi |
|||
done |
|||
|
Loading…
Reference in new issue