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
51 lines
1.4 KiB
Bash
Executable File
51 lines
1.4 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
|
|
|
|
cat >"${cmfile}" <<"EOF"
|
|
(* "make init files; this file is loaded as a 'greet' file by scripts/loadup-init.sh")
|
|
|
|
(SETQ MEDLEYDIR NIL)
|
|
(LOAD (CONCAT (UNIX-GETENV "MEDLEYDIR") "/sources/MEDLEYDIR.LCOM"))
|
|
(MEDLEY-INIT-VARS)
|
|
(CNDIR (UNIX-GETENV "LOADUP_WORKDIR"))
|
|
(DRIBBLE "init.dribble")
|
|
|
|
(UNADVISE)
|
|
(ADVISE 'PAGEFULLFN '(RETURN))
|
|
(ADVISE '(ERROR IN \DO-DEFINE-FILE-INFO) '(RETURN))
|
|
(MOVD? 'NILL 'SETTEMPLATE)
|
|
(DEFINEQ (RRE (LAMBDA (X Y) Y)))
|
|
(MOVD? 'RRE 'READ-READER-ENVIRONMENT)
|
|
|
|
(LOAD (CONCAT "{DSK}" (UNIX-GETENV "LOADUP_SOURCEDIR") "/" "MAKEINIT.LCOM"))
|
|
(PROG
|
|
((WORKDIR (CONCAT "{DSK}" (UNIX-GETENV "LOADUP_WORKDIR") "/"))
|
|
(LOADUP-SOURCE-DIR (CONCAT "{DSK}" (UNIX-GETENV "LOADUP_SOURCEDIR") "/"))
|
|
)
|
|
(SETQ DIRECTORIES (CONS LOADUP-SOURCE-DIR DIRECTORIES))
|
|
(RESETLST (RESETSAVE OK.TO.MODIFY.FNS T)
|
|
(MAKEINITGREET (CONCAT WORKDIR "init.sysout") (CONCAT WORKDIR "init.dlinit"))
|
|
)
|
|
)
|
|
(DRIBBLE)
|
|
(LOGOUT T)
|
|
STOP
|
|
EOF
|
|
|
|
run_medley "${LOADUP_SOURCEDIR}/starter.sysout"
|
|
|
|
loadup_finish "init.dlinit" "init.*" "RDSYS*" "I-NEW*"
|