tonydamage/nux-env
1
1
Fork 0
mirror of https://github.com/tonydamage/nux-env.git synced 2025-12-11 13:24:28 +01:00
Code Issues 19 Releases Wiki Activity

Added basic DSL support library.

Browse source 
Signed-off-by: Tony Tkacik <tonydamage@gmail.com>
This commit is contained in:
Tony Tkáčik 2017-06-10 18:44:26 +02:00
parent 0365b413ab
commit 25befb4281
2 changed files with 168 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
inc/nux-base.inc.sh
View file

@ -50,6 +50,11 @@ function nux.echo.warning {
echo -e "${NC_warning}$* ${NC_No}";
}
function nux.use {
local incfile="$1.inc.sh"
source "$NUX_INC_DIR/$incfile"
}
function nux.include {
local incfile="$1.inc.sh"
@ -60,3 +65,7 @@ function nux.check.function {
declare -f "$1" &>/dev/null && return 0
return 1
}
function nux.check.file.exists {
test -e "$1" -o -h "$1";
}

159
inc/nux.dsl.inc.sh Normal file
View file

@ -0,0 +1,159 @@
function nux.dsl.block.type {
echo ${DSL_BLOCK_TYPE[${#DSL_BLOCK_TYPE[@]}-1]}
}
function nux.dsl.block.id {
echo ${DSL_BLOCK_ID[${#DSL_BLOCK_ID[@]}-1]}
}
function nux.dsl.block.path {
echo ${DSL_BLOCK_PATH[${#DSL_BLOCK_PATH[@]}-1]}
}
function nux.dsl.block.pop {
unset DSL_BLOCK_TYPE[${#DSL_BLOCK_TYPE[@]}-1]
unset DSL_BLOCK_ID[${#DSL_BLOCK_ID[@]}-1]
unset DSL_BLOCK_PATH[${#DSL_BLOCK_PATH[@]}-1]
}
function nux.dsl.block.init {
DSL_BLOCK_TYPE[${#DSL_BLOCK_TYPE[@]}]="root"
DSL_BLOCK_ID[${#DSL_BLOCK_ID[@]}]="."
DSL_BLOCK_PATH[${#DSL_BLOCK_PATH[@]}]=".";
}
function nux.dsl.block.push {
local btype="$1"
local value="$2"
local parent=$(nux.dsl.block.path)
nux.log trace "Pushing $NC_White$btype '$value'$NC_No on stack."
DSL_BLOCK_TYPE[${#DSL_BLOCK_TYPE[@]}]="$btype"
DSL_BLOCK_ID[${#DSL_BLOCK_ID[@]}]="$value"
DSL_BLOCK_PATH[${#DSL_BLOCK_PATH[@]}]="$parent/$value";
}
function nux.dsl.error {
local tag="$1"; shift;
nux.echo.error "$tag"$NC_No: $*;
}
function nux.dsl.warning {
local tag="$1"; shift;
nux.echo.warning "$1"$NC_No: $*;
}
function nux.dsl.info {
local tag="$1"; shift;
echo -e $NC_White"$1"$NC_No: $*;
}
function nux.dsl.keyword.exec {
local func="$1";
local keyword="$2";
local FUNC_NAME=$keyword$func;
local DEFAULT_NAME=$func;
shift; shift;
if nux.check.function $FUNC_NAME; then
nux.log trace Executing: $NC_White$FUNC_NAME$NC_No "$@";
$FUNC_NAME "$@";
return;
elif nux.check.function $DEFAULT_NAME; then
nux.log trace Executing: $NC_White$DEFAULT_NAME$NC_No "$@";
$DEFAULT_NAME "$@";
return;
fi
}
function nux.dsl.only.subtree {
nux.log debug "Subtree to process: $NC_White$1$NC_No"
nux_dsl_only_subtree="$1";
}
function nux.dsl.block.start {
parent=$(nux.dsl.block.path);
keyword="$1";
id="$2";
path="$parent/$id";
#nux.log trace Starting Block: "$keyword" ID: "$id" Parent: $parent
#nux.log debug "Skip is: $nux_dsl_skip, test should return $(test -z "$nux_dsl_skip")"
nux.dsl.block.push "$keyword" "$id"
if [[ $path == $nux_dsl_only_subtree* && -z "$nux_dsl_skip" ]]; then
nux.dsl.keyword.exec .preprocess "$keyword" "$@";
if nux.dsl.keyword.exec .check "$keyword" "$@"; then
nux.dsl.keyword.exec .entered "$keyword" "$@"
else
if nux.dsl.keyword.exec .check.recover "$1" "$@"; then
nux.log trace "Successfully recovered for $keyword $id"
else
nux.dsl.keyword.exec .check.failed "$1" "$@";
nux.log trace Skipping children of $NC_White$path$NC_No
nux_dsl_skip="$path"
fi
fi
fi
}
function nux.dsl.block.end {
keyword=$(nux.dsl.block.type)
id=$(nux.dsl.block.id)
path=$(nux.dsl.block.path)
nux.log trace Ending block $NC_White"$keyword" "'$id'"
if [ "$path" = "$nux_dsl_skip" ];then
nux_dsl_skip="";
fi
nux.dsl.block.pop "$1"
if [[ $path == $nux_dsl_only_subtree* ]]; then
nux.dsl.keyword.exec .exited "$keyword" "'$id'"
nux.log trace Ending block $NC_White"$keyword" "'$id'"
fi
}
function nux.dsl.load {
local language=$1
local script=$2
function .entered {
nux.log debug Keyword $NC_White$1$NC_No is noop.
}
function .block.entered {
nux.log debug Keyword $NC_White$1$NC_No is noop.
}
function .check.recover {
return 1
}
function .block {
local keyword="$1"
nux.log trace Defining block named $NCWhite"$keyword"
#FIXME: Add aliasing of binary of same name.
eval """
$keyword() {
nux.dsl.block.start $keyword "\$@";
}
end$keyword() {
nux.dsl.block.end $keyword
}
"""
}
function .keyword {
local keyword="$1"
#FIXME: Add aliasing of binary of same name.
nux.log trace Defining block named $NCWhite"$keyword"
eval """
$keyword() {
nux.dsl.block.start $keyword "\$@";
nux.dsl.block.end $keyword;
}
"""
}
nux.dsl.block.init
$language
}