cl-xmls/cl-xmls.install

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