From 54329ac4a0bf3b32ca7ee83ecdc559533e07f481 Mon Sep 17 00:00:00 2001
From: "Thomas G. Lockhart" <lockhart@fourpalms.org>
Date: Fri, 6 Apr 2001 15:01:25 +0000
Subject: [PATCH] Utility to add the stylesheet "s0" definition to an RTF file.
  This stylesheet must be present for Applixware to be happy generating  a
 ToC. M$Word does not seem to care one way or the other.

---
 doc/src/sgml/fixrtf | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 doc/src/sgml/fixrtf

diff --git a/doc/src/sgml/fixrtf b/doc/src/sgml/fixrtf
new file mode 100755
index 0000000000..a6a701f6db
--- /dev/null
+++ b/doc/src/sgml/fixrtf
@@ -0,0 +1,23 @@
+#!/bin/sh
+# fixrtf
+# Repair (slightly) damaged RTF generated by jade
+# Applixware wants the s0 stylesheet defined, whereas
+#  M$Word does not care about it.
+# (c) 2001, Thomas Lockhart, PostgreSQL Inc.
+
+flist=$@
+if [ "$flist" = "" ] ; then
+  flist=*.rtf
+fi
+
+for f in $flist ; do
+  echo -n "Repairing $f..."
+  if [ -r $f ] ; then
+    (sed 's/{\\stylesheet{\\s1/{\\stylesheet{\\s0 Normal 0;}{\\s1/g' $f > $f.new \
+      && mv -f $f.new $f \
+      && echo " done") || echo " failed"
+  else
+    echo " file not found"
+  fi
+done
+exit
-- 
2.40.0