X-Git-Url: http://git.plutz.net/?a=blobdiff_plain;f=list.sh;h=8e46ab3b52e58642af7218a28b8f119d0ce7ce8a;hb=10ea76be79908484f2b93368c3a908bc6df9709d;hp=b941aa7f246d32a3a9e5ff09c0ee509e9ebd2b30;hpb=dc87e96cca26d95b5b1befa8ba8283ae98e5ecf2;p=serve0

diff --git a/list.sh b/list.sh
index b941aa7..8e46ab3 100644
--- a/list.sh
+++ b/list.sh
@@ -87,35 +87,23 @@ list_filter(){
   fi
 }
 
-groupmatch(){
-  if [ ${#1} -gt ${#2} ]; then
-    long="$1" short="$2"
-  else
-    long="$2" short="$1"
-  fi
-  # com="$(expr substr "$long" 1 $((${#long} * 3 / 4)))"
-  com="$(expr substr "$long" 1 $((${#long} - 3)))"
-  cut="${short#$com}"
-  if [ ${#cut} -lt ${#short} ]; then
-    return 0
-  else
-    return 1
-  fi
-}
-
 list_order(){
   local fm fn fn al length ln h w t c name buffer l
 
   if [ $ORDER = Name ]; then
     sort -k6 |sed 's;^;metashort\t;;'
   elif [ $ORDER = Group ]; then
-    { sort -k6; echo '0 0 0 tags= comment= _'; } \
+    sed -E '
+      :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|[0-9]+\+?)(.*)$;\1\r\3 \2;;
+      tX;' \
+    | { sort -n -k7 |sort -s -k6,6; echo '0 0 0 tags= comment= _'; } \
     | while read -r length h w t c name; do
-      if groupmatch "$ln" "$name"; then
+      if [ "${ln%% *}" = "${name%% *}" ]; then
         al=$((al + length))
         buffer="${buffer}${BR}$length	$h	$w	$t	$c	$name"
       else
-	printf %s\\n "$buffer" |while read -r l; do
+	printf '%s\n' "$buffer" |while read -r l; do
           [ "$l" ] && printf '%s	%s\n' "$al" "$l"
         done
         al="$length"
@@ -123,7 +111,8 @@ list_order(){
       fi
       ln="$name"
     done \
-    | sort -sn -k1 |sed -r 's;^[0-9]+\t;metashort\t;;'
+    | sort -s -n -k1 |sed -r 's;^[0-9]+\t;metashort\t;;' \
+    | sed -E ':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 |sed 's;^;metashort\t;;'
   elif [ $ORDER = Date ]; then