# Input: stdin
# arg1 file path
# Output: stdout
- # Version: 1.1.2 (BK-2020-03)
+ # Version: 1.2.0 (BK-2020-03)
# Depends: GNU sed 4.8
# Check input
-e "s/(she|She|SHE)'(d|D|ll|LL|s|S)/\1ʼ\2/g" \
-e "s/(shan|Shan|SHAN)'(t|T)/\1ʼ\2/g" \
-e "s/'(s|S)\b/ʼ\1/g" \
- -e "s/(s|S)'( |$)/\1ʼ\2/g" \
+ -e "s/(s|S)'( |,|.|$)/\1ʼ\2/g" \
-e "s/(oughtn|Oughtn|OUGHTN)'(t|T)'(ve|VE)/\1ʼ\2ʼ\3/g" \
-e "s/(oughtn|Oughtn|OUGHTN)'(t|T)/\1ʼ\2/g" \
-e "s/(o|O)'(clock|CLOCK)/\1ʼ\2/g" \
-e "s/(hadn|Hadn|HADN)'(t|T)/\1ʼ\2/g" \
-e "s/'(em\b)/ʼ\1/g" \
-e "s/(d|D)'(ya|YA|you|YOU)/\1ʼ\2/g" \
+ -e "s/([[:alnum:]])'(d|D)/\1ʼ\2/g" \
-e "s/(don|Don|DON)'(t|T)/\1ʼ\2/g" \
-e "s/(doesn|Doesn|DOESN)'(t|T)/\1ʼ\2/g" \
-e "s/(didn|Didn|DIDN)'(t|T)/\1ʼ\2/g" \
-e "s/(aren|Aren|AREN)'(t|T)/\1ʼ\2/g" \
-e "s/(ate|Ate|ATE)'(nt|NT)/\1ʼ\2/g" \
-e "s/(ain|Ain|AIN)'(t|T)/\1ʼ\2/g" \
+ -e "s/([[:alpha:]])'([[:alpha:]])/\1ʼ\2/g" \
"$input"
}; # replace ' with ʼ