[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Changes to m4/checks/get-them [branch-1_4]
From: |
Gary V . Vaughan |
Subject: |
Changes to m4/checks/get-them [branch-1_4] |
Date: |
Thu, 31 Mar 2005 06:20:35 -0500 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Changes to m4/checks/get-them [branch-1_4],
Gary V . Vaughan <=