Interlisp.medley/scripts/loadups/loadup-apps-from-full.sh

#!/bin/sh

main() {
	# shellcheck source=./loadup-setup.sh
	. "${LOADUP_SCRIPTDIR}/loadup-setup.sh"

	loadup_start

	export ROOMSDIR="${MEDLEYDIR}/rooms"
	export CLOSDIR="${MEDLEYDIR}/clos"

	export NOTECARDSDIR="${MEDLEYDIR}/notecards"
	if [ ! -e "${NOTECARDSDIR}" ]
	then
	    NOTECARDSDIR=$(cd "${MEDLEYDIR}/../" && pwd)/notecards
	    if [ ! -e "${NOTECARDSDIR}" ]
	    then
	        NOTECARDSDIR=$(cd "${MEDLEYDIR}/../../" && pwd)/notecards
	        if [ ! -e "${NOTECARDSDIR}" ]
	        then
	            NOTECARDSDIR=""
	        fi
	    fi
	fi

	if [ -z "${NOTECARDSDIR}" ]
	then
	    echo "Error: Cannot find the Notecards directory"
	    echo "It should be located at ${MEDLEYDIR}/../notecards or"
	    echo "${MEDLEYDIR}/../../notecards.  But its not."
	    echo "Exiting"
	    exit 1
	fi

	git_commit_info "${NOTECARDSDIR}"
	NOTECARDS_COMMIT_ID="${COMMIT_ID}"
	export NOTECARDS_COMMIT_ID

        if [ -n "${NOTECARDS_COMMIT_ID}" ]
        then
          {
            echo ;
            echo "--------------------------------------------" ;
            echo "Notecards Commit: ${NOTECARDS_COMMIT_ID}" ;
            git -C "${NOTECARDSDIR}" status ;
          } >> "${LOADUP_OUTDIR}/gitinfo"
        fi

        initfile="-"
	cat >"${cmfile}" <<-EOF
	"

	(SETQ IL:LOADUP-SUCCESS
	  (${NL_ER_SETQ}
	    (PROGN
	      (SETQ IL:HELPFLAG ${HELPFLAG})
	      (IL:MEDLEY-INIT-VARS 'IL:GREET)
	      (IL:DRIBBLE
	        (IL:CONCAT (QUOTE {DSK})(IL:UNIX-GETENV (QUOTE LOADUP_WORKDIR))(IL:L-CASE (QUOTE /apps.dribble)))
	      )
	      (IL:LOAD (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV (QUOTE LOADUP_SOURCEDIR))(QUOTE /LOADUP-CLOS.LCOM)))
	      (IL:LOADUP-CLOS)
	      (IL:LOAD (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV (QUOTE LOADUP_SOURCEDIR))(QUOTE /LOADUP-APPS.LCOM)))
	      (IL:LOADUP-APPS)
	      (IL:DRIBBLE)
            )
          )
	)
        (COND
	  (IL:LOADUP-SUCCESS
	    (IL:ENDLOADUP)
	    (SETQ IL:HELPFLAG T)
	    (SETQ IL:LOADUP-SUCCESS (QUOTE NOBIND))
	    (IL:MAKESYS
	      (IL:CONCAT (QUOTE {DSK})(IL:UNIX-GETENV(QUOTE LOADUP_WORKDIR)) (IL:L-CASE (QUOTE /apps.sysout)))
	      :APPS
	    )
	    (IL:LOGOUT T 0)
	  )
	)
	(IL:LOGOUT T 1)

	"
	EOF

	run_medley "${LOADUP_WORKDIR}/full.sysout"

	loadup_finish "apps.sysout" "apps.*"

}


# shellcheck disable=SC2164,SC2034
if [ -z "${LOADUP_SCRIPTDIR}" ]
then
	#
	#
	# Some functions to determine what directory this script is being executed from
	#
	#
	get_abs_filename() {
	  # $1 : relative filename
	  echo "$(cd "$(dirname "$1")" && pwd)/$(basename "$1")"
	}

	# This function taken from
	# https://stackoverflow.com/questions/29832037/how-to-get-script-directory-in-posix-sh
	rreadlink() (

	  # Execute this function in a *subshell* to localize variables and the effect of `cd`.

	  target=$1
	  fname=
	  targetDir=
	  CDPATH=

	  # Try to make the execution environment as predictable as possible:
	  # All commands below are invoked via `command`, so we must make sure that `command`
	  # itself is not redefined as an alias or shell function.
	  # (Note that command is too inconsistent across shells, so we don't use it.)
	  # `command` is a *builtin* in bash, dash, ksh, zsh, and some platforms do not even have
	  # an external utility version of it (e.g, Ubuntu).
	  # `command` bypasses aliases and shell functions and also finds builtins 
	  # in bash, dash, and ksh. In zsh, option POSIX_BUILTINS must be turned on for that
	  # to happen.
	  { \unalias command; \unset -f command; } >/dev/null 2>&1
	  [ -n "$ZSH_VERSION" ] && options[POSIX_BUILTINS]=on # make zsh find *builtins* with `command` too.

	  while :; do # Resolve potential symlinks until the ultimate target is found.
	      [ -L "$target" ] || [ -e "$target" ] || { command printf '%s\n' "ERROR: '$target' does not exist." >&2; return 1; }
	      command cd "$(command dirname -- "$target")" # Change to target dir; necessary for correct resolution of target path.
	      fname=$(command basename -- "$target") # Extract filename.
	      [ "$fname" = '/' ] && fname='' # !! curiously, `basename /` returns '/'
	      if [ -L "$fname" ]; then
	        # Extract [next] target path, which may be defined
	        # *relative* to the symlink's own directory.
	        # Note: We parse `ls -l` output to find the symlink target
	        #       which is the only POSIX-compliant, albeit somewhat fragile, way.
	        target=$(command ls -l "$fname")
	        target=${target#* -> }
	        continue # Resolve [next] symlink target.
	      fi
	      break # Ultimate target reached.
	  done
	  targetDir=$(command pwd -P) # Get canonical dir. path
	  # Output the ultimate target's canonical path.
	  # Note that we manually resolve paths ending in /. and /.. to make sure we have a normalized path.
	  if [ "$fname" = '.' ]; then
	    command printf '%s\n' "${targetDir%/}"
	  elif  [ "$fname" = '..' ]; then
	    # Caveat: something like /var/.. will resolve to /private (assuming /var@ -> /private/var), i.e. the '..' is applied
	    # AFTER canonicalization.
	    command printf '%s\n' "$(command dirname -- "${targetDir}")"
	  else
	    command printf '%s\n' "${targetDir%/}/$fname"
	  fi
	)

	get_script_dir() {

	    # call this with $0 (from main script) as its (only) parameter
	    # if you need to preserve cwd, run this is a subshell since
	    # it can change cwd

	    # set -x

	    local_SCRIPT_PATH="$( get_abs_filename "$1" )";

	    while [ -h "$local_SCRIPT_PATH" ];
	    do
	        cd "$( dirname -- "$local_SCRIPT_PATH"; )";
	        local_SCRIPT_PATH="$( rreadlink "$local_SCRIPT_PATH" )";
	    done

	    cd "$( dirname -- "$local_SCRIPT_PATH"; )" > '/dev/null';
	    local_SCRIPT_PATH="$( pwd; )";

	    # set +x

	    echo "${local_SCRIPT_PATH}"
	}

	# end of script directory functions
	###############################################################################

        # figure out the script dir
        LOADUP_SCRIPTDIR="$(get_script_dir "$0")"
	export LOADUP_SCRIPTDIR

fi

main "$@"