415a698df5
* Make medley.sh and its associated scripts POSIX compliant - i.e., debashify them * Added config file for medley script, medley now reads from config file and prepends arguemnts from file to the copmmand line arguments * WIP. Updates to medley.sh scripts. * WIP. More on medley.sh and friends update. * WIP. Medley redo * WIP. Debugging new medley scripts * Renamed medley.sh/medley.command to be medley_main.sh. Added code to compile single medley.sh/medley.command script by inlining all of the source'd medley_*.sh files. * Add temp fix for cygwin Issue #1685 * Minor fixup to medley_utils.sh; take debug code out out of run_medley * Add README to medley directory to explain how to compile medley.sh (medley.command). * Ooops. This time really adding the README file to the medley directory explaining how to compile medley.sh (medley.command) * Update loadup- scripts to use updated medley scripts rather than run-medley * Fix default setting of $config_file in medley_configfile.sh * Redo medley compile to pick up last commikt * Fixing how maiko exe is found and sysout argument error processing - both issues discovered testing on MAcOS * In medley_configfile, replace echo with printf %s because echo - does not work in zsh * Supress config file on loadups calls to Medley * Add oldschool support (use original run-medley) to loadup scripts; improve FAILURE detection so loadup-all won't proceed once one of the components fails * Add in medley_args.sh add -prog as synonym to --maikoprog to aid in loadup scripts; in medley_run.sh script try to get a good exit code for call to maiko, especially useful for loadup scripts * Run loadup scripts thru shellcheck and update as necessary to make Posix compliant * Get rid of -nt comparisons in loadup-setup.sh because they are not posix-complaint. They were not really needed anyway. * Removing (for now) use of lde exit codes to decide FAILURE case in loadup-setup.sh since exit codes from lde apperar to be inverted on MacOS. * Update medley man page. Add - functionality to more args is medley_args.sh * Compile medley.sh with changes from last commit * Ooops. Left medley_args.sh changes out of last commit. Rectifying here. * Added support for LDEKEYBOARDTYPE to medley_run to match run-medley * Add to medley.sh: auto numbered id's and titles with id's inserted * Cleanup some shellcheck issues in medley_main.sh * fix maiko args -nh-xxx. were -nethub-xxxx. In medley_run.sh * Overhaul handling of pass-on args to manage the quoting issues prevelant in the previous implementation * Cleanup minor shellcheck issues in medley_*.sh scripts * Add underscore as character allowed in ids - makes things clearer when id used with + * Add a self-numbering id to medley calls in loadup scripts * Put workaround in medley_run.sh for Issue #1702 - issues with sysout arg processing in Maiko * Oops. messed up LDESRCSYSOUT in last commit. should be LDESOURCESYSOUT * compile medley.sh
77 lines
2.1 KiB
Bash
Executable File
77 lines
2.1 KiB
Bash
Executable File
#!/bin/sh
|
|
|
|
if [ ! -h ./medley ] || [ ! -d ./lispusers ]
|
|
then
|
|
echo "*** ERROR ***"
|
|
echo "You must run $(basename "$0") while the cwd is a Medley top-level directory."
|
|
echo "The cwd ($(pwd)) is not a Medley top-level directory."
|
|
echo "Exiting."
|
|
exit 1
|
|
fi
|
|
|
|
# shellcheck source=./loadup-setup.sh
|
|
. scripts/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
|
|
|
|
cat >"${cmfile}" <<"EOF"
|
|
"
|
|
|
|
(PROGN
|
|
(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 ROOMSDIR))(QUOTE /ROOMS)) 'IL:SYSLOAD)
|
|
(IL:LOAD (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE NOTECARDSDIR))(QUOTE |/system/NOTECARDS.LCOM|)) 'IL:SYSLOAD)
|
|
(IL:LOAD (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE CLOSDIR))(QUOTE /DEFSYS.DFASL)) 'IL:SYSLOAD)
|
|
(IL:LOAD (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE MEDLEYDIR))(QUOTE |lispusers/BUTTONS.LCOM|)) 'IL:SYSLOAD)
|
|
(IL:LOAD
|
|
(IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV (QUOTE LOADUP_SOURCEDIR)) (QUOTE /LOADUP-APPS.LCOM))
|
|
'IL:SYSLOAD
|
|
)
|
|
(IL:HARDRESET)
|
|
)
|
|
SHH
|
|
(PROGN
|
|
(IL:ENDLOADUP)
|
|
(CLOS::LOAD-CLOS)
|
|
(IL:|Apps.LOADUP|)
|
|
(IL:DRIBBLE)
|
|
(IL:MAKESYS
|
|
(IL:CONCAT (QUOTE {DSK})(IL:UNIX-GETENV(QUOTE LOADUP_WORKDIR))(IL:L-CASE (QUOTE /apps.sysout)))
|
|
:APPS)
|
|
)
|
|
(IL:LOGOUT T)
|
|
|
|
"
|
|
EOF
|
|
|
|
run_medley "${LOADUP_WORKDIR}/full.sysout"
|
|
|
|
loadup_finish "apps.sysout" "apps.*"
|