add dict

src/cmd/dict/gefix

@@ -0,0 +1,23 @@
+#!/bin/rc
+
+sed '
+	s/[ 	]+$//
+	/	/!d
+	s/\\N''349''//g
+	s/''//g
+	s/	-/	/
+	s/-$//
+	/\([^,) ]+(\)|$)/{; h; s///; p; g; s/\(//; s/\)//; }
+	/\(r, s\)$/{; s///; p; s/$/r/; p; s/r$/s/; }
+' $1 |
+sed '
+	/\([^,) ]+(\)|$)/{; h; s///; p; g; s/\(//; s/\)//; }
+	/\(r, s\)$/{; s///; p; s/$/r/; p; s/r$/s/; }
+' |
+sed '/ß/{; p; s/ß/ss/g; }' |
+awk '
+BEGIN	{ FS = "	|, " }
+	{ for(i=2; i<=NF; i++)print $i "	" $1 }
+' |
+tr A-Z a-z |
+sort -u -t'	' +0f -1 +0 -1 +1n -2