Re: request for feedback: bashlink2: links files content by file path as bash features such as functions and vars

[ikhxcsz7y xmbott]

im sorry i didnt include the meaningful tgz .. here it is
sorry, thank you, ..

On Wed, Jul 21, 2021 at 2:03 PM Alex fxmbsw7 Ratchev <fxmbsw7@gmail.com>
wrote:

> so i wrote a more or less simple piece of thing, somewhen when i write
> my httpd again to be on there, so anyway public domain open source
> the content of the files 'doc' 'xbl.bash' and bin/xbl.gawk follow
>
> -- doc --
>
> this is another attempt to explain this includes system
>
> an, public domain open source, coding facility
>
> it, checks for files in supported dirs under specified dirs, and binds
> them to bash runtime via bash code according to their
> which-supported-dir they're in
>
> this is done in three parts, one major bash session in which it
> searches for files, filters dirs out, and passes them via stdin null
> separated to g\awk, which reads em and processes em, and makes in the
> END the bash code sourced by the main first bash instance
>
> supported are
>
> eval1/*   to instantly as read\recieved executed ( printed by gawk
> firstly, the content of the files, without mods ) - the rest is
> computed to be printed at end of gawk reading the each projects files
> separately ..
>
> set/{on,off}   set on or off set opts ( set +off -on )
> shopt/{on,off} set on or off shopt opts ( shopt -u off ; shopt -s on )
>
> declare/-*/*[/*]   } ( declare -* *=<content> )
> declare/*/*         } declare vars, no - means dont use declare for
> 'direct' var assigning code
> declare/*          } ( *=<content> ; <arr>[element]=<content> )
>
> alias/*   define aliases ( alias -- *=<content> )
> function/*   define as function, ( *() { <content> \n } )
>
> keyword/*   define assoc array eval elements
> override/keyword/{kwns,code,takes,kws}/*   more complex override
> values for the keywords, than just the content
>
> eval2/*   eval'ed at end of all this
>
> bin/   when available will be linked into PATH
>
> so.. you place a function/foo with the content 'echo bar', after the
> bash part runs ( via bash or source ) foo() { echo bar; } will be
> available
> plz check if your editor ends files with newline, important when
> defining aliases or variables, to have such off
>
> inside extra/ there are a very few things, 'demo' and 'skel_full' in
> particular, the demo defines few basics stuffs and runs en at the end,
> the full skel is all dirs supported without files in
>
> cd bashlink2
> bash xbl.bash extra/demo
> cat extra/demo/eval2/5.the_demo
> --
> declare -p arrtest assoctest vartest
> altest functest
> kws ae1 ae3
> bintest
> declare -p PATH
> --
> welcome to xmb ware
> declare -a arrtest=([0]="success" [1]="second arr element content")
> declare -A assoctest=([one/element/test]="success assoc array content" )
> declare -- vartest="var content success"
> aliases work
> functions work
> success via kws
> success again via assoc keywords
> binaries also work
> declare -x
> PATH="/root/ogt/sbin:/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/root/ogt/bin:/root/bashlink2/bin:/root/bashlink2/extra/demo/bin"
> byyee
> --
>
> it supports few runtime modes, in default it normally processes each
> arg as a project root tree, to look for supported dirs in, then bind
> them
> ran with xblp= ( p for print ) it prints what it would source\eval
> with xblp= and xblf= ( f for files ) gawk prints outs the files
> instead of processing
>
> xblpe=<code> ( pe for pre eval ) code to eval before processing
> everything at all
> xble=<code> ( e for eval ) code to eval in the end
>
> bash xbl.bash # run xmb bashlink[2] with only itselfs stuff, no other
> project trees
> . xbl.bash # source it in current bash shell session instead of new one
>
> # todo: prompt modement as it used to be
>
> # request for feedback
>
> peace, xmb <onlygoodtext@gmail.com>, +41 78 929 27 10
>
>
> -- bash part xbl.bash --
>
> #!/bin/bash
>
> rhere=$( realpath "$BASH_SOURCE" )
> [[ $rhere ]] && rheredir=${rhere%/*} ||
> here=${BASH_SOURCE##/*} here=${here:+$PWD/$here}
> here=${here:-$BASH_SOURCE} heredir=${here%/*} \
> rhere=$here rheredir=$heredir \
> supported='@(eval[12]|set|shopt|declare|alias|function|override)'
> #exclude='!(.@(off|xbloff?(.*)|sw[a-z])'
>
> shopt -s nullglob dotglob globstar extglob expand_aliases
>
> set -- "$rheredir" "$@"
>
> [[ -v xblpe ]] && eval -- "$xblpe"
>
> ${xblp+${ye=}cat} ${ye-.} <(
> for project ; do
>  [[ ! -d $project ]] && continue
>  project=$( realpath "$project" )
>   if [[ -v xblf ]] ; then
>    tr \\0 \\n
>   else
>    [[ -d "$project"/bin ]] && xblm="mkPATH
> '${project//\'/\'\\\'\'}'"/bin || xblm=
>    gawk ${xgp+-W profile} -v xblm="$xblm" -f "$rheredir"/bin/xbl.gawk
>   fi < <(
>    files=( ) ; declare -A dirs=( )
>    for dir in "$project"/$supported/**/ ; do
>     dirs[${dir%/}]=
>    done
>    for all in "$project"/$supported/**/* ; do
>     [[ ! -v dirs[${all%/}] ]] && files+=( "$all" )
>    done
>    printf %s\\0 "$project" "${files[@]}"
>  )
> done
> )
>
> [[ -v xble ]] &&
>  eval -- "$xble"
>
>
>
> -- gawk part bin/xbl.gawk --
>
> #!/usr/bin/gawk -f
>
> BEGIN {
>  RS = "\0"
>  FS = "/+"
>  ORS = "\n\n"
>  OFS = " "
>
>  exclude = "^(.*\\.(sw[a-z]|off|xbloff.*))$"
>
>  getline base
>  gsub( /./, "[&]", base )
>
>  e = split( "eval1 set shopt declare alias function override keyword
> eval2", sup, " " )
>  while ( ++i <= e ) supported[sup[i]]
>
>  set__["on"] = "-"
>  set__["off"] = "+"
> }
>
> {
>  if ( $0 ~ exclude ) next
>  if ( /\/\// ) gsub( "//+", "/" )
>  if ( ( origfile = $0 ) ~ /\/$/ ) { dir[ $0 ] ; next }
>  file[++_file] = $0
> }
>
> function cat( f  ,r,t ) {
>  while ( getline t <f ) r = r t RT
>  close( f )
>  return r
> }
>
> function q( s, ss ) {
>  gsub( "'", "'\\''", s )
>  if ( ss ) return "'" s "'"
>  else return s
> }
>
> function override_(   which,kw,kk,kkk,n ) {
>  if ( $1 != "keyword" ) return
>  sub( "[^/]+/", "" )
>  which = $1
>  sub( "[^/]+/", "" )
>  kw = $0
>  if ( which == "kws" ) {
>   split( a["c"] , kkk , "\0" )
>   while ( ++n in kkk ) kk = kk q( kkk[n], 1 ) " "
>   a["c"] = kk
>  } else if ( which == "code" ) k[kw] = a["c"]
>  o[kw, which] = a["c"]
> }
>
> function keyword_() {
>  s["kw"]++
>  k[$0] = a["c"]
> }
>
> function declare_( t,v,e ) {
>  if ( $1 ~ "^-" ) { t = $1 ; sub( "[^/]+/", "" ); ++_dec }
>  if ( NF > 1 ) {
>   e = gensub( "[^/]+/(.*)", "\\1", 1 )
>   if ( t ) dec_[t, ++dec__[t]] = $1 "[" q( e, 1 ) "]=" q( a["c"], 1 )
>   else dec = dec $1 "[" ( (e ~ /^[0-9]+$/) ? q( e, 0 ) : q( e, 1 ) )
> "]=" q( a["c"], 1 ) " "
>  } else if ( t )
>   dec_[t, ++dec__[t]] = $1 "=" q( a["c"], 1 ) ""
>  else
>   dec = dec $1 "=" q( a["c"], 1 ) " "
> }
>
> function eval1_() {
>  res = res a["c"] ORS
> }
>
> function eval2_() {
>  eval2 = eval2 a["c"] ORS
> }
>
> function function_() {
>  func_ = func_ a["t"] "() { " a["c"] "\n}" ORS
> }
>
> function alias_() {
>  al = al a["t"] "=" q( a["c"], 1 )  " "
> }
>
> function set_() {
>  $0 = a["t"]
>  if ( $1 in set__ ) _set = _set set__[$1] $2 " "
> }
>
> function shopt_() {
>  $0 = a["t"]
>  if ( $1 == "on" ) shopt_on = shopt_on $2 " "
>  else if ( $1 == "off" ) shopt_off = shopt_off $2 " "
> }
>
> END { i = 0
>  while ( ++i <= _file ) {
>   if ( ( file[i] "/" ) in dir ) continue
>   $0 = origfile = file[i]
>
>   sub( "^" base "/", "" )
>   if ( ! ( $1 in supported ) ) continue
>   E = $1 "_"
>   sub( "[^/]+/", "" )
>   a["t"] = $0
>   a["c"] = cat( origfile )
>
>   @E()
>  }
>
>  if ( _set != "" ) res = res "set " _set ORS
>  if ( shopt_on ) res = res "shopt -s " shopt_on ORS
>  if ( shopt_off ) res = res "shopt -u " shopt_off ORS
>  if ( _dec ) {
>   for ( r in dec__ ) {
>    res = res "declare " r " "
>    i = 0 ; while ( ++i <= dec__[r] ) res = res dec_[r, i] " "
>    res = res ORS
>   }
>  }
>  if ( dec != "" ) res = res dec ORS
>  if ( al != "" ) res = res "alias -- " al ORS
>  if ( func_ != "" ) res = res func_
>  if ( s["kw"] > 0 ) {
>   for (kw in k) {
>    if ( ( ( t=kwSUBSEP"kwns") in o ) ) kws = kws "kwns=" q( o[t], 1 ) " "
>    kws = kws "takes=" q( o[kw,"takes"], 1 ) " "
>    kws = kws "code=" q( ( (t=kw SUBSEP"code") in o ) ? o[t] : k[kw] , 1 )
> " "
>    kws = kws "+kw " ( ( ( t=kw SUBSEP "kws" ) in o ) ? o[t] : q( kw, 1 ) )
>    kws = kws ORS
>   }
>   res = res kws
>  }
>  if ( xblm != "" ) res = res xblm ORS
>  if ( eval2 != "" ) res = res eval2 ORS
>
>  if ( res != "" ) { printf "%s", res; fflush() }
>  exit(0)
> }
>
>
> -- end -- i hope for at least one comment :pp
>
>

bashlink2.tgz
Description: application/compressed-tar