1 files changed, 23 insertions, 0 deletions
diff --git a/src/cmd/dict/gefix b/src/cmd/dict/gefix
new file mode 100755
index 00000000..74df8de0
--- /dev/null
+++ b/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