home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
hcshdemo.zip
/
csh-os2.zip
/
SAMPLES
/
SH_2_CSH
/
CASE.SED
next >
Wrap
Text File
|
1993-11-24
|
679b
|
34 lines
# Fixup case statements:
# case word in switch (word)
# a) case "a":
# : :
# ;; break
# b|c) --> case "b":
# : case "c":
# :
# break FixBreak <-- Hand-Fixup required
# *) default:
# : :
# esac end
/^[ ]*case/,/^[ ]*esac/{
s/case[ ][ ]*\([^ ].*\)[ ][ ]*in/switch (\1)/
/^[^(]*)/{
s/\([ ]*\)\([^)]*\))/\1case "\2":
\1 /
:case
/".*|.*"/{
s/\([ ]*\)\(case "[^|]*\)|\(.*":\)/\1\2":
\1case "\3/
b case
}
}
s/case "\*":/default:/
s/break/FixBreak/
/;;/s/^\([ ]*\)\([^ ].*\);;/\1\2
\1break/
/;;/s/;;/break/
s/esac/end/
}