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
|
#! /bin/sh -e
# /usr/lib/emacsen-common/packages/install/t-code
# Written by Jim Van Zandt <jrv@vanzandt.mv.com>, borrowing heavily
# from the install scripts for gettext by Santiago Vila
# <sanvila@ctv.es> and octave by Dirk Eddelbuettel <edd@debian.org>.
FLAVOR=$1
PACKAGE=t-code
if [ ${FLAVOR} = emacs ]; then exit 0; fi
if [ ${FLAVOR} = xemacs21 ]; then
XEMACS=`ls /usr/bin/xemacs21*-mule* 2> /dev/null | head -1`
if [ -z $XEMACS ];then exit 0; fi
fi
echo install/${PACKAGE}: Handling install for emacsen flavor ${FLAVOR}
FLAVORTEST=`echo $FLAVOR | cut -c-6`
if [ ${FLAVORTEST} = xemacs ] ; then
SITEFLAG="-no-site-file"
else
SITEFLAG="--no-site-file"
fi
FLAGS="${SITEFLAG} -q -batch -l path.el -f batch-byte-compile"
DATADIR=/usr/share/${PACKAGE}
ELDIR=/usr/share/emacs/site-lisp/${PACKAGE}
ELCDIR=/usr/share/${FLAVOR}/site-lisp/${PACKAGE}
# Install-info-altdir does not actually exist.
# Maybe somebody will write it.
#if test -x /usr/sbin/install-info-altdir; then
# echo install/${PACKAGE}: install Info links for ${FLAVOR}
# install-info-altdir --quiet --section "" "" --dirname=${FLAVOR} /usr/info/${PACKAGE}.info.gz
#fi
install -m 755 -d ${ELCDIR}
install -m 444 ${DATADIR}/tc-bitmap-8x16 ${ELCDIR}
cd ${ELDIR}
FILES="eelll.el tc-bushu.el tc-complete.el tc-help.el tc-image.el tc-inst.el tc-is18.el tc-is19.el tc-is20.el tc-jiscode.el tc-mazegaki.el tc-mkmzdic.el tc-pre.el tc-setup.el tc-sysdep.el tc-tbl.el tc-util.el tc.el tutc-tbl.el"
ln -sf ${ELDIR}/*.el ${ELCDIR}
cd ${ELCDIR}
cat << EOF > path.el
(setq load-path (cons "." load-path) byte-compile-warnings nil)
(load "tc-sysdep.el")
(and (fboundp 'set-language-environment)
(set-language-environment "Japanese"))
EOF
if [ -z $XEMACS ]; then
${FLAVOR} ${FLAGS} ${FILES} > CompilationLog 2>&1 || abort_install
else
${XEMACS} ${FLAGS} ${FILES} > CompilationLog 2>&1 || abort_install
fi
rm -f path.el
exit 0
|
