cl-usocket/cl-usocket.install

   1 # arg 1:  the new package version
   2
   3 _pkgname=usocket
   4 _compile_log=n
   5 _lisp=()
   6
   7 if pacman -Qq clisp-new-clx &>/dev/null ||
   8    pacman -Qq clisp-gtk2 &>/dev/null ||
   9    pacman -Qq clisp-new-clx &>/dev/null; then
  10     _lisp=(${_lisp[@]} 'clisp')
  11 fi
  12 if pacman -Qq sbcl &>/dev/null; then
  13     _lisp=(${_lisp[@]} 'sbcl')
  14 fi
  15 if pacman -Qq cmucl &> /dev/null; then
  16     _lisp=(${_lisp[@]} 'cmucl')
  17 fi
  18
  19 _compile_sbcl() {
  20     sbcl --noinform --no-sysinit --no-userinit \
  21         --eval "(require :asdf)" \
  22         --eval "(pushnew #p\"/usr/share/common-lisp/systems/\" asdf:*central-registry* :test #'equal)" \
  23         --eval "(asdf:operate 'asdf:compile-op '${_pkgname})" \
  24         --eval "(quit)" &> ${_compile_log_file} || return 1
  25 }
  26 _compile_clisp() {
  27     clisp --silent -norc -x \
  28         "(load #p\"/usr/share/common-lisp/source/asdf/asdf\")
  29         (pushnew #p\"/usr/share/common-lisp/systems/\" asdf:*central-registry* :test #'equal)
  30         (asdf:operate 'asdf:compile-op '${_pkgname})
  31         (quit)" &> ${_compile_log_file} || return 1
  32 }
  33 _compile_cmucl() {
  34     cmucl -quiet -nositeinit -noinit -eval \
  35         "(load #p\"/usr/share/common-lisp/source/asdf/asdf\")
  36         (pushnew #p\"/usr/share/common-lisp/systems/\" asdf:*central-registry* :test #'equal)
  37         (asdf:operate 'asdf:compile-op '${_pkgname})
  38         (quit)" &> ${_compile_log_file} || return 1
  39 }
  40
  41 post_install() {
  42     for _lispiter in ${_lisp[@]}; do
  43         echo "---> Compiling lisp files using ${_lispiter} <---"
  44         if [ $_compile_log = 'y' ]; then
  45             _compile_log_file=/tmp/${_pkgname}_${_lispiter}.log
  46         else
  47             _compile_log_file=/dev/null
  48         fi
  49         _compile_${_lispiter}
  50         echo "---> Done compiling lisp files (using ${_lispiter}) <---"
  51     done
  52
  53     cat << EOM
  54
  55     To load this library, load asdf and then run the following lines
  56     (or their equivalent for your lisp of choice):
  57
  58     (push #p"/usr/share/common-lisp/systems/" asdf:*central-registry*)
  59     (asdf:operate 'asdf:load-op '${_pkgname})
  60
  61     Documentation was installed to: /usr/share/doc/cl-${_pkgname}/
  62 EOM
  63 }
  64
  65 post_upgrade() {
  66     post_install $1
  67 }
  68
  69 pre_remove() {
  70     rm -f /usr/share/common-lisp/$_pkgname/{*.fas,*.fasl,*.lib,*.x86f}
  71 }
  72
  73 op=$1
  74 shift
  75
  76 $op $*
  77
  78 # End of file