Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
calc
[ DIR ]
drwxr-xr-x
calendar
[ DIR ]
drwxr-xr-x
cedet
[ DIR ]
drwxr-xr-x
emacs-lisp
[ DIR ]
drwxr-xr-x
emulation
[ DIR ]
drwxr-xr-x
erc
[ DIR ]
drwxr-xr-x
eshell
[ DIR ]
drwxr-xr-x
gnus
[ DIR ]
drwxr-xr-x
image
[ DIR ]
drwxr-xr-x
international
[ DIR ]
drwxr-xr-x
language
[ DIR ]
drwxr-xr-x
leim
[ DIR ]
drwxr-xr-x
mail
[ DIR ]
drwxr-xr-x
mh-e
[ DIR ]
drwxr-xr-x
net
[ DIR ]
drwxr-xr-x
nxml
[ DIR ]
drwxr-xr-x
obsolete
[ DIR ]
drwxr-xr-x
org
[ DIR ]
drwxr-xr-x
play
[ DIR ]
drwxr-xr-x
progmodes
[ DIR ]
drwxr-xr-x
term
[ DIR ]
drwxr-xr-x
textmodes
[ DIR ]
drwxr-xr-x
url
[ DIR ]
drwxr-xr-x
vc
[ DIR ]
drwxr-xr-x
COPYING
34.32
KB
-rw-r--r--
README
537
B
-rw-r--r--
abbrev.elc
34.55
KB
-rw-r--r--
align.elc
39.88
KB
-rw-r--r--
allout-widgets.elc
62.37
KB
-rw-r--r--
allout.elc
203.33
KB
-rw-r--r--
ansi-color.elc
17.12
KB
-rw-r--r--
apropos.elc
37.42
KB
-rw-r--r--
arc-mode.elc
58.06
KB
-rw-r--r--
array.elc
27.07
KB
-rw-r--r--
auth-source-pass.elc
11.68
KB
-rw-r--r--
auth-source.elc
64.32
KB
-rw-r--r--
autoarg.elc
6.63
KB
-rw-r--r--
autoinsert.elc
13.41
KB
-rw-r--r--
autorevert.elc
30.71
KB
-rw-r--r--
avoid.elc
11.62
KB
-rw-r--r--
battery.elc
24.42
KB
-rw-r--r--
bindings.elc
42.76
KB
-rw-r--r--
bookmark.elc
77.09
KB
-rw-r--r--
bs.elc
49.32
KB
-rw-r--r--
buff-menu.elc
27.02
KB
-rw-r--r--
button.elc
14.97
KB
-rw-r--r--
calculator.elc
53.9
KB
-rw-r--r--
case-table.elc
4.99
KB
-rw-r--r--
cdl.elc
1.07
KB
-rw-r--r--
char-fold.elc
311.81
KB
-rw-r--r--
chistory.elc
8.16
KB
-rw-r--r--
cmuscheme.elc
18.07
KB
-rw-r--r--
color.elc
12.83
KB
-rw-r--r--
comint.elc
114.46
KB
-rw-r--r--
completion.elc
41.12
KB
-rw-r--r--
composite.elc
27.94
KB
-rw-r--r--
cus-dep.elc
6.42
KB
-rw-r--r--
cus-edit.elc
139.04
KB
-rw-r--r--
cus-face.elc
10.54
KB
-rw-r--r--
cus-load.el
85.19
KB
-rw-r--r--
cus-start.elc
21.92
KB
-rw-r--r--
cus-theme.elc
25.05
KB
-rw-r--r--
custom.elc
47.41
KB
-rw-r--r--
dabbrev.elc
22.28
KB
-rw-r--r--
delim-col.elc
8.95
KB
-rw-r--r--
delsel.elc
9.2
KB
-rw-r--r--
descr-text.elc
26.87
KB
-rw-r--r--
desktop.elc
47.64
KB
-rw-r--r--
dframe.elc
19.92
KB
-rw-r--r--
dired-aux.elc
85.75
KB
-rw-r--r--
dired-loaddefs.el
22.29
KB
-rw-r--r--
dired-x.elc
44.53
KB
-rw-r--r--
dired.elc
127.27
KB
-rw-r--r--
dirtrack.elc
7.75
KB
-rw-r--r--
disp-table.elc
8.76
KB
-rw-r--r--
display-fill-column-indicator....
8.32
KB
-rw-r--r--
display-line-numbers.elc
8.67
KB
-rw-r--r--
dnd.elc
7.13
KB
-rw-r--r--
doc-view.elc
65.25
KB
-rw-r--r--
dom.elc
7.36
KB
-rw-r--r--
dos-fns.elc
6.14
KB
-rw-r--r--
dos-vars.elc
1.1
KB
-rw-r--r--
dos-w32.elc
11.67
KB
-rw-r--r--
double.elc
4.34
KB
-rw-r--r--
dynamic-setting.elc
2.2
KB
-rw-r--r--
ebuff-menu.elc
10.46
KB
-rw-r--r--
echistory.elc
4.75
KB
-rw-r--r--
ecomplete.elc
7.1
KB
-rw-r--r--
edmacro.elc
19.94
KB
-rw-r--r--
ehelp.elc
11.32
KB
-rw-r--r--
elec-pair.elc
21.41
KB
-rw-r--r--
electric.elc
23.69
KB
-rw-r--r--
elide-head.elc
2.65
KB
-rw-r--r--
emacs-lock.elc
9.29
KB
-rw-r--r--
env.elc
6.12
KB
-rw-r--r--
epa-dired.elc
1.62
KB
-rw-r--r--
epa-file.elc
8.65
KB
-rw-r--r--
epa-hook.elc
4.63
KB
-rw-r--r--
epa-mail.elc
9.43
KB
-rw-r--r--
epa.elc
45.25
KB
-rw-r--r--
epg-config.elc
8.97
KB
-rw-r--r--
epg.elc
166.06
KB
-rw-r--r--
expand.elc
9.07
KB
-rw-r--r--
ezimage.elc
9.65
KB
-rw-r--r--
face-remap.elc
16.58
KB
-rw-r--r--
facemenu.elc
27.89
KB
-rw-r--r--
faces.elc
90.21
KB
-rw-r--r--
ffap.elc
50.3
KB
-rw-r--r--
filecache.elc
16.69
KB
-rw-r--r--
fileloop.elc
6.62
KB
-rw-r--r--
filenotify.elc
28.49
KB
-rw-r--r--
files-x.elc
21.9
KB
-rw-r--r--
files.elc
236.95
KB
-rw-r--r--
filesets.elc
72.57
KB
-rw-r--r--
find-cmd.elc
4.9
KB
-rw-r--r--
find-dired.elc
10.41
KB
-rw-r--r--
find-file.elc
18.33
KB
-rw-r--r--
find-lisp.elc
7.66
KB
-rw-r--r--
finder-inf.el
41.27
KB
-rw-r--r--
finder.elc
14.73
KB
-rw-r--r--
flow-ctrl.elc
2.26
KB
-rw-r--r--
foldout.elc
7.25
KB
-rw-r--r--
follow.elc
40.63
KB
-rw-r--r--
font-core.elc
12.41
KB
-rw-r--r--
font-lock.elc
61.63
KB
-rw-r--r--
format-spec.elc
3.93
KB
-rw-r--r--
format.elc
27.56
KB
-rw-r--r--
forms.elc
35.1
KB
-rw-r--r--
frame.elc
85.94
KB
-rw-r--r--
frameset.elc
48.02
KB
-rw-r--r--
fringe.elc
10.23
KB
-rw-r--r--
generic-x.elc
40.27
KB
-rw-r--r--
help-at-pt.elc
11.15
KB
-rw-r--r--
help-fns.elc
45.35
KB
-rw-r--r--
help-macro.elc
4.25
KB
-rw-r--r--
help-mode.elc
23.89
KB
-rw-r--r--
help.elc
52.22
KB
-rw-r--r--
hex-util.elc
1.3
KB
-rw-r--r--
hexl.elc
35.39
KB
-rw-r--r--
hfy-cmap.elc
25.45
KB
-rw-r--r--
hi-lock.elc
29.38
KB
-rw-r--r--
hilit-chg.elc
28.77
KB
-rw-r--r--
hippie-exp.elc
21.52
KB
-rw-r--r--
hl-line.elc
11.23
KB
-rw-r--r--
htmlfontify-loaddefs.el
808
B
-rw-r--r--
htmlfontify.elc
67.51
KB
-rw-r--r--
ibuf-ext.elc
77.15
KB
-rw-r--r--
ibuf-macs.elc
12.47
KB
-rw-r--r--
ibuffer-loaddefs.el
12.68
KB
-rw-r--r--
ibuffer.elc
98.62
KB
-rw-r--r--
icomplete.elc
22.83
KB
-rw-r--r--
ido.elc
127.92
KB
-rw-r--r--
ielm.elc
19.2
KB
-rw-r--r--
iimage.elc
4.92
KB
-rw-r--r--
image-dired.elc
92.97
KB
-rw-r--r--
image-file.elc
6.53
KB
-rw-r--r--
image-mode.elc
42.56
KB
-rw-r--r--
image.elc
34.45
KB
-rw-r--r--
imenu.elc
24.94
KB
-rw-r--r--
indent.elc
23.63
KB
-rw-r--r--
info-look.elc
28.18
KB
-rw-r--r--
info-xref.elc
16.59
KB
-rw-r--r--
info.elc
144.48
KB
-rw-r--r--
informat.elc
9.73
KB
-rw-r--r--
isearch.elc
147.85
KB
-rw-r--r--
isearchb.elc
4.73
KB
-rw-r--r--
jit-lock.elc
23.49
KB
-rw-r--r--
jka-cmpr-hook.elc
13.07
KB
-rw-r--r--
jka-compr.elc
12.09
KB
-rw-r--r--
json.elc
22.76
KB
-rw-r--r--
jsonrpc.elc
31.65
KB
-rw-r--r--
kermit.elc
2.92
KB
-rw-r--r--
kmacro.elc
35.15
KB
-rw-r--r--
ldefs-boot.el
1.41
MB
-rw-r--r--
linum.elc
10.77
KB
-rw-r--r--
loaddefs.el
1.41
MB
-rw-r--r--
loadhist.elc
9.77
KB
-rw-r--r--
loadup.el
20.08
KB
-rw-r--r--
locate.elc
19.57
KB
-rw-r--r--
lpr.elc
9.44
KB
-rw-r--r--
ls-lisp.elc
22.7
KB
-rw-r--r--
macros.elc
7.23
KB
-rw-r--r--
makesum.elc
2.47
KB
-rw-r--r--
man.elc
53.85
KB
-rw-r--r--
master.elc
4.58
KB
-rw-r--r--
mb-depth.elc
3.56
KB
-rw-r--r--
md4.elc
8.12
KB
-rw-r--r--
menu-bar.elc
86.61
KB
-rw-r--r--
midnight.elc
10.22
KB
-rw-r--r--
minibuf-eldef.elc
6.43
KB
-rw-r--r--
minibuffer.elc
104.08
KB
-rw-r--r--
misc.elc
5.4
KB
-rw-r--r--
misearch.elc
12.37
KB
-rw-r--r--
mouse-copy.elc
3.61
KB
-rw-r--r--
mouse-drag.elc
6.43
KB
-rw-r--r--
mouse.elc
71.3
KB
-rw-r--r--
mpc.elc
79.29
KB
-rw-r--r--
msb.elc
26.76
KB
-rw-r--r--
mwheel.elc
12.83
KB
-rw-r--r--
newcomment.elc
39.43
KB
-rw-r--r--
notifications.elc
13.78
KB
-rw-r--r--
novice.elc
4.43
KB
-rw-r--r--
obarray.elc
1.71
KB
-rw-r--r--
outline.elc
37.04
KB
-rw-r--r--
paren.elc
8.69
KB
-rw-r--r--
password-cache.elc
3.57
KB
-rw-r--r--
pcmpl-cvs.elc
6.17
KB
-rw-r--r--
pcmpl-gnu.elc
12.96
KB
-rw-r--r--
pcmpl-linux.elc
3.09
KB
-rw-r--r--
pcmpl-rpm.elc
11.17
KB
-rw-r--r--
pcmpl-unix.elc
7.52
KB
-rw-r--r--
pcmpl-x.elc
8.95
KB
-rw-r--r--
pcomplete.elc
36.16
KB
-rw-r--r--
pixel-scroll.elc
10.82
KB
-rw-r--r--
plstore.elc
14.75
KB
-rw-r--r--
printing.elc
157.7
KB
-rw-r--r--
proced.elc
62.85
KB
-rw-r--r--
profiler.elc
42.81
KB
-rw-r--r--
ps-bdf.elc
12.69
KB
-rw-r--r--
ps-def.elc
2.23
KB
-rw-r--r--
ps-mule.elc
34.89
KB
-rw-r--r--
ps-print-loaddefs.el
2.6
KB
-rw-r--r--
ps-print.elc
141.17
KB
-rw-r--r--
ps-samp.elc
5.26
KB
-rw-r--r--
recentf.elc
48.73
KB
-rw-r--r--
rect.elc
26.88
KB
-rw-r--r--
register.elc
27.63
KB
-rw-r--r--
registry.elc
10.41
KB
-rw-r--r--
repeat.elc
5.14
KB
-rw-r--r--
replace.elc
84.62
KB
-rw-r--r--
reposition.elc
2.66
KB
-rw-r--r--
reveal.elc
7.16
KB
-rw-r--r--
rfn-eshadow.elc
7.23
KB
-rw-r--r--
rot13.elc
2.56
KB
-rw-r--r--
rtree.elc
4.09
KB
-rw-r--r--
ruler-mode.elc
21.87
KB
-rw-r--r--
savehist.elc
10.83
KB
-rw-r--r--
saveplace.elc
11.87
KB
-rw-r--r--
sb-image.elc
2.75
KB
-rw-r--r--
scroll-all.elc
4.41
KB
-rw-r--r--
scroll-bar.elc
16.68
KB
-rw-r--r--
scroll-lock.elc
5.41
KB
-rw-r--r--
select.elc
18.75
KB
-rw-r--r--
server.elc
47.56
KB
-rw-r--r--
ses.elc
131.12
KB
-rw-r--r--
shadowfile.elc
31.16
KB
-rw-r--r--
shell.elc
41.53
KB
-rw-r--r--
simple.elc
301.78
KB
-rw-r--r--
skeleton.elc
15.76
KB
-rw-r--r--
so-long.elc
47.15
KB
-rw-r--r--
sort.elc
15.49
KB
-rw-r--r--
soundex.elc
1.14
KB
-rw-r--r--
speedbar.elc
115.02
KB
-rw-r--r--
startup.elc
68.51
KB
-rw-r--r--
strokes.elc
44.03
KB
-rw-r--r--
subdirs.el
450
B
-rw-r--r--
subr.elc
186.63
KB
-rw-r--r--
svg.elc
12.71
KB
-rw-r--r--
t-mouse.elc
3.8
KB
-rw-r--r--
tab-bar.elc
52.48
KB
-rw-r--r--
tab-line.elc
29.85
KB
-rw-r--r--
tabify.elc
2.17
KB
-rw-r--r--
talk.elc
2.99
KB
-rw-r--r--
tar-mode.elc
57.2
KB
-rw-r--r--
tempo.elc
19.18
KB
-rw-r--r--
term.elc
107.99
KB
-rw-r--r--
thingatpt.elc
16.88
KB
-rw-r--r--
thread.elc
8.08
KB
-rw-r--r--
thumbs.elc
25.74
KB
-rw-r--r--
time-stamp.elc
18.69
KB
-rw-r--r--
time.elc
20.87
KB
-rw-r--r--
timezone.elc
10.94
KB
-rw-r--r--
tmm.elc
13.39
KB
-rw-r--r--
tool-bar.elc
9.76
KB
-rw-r--r--
tooltip.elc
13.19
KB
-rw-r--r--
tree-widget.elc
19.84
KB
-rw-r--r--
tutorial.elc
22.28
KB
-rw-r--r--
type-break.elc
37.35
KB
-rw-r--r--
uniquify.elc
17.68
KB
-rw-r--r--
userlock.elc
6.33
KB
-rw-r--r--
vcursor.elc
23.92
KB
-rw-r--r--
version.elc
6.01
KB
-rw-r--r--
view.elc
34.69
KB
-rw-r--r--
vt-control.elc
1.99
KB
-rw-r--r--
vt100-led.elc
1.33
KB
-rw-r--r--
w32-fns.elc
11.01
KB
-rw-r--r--
w32-vars.elc
5.16
KB
-rw-r--r--
wdired.elc
23.52
KB
-rw-r--r--
whitespace.elc
69.06
KB
-rw-r--r--
wid-browse.elc
8.48
KB
-rw-r--r--
wid-edit.elc
99.52
KB
-rw-r--r--
widget.elc
1.4
KB
-rw-r--r--
windmove.elc
19.82
KB
-rw-r--r--
window.elc
294.5
KB
-rw-r--r--
winner.elc
12.04
KB
-rw-r--r--
woman.elc
109.43
KB
-rw-r--r--
x-dnd.elc
19.56
KB
-rw-r--r--
xdg.elc
10.14
KB
-rw-r--r--
xml.elc
25.31
KB
-rw-r--r--
xt-mouse.elc
14.1
KB
-rw-r--r--
xwidget.elc
18.9
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : ps-mule.elc
;ELC ;;; Compiled ;;; in Emacs version 27.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 (#$ . 2486)) #@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))) (#$ . 4079)) #@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 '(#$ . 4241) :type '(alist :key-type symbol :tag "Charset" :value-type (list (list (choice :tag "Font type" (const normal) (const bold) (const italic) (const bold-italic)) (choice :tag "Font source" (const builtin) (const bdf) (const vflib) (const nil)) (choice :tag "Font name" (const nil) string (repeat :tag "List" string)) (choice :tag "Encoding" (const nil) coding-system function) (choice :tag "Bytes" (const nil) (const 1) (const 2))))) :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"))) (#$ . 4872)) #@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"))) (#$ . 5526)) #@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) (#$ . 8662)) (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\206Z \211\305W\203 \306\307\"@A\206Y \n\203+ \310 \n\211\311H)\"\203+ \n\206Y \3122U \306\307\"\313\211 \205S \f@\310 @\"\203K \314\312 A\"\210\fA\211\204: \313*0\206Y \315I\207" [font-spec-table char font-spec elt --dolist-tail-- 256 char-table-extra-slot 0 encode-char 1 tag nil throw t] 7 (#$ . 11280)]) (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)) (#$ . 11948)) (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 (#$ . 14620)]) (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 (#$ . 15045)]) #@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 (#$ . 15338)]) #@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 (#$ . 15827)]) #@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" (#$ . 16442)) (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\203eg\211 H\206 \211\310W\2033 \311\307\"@A\206~ \203G \312 \211\313H)\"\203G \206~ \3142z \311\307\"\306 \211 \205x @\312 @\"\203n \315\314A\"\210A\211\204Y \306*0\206~ \316I+ \306 \317!\203\230 \211\320H)\202\321\211\306 H\206 \211\310W\203\274 \311\307\"@A\206\203\320 \312 \211\313H)\"\203\320 \206\3142\311\307\"\306 \211 \205@\312 @\"\203\367 \315\314A\"\210A\211\204\342 \306*0\206\316I+\211\211\320H) U\204& \nB \nB \322W\2036 \nB\202^\323 \" \211\324H)\313U\203O \nB\202] \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 throw t vectorp 2 63 128 ps-mule-encode-char 6 apply unibyte-string font-spec-table elt --dolist-tail-- this-spec this-id ps-mule-esc-char code] 7 (#$ . 17616)]) #@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\203\306\n H\312 \211 %:\2030 \306\314\315\316%!\"!\210\202\276%& & '&'H\206\244 &'\211\317W\203V \320&\313\"@A\206\243 \203k \321' \211\322H)\"\203k \206\243 \3232\237 \320&\313\"\312 %\211 (\205\235 (@%\321'%@\"\203\223 \324\323%A\"\210(A\211(\204} \312*0\206\243 \325I+\326 !\204$\327\211%& & '&'H\206\"&'\211\317W\203\324 \320&\313\"@A\206! \203\351 \321' \211\322H)\"\203\351 \206!\3232 \320&\313\"\312 %\211 (\205(@%\321'%@\"\203\324\323%A\"\210(A\211(\204\373 \312*0\206!\325I+ \211\211\330H) )\331% \" * \211\311H) +\332+\313U\203I\322\202M\311)\\\313\" ,+\313U\203b,\313*I\210\202\223,\313-I\210,\322+I\210)\322U\203\201,\311*I\210\202\223,\311*\317\245I\210,\333*\317\246I\210\306\307!\210\334,!\210\306 \211\333H)\335=\203\266\314\336 \211\313H)%#\202\267\337!\210\306\340!\210,* T\211\202 ,\306\341\3338\203\323\342\202\324\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 throw 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 --dolist-tail-- bytes code font-id str ps-mule-esc-char] 7 (#$ . 18824)]) #@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\262`\310\n \311\312$\211 \203# \313\314\f8\315H!\204# \f@\202$ \316 \315 \311 HH \311 \nb\210\204$` Y\203\253 U\203V \211\202@ \n W\203i \317\320\n` #!\210\321\322!\210\323\f8_ ! \\W\203\202 \211\202@ \324\f \"\210 \\\fA@\211b\210\310` \311\312$\211\203\246 \f@\202\247 \202> \325!\203\366 \315\225 ^`Z \"\"_ ! \\W\203\347 \326!Z\"\"\"_\\`\"\\\202\362 \\\"u\210)\202> ` W\203> \204> \327g! ! \\W\203`\202\366 \\\330u\210\202\366 \nW\2039\317\320\n #!\210\321\322!\210 b\210. B\207" [average-width point from to composition stop 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 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 (#$ . 20363)]) (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" (#$ . 21745)) (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 #[(x) "AA\301\240\207" [x nil] 2]] 4 (#$ . 29946)]) #@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*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] ps-mule-encode-region "/h0" 4 "/h1" 5 "/L0" 6 0] 7 (#$ . 30273)]) #@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\267\2022 \2024 1\2024 2\2024 34\3154\236\204C \3164B4\317\320\321\"\322\211\321 5 6 7 8\323\3249\325\"! :\315\326\315:\"B\211:\321 \211 ;\203\216 ;@\2114\236\211 <\203\204 <5B5);A\211;\204n *4\321 <\211 ;\203\267 ;@\211<@:>\204\256 <5B5;A\211;\204\232 *5\2375)5\321 <\211 ;\203\354;@<\317\320\321\"<@\321\211\211 = > ? @<A\321 A\211 ;\203j;@A\327A8?\320A8>?\204?\330!>\33176AA@\332A8?>\206%\333\321&=7T7\334=!\203a@A@\335=\203D\322\202]A@\336=\203P\333\202]A@\337=\203\\\332\202]\327=I\210;A\211;\204\356 *@\322H\203\342@\327H\204\220@\327@\333H\206\216@\332H\206\216@\322HI\210@\333H\204\240@\333@\322HI\210@\332H\204\260@\332@\333HI\210\320\322 B CBCW\203\3348B8BH@BHBC\244I\210BT\211B\202\270*6T6-;A\211;\204\311 *\317\320\321\"D\340\341\342\333#\210\320\322 B CBCW\203\312\343\341! EDBEI\210\344E\3228BH#\210\345\211 FG\322 B CBCW\203\300\346FBHE\321 = ! G!GH\206\256!G\211\347W\203\\\350!\322\"@A\206\255=\203u\351G=\211 =\333H)\"\203u=\206\255\3522\251\350!\322\"\321 H\211 ;\205\247;@H\351GH@\"\203\235\353\352HA\"\210;A\211;\204\207\321*0\206\255\354I+!\204\267\355\356!\210BT\211B\202+,BT\211B\202.\357 \210\306 \"\205\330\360 \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 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (non-latin-printer 36 bdf-font 40 bdf-font-except-latin 45)) 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 throw 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 elt] 10 (#$ . 30876)]) (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\345N\262\310 ,,\205\331\n\321\346\n\"0\333\344,@@\"$\210,A,\nT\202\371 *\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 ps-font-size-internal] 9 (#$ . 34319)]) (provide 'ps-mule)
Close
