tools/cmpl/shlib/param.shlib

   1 #!/bin/bash
   2 ############################################################
   3 # source: param.shlib
   4 # author: CottonCandyOwner(CottonCandyOwner@126.com)
   5 # date: 2024-09-01
   6 ############################################################
   7 # Copyright (C) 2024- Free Software Foundation, Inc.
   8 # This script is free software; the author gives unlimited permission to copy,
   9 # distribute and modify it.
  10 ############################################################
  11 # note:
  12 #     this file is the supporting libarary for imi file loading.
  13 #
  14 ############################################################
  15
  16
  17 ############################################################
  18 # general
  19 GENERAL_RE="\.*"
  20 BLANK_RE="[[:blank:]]*"
  21 CMNT_RE='[[:blank:]]*#.*$'
  22 NL_RE='\r?\n'
  23
  24 ###########################################################
  25 # share var str
  26 QSTR_RE="[\']([^\']*)[\']"
  27 RQSTR_RE="[\`]([^\`]*)[\`]"
  28 ENVAR_RE="([\$][{(][(]?[^})]*[)]?[})])|([\$][[:alnum:]_]+)"
  29 WSTR_RE="([^\`\"\'\$\(\)\r\ \n]([^\`\"\'\$\ \r\n\)]|([\\\\].))*)"
  30
  31 QWSTR_RE="([^\`\\\$\"]|([\\\\].)|\n)*"
  32 DQSTR_RE="[\"]((${QWSTR_RE})|(${RQSTR_RE})|(${ENVAR_RE}))*[\"]"
  33
  34 SHSTR_RE="((${DQSTR_RE})|(${QSTR_RE})|(${ENVAR_RE})|(${RQSTR_RE})|(${WSTR_RE}))+"
  35
  36
  37
  38 ###########################################################
  39 # var assignment
  40 VASN_RE="(([[:alnum:]_:]*)[\(]?[[:alnum:]_:,]*[\)]?[[:blank:]]+)?([[:alnum:]_:^$]*([\$][\{\(][^\}\)]+[\}\)][[:alnum:]_:^\$]*)*[\x5d|\[|[:alnum:]|_|:^$]*)([+]?=)"
  41
  42 GEN_VAR_LIST="eval VNAME_LIST=\"\\\\\"\\\\\$VNAME_LIST\\\\\"\\\\\$'\\\\n'\\\\\"\$imivname\\\\\"\";"
  43
  44 VASN_OUTSTR=": \$((j++));\n i=0;\n imicmd=\"\2\";\n imicmdopt=\"\1\";\n imivname=\"\3\";\n imiopr=\"\5\";\n ${GEN_VAR_LIST}\n"
  45 OUTFMT_STR="\n imivalstr=\1;\n \$vonenvset \"\$imicmd\" \"\$imicmdopt\" \"\$imivname\" \"\$imiopr\" \"\$imivalstr\" ;\n\x01"
  46
  47
  48
  49
  50 ###########################################################
  51 # elem
  52 ELEMSTR_RE="(\[([[:alnum:]_]*)\]=)?(($SHSTR_RE)(([[:space:]]+)|($)|(${CMNT_RE})))"
  53 ELEMSTR_OUTSTR="\n idx=\3;\n export \${imivname}__a_\${idx:-\$((i++))}=\5;\n"
  54 ELEMEND_OUTSTR="eval \${imivname}=\"\\\\\"\\\\\${\${imivname}__a_0}\\\\\"\";\n unset \${imivname}__a_0;\n \$vonarrset \$imivname $i;\n\x01"
  55
  56
  57
  58 __envset ()
  59 {
  60     eval local vname=$3
  61     local valstr="$5"
  62
  63     test "$4" = '+=' && eval $vname="\"\${$3}\$valstr\"" && return $?
  64     eval $vname="\"\$valstr\""
  65     return $?
  66 }
  67
  68 __arrset ()
  69 {
  70 # pause data "__arrset $@:" >&2
  71     :
  72 }
  73
  74 envset ()
  75 {
  76     local data
  77 #    pause data "envset $@:" >&2
  78
  79     __envset "$@"
  80
  81     eval echo "$3=\${$3}"
  82 }
  83
  84 arrset ()
  85 {
  86     local idx=1
  87     local data
  88     pause data "arrset $@:" >&2
  89
  90     __arrset "$@"
  91
  92     # todo: array display
  93     while read data; do
  94         eval echo "$data=\" \${$data}\""
  95     done << EOF
  96 $(set | sed -nE "s/^($1[[:alnum:]_]*)=.*$/\1/p")
  97 EOF
  98 }
  99
 100 vonenvset=__envset
 101 vonarrset=__arrset
 102
 103
 104
 105
 106 IMI_RE="
 107 /^${CMNT_RE}/{
 108     # cmnt-tag
 109     s/#+[[:blank:]]*[\<](.*)[\>][[:blank:]]*:[[:blank:]]*(.*)/\n\1='\2';\n/g; Tnext1;
 110     p; b;
 111 :next1
 112     s/#+[[:blank:]]*[\(](.*)[\)][[:blank:]]*=[[:blank:]]*(.*)/\ncmntag \1 \2;\n/g; Tnext2;
 113     p; b;
 114 :next2
 115     s/#+(.*)$//g;
 116     b
 117 }
 118 #    s/[\r]$//g;
 119     /^${BLANK_RE}[\r]?$/{ d; b; }
 120 s/${VASN_RE}/${VASN_OUTSTR}=/; Tend;
 121 /\n=\(/{
 122 :newln;
 123     s/\n=\([[:space:]]*\).*$/${ELEMEND_OUTSTR}/; telemend;
 124     s/\n=\([[:space:]]*(${ELEMSTR_RE})/${ELEMSTR_OUTSTR}\n=\(/;telemproc;
 125     N; bnewln;
 126 :elemproc;
 127     bnewln;
 128 :elemend;
 129     p
 130     b
 131 }
 132 :getval;
 133 s/\n=(${SHSTR_RE})(([[:space:]]+)|($)|(${CMNT_RE}))/${OUTFMT_STR}/;tproc;
 134 N; bgetval;
 135 :proc;
 136 p
 137 b
 138 :end;"
 139
 140 onImiOpen ()
 141 {
 142     j=0
 143     VNAME_LIST=
 144 #    echo "open($@)"
 145 }
 146
 147
 148
 149 vonEvlStr="eval echo \"\${vname}_EVL=\\\"\\\${\${vname}}\\\"\" >&2"
 150 vonEvl="$vonEvlStr"
 151 vonEvl=
 152
 153 onImiClose ()
 154 {
 155     local vname=
 156
 157     echo "close($@)"
 158
 159     while read vname; do
 160         test -z $vname && continue
 161         eval eval "$vname=\"\\\"\${${vname}_EVL}\\\"\""
 162         eval "$vonEvl"
 163     done << EOF
 164 $(echo "$VNAME_LIST" | sed -nE "s/^(.*)_EVL$/\1/p")
 165 EOF
 166 }
 167
 168 vonImiOpen=onImiOpen
 169 vonImiClose=onImiClose
 170
 171 __iredir_open ()
 172 {
 173     local pid=$$
 174
 175     redir_pipe_nest_lvl=${redir_pipe_nest_lvl:-0}
 176     if [[ ! -e "/tmp/fifo/$pid/$redir_pipe_nest_lvl" ]]; then
 177         : $((redir_pipe_nest_lvl++))
 178         mkdir -p /tmp/fifo/$pid
 179         mknod /tmp/fifo/$pid/$redir_pipe_nest_lvl p
 180     fi
 181     fpipe="/tmp/fifo/$pid/$redir_pipe_nest_lvl"
 182 }
 183
 184 __iredir_close ()
 185 {
 186     rm $fpipe
 187     fpipe=
 188 }
 189
 190 cmd2pipe ()
 191 {
 192     test ! -p $fpipe && echo "no valid pipe ($fpipe)." && exit
 193     # add prefix of timeout to avoid long time running.
 194     $@ 2>/dev/null > $fpipe &
 195 }
 196
 197 catfiles ()
 198 {
 199     for file in $@; do
 200         test ! -e $file && continue
 201         echo -ne "$vonImiOpen $file\n\x01"
 202         cat $file | sed -nE "$IMI_RE"
 203         echo -ne "$vonImiClose $file\n\x01"
 204     done
 205 }
 206
 207 # fsyntax: imiload <file>
 208 imiload ()
 209 {
 210     __iredir_open 2>/dev/null
 211
 212     cmd2pipe catfiles $@ 2>/dev/null
 213
 214     vonenvset=__envset
 215     vonarrset=__arrset
 216
 217     j=0
 218     VNAME_LIST=
 219     if test "$1" = "-d"; then
 220         vonenvset=envset
 221         vonarrset=arrset
 222         shift
 223         while read -d $'\x01' -r data; do
 224             echo "data=$data";
 225             eval "${data}"
 226 #            test $j = 5 && __iredir_close 2>/dev/null && return 0
 227         done < $fpipe # 2>/dev/null
 228     else
 229         while read -d $'\x01' -r data; do
 230             eval "${data}"
 231         done < $fpipe # 2>/dev/null
 232     fi
 233     __iredir_close 2>/dev/null
 234 }
 235
 236
 237
 238
 239
 240
 241
 242
 243 f_ttyout=$(tty)
 244
 245 vch_ttyout=125
 246 eval "exec $vch_ttyout<>$f_ttyout"
 247
 248 pause ()
 249 {
 250         echo -ne "$2" >&vch_ttyout
 251
 252         OLD_IFS=$IFS
 253         IFS=$'\n'
 254         read -u $vch_ttyout -r $1
 255         IFS=$OLD_IFS
 256         [[ -n $3 ]] && [[ -z ${!1} || ${!1} == $'\n' ]] && $1=$3
 257 }