cgit.sxemacs.org Git - packages/blob - mule-packages/mule-ucs/lisp/big5conv/big5-comp.el

   1 ;;; big5-comp.el --- for byte-compile and other housekeeping jobs.
   2
   3 ;; Copyright (C) 2000 Miyashita Hisashi
   4
   5 ;; Keywords: mule, multilingual, Mule-UCS, JIS X 0213
   6
   7 ;; This file is free software; you can redistribute it and/or modify
   8 ;; it under the terms of the GNU General Public License as published by
   9 ;; the Free Software Foundation; either version 2 of the License, or
  10 ;; (at your option) any later version.
  11 ;;
  12 ;; This program is distributed in the hope that it will be useful,
  13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 ;; GNU General Public License for more details.
  16 ;;
  17 ;; You should have received a copy of the GNU General Public License
  18 ;; along with this program; if not, write to the Free Software
  19 ;; Foundation, Inc., 59 Temple Place - Suite 330,
  20 ;; Boston, MA 02111-1307, USA.
  21
  22 ;; Comment:
  23
  24 (require 'bytecomp)
  25
  26 ;;(message "%S\n" command-line-args-left)
  27 (let ((current-dir default-directory)
  28       (load-path (append '("." "..") load-path))
  29       (compile-file-list-1st '("./big5type.el"
  30                                "./big5conv.el"))
  31       (compile-file-list-2nd '("./big5c-ucs.el"
  32                                "./big5c-cns.el"
  33                                )))
  34   (cd "../../")
  35   (message "Mule-UCS set up-----")
  36   (load-file "./mucs-comp.el")
  37   (cd current-dir)
  38
  39   (message "Compiling 1st stage-----")
  40   (mapcar
  41    (lambda (file)
  42      (save-excursion
  43        (byte-compile-file file)))
  44    compile-file-list-1st)
  45   (message "Compiling 2nd stage!!---")
  46   (mapcar
  47    (lambda (file)
  48      (save-excursion
  49        (byte-compile-file file)))
  50    compile-file-list-2nd))
  51
  52
  53