1 files changed, 53 insertions, 0 deletions
diff --git a/iwidgets/doc/tk2html2.awk b/iwidgets/doc/tk2html2.awk
new file mode 100644
index 00000000000..0134df1ad3c
--- /dev/null
+++ b/iwidgets/doc/tk2html2.awk
@@ -0,0 +1,53 @@
+#!/bin/nawk
+# cleans up any leading crap before <TITLE> line in stream from tk2html
+
+/^<TITLE>/ { go = 1 }
+
+/^<table>*/ {
+        getline ln
+        numf = split (ln, spln)
+
+        if ( ln !~ "Name: *" )
+        {
+            ind = 0
+            inc = 4
+            print "<table cellpadding=5>"
+
+            while ( ln !~ "^</table>" )
+            {
+                for (i = 1; i <= numf; i++)
+                {
+                    tablns[ind] = spln[i]
+                    ind++
+                }
+                getline ln
+                numf = split (ln, spln)
+            }
+
+            for (i = 0; i < inc; i++)
+                {
+                    print "<td valign=top>"
+                    for (j = i; j < ind; j += inc)
+                        print tablns[j] "<br>"
+                    print "</td>"
+                }
+            
+            print "</table>"
+        }
+
+        else
+        {
+            print "<pre>"
+            while ( ln !~ "^</table>" )
+            {
+                print ln
+                getline ln
+            }
+            print "</pre>"
+        }
+        
+        next
+    }
+
+go == 1 { print $0 }
+