moved to ./Functions/Example/zls

Functions/Misc/zls

@@ -1,72 +0,0 @@
-# zls () {
-# simple internal ls using the stat module
-
-zmodload -i stat || return 1
-
-emulate -R zsh
-setopt localoptions
-
-local f opts='' L=L mod=: dirs list
-typeset -A stat
-
-dirs=()
-list=()
-
-while getopts ailLFdtuc f
-do
-    opts=$opts$f
-    if [[ $f == '?' ]] then
-	echo Usage: $0 [ -ailLFd ] [ filename ... ]
-	return 1
-    fi
-done
-shift OPTIND-1
-
-[[ $opts == *L* ]] && L=''
-[[ $opts == *F* ]] && mod=T$mod
-[[ $opts == *a* ]] && setopt globdots
-
-local time=mtime tmod=m
-[[ $opts == *u* ]] && time=atime tmod=a
-[[ $opts == *c* ]] && time=ctime tmod=c
-
-if ((! ARGC)) then
-    if [[ $opts = *t* ]]; then
-        set *(o$tmod)
-    else
-        set *
-    fi
-    opts=d$opts
-elif [[ $opts = *t* && $ARGC -gt 1 ]]; then
-    # another glaringly obvious zsh trick:  reorder the argv list
-    # by time, without messing up metacharacters inside
-    local n='$1'
-    for (( f = 2; f <= $ARGC; f++ )); do
-	n="$n|\$$f"
-    done
-    eval "argv=(($n)(o$tmod))"
-fi
-
-for f in $*
-do
-    stat -s$L -H stat -F "%b %e %H:%M" - $f || continue
-    if [[ $opts != *d* && $stat[mode] == d* ]] then
-	dirs=( $dirs $f )
-    elif [[ $opts == *l* ]] then
-	[[ $opts == *i* ]] && print -n "${(l:7:)stat[inode]} "
-	[[ -n $stat[link] ]] && f=( $f '->' $stat[link] ) || f=( $f($mod) )
-	print -r -- "$stat[mode] ${(l:3:)stat[nlink]} ${(r:8:)stat[uid]} " \
-		    "${(r:8:)stat[gid]} ${(l:8:)stat[size]} $stat[$time] $f"
-    else
-	f=( $f($mod) )
-	list=( "$list[@]" "${${(M)opts:%*i*}:+${(l:7:)stat[inode]} }$f" )
-    fi
-done
-(($#list)) && print -cr -- "$list[@]"
-while (($#dirs)) do
-    ((ARGC > $#dirs)) && echo
-    ((ARGC > 1)) && echo $dirs[1]:
-    (cd $dirs[1] && $0 -d$opts)
-    shift dirs
-done
-# }