add the pure bash core: core, str, naming and tags

Ported from make/utils.mk, make/def.mk, make/apps/def.docker.mk and make/apps/def.mk, with the examples that sat as dead comments in make/apps/def.mk turned into actual assertions. Two deviations from the make macros are pinned and documented in DELTAS.md; both only show up on code paths nothing uses.
2026-09-03 18:26:00 +02:00
parent 6c97f99f87
commit 5b4db64114
9 changed files with 537 additions and 0 deletions
@@ -0,0 +1,78 @@
+#shellcheck shell=sh
+# naming: compose project name, service name, networks, user identity.
+#
+# Ported from make/apps/def.docker.mk (COMPOSE_PROJECT_NAME, COMPOSE_SERVICE_NAME),
+# make/def.docker.mk (HOST_*/USER_*, DOCKER_NETWORK_*) and make/def.mk (RESU).
+
+# myos_scope REF  -> host | user | cluster | app
+# The first segment of a stack reference decides how the stack is named:
+# host stacks are singletons of the machine (they bind privileged ports),
+# user stacks are singletons of the user, cluster stacks are swarm namespaces.
+myos_scope() {
+  [ -n "${MYOS_SCOPE:-}" ] && { printf '%s' "$MYOS_SCOPE"; return 0; }
+  case ${1%%/*} in
+    host)         printf 'host' ;;
+    User|user)    printf 'user' ;;
+    cluster)      printf 'cluster' ;;
+    *)            printf 'app' ;;
+  esac
+}
+
+# myos_resu MAIL  -> user.domain identity of a mail address (make: RESU)
+# Also sets MYOS_RESU_NIAMOD (reversed domain + reversed user) and
+# MYOS_RESU_PATH (that identity as a path), used by the User stacks.
+myos_resu() {
+  _mail=$(myos_lower "${1:-}" | tr '+_' '..')
+  case $_mail in
+    *@*) ;;
+    *) MYOS_RESU_NIAMOD=; MYOS_RESU_PATH=; printf '%s' "${USER:-}"; return 0 ;;
+  esac
+  _user=${_mail%@*}
+  _domain=${_mail##*@}
+  [ -n "$_domain" ] || { MYOS_RESU_NIAMOD=; MYOS_RESU_PATH=; printf '%s' "${USER:-}"; return 0; }
+  _niamod=$(myos_reverse "$(printf '%s' "$_domain" | tr '.' ' ')" | tr ' ' '.')
+  _resu=$(myos_reverse "$(printf '%s' "$_user" | tr '.' ' ')" | tr ' ' '.')
+  MYOS_RESU_NIAMOD="$_niamod.$_resu"
+  MYOS_RESU_PATH=$(printf '%s' "$MYOS_RESU_NIAMOD" | tr '.' '/')
+  printf '%s.%s' "$_user" "$_domain"
+}
+
+# myos_project_name SCOPE USER ENV APP [PATH]
+# host    -> HOST_COMPOSE_PROJECT_NAME, defaults to the hostname
+# user    -> USER_COMPOSE_PROJECT_NAME, defaults to the RESU identity
+# cluster -> the stack name: one namespace per swarm, not per user
+# app     -> MYOS_PROJECT_FORMAT: user-env-app (default) or user-app-env (legacy)
+myos_project_name() {
+  _scope=$1; _user=$2; _env=$3; _app=$4; _path=${5:-}
+  [ -n "${DOCKER_COMPOSE_PROJECT_NAME:-}" ] && { printf '%s' "$DOCKER_COMPOSE_PROJECT_NAME"; return 0; }
+  case $_scope in
+    host)
+      printf '%s' "${HOST_COMPOSE_PROJECT_NAME:-${HOSTNAME:-localhost}}"; return 0 ;;
+    user)
+      if [ -n "${USER_COMPOSE_PROJECT_NAME:-}" ]; then printf '%s' "$USER_COMPOSE_PROJECT_NAME"
+      else printf '%s' "$(myos_resu "${MAIL:-}" | tr '.' '-')"; fi
+      return 0 ;;
+    cluster)
+      printf '%s' "${MYOS_CLUSTER_PROJECT:-$(myos_name "$_app")}"; return 0 ;;
+  esac
+  _n=$(myos_name "$_app")
+  case ${MYOS_PROJECT_FORMAT:-user-env-app} in
+    user-app-env) _out="$_user-$_n-$_env" ;;
+    user-env-app) _out="$_user-$_env-$_n" ;;
+    *) myos_die "$MYOS_E_USAGE" "unknown MYOS_PROJECT_FORMAT: ${MYOS_PROJECT_FORMAT}" ;;
+  esac
+  # the path fragment loses its slashes too (make: $(subst /,,$(subst -,,$(APP_PATH))))
+  [ -n "$_path" ] && _out="$_out-$(myos_name "$_path" | tr -d /)"
+  myos_lower "$_out" | tr -d '.'
+}
+
+# myos_service_name PROJECT  prefix of the SERVICE_<port>_NAME labels
+myos_service_name() { printf '%s' "$1" | tr '_' '-'; }
+
+# myos_network_default PROJECT
+# The leading underscore keeps this network first in alphabetical order, so it
+# is the first interface attached and service names never resolve across stacks.
+# https://github.com/moby/libnetwork/issues/2093
+myos_network_default() { printf '_%s' "$1"; }
+myos_network_private() { printf '%s' "${DOCKER_NETWORK_PRIVATE:-${1}-${2}}"; }
+myos_network_public()  { printf '%s' "${DOCKER_NETWORK_PUBLIC:-${1}}"; }