Compare commits
1 Commits
medley-210
...
medley-210
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
0e2e16f183 |
@@ -54,7 +54,12 @@ export LDEKBDTYPE=x
|
|||||||
while [ "$#" -ne 0 ]; do
|
while [ "$#" -ne 0 ]; do
|
||||||
case "$1" in
|
case "$1" in
|
||||||
"-nogreet" | "--nogreet")
|
"-nogreet" | "--nogreet")
|
||||||
export LDEINIT=""
|
# Keep (GREET) from finding an init file
|
||||||
|
mkdir -p $MEDLEYDIR/tmp/logindir
|
||||||
|
export HOME=$MEDLEYDIR/tmp/logindir
|
||||||
|
export LOGINDIR=$MEDLEYDIR/tmp/logindir
|
||||||
|
|
||||||
|
export LDEINIT="$MEDLEYDIR/greetfiles/NOGREET"
|
||||||
;;
|
;;
|
||||||
"-greet" | "--greet")
|
"-greet" | "--greet")
|
||||||
export LDEINIT="$2"
|
export LDEINIT="$2"
|
||||||
|
|||||||
@@ -7,10 +7,6 @@ if [ ! -x run-medley ] ; then
|
|||||||
exit 1
|
exit 1
|
||||||
fi
|
fi
|
||||||
|
|
||||||
# set timestamp
|
|
||||||
mkdir -p ./tmp
|
|
||||||
touch ./tmp/loadup.timestamp
|
|
||||||
|
|
||||||
./scripts/loadup-init.sh && \
|
./scripts/loadup-init.sh && \
|
||||||
./scripts/loadup-mid-from-init.sh && \
|
./scripts/loadup-mid-from-init.sh && \
|
||||||
./scripts/loadup-lisp-from-mid.sh && \
|
./scripts/loadup-lisp-from-mid.sh && \
|
||||||
|
|||||||
@@ -9,6 +9,11 @@ fi
|
|||||||
|
|
||||||
touch tmp/loadup.timestamp
|
touch tmp/loadup.timestamp
|
||||||
|
|
||||||
|
# Keep (GREET) from finding an init file
|
||||||
|
mkdir -p $MEDLEYDIR/tmp/logindir
|
||||||
|
export HOME=$MEDLEYDIR/tmp/logindir
|
||||||
|
export LOGINDIR=$MEDLEYDIR/tmp/logindir
|
||||||
|
|
||||||
scr="-sc 1024x768 -g 1042x790"
|
scr="-sc 1024x768 -g 1042x790"
|
||||||
|
|
||||||
echo '" (IL:MEDLEY-INIT-VARS)(IL:LOAD(QUOTE MEDLEY-UTILS))(IL:MAKE-EXPORTS-ALL)(IL:MAKE-WHEREIS-HASH)(IL:LOGOUT T)"' > tmp/loadup-aux.cm
|
echo '" (IL:MEDLEY-INIT-VARS)(IL:LOAD(QUOTE MEDLEY-UTILS))(IL:MAKE-EXPORTS-ALL)(IL:MAKE-WHEREIS-HASH)(IL:LOGOUT T)"' > tmp/loadup-aux.cm
|
||||||
|
|||||||
@@ -10,6 +10,11 @@ scr="-sc 1024x768 -g 1042x790"
|
|||||||
|
|
||||||
touch tmp/loadup.timestamp
|
touch tmp/loadup.timestamp
|
||||||
|
|
||||||
|
# Keep (GREET) from finding an init file
|
||||||
|
mkdir -p $MEDLEYDIR/tmp/logindir
|
||||||
|
export HOME=$MEDLEYDIR/tmp/logindir
|
||||||
|
export LOGINDIR=$MEDLEYDIR/tmp/logindir
|
||||||
|
|
||||||
./run-medley $scr -greet "$MEDLEYDIR/sources/LOADUP-FULL.CM" "$MEDLEYDIR/tmp/lisp.sysout"
|
./run-medley $scr -greet "$MEDLEYDIR/sources/LOADUP-FULL.CM" "$MEDLEYDIR/tmp/lisp.sysout"
|
||||||
|
|
||||||
if [ tmp/full.sysout -nt tmp/loadup.timestamp ]; then
|
if [ tmp/full.sysout -nt tmp/loadup.timestamp ]; then
|
||||||
|
|||||||
@@ -6,6 +6,12 @@ if [ ! -x run-medley ] ; then
|
|||||||
echo must run from MEDLEYDIR ;
|
echo must run from MEDLEYDIR ;
|
||||||
exit 1 ;
|
exit 1 ;
|
||||||
fi
|
fi
|
||||||
|
|
||||||
|
# Keep (GREET) from finding an init file
|
||||||
|
mkdir -p $MEDLEYDIR/tmp/logindir
|
||||||
|
export HOME=$MEDLEYDIR/tmp/logindir
|
||||||
|
export LOGINDIR=$MEDLEYDIR/tmp/logindir
|
||||||
|
|
||||||
scr="-sc 1024x768 -g 1042x790"
|
scr="-sc 1024x768 -g 1042x790"
|
||||||
|
|
||||||
touch tmp/loadup.timestamp
|
touch tmp/loadup.timestamp
|
||||||
|
|||||||
@@ -9,7 +9,11 @@ fi
|
|||||||
|
|
||||||
scr="-sc 1024x768 -g 1042x790"
|
scr="-sc 1024x768 -g 1042x790"
|
||||||
|
|
||||||
mkdir -p "$MEDLEYDIR/tmp"
|
# Keep (GREET) from finding an init file
|
||||||
|
mkdir -p $MEDLEYDIR/tmp/logindir
|
||||||
|
export HOME=$MEDLEYDIR/tmp/logindir
|
||||||
|
export LOGINDIR=$MEDLEYDIR/tmp/logindir
|
||||||
|
|
||||||
touch tmp/loadup.timestamp
|
touch tmp/loadup.timestamp
|
||||||
|
|
||||||
./run-medley $scr -greet "$MEDLEYDIR"/sources/LOADUP-INIT.LISP loadups/starter.sysout
|
./run-medley $scr -greet "$MEDLEYDIR"/sources/LOADUP-INIT.LISP loadups/starter.sysout
|
||||||
|
|||||||
Reference in New Issue
Block a user