30 lines
761 B
Awk
30 lines
761 B
Awk
--- lig.awk.orig 2010-03-04 12:13:47 UTC
|
|
+++ lig.awk
|
|
@@ -24,14 +24,20 @@ c=b
|
|
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);
|
|
+ out=b; gsub("f[1-9]?$", "ff", out); print out
|
|
+ if (c!=b) {
|
|
+ out=c; gsub("f[1-9]?$", "ff", out); print out
|
|
+ }
|
|
|
|
- print gensub("f[1-9]?$", "fi", "g", b);
|
|
- if (c!=b) print gensub("f[1-9]?$", "fi", "g", c);
|
|
+ out=b; gsub("f[1-9]?$", "fi", out); print out
|
|
+ if (c!=b) {
|
|
+ out=c; gsub("f[1-9]?$", "fi", out); print out
|
|
+ }
|
|
|
|
- print gensub("f[1-9]?$", "fl", "g", b);
|
|
- if (c!=b) print gensub("f[1-9]?$", "fl", "g", c);
|
|
+ out=b; gsub("f[1-9]?$", "fl", out); print out
|
|
+ if (c!=b) {
|
|
+ out=c; gsub("f[1-9]?$", "fl", out); print out
|
|
+ }
|
|
}
|
|
|
|
|