X-Git-Url: https://iankelling.org/git/?p=small-misc-bash;a=blobdiff_plain;f=ll-function;fp=ll-function;h=c48eceaa1072c58456f7ec9a0a9637ea1c3e2c37;hp=6deb916139e8988c80ef136ace26f2b2f23447b5;hb=b3350aac5ce785f146bd12de3366bda3e25d3961;hpb=f0fb727480e27b66697b300d4046e8148b5623aa

diff --git a/ll-function b/ll-function
index 6deb916..c48ecea 100644
--- a/ll-function
+++ b/ll-function
@@ -15,9 +15,9 @@
 
 
 ll() {
-    case $1 in
-        -h|--help)
-            cat <<'EOF'
+  case $1 in
+    -h|--help)
+      cat <<'EOF'
 usage: ll [ARGS_TO_LS]
 ls -lA with enhanced output
 
@@ -30,88 +30,93 @@ ls -lA with enhanced output
 * remove first line size summary
 
 EOF
-            ;;
-    esac
-    local x y perm line binls sizePadding middle tail size \
-          max_hl_digits hardlinks initial_space hardlink_spacing
-    local max_hl_digits=0
-    local -a lines hl
-    binls=$(type -P ls)
-    local aclchar=false
-    # there's no way to tell if ls uses the acl specifier unless we loop over the data twice
-    # the 11th char is either
-    #  . for selinux context
-    #  + for any other kind of acl
-    #  or blank for no other kind of acl
-    #  I don't want to see this generally.
-    while read -r line; do
-        # if we did want the first line, it would need to be stripped of non-printing chars:
-	#line=${line#$'\E[00m'}
-        # lines like "total 123M", we don't want
-	if [[ ! $line =~ ^total\ [0-9][^\ ]*$ ]]; then
-            lines+=("$line")
-            if ! [[ $line == [-dscbl][-r][-w][-xsS][-r][-w][-xsS][-r][-w][-xtT]* ]]; then
-                hardlinks=
-            else
-                [[ ! ${line:10:1} == " " ]] && aclchar=true
+      ;;
+  esac
+  local x y perm line binls sizePadding middle tail size \
+        max_hl_digits hardlinks initial_space hardlink_spacing
+  local max_hl_digits=0
+  local -a lines hl
+  binls=$(type -P ls)
+  binlslink=$(readlink -f $binls)
+  if [[ $binlslink == */busybox ]]; then
+    $binls -lA "$@"
+    return
+  fi
+  local aclchar=false
+  # there's no way to tell if ls uses the acl specifier unless we loop over the data twice
+  # the 11th char is either
+  #  . for selinux context
+  #  + for any other kind of acl
+  #  or blank for no other kind of acl
+  #  I don't want to see this generally.
+  while read -r line; do
+    # if we did want the first line, it would need to be stripped of non-printing chars:
+    #line=${line#$'\E[00m'}
+    # lines like "total 123M", we don't want
+    if [[ ! $line =~ ^total\ [0-9][^\ ]*$ ]]; then
+      lines+=("$line")
+      if ! [[ $line == [-dscbl][-r][-w][-xsS][-r][-w][-xsS][-r][-w][-xtT]* ]]; then
+        hardlinks=
+      else
+        [[ ! ${line:10:1} == " " ]] && aclchar=true
 
-                # we also need to parse the hardlinks on the first pass, because for
-                # example ls could see the highest count as 11, and thus use 3
-                # places for hardlinks, " 10", but then we use 9 or 8 for a more
-                # useful count, and would then use 2 places. So we have to look
-                # through them all because we can't rely on the spacing that ls
-                # decided on.
-                y="${line:11}"
-                initial_space="${y%%[![:space:]]*}"
-                hardlinks="${y#$initial_space}" # remove any initial spaces
-                hardlinks="${hardlinks%%[[:space:]]*}" # remove everything beyond first word
-                # ignore the hardlinks that files/dirs always have
-                hardlinks=$(( hardlinks - 1 ))
-                [[ $hardlinks == 0 ]] && hardlinks=
-                if (( ${#hardlinks} > max_hl_digits )); then
-                    max_hl_digits=${#hardlinks}
-                fi
-            fi
-            hl+=("$hardlinks")
+        # we also need to parse the hardlinks on the first pass, because for
+        # example ls could see the highest count as 11, and thus use 3
+        # places for hardlinks, " 10", but then we use 9 or 8 for a more
+        # useful count, and would then use 2 places. So we have to look
+        # through them all because we can't rely on the spacing that ls
+        # decided on.
+        y="${line:11}"
+        initial_space="${y%%[![:space:]]*}"
+        hardlinks="${y#$initial_space}" # remove any initial spaces
+        hardlinks="${hardlinks%%[[:space:]]*}" # remove everything beyond first word
+        # ignore the hardlinks that files/dirs always have
+        hardlinks=$(( hardlinks - 1 ))
+        [[ $hardlinks == 0 ]] && hardlinks=
+        if (( ${#hardlinks} > max_hl_digits )); then
+          max_hl_digits=${#hardlinks}
         fi
-    done< <( "$binls" -lAh --color=always "--time-style=+%m-%d     %Y
+      fi
+      hl+=("$hardlinks")
+    fi
+  done< <( "$binls" -lAh --color=always "--time-style=+%m-%d     %Y
 %m-%d %I:%M %P" "$@" )
 
-    hardlink_spacing=$((max_hl_digits + 1))
+  hardlink_spacing=$((max_hl_digits + 1))
 
-    for index in "${!lines[@]}"; do
-        line=${lines[index]}
-        hardlinks=${hl[index]}
-        if [[ $line != [-a-zA-Z][-r][-w][-xsS][-r][-w][-xsS][-r][-w][-xtT]* ]]; then
-            # line we don't understand
-	    printf "%s\n" "$line"
-            continue
-	fi
-	perm=0
-	for (( x=0; x<=8; x++ )); do
-	    y=${line:$(( -1*x + 9 )):1}
-	    [[ $y == [tT] ]] && perm=$(( perm + 512 ))
-	    if [[ $y == [sS] ]]; then
-		[[ $x == 3 ]] && perm=$(( perm + 1024 ))
-		[[ $x == 6 ]] && perm=$(( perm + 2048 ))
-	    fi
-	    [[ $y != [-ST] ]] && perm=$(( perm + 2**x ))
-	done
-        if $aclchar; then
-	    y="${line:11}"
-        else
-            y="${line:10}"
-        fi
-	middle=${y#*[^ ]* }
-	size=${middle#*[^ ]* *[^ ]* }
-	middle=${middle%"$size"}
-	tail=${size#*[^ ]* }
-	size=${size%"$tail"}
-	declare -i sizePadding="${#size} - 1"
-	size=( $size ) # remove spaces
-	size=${size/.?/}
-
-	printf "%s%4o%${hardlink_spacing}s%s%${sizePadding}s%s\n" \
-	       "${line:0:1}" $perm "$hardlinks" " $middle" "$size" " $tail"
+  for index in "${!lines[@]}"; do
+    line=${lines[index]}
+    hardlinks=${hl[index]}
+    if [[ $line != [-a-zA-Z][-r][-w][-xsS][-r][-w][-xsS][-r][-w][-xtT]* ]]; then
+      # line we don't understand
+      printf "%s\n" "$line"
+      continue
+    fi
+    perm=0
+    for (( x=0; x<=8; x++ )); do
+      y=${line:$(( -1*x + 9 )):1}
+      [[ $y == [tT] ]] && perm=$(( perm + 512 ))
+      if [[ $y == [sS] ]]; then
+	[[ $x == 3 ]] && perm=$(( perm + 1024 ))
+	[[ $x == 6 ]] && perm=$(( perm + 2048 ))
+      fi
+      [[ $y != [-ST] ]] && perm=$(( perm + 2**x ))
     done
+    if $aclchar; then
+      y="${line:11}"
+    else
+      y="${line:10}"
+    fi
+    middle=${y#*[^ ]* }
+    size=${middle#*[^ ]* *[^ ]* }
+    middle=${middle%"$size"}
+    tail=${size#*[^ ]* }
+    size=${size%"$tail"}
+    declare -i sizePadding="${#size} - 1"
+    size=( $size ) # remove spaces
+    size=${size/.?/}
+
+    printf "%s%4o%${hardlink_spacing}s%s%${sizePadding}s%s\n" \
+	   "${line:0:1}" $perm "$hardlinks" " $middle" "$size" " $tail"
+  done
 }