X-Git-Url: https://jxself.org/git/?p=super-star-trek.git;a=blobdiff_plain;f=po%2Finsert-header.sin;fp=po%2Finsert-header.sin;h=b26de01f6c88c7b15bb4815a8fcd5120d479300d;hp=0000000000000000000000000000000000000000;hb=e535e2ef833a03ec84d0f002d684c07ddde893f1;hpb=6faaa79dff2fa3ceec44ef46b79e651f1bd9e0aa

diff --git a/po/insert-header.sin b/po/insert-header.sin
new file mode 100644
index 0000000..b26de01
--- /dev/null
+++ b/po/insert-header.sin
@@ -0,0 +1,23 @@
+# Sed script that inserts the file called HEADER before the header entry.
+#
+# At each occurrence of a line starting with "msgid ", we execute the following
+# commands. At the first occurrence, insert the file. At the following
+# occurrences, do nothing. The distinction between the first and the following
+# occurrences is achieved by looking at the hold space.
+/^msgid /{
+x
+# Test if the hold space is empty.
+s/m/m/
+ta
+# Yes it was empty. First occurrence. Read the file.
+r HEADER
+# Output the file's contents by reading the next line. But don't lose the
+# current line while doing this.
+g
+N
+bb
+:a
+# The hold space was nonempty. Following occurrences. Do nothing.
+x
+:b
+}