metascript and printclonedep

will move to metascript

Signed-off-by: philippe lhardy <philippe.lhardy@astrolabe.coop>

.gitignore

@@ -0,0 +1,18 @@
+/home/plhardy/artisanlogiciel/code/artlog_toolbox
+absant.sh
+antify.sh
+daily.sh
+debianize.sh
+doit.sh
+eclipse_env.sh
+Makefile.4.java
+pythonize.sh
+scrumify.sh
+4create.makefile
+4java.makefile
+generate_new.sh
+locate_artlog_toolbox.sh
+refresh_toolbox.sh
+test.txt
+devenv_params
+build/

BUILD.md

@@ -3,7 +3,7 @@
 
 This project was done in java so it requires a java compiler to be build under an executable form.
 
-It is expected you already obtained content of source since you are readeing this BUILD.md
+It is expected you already obtained content of source since you are reading this BUILD.md
 
 within same directory as this BUILD.md :
 

LISEZMOI

@@ -13,13 +13,10 @@ sous windows lancez le laby.bat
 
 il s'agit d'un programme java qui peut aussi être lancé avec l'interpréteur java ainsi :
 
-java -jar artloglaby-1.0.jar
+java -jar artloglaby-1.2.jar
 
 mail pl@artisanlogiciel.net
 
 vous pouvez le distribuer ou bien même le vendre
 
-ses sources sont sur https://github.com/artlog/labystl
-( et utilise aussi https://github.com/artlog/sharedrawweb )
-
 Les labyrinthes que vous sauvegardez le sont dans le répertoire lab.

README

@@ -1,12 +1,12 @@
 
 This is a personal project to generate a 2D maze using in depth path generation.
 
-Download the 'latest' laby.zip containing java jar from my blog http://blog.artisanlogiciel.net/public/tech/laby.zip
+This can generate a stl file, overall goal was to print it with a 3D printer.
 
-this can generate a stl file, overall goal was to print it with a 3D printer.
 After years i finaly printed one maze, find it at https://www.thingiverse.com/thing:2814655
 
 This is the very first usable part.
+
 It was developped under debian 7/8 but since it is java based it might be very easily recompiled or even just copied on other platform.
 
 There is a console gui menu based with ./doit.sh

clones.dep

@@ -1 +1 @@
-sharedrawweb artlog_toolbox
+sharedrawweb

fetch_dependencies.sh

@@ -1,20 +1,14 @@
 #!/bin/bash
+# SPDX-FileCopyrightText: 2025 artlog@l0g.eu
+# SPDX-License-Identifier: AGPL-3.0-or-later
+# header generated by lib/metascript.sh header
+# metascript_version=v1.0.0
 
-log_any()
+toolsdir=lib
-{
+pushd $toolsdir >/dev/null
-    echo "$@" >&2
+toolsdir=$(pwd)
-}
+source metascript.sh
-
+popd >/dev/null
-log_error()
-{
-    log_any "[ERROR] $@"
-}
-
-log_info()
-{
-    log_any "[INFO] $@"
-}
-
 
 fetch_jackson_databind()
 {
@@ -22,39 +16,61 @@ fetch_jackson_databind()
     if [[ ! -e libs/$lib_jackson_databind ]]
     then
 	jacksonmaven=https://repo1.maven.org/maven2/com/fasterxml/jackson/core/jackson-databind/${libversion_jackson_databind}/$lib_jackson_databind
-	pushd libs
+	$defer pushd libs
-	wget $jacksonmaven
+	$metarun wget $jacksonmaven
-	popd
+	$defer popd
     fi    
 }
 
 fetch_zstd-jni()
 {
 
-    echo "compiled from https://github.com/luben/zstd-jni commit 54d3d50c16d96bd8a30e2d4c0a9648001a52d6f9"
+    # echo "compiled from https://github.com/luben/zstd-jni commit 54d3d50c16d96bd8a30e2d4c0a9648001a52d6f9"
     # had to hack through jar generation ...
     # cp ~/artisanlogiciel/ext_projects/java/zstd-jni/target/zstd-jni-1.5.2-2.jar .
-    pushd libs    
+    $defer pushd libs    
-    wget https://repo1.maven.org/maven2/com/github/luben/zstd-jni/${libversion_zstdjni}/zstd-jni-${libversion_zstdjni}.jar
+    $metarun wget https://repo1.maven.org/maven2/com/github/luben/zstd-jni/${libversion_zstdjni}/zstd-jni-${libversion_zstdjni}.jar
-    popd
+    $defer popd
 }
 
+# HARDCODED START
 libversion_zstdjni=1.5.2-2
 libversion_jackson_databind=2.12.0
-sharedrawweb_git_url="ssh://philippe@www4.artisanlogiciel.net:2023/home/philippe/artisanlogiciel/code/sharedrawweb"
+sharedrawweb_git_url="ssh://git@www4.artisanlogiciel.net:2023/home/git/artisanlogiciel/code/sharedrawweb"
 libversion_artgaphic=0.2.0
+# HARDCODED END
 lib_artgaphic=artgaphics-${libversion_artgaphic}.jar
 
+metarun=metarun
+# change default to sudo if needed
+# metasudo=sudo
 
-if [[ ! -d ../sharedrawweb ]]
+while [[ $# > 0 ]]
+do
+    case "$1" in
+	use_jackson)
+	    use_jackson=$1	    
+	    ;;
+	use_zstd)
+	    use_zstd=1
+	    ;;
+        *)
+           parsemetaarg "$1"
+        ;;
+    esac
+    shift
+done
+
+
+if [[ ! -d sharedrawweb ]]
 then
     log_error "expected a sharedrawweb project parent ( for exports ). Please clone related project."
-    log_info "cd ..; git clone $sharedrawweb_git_url"
+    log_info "git clone $sharedrawweb_git_url sharedrawweb"
 fi
 
 if [[ ! -d libs ]]
 then
-    mkdir libs
+    $metarun mkdir libs
 fi
 
 if [[ ! -e libs/$lib_artgaphic ]]
@@ -63,7 +79,7 @@ then
     if [[ -f $lib_artgaphic_source_file ]]
     then
 	# ../ since libs is one level below current project
-	ln -s ../$lib_artgaphic_source_file libs/
+	$metarun ln -s ../$lib_artgaphic_source_file libs/
     else
 	log_error "Missing $lib_artgaphic_source_file. It is require to build it sharedrawweb project first"
     fi

lib/awk_lib.sh

@@ -0,0 +1,19 @@
+
+awk_inplace() {
+    local awk_script="$1"
+    local file="$2"
+    enforce file "$awk_script" exists
+    enforce file "$file" exists
+    local tmp_file='awkXXXXXXXXXX.out'
+    [[ -z $defer ]] && tmp_file=$(mktemp "$tmp_file")
+    enforcefile "$tmp_file" exists
+    execredirectto $tmp_file awk -f $awk_script $file
+    $metarun cp $tmp_file $file
+    $metarun rm $tmp_file
+
+    # gawk uniquely
+    # if gawk is wanted
+    # $metarun apt install gawk
+
+    # $metarun awk -i inplace -f $awk_script $file
+}

lib/log_functions.sh

@@ -0,0 +1,43 @@
+# SHOULD BE INCLUDED WITH source or . from a bash script
+
+# EXAMPLE
+# log_functions=./log_functions.sh
+# [[ -f $log_functions ]] || { echo "[FATAL] Missing $log_functions" >&2 ; exit 1 ;}
+# source $log_functions
+
+log_any()
+{
+  priority=$1
+  shift
+  echo "[$priority] $@" >&2
+}
+
+log_fatal()
+{
+   log_any FATAL "$*"
+}
+
+log_error()
+{
+   log_any ERROR "$*"
+}
+
+log_warn()
+{
+   log_any WARN "$*"
+}
+
+log_info()
+{
+   log_any INFO "$*"
+}
+
+log_debug()
+{
+    [[ -n $debug ]] && log_any DEBUG "$*"
+}
+
+verbose()
+{
+    [[ -n $verbose ]] && log_any $verbose $@
+}

lib/metascript.sh

@@ -0,0 +1,990 @@
+#!/bin/bash
+# SPDX-FileCopyrightText: 2025 artlog@l0g.eu
+# SPDX-License-Identifier: AGPL-3.0-or-later
+#
+# metascript to include
+#
+# to generate file header for caller script do :
+# bash <relative_path_to>/metascript.sh header
+# ex:
+# bash lib/metascript.sh header
+
+metascript_version=v1.0.0
+
+# if called directly
+if [[ "$0" =~ ^(.*)/metascript.sh$ ]]
+then
+    prefix=${BASH_REMATCH[1]}
+    case $1 in
+	header)
+    cat <<EOF
+#!/bin/bash
+# SPDX-FileCopyrightText: 2025 artlog@l0g.eu
+# SPDX-License-Identifier: AGPL-3.0-or-later
+# header generated by $0 $1
+# metascript_version=$metascript_version
+
+toolsdir=$prefix
+pushd \$toolsdir >/dev/null
+toolsdir=\$(pwd)
+source metascript.sh
+popd >/dev/null
+
+metarun=metarun
+# change default to sudo if needed
+# metasudo=sudo
+
+while [[ \$# > 0 ]]
+do
+    case "\$1" in
+        *)
+           parsemetaarg "\$1"
+        ;;
+    esac
+    shift
+done
+
+usage
+EOF
+    ;;
+	version)
+	    echo $metascript_version
+    ;;
+	*)
+	    echo "[WARNING] only header and version arguments are supported. (prefix=$prefix), this script is intended to be included not to be directly called." >&2
+	    exit 1
+    esac
+    exit 0
+fi
+
+if [[ "$metascript_included" == "yes" ]]
+then
+    log_warn "metascript already included ($0)"
+else
+
+metascript_included=yes
+
+# at this step $(pwd) should be this of metascript.sh
+# while $0 is this of caller script using metascript
+
+if [[ -z $toolsdir ]]
+then
+    # assume all tools are in lib/
+    toolsdir=$(dirname $(readlink -f $0))/lib
+    # all tools resources are relative to this directory
+fi
+
+if [[ -z $log_functions ]]
+then
+    log_functions=$toolsdir/log_functions.sh
+    [[ -f $log_functions ]] || { echo "[FATAL] Missing $log_functions , toolsdir=$toolsdir script=$0" >&2 ; exit 1 ;}
+    source $log_functions
+fi
+
+metascript_usage()
+{
+    cat <<EOF >&2
+metascript commands :
+
+help|usage             help or usage of this {$0} tool. stop after usage display.
+dryrun|show|showdoc    display what should/will be done
+
+defersource=           script file defining defer() non standard function
+defer=                 defer function to use, default is showdoc
+toolsresourcesdir=     where to pick resource
+                       default to parent of script $toolsresourcesdir
+                       mostly used with dryrun
+apply                  default : will actual do work without defer
+EOF
+}
+
+usage()
+{
+    echo "[WARNING} no specific usage function for {$0}, to improve by developer" >&2
+    echo >&2
+    metascript_usage
+}
+
+showinfo()
+{
+    echo "$@"
+}
+
+metarun()
+{
+    $defer $metasudo "$@"
+}
+
+autoquoteargs()
+{
+    echo -n "$1"
+    shift
+    while [[ $# > 0 ]]
+    do
+        if [[ "$1" =~ [\ \$] ]]
+        then
+            echo -n " '$1'"
+        else
+            echo -n " $1"
+        fi
+        shift
+    done
+}
+
+echoarray()
+{
+    declare -a arr=("${@}")
+    declare -i len=${#arr[@]}
+    # Show passed array
+    for ((n = 0; n < len; n++))
+    do
+        echo -en " \"${arr[$n]}\""
+    done
+    echo
+}
+
+deferpipe()
+{
+    cat
+    echo "# <previous line> | $@"
+}
+
+include_source()
+{
+    if [[ -f $1 ]]
+    then
+        source $1
+    else
+        log_fatal "Missing $1 script"
+        exit 1
+    fi    
+}
+
+showdoc()
+{
+    if [[ $1 =~ ^tools/ ]]
+    then
+        # assumes it handles ENV_METASCRIPT_DEFER
+        "$@"
+    else
+        echo '```'
+        autoquoteargs "$@"
+        echo
+        echo '```'
+    fi
+}
+
+redirectto()
+{
+    tofile=$1
+    if [[ -n $defer ]]
+    then
+        echo "Copy to $tofile"
+        echo '```'
+        cat
+        echo '```'
+    else
+        cat > $tofile
+    fi
+}
+
+execredirectfrom()
+{
+    fromfile=$1
+    shift
+    enforcefile "$fromfile" exists
+    if [[ -n $defer ]]
+    then
+        echo '```'
+        autoquoteargs "$@"
+        echo ' < '"$fromfile"
+        echo '```'
+    else
+       "$@" < $fromfile
+    fi
+}
+
+execredirectto()
+{
+    tofile=$1
+    shift
+    if [[ -n $defer ]]
+    then
+        echo '```'
+        autoquoteargs "$@"
+        echo ' > '"$tofile"
+        echo '```'
+    else
+        "$@" > $tofile
+    fi
+}
+
+execredirecttoroot()
+{
+    tofile=$1
+    shift    
+    if [[ -n $defer ]]
+    then
+        echo '```'
+        autoquoteargs "$@"
+        echo ' | sudo tee '"$tofile"' >/dev/null'
+        echo '```'
+    else
+        "$@" | sudo tee $tofile >/dev/null
+    fi
+}
+
+execredirectas_to()
+{
+    while [[ $# > 0 ]]
+    do
+	case $1 in
+	    user=*)
+		if [[ "$1" =~ ^user=([a-z]+[a-z0-9]*)$ ]]
+		then
+		    asuser=${BASH_REMATCH[1]}
+		else
+		    log_fatal "execredirecttouser missing user= in '$@'"
+		    [[ -n $defer ]] || exit 1
+		fi		    
+	    ;;
+	    chroot=*)
+		aschroot=${1/chroot=}
+	    ;;
+	    *)
+		tofile=$1
+		shift
+		break
+	esac
+	shift
+    done
+    local command=()
+    if [[ -n $aschroot ]]
+    then
+	command=(sudo chroot)
+	if [[ -n $asuser ]]
+	then
+	    # no group yet
+	    command+=(--userspec=$asuser:$asuser)
+	fi
+	command+=($aschroot)
+    elif [[ -n $asuser ]]
+    then
+	command=(sudo -u $asuser)
+    fi  
+    command+=(tee $tofile)
+    if [[ -n $defer ]]
+    then
+        echo '```'
+        autoquoteargs "$@"
+        echo ' | '"${command[@]}"' >/dev/null'
+        echo '```'
+    else
+        "$@" | "${command[@]}" >/dev/null
+    fi
+}
+
+
+pipeto()
+{
+    if [[ -n $defer ]]
+    then
+        echo '```'
+        echo -n 'cat << EOF| '
+        autoquoteargs "$@"
+        echo
+        cat
+        echo "EOF"
+        echo '```'
+    else
+        cat | "$@"
+    fi
+}
+
+
+query_ext()
+{
+    local prompt="$1"
+    local var=$2
+
+    if [[ -n $defer ]]
+    then
+        # uppercase it
+        eval $var=${var^^}
+        $defer query $prompt "$(eval echo \$$var)"
+    else
+        echo -ne $prompt
+        read $var
+    fi
+}
+
+# two arguments first prompt, second name of var
+query_password()
+{
+    local prompt="$1"
+    local var=$2
+
+    if [[ -n $defer ]]
+    then
+        # uppercase it
+        eval $var=${var^^}
+        $defer query_password "\"$prompt\"" "$(eval echo \$$var)"
+    else
+        read -sp "$prompt" $var
+        echo
+    fi
+}
+
+# echo yes if reply match  ^[Yy]([eE][sS]|)$ or no if does not match.
+query_yesno()
+{
+    local prompt="$1"
+    local yesno=no
+
+    read -p "$prompt (Yes/No) " yesno
+
+    if [[ $yesno =~ ^[Yy]([eE][sS]|)$ ]]
+    then
+        echo yes
+    else
+        echo no
+    fi
+}
+
+
+# through hardcoded 'secret' variable
+create_secret()
+{
+    # global secret
+    # declare -g secret
+    # export -n secret
+
+    local -i length=$1
+
+    [[ -z $length ]] && length = 32
+
+    if (( length < 8 ))
+    then
+        log_warn "secret length $length < 8. very small"
+    fi
+    # secret=$(echo $RANDOM | md5sum | head -c $length)
+    secret=$(tr -dc A-Za-z0-9 </dev/urandom | head -c $length)
+}
+
+check_missing_dest_dir()
+{
+    local dir=$1
+    if [[ -n $defer  ]]
+    then
+        $defer "create $dir if it does not exist"
+    else
+
+        if [[ ! -d $dir ]]
+        then
+            echo "[ERROR] '$dir' does not exist please create it."
+            exit 1
+        fi
+     fi
+}
+
+sed_substitute_expr()
+{
+    local from="$1"
+    shift
+    local to="$1"
+    shift
+    local s='/'
+    if  [[ $from =~ [\\] ]]
+    then
+# escape char \ should be doubled
+        from=${from//\\/\\\\}
+    fi
+    if [[ $from =~ $s ]]
+    then
+# echo "[ERROR] character $s is prohibited due to sed usage" >&2
+        from=${from//$s/\\$s}
+    fi
+    if [[ $from =~ \[ ]]
+    then
+        from=${from//\[/\\\[}
+    fi
+    if [[ $from =~ \* ]]
+    then
+        from=${from//\*/\\\*}
+    fi
+    if [[ $from =~ ^(.*)\$$ ]]
+    then
+        from=${BASH_REMATCH[1]}'\$'
+    fi
+    if [[ $from =~ ^\^(.*)$ ]]
+    then
+        from='\^'${BASH_REMATCH[1]}
+    fi
+
+    if  [[ $to =~ [\\] ]]
+    then
+# escape char \ should be doubled
+        to=${to//\\/\\\\}
+    fi
+    if  [[ $to =~ $s ]]
+    then
+# echo "[ERROR] character $s is prohibited due to sed usage" >&2
+# echo "This is a limitation of metascript.sh script, replaced by \$s" >&2
+        to=${to//$s/\\$s}
+    fi
+    if  [[ $to =~ [\&] ]]
+    then
+# echo "[ERROR] character & is prohibited due to sed usage" >&2
+        to=${to//\&/\\\&}
+    fi
+
+    # replace it globaly
+    echo "s$s$from$s$to${s}g"
+
+}
+
+sedreplacefromto()
+{
+    local from="$1"
+    local to="$2"
+    shift 2
+    local sedexpr="$1"
+    execredirectto $to sed "$sedexpr" $from
+    shift
+    while [[ $# > 0 ]]
+    do
+        sedexpr="$1"
+        $defer sed -i "$sedexpr" $to
+        shift
+    done
+
+}
+
+replacefromto()
+{
+    local from="$1"
+    local to="$2"
+    shift 2
+    if [[ -n $defer ]]
+    then
+        $defer "replace $@  from '$from' into '$to'"
+    else
+        local sedexpr=$(sed_substitute_expr "$1" "$2")
+        execredirectto $to sed "$sedexpr" $from
+        shift 2
+        while [[ $# > 0 ]]
+        do
+            sedexpr=$(sed_substitute_expr "$1" "$2")
+            $defer sed -i "$sedexpr" $to
+            shift 2
+        done
+    fi
+
+}
+
+sedreplacein()
+{
+    local file=$1
+    shift
+    while [[ $# > 0 ]]
+    do
+        $defer sed -i "$1" $file
+        shift
+    done
+}
+
+replacein()
+{
+    local infile=$1
+    shift
+    if [[ -n $defer ]]
+    then
+        $defer "replace $@ into '$infile'"
+    else
+        while [[ $# > 0 ]]
+        do
+            sedexpr=$(sed_substitute_expr "$1" "$2")
+            $defer sed -i "$sedexpr" $infile
+            shift 2
+        done
+    fi
+}
+
+parsemetaarg()
+{
+    case $1 in
+        apply)
+            defer=
+            ;;
+        defersource=*)
+            defersource=${1/defersource=/}
+            ;;
+        defer=*)
+            defer=${1/defer=/}
+            ;;
+        dryrun|show|showdoc)
+            defer=showdoc
+            ;;
+	debug)
+	    set -ex
+	    ;;
+	metasudo=*)
+	    metasudo=${1/metasudo=}
+	    ;;
+        help|usage)
+            usage
+	    exit 0
+            ;;
+        toolsresourcesdir=*)
+            toolsresourcesdir=${1/toolsresourcesdir=/}
+            ;;
+        scl_enable=*)
+            scl_args=(scl enable ${1/scl_enable=/} --)
+            ;;
+        *)
+            log_error "unrecognized argument '$1'"
+            usage
+            exit 1
+            ;;
+    esac
+}
+
+enforcearg()
+{
+    local var="$1"
+    local default="$2"
+    eval value='$'"$var"
+
+    if [[ -z $value ]]
+    then
+        log_error "{$0} expect '$var' to be set ex $var=$default"
+	if [[ -n $defer ]]
+	then
+	    [[ -z $default ]] && default="DEFAULT"
+	    log_warn "in defer/dryrun force $var=$default"
+	    eval "$var=$default"
+	else
+            usage
+            exit 1
+	fi
+    fi
+}
+
+enforce()
+{
+    objecttype=$1
+    shift
+    case $objecttype in
+	file|dir)
+	    object=$1
+	    shift
+	    constraint=$1
+	    case $constraint in
+		exists|does_not_exist|create_if_needed)
+		    enforce${objecttype} "$object" "$@"
+		    ;;
+		*)
+		    log_error "enforce $objecttype '$object' $@"
+		    log_fatal "constraint '$constraint' unsupported. Please fix the code."
+		    exit 1
+		    ;;
+	    esac		    
+	    ;;
+	var|arg)
+	    enforcearg "$@"
+	    ;;
+	*)
+	    log_error "enforce $objecttype $@"
+	    log_fatal "objectttype $objecttype unsupported"
+	    exit 1
+	    ;;
+    esac
+}
+
+enforcefile()
+{
+    local file="$1"
+    local constraint="$2"
+
+    if [[ ! -f "$file" ]]
+    then
+	case $constraint in
+	     exists)
+		 log_error "Missing expected $file"
+		 [[ -n $defer ]] || exit 1
+		 ;;
+	     create_if_needed)
+		 $metarun touch $file
+		 ;;	     
+        esac
+    else
+        if [[ $constraint = does_not_exist ]]
+        then
+            log_error "'$file' already exists. Move it away"
+            [[ -n $defer ]] || exit 1
+        fi
+    fi
+}
+
+enforcedir()
+{
+    local dir="$1"
+    local constraint="$2"
+
+    if [[ -e $dir ]]
+    then
+	case $constraint in
+	    does_not_exist)
+		if [[ -d "$dir" ]]
+		then
+		    log_error "'$dir' already exists"
+		    [[ -n $defer ]] || exit 1
+		else
+		    log_error "'$dir' already exists and is not a directory as expected"
+                    [[ -n $defer ]] || exit 1
+		fi
+		;;
+	    create_if_needed|exists)
+		if [[ ! -d "$dir" ]]
+		then
+		    log_error "'$dir' already exists and is not a directory as expected"
+                    [[ -n $defer ]] || exit 1
+		fi
+		;;
+	esac
+    else
+	case $constraint in
+	    exists)
+		log_error "Missing expected directory $dir"
+		[[ -n $defer ]] || exit 1
+		;;
+	    create_if_needed)
+		if [[ ! -d "$dir" ]]
+		then
+		    $metarun mkdir -p "$dir"
+		fi
+		;;	     
+        esac
+    fi
+}
+
+applymetaargs()
+{
+    if [[ -n $defer ]]
+    then
+        if [[ -n $defersource ]]
+        then
+            if [[ -f $defersource ]]
+            then
+                log_any "source $defersource"
+                source $defersource
+            else
+                exit_fatal "defersource $defersource provided but not a file"
+            fi
+        fi
+        # $showinfo "generated with $0 $allparms"
+        export ENV_METASCRIPT_DEFER="$defer"
+        export ENV_METASCRIPT_RESOURCESDIR="$toolsresourcesdir"
+    fi
+}
+
+defaultmetainit()
+{
+    while [[ $# > 0 ]]
+    do
+        parsemetaarg "$1"
+        shift
+    done
+
+    applymetaargs
+}
+
+read_organisation()
+{
+    organisation_file=$(find organisation -name '*.conf')
+    if [[ -f $organisation_file ]]
+    then
+        while read line
+        do
+            case $line in
+                name=*)
+                    organisation_name=${line/name=/}
+                    ;;
+                domain=*)
+                    organisation_domain=${line/domain=/}
+                    ;;
+                ldap_base=*)
+                    organisation_ldap_base=${line/ldap_base=/}
+                    ;;
+                image_keyword=*)
+                    organisation_image_keyword=${line/image_keyword=/}
+                    ;;
+                *)
+                    log_warn "'$line' not recognized as an organisation parameter"
+                    ;;
+            esac
+        done < $organisation_file
+    fi
+}
+
+check_variable_match()
+{
+    local var="$1"
+    local match="$2"
+    local default="$3"
+    local value=""
+
+    eval value='$'"$var"
+
+    if [[ -z "$value" ]]
+    then
+        echo "set $var to default value $default"
+        eval "$var=$default"
+        eval value='$'"$var"
+    fi
+
+    if [[ ! $value =~ $match ]]
+    then
+        log_error "$var $value should match $match"
+        exit 1
+    fi
+
+}
+
+check_variable_in()
+{
+    local var="$1"
+    local default="$2"
+    shift 2
+
+    local value=""
+    local values="$@"
+
+    eval value='$'"$var"
+
+    if [[ -z "$value" ]]
+    then
+        echo "set $var to default value $default"
+        eval "$var=$default"
+        eval value='$'"$var"
+    fi
+
+    while [[ $# > 0 ]]
+    do
+        if [[ "$value" = "$1" ]]
+        then
+            return
+        fi
+        shift
+    done
+
+    log_error "'$var' should be within $values it is '$value'"
+    exit 1
+}
+
+check_root()
+{
+    if [[ -n $defer ]]
+    then
+        $defer "{$0} script to run run as root or with sudo"
+    else
+        [[ $EUID -eq 0 ]] || {
+            log_error "{$0}  You have to be root or use sudo to run this script"
+            exit 1;
+        }
+    fi
+}
+
+get_timestamp_second()
+{
+    echo "$(date +"%Y%m%d%H%M%S")"
+}
+
+todo()
+{
+    log_any TODO "$@"
+}
+
+get_resource_var() {
+    local varname="$1"
+    local default_value="$2"
+
+    eval value='$'"$varname"
+    if [[ -z $value ]]
+    then
+	echo "# ($0:metascript.sh:$LINENO) $(date)" >>$collect_context
+	if [[ -z $default_value ]]
+	then
+	    log_error "resource $varname does not exists and no non empty default provided"
+	    echo "# $varname=<MISSING>" >>$collect_context
+	    exit 1
+	fi
+	log_warn "($0) Using default value '$varname'='$default_value' HARDCODED in script : should be fixed with proper default file .resources.var, see traces in $collect_context"
+	read "$varname" <<<"$default_value"
+	echo "$varname=$default_value" >>$collect_context
+    fi
+}
+
+setup_resources_var()
+{
+    local resource_var="$1"
+    enforcefile "$resource_var" exists
+    if [[ -f $resource_var ]]
+    then
+	while read line
+	do
+	    if [[ $line =~ ^([a-zA-Z0-9_]+)=(.+)$ ]]
+	    then
+		varname=${BASH_REMATCH[1]}
+		value=${BASH_REMATCH[2]}
+		read "$varname" <<<"$value"
+	    elif [[ $line =~ ^# ]]
+	    then
+		if [[ -n $defer ]]
+		then
+		    $defer : "$line"
+		fi
+	    else
+		log_warn "Invalid syntax in $resource_var '$line' does not match any expected expression"
+	    fi	
+	done <"$resource_var"
+    fi
+}
+
+# allow to check mounted points
+mountpoint_get_device()
+{
+    local mount_point="$1"
+    mount_point=$(readlink -f "$mount_point")
+    $defer awk "{  if (\$2 == \""$mount_point"\") print \$1 ;}" /proc/mounts
+}
+
+device_get_mountpoints()
+{
+    local device="$1"
+    $defer awk "{  if (\$1 == \""$device"\") print \$2 ;}" /proc/mounts
+}
+
+mount_if_needed()
+{
+    local mountdevice="$1"
+    local mountpoint="$2"
+    local param="$3"
+    if [[ -n $defer ]]
+    then
+	$defer 'device=$(mountpoint_get_device '"$mountpoint"')'
+    else
+	device=$(mountpoint_get_device "$mountpoint")
+    fi
+
+    enforcedir "$mountpoint" exists
+    # device is a device ...
+    # enforcefile "$mountdevice" exists
+    
+    if [[ -z $device ]]
+    then
+	$metarun mount $param "$mountdevice" "$mountpoint"
+    elif [[ "$device" == "$mountdevice" ]]
+    then
+	log_info "$device already mounted on $mountdevice"
+    else
+	log_warn "Another device $device is mounted on  $mountpoint, not $mountdevice"
+    fi
+}
+
+umount_if_needed()
+{
+    local mountdevice="$1"
+    local mountpoint="$2"
+    local param="$3"
+    device=$(mountpoint_get_device "$mountpoint")
+    if [[ -n "$device" ]]
+    then
+	if [[ "$device" == "$mountdevice" ]]
+	then
+	    $metarun umount "$mountpoint"
+	else
+	    log_warn "Another device $device is mounted on  $mountpoint, not $mountdevice"
+	    if [[ $param == '--bind' ]]
+	    then
+		log_warn "Unmouning ANYWAY ( mount --bind show root device, not mounted directory )"
+		$metarun umount "$mountpoint"
+	    fi
+	fi
+    else
+	log_warn "no device found mounted for umount_if_needed $@"
+    fi
+}
+
+exec_bg()
+{
+    if [[ -z $defer ]]
+    then
+	"$@" &
+    else
+	$defer "$@" '&'
+    fi
+}
+
+
+# collect all hardcoded values.
+mkdir -p ~/.artlog
+collect_context=~/.artlog/collect_context.var
+
+if [[ -z $toolsresourcesdir ]]
+then
+    # project directory
+       
+    # from current $(pwd) will follow parent dir hierarchy to find .resources.var
+    dir="$(pwd)"
+    while [[ -n $dir ]] && [[ -d $dir ]] && [[ ! -f $dir/.resources.var ]]
+    do
+	new_dir=$(dirname "$dir")
+	if [[ $new_dir == $dir ]]
+	then
+	    # protect against infinite loop
+	    break
+	fi
+	dir="$new_dir"
+    done
+    if [[ -f $dir/.resources.var ]]
+    then
+	toolsresourcesdir=$dir
+    else	
+	if [[ -z $ENV_METASCRIPT_RESOURCESDIR ]]
+	then
+	    toolsresourcesdir=$toolsparentdir
+	else
+	    toolsresourcesdir=$ENV_METASCRIPT_RESOURCESDIR
+	fi
+    fi
+fi
+
+resources_var=$toolsresourcesdir/.resources.var
+if [[ -f $resources_var ]]
+then
+    setup_resources_var "$resources_var"
+else
+    log_warn "No $resources_var found"
+fi
+
+
+# quick way to give scl patches to fill scl_arg array
+if [[ -f $toolsresourcesdir/.scl_env ]]
+then
+    source $toolsresourcesdir/.scl_env
+fi
+
+# empty defer means doit
+defer=$ENV_METASCRIPT_DEFER
+
+showinfo=showinfo
+
+allparms="$@"
+
+applymetaargs=applymetaargs
+
+metarun=$defer
+
+# metascript included
+fi 

printclonesdep.sh

@@ -0,0 +1,82 @@
+#!/bin/bash
+# SPDX-FileCopyrightText: 2025 artlog@l0g.eu
+# SPDX-License-Identifier: AGPL-3.0-or-later
+# header generated by lib/metascript.sh header
+# metascript_version=v1.0.0
+
+toolsdir=lib
+pushd $toolsdir >/dev/null
+toolsdir=$(pwd)
+source metascript.sh
+popd >/dev/null
+
+usage () {
+    cat <<EOF
+output list of clones and current git commit references
+for this project and projects dependencies ( clones.dep )
+EOF
+}
+
+metarun=metarun
+# change default to sudo if needed
+# metasudo=sudo
+
+while [[ $# > 0 ]]
+do
+    case "$1" in
+        *)
+           parsemetaarg "$1"
+        ;;
+    esac
+    shift
+done
+
+get_git_info()
+{
+    local clone=$1
+    echo "[$clone]"
+    echo "path=$(realpath --relative-to=$absolute $(pwd))"
+    echo "remote.origin.url=$(git config --get remote.origin.url)"
+    echo "head=$(< .git/$(git symbolic-ref HEAD))"
+    # echo "branch=$(git branch)"
+}
+
+absolute=$( cd "$(dirname "${BASH_SOURCE[0]}")" ; pwd -P )
+
+pushd $absolute >/dev/null
+
+echo "#"
+echo "# root.absolute=$absolute"
+echo "# date=$(date)"
+
+project_name=.
+
+if [[ -f project_params ]]
+then
+    project_name=$(grep "project_name" project_params)
+    project_name=${project_name/project_name=/}
+fi
+
+# expect . to be in cube
+get_git_info $project_name
+
+if [[ -f  clones.dep ]]
+then
+    clones=$(< clones.dep)
+    for clone in $clones
+    do
+	directory=$clone
+	if [[ -d $directory ]]
+	then
+	    pushd $directory >/dev/null
+	    get_git_info $clone
+	    popd >/dev/null
+	else
+	    log_error "clone $clone not found in $directory"
+	fi
+    done
+else
+    log_info "no clone.deps file"
+fi
+
+popd >/dev/null