1 ;;; pccl-om.el --- Portable CCL utility for Mule 1.* and Mule 2.*
3 ;; Copyright (C) 1998 Free Software Foundation, Inc.
4 ;; Copyright (C) 1998 Tanaka Akira
6 ;; Author: Tanaka Akira <akr@jaist.ac.jp>
7 ;; Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
8 ;; Keywords: emulation, compatibility, Mule
10 ;; This file is part of APEL (A Portable Emacs Library).
12 ;; This program is free software; you can redistribute it and/or
13 ;; modify it under the terms of the GNU General Public License as
14 ;; published by the Free Software Foundation; either version 2, or (at
15 ;; your option) any later version.
17 ;; This program is distributed in the hope that it will be useful, but
18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
20 ;; General Public License for more details.
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
25 ;; Boston, MA 02111-1307, USA.
31 (eval-when-compile (require 'ccl))
34 (broken-facility ccl-accept-symbol-as-program
35 "Emacs does not accept symbol as CCL program.")
38 (defun make-ccl-coding-system
39 (coding-system mnemonic doc-string decoder encoder)
41 Define a new CODING-SYSTEM by CCL programs DECODER and ENCODER.
43 CODING-SYSTEM, DECODER and ENCODER must be symbol."
44 (setq decoder (symbol-value decoder)
45 encoder (symbol-value encoder))
46 (make-coding-system coding-system 4 mnemonic doc-string
47 nil ; Mule takes one more optional argument: EOL-TYPE.
48 (cons decoder encoder)))
51 (defun ccl-execute (ccl-prog reg)
52 "Execute CCL-PROG with registers initialized by REGISTERS.
53 If CCL-PROG is symbol, it is dereferenced.
54 \[Emacs 20.3 emulating function]"
56 (if (symbolp ccl-prog) (symbol-value ccl-prog) ccl-prog)
59 (defun ccl-execute-on-string (ccl-prog status string &optional contin)
60 "Execute CCL-PROG with initial STATUS on STRING.
61 If CCL-PROG is symbol, it is dereferenced.
62 \[Emacs 20.3 emulating function]"
64 (if (symbolp ccl-prog) (symbol-value ccl-prog) ccl-prog)
67 (broken-facility ccl-execute-on-string-ignore-contin
68 "CONTIN argument for ccl-execute-on-string is ignored.")
71 (define-ccl-program test-ccl-eof-block
78 (make-ccl-coding-system
79 'test-ccl-eof-block-cs ?T "CCL_EOF_BLOCK tester"
80 'test-ccl-eof-block 'test-ccl-eof-block)
83 (broken-facility ccl-execute-eof-block-on-encoding-null
84 "Emacs forgets executing CCL_EOF_BLOCK with encoding on empty input."
85 (equal (encode-coding-string "" 'test-ccl-eof-block-cs) "[EOF]"))
87 (broken-facility ccl-execute-eof-block-on-encoding-some
88 "Emacs forgets executing CCL_EOF_BLOCK with encoding on non-empty input."
89 (equal (encode-coding-string "a" 'test-ccl-eof-block-cs) "a[EOF]"))
91 (broken-facility ccl-execute-eof-block-on-decoding-null
92 "Emacs forgets executing CCL_EOF_BLOCK with decoding on empty input."
93 (equal (decode-coding-string "" 'test-ccl-eof-block-cs) "[EOF]"))
95 (broken-facility ccl-execute-eof-block-on-decoding-some
96 "Emacs forgets executing CCL_EOF_BLOCK with decoding on non-empty input."
97 (equal (decode-coding-string "a" 'test-ccl-eof-block-cs) "a[EOF]"))
99 (broken-facility ccl-execute-eof-block-on-encoding
100 "Emacs may forget executing CCL_EOF_BLOCK with encoding."
101 (not (or (broken-p 'ccl-execute-eof-block-on-encoding-null)
102 (broken-p 'ccl-execute-eof-block-on-encoding-some)))
105 (broken-facility ccl-execute-eof-block-on-decoding
106 "Emacs may forget executing CCL_EOF_BLOCK with decoding."
107 (not (or (broken-p 'ccl-execute-eof-block-on-decoding-null)
108 (broken-p 'ccl-execute-eof-block-on-decoding-some)))
111 (broken-facility ccl-execute-eof-block
112 "Emacs may forget executing CCL_EOF_BLOCK."
113 (not (or (broken-p 'ccl-execute-eof-block-on-encoding)
114 (broken-p 'ccl-execute-eof-block-on-decoding)))
123 ;;; pccl-om.el ends here