2
;;; Copyright (c) 2003,2004 uim Project http://uim.freedesktop.org/
4
;;; All rights reserved.
6
;;; Redistribution and use in source and binary forms, with or without
7
;;; modification, are permitted provided that the following conditions
9
;;; 1. Redistributions of source code must retain the above copyright
10
;;; notice, this list of conditions and the following disclaimer.
11
;;; 2. Redistributions in binary form must reproduce the above copyright
12
;;; notice, this list of conditions and the following disclaimer in the
13
;;; documentation and/or other materials provided with the distribution.
14
;;; 3. Neither the name of authors nor the names of its contributors
15
;;; may be used to endorse or promote products derived from this software
16
;;; without specific prior written permission.
18
;;; THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
19
;;; ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
20
;;; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
21
;;; ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
22
;;; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
23
;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
24
;;; OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
25
;;; HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
26
;;; LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
27
;;; OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31
(require "generic.scm")
33
(define py-init-handler
36
(let* ((c (find-context id))
37
(cc (context-data c)))
40
(generic-context-new py-rule #f))
44
'py "zh_CN" "GB18030" py-init-handler)
46
(define pyunihan-init-handler
48
(require "pyunihan.scm")
49
(let* ((c (find-context id))
50
(cc (context-data c)))
53
(generic-context-new pyunihan-rule #f))
57
'pyunihan "zh_CN" "UTF-8" pyunihan-init-handler)
59
(define pinyin-big5-init-handler
61
(require "pinyin-big5.scm")
62
(let* ((c (find-context id))
63
(cc (context-data c)))
66
(generic-context-new pinyin-big5-rule #f))
70
'pinyin-big5 "*" "UTF-8" pinyin-big5-init-handler)