157
157
basename "${1}" |
158
158
tr 'a-z-' 'A-Z_' |
159
159
sed -e 's/\..*//' \
160
-e 's/\([^_]\)[^_]*_\(.*\)/\1\2/' \
161
-e 's/\([^_]\)\([^_]\)[^_]*_\(.*\)/\1\2\3/' \
162
-e 's/\([^_]\)\([^_]\)\([^_]\)[^_]*_\(.*\)/\1\2\3\4/' \
163
-e 's/\([^_]\)\([^_]\)\([^_]\)\([^_]\)[^_]*_\(.*\)/\1\2\3\4\5/' \
164
-e 's/^\(..........\).*/\1/'
161
-e 's/^\(.\).*\(.........\)$/\1\2/'