/usr/bin/clfswm is in clfswm 20111015.git51b0a02-2.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 | #!/bin/sh
#
# This file is part of the Debian CLFSWM package and is licensed under
# the terms of the GNU GPL version 3 or later. Check
# /usr/share/doc/clfswm/copyright for more information.
#
# Copyright 2011 Desmond O. Chang <dochang@gmail.com>
#
# CLFSWM startup file. Check /usr/share/doc/clfswm/README.Debian to
# know how to setup the Common Lisp implementation CLFSWM should use.
LOADER="/usr/lib/clfswm/load.lisp"
load_clfswm ()
{
case "$1" in
cmucl)
cmucl -load "$LOADER"
;;
sbcl)
sbcl --load "$LOADER"
;;
clisp)
clisp "$LOADER"
;;
*)
"clfswm-$1"
;;
esac
}
usage ()
{
echo "usage: $0 [implementation]"
exit 2
}
main_clfswm ()
{
local clfswmrc clfswm_impl rc_impl
if [ $# -gt 1 ]; then
usage
fi
clfswmrc=${XDG_CONFIG_HOME:-$HOME/.config}/clfswm/clfswmrc
if [ ! -f "$clfswmrc" ]; then
clfswmrc="$HOME/.clfswmrc"
fi
clfswm_impl=${1:-$LISP}
if [ -z "$clfswm_impl" -a -r "$clfswmrc" ]; then
rc_impl=$(sed -n '/^.*debian=\([A-Za-z0-9._][A-Za-z0-9._+-]*\).*$/{s//\1/p;q}' "$clfswmrc")
clfswm_impl=${rc_impl}
fi
load_clfswm ${clfswm_impl:-clisp}
}
main_clfswm "$@"
|