Re: path PATH

[Ray Andrews <rayandrews@eastlink.ca>]

On 2023-01-27 15:45, scowles@ckhb.org wrote:
>
> as a lurker on the list, i am very grateful that you, ray, persevered 
> through this thread.  if dp(){} has changed since yesterday, would you 
> mind posting your latest version?
>
The guts of it are almost exactly as Bart left it, but my version tarts 
it up a little bit:

A few notes: 'infomsg' is just a colored message, 'echo' is fine. ${cyn} 
is just the color code for cyan, and ${nrm} is the code for 'normal'.  I 
like colored output.  As I have it, the accumulated output goes to a 
variable instead of printing directly but the old code is there too.  
And I've shortened the type-strings to single letters but that's easy to 
cut out if you want.  Oh, and I also truncate at screen width but that's 
also easy to cut out.  I Don't need to see those huge variables full length:

function v () # For 'variables'.
{
     [[ "$1" = '-h' || "$1" = '-s' ]] && \
     {
     infomsg "
List attributes and values of all variables indicated by FILTER.

v ,CSsp [FILTER]

v ,C: SENS: (if FILTER is given).
v ,S: Show only if the value is not hidden.
v ,s: Show only if the value IS hidden.
v ,p: Plain, no color, this is good when the output needs to be sent to 
a file.

FILTER: if given, is a pattern of variable names.  If wildcards are 
given then the argument must be quoted to avoid expansion by the shell.

TYPES: These are condensed from the detailed information you can see 
like this: '$ print ${(t)path}'.  Basic types are capitalized, modifiers 
are in lower case:

S: An ordinary scalar (not an integer or float).
I: An integer.
F: A float ('typeset -F:' decimal display or 'typeset -E': scientific 
display).
A: A normal array.
H: An associative array or 'association' or 'hash' (always 'hideval' as 
well).
e: The variable has been exported to the environment and is thus 
persistent within that terminal -- it will be inherited by subshells.
l: The variable is local to the running function.
t: The variable is 'tied' to another variable (see docs: 'typeset -T').
s: The variable is special to the shell.
r: The variable is read-only (this often goes with 'special').
v: 'hideval': the value of the variable will be hidden -- there are 
things we really don't want to see, like lists of color codes.  This 
tends to go with 'special' and 'hide'.
h: Hide: Used with 'special' (see docs: 'typeset -h').
u: Unique: ??
?: Undefined: For autoloaded parameters not yet loaded (whatever that 
means).
"
return
     }
     local ccolored=( sed -r "s/^(.{6})([^ = ]*)/\1${cyn}\2${nrm}/" )
     local hhidden=( )

     local case='(#i)'
     local width=$(( COLUMNS - 5 ))
     local line=
     typeset -ga VARIABLES=()

     if [[ ${1:0:1} == ',' ]]; then
     for ((i=1; i < ${#1}; i++)); do
     case ${1:$i:1} in
         C ) case= ;; # Enable case sensitive.
         p ) ccolored= ;; # 'plain': no color.
         S ) hhidden=( grep -v ' = !hidden!' ) ;;    # Show only if a 
value is set.
         s ) hhidden=( grep ' = !hidden!' ) ;; # Show only if a value is 
NOT set.
         * ) errormsg "No such switch \",${1:$i:1}\""; return 1 ;;
         esac
     done
     shift
     fi      # End: process ',' switches.

     # If a capital letter is given then force case sensitivity:
     [[ $@ == *[[:upper:]]* ]] && case=

     # Default is all params:
     [ ! "$@" ] && set 1 '*'

     set -- ${(ok)parameters[(I)${case}${~${(j.|.)@}}]}
     while ((ARGC)); do
         # Type eg: 'scalar '
#        print -rn -- "${parameters[$1]} "
         line+="${parameters[$1]} "
         if [[ -${parameters[$1]}- = *-hideval-* ]]
         then
             # Append name and '=-hidden-'
             # If param is hidden, typeset won't show anything so use this:
#            print -r -- ${(q-)1}
             line+="${(q-)1}=!hidden!"
         else
             # Append name and value eg: 'ZSH_VERSION=5.8':
#            typeset -m -- ${(b)1}
             line+=$( typeset -m -- ${(b)1} )
         fi
     VARIABLES+="$line"
     line=
     shift
     done

     echo
     [ ! "$VARIABLES" ] && warningmsg "Nothing found" && return 1

print -rl -- $VARIABLES | sed \
-re "s/(^[^ ]*) ([^=]*)=(.*)/\1   \2 = \3/" \
  -e "s/scalar[ |-]/S/" \
  -e "s/integer[ |-]/I/" \
  -e "s/float[ |-]/F/" \
  -e "s/array[ |-]/A/" \
  -e "s/association[ |-]/H/" \
  -e "s/export[ |-]/e/" \
  -e "s/local[ |-]/l/" \
  -e "s/special[ |-]/s/" \
  -e "s/readonly[ |-]/r/" \
  -e "s/hideval[ |-]/v/" \
  -e "s/hide[ |-]/h/" \
  -e "s/tied[ |-]/t/" \
  -e "s/unique[ |-]/u/" \
  -e "s/undefined[ |-]/?/" \
  -e "s/^([^ ]*)/\1     /" \
  -e "s/^(.{6}) */\1/" \
  -e "s/^(.{1,${width}}).*/\1/" \
  -e "s/^(.{$width})/\1 .../" \
  | ${ccolored:-cat} | ${hhidden:-cat}

} # END: v()

allvars ()
{
     # Name and type:
     print -l -- "\n${cyn}ALL VARIABLES AND THEIR TYPES:${nrm} \n"
     printf "%-25s %s\n" ${(kv)parameters} | sort
     # Types only:
#    printf "%s\n" ${(v)parameters} | sort
}

nullvars ()
{
     # emulate -L zsh -o extendedglob
     nnullvars=()
     for name in ${(k)parameters}; do
         if [[ -z ${(P)name} ]]; then
#        print -r -- $name
             nnullvars+="$name"
         fi
     done

     print -l -- "\n${cyn}NULL VARIABLES:${nrm} \n"
     print -l -- "$nnullvars[@]" | sort
}

... hope you like it!