-sed -n "/${TAG}/ s,[^\"]*\"\([^\"]*\)\".*$,\1,p" < $DIRFILE |\
- sed -e "/^[^/]/ s,\(.*\),$datadir/\1,"
+SPC="[ ]*"
+ANY="$SPC\([A-Za-z*][^ )]*\)\?"
+
+TAGS="$SPC\($TAG0\)$SPC$ANY$SPC$ANY$SPC$ANY"
+FILE="$SPC\"\([^\"]*\)\""
+ENTRIES=`sed -n "/$TAG0/s|$SPC($TAGS$FILE).*$|/\1/\2/\3/\4/\5|p" $DIRFILE`
+
+cd $datadir/m17n
+
+for e in $ENTRIES; do
+ FN=`expr "$e" : "/[^/]*/[^/]*/[^/]*/[^/]*/\(.*\)"`
+ case "$e" in
+ /$TAG0/\*/*/* | /$TAG0/*/\*/* | /$TAG0/*/*/\*)
+ for f in $FN; do
+ if test -f $f; then
+ ENTRY=`sed -n "/$TAG0/s|$SPC($TAGS).*$|/\1/\2/\3/\4|p" $f`
+ if test -n "$ENTRY"; then
+ LIST="$LIST $ENTRY/$f"
+ fi
+ fi
+ done;;
+ *)
+ if test -f $FN; then
+ LIST="$LIST $e"
+ fi;;
+ esac
+done
+
+for l in $LIST; do
+ case "$l" in
+ /$TAG0/$TAG1/$TAG2/$TAG3)
+ FN=`expr "$l" : "/[^/]*/[^/]*/[^/]*/[^/]*/\(.*\)"`
+ echo "`pwd`/$FN"
+ esac
+done