Merge branch 'gawk-5.1-stable'

1 files changed, 22 insertions, 0 deletions

diff --git a/test/fpat9.awk b/test/fpat9.awk
new file mode 100644
index 00000000..06142b85
--- /dev/null
+++ b/test/fpat9.awk
@@ -0,0 +1,22 @@
+#! /bin/gawk  -f
+
+# Modified version of program from Arthur Schwarz <home@slipbits.com>.
+
+BEGIN {                                         # program constants
+         FPAT         = "([^,]*)|(\"([^\"]|\"\")+\")" # CSV field separator
+         print "FPAT = ", FPAT;
+}
+{
+        print "------------------------------------------------\n"
+        print $0;
+        printf("%3d:   \n", NF);
+        for (i = 1; i <= NF; i++) {
+           if (substr($i, 1, 1) == "\"") {
+              len = length($i)		# BUG FIX, was length($1)
+              $i = substr($i, 2, len - 2);
+	     gsub(/""/, "\"", $i)	# embedded "" --> "
+           }
+           printf("      <%d: %s>\n", i, $i);
+        }
+        print " ";
+}