#! /bin/sh

case "$1" in
-l)	shift
	getradicals=listradicals;;
-s)	shift
	getradicals=showradicals;;
*)	getradicals=menuradicals;;
esac

radicals=${1-unihan.radicals.list}

filter="cat $radicals"
filter="bmp"

bmp () {
	egrep -e '	....$' $radicals
}

listradicals () {
	count=$1
	shift
	for r in $*
	do	echo -n "$r	"
		radn=`$filter | sed -e "s,^$r'*	\(.*\)	\(.*\),\1," -e t -e d`
		echo `echo $radn | tr -d " \012"`
	done
}

showradicals () {
	count=$1
	shift
	echo Strokes: $count
	echo
	for r in $*
	do	echo radical $r
		echo `$filter | sed -e "s,^$r'*	\(.*\)	\(.*\),\1," -e t -e d`
	done
	echo
}

menuradicals () {
	count=$1
	shift
	echo -n "($count)"
	for r in $*
	do	echo -n " "
		rr=`$filter | sed -e "s,^$r'*	\(.*\)	\(.*\),\1," -e t -e d`
		echo -n $r:`echo $rr | sed -e "s, ,,g"`
	done
	echo
}

$getradicals 1  1 2 3 4 5 6
$getradicals 2  7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
$getradicals 3  30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60
$getradicals 4  61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94
$getradicals 5  95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117
$getradicals 6  118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146
$getradicals 7  147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166
$getradicals 8  167 168 169 170 171 172 173 174 175
$getradicals 9  176 177 178 179 180 181 182 183 184 185 186
$getradicals 10  187 188 189 190 191 192 193 194
$getradicals 11  195 196 197 198 199 200
$getradicals 12  201 202 203 204
$getradicals 13  205 206 207 208
$getradicals 14  209 210
$getradicals 15  211
$getradicals 16  212 213
$getradicals 17  214
