Move to gawk-3.0.0.

4 files changed, 32 insertions, 0 deletions

diff --git a/awklib/eg/misc/arraymax.awk b/awklib/eg/misc/arraymax.awk
new file mode 100644
index 00000000..20dd1768
--- /dev/null
+++ b/awklib/eg/misc/arraymax.awk
@@ -0,0 +1,10 @@
+{
+  if ($1 > max)
+    max = $1
+  arr[$1] = $0
+}
+
+END {
+  for (x = 1; x <= max; x++)
+    print arr[x]
+}
diff --git a/awklib/eg/misc/arraymax.data b/awklib/eg/misc/arraymax.data
new file mode 100644
index 00000000..dbee328c
--- /dev/null
+++ b/awklib/eg/misc/arraymax.data
@@ -0,0 +1,5 @@
+5  I am the Five man
+2  Who are you?  The new number two!
+4  . . . And four on the floor
+1  Who is number one?
+3  I three you.
diff --git a/awklib/eg/misc/findpat.data b/awklib/eg/misc/findpat.data
new file mode 100644
index 00000000..9f72969e
--- /dev/null
+++ b/awklib/eg/misc/findpat.data
@@ -0,0 +1,7 @@
+FIND ru+n
+My program runs
+but not very quickly
+FIND Melvin
+JF+KM
+This line is property of Reality Engineering Co.
+Melvin was here.
diff --git a/awklib/eg/misc/findpat.sh b/awklib/eg/misc/findpat.sh
new file mode 100644
index 00000000..39710324
--- /dev/null
+++ b/awklib/eg/misc/findpat.sh
@@ -0,0 +1,10 @@
+awk '{
+       if ($1 == "FIND")
+         regex = $2
+       else {
+         where = match($0, regex)
+         if (where != 0)
+           print "Match of", regex, "found at", \
+                     where, "in", $0
+       }
+}'