--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/orig/help2roff.csh	Sat Apr 09 17:55:16 2011 +0100
@@ -0,0 +1,14 @@
+#!/bin/csh -f
+# RCSid: $Id: help2roff.csh,v 3.1 2003/02/22 02:07:30 greg Exp $
+# Convert Tcl/Tk help file (used by gethelp.tcl) to troff/nroff format
+# for printing.
+#
+
+cat << _EOF_
+.ds RH "$1:r help
+.TL 
+`head -1 $1`
+.LP
+_EOF_
+exec sed -e 1d \
+-e 's/^\.\([a-zA-Z][a-zA-Z0-9]*\)\.\([a-zA-Z][a-zA-Z0-9]*\)$/.B "\1 \2"/' $1