Subversion Repositories planix.SVN

Rev

Rev 2 | Blame | Compare with Previous | Last modification | View Log | RSS feed

#!/bin/rc

sed '
        s/[     ]+$//
        /       /!d
        s/\\N''349''//g
        s/''//g
        s/      -/      /
        s/-$//
        /\([^,) ]+(\)|$)/{; h; s///; p; g; s/\(//; s/\)//; }
        /\(r, s\)$/{; s///; p; s/$/r/; p; s/r$/s/; }
' $1 |
sed '
        /\([^,) ]+(\)|$)/{; h; s///; p; g; s/\(//; s/\)//; }
        /\(r, s\)$/{; s///; p; s/$/r/; p; s/r$/s/; }
' |
sed '/ß/{; p; s/ß/ss/g; }' |
awk '
BEGIN   { FS = "        |, " }
        { for(i=2; i<=NF; i++)print $i "        " $1 }
' |
tr A-Z a-z |
sort -u -t'     ' +0f -1 +0 -1 +1n -2