For some reason I never submitted the script I used to generate Roget's thesaurus
for dict. As I have been chasing a similar script for other dictionaries its only
fair that I publish the one I have.

-Steve

Notes:
Mon Mar 17 18:27:53 EDT 2014 geoff
    was already there, just needed to be pushed out.


Reference: /n/sources/patch/applied/mk-roget
Date: Wed Mar  6 13:27:04 CET 2013
Signed-off-by: steve@quintile.net
Reviewed-by: geoff

--- /sys/src/cmd/dict/mkroget	Thu Jan  1 00:00:00 1970
+++ /sys/src/cmd/dict/mkroget	Wed Mar  6 13:25:11 2013
@@ -0,0 +1,23 @@
+#!/bin/rc
+
+rtf2txt roget-body.rtf |
+	sed '
+		1,12d
+		/^100. /{
+			N
+			s/\n//
+			p
+		}
+		/^388a. /{
+			N
+			s/\n//
+			p
+		}
+	' > /lib/dict/roget
+
+mkindex -d roget | 
+	sort -u -t'	' +0f -1 +0 -1 +1n -2 |
+	sed '
+		s/[ 	]+$//g
+		s/ 	/	/g
+	' > /lib/dict/rogetindex