annotate lisp/ps-mule.el @ 26607:4cd19d3e4f0f

(f90-abbrev-start): Use `eq' instead of `='.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 26 Nov 1999 13:47:59 +0000
parents a6cf126fdf97
children 5b331ff3b477
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1 ;;; ps-mule.el --- Provide multi-byte character facility to ps-print.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
2
26115
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
3 ;; Copyright (C) 1998, 1999 Free Software Foundation, Inc.
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
4
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
5 ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
6 ;; Author: Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
7 ;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
8 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
26115
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
9 ;; Keywords: wp, print, PostScript, multibyte, mule
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
10 ;; Time-stamp: <99/06/24 23:07:11 vinicius>
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
11
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
12 ;; This file is part of GNU Emacs.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
13
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
14 ;; GNU Emacs is free software; you can redistribute it and/or modify
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
15 ;; it under the terms of the GNU General Public License as published by
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
16 ;; the Free Software Foundation; either version 2, or (at your option)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
17 ;; any later version.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
18
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
19 ;; GNU Emacs is distributed in the hope that it will be useful,
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
22 ;; GNU General Public License for more details.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
23
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
24 ;; You should have received a copy of the GNU General Public License
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
25 ;; along with GNU Emacs; see the file COPYING. If not, write to the
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
26 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
27 ;; Boston, MA 02111-1307, USA.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
28
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
29 ;;; Commentary:
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
30
26115
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
31 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
32 ;;
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
33 ;; About ps-mule
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
34 ;; -------------
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
35 ;;
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
36 ;; This package is used for ps-print to print multi-byte buffer.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
37 ;;
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
38 ;; See also ps-print.el.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
39 ;;
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
40 ;;
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
41 ;; Printing Multi-byte Buffer
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
42 ;; --------------------------
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
43 ;;
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
44 ;; The variable `ps-multibyte-buffer' specifies the ps-print multi-byte buffer
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
45 ;; handling.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
46 ;;
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
47 ;; Valid values for `ps-multibyte-buffer' are:
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
48 ;;
26115
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
49 ;; nil This is the value to use the default settings which
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
50 ;; is by default for printing buffer with only ASCII
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
51 ;; and Latin characters. The default setting can be
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
52 ;; changed by setting the variable
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
53 ;; `ps-mule-font-info-database-default' differently.
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
54 ;; The initial value of this variable is
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
55 ;; `ps-mule-font-info-database-latin' (see
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
56 ;; documentation).
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
57 ;;
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
58 ;; `non-latin-printer' This is the value to use when you have a japanese
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
59 ;; or korean PostScript printer and want to print
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
60 ;; buffer with ASCII, Latin-1, Japanese (JISX0208 and
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
61 ;; JISX0201-Kana) and Korean characters. At present,
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
62 ;; it was not tested the Korean characters printing.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
63 ;; If you have a korean PostScript printer, please,
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
64 ;; test it.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
65 ;;
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
66 ;; `bdf-font' This is the value to use when you want to print
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
67 ;; buffer with BDF fonts. BDF fonts include both latin
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
68 ;; and non-latin fonts. BDF (Bitmap Distribution
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
69 ;; Format) is a format used for distributing X's font
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
70 ;; source file. BDF fonts are included in
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
71 ;; `intlfonts-1.1' which is a collection of X11 fonts
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
72 ;; for all characters supported by Emacs. In order to
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
73 ;; use this value, be sure to have installed
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
74 ;; `intlfonts-1.1' and set the variable
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
75 ;; `bdf-directory-list' appropriately (see ps-bdf.el
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
76 ;; for documentation of this variable).
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
77 ;;
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
78 ;; `bdf-font-except-latin' This is like `bdf-font' except that it is used
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
79 ;; PostScript default fonts to print ASCII and Latin-1
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
80 ;; characters. This is convenient when you want or
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
81 ;; need to use both latin and non-latin characters on
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
82 ;; the same buffer. See `ps-font-family',
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
83 ;; `ps-header-font-family' and `ps-font-info-database'.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
84 ;;
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
85 ;; Any other value is treated as nil.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
86 ;;
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
87 ;; The default is nil.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
88 ;;
26115
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
89 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
90
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
91 ;;; Code:
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
92
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
93 (eval-and-compile (require 'ps-print))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
94
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
95
26483
f8035e82cde3 Require ps-vars instead of ps-print-def.
Kenichi Handa <handa@m17n.org>
parents: 26115
diff changeset
96 (require 'ps-vars) ; Common definitions
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
97
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
98
26115
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
99 ;;;; `ps-multibyte-buffer' definition should be placed in `ps-mule' but due to
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
100 ;;;; compilation and customization gripes it was moved to `ps-print-def'.
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
101 ;;
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
102 ;;(defcustom ps-multibyte-buffer nil
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
103 ;; "*Specifies the multi-byte buffer handling.
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
104 ;;
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
105 ;;Valid values are:
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
106 ;;
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
107 ;; nil This is the value to use the default settings which
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
108 ;; is by default for printing buffer with only ASCII
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
109 ;; and Latin characters. The default setting can be
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
110 ;; changed by setting the variable
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
111 ;; `ps-mule-font-info-database-default' differently.
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
112 ;; The initial value of this variable is
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
113 ;; `ps-mule-font-info-database-latin' (see
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
114 ;; documentation).
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
115 ;;
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
116 ;; `non-latin-printer' This is the value to use when you have a Japanese
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
117 ;; or Korean PostScript printer and want to print
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
118 ;; buffer with ASCII, Latin-1, Japanese (JISX0208 and
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
119 ;; JISX0201-Kana) and Korean characters. At present,
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
120 ;; it was not tested the Korean characters printing.
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
121 ;; If you have a korean PostScript printer, please,
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
122 ;; test it.
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
123 ;;
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
124 ;; `bdf-font' This is the value to use when you want to print
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
125 ;; buffer with BDF fonts. BDF fonts include both latin
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
126 ;; and non-latin fonts. BDF (Bitmap Distribution
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
127 ;; Format) is a format used for distributing X's font
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
128 ;; source file. BDF fonts are included in
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
129 ;; `intlfonts-1.1' which is a collection of X11 fonts
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
130 ;; for all characters supported by Emacs. In order to
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
131 ;; use this value, be sure to have installed
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
132 ;; `intlfonts-1.1' and set the variable
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
133 ;; `bdf-directory-list' appropriately (see ps-bdf.el for
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
134 ;; documentation of this variable).
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
135 ;;
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
136 ;; `bdf-font-except-latin' This is like `bdf-font' except that it is used
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
137 ;; PostScript default fonts to print ASCII and Latin-1
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
138 ;; characters. This is convenient when you want or
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
139 ;; need to use both latin and non-latin characters on
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
140 ;; the same buffer. See `ps-font-family',
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
141 ;; `ps-header-font-family' and `ps-font-info-database'.
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
142 ;;
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
143 ;;Any other value is treated as nil."
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
144 ;; :type '(choice (const non-latin-printer) (const bdf-font)
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
145 ;; (const bdf-font-except-latin) (other :tag "nil" nil))
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
146 ;; :group 'ps-print-font)
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
147
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
148
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
149 ;; For Emacs 20.2 and the earlier version.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
150 (eval-and-compile
26115
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
151 (if (and (boundp 'mule-version) ; only if mule package is loaded
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
152 (not (string< mule-version "4.0")))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
153 (progn
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
154 (defalias 'ps-mule-next-point '1+)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
155 (defalias 'ps-mule-chars-in-string 'length)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
156 (defalias 'ps-mule-string-char 'aref)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
157 (defsubst ps-mule-next-index (str i) (1+ i)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
158 (defun ps-mule-next-point (arg)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
159 (save-excursion (goto-char arg) (forward-char 1) (point)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
160 (defun ps-mule-chars-in-string (string)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
161 (/ (length string)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
162 (charset-bytes (char-charset (string-to-char string)))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
163 (defun ps-mule-string-char (string idx)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
164 (string-to-char (substring string idx)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
165 (defun ps-mule-next-index (string i)
26115
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
166 (+ i (charset-bytes (char-charset (string-to-char string)))))))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
167
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
168 (defvar ps-mule-font-info-database
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
169 nil
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
170 "Alist of charsets with the corresponding font information.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
171 Each element has the form:
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
172
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
173 (CHARSET (FONT-TYPE FONT-SRC FONT-NAME ENCODING BYTES) ...)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
174
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
175 Where
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
176
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
177 CHARSET is a charset (symbol) for this font family,
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
178
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
179 FONT-TYPE is a font type: normal, bold, italic, or bold-italic.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
180
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
181 FONT-SRC is a font source: builtin, ps-bdf, vflib, or nil.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
182
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
183 If FONT-SRC is builtin, FONT-NAME is a buitin PostScript font name.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
184
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
185 If FONT-SRC is bdf, FONT-NAME is a BDF font file name, or a list of
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
186 alternative font names. To use this font, the external library `ps-bdf'
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
187 is required.
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
188
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
189 If FONT-SRC is vflib, FONT-NAME is the name of a font that VFlib knows.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
190 To use this font, the external library `vflib' is required.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
191
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
192 If FONT-SRC is nil, a proper ASCII font in the variable
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
193 `ps-font-info-database' is used. This is useful for Latin-1 characters.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
194
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
195 ENCODING is a coding system to encode a string of characters of CHARSET into a
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
196 proper string matching an encoding of the specified font. ENCODING may be a
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
197 function that does this encoding. In this case, the function is called with
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
198 one argument, the string to encode, and it should return an encoded string.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
199
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
200 BYTES specifies how many bytes each character has in the encoded byte
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
201 sequence; it should be 1 or 2.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
202
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
203 All multi-byte characters are printed by fonts specified in this database
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
204 regardless of a font family of ASCII characters. The exception is Latin-1
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
205 characters which are printed by the same font as ASCII characters, thus obey
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
206 font family.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
207
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
208 See also the variable `ps-font-info-database'.")
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
209
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
210 (defconst ps-mule-font-info-database-latin
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
211 '((latin-iso8859-1
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
212 (normal nil nil iso-latin-1)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
213 "Sample setting of `ps-mule-font-info-database' to use latin fonts.")
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
214
26115
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
215 (defcustom ps-mule-font-info-database-default
24307
6909b106c5c6 (ps-mule-font-info-database-default): Set the initial
Kenichi Handa <handa@m17n.org>
parents: 24306
diff changeset
216 ps-mule-font-info-database-latin
26115
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
217 "*The default setting to use if `ps-multibyte-buffer' is nil."
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
218 :type '(repeat :tag "Multi-Byte Buffer Database Font Default"
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
219 (list (symbol :tag "Charset")
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
220 (repeat :inline t
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
221 (list (choice :tag "Font Type"
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
222 (const normal) (const bold)
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
223 (const italic) (const bold-italic))
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
224 (choice :tag "Font Source"
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
225 (const builtin) (const ps-bdf)
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
226 (const vflib)
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
227 (other :tag "nil" nil))
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
228 (list (string :tag "Font Name"))
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
229 (function :tag "Encoding")
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
230 (integer :tag "Bytes")))))
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
231 :group 'ps-print-font)
24306
432510346b14 (ps-multibyte-buffer): Doc-string modified.
Kenichi Handa <handa@m17n.org>
parents: 24303
diff changeset
232
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
233 (defconst ps-mule-font-info-database-ps
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
234 '((katakana-jisx0201
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
235 (normal builtin "Ryumin-Light.Katakana" ps-mule-encode-7bit 1)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
236 (bold builtin "GothicBBB-Medium.Katakana" ps-mule-encode-7bit 1)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
237 (bold-italic builtin "GothicBBB-Medium.Katakana" ps-mule-encode-7bit 1))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
238 (latin-jisx0201
25828
55e4513821f8 (ps-mule-font-info-database-ps): Typo fixed
Kenichi Handa <handa@m17n.org>
parents: 25086
diff changeset
239 (normal builtin "Ryumin-Light.Hankaku" ps-mule-encode-7bit 1)
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
240 (bold builtin "GothicBBB-Medium.Hankaku" ps-mule-encode-7bit 1))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
241 (japanese-jisx0208
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
242 (normal builtin "Ryumin-Light-H" ps-mule-encode-7bit 2)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
243 (bold builtin "GothicBBB-Medium-H" ps-mule-encode-7bit 2))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
244 (korean-ksc5601
25828
55e4513821f8 (ps-mule-font-info-database-ps): Typo fixed
Kenichi Handa <handa@m17n.org>
parents: 25086
diff changeset
245 (normal builtin "Munhwa-Regular-KSC-EUC-H" ps-mule-encode-7bit 2)
55e4513821f8 (ps-mule-font-info-database-ps): Typo fixed
Kenichi Handa <handa@m17n.org>
parents: 25086
diff changeset
246 (bold builtin "Munhwa-Bold-KSC-EUC-H" ps-mule-encode-7bit 2))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
247 )
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
248 "Sample setting of the `ps-mule-font-info-database' to use builtin PS font.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
249
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
250 Currently, data for Japanese and Korean PostScript printers are listed.")
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
251
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
252 (defconst ps-mule-font-info-database-bdf
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
253 '((ascii
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
254 (normal bdf ("lt1-24-etl.bdf" "etl24-latin1.bdf") nil 1)
24303
958f4aa0dceb (ps-mule-font-info-database-bdf): Fix ENCODING field
Kenichi Handa <handa@m17n.org>
parents: 24086
diff changeset
255 (bold bdf ("lt1-16b-etl.bdf" "etl16b-latin1.bdf") nil 1)
958f4aa0dceb (ps-mule-font-info-database-bdf): Fix ENCODING field
Kenichi Handa <handa@m17n.org>
parents: 24086
diff changeset
256 (italic bdf ("lt1-16i-etl.bdf" "etl16i-latin1.bdf") nil 1)
958f4aa0dceb (ps-mule-font-info-database-bdf): Fix ENCODING field
Kenichi Handa <handa@m17n.org>
parents: 24086
diff changeset
257 (bold-italic bdf ("lt1-16bi-etl.bdf" "etl16bi-latin1.bdf") nil 1))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
258 (latin-iso8859-1
24303
958f4aa0dceb (ps-mule-font-info-database-bdf): Fix ENCODING field
Kenichi Handa <handa@m17n.org>
parents: 24086
diff changeset
259 (normal bdf ("lt1-24-etl.bdf" "etl24-latin1.bdf") iso-latin-1 1)
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
260 (bold bdf ("lt1-16b-etl.bdf" "etl16b-latin1.bdf") iso-latin-1 1)
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
261 (italic bdf ("lt1-16i-etl.bdf" "etl16i-latin1.bdf") iso-latin-1 1)
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
262 (bold-italic bdf ("lt1-16bi-etl.bdf" "etl16bi-latin1.bdf") iso-latin-1 1))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
263 (latin-iso8859-2
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
264 (normal bdf ("lt2-24-etl.bdf" "etl24-latin2.bdf") iso-latin-2 1))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
265 (latin-iso8859-3
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
266 (normal bdf ("lt3-24-etl.bdf" "etl24-latin3.bdf") iso-latin-3 1))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
267 (latin-iso8859-4
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
268 (normal bdf ("lt4-24-etl.bdf" "etl24-latin4.bdf") iso-latin-4 1))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
269 (thai-tis620
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
270 (normal bdf ("thai24.bdf" "thai-24.bdf") thai-tis620 1))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
271 (greek-iso8859-7
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
272 (normal bdf ("grk24-etl.bdf" "etl24-greek.bdf") greek-iso-8bit 1))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
273 ;; (arabic-iso8859-6 nil) ; not yet available
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
274 (hebrew-iso8859-8
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
275 (normal bdf ("heb24-etl.bdf" "etl24-hebrew.bdf") hebrew-iso-8bit 1))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
276 (katakana-jisx0201
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
277 (normal bdf "12x24rk.bdf" ps-mule-encode-8bit 1))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
278 (latin-jisx0201
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
279 (normal bdf "12x24rk.bdf" ps-mule-encode-7bit 1))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
280 (cyrillic-iso8859-5
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
281 (normal bdf ("cyr24-etl.bdf" "etl24-cyrillic.bdf") cyrillic-iso-8bit 1))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
282 (latin-iso8859-9
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
283 (normal bdf ("lt5-24-etl.bdf" "etl24-latin5.bdf") iso-latin-5 1))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
284 (japanese-jisx0208-1978
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
285 (normal bdf "jiskan24.bdf" ps-mule-encode-7bit 2))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
286 (chinese-gb2312
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
287 (normal bdf "gb24st.bdf" ps-mule-encode-7bit 2))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
288 (japanese-jisx0208
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
289 (normal bdf "jiskan24.bdf" ps-mule-encode-7bit 2))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
290 (korean-ksc5601
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
291 (normal bdf "hanglm24.bdf" ps-mule-encode-7bit 2))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
292 (japanese-jisx0212
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
293 (normal bdf ("jksp40.bdf" "jisksp40.bdf") ps-mule-encode-7bit 2))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
294 (chinese-cns11643-1
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
295 (normal bdf ("cns1-40.bdf" "cns-1-40.bdf") ps-mule-encode-7bit 2))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
296 (chinese-cns11643-2
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
297 (normal bdf ("cns2-40.bdf" "cns-2-40.bdf") ps-mule-encode-7bit 2))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
298 (chinese-big5-1
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
299 (normal bdf "taipei24.bdf" chinese-big5 2))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
300 (chinese-big5-2
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
301 (normal bdf "taipei24.bdf" chinese-big5 2))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
302 (chinese-sisheng
26512
a6cf126fdf97 (ps-mule-font-info-database-bdf): Default BDF font
Kenichi Handa <handa@m17n.org>
parents: 26483
diff changeset
303 (normal bdf ("sish24-etl.bdf" "etl24-sisheng.bdf") ps-mule-encode-7bit 1))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
304 (ipa
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
305 (normal bdf ("ipa24-etl.bdf" "etl24-ipa.bdf") ps-mule-encode-8bit 1))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
306 (vietnamese-viscii-lower
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
307 (normal bdf ("visc24-etl.bdf" "etl24-viscii.bdf") vietnamese-viscii 1))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
308 (vietnamese-viscii-upper
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
309 (normal bdf ("visc24-etl.bdf" "etl24-viscii.bdf") vietnamese-viscii 1))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
310 (arabic-digit
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
311 (normal bdf ("arab24-0-etl.bdf" "etl24-arabic0.bdf") ps-mule-encode-7bit 1))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
312 (arabic-1-column
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
313 (normal bdf ("arab24-1-etl.bdf" "etl24-arabic1.bdf") ps-mule-encode-7bit 1))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
314 ;; (ascii-right-to-left nil) ; not yet available
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
315 (lao
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
316 (normal bdf ("lao24-mule.bdf" "mule-lao-24.bdf") lao 1))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
317 (arabic-2-column
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
318 (normal bdf ("arab24-2-etl.bdf" "etl24-arabic2.bdf") ps-mule-encode-7bit 1))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
319 (indian-is13194
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
320 (normal bdf ("isci24-etl.bdf" "mule-iscii-24.bdf") ps-mule-encode-7bit 1))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
321 (indian-1-column
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
322 (normal bdf ("ind1c24-mule.bdf" "mule-indian-1col-24.bdf") ps-mule-encode-7bit 2))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
323 (tibetan-1-column
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
324 (normal bdf ("tib1c24-mule.bdf" "mule-tibmdx-1col-24.bdf") ps-mule-encode-7bit 2))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
325 (ethiopic
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
326 (normal bdf ("ethio24f-uni.bdf" "ethiomx24f-uni.bdf") ps-mule-encode-ethiopic 2))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
327 (chinese-cns11643-3
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
328 (normal bdf ("cns3-40.bdf" "cns-3-40.bdf") ps-mule-encode-7bit 2))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
329 (chinese-cns11643-4
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
330 (normal bdf ("cns4-40.bdf" "cns-4-40.bdf") ps-mule-encode-7bit 2))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
331 (chinese-cns11643-5
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
332 (normal bdf ("cns5-40.bdf" "cns-5-40.bdf") ps-mule-encode-7bit 2))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
333 (chinese-cns11643-6
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
334 (normal bdf ("cns6-40.bdf" "cns-6-40.bdf") ps-mule-encode-7bit 2))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
335 (chinese-cns11643-7
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
336 (normal bdf ("cns7-40.bdf" "cns-7-40.bdf") ps-mule-encode-7bit 2))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
337 (indian-2-column
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
338 (normal bdf ("ind24-mule.bdf" "mule-indian-24.bdf") ps-mule-encode-7bit 2))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
339 (tibetan
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
340 (normal bdf ("tib24-mule.bdf" "mule-tibmdx-24.bdf") ps-mule-encode-7bit 2)))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
341 "Sample setting of the `ps-mule-font-info-database' to use BDF fonts.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
342 BDF (Bitmap Distribution Format) is a format used for distributing X's font
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
343 source file.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
344
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
345 Current default value list for BDF fonts is included in `intlfonts-1.1' which is
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
346 a collection of X11 fonts for all characters supported by Emacs.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
347
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
348 Using this list as default value to `ps-mule-font-info-database', all characters
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
349 including ASCII and Latin-1 are printed by BDF fonts.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
350
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
351 See also `ps-mule-font-info-database-ps-bdf'.")
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
352
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
353 (defconst ps-mule-font-info-database-ps-bdf
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
354 (cons (car ps-mule-font-info-database-latin)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
355 (cdr (cdr ps-mule-font-info-database-bdf)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
356 "Sample setting of the `ps-mule-font-info-database' to use BDF fonts.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
357
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
358 Current default value list for BDF fonts is included in `intlfonts-1.1' which is
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
359 a collection of X11 fonts for all characters supported by Emacs.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
360
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
361 Using this list as default value to `ps-mule-font-info-database', all characters
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
362 except ASCII and Latin-1 characters are printed by BDF fonts. ASCII and Latin-1
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
363 characters are printed by PostScript font specified by `ps-font-family' and
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
364 `ps-header-font-family'.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
365
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
366 See also `ps-mule-font-info-database-bdf'.")
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
367
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
368 ;; Two typical encoding functions for PostScript fonts.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
369
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
370 (defun ps-mule-encode-7bit (string)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
371 (ps-mule-encode-bit string 0))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
372
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
373 (defun ps-mule-encode-8bit (string)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
374 (ps-mule-encode-bit string 128))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
375
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
376 (defun ps-mule-encode-bit (string delta)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
377 (let* ((dim (charset-dimension (char-charset (string-to-char string))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
378 (len (* (ps-mule-chars-in-string string) dim))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
379 (str (make-string len 0))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
380 (i 0)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
381 (j 0))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
382 (if (= dim 1)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
383 (while (< j len)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
384 (aset str j
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
385 (+ (nth 1 (split-char (ps-mule-string-char string i))) delta))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
386 (setq i (ps-mule-next-index string i)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
387 j (1+ j)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
388 (while (< j len)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
389 (let ((split (split-char (ps-mule-string-char string i))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
390 (aset str j (+ (nth 1 split) delta))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
391 (aset str (1+ j) (+ (nth 2 split) delta))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
392 (setq i (ps-mule-next-index string i)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
393 j (+ j 2)))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
394 str))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
395
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
396 ;; Special encoding function for Ethiopic.
26115
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
397 (if (boundp 'mule-version) ; only if mule package is loaded
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
398 (define-ccl-program ccl-encode-ethio-unicode
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
399 `(1
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
400 ((read r2)
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
401 (loop
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
402 (if (r2 == ,leading-code-private-22)
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
403 ((read r0)
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
404 (if (r0 == ,(charset-id 'ethiopic))
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
405 ((read r1 r2)
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
406 (r1 &= 127) (r2 &= 127)
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
407 (call ccl-encode-ethio-font)
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
408 (write r1)
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
409 (write-read-repeat r2))
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
410 ((write r2 r0)
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
411 (repeat))))
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
412 (write-read-repeat r2))))))
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
413 ;; to avoid compilation gripes
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
414 (defvar ccl-encode-ethio-unicode nil))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
415
26115
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
416 (if (boundp 'mule-version)
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
417 ;; bound mule-version
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
418 (defun ps-mule-encode-ethiopic (string)
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
419 (ccl-execute-on-string (symbol-value 'ccl-encode-ethio-unicode)
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
420 (make-vector 9 nil)
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
421 string))
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
422 ;; unbound mule-version
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
423 (defun ps-mule-encode-ethiopic (string)
314173e121ee Doc fix, define functions properly if mule package is
Kenichi Handa <handa@m17n.org>
parents: 25828
diff changeset
424 string))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
425
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
426 ;; A charset which we are now processing.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
427 (defvar ps-mule-current-charset nil)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
428
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
429 (defun ps-mule-get-font-spec (charset font-type)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
430 "Return FONT-SPEC for printing characters CHARSET with FONT-TYPE.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
431 FONT-SPEC is a list that has the form:
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
432
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
433 (FONT-SRC FONT-NAME ENCODING BYTES)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
434
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
435 FONT-SPEC is extracted from `ps-mule-font-info-database'.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
436
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
437 See the documentation of `ps-mule-font-info-database' for the meaning of each
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
438 element of the list."
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
439 (let ((slot (cdr (assq charset ps-mule-font-info-database))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
440 (and slot
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
441 (cdr (or (assq font-type slot)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
442 (and (eq font-type 'bold-italic)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
443 (or (assq 'bold slot) (assq 'italic slot)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
444 (assq 'normal slot))))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
445
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
446 ;; Functions to access each element of FONT-SPEC.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
447 (defsubst ps-mule-font-spec-src (font-spec) (car font-spec))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
448 (defsubst ps-mule-font-spec-name (font-spec) (nth 1 font-spec))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
449 (defsubst ps-mule-font-spec-encoding (font-spec) (nth 2 font-spec))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
450 (defsubst ps-mule-font-spec-bytes (font-spec) (nth 3 font-spec))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
451
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
452 (defsubst ps-mule-printable-p (charset)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
453 "Non-nil if characters in CHARSET is printable."
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
454 (ps-mule-get-font-spec charset 'normal))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
455
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
456 (defconst ps-mule-external-libraries
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
457 '((builtin nil nil
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
458 nil nil nil)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
459 (bdf ps-bdf nil
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
460 bdf-generate-prologue bdf-generate-font bdf-generate-glyphs)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
461 (pcf nil nil
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
462 pcf-generate-prologue pcf-generate-font pcf-generate-glyphs)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
463 (vflib nil nil
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
464 vflib-generate-prologue vflib-generate-font vflib-generate-glyphs))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
465 "Alist of information of external libraries to support PostScript printing.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
466 Each element has the form:
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
467
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
468 (FONT-SRC FEATURE INITIALIZED-P PROLOGUE-FUNC FONT-FUNC GLYPHS-FUNC)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
469
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
470 FONT-SRC is the font source: builtin, bdf, pcf, or vflib.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
471
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
472 FEATURE is the feature that provide a facility to handle FONT-SRC. Except for
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
473 `builtin' FONT-SRC, this feature is automatically `require'd before handling
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
474 FONT-SRC. Currently, we only have the feature `ps-bdf'.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
475
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
476 INITIALIZED-P indicates if this library is initialized or not.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
477
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
478 PROLOGUE-FUNC is a function to generate PostScript code which define several
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
479 PostScript procedures that will be called by FONT-FUNC and GLYPHS-FUNC. It is
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
480 called with no argument, and should return a list of strings.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
481
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
482 FONT-FUNC is a function to generate PostScript code which define a new font. It
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
483 is called with one argument FONT-SPEC, and should return a list of strings.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
484
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
485 GLYPHS-FUNC is a function to generate PostScript code which define glyphs of
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
486 characters. It is called with three arguments FONT-SPEC, CODE-LIST, and BYTES,
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
487 and should return a list of strings.")
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
488
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
489 (defun ps-mule-init-external-library (font-spec)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
490 "Initialize external library specified by FONT-SPEC for PostScript printing.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
491 See the documentation of `ps-mule-get-font-spec' for FONT-SPEC's meaning."
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
492 (let* ((font-src (ps-mule-font-spec-src font-spec))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
493 (slot (assq font-src ps-mule-external-libraries)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
494 (or (not font-src)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
495 (nth 2 slot)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
496 (let ((func (nth 3 slot)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
497 (if func
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
498 (progn
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
499 (or (featurep (nth 1 slot)) (require (nth 1 slot)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
500 (ps-output-prologue (funcall func))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
501 (setcar (nthcdr 2 slot) t)))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
502
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
503 ;; Cached glyph information of fonts, alist of:
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
504 ;; (FONT-NAME ((FONT-TYPE-NUMBER . SCALED-FONT-NAME) ...)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
505 ;; cache CODE0 CODE1 ...)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
506 (defvar ps-mule-font-cache nil)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
507
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
508 (defun ps-mule-generate-font (font-spec charset)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
509 "Generate PostScript codes to define a new font in FONT-SPEC for CHARSET."
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
510 (let* ((font-name (ps-mule-font-spec-name font-spec))
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
511 (font-name (if (consp font-name) (car font-name) font-name))
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
512 (font-cache (assoc font-name ps-mule-font-cache))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
513 (font-src (ps-mule-font-spec-src font-spec))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
514 (func (nth 4 (assq font-src ps-mule-external-libraries)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
515 (scaled-font-name
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
516 (if (eq charset 'ascii)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
517 (format "f%d" ps-current-font)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
518 (format "f%02x-%d"
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
519 (charset-id charset) ps-current-font))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
520 (and func (not font-cache)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
521 (ps-output-prologue (funcall func charset font-spec)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
522 (ps-output-prologue
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
523 (list (format "/%s %f /%s Def%sFontMule\n"
24415
48003e436759 Change of ps-print font size variable name.
Kenichi Handa <handa@m17n.org>
parents: 24307
diff changeset
524 scaled-font-name ps-font-size-internal font-name
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
525 (if (eq ps-mule-current-charset 'ascii) "Ascii" ""))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
526 (if font-cache
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
527 (setcar (cdr font-cache)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
528 (cons (cons ps-current-font scaled-font-name)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
529 (nth 1 font-cache)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
530 (setq font-cache (list font-name
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
531 (list (cons ps-current-font scaled-font-name))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
532 'cache)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
533 ps-mule-font-cache (cons font-cache ps-mule-font-cache)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
534 font-cache))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
535
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
536 (defun ps-mule-generate-glyphs (font-spec code-list)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
537 "Generate PostScript codes which generate glyphs for CODE-LIST of FONT-SPEC."
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
538 (let* ((font-src (ps-mule-font-spec-src font-spec))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
539 (func (nth 5 (assq font-src ps-mule-external-libraries))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
540 (and func
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
541 (ps-output-prologue
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
542 (funcall func font-spec code-list
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
543 (ps-mule-font-spec-bytes font-spec))))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
544
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
545 (defun ps-mule-prepare-font (font-spec string charset &optional no-setfont)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
546 "Generate PostScript codes to print STRING of CHARSET by font FONT-SPEC.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
547
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
548 The generated code is inserted on prologue part except the code that sets the
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
549 current font (using PostScript procedure `FM').
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
550
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
551 If optional arg NO-SETFONT is non-nil, don't generate the code for setting the
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
552 current font."
24086
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
553 (let* ((font-name (ps-mule-font-spec-name font-spec))
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
554 (font-name (if (consp font-name) (car font-name) font-name))
bedce7fcf0f4 (ps-mule-font-info-database-bdf): Add alternative
Eli Zaretskii <eliz@gnu.org>
parents: 23937
diff changeset
555 (font-cache (assoc font-name ps-mule-font-cache)))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
556 (or (and font-cache (assq ps-current-font (nth 1 font-cache)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
557 (setq font-cache (ps-mule-generate-font font-spec charset)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
558 (or no-setfont
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
559 (let ((new-font (cdr (assq ps-current-font (nth 1 font-cache)))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
560 (or (equal new-font ps-last-font)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
561 (progn
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
562 (ps-output (format "/%s FM\n" new-font))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
563 (setq ps-last-font new-font)))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
564 (if (nth 5 (assq (ps-mule-font-spec-src font-spec)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
565 ps-mule-external-libraries))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
566 ;; We have to generate PostScript codes which define glyphs.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
567 (let* ((cached-codes (nthcdr 2 font-cache))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
568 (bytes (ps-mule-font-spec-bytes font-spec))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
569 (len (length string))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
570 (i 0)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
571 newcodes code)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
572 (while (< i len)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
573 (setq code (if (= bytes 1)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
574 (aref string i)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
575 (+ (* (aref string i) 256) (aref string (1+ i)))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
576 (or (memq code cached-codes)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
577 (progn
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
578 (setq newcodes (cons code newcodes))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
579 (setcdr cached-codes (cons code (cdr cached-codes)))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
580 (setq i (+ i bytes)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
581 (and newcodes
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
582 (ps-mule-generate-glyphs font-spec newcodes))))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
583
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
584 ;;;###autoload
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
585 (defun ps-mule-prepare-ascii-font (string)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
586 "Setup special ASCII font for STRING.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
587 STRING should contain only ASCII characters."
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
588 (let ((font-spec
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
589 (ps-mule-get-font-spec
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
590 'ascii
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
591 (car (nth ps-current-font (ps-font-alist 'ps-font-for-text))))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
592 (and font-spec
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
593 (ps-mule-prepare-font font-spec string 'ascii))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
594
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
595 ;;;###autoload
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
596 (defun ps-mule-set-ascii-font ()
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
597 (unless (eq ps-mule-current-charset 'ascii)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
598 (ps-set-font ps-current-font)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
599 (setq ps-mule-current-charset 'ascii)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
600
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
601 ;; List of charsets of multi-byte characters in a text being printed.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
602 ;; If the text doesn't contain any multi-byte characters (i.e. only ASCII),
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
603 ;; the value is nil.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
604 (defvar ps-mule-charset-list nil)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
605
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
606 ;; This is a PostScript code inserted in the header of generated PostScript.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
607 (defconst ps-mule-prologue
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
608 "%%%% Start of Mule Section
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
609
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
610 %% Working dictionary for general use.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
611 /MuleDict 10 dict def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
612
24721
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
613 %% Adjust /RelativeCompose properly by checking /BaselineOffset.
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
614 /AdjustRelativeCompose { % fontdict |- fontdict
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
615 dup length 2 add dict begin
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
616 { 1 index /FID ne { def } { pop pop } ifelse } forall
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
617 currentdict /BaselineOffset known {
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
618 BaselineOffset false eq { /BaselinfOffset 0 def } if
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
619 } {
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
620 /BaselineOffset 0 def
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
621 } ifelse
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
622 currentdict /RelativeCompose known not {
24722
4321a26f6594 fix previous change
Kenichi Handa <handa@m17n.org>
parents: 24721
diff changeset
623 /RelativeCompose [ 0 0.1 ] def
24721
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
624 } {
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
625 RelativeCompose false ne {
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
626 [ BaselineOffset RelativeCompose BaselineOffset add
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
627 [ FontMatrix { FontSize div } forall ] transform ]
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
628 /RelativeCompose exch def
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
629 } if
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
630 } ifelse
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
631 currentdict
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
632 end
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
633 } def
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
634
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
635 %% Define already scaled font for non-ASCII character sets.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
636 /DefFontMule { % fontname size basefont |- --
24721
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
637 findfont exch scalefont AdjustRelativeCompose definefont pop
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
638 } bind def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
639
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
640 %% Define already scaled font for ASCII character sets.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
641 /DefAsciiFontMule { % fontname size basefont |-
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
642 MuleDict begin
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
643 findfont dup /Encoding get /ISOLatin1Encoding exch def
24721
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
644 exch scalefont AdjustRelativeCompose reencodeFontISO
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
645 end
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
646 } def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
647
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
648 %% Set the specified non-ASCII font to use. It doesn't install
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
649 %% Ascent, etc.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
650 /FM { % fontname |- --
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
651 findfont setfont
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
652 } bind def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
653
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
654 %% Show vacant box for characters which don't have appropriate font.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
655 /SB { % count column |- --
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
656 SpaceWidth mul /w exch def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
657 1 exch 1 exch { %for
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
658 pop
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
659 gsave
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
660 0 setlinewidth
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
661 0 Descent rmoveto w 0 rlineto
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
662 0 LineHeight rlineto w neg 0 rlineto closepath stroke
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
663 grestore
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
664 w 0 rmoveto
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
665 } for
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
666 } bind def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
667
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
668 %% Flag to tell if we are now handling a composite character. This is
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
669 %% defined here because both composite character handler and bitmap font
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
670 %% handler require it.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
671 /Cmpchar false def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
672
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
673 %%%% End of Mule Section
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
674
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
675 "
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
676 "PostScript code for printing multi-byte characters.")
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
677
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
678 (defvar ps-mule-prologue-generated nil)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
679
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
680 (defun ps-mule-prologue-generated ()
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
681 (unless ps-mule-prologue-generated
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
682 (ps-output-prologue ps-mule-prologue)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
683 (setq ps-mule-prologue-generated t)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
684
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
685 (defun ps-mule-find-wrappoint (from to char-width)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
686 "Find the longest sequence which is printable in the current line.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
687
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
688 The search starts at FROM and goes until TO. It is assumed that all characters
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
689 between FROM and TO belong to a charset in `ps-mule-current-charset'.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
690
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
691 CHAR-WIDTH is the average width of ASCII characters in the current font.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
692
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
693 Returns the value:
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
694
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
695 (ENDPOS . RUN-WIDTH)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
696
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
697 Where ENDPOS is the end position of the sequence and RUN-WIDTH is the width of
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
698 the sequence."
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
699 (if (eq ps-mule-current-charset 'composition)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
700 ;; We must draw one char by one.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
701 (let ((run-width (* (char-width (char-after from)) char-width)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
702 (if (> run-width ps-width-remaining)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
703 (cons from ps-width-remaining)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
704 (cons (ps-mule-next-point from) run-width)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
705 ;; We assume that all characters in this range have the same width.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
706 (setq char-width (* char-width (charset-width ps-mule-current-charset)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
707 (let ((run-width (* (chars-in-region from to) char-width)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
708 (if (> run-width ps-width-remaining)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
709 (cons (min to
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
710 (save-excursion
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
711 (goto-char from)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
712 (forward-point
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
713 (truncate (/ ps-width-remaining char-width)))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
714 ps-width-remaining)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
715 (cons to run-width)))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
716
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
717 ;;;###autoload
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
718 (defun ps-mule-plot-string (from to &optional bg-color)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
719 "Generate PostScript code for ploting characters in the region FROM and TO.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
720
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
721 It is assumed that all characters in this region belong to the same charset.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
722
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
723 Optional argument BG-COLOR specifies background color.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
724
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
725 Returns the value:
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
726
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
727 (ENDPOS . RUN-WIDTH)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
728
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
729 Where ENDPOS is the end position of the sequence and RUN-WIDTH is the width of
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
730 the sequence."
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
731 (setq ps-mule-current-charset (charset-after from))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
732 (let* ((wrappoint (ps-mule-find-wrappoint
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
733 from to (ps-avg-char-width 'ps-font-for-text)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
734 (to (car wrappoint))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
735 (font-type (car (nth ps-current-font
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
736 (ps-font-alist 'ps-font-for-text))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
737 (font-spec (ps-mule-get-font-spec ps-mule-current-charset font-type))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
738 (string (buffer-substring-no-properties from to)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
739 (cond
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
740 ((= from to)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
741 ;; We can't print any more characters in the current line.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
742 nil)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
743
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
744 (font-spec
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
745 ;; We surely have a font for printing this character set.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
746 (ps-output-string (ps-mule-string-encoding font-spec string))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
747 (ps-output " S\n"))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
748
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
749 ((eq ps-mule-current-charset 'latin-iso8859-1)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
750 ;; Latin-1 can be printed by a normal ASCII font.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
751 (ps-output-string (ps-mule-string-ascii string))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
752 (ps-output " S\n"))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
753
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
754 ((eq ps-mule-current-charset 'composition)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
755 (let* ((ch (char-after from))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
756 (width (char-width ch))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
757 (ch-list (decompose-composite-char ch 'list t)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
758 (if (consp (nth 1 ch-list))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
759 (ps-mule-plot-rule-cmpchar ch-list width font-type)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
760 (ps-mule-plot-cmpchar ch-list width t font-type))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
761
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
762 (t
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
763 ;; No way to print this charset. Just show a vacant box of an
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
764 ;; appropriate width.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
765 (ps-output (format "%d %d SB\n"
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
766 (length string)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
767 (if (eq ps-mule-current-charset 'composition)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
768 (char-width (char-after from))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
769 (charset-width ps-mule-current-charset))))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
770 wrappoint))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
771
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
772 ;; Composite font support
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
773
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
774 (defvar ps-mule-cmpchar-prologue-generated nil)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
775
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
776 (defconst ps-mule-cmpchar-prologue
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
777 "%%%% Composite character handler
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
778 /CmpcharWidth 0 def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
779 /CmpcharRelativeCompose 0 def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
780 /CmpcharRelativeSkip 0.4 def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
781
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
782 %% Get a bounding box (relative to currentpoint) of STR.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
783 /GetPathBox { % str |- --
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
784 gsave
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
785 currentfont /FontType get 3 eq { %ifelse
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
786 stringwidth pop pop
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
787 } {
24721
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
788 currentpoint /y exch def /x exch def
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
789 false charpath flattenpath pathbbox
24721
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
790 y sub /URY exch def x sub /URX exch def
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
791 y sub /LLY exch def x sub /LLX exch def
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
792 } ifelse
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
793 grestore
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
794 } bind def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
795
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
796 %% Beginning of composite char.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
797 /BC { % str xoff width |- --
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
798 /Cmpchar true def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
799 /CmpcharWidth exch def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
800 currentfont /RelativeCompose known {
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
801 /CmpcharRelativeCompose currentfont /RelativeCompose get def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
802 } {
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
803 /CmpcharRelativeCompose false def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
804 } ifelse
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
805 /bgsave bg def /bgcolorsave bgcolor def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
806 /Effectsave Effect def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
807 gsave % Reflect effect only at first
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
808 /Effect Effect 1 2 add 4 add 16 add and def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
809 /f0 findfont setfont ( ) 0 CmpcharWidth getinterval S
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
810 grestore
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
811 /Effect Effectsave 8 32 add and def % enable only shadow and outline
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
812 false BG
24721
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
813 gsave
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
814 SpaceWidth mul 0 rmoveto dup GetPathBox S
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
815 /RIGHT currentpoint pop def
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
816 grestore
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
817 /y currentpoint exch pop def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
818 /HIGH URY y add def /LOW LLY y add def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
819 } bind def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
820
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
821 %% End of composite char.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
822 /EC { % -- |- --
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
823 /bg bgsave def /bgcolor bgcolorsave def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
824 /Effect Effectsave def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
825 /Cmpchar false def
24721
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
826 CmpcharRelativeCompose false eq {
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
827 CmpcharWidth SpaceWidth mul 0 rmoveto
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
828 } {
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
829 RIGHT currentpoint exch pop moveto
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
830 } ifelse
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
831 } bind def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
832
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
833 %% Rule base composition
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
834 /RBC { % str xoff gref nref |- --
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
835 /nref exch def /gref exch def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
836 gsave
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
837 SpaceWidth mul 0 rmoveto
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
838 dup
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
839 GetPathBox
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
840 [ HIGH currentpoint exch pop LOW HIGH LOW add 2 div ] gref get
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
841 [ URY LLY sub LLY neg 0 URY LLY sub 2 div ] nref get
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
842 sub /btm exch def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
843 /top btm URY LLY sub add def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
844 top HIGH gt { /HIGH top def } if
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
845 btm LOW lt { /LOW btm def } if
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
846 currentpoint pop btm LLY sub moveto
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
847 S
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
848 grestore
24721
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
849 /CmpcharRelativeCompose false def
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
850 } bind def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
851
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
852 %% Relative composition
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
853 /RLC { % str |- --
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
854 gsave
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
855 dup GetPathBox
24721
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
856 LLX 0 lt { RIGHT currentpoint exch pop moveto } if
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
857 CmpcharRelativeCompose type /arraytype eq {
24722
4321a26f6594 fix previous change
Kenichi Handa <handa@m17n.org>
parents: 24721
diff changeset
858 LLY CmpcharRelativeCompose 1 get ge { % compose on top
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
859 currentpoint pop HIGH LLY sub CmpcharRelativeSkip add moveto
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
860 /HIGH HIGH URY LLY sub add CmpcharRelativeSkip add def
24721
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
861 } { URY CmpcharRelativeCompose 0 get le { % compose under bottom
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
862 currentpoint pop LOW URY sub CmpcharRelativeSkip sub moveto
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
863 /LOW LOW URY LLY sub sub CmpcharRelativeSkip sub def
24721
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
864 } {
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
865 /y currentpoint exch pop def
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
866 y URY add dup HIGH gt { /HIGH exch def } { pop } ifelse
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
867 y LLY add dup LOW lt { /LOW exch def } { pop } ifelse
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
868 } ifelse } ifelse } if
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
869 S
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
870 grestore
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
871 } bind def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
872 %%%% End of composite character handler
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
873
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
874 "
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
875 "PostScript code for printing composite characters.")
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
876
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
877 (defun ps-mule-plot-rule-cmpchar (ch-rule-list total-width font-type)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
878 (let ((leftmost 0.0)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
879 (rightmost (float (char-width (car ch-rule-list))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
880 (the-list (cons '(3 . 3) ch-rule-list))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
881 cmpchar-elements)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
882 (while the-list
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
883 (let* ((this (car the-list))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
884 (gref (car this))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
885 (nref (cdr this))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
886 ;; X-axis info (0:left, 1:center, 2:right)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
887 (gref-x (% gref 3))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
888 (nref-x (% nref 3))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
889 ;; Y-axis info (0:top, 1:base, 2:bottom, 3:center)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
890 (gref-y (if (= gref 4) 3 (/ gref 3)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
891 (nref-y (if (= nref 4) 3 (/ nref 3)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
892 (char (car (cdr the-list)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
893 (width (float (char-width char)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
894 left)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
895 (setq left (+ leftmost
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
896 (* (- rightmost leftmost) gref-x 0.5)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
897 (- (* nref-x width 0.5)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
898 cmpchar-elements (cons (list char left gref-y nref-y)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
899 cmpchar-elements)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
900 leftmost (min left leftmost)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
901 rightmost (max (+ left width) rightmost)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
902 the-list (nthcdr 2 the-list))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
903 (if (< leftmost 0)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
904 (let ((the-list cmpchar-elements)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
905 elt)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
906 (while the-list
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
907 (setq elt (car the-list)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
908 the-list (cdr the-list))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
909 (setcar (cdr elt) (- (nth 1 elt) leftmost)))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
910 (ps-mule-plot-cmpchar (nreverse cmpchar-elements)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
911 total-width nil font-type)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
912
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
913 (defun ps-mule-plot-cmpchar (elements total-width relativep font-type)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
914 (let* ((elt (car elements))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
915 (ch (if relativep elt (car elt))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
916 (ps-output-string (ps-mule-prepare-cmpchar-font ch font-type))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
917 (ps-output (format " %d %d BC "
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
918 (if relativep 0 (nth 1 elt))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
919 total-width))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
920 (while (setq elements (cdr elements))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
921 (setq elt (car elements)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
922 ch (if relativep elt (car elt)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
923 (ps-output-string (ps-mule-prepare-cmpchar-font ch font-type))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
924 (ps-output (if relativep
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
925 " RLC "
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
926 (format " %d %d %d RBC "
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
927 (nth 1 elt) (nth 2 elt) (nth 3 elt))))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
928 (ps-output "EC\n"))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
929
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
930 (defun ps-mule-prepare-cmpchar-font (char font-type)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
931 (let* ((ps-mule-current-charset (char-charset char))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
932 (font-spec (ps-mule-get-font-spec ps-mule-current-charset font-type)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
933 (cond (font-spec
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
934 (ps-mule-string-encoding font-spec (char-to-string char)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
935
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
936 ((eq ps-mule-current-charset 'latin-iso8859-1)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
937 (ps-mule-string-ascii (char-to-string char)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
938
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
939 (t
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
940 ;; No font for CHAR.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
941 (ps-set-font ps-current-font)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
942 " "))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
943
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
944 (defun ps-mule-string-ascii (str)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
945 (ps-set-font ps-current-font)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
946 (string-as-unibyte (encode-coding-string str 'iso-latin-1)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
947
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
948 (defun ps-mule-string-encoding (font-spec str)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
949 (let ((encoding (ps-mule-font-spec-encoding font-spec)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
950 (setq str
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
951 (string-as-unibyte
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
952 (cond ((coding-system-p encoding)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
953 (encode-coding-string str encoding))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
954 ((functionp encoding)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
955 (funcall encoding str))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
956 (encoding
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
957 (error "Invalid coding system or function: %s" encoding))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
958 (t
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
959 str))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
960 (if (ps-mule-font-spec-src font-spec)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
961 (ps-mule-prepare-font font-spec str ps-mule-current-charset)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
962 (ps-set-font ps-current-font))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
963 str))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
964
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
965 ;; Bitmap font support
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
966
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
967 (defvar ps-mule-bitmap-prologue-generated nil)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
968
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
969 (defconst ps-mule-bitmap-prologue
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
970 "%%%% Bitmap font handler
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
971
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
972 /str7 7 string def % working area
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
973
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
974 %% We grow the dictionary one bunch (1024 entries) by one.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
975 /BitmapDictArray 256 array def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
976 /BitmapDictLength 1024 def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
977 /BitmapDictIndex -1 def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
978
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
979 /NewBitmapDict { % -- |- --
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
980 /BitmapDictIndex BitmapDictIndex 1 add def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
981 BitmapDictArray BitmapDictIndex BitmapDictLength dict put
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
982 } bind def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
983
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
984 %% Make at least one dictionary.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
985 NewBitmapDict
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
986
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
987 /AddBitmap { % gloval-charname bitmap-data |- --
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
988 BitmapDictArray BitmapDictIndex get
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
989 dup length BitmapDictLength ge {
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
990 pop
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
991 NewBitmapDict
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
992 BitmapDictArray BitmapDictIndex get
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
993 } if
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
994 3 1 roll put
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
995 } bind def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
996
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
997 /GetBitmap { % gloval-charname |- bitmap-data
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
998 0 1 BitmapDictIndex { BitmapDictArray exch get begin } for
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
999 load
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1000 0 1 BitmapDictIndex { pop end } for
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1001 } bind def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1002
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1003 %% Return a global character name which can be used as a key in the
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1004 %% bitmap dictionary.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1005 /GlobalCharName { % fontidx code1 code2 |- gloval-charname
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1006 exch 256 mul add exch 65536 mul add 16777216 add 16 str7 cvrs 0 66 put
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1007 str7 cvn
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1008 } bind def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1009
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1010 %% Character code holder for a 2-byte character.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1011 /FirstCode -1 def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1012
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1013 %% Glyph rendering procedure
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1014 /BuildGlyphCommon { % fontdict charname |- --
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1015 1 index /FontDimension get 1 eq { /FirstCode 0 store } if
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1016 NameIndexDict exch get % STACK: fontdict charcode
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1017 FirstCode 0 lt { %ifelse
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1018 %% This is the first byte of a 2-byte character. Just
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1019 %% remember it for the moment.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1020 /FirstCode exch store
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1021 pop
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1022 0 0 setcharwidth
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1023 } {
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1024 1 index /FontSize get /size exch def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1025 1 index /FontSpaceWidthRatio get /ratio exch def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1026 1 index /FontIndex get exch FirstCode exch
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1027 GlobalCharName GetBitmap /bmp exch def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1028 %% bmp == [ DWIDTH BBX-WIDTH BBX-HEIGHT BBX-XOFF BBX-YOFF BITMAP ]
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1029 Cmpchar { %ifelse
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1030 /FontMatrix get [ exch { size div } forall ] /mtrx exch def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1031 bmp 3 get bmp 4 get mtrx transform
24721
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
1032 /LLY exch def /LLX exch def
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1033 bmp 1 get bmp 3 get add bmp 2 get bmp 4 get add mtrx transform
24721
25eb63742593 (ps-mule-prologue): Fix the definition of DefFontMule
Kenichi Handa <handa@m17n.org>
parents: 24707
diff changeset
1034 /URY exch def /URX exch def
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1035 } {
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1036 pop
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1037 } ifelse
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1038 /FirstCode -1 store
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1039
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1040 bmp 0 get SpaceWidthRatio ratio div mul size div 0 % wx wy
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1041 setcharwidth % We can't use setcachedevice here.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1042
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1043 bmp 1 get 0 gt bmp 2 get 0 gt and {
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1044 bmp 1 get bmp 2 get % width height
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1045 true % polarity
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1046 [ size 0 0 size neg bmp 3 get neg bmp 2 get bmp 4 get add ] % matrix
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1047 bmp 5 1 getinterval cvx % datasrc
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1048 imagemask
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1049 } if
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1050 } ifelse
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1051 } bind def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1052
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1053 /BuildCharCommon {
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1054 1 index /Encoding get exch get
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1055 1 index /BuildGlyph get exec
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1056 } bind def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1057
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1058 %% Bitmap font creater
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1059
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1060 %% Common Encoding shared by all bitmap fonts.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1061 /EncodingCommon 256 array def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1062 %% Mapping table from character name to character code.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1063 /NameIndexDict 256 dict def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1064 0 1 255 { %for
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1065 /idx exch def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1066 /idxname idx 256 add 16 (XXX) cvrs dup 0 67 put cvn def % `C' == 67
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1067 EncodingCommon idx idxname put
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1068 NameIndexDict idxname idx put
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1069 } for
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1070
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1071 /GlobalFontIndex 0 def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1072
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1073 %% fontname dim col fontsize relative-compose baseline-offset fbbx |- --
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1074 /BitmapFont {
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1075 15 dict begin
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1076 /FontBBox exch def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1077 /BaselineOffset exch def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1078 /RelativeCompose exch def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1079 /FontSize exch def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1080 /FontBBox [ FontBBox { FontSize div } forall ] def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1081 FontBBox 2 get FontBBox 0 get sub exch div
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1082 /FontSpaceWidthRatio exch def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1083 /FontDimension exch def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1084 /FontIndex GlobalFontIndex def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1085 /FontType 3 def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1086 /FontMatrix matrix def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1087 /Encoding EncodingCommon def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1088 /BuildGlyph { BuildGlyphCommon } def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1089 /BuildChar { BuildCharCommon } def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1090 currentdict end
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1091 definefont pop
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1092 /GlobalFontIndex GlobalFontIndex 1 add def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1093 } bind def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1094
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1095 %% Define a new bitmap font.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1096 %% fontname dim col fontsize relative-compose baseline-offset fbbx |- --
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1097 /NF {
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1098 /fbbx exch def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1099 %% Convert BDF's FontBoundingBox to PostScript's FontBBox
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1100 [ fbbx 2 get fbbx 3 get
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1101 fbbx 2 get fbbx 0 get add fbbx 3 get fbbx 1 get add ]
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1102 BitmapFont
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1103 } bind def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1104
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1105 %% Define a glyph for the specified font and character.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1106 /NG { % fontname charcode bitmap-data |- --
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1107 /bmp exch def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1108 exch findfont dup /BaselineOffset get bmp 4 get add bmp exch 4 exch put
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1109 /FontIndex get exch
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1110 dup 256 idiv exch 256 mod GlobalCharName
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1111 bmp AddBitmap
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1112 } bind def
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1113 %%%% End of bitmap font handler
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1114
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1115 ")
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1116
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1117 ;; External library support.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1118
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1119 ;; The following three functions are to be called from external
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1120 ;; libraries which support bitmap fonts (e.g. `bdf') to get
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1121 ;; appropriate PostScript code.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1122
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1123 (defun ps-mule-generate-bitmap-prologue ()
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1124 (unless ps-mule-bitmap-prologue-generated
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1125 (setq ps-mule-bitmap-prologue-generated t)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1126 (list ps-mule-bitmap-prologue)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1127
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1128 (defun ps-mule-generate-bitmap-font (&rest args)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1129 (list (apply 'format "/%s %d %d %f %S %d %S NF\n" args)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1130
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1131 (defun ps-mule-generate-bitmap-glyph (font-name code dwidth bbx bitmap)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1132 (format "/%s %d [ %d %d %d %d %d <%s> ] NG\n"
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1133 font-name code
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1134 dwidth (aref bbx 0) (aref bbx 1) (aref bbx 2) (aref bbx 3)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1135 bitmap))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1136
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1137 ;; Mule specific initializers.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1138
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1139 ;;;###autoload
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1140 (defun ps-mule-initialize ()
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1141 "Initialize global data for printing multi-byte characters."
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1142 (setq ps-mule-font-cache nil
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1143 ps-mule-prologue-generated nil
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1144 ps-mule-cmpchar-prologue-generated nil
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1145 ps-mule-bitmap-prologue-generated nil)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1146 (mapcar `(lambda (x) (setcar (nthcdr 2 x) nil))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1147 ps-mule-external-libraries))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1148
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1149 ;;;###autoload
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1150 (defun ps-mule-begin-job (from to)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1151 "Start printing job for multi-byte chars between FROM and TO.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1152 This checks if all multi-byte characters in the region are printable or not."
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1153 (setq ps-mule-charset-list nil
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1154 ps-mule-font-info-database
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1155 (cond ((eq ps-multibyte-buffer 'non-latin-printer)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1156 ps-mule-font-info-database-ps)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1157 ((eq ps-multibyte-buffer 'bdf-font)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1158 ps-mule-font-info-database-bdf)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1159 ((eq ps-multibyte-buffer 'bdf-font-except-latin)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1160 ps-mule-font-info-database-ps-bdf)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1161 (t
24707
fded44022dc6 (ps-mule-begin-job): Redo this change "if
Kenichi Handa <handa@m17n.org>
parents: 24415
diff changeset
1162 ps-mule-font-info-database-default)))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1163 (and (boundp 'enable-multibyte-characters)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1164 enable-multibyte-characters
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1165 ;; Initialize `ps-mule-charset-list'. If some characters aren't
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1166 ;; printable, warn it.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1167 (let ((charsets (find-charset-region from to)))
23937
144220e7f841 (ps-mule-begin-job): Programming uniformization.
Kenichi Handa <handa@m17n.org>
parents: 23894
diff changeset
1168 (setq charsets (delq 'ascii (delq 'unknown (delq nil charsets)))
144220e7f841 (ps-mule-begin-job): Programming uniformization.
Kenichi Handa <handa@m17n.org>
parents: 23894
diff changeset
1169 ps-mule-charset-list charsets)
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1170 (save-excursion
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1171 (goto-char from)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1172 (and (search-forward "\200" to t)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1173 (setq ps-mule-charset-list
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1174 (cons 'composition ps-mule-charset-list))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1175 (while charsets
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1176 (setq charsets
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1177 (cond
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1178 ((or (eq (car charsets) 'composition)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1179 (ps-mule-printable-p (car charsets)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1180 (cdr charsets))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1181 ((y-or-n-p
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1182 "Font for some characters not found, continue anyway? ")
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1183 nil)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1184 (t
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1185 (error "Printing cancelled")))))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1186
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1187 (setq ps-mule-current-charset 'ascii)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1188
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1189 (if ps-mule-charset-list
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1190 (let ((the-list ps-mule-charset-list)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1191 font-spec elt)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1192 (ps-mule-prologue-generated)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1193 ;; If external functions are necessary, generate prologues for them.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1194 (while the-list
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1195 (setq elt (car the-list)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1196 the-list (cdr the-list))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1197 (cond ((and (eq elt 'composition)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1198 (not ps-mule-cmpchar-prologue-generated))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1199 (ps-output-prologue ps-mule-cmpchar-prologue)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1200 (setq ps-mule-cmpchar-prologue-generated t))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1201 ((setq font-spec (ps-mule-get-font-spec elt 'normal))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1202 (ps-mule-init-external-library font-spec))))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1203
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1204 ;; If ASCII font is also specified in ps-mule-font-info-database,
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1205 ;; use it istead of what specified in ps-font-info-database.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1206 (let ((font-spec (ps-mule-get-font-spec 'ascii 'normal)))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1207 (if font-spec
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1208 (progn
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1209 (ps-mule-prologue-generated)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1210 (ps-mule-init-external-library font-spec)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1211 (let ((font (ps-font-alist 'ps-font-for-text))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1212 (ps-current-font 0))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1213 (while font
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1214 ;; Be sure to download a glyph for SPACE in advance.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1215 (ps-mule-prepare-font (ps-mule-get-font-spec 'ascii (car font))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1216 " " 'ascii 'no-setfont)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1217 (setq font (cdr font)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1218 ps-current-font (1+ ps-current-font)))))))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1219
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1220 (if ps-mule-charset-list
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1221 ;; We must change this regexp for multi-byte buffer.
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1222 (setq ps-control-or-escape-regexp
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1223 (cond ((eq ps-print-control-characters '8-bit)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1224 "[^\040-\176]")
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1225 ((eq ps-print-control-characters 'control-8-bit)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1226 (string-as-multibyte "[^\040-\176\240-\377]"))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1227 ((eq ps-print-control-characters 'control)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1228 (string-as-multibyte "[^\040-\176\200-\377]"))
25086
799c44a895fe (ps-mule-begin-job): Fix malformed regexp.
Kenichi Handa <handa@m17n.org>
parents: 24722
diff changeset
1229 (t (string-as-multibyte "[^\000-\011\013\015-\377]"))))))
23894
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1230
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1231 ;;;###autoload
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1232 (defun ps-mule-begin-page ()
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1233 (setq ps-mule-current-charset 'ascii))
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1234
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1235
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1236 (provide 'ps-mule)
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1237
f96c37cbdeef New file. Mule related code extracted from
Kenichi Handa <handa@m17n.org>
parents: 23893
diff changeset
1238 ;;; ps-mule.el ends here