-list_index(){
- local meta base fn file
- (cd "$_DATA/$ITEM";
- find ./ -path '*/.index/meta'
- ) | while meta="$(line)"; do
- base="${meta%/.index/meta}"
- meta_dir "$_DATA/$ITEM/$base"
- cut -f1,6- <"$_DATA/$ITEM/$meta" \
- | while f="$(line)"; do
- fn="$(UNSTRING "${f#* }")"; fn="${fn%${CR}}";
- file="$(printf '%s\n' "$_DATA/$ITEM/$base/${fn}".*)"
- file="${file##*/}"
- [ -e "$_DATA/$ITEM/$base/${file}" ] \
- && printf '%s %s\n' "${f%% *}" "${base}/${file}"
- done
- done \
- | sort -n \
- | cut -d/ -f2-
+list_order(){
+ local fm fn fn al length ln h w t c name buffer l
+
+ if [ $ORDER = Name ]; then
+ sort -k6
+ elif [ $ORDER = Group ]; then
+ sed -E '
+ /^[^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^\r]*\r$/bX;
+ /^[^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^\r]*\r\t\\$/bX;
+ s;^([^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t)([^\r]*)\r\t(.*)$;\1\r\3 \2\r\t;;
+ t;
+ :X
+ s;^([^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^ 0-9]*)-([0-9a-zA-Z_-]{11}\r|ph[0-9a-f]{13}\r|[0-9]{8}\r)(.*)$;\1-\r\3 \2;;
+ t;
+ s;^([^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^ 0-9]*)([0-9]+)(.*)$;\1\r\3 \2;;
+ tX;' \
+ | { sort -n -k7 -k8 -k9 -k10 -k11 |sort -s -k6,6 ; echo '0 0 0 tags= comment= _'; } \
+ | while read -r length w h t c name; do
+ if [ "${ln%% *}" = "${name%% *}" ]; then
+ al=$((al + length))
+ buffer="${buffer}${BR}$length $w $h $t $c $name"
+ else
+ printf '%s\n' "$buffer" |while read -r l; do
+ [ "$l" ] && printf '%i %s\n' "$al" "$l"
+ done
+ al="$length"
+ buffer="$length $w $h $t $c $name"
+ fi
+ ln="$name"
+ done \
+ | sort -s -n -k1,1 |sed -E 's;^[0-9]+\t;;;' \
+ | sed -E '
+ s;^([^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t)\r([0-9A-Za-z:=]{16}) ([^ ]+)$;\1\3\r\t\2;; t;
+ :X s;^([^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^\t]+\t[^\r]*)\r([^ ]*) ([^ ]+)( .*)?$;\1\3\2\4;; tX
+ '
+ elif [ $ORDER = Length ]; then
+ sort -sn -k1
+ elif [ $ORDER = Date ]; then
+ while read -r fm; do
+ fn="${fm%${CR} *}"
+ fn="$(list_fullname "${fn##* }")"
+ printf '%i %s\n' \
+ "$(stat -c %Y "$fn")" "${fm}"
+ done \
+ | sort -srn -k1 |sed -E 's;^[0-9]+\t;;;'
+ fi