shithub: riscv

ref: 403fef45c1a65aa74c449764e2857597fc03290a
dir: /sys/src/cmd/dict/gefix/

View raw version 
#!/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