( http://ix.io/2E0q )
++ BEGINFILE oo.x7yz.3
root@boost:~# cd x7yz
root@boost:~/x7yz# ls
+al +kw KWS kwp oo.x7yz.2 x7yz
root@boost:~/x7yz# . x7yz
root@boost:~/x7yz# +al
bash: syntax error near unexpected token `;'
root@boost:~/x7yz# bash -- +al
root@boost:~/x7yz#
-- ENDFILE oo.x7yz.3 -=| 224 chars 28 words 8 lines
++ BEGINFILE x7yz
#!/bin/bash
self=${BASH_SOURCE##/*} self=${self+$PWD/$self} self=${self:-$BASH_SOURCE} \
dir=${self%/*} ; cd "$dir"
shopt -s extglob globstar expand_aliases
aal=( +al KWS +kw kwp )
. -- +al
-- ENDFILE x7yz -=| 190 chars 23 words 6 lines
++ BEGINFILE +al
aalres=( ) aalt=
for caali in ${!aal[@]} ; do
aalres[caali]=$(
printf %s "${aal[caali]}="
if [[ -f ${aalt:=${aald[caali]:-${aal[caali]}}} ]] ; then
exec cat -- "$aalt"
else
printf -- %s "$aalt"
fi
) aalt=
done
[[ -v aalres[0] ]] &&
alias -- "${aalres[@]}";
-- ENDFILE +al -=| 275 chars 41 words 13 lines
++ BEGINFILE KWS
kwids=-1 SUBSEP=$'\035'
declare -A KWS
declare -n ckwpe='KWS["${__K}kw$SUBSET$ckwp"]' ;
-- ENDFILE KWS -=| 89 chars 9 words 3 lines
++ BEGINFILE +kw
__K="$kws$SUBSEP$(( ++kwids ))$SUBSEP" KWS["$__K,takes"]=$akwt oI=$IFS
IFS=$'\n' KWS["$__K,code"]="${akwc[*]}" IFS=$oI
for cakw in "${akw[@]}" ; do KWS["$__K,kw,$cakw"]=$kwids ; done ;
-- ENDFILE +kw -=| 186 chars 18 words 2 lines
++ BEGINFILE kwp
for ckwp in "${kwp[@]}" ; do eval -- "${ckwpe:-}" ; done ;
-- ENDFILE kwp -=| 61 chars 12 words 2 lines
-- END of 6 pastes ( 1025 chars 131 words 34 lines
