feat(package): hemar: conected to nix config

package/hemar/default.nix

@@ -0,0 +1,36 @@
+{ dash, hectic, symlinkJoin }:
+let
+  shell = "${dash}/bin/dash";
+  bashOptions = [
+    "errexit"
+    "nounset"
+  ];
+
+  test = hectic.writeShellApplication {
+    inherit shell bashOptions;
+    name = "hemar-test";
+    runtimeInputs = [ ];
+
+    text = ''
+      WORKSPACE=${./.}
+      ${builtins.readFile hectic.helpers.posix-shell.log}
+      ${builtins.readFile ./test.sh}
+    '';
+  };
+
+  hemar = hectic.writeShellApplication {
+    inherit shell bashOptions;
+    name = "hemar";
+    runtimeInputs = [ ];
+
+    text = ''
+      WORKSPACE=${./.}
+      ${builtins.readFile hectic.helpers.posix-shell.log}
+      ${builtins.readFile ./hemar.sh}
+    '';
+  };
+in
+symlinkJoin {
+  name = "hemar";
+  paths = [ hemar test ];
+}

package/hemar/hemar.sh

@@ -1,5 +1,9 @@
 #!/bin/dash
 
+# shellcheck disable=SC1091
+. "${WORKSPACE:?}/src/plex/plex.sh"
+init_plex jq
+
 # Syntax scheme:
 #
 # hemar
@@ -162,8 +166,8 @@
 #
 # AbstarctSyntaxTree (ATS) = {
 #    e = [Element]  # elements array
-#}
-AST=''
+# }
+#AST=''
 
 # 0 - text
 # 1 - deside tag type
@@ -218,6 +222,8 @@ find_open_pattern() {
 parse() {
   char="$1"
 
+  data_pointer=
+
   case "$STAGE" in
     0)
       if find_open_pattern "$char"; then

package/hemar/plex/plex.sh

@@ -1,18 +0,0 @@
-#!/bin/dash
-
-init_plex() {
-  local backend
-  backend=${1:?}
-
-  case "$backend" in
-    env)
-      . ${WORKSPACE}/plex/backend/env_var.sh
-      ;;
-    file)
-      . ${WORKSPACE}/plex/backend/file.sh
-      ;;
-    *)
-      exit 1
-      ;;
-  esac
-}

package/hemar/src/plex/backend/file.sh

@@ -2,29 +2,12 @@
 
 PLEX_TEMP="$(mktemp -d)"
 
+#plex_set(name, key, value)
 plex_set() {
     local plexfile key val regex base esc_key esc
     plexfile="${PLEX_TEMP:?}${1:?}" key="${2:?}" val="${3:?}"
 
-    # construct regex for ancestors
-    regex="^$key="
-
-    base=$key
-    while expr "$base" : '.*\.' >/dev/null; do
-        base=$(printf '%s\n' "$base" | sed 's/\.[^.]*$//')
-        esc=$(printf '%s\n' "$base" | sed 's/\./\\./g')
-        regex="$regex|^$esc="
-    done
-
-    # add descendants
-    esc_key="$(printf '%s\n' "$key" | sed 's/\./\\./g')"
-    regex="$regex|^${esc_key}\."
-
-    # remove old
-    grep -v -E "$regex" "$plexfile" > "$plexfile.tmp" && mv "$plexfile.tmp" "$plexfile"
-
-    # add new
-    printf '%s=%s\n' "$key" "$val" >> "$plexfile"
+    find PLEX_
 }
 
 plex_child() {

package/hemar/src/plex/backend/yq-go.sh

@@ -0,0 +1,40 @@
+#!/bin/dash
+
+PLEX_TEMP="$(mktemp -d)"
+trap 'rm -rf $PLEX_TEMP' EXIT
+
+#plex_set(name, key, value)
+plex_set() {
+    local plexfile key val
+    plexfile="${PLEX_TEMP:?}/${1:?}" key="${2:?}" val="${3:?}"
+
+    touch "$plexfile"
+
+    yq -i ".$key += \"$val\"" "$plexfile" 
+}
+
+#plex_child(plexfile, key)
+plex_child() {
+    plex_fetch "${1:?}" "${2:?}"
+}
+
+#plex_val(plexfile, key)
+plex_val() {
+    plex_fetch "${1:?}" "${2:?}"
+}
+
+#plex_val(plexfile, key)
+plex_fetch() {
+    local plexfile key
+    plexfile="${PLEX_TEMP:?}/${1:?}" key="${2:?}"
+
+    yq -i ".$key" "$plexfile" 
+}
+
+#plex_push(name, prefix, val)
+plex_push() {
+  local plexfile prefix val
+  plexfile="${PLEX_TEMP:?}/${1:?}" prefix="${2:?}" val="${3:?}"
+
+  yq -i ".$prefix += [\"$val\"]" "$plexfile" 
+}

package/hemar/src/plex/plex.sh

@@ -0,0 +1,21 @@
+#!/bin/dash
+
+init_plex() {
+  local backend
+  backend=${1:?}
+
+  case "$backend" in
+    env)
+      . ${WORKSPACE}/src/plex/backend/env_var.sh
+      ;;
+    file)
+      . ${WORKSPACE}/src/plex/backend/file.sh
+      ;;
+    yq-go)
+      . ${WORKSPACE}/src/plex/backend/yq-go.sh
+      ;;
+    *)
+      exit 1
+      ;;
+  esac
+}

package/hemar/test.sh

@@ -1,6 +1,6 @@
 #!/bin/dash
 
-WORKSPACE="$(cd "$(dirname "$0")" && pwd)"
-
-#. "${WORKSPACE:?}/test/plex.sh"
-. "${WORKSPACE:?}/test/plex/time.sh"
+# shellcheck disable=SC1091
+#. "${WORKSPACE:?}/test/plex/jq_backend_time.sh"
+#. "${WORKSPACE:?}/test/plex/env_backend_time.sh"
+. "${WORKSPACE:?}/test/plex/jq_backend.sh"

package/hemar/test/plex/env_backend_time.sh

@@ -1,6 +1,7 @@
 #!/bin/dash
 
-. "${WORKSPACE:?}/plex.sh"
+. "${WORKSPACE:?}/src/plex/plex.sh"
+init_plex env
 
 MY_STRUCT=''
 

package/hemar/test/plex/jq_backend.sh

@@ -0,0 +1,7 @@
+. "${WORKSPACE:?}/src/plex/plex.sh"
+init_plex yq-go
+
+plex_set ZALUPA zalupa apulaz
+log error "struct: $WHITE$(yq . "$PLEX_TEMP/ZALUPA")$NC"
+
+plex_set ZALUPA zalupa.zalupa apulaz

package/hemar/test/plex/jq_backend_time.sh

@@ -0,0 +1,129 @@
+#!/bin/dash
+
+# shellcheck disable=SC1091
+. "${WORKSPACE:?}/src/plex/plex.sh"
+init_plex yq-go
+
+math() {
+  awk "BEGIN {print $1}"
+}
+
+elapsed() {
+  local task time count decrease avg
+  task=$1
+  time=$2
+  count=$3
+  decrease=${4:-0}
+  avg=$(math "$time/$count-$decrease")
+
+  if [ "$time" -eq 0 ]; then
+    log info "\n[$WHITE${task}$NC]\ninstant\n"
+  else
+    log info "\n[$WHITE${task}$NC]\nelapsed $WHITE${avg}$NC seconds\n$WHITE$(math "1/$avg")$NC per second\n"
+  fi
+  printf '%s' "$avg"
+}
+
+set_word_length() {
+  local length
+  length=${1:?}
+
+  # shellcheck disable=SC2183
+  __WORD_OFFSET_PATERN="$(printf '%*s' "$length" | tr ' ' '?')"
+}
+
+UNIQ_8_WORDS_COUNT=1000
+DEFAULT_WORD_LENGTH=8
+set_word_length "$DEFAULT_WORD_LENGTH"
+
+randomword() {
+  local length
+  length=${1:-$DEFAULT_WORD_LENGTH}
+  LC_ALL=C tr -dc 'A-Za-z0-9' </dev/urandom | head -c "$length"
+}
+
+WORDS=$(randomword $((8 * UNIQ_8_WORDS_COUNT)))
+WORDS=0123456789abcdefg
+
+new_word() {
+  local prefix
+  # shellcheck disable=SC2295
+  prefix=${WORDS%"${WORDS#${__WORD_OFFSET_PATERN:?}}"}
+  # shellcheck disable=SC2295
+  WORDS=${WORDS#${__WORD_OFFSET_PATERN:?}}$prefix
+  printf '%s' "$prefix"
+}
+
+bench_set() {
+  local task depth count wordtime i start key d end
+  task=$1
+  depth=$2
+  count=$3
+  wordtime=$4
+  i=0
+  start=$(date +%s)
+  while [ "$i" -lt "$count" ]; do
+    key=$(new_word)
+    if [ "$depth" -gt 1 ]; then
+      d=1
+      while [ "$d" -lt "$depth" ]; do
+        key="$key.$(new_word)"
+        d=$((d + 1))
+      done
+    fi
+    set +e
+    plex_set 'MY_STRUCT' "$key" "$i"
+    error_code=$?
+    log warning "error_code: $error_code"
+    set -e
+    if [ $error_code != 0 ]; then
+	log error "key: $WHITE$key$NC, i: $WHITE$i$NC, struct: $WHITE$(jq . "$PLEX_TEMP/MY_STRUCT")$NC"
+	exit 1
+    fi
+
+    i=$((i + 1))
+  done
+  end=$(date +%s)
+  elapsed "$task" "$((end - start))" "$count" "$(math "$wordtime*$depth")" >/dev/null
+}
+
+DEFAULT_TRIES=1000
+ACCURATE_TRIES=10000
+SUPPER_ACCURATE_TRIES=100000
+
+WORD_CREATE_ACCURACY="$SUPPER_ACCURATE_TRIES"
+BENCH_ACCURACY="$DEFAULT_TRIES"
+
+count="$WORD_CREATE_ACCURACY"
+set_word_length 8
+i=0
+start=$(date +%s)
+while [ "$i" -lt "${count:?}" ]; do
+  new_word >/dev/null
+  i=$((i + 1))
+done
+end=$(date +%s)
+time=$((end - start))
+log debug "word creation time: $time"
+wordtime=$(elapsed 'Word creation' "$time" "$count")
+
+bench_set 'Set element with depth 1 length 8' 1 "$BENCH_ACCURACY" "$wordtime"
+bench_set 'Set element with depth 2 length 8' 2 "$BENCH_ACCURACY" "$wordtime"
+bench_set 'Set element with depth 3 length 8' 3 "$BENCH_ACCURACY" "$wordtime"
+
+log notice -
+
+count="$WORD_CREATE_ACCURACY"
+set_word_length 2
+i=0
+start=$(date +%s)
+while [ "$i" -lt "${count:?}" ]; do
+  new_word >/dev/null
+  i=$((i + 1))
+done
+end=$(date +%s)
+wordtime=$(elapsed 'Word creation' "$((end - start))" "$count")
+
+bench_set 'Set element with depth 1 length 2' 1 "$BENCH_ACCURACY" "$wordtime"
+bench_set 'Set element with depth 2 length 2' 2 "$BENCH_ACCURACY" "$wordtime"
+bench_set 'Set element with depth 3 length 2' 3 "$BENCH_ACCURACY" "$wordtime"