1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
--- 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
+ }
}
|
