Changes to m4/checks/get-them [branch-1_4]

[Gary V . Vaughan]

Index: m4/checks/get-them
diff -u /dev/null m4/checks/get-them:1.1.1.1.2.1
--- /dev/null   Thu Mar 31 11:20:35 2005
+++ m4/checks/get-them  Thu Mar 31 11:20:17 2005
@@ -0,0 +1,69 @@
+#!/bin/sh
+# Extract all examples from the manual source.
+# Copyright (C) 1992, 2005 Free Software Foundation, Inc.
+
+# This script is for use with GNU awk.
+
+FILE=${1-/dev/null}
+
+$AWK '
+
+BEGIN {
+  node = "";
+  seq = -1;
+  count = 0;
+  file = "NONE";
+}
+
+/address@hidden / {
+  if (seq > 0)
+    printf(" --  %d file%s", seq, seq == 1 ? "" : "s");
+  if (seq >= 0)
+    printf("\n");
+
+  split($0, tmp, ",");
+  node = substr(tmp[1], 7);
+  if (length(node) > 11)
+    printf("Node: %s - truncated", node);
+  else
+    printf("Node: %s ", node);
+  gsub(" ", "_", node);
+  node = tolower(substr(node, 1, 11));
+  seq = 0;
+}
+
+/address@hidden ignore$/ {
+  getline;
+  next;
+}
+
+/address@hidden/, /address@hidden example$/ {
+  if (seq < 0)
+    next;
+  if ($0 ~ /address@hidden/) {
+    if (count > 0)
+      close (file);
+    seq++;
+    count++;
+    file = sprintf("%02d.%s", count, node);
+    printf("dnl %s:%d: Origin of test\n", FILENAME, NR) > file;
+    next;
+  }
+  if ($0 ~ /address@hidden example$/) {
+    next;
+  }
+  if ($0 ~ /^\^D$/)
+    next;
+  if ($0 ~ /address@hidden/ || $0 ~ /address@hidden/)
+    prefix = "dnl ";
+  else
+    prefix = "";
+  gsub("@@", "@", $0);
+  gsub("@comment.*", "", $0);
+  printf("%s%s\n", prefix, $0) >> file;
+}
+
+END {
+  printf("\n");
+}
+' $FILE