Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tag: chao-gnus-6_12…
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 79 lines (62 sloc) 2.492 kb
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 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78
;;; pccl.el --- Portable CCL utility for Mule 1.* and Mule 2.*

;; Copyright (C) 1998 Free Software Foundation, Inc.

;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Keywords: emulation, compatibility, Mule

;; This file is part of APEL (A Portable Emacs Library).

;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation; either version 2, or (at
;; your option) any later version.

;; This program is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Code:

(require 'broken)

;; The condition for non-XEmacs mule t may be wrong.
;; But I don't know exact version which introduce CCL on mule.
(broken-facility ccl-usable
  "Emacs has CCL."
  (and (featurep 'mule)
       (if (featurep 'xemacs)
           (>= emacs-major-version 21)
         t)))

(unless-broken ccl-usable
  (require 'ccl)
  (require 'advice)

  (if (featurep 'mule)
      (if (featurep 'xemacs)
          (if (>= emacs-major-version 21)
              ;; for XEmacs-21-mule
              (require 'pccl-20))
        (if (>= emacs-major-version 20)
            ;; for Emacs 20
            (require 'pccl-20)
          ;; for MULE 1.* and 2.*
          (require 'pccl-om))))

  (defadvice define-ccl-program
    (before accept-long-ccl-program activate)
    "When CCL-PROGRAM is too long, internal buffer is extended automaticaly."
    (let ((try-ccl-compile t)
          (prog (eval (ad-get-arg 1))))
      (ad-set-arg 1 (` '(, prog)))
      (while try-ccl-compile
        (setq try-ccl-compile nil)
        (condition-case sig
            (ccl-compile prog)
          (args-out-of-range
           (if (and (eq (car (cdr sig)) ccl-program-vector)
                    (= (car (cdr (cdr sig))) (length ccl-program-vector)))
               (setq ccl-program-vector
                     (make-vector (* 2 (length ccl-program-vector)) 0)
                     try-ccl-compile t)
             (signal (car sig) (cdr sig))))))))
  )


;;; @ end
;;;

(provide 'pccl)

;;; pccl.el ends here
Something went wrong with that request. Please try again.