| {print $0} |
| b=$0 |
| /f[1-9]?f[1-9]?i/ {gsub("f[1-9]?f[1-9]?i", "ffi",b) } |
| /f[1-9]?f[1-9]?l/ {gsub("f[1-9]?f[1-9]?l", "ffl",b) } |
| |
| /f[1-9]?f/ {gsub("f[1-9]?f", "ff",b); r=1} |
| /f[1-9]?i/ {gsub("f[1-9]?i", "fi",b); r=1} |
| /f[1-9]?l/ {gsub("f[1-9]?l", "fl",b); r=1} |
| |
| b!=$0 { |
| # check alternative hyph |
| if (num ~ /\//) { |
| next; |
| } |
| print b |
| } |
| |
| c=b |
| |
| /^[1-9]?f/ { sub("^[1-9]?f", "ff", c); } |
| /^[1-9]?i/ { sub("^[1-9]?i", "fi", c); } |
| /^[1-9]?l/ { sub("^[1-9]?l", "fl", c); } |
| |
| c!=b { print c } |
| |
| /f[1-9]?$/ { |
| print gensub("f[1-9]?$", "ff", "g", b); |
| if (c!=b) print gensub("f[1-9]?$", "ff", "g", c); |
| |
| print gensub("f[1-9]?$", "fi", "g", b); |
| if (c!=b) print gensub("f[1-9]?$", "fi", "g", c); |
| |
| print gensub("f[1-9]?$", "fl", "g", b); |
| if (c!=b) print gensub("f[1-9]?$", "fl", "g", c); |
| } |
| |
| |
| #s/ffi/ffi/g |
| #s/ffl/ffl/g |
| #s/ff/ff/g |
| #s/fi/fi/g |
| #s/fl/fl/g |
