| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/ps-mule.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:28 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/ps-mule.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\207" [require ps-print custom-declare-variable ps-multibyte-buffer nil "Specifies the multi-byte buffer handling.\n\nValid values are:\n\n nil This is the value to use the default settings;\n by default, this only works to print buffers with\n only ASCII and Latin characters. But this default\n setting can be changed by setting the variable\n `ps-mule-font-info-database-default' differently.\n The initial value of this variable is\n `ps-mule-font-info-database-latin' (see\n documentation).\n\n `non-latin-printer' This is the value to use when you have a Japanese\n or Korean PostScript printer and want to print\n buffer with ASCII, Latin-1, Japanese (JISX0208 and\n JISX0201-Kana) and Korean characters. At present,\n it was not tested with the Korean characters\n printing. If you have a korean PostScript printer,\n please, test it.\n\n `bdf-font' This is the value to use when you want to print\n buffer with BDF fonts. BDF fonts include both latin\n and non-latin fonts. BDF (Bitmap Distribution\n Format) is a format used for distributing X's font\n source file. BDF fonts are included in\n `intlfonts-1.2' which is a collection of X11 fonts\n for all characters supported by Emacs. In order to\n use this value, be sure to have installed\n `intlfonts-1.2' and set the variable\n `bdf-directory-list' appropriately (see ps-bdf.el for\n documentation of this variable).\n\n `bdf-font-except-latin' This is like `bdf-font' except that it uses\n PostScript default fonts to print ASCII and Latin-1\n characters. This is convenient when you want or\n need to use both latin and non-latin characters on\n the same buffer. See `ps-font-family',\n `ps-header-font-family' and `ps-font-info-database'.\n\nAny other value is treated as nil." :type (choice (const non-latin-printer) (const bdf-font) (const bdf-font-except-latin) (const :tag "nil" nil)) :group ps-print-font] 8)
#@1536 Alist of charsets with the corresponding font information.
Each element has the form:
(CHARSET (FONT-TYPE FONT-SRC FONT-NAME ENCODING BYTES) ...)
Where
CHARSET is a charset (symbol) for this font family,
FONT-TYPE is a font type: normal, bold, italic, or bold-italic.
FONT-SRC is a font source: builtin, bdf, vflib, or nil.
If FONT-SRC is builtin, FONT-NAME is a built-in PostScript font name.
If FONT-SRC is bdf, FONT-NAME is a BDF font file name, or a list of
alternative font names. To use this font, the external library `ps-bdf'
is required.
If FONT-SRC is vflib, FONT-NAME is the name of a font that VFlib knows.
To use this font, the external library `vflib' is required.
If FONT-SRC is nil, a proper ASCII font in the variable
`ps-font-info-database' is used. This is useful for Latin-1 characters.
ENCODING is a coding system to encode a string of characters of CHARSET into a
proper string matching an encoding of the specified font. ENCODING may be a
function that does this encoding. In this case, the function is called with
one argument, the string to encode, and it should return an encoded string.
BYTES specifies how many bytes each character has in the encoded byte
sequence; it should be 1 or 2.
All multi-byte characters are printed by fonts specified in this database
regardless of a font family of ASCII characters. The exception is Latin-1
characters which are printed by the same font as ASCII characters, thus obey
font family.
See also the variable `ps-font-info-database'.
(defvar ps-mule-font-info-database nil (#$ . 2628))
#@68 Sample setting of `ps-mule-font-info-database' to use latin fonts.
(defconst ps-mule-font-info-database-latin '((iso-8859-1 (normal nil nil))) (#$ . 4221))
#@63 The default setting to use when `ps-multibyte-buffer' is nil.
(custom-declare-variable 'ps-mule-font-info-database-default 'ps-mule-font-info-database-latin '(#$ . 4383) :type '(symbol :tag "Multi-Byte Buffer Database Font Default") :group 'ps-print-font)
#@149 Sample setting of the `ps-mule-font-info-database' to use builtin PS font.
Currently, data for Japanese and Korean PostScript printers are listed.
(defconst ps-mule-font-info-database-ps '((katakana-jisx0201 (normal builtin "Ryumin-Light.Katakana") (bold builtin "GothicBBB-Medium.Katakana") (bold-italic builtin "GothicBBB-Medium.Katakana")) (latin-jisx0201 (normal builtin "Ryumin-Light.Hankaku") (bold builtin "GothicBBB-Medium.Hankaku")) (japanese-jisx0208 (normal builtin "Ryumin-Light-H") (bold builtin "GothicBBB-Medium-H")) (korean-ksc5601 (normal builtin "Munhwa-Regular-KSC-EUC-H") (bold builtin "Munhwa-Bold-KSC-EUC-H"))) (#$ . 4646))
#@489 Sample setting of the `ps-mule-font-info-database' to use BDF fonts.
BDF (Bitmap Distribution Format) is a format used for distributing X's font
source file.
Current default value list for BDF fonts is included in `intlfonts-1.2'
which is a collection of X11 fonts for all characters supported by Emacs.
Using this list as default value to `ps-mule-font-info-database', all
characters including ASCII and Latin-1 are printed by BDF fonts.
See also `ps-mule-font-info-database-ps-bdf'.
(defconst ps-mule-font-info-database-bdf '((iso-8859-1 (normal bdf ("lt1-24-etl.bdf" "etl24-latin1.bdf")) (bold bdf ("lt1-16b-etl.bdf" "etl16b-latin1.bdf")) (italic bdf ("lt1-16i-etl.bdf" "etl16i-latin1.bdf")) (bold-italic bdf ("lt1-16bi-etl.bdf" "etl16bi-latin1.bdf"))) (iso-8859-2 (normal bdf ("lt2-24-etl.bdf" "etl24-latin2.bdf"))) (iso-8859-3 (normal bdf ("lt3-24-etl.bdf" "etl24-latin3.bdf"))) (iso-8859-4 (normal bdf ("lt4-24-etl.bdf" "etl24-latin4.bdf"))) (thai-tis620 (normal bdf ("thai24.bdf" "thai-24.bdf") iso-8859-11)) (greek-iso8859-7 (normal bdf ("grk24-etl.bdf" "etl24-greek.bdf") iso-8859-7)) (hebrew-iso8859-8 (normal bdf ("heb24-etl.bdf" "etl24-hebrew.bdf") iso-8859-8)) (jisx0201 (normal bdf "12x24rk.bdf" jisx0201)) (cyrillic-iso8859-5 (normal bdf ("cyr24-etl.bdf" "etl24-cyrillic.bdf") iso-8859-5)) (iso-8859-9 (normal bdf ("lt5-24-etl.bdf" "etl24-latin5.bdf") iso-8859-9)) (chinese-gb2312 (normal bdf "gb24st.bdf")) (japanese-jisx0208 (normal bdf "jiskan24.bdf")) (korean-ksc5601 (normal bdf "hanglm24.bdf")) (japanese-jisx0212 (normal bdf ("jksp40.bdf" "jisksp40.bdf"))) (chinese-cns11643-1 (normal bdf ("cns1-40.bdf" "cns-1-40.bdf"))) (chinese-cns11643-2 (normal bdf ("cns2-40.bdf" "cns-2-40.bdf"))) (big5 (normal bdf "taipei24.bdf")) (chinese-sisheng (normal bdf ("sish24-etl.bdf" "etl24-sisheng.bdf"))) (ipa (normal bdf ("ipa24-etl.bdf" "etl24-ipa.bdf") ipa)) (viscii (normal bdf ("visc24-etl.bdf" "etl24-viscii.bdf"))) (arabic-digit (normal bdf ("arab24-0-etl.bdf" "etl24-arabic0.bdf"))) (arabic-1-column (normal bdf ("arab24-1-etl.bdf" "etl24-arabic1.bdf"))) (lao (normal bdf ("lao24-mule.bdf" "mule-lao-24.bdf") ps-mule-encode-lao 1)) (arabic-2-column (normal bdf ("arab24-2-etl.bdf" "etl24-arabic2.bdf"))) (devanagari-cdac (normal bdf "dvsr0ntt-32.bdf")) (malayalam-cdac (normal bdf "mlkr0ntt-32.bdf")) (tamil-cdac (normal bdf "tmvl0ntt-32.bdf")) (indian-is13194 (normal bdf ("isci24-mule.bdf" "mule-iscii-24.bdf"))) (indian-1-column (normal bdf ("ind1c24-mule.bdf" "mule-indian-1col-24.bdf"))) (ethiopic (normal bdf ("ethio16f-uni.bdf" "ethiomx24f-uni.bdf") unicode-bmp)) (chinese-cns11643-3 (normal bdf ("cns3-40.bdf" "cns-3-40.bdf"))) (chinese-cns11643-4 (normal bdf ("cns4-40.bdf" "cns-4-40.bdf"))) (chinese-cns11643-5 (normal bdf ("cns5-40.bdf" "cns-5-40.bdf"))) (chinese-cns11643-6 (normal bdf ("cns6-40.bdf" "cns-6-40.bdf"))) (chinese-cns11643-7 (normal bdf ("cns7-40.bdf" "cns-7-40.bdf"))) (indian-2-column (normal bdf ("ind24-mule.bdf" "mule-indian-24.bdf"))) (tibetan (normal bdf ("tib24p-mule.bdf" "tib24-mule.bdf" "mule-tibmdx-24.bdf"))) (unicode-bmp (normal bdf "etl24-unicode.bdf"))) (#$ . 5300))
#@528 Sample setting of the `ps-mule-font-info-database' to use BDF fonts.
Current default value list for BDF fonts is included in `intlfonts-1.2'
which is a collection of X11 fonts for all characters supported by Emacs.
Using this list as default value to `ps-mule-font-info-database', all
characters except ASCII and Latin-1 characters are printed with BDF fonts.
ASCII and Latin-1 characters are printed with PostScript font specified
by `ps-font-family' and `ps-header-font-family'.
See also `ps-mule-font-info-database-bdf'.
(defconst ps-mule-font-info-database-ps-bdf (byte-code "@ AAB\207" [ps-mule-font-info-database-latin ps-mule-font-info-database-bdf] 2) (#$ . 8436))
(defalias 'ps-mule-font-spec-id #[(font-spec) "\301H\207" [font-spec 0] 2])
(put 'ps-mule-font-spec-id 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ps-mule-font-spec-charset #[(font-spec) "\301H\207" [font-spec 1] 2])
(put 'ps-mule-font-spec-charset 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ps-mule-font-spec-font-id #[(font-spec) "\301H\207" [font-spec 2] 2])
(put 'ps-mule-font-spec-font-id 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ps-mule-font-spec-src #[(font-spec) "\301H\207" [font-spec 3] 2])
(put 'ps-mule-font-spec-src 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ps-mule-font-spec-name #[(font-spec) "\301H\207" [font-spec 4] 2])
(put 'ps-mule-font-spec-name 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ps-mule-font-spec-set-name #[(font-spec name) "\302 I\207" [font-spec name 4] 3])
(put 'ps-mule-font-spec-set-name 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ps-mule-font-spec-encoding #[(font-spec) "\301H\207" [font-spec 5] 2])
(put 'ps-mule-font-spec-encoding 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ps-mule-font-spec-bytes #[(font-spec) "\301H\207" [font-spec 6] 2])
(put 'ps-mule-font-spec-bytes 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ps-mule-font-spec-extra #[(font-spec) "\301H\207" [font-spec 7] 2])
(put 'ps-mule-font-spec-extra 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ps-mule-font-spec-set-extra #[(font-spec extra) "\302 I\207" [font-spec extra 7] 3])
(put 'ps-mule-font-spec-set-extra 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ps-mule-encode-lao #[(char) "\301Z\207" [char 3552] 2])
(defalias 'ps-mule-encode-char #[(char font-spec) "\211\303H)\304 !\203 \305\n \"\202! \306 !\203 \n!\202! \n)\207" [font-spec encoding char 5 charsetp encode-char fboundp] 4])
(defvar ps-mule-font-spec-tables nil)
(defconst ps-mule-font-number-to-type [0 1 2 3 1 0 0])
#@198 Return a font spec for printing CHAR with FONT-SPEC-TABLE.
FONT-SPEC, if non-nil, is a font spec to try at first.
See the documentation of `ps-mule-font-spec-tables' for the
format of font spec.
(defalias 'ps-mule-get-font-spec #[(char font-spec-table font-spec) " H\2063 \211\303W\203 \304\305\"@A\2062 \n\203+ \306 \n\211\307H)\"\203+ \n\2062 \310\311\215\2062 \312I\207" [font-spec-table char font-spec 256 char-table-extra-slot 0 encode-char 1 tag (byte-code "\304\305\"\306\211\205$ \n@\307 @\"\203 \310\311 A\"\210\nA\211\204 \306*\207" [font-spec-table elt --dolist-tail-- char char-table-extra-slot 0 nil encode-char throw tag] 4) t] 7 (#$ . 11054)])
(put 'ps-mule-get-font-spec 'byte-optimizer 'byte-compile-inline-expand)
#@1276 Alist of external libraries information to support PostScript printing.
Each element has the form:
(FONT-SRC FEATURE INITIALIZED-P PROLOGUE-FUNC
CHECK-FUNC FONT-FUNC GLYPH-FUNC)
FONT-SRC is the font source: builtin, bdf, pcf, or vflib.
FEATURE is the feature that provide a facility to handle FONT-SRC. Except for
`builtin' FONT-SRC, this feature is automatically `require'd before handling
FONT-SRC. Currently, we only have the feature `ps-bdf'.
INITIALIZED-P indicates if this library is initialized or not.
PROLOGUE-FUNC is a function to generate PostScript code which define several
PostScript procedures that will be called by FONT-FUNC and GLYPHS-FUNC. It is
called with no argument, and should return a list of strings.
CHECK-FUNC is a function to check if a font is available or not.
It is called with one argument FONT-SPEC, and should return non-nil if and
only if the font specified in FONT-SPEC is available.
FONT-FUNC is a function to generate PostScript code which define a new font.
It is called with one argument FONT-SPEC, and should return a list of strings.
GLYPH-FUNC is a function to generate PostScript code which define glyphs of
characters. It is called with two arguments FONT-SPEC and CODE, and should
return a list of strings.
(defconst ps-mule-external-libraries '((builtin nil nil nil nil nil nil) (bdf ps-bdf nil bdf-generate-prologue bdf-check-font bdf-generate-font bdf-generate-glyph) (pcf nil nil pcf-generate-prologue pcf-check-font pcf-generate-font pcf-generate-glyph) (vflib nil nil vflib-generate-prologue vflib-check-font vflib-generate-font vflib-generate-glyphs)) (#$ . 11810))
(defalias 'ps-mule-exlib-feature #[(exlib) "A@\207" [exlib] 1])
(put 'ps-mule-exlib-feature 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ps-mule-exlib-initialized-p #[(exlib) "\3018\207" [exlib 2] 2])
(put 'ps-mule-exlib-initialized-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ps-mule-exlib-set-initialized-p #[(exlib val) "AA \240\207" [exlib val] 2])
(put 'ps-mule-exlib-set-initialized-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ps-mule-exlib-prologue #[(exlib) "\3018\207" [exlib 3] 2])
(put 'ps-mule-exlib-prologue 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ps-mule-exlib-check #[(exlib) "\3018\207" [exlib 4] 2])
(put 'ps-mule-exlib-check 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ps-mule-exlib-font #[(exlib) "\3018\207" [exlib 5] 2])
(put 'ps-mule-exlib-font 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ps-mule-exlib-glyph #[(exlib) "\3018\207" [exlib 6] 2])
(put 'ps-mule-exlib-glyph 'byte-optimizer 'byte-compile-inline-expand)
#@148 Initialize external library specified by EXLIB for PostScript printing.
See the documentation of `ps-mule-external-libraries' for EXLIB's meaning.
(defalias 'ps-mule-init-external-library #[(exlib) "\3048)\2063 \3058)\211\203) \211A@)\211\203# \306\n!\210\307 !\210)\310\211AA \240+\207" [exlib prologue-func feature val 2 3 require ps-output-prologue t] 3 (#$ . 14482)])
(defvar ps-mule-output-list nil)
#@61 Check if a font specified in FONT-SPEC is available or not.
(defalias 'ps-mule-check-font #[(font-spec) "\211\304H)\211?\206' \n\236\305 !\210 \306 8)?\206& \306 8)!))\207" [font-spec font-src ps-mule-external-libraries exlib 3 ps-mule-init-external-library 4] 3 (#$ . 14907)])
#@73 Generate PostScript codes defining a new font of FONT-SPEC for charset.
(defalias 'ps-mule-prepare-font #[(font-spec) "\211\306H)\211\n\236\211\307H) \310\311\f\" \312 8) \313 \2030 !\202L \310\314
\211\315H)\206= \316#\317 \211\320I*\210\205W C\244.\207" [font-spec font-src ps-mule-external-libraries exlib id ftag 3 0 format "%02X" 5 nil "/F%s /%s findfont def\n" 4 "Courier" t 7 font-func output-list extra ps-mule-output-list] 6 (#$ . 15200)])
#@216 Generate PostScript codes to print CHAR by FONT-SPEC.
If CHAR is a cons (FROM TO), generate codes for characters
specified by the character code range FROM and TO.
The generated code is inserted on prologue part.
(defalias 'ps-mule-prepare-glyph #[(char font-spec) "\306!\205e \211\307H)\204 \310!\210\211\311H) \236\312\n8)\211\205d \313\211\211
:\203> @
A\202E
X\205c
\"\211\203Z \314\f!\210
T\211
\202G +)\207" [font-spec ps-mule-external-libraries exlib glyph-func output-list to vectorp 7 ps-mule-prepare-font 3 6 nil ps-output-prologue from char] 4 (#$ . 15689)])
#@53 PostScript code for printing multi-byte characters.
(defconst ps-mule-prologue "%%%% Start of Mule Section\n\n/Latin1Encoding { % newname fontname | font\n findfont dup length dict begin\n { 1 index /FID ne { def } { pop pop } ifelse } forall\n /Encoding ISOLatin1Encoding def\n currentdict\n end\n definefont\n} bind def\n\n%% Redefine fonts for multiple charsets.\n/ReDefFont { % fontname encoding fdepvector size | -\n 20 dict begin\n 3 index findfont {\n 1 index /FID ne 2 index /UniqueID ne and {def} {pop pop} ifelse\n } forall\n /FontType 0 def\n /FMapType 3 def\n /EscChar 0 def\n % FontMatrix ::= [ size 0 0 size 0 0 ]\n /FontMatrix exch [ exch dup 0 exch 0 exch 0 0 ] def\n /FDepVector exch def\n /Encoding exch def\n currentdict\n end % fontname dic\n definefont pop\n} bind def\n" (#$ . 16304))
(defvar ps-mule-prologue-generated nil)
(defconst ps-mule-esc-char 0)
(defalias 'ps-mule-prologue-generated #[nil "?\205 \303 !\210\303\304\305\n\"!\210\306\211\207" [ps-mule-prologue-generated ps-mule-prologue ps-mule-esc-char ps-output-prologue format "\n/EscChar %d def\n\n%%%% End of Mule Section\n\n" t] 4])
#@192 Generate PostScript code for plotting characters in the region FROM and TO.
FONT-SPEC-TABLE is 0, 1, 2, 3, 4, 5, or 6, each represents font tags f0, f1,
f2, f3, h0, h1, and H0 respectively.
(defalias 'ps-mule-encode-region #[(from to font-spec-table) "\306\307\306 b\210`\fW\203g\211
H\206O
\211\310W\2033 \311\307\"@A\206N \203G \312
\211\313H)\"\203G \206N \314\315\215\206N \316I+ \306 \317!\203h \211\320H)\202\263 \321\211\306
H\206\250
\211\310W\203\214 \311\307\"@A\206\247 \203\240 \312
\211\313H)\"\203\240 \206\247 \314\315\215\206\247 \316I+\211\211\320H) U\204\306 \nB \nB
\322W\203\326
\nB\202\376 \323
\" \211\324H)\313U\203\357 \nB\202\375 \310\245\nB\310\246\nB)\313u\210+\202 \325\326\n\237\"+\207" [font-spec font-id code-list from to char nil 0 256 char-table-extra-slot encode-char 1 tag (byte-code "\304\305\"\306\211\205$ \n@\307 @\"\203 \310\311 A\"\210\nA\211\204 \306*\207" [font-spec-table elt --dolist-tail-- char char-table-extra-slot 0 nil encode-char throw tag] 4) t vectorp 2 63 128 ps-mule-encode-char 6 apply unibyte-string font-spec-table this-spec this-id ps-mule-esc-char code] 7 (#$ . 17478)])
#@73 Generate PostScript code for plotting COMPOSITION with FONT-SPEC-TABLE.
(defalias 'ps-mule-plot-composition #[(composition font-spec-table) "\306\307!\210\310\3118!\312\211G\313 \fW\203d\n H\312 \211 %:\2030 \306\314\315\316%!\"!\210\202\\%& & '&'H\206s &'\211\317W\203V \320&\313\"@A\206r \203k \321' \211\322H)\"\203k \206r \323\324\215\206r \325I+\326
!\204\302 \327\211%& & '&'H\206\300 &'\211\317W\203\243 \320&\313\"@A\206\277 \203\270 \321' \211\322H)\"\203\270 \206\277 \323\324\215\206\277 \325I+
\211\211\330H) (\331% \" ) \211\311H) *\332*\313U\203\347 \322\202\353 \311(\\\313\" +*\313U\203 +\313)I\210\2021+\313,I\210+\322*I\210(\322U\203 +\311)I\210\2021+\311)\317\245I\210+\333)\317\246I\210\306\307!\210\334+!\210\306 \211\333H)\335=\203T\314\336 \211\313H)%#\202U\337!\210\306\340!\210,* T\211\202 ,\306\341\3338\203q\342\202r\343\344#\207" [composition font-spec components i --dotimes-limit-- this-spec ps-output "[" copy-sequence 2 nil 0 format " %d" encode-composition-rule 256 char-table-extra-slot encode-char 1 tag (byte-code "\304\305\"\306\211\205$ \n@\307 @\"\203 \310\311 A\"\210\nA\211\204 \306*\207" [font-spec-table elt --dolist-tail-- char char-table-extra-slot 0 nil encode-char throw tag] 4) t vectorp 63 6 ps-mule-encode-char make-string 3 ps-output-string bdf "/C%02X-%X" "false" "]" " ] " "RLC" "RBC" "\n" elt font-spec-table char bytes code font-id str ps-mule-esc-char] 7 (#$ . 18708)])
#@254 Generate PostScript code for plotting characters in the region FROM and TO.
Optional argument BG-COLOR is ignored.
Returns the value:
(ENDPOS . RUN-WIDTH)
Where ENDPOS is the end position of the sequence and RUN-WIDTH is the width of
the sequence.
(defalias 'ps-mule-plot-string #[(from to &optional _bg-color) "\306\211\307N)`\310 \f\311\312$\211 \203# \313\314
8\315H!\204#
@\202$ \f \316 \315 \311 HH \311 ! b\210 \204-`Y\203\262 \fU\203Z \211 \202A W\203n \317\320 ` #!\210\321\322!\210\323
8 _!\"!\\W\203\210 \211 \202A \324
\"\210!\\
A@\211b\210\310`\f\311\312$\211\203\254
@\202\255 \f\202? \325!\203\376 \315\225^`Z # #_!\"!\\W\203\357 \326\"Z \"## _\\`#\\ \202\372 !\\#u\210)\202? `W\203? \204? \327g!!\"!\\W\203 ` \202\376 !\\\330u\210\202\376 W\203B\317\320 #!\210\321\322!\210\nb\210 . B\207" [font-sym average-width point from to composition ps-font-for-text avg-char-width find-composition nil t vectorp 2 0 "[ -\377]+" ps-output-string ps-mule-encode-region ps-output " S\n" 5 ps-mule-plot-composition looking-at truncate char-width 1 stop ascii-or-latin-1 run-width endpos ps-mule-font-spec-tables ps-mule-font-number-to-type ps-current-font font-spec-table width ps-width-remaining nchars] 6 (#$ . 20220)])
(defvar ps-mule-composition-prologue-generated nil)
#@53 PostScript code for printing character composition.
(defconst ps-mule-composition-prologue "%%%% Procedures for character composition.\n/RelativeCompositionSkip 0.4 def\n\n%% Get a bounding box (relative to currentpoint) of STR.\n/GetPathBox { % [ str cname ] | -\n dup 1 get dup false ne {\n BitmapDict exch get /bmp exch def\n %% bmp ::= [ DWIDTH WIDTH HEIGHT XOFF YOFF BITMAP RELATIVE-COMPOSE]\n /LLY bmp 4 get def\n /URY LLY bmp 2 get add def\n /RelativeCompose bmp 6 get dup false ne {\n dup LLY le { pop 1 } { URY ge { -1 } { 0 } ifelse } ifelse\n } {\n pop 0\n } ifelse def\n dup 0 get stringwidth pop dup /WIDTH exch def bmp 0 get div\n dup LLY mul /LLY exch def\n URY mul /URY exch def\n } {\n pop\n dup 0 get stringwidth pop /WIDTH exch def\n gsave 0 0 moveto\n dup 0 get false charpath flattenpath pathbbox\n /URY exch def pop /LLY exch def pop\n grestore\n /RelativeCompose 0 def\n } ifelse\n} bind def\n\n%% Apply effects except for shadow and outline to the rectangle\n%% specified by TOP BOTTOM LEFT RIGHT.\n/SpecialEffect { % -- | --\n currentpoint dup TOP add /yy exch def BOTTOM add /YY exch def\n dup LEFT add /xx exch def RIGHT add /XX exch def\n %% Adjust positions for future shadowing.\n Effect 8 and 0 ne {\n /yy yy Yshadow add def\n /XX XX Xshadow add def\n } if\n Effect 1 and 0 ne { UnderlinePosition Hline } if % underline\n Effect 2 and 0 ne { StrikeoutPosition Hline } if % strikeout\n Effect 4 and 0 ne { OverlinePosition Hline } if % overline\n bg { % background\n true\n Effect 16 and 0 ne {SpaceBackground doBox} { xx yy XX YY doRect} ifelse\n } if\n Effect 16 and 0 ne { false 0 doBox } if % box\n} def\n\n%% Draw COMPONENTS which has the form [ [str0 xoff0 yoff0] ... ] with\n%% effects shadow and outline.\n/ShowComponents { % components | -\n gsave\n { gsave aload pop rmoveto\n Effect 8 and 0 ne { dup doShadow } if\n Effect 32 and 0 ne { true doOutline } { show } ifelse\n grestore\n } forall\n grestore\n RIGHT 0 rmoveto\n} def\n\n%% Show relative composition.\n/RLC { % [[str0 cname0] [str1 cname1] ... [strN cnameN]] | -\n /components exch def\n [ % push [str xoff yoff] one by one\n [ components 0 get GetPathBox aload pop pop 0 0 ]\n %% Bounding box of overall glyphs.\n /LEFT 0 def\n /RIGHT WIDTH def\n /TOP URY def\n /BOTTOM LLY def\n\n 1 1 components length 1 sub {\n components exch get\n [ exch\n GetPathBox\n aload pop pop % str\n 0 % xoff\n RelativeCompose 1 eq { % compose on TOP\n TOP LLY sub RelativeCompositionSkip add % yoff\n /TOP TOP URY LLY sub add RelativeCompositionSkip add def\n } { RelativeCompose -1 eq { % compose under BOTTOM\n BOTTOM URY sub RelativeCompositionSkip sub % yoff\n /BOTTOM BOTTOM URY LLY sub sub\n RelativeCompositionSkip sub def\n } {\n 0 % yoff\n URY TOP gt { /TOP URY def } if\n LLY BOTTOM lt { /BOTTOM LLY def } if\n } ifelse } ifelse\n ]\n } for\n ]\n SpecialEffect % Reflect special effects.\n ShowComponents % Draw components.\n} def\n\n%% Show rule-base composition.\n/RBC { % [[str0 cname0] rule1 [str1 cname0] rule2 ... [strN cnameN]] | -\n /components exch def\n [ % push [str xoff yoff] one by one\n [ components 0 get GetPathBox aload pop pop 0 0 ]\n %% Bounding box of overall glyphs.\n /LEFT 0 def\n /RIGHT WIDTH def\n /TOP URY def\n /BOTTOM LLY def\n 1 1 components length 1 sub {\n components exch get /elt exch def\n elt type /integertype eq { % rule\n %% Do the same RULE decoding as the macro\n %% COMPOSITION_DECODE_RULE in emacs/src/composite.h.\n elt 12 idiv dup 3 mod /grefx exch def 3 idiv /grefy exch def\n elt 12 mod dup 3 mod /nrefx exch def 3 idiv /nrefy exch def\n } { % other strings\n [\n elt GetPathBox\n aload pop pop\n /height URY LLY sub def\n /left LEFT [ 0 RIGHT LEFT sub dup 2 div exch ] grefx get add\n [ 0 WIDTH 2 div WIDTH ] nrefx get sub def\n /bottom [ TOP 0 BOTTOM TOP BOTTOM add 2 div ] grefy get\n [ height LLY neg 0 height 2 div ] nrefy get sub def\n %% Update bounding box\n left LEFT lt { /LEFT left def } if\n left WIDTH add RIGHT gt { /RIGHT left WIDTH add def } if\n bottom BOTTOM lt { /BOTTOM bottom def } if\n bottom height add TOP gt { /TOP bottom height add def } if\n left bottom LLY sub ]\n } ifelse\n } for\n ]\n\n LEFT 0 lt { % Adjust xoff to the right.\n dup { dup 1 get LEFT sub 1 exch put } forall\n /RIGHT RIGHT LEFT sub def\n } if\n\n SpecialEffect % Reflect special effects.\n ShowComponents % Draw components.\n} def\n\n%%%% End of procedures for character composition\n" (#$ . 21609))
(defalias 'ps-mule-composition-prologue-generated #[nil "?\205 \302 \210\303 !\210\304\211\207" [ps-mule-composition-prologue-generated ps-mule-composition-prologue ps-mule-prologue-generated ps-output-prologue t] 2])
(defvar ps-mule-bitmap-prologue-generated nil)
(defconst ps-mule-bitmap-prologue "%%%% Procedures for bitmap fonts.\n\n%% Create a base bitmap font.\n/NBF { % fontname fontsize relative-compose baseline-offset enc | --\n 11 dict begin\n /FontType 3 def\n /FontMatrix matrix def\n /FontBBox [ 0 0 0 0 ] def\n /Encoding exch def\n /BaselineOffset exch def\n /RelativeCompose exch def\n /FontSize exch def\n /FontMatrix [ 1 FontSize div 0 0 1 FontSize div 0 0 ] def\n /BuildGlyph { % fontdict charname | -\n BitmapDict exch get /bmp exch def pop\n %% bmp ::= [ DWIDTH WIDTH HEIGHT XOFF YOFF BITMAP RELATIVE-COMPOSE ]\n /llx bmp 3 get def\n /lly bmp 4 get def\n /urx llx bmp 1 get add def\n /ury lly bmp 2 get add def\n bmp 0 get 0 llx lly urx ury setcachedevice\n bmp 5 get length 0 gt {\n llx ury translate\n bmp 1 get bmp 2 get\n true [ 1 0 0 -1 0 0 ] { bmp 5 get } imagemask\n } if\n } bind def\n /BuildChar { % fontdict byte | -\n 1 index /Encoding get exch get\n 1 index /BuildGlyph get exec\n } bind def\n dup currentdict end\n definefont def\n} bind def\n\n%% Create a parent font of 8/8 mapping.\n/NPF { % fontname encoding fdepvector | -\n 8 dict begin\n /FontType 0 def\n /FMapType 2 def\n /FontMatrix matrix def\n /FDepVector exch def\n /Encoding exch def\n dup currentdict\n end\n definefont def\n} bind def\n\n%%%% End of procedures for bitmap fonts.\n")
(defvar ps-mule-bitmap-dict-list nil)
(defvar ps-mule-bitmap-font-record nil)
(defalias 'ps-mule-generate-bitmap-prologue #[nil "?\205 \304\305\306\307\305\" C\207" [ps-mule-bitmap-prologue-generated ps-mule-bitmap-dict-list ps-mule-bitmap-font-record ps-mule-bitmap-prologue t nil make-vector 1024] 3])
(defalias 'ps-mule-generate-bitmap-font #[(font-spec size relative-compose baseline-offset bbx) "\211\306H)\211\307H)\310\n\311U\2032 \312\313 \"\312\314\211\315H)\"\312\316 \f
&E\202O \312\317 \"C\312\320 \"C\321\312\314\211\315H)\"\312\322 \211\211$\257 \323\n\311U \f
&I\210\203j \202r \324\325D\211 B+\207" [font-spec id bytes output-list size relative-compose 0 6 nil 1 format "/E%02X [ 0 1 255 {pop /.notdef} for ] def\n" "%%%% %s\n" 4 "/F%02X %f %S %d E%02X NBF\n" "/E%02X [ 0 1 255 { pop 0 } for ] def\n" "/V%02X [" " ] def\n" "/F%02X E%02X V%02X NPF\n" vector "/BitmapDict <<\n" ">> def\n" baseline-offset ps-mule-bitmap-font-record bbx ps-mule-bitmap-dict-list] 10])
(defalias 'ps-mule-generate-bitmap-glyph #[(font-spec char code bitmap) "\211\306H)\n H\307\211 \306H<\203\214 \310\245 \310_\\ \306H\236A\310\246
\204\202 \311H@ \311HA@ \312\313\"\312\314 \315H \316H \317H&\312\320 GS$E
C\244\210\312\321\"C\244\210 \306
B \306HBI\210*\312\322\"*\202\225 \311H\312\323 \"\312\324 $AB\241\210
\312\325\f %
AB\241\210,\307\207" [font-spec id ps-mule-bitmap-font-record font-record enc-name output-list 0 nil 256 1 format "/E%04X [ 0 1 255 {pop /.notdef} for ] def\n" "/F%04X %f %S %d E%04X NBF\n" 2 3 4 "E%02X %d %d put\n" " F%04X" "%04X" "%02X" "/C%02X-%X %s\n" "E%s %d /C%02X-%X put\n" code high id2 fdep-list enc-list ps-mule-bitmap-dict-list char bitmap] 9])
#@60 Initialize global data for printing multi-byte characters.
(defalias 'ps-mule-initialize #[nil "\304\211\304\305\306 \"\207" [ps-mule-prologue-generated ps-mule-composition-prologue-generated ps-mule-bitmap-prologue-generated ps-mule-external-libraries nil mapcar (lambda (x) (setcar (nthcdr 2 x) nil))] 4 (#$ . 29810)])
#@158 Generate PostScript code for plotting STRING by font FONTTAG.
FONTTAG should be a string "/h0", "/h1", "/L0", or "/H0".
Any other value is treated as "/H0".
(defalias 'ps-mule-encode-header-string #[(string fonttag) "\305\306!rq\210\307\216 c\210\310ed\n \f\311\230\203 \312\2021 \f\313\230\203& \314\2021 \f\315\230\2030 \316\2021 \317HH#+C\207" [#1=#:temp-buffer string ps-mule-font-spec-tables ps-mule-font-number-to-type fonttag generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) ps-mule-encode-region "/h0" 4 "/h1" 5 "/L0" 6 0] 7 (#$ . 30141)])
#@137 Start printing job for multi-byte chars between FROM and TO.
It checks if all multi-byte characters in the region are printable or not.
(defalias 'ps-mule-begin-job #[(from to) "\306 \"\204 \212b\210\307 w U)\203 \310\311\211\207\312\313\f\314=\203(
\202@ \f\315=\2033 3\202@ \f\316=\203> 4\202@ 56\3176\236\204O \3206B6\321\322\323\"\324\211\323 7 8 9 :\325\326;\327\"! <\317\330\317<\"B\211<\323 \211 =\203\232 =@\2116\236\211 >\203\220 >7B7)=A\211=\204z *6\323 >\211 =\203\303 =@\211>@<>\204\272 >7B7=A\211=\204\246 *7\2377)7\323 >\211 =\203\370=@>\321\322\323\">@\323\211\211 ? @ A B>A\323 C\211 =\203v=@C\331C8A\322C8@A\204A\332!@\33398CA@\334C8A@\2061\335\323&?9T9\336?!\203mBC@\337=\203P\324\202iC@\340=\203\\\335\202iC@\341=\203h\334\202i\331?I\210=A\211=\204\372 *B\324H\203\356B\331H\204\234B\331B\335H\206\232B\334H\206\232B\324HI\210B\335H\204\254B\335B\324HI\210B\334H\204\274B\334B\335HI\210\322\324 D EDEW\203\350:D:DHBDHBC\244I\210DT\211D\202\304*8T8-=A\211=\204\325 *\321\322\323\"F\342\343\344\335#\210\322\324 D EDEW\203\245\345\343! GFDGI\210\346G\324:DH#\210\347\211 HG\324 D EDEW\203\233\350HDHG\323 ? # I#IH\206\211#I\211\351W\203h\352#\324\"@A\206\210?\203\201\353I?\211 ?\335H)\"\203\201?\206\210\354\355\215\206\210\356I+!\204\222\357\360!\210DT\211D\2027,DT\211D\202
.\361 \210\306 \"\205\263\362 \207" [from to ps-basic-plot-string-function ps-encode-header-string-function ps-multibyte-buffer ps-mule-font-info-database-ps find-composition " -" ps-basic-plot-string identity ps-mule-plot-string ps-mule-encode-header-string non-latin-printer bdf-font bdf-font-except-latin iso-8859-1 (iso-8859-1 (normal nil nil)) make-vector 4 nil 0 copy-sequence get-language-info charset delq 3 charset-dimension vector 2 1 ps-mule-check-font normal bold italic put font-spec-table char-table-extra-slots make-char-table set-char-table-extra-slot " 0123456789/" vectorp 256 char-table-extra-slot encode-char tag (byte-code "\304\305\"\306\211\205$ \n@\307 @\"\203 \310\311 A\"\210\nA\211\204 \306*\207" [font-spec-table elt --dolist-tail-- char char-table-extra-slot 0 nil encode-char throw tag] 4) t error "ASCII font not available" ps-mule-prologue-generated ps-mule-composition-prologue-generated ps-mule-font-info-database-bdf ps-mule-font-info-database-ps-bdf ps-mule-font-info-database-default ps-mule-font-info-database font-info-list font-id id-max font-spec-alist current-language-environment charset-list --dolist-tail-- font-info font-spec bytes encoding font-spec-vec e i --dotimes-limit-- ps-mule-font-spec-tables table str char] 10 (#$ . 30760)])
(defalias 'ps-mule-restruct-output-list #[(list tail) "\304\211\203) \n@\211<\203 \305 \"\202\" AB\241\210 A\nA\211\204 * \207" [list elt --dolist-tail-- tail nil ps-mule-restruct-output-list] 4])
(defalias 'ps-mule-redefine-font #[(font-number fonttag size ps-font) " H\306 \nH\307\" \310\f@A\211 \311H)\203 \312\313\n#\202, \312\314\n\211&\312\315\n%D!*\207" [ps-mule-font-number-to-type font-number font-type ps-mule-font-spec-tables font-spec-alist font-spec char-table-extra-slot 0 ps-output-prologue 3 format "/V%s VTOP%d def\n" "/V%s [ VTOP%d aload pop ] def\n\nV%s 0 /%s-latin1 /%s Latin1Encoding put\n" "/%s ETOP%d V%s %f ReDefFont\n" fonttag ps-font size] 9])
#@43 Finish printing job for multi-byte chars.
(defalias 'ps-mule-end-job #[nil "\306C\306C\307\310\n W\203 \311\312\f\nH\"\210\nT\211\202 *\313A \"\210\314 A!\210*\307\310\n W\203\315 \315\f\nH\310\"\316\211 '\211 (\316 )\211 *\203x *@\211)A\211\211 \317H)\203o
\211 \320H)
\211 \310H)B'B'*A\211*\204L *'\237'\314\321\322\n\"\321\323\n\"D!\210\310 +'\316 ,\211 *\203\267 *@,\314\321\324\n,@+$!\210+T+*A\211*\204\230 +\314\321\325\n\326\327'\330##!\210+\nT\211\2020 *\331\307\332-\333\334\335\"$\210\331\336\337.\333\334\340\"$\210\331\341\342/\333\343\340\"$\210\344\211 0\345N)\310 ,,\205\331\n\321\346\n\"1\333\344,@@\"$\210,A,\nT\202\372 *\207" [ps-mule-output-list output-head i --dotimes-limit-- ps-mule-font-spec-tables font-spec t 4 0 map-char-table ps-mule-prepare-glyph ps-mule-restruct-output-list ps-output-prologue char-table-extra-slot nil 7 2 format "/ETOP%d 256 array def\n" "0 1 255 { ETOP%d exch 0 put } for\n" "ETOP%d %d %d put\n" "/VTOP%d [%s] def\n" mapconcat #[(x) "\301\302A\"\207" [x format "F%02X"] 3] " " ps-mule-redefine-font "h0" ps-font ps-font-for-header bold 5 "h1" normal 6 "H0" ps-font-for-footer ps-font-for-text fonts "f%d" font-list font-spec-alist elt --dolist-tail-- index font ps-header-title-font-size-internal ps-header-font-size-internal ps-footer-font-size-internal font-sym ps-font-size-internal] 9 (#$ . 34222)])
(provide 'ps-mule)