diff options
| author | rsc <devnull@localhost> | 2003-11-25 03:37:45 +0000 |
|---|---|---|
| committer | rsc <devnull@localhost> | 2003-11-25 03:37:45 +0000 |
| commit | 08708877939323c1e1cb87210193ec25fc472ff7 (patch) | |
| tree | bd34e2144a3e9532ab228619d7ae8d4a0078aeeb /src/cmd/dict/gefix | |
| parent | 091f74d0a0db5ba1e098a518922525cb032a97b4 (diff) | |
| download | plan9port-08708877939323c1e1cb87210193ec25fc472ff7.tar.gz plan9port-08708877939323c1e1cb87210193ec25fc472ff7.tar.bz2 plan9port-08708877939323c1e1cb87210193ec25fc472ff7.zip | |
add dict
Diffstat (limited to 'src/cmd/dict/gefix')
| -rwxr-xr-x | src/cmd/dict/gefix | 23 |
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 |