__mdw_hqual=$__mdw_hqual${CROSS_BUILDENV+/$CROSS_BUILDENV}
__mdw_set_prompt_hacks () { host=$__mdw_host; dir=""; }
+__mdw_system=$(uname -s)
: ${USER-${LOGNAME-$(id -un)}}
__mdw_user=$USER
case $(id -u) in
- 0) __mdw_rootp=t ;;
- *) __mdw_rootp=nil ;;
+ 0)
+ __mdw_rootp=t
+ ;;
+ *)
+ case $__mdw_system in
+ CYGWIN_*)
+ case " $(id -G) " in
+ *" 544 "*) __mdw_rootp=t __mdw_user="$__mdw_user%admin" ;;
+ *) __mdw_rootp=nil ;;
+ esac
+ ;;
+ *)
+ __mdw_rootp=nil
+ ;;
+ esac
esac
__mdw_set_prompt_pieces () {
## Fancy highlighting in some terminals.
- local bold unbold nl gitcolour rccolour uncolour
- local host dir more
- bold="" unbold="" nl="" gitcolour="" rccolour="" uncolour="" more=""
+ local bold unbold nl more host dir
+ local gitcolour rccolour uncolour
+ bold="" unbold="" nl="" more=""
+ gitcolour="" rccolour="" uncolour=""
__mdw_set_prompt_hacks
## Choose the right delimiters. Highlight root prompts specially;
alias cross-run="nice cross-run"
alias gdb="gdb -q"
+## Shut up Lisp interpreters.
+alias clisp="clisp -q -q"
+alias cmucl="rlwrap cmucl -quiet"
+alias ecl="rlwrap ecl"
+alias sbcl="rlwrap sbcl --noinform"
+alias ccl="rlwrap ccl"
+alias ccl32="rlwrap ccl32"
+alias ccl64="rlwrap ccl64"
+alias abcl="rlwrap abcl --noinform"
+
###--------------------------------------------------------------------------
### Colour output.