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

nuxfs: Reworked nuxfs to use nux.dsl.

Signed-off-by: Tony Tkacik <tonydamage@gmail.com>
This commit is contained in:
Tony Tkáčik 2017-06-10 18:56:35 +02:00
parent 25befb4281
commit d3be24f3d7
2 changed files with 336 additions and 44 deletions

147
bin/nuxfs
View file

@ -2,83 +2,142 @@
### Filesystem Layout manager ### Filesystem Layout manager
### ###
local STARTDIR=$(pwd) local WORKDIR=$(pwd)
local TEMPLATE_DIR=$NUX_ENV_DIR/templates local TEMPLATE_DIR=$NUX_ENV_DIR/templates
local SUFFIX=".nuxfs" local SUFFIX=".nuxfs"
local TEMPLATE_FILTER="*$SUFFIX" local TEMPLATE_FILTER="*$SUFFIX"
nux.include nuxfs nux.use nux.dsl
nux.include nuxfs.dsl nux.use nuxfs
GIT_BIN=$(which git) GIT_BIN=$(which git)
## check - Verifies that directory matches nuxfs specification nux.fs.dsl() {
function task.check { .block dir
link.exists() { .keyword link
nux.log debug "Testing '$1' as link" .keyword git
if test ! -h "$1"; then .keyword origin
nuxfs.error "$1" "is not symlink." .keyword name
.keyword template
sdir() {
dir "$@"
enddir
}
.preprocess() {
abs_path=$NUXFS_DEF_DIR/$path;
rel_path=$(realpath -m -s "$abs_path" --relative-base="$WORKDIR");
}
.check() {
nux.check.file.exists "$abs_path"
}
.check.failed() {
nux.dsl.error "$rel_path" does not exists.
}
}
task.check() {
link.entered() {
nux.log debug "Testing '$rel_path' as link"
if test ! -h "$abs_path"; then
nuxfs.error "$rel_path" "is not symlink."
return return
fi fi
local REAL_LINK=$(readlink "$1") local REAL_LINK=$(readlink "$abs_path")
local TARGET="$2"; local TARGET="$3";
if test ! "$REAL_LINK" = "$TARGET"; then if test ! "$REAL_LINK" = "$TARGET"; then
MAT_REAL=$(realpath "$REAL_LINK") MAT_REAL=$(realpath "$REAL_LINK")
local cdir=$(dirname "$1") local cdir=$(dirname "$abs_path")
MAT_TARGET=$(realpath "$cdir/$TARGET") MAT_TARGET=$(realpath "$cdir/$TARGET")
if test "$MAT_REAL" = "$MAT_TARGET"; then if test "$MAT_REAL" = "$MAT_TARGET"; then
nuxfs.warning "$1" "is using different definition for target '$2'" nuxfs.warning "$rel_path" "is using different definition for target '$3'"
else else
nuxfs.error "$1" "links to $REAL_LINK instead of $TARGET" nuxfs.error "$rel_path" "links to $REAL_LINK instead of $TARGET"
return return
fi fi
fi fi
if test ! -e "$1"; then if test ! -e "$1"; then
nuxfs.warning "$1" "target '$NC_White$2$NC_No' does not exists." nuxfs.warning "$rel_path" "target '$NC_White$2$NC_No' does not exists."
fi fi
} }
git.exists() { git.entered() {
nux.log debug "Testing '$1' as git repository" nux.log debug "Testing '$rel_path' as git repository"
if test ! -e "$1/.git"; then if test ! -e "$1/.git"; then
nuxfs.error "$1" "is not git repository" nuxfs.error "$rel_path" "is not git repository"
return return
fi fi
local remotes=$(grep "$2" "$1/.git/config" | wc -l) local remotes=$(grep "$3" "$rel_path/.git/config" | wc -l)
if [ $remotes -eq 0 ]; then if [ $remotes -eq 0 ]; then
nuxfs.error "$1" "Does not refer git remote '$2'" nuxfs.error "$rel_path" "Does not refer git remote '$3'"
return; return;
fi fi
} }
def.notexists() { process "$@";
nuxfs.error "$1" "does not exists".
}
nuxfs.initcfg "$@"
nuxfs.dsl.execute "$NUXFS_DEF" "$NUXFS_DEF_DIR" "$WORKDIR_ABSOLUTE"
} }
## apply - Creates missing files as described in nuxfs definition. ## apply - Creates missing files as described in nuxfs definition.
function task.apply { task.apply() {
directory.notexists() { dir.check.recover() {
nuxfs.info "$1" "Created directory"; nuxfs.info "$rel_path" "Created directory";
mkdir -p "$1" mkdir -p "$abs_path"
}
link.check.recover() {
nuxfs.info "$rel_path" "Creating link to '$3'";
ln -s "$3" "$abs_path"
}
git.check.recover() {
$GIT_BIN clone "$3" "$abs_path"
}
process "$@";
}
} nux.dsl.load nux.fs.dsl
link.notexists() { process() {
nuxfs.info "$1" "Creating link to '$2'"; WORKDIR=$(pwd);
ln -s "$2" "$1" TARGET=$1;
} if [ -n "$TARGET" ]; then
TARGET=$TARGET
else
TARGET=$(pwd);
fi;
git.notexists() { nux.log debug Target: $TARGET
local cur_dir=$(nuxfs.dir.get);
local rel_path=$(realpath -Lms $1 --relative-to $cur_dir)
pushd $(nuxfs.dir.get) > /dev/null;
$GIT_BIN clone "$2" $rel_path
popd > /dev/null;
}
nuxfs.initcfg "$@" NUXFS_DEF=$(nuxfs.closest $SUFFIX "$TARGET");
nuxfs.dsl.execute "$NUXFS_DEF" "$NUXFS_DEF_DIR" "$WORKDIR_ABSOLUTE" #
if [ "$NUXFS_DEF" = "" ]; then
nuxfs.error $(pwd) "No nuxfs configuration found."
exit 1;
fi
NUXFS_DEF_DIR=$(dirname $NUXFS_DEF);
TARGET_RELATIVE=$(realpath -ms "$TARGET" --relative-to "$NUXFS_DEF_DIR")
TARGET_ABSOLUTE=$(realpath -ms "$TARGET")
if [ "$TARGET_RELATIVE" != . ]; then
if [[ $$TARGET_RELATIVE != ./* ]]; then
TARGET_RELATIVE="./$TARGET_RELATIVE"
fi
nux.dsl.only.subtree "$TARGET_RELATIVE"
fi
nux.log debug nuxfs definition: $NC_White$NUXFS_DEF$NC_No
nux.log debug $NC_White"target directory:$Nc_No"
nux.log debug " relative to def:" $NC_White$TARGET_RELATIVE$NC_No
nux.log debug " absoulte path: " $NC_White$TARGET_ABSOLUTE$NC_No
if test -e "$NUXFS_DEF"; then
# #NUXFS_TARGET_FOUND=0;
source "$NUXFS_DEF";
# #if [ $NUXFS_TARGET_FOUND = 0 ]; then
# # nuxfs.warning "$3" "Does not have definition in $DEF";
# fi
else
nuxfs.error "$NUXFS_DEF" Definition file does not exists.
fi
} }
## init - Initializes a directory using template ## init - Initializes a directory using template

233
bin/nuxfs-old Executable file
View file

@ -0,0 +1,233 @@
#!/usr/bin/env nux-runner
### Filesystem Layout manager
###
local STARTDIR=$(pwd)
local TEMPLATE_DIR=$NUX_ENV_DIR/templates
local SUFFIX=".nuxfs"
local TEMPLATE_FILTER="*$SUFFIX"
nux.include nuxfs
nux.include nuxfs.dsl
GIT_BIN=$(which git)
## check - Verifies that directory matches nuxfs specification
function task.check {
link.exists() {
nux.log debug "Testing '$1' as link"
if test ! -h "$1"; then
nuxfs.error "$1" "is not symlink."
return
fi
local REAL_LINK=$(readlink "$1")
local TARGET="$2";
if test ! "$REAL_LINK" = "$TARGET"; then
MAT_REAL=$(realpath "$REAL_LINK")
local cdir=$(dirname "$1")
MAT_TARGET=$(realpath "$cdir/$TARGET")
if test "$MAT_REAL" = "$MAT_TARGET"; then
nuxfs.warning "$1" "is using different definition for target '$2'"
else
nuxfs.error "$1" "links to $REAL_LINK instead of $TARGET"
return
fi
fi
if test ! -e "$1"; then
nuxfs.warning "$1" "target '$NC_White$2$NC_No' does not exists."
fi
}
git.exists() {
nux.log debug "Testing '$1' as git repository"
if test ! -e "$1/.git"; then
nuxfs.error "$1" "is not git repository"
return
fi
local remotes=$(grep "$2" "$1/.git/config" | wc -l)
if [ $remotes -eq 0 ]; then
nuxfs.error "$1" "Does not refer git remote '$2'"
return;
fi
}
def.notexists() {
nuxfs.error "$1" "does not exists".
}
nuxfs.initcfg "$@"
nuxfs.dsl.execute "$NUXFS_DEF" "$NUXFS_DEF_DIR" "$WORKDIR_ABSOLUTE"
}
## apply - Creates missing files as described in nuxfs definition.
function task.apply {
directory.notexists() {
nuxfs.info "$1" "Created directory";
mkdir -p "$1"
}
link.notexists() {
nuxfs.info "$1" "Creating link to '$2'";
ln -s "$2" "$1"
}
git.notexists() {
local cur_dir=$(nuxfs.dir.get);
local rel_path=$(realpath -Lms $1 --relative-to $cur_dir)
pushd $(nuxfs.dir.get) > /dev/null;
$GIT_BIN clone "$2" $rel_path
popd > /dev/null;
}
nuxfs.initcfg "$@"
nuxfs.dsl.execute "$NUXFS_DEF" "$NUXFS_DEF_DIR" "$WORKDIR_ABSOLUTE"
}
## init - Initializes a directory using template
function task.init {
if [ $# -eq 0 ]; then
nux.log debug "No template specified. Creating empty $SUFFIX definition."
touch .nuxfs
return;
fi
local TEMPLATE=$1
nux.log debug "User specified template is " $TEMPLATE
if [ $(echo $TEMPLATE | grep -c "$SUFFIX\$") -eq 0 ]; then
nux.log debug "Template is common template."
TEMPLATE=$TEMPLATE_DIR/$TEMPLATE$SUFFIX
if [ ! -e $TEMPLATE ]; then
echo -n "Template '$1' does not exists. "
nuxfs.template.list
return;
fi;
fi;
nux.log debug "Using '$TEMPLATE' to initialize."
if [ ! -e $TEMPLATE ]; then
echo "nuxfs template $1 does not exists."
return;
fi;
local template_relative=$(realpath -Lms $TEMPLATE --relative-to $(pwd))
nux.log debug "Creating link $SUFFIX: target is '$template_relative'";
ln -s "$template_relative" "$SUFFIX"
nux.log debug "Invoking create task."
task.create
}
##
## template - List available templates
#
function task.template {
nux.log debug $NUX_ENV_DIR
nuxfs.template.list
}
function task.info {
nuxfs.initcfg;
if [ -n "$NUXFS_DEF" ]; then
MANAGED_RELATIVE=$(realpath $NUXFS_DEF_DIR --relative-to $(pwd));
if [ "$MANAGED_RELATIVE" = . ]; then
echo $(pwd) is nuxfs managed directory.
else
echo $(pwd) is child of nuxfs managed directory.
echo Managed directory is $NUXFS_DEF_DIR.
fi;
else
echo "$(pwd) is not managed by nuxfs";
fi;
}
function nuxfs.dsl.capture.dir {
local CDIR=$1;
local LEVEL=$2;
nux.log debug "Inspecting directory $CDIR";
if [ -e "$RELATIVE/$SUFFIX" ]; then
return;
fi;
pushd "$CDIR" > /dev/null;
for file in ./* ; do
nuxfs.dsl.capture.file "$file" ".";
done;
popd > /dev/null;
}
function nuxfs.dsl.capture.file {
local file=$1;
local pdir=$2;
local RELATIVE=$(realpath -ms "$file" --relative-to "$pdir");
local ADDARGS="";
local TYPE="";
nux.log debug "Inspecting $file , Relative path is $RELATIVE";
if [ -h "$RELATIVE" ]; then
TYPE="link";
ADDARGS="\"$(readlink "$RELATIVE")\""
elif [ -d "$RELATIVE" -a -d "$RELATIVE/.git" ]; then
TYPE=git;
pushd "$RELATIVE" > /dev/null;
ADDARGS="\"$($GIT_BIN remote get-url origin)\""
popd > /dev/null;
elif [ -d "$RELATIVE" ]; then
TYPE="dir";
fi;
if [ "$TYPE" ]; then
echo -e "${LEVEL}$TYPE \"$RELATIVE\" $ADDARGS";
fi;
if [ "$TYPE" = "dir" -a "$LEVEL" != " " ]; then
nuxfs.dsl.capture.dir "$RELATIVE" "${LEVEL} "
echo "${LEVEL}enddir";
fi;
}
## capture - Captures current directory to nuxfs syntax
function task.capture {
if [ $# -eq 0 ]; then
nuxfs.dsl.capture.dir .
else
for file in "$@" ; do
nuxfs.dsl.capture.file "$file" .;
done;
fi
}
function nuxfs.template.list {
echo "Available templates:";
pushd $TEMPLATE_DIR > /dev/null;
for i in $TEMPLATE_FILTER; do
local TEMPLATE_ID=$(basename $i $SUFFIX)
echo -n " $TEMPLATE_ID - " ;
grep -m1 "^name " $i | sed -e "s/name *//"
echo
done;
popd > /dev/null;
}
function nuxfs.initcfg {
WORKDIR=$1;
if [ -n "$WORKDIR" ]; then
WORKDIR=$WORKDIR
else
WORKDIR=$(pwd);
fi;
nux.log debug Target: $WORKDIR
NUXFS_DEF=$(nuxfs.closest $SUFFIX "$WORKDIR");
if [ "$NUXFS_DEF" = "" ]; then
nuxfs.error $(pwd) "No nuxfs configuration found."
return;
fi;
NUXFS_DEF_DIR=$(dirname $NUXFS_DEF);
WORKDIR_RELATIVE=$(realpath -ms "$WORKDIR" --relative-to "$NUXFS_DEF_DIR")
WORKDIR_ABSOLUTE=$(realpath -ms "$WORKDIR")
}