Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
calc
[ DIR ]
drwxr-xr-x
calendar
[ 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
international
[ DIR ]
drwxr-xr-x
language
[ 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
COPYING
34.32
KB
-rw-r--r--
README
538
B
-rw-r--r--
abbrev.elc
29.69
KB
-rw-r--r--
abbrevlist.elc
1.12
KB
-rw-r--r--
add-log.elc
35.21
KB
-rw-r--r--
align.elc
38.38
KB
-rw-r--r--
allout.elc
208.3
KB
-rw-r--r--
ansi-color.elc
16.3
KB
-rw-r--r--
apropos.elc
31.93
KB
-rw-r--r--
arc-mode.elc
54.72
KB
-rw-r--r--
array.elc
25.83
KB
-rw-r--r--
autoarg.elc
5.98
KB
-rw-r--r--
autoinsert.elc
12.01
KB
-rw-r--r--
autorevert.elc
18.25
KB
-rw-r--r--
avoid.elc
10.17
KB
-rw-r--r--
battery.elc
17.98
KB
-rw-r--r--
bindings.elc
39.04
KB
-rw-r--r--
bookmark.elc
55.9
KB
-rw-r--r--
bs.elc
48.34
KB
-rw-r--r--
buff-menu.elc
28
KB
-rw-r--r--
button.elc
13.92
KB
-rw-r--r--
calculator.elc
49.18
KB
-rw-r--r--
case-table.elc
4.42
KB
-rw-r--r--
cdl.elc
1.26
KB
-rw-r--r--
chistory.elc
5.75
KB
-rw-r--r--
cmuscheme.elc
17.43
KB
-rw-r--r--
comint.elc
100.97
KB
-rw-r--r--
compare-w.elc
10.98
KB
-rw-r--r--
complete.elc
23.62
KB
-rw-r--r--
completion.elc
45.06
KB
-rw-r--r--
composite.elc
29.39
KB
-rw-r--r--
cus-dep.elc
5.04
KB
-rw-r--r--
cus-edit.elc
129.67
KB
-rw-r--r--
cus-face.elc
10.46
KB
-rw-r--r--
cus-load.el
63.45
KB
-rw-r--r--
cus-start.elc
10.67
KB
-rw-r--r--
cus-theme.elc
13.7
KB
-rw-r--r--
custom.elc
36.46
KB
-rw-r--r--
cvs-status.elc
23
KB
-rw-r--r--
dabbrev.elc
23.08
KB
-rw-r--r--
delim-col.elc
8.41
KB
-rw-r--r--
delsel.elc
5.24
KB
-rw-r--r--
descr-text.elc
20.69
KB
-rw-r--r--
desktop.elc
34.52
KB
-rw-r--r--
dframe.elc
22.51
KB
-rw-r--r--
diff-mode.elc
55.58
KB
-rw-r--r--
diff.elc
5.51
KB
-rw-r--r--
dired-aux.elc
67.5
KB
-rw-r--r--
dired-x.elc
44.96
KB
-rw-r--r--
dired.elc
96.48
KB
-rw-r--r--
dirtrack.elc
7.39
KB
-rw-r--r--
disp-table.elc
8.33
KB
-rw-r--r--
dnd.elc
7.04
KB
-rw-r--r--
doc-view.elc
36.01
KB
-rw-r--r--
dos-fns.elc
5.53
KB
-rw-r--r--
dos-vars.elc
1.24
KB
-rw-r--r--
dos-w32.elc
11.12
KB
-rw-r--r--
double.elc
4.13
KB
-rw-r--r--
ebuff-menu.elc
9.11
KB
-rw-r--r--
echistory.elc
4.93
KB
-rw-r--r--
ediff-diff.elc
35.54
KB
-rw-r--r--
ediff-help.elc
11.47
KB
-rw-r--r--
ediff-hook.elc
5.89
KB
-rw-r--r--
ediff-init.elc
60.88
KB
-rw-r--r--
ediff-merg.elc
10.04
KB
-rw-r--r--
ediff-mult.elc
58.31
KB
-rw-r--r--
ediff-ptch.elc
18.63
KB
-rw-r--r--
ediff-util.elc
118.44
KB
-rw-r--r--
ediff-vers.elc
4.74
KB
-rw-r--r--
ediff-wind.elc
30.56
KB
-rw-r--r--
ediff.elc
36.28
KB
-rw-r--r--
edmacro.elc
21.45
KB
-rw-r--r--
ehelp.elc
11.03
KB
-rw-r--r--
electric.elc
2.81
KB
-rw-r--r--
elide-head.elc
2.8
KB
-rw-r--r--
emacs-lock.elc
2.77
KB
-rw-r--r--
emerge.elc
80.16
KB
-rw-r--r--
env.elc
5.69
KB
-rw-r--r--
epa-dired.elc
1.87
KB
-rw-r--r--
epa-file.elc
6.77
KB
-rw-r--r--
epa-hook.elc
4.28
KB
-rw-r--r--
epa-mail.elc
7.04
KB
-rw-r--r--
epa.elc
34.03
KB
-rw-r--r--
epg-config.elc
4.01
KB
-rw-r--r--
epg.elc
85.05
KB
-rw-r--r--
expand.elc
9.42
KB
-rw-r--r--
ezimage.elc
9.2
KB
-rw-r--r--
face-remap.elc
13.15
KB
-rw-r--r--
facemenu.elc
23.61
KB
-rw-r--r--
faces.elc
81.51
KB
-rw-r--r--
ffap.elc
46.14
KB
-rw-r--r--
filecache.elc
16.1
KB
-rw-r--r--
files.elc
175.25
KB
-rw-r--r--
filesets.elc
73.03
KB
-rw-r--r--
find-cmd.elc
4.94
KB
-rw-r--r--
find-dired.elc
7.4
KB
-rw-r--r--
find-file.elc
18.68
KB
-rw-r--r--
find-lisp.elc
7.42
KB
-rw-r--r--
finder-inf.el
93.47
KB
-rw-r--r--
finder.elc
12.11
KB
-rw-r--r--
flow-ctrl.elc
2.44
KB
-rw-r--r--
foldout.elc
7.6
KB
-rw-r--r--
follow.elc
37.11
KB
-rw-r--r--
font-core.elc
12.92
KB
-rw-r--r--
font-lock.elc
61.1
KB
-rw-r--r--
format-spec.elc
1.98
KB
-rw-r--r--
format.elc
27.73
KB
-rw-r--r--
forms-d2.el
3.13
KB
-rw-r--r--
forms-pass.el
742
B
-rw-r--r--
forms.elc
35.13
KB
-rw-r--r--
frame.elc
48.66
KB
-rw-r--r--
fringe.elc
8.01
KB
-rw-r--r--
generic-x.elc
44.25
KB
-rw-r--r--
gs.elc
3.93
KB
-rw-r--r--
help-at-pt.elc
11.27
KB
-rw-r--r--
help-fns.elc
21.77
KB
-rw-r--r--
help-macro.elc
4.37
KB
-rw-r--r--
help-mode.elc
19.38
KB
-rw-r--r--
help.elc
40.91
KB
-rw-r--r--
hex-util.elc
1.48
KB
-rw-r--r--
hexl.elc
32.06
KB
-rw-r--r--
hi-lock.elc
23.27
KB
-rw-r--r--
hilit-chg.elc
28.02
KB
-rw-r--r--
hippie-exp.elc
23.39
KB
-rw-r--r--
hl-line.elc
7.71
KB
-rw-r--r--
ibuf-ext.elc
54.62
KB
-rw-r--r--
ibuf-macs.elc
11.65
KB
-rw-r--r--
ibuffer.elc
91.96
KB
-rw-r--r--
icomplete.elc
10.36
KB
-rw-r--r--
ido.elc
110.93
KB
-rw-r--r--
ielm.elc
17.67
KB
-rw-r--r--
iimage.elc
4.06
KB
-rw-r--r--
image-dired.elc
82.24
KB
-rw-r--r--
image-file.elc
6.11
KB
-rw-r--r--
image-mode.elc
14.54
KB
-rw-r--r--
image.elc
17.09
KB
-rw-r--r--
imenu.elc
24.8
KB
-rw-r--r--
indent.elc
17
KB
-rw-r--r--
info-look.elc
26.13
KB
-rw-r--r--
info-xref.elc
7.04
KB
-rw-r--r--
info.elc
119.11
KB
-rw-r--r--
informat.elc
9.69
KB
-rw-r--r--
isearch.elc
76.23
KB
-rw-r--r--
isearchb.elc
4.92
KB
-rw-r--r--
iswitchb.elc
32.11
KB
-rw-r--r--
jit-lock.elc
17.93
KB
-rw-r--r--
jka-cmpr-hook.elc
11.67
KB
-rw-r--r--
jka-compr.elc
12.64
KB
-rw-r--r--
json.elc
13.04
KB
-rw-r--r--
kermit.elc
2.96
KB
-rw-r--r--
kmacro.elc
31.07
KB
-rw-r--r--
ldefs-boot.el
1.17
MB
-rw-r--r--
ledit.elc
4.74
KB
-rw-r--r--
linum.elc
9.56
KB
-rw-r--r--
loaddefs.el
1.17
MB
-rw-r--r--
loadhist.elc
8.65
KB
-rw-r--r--
loadup.el
12.67
KB
-rw-r--r--
locate.elc
17.81
KB
-rw-r--r--
log-edit.elc
24.93
KB
-rw-r--r--
log-view.elc
14.06
KB
-rw-r--r--
longlines.elc
14.94
KB
-rw-r--r--
lpr.elc
8.61
KB
-rw-r--r--
ls-lisp.elc
17.35
KB
-rw-r--r--
macros.elc
6.99
KB
-rw-r--r--
makesum.elc
2.16
KB
-rw-r--r--
man.elc
40.03
KB
-rw-r--r--
master.elc
4.52
KB
-rw-r--r--
mb-depth.elc
3.12
KB
-rw-r--r--
md4.elc
8.14
KB
-rw-r--r--
menu-bar.elc
67.01
KB
-rw-r--r--
midnight.elc
8.92
KB
-rw-r--r--
minibuf-eldef.elc
5.15
KB
-rw-r--r--
minibuffer.elc
42.75
KB
-rw-r--r--
misc.elc
3.67
KB
-rw-r--r--
misearch.elc
8.96
KB
-rw-r--r--
mouse-copy.elc
4.07
KB
-rw-r--r--
mouse-drag.elc
7.33
KB
-rw-r--r--
mouse-sel.elc
20.93
KB
-rw-r--r--
mouse.elc
60.03
KB
-rw-r--r--
msb.elc
27.27
KB
-rw-r--r--
mwheel.elc
9.41
KB
-rw-r--r--
newcomment.elc
32.76
KB
-rw-r--r--
novice.elc
4.75
KB
-rw-r--r--
outline.elc
34.54
KB
-rw-r--r--
paren.elc
6.43
KB
-rw-r--r--
password-cache.elc
3.58
KB
-rw-r--r--
patcomp.el
775
B
-rw-r--r--
paths.el
7.28
KB
-rw-r--r--
pcmpl-cvs.elc
6
KB
-rw-r--r--
pcmpl-gnu.elc
8.21
KB
-rw-r--r--
pcmpl-linux.elc
3.17
KB
-rw-r--r--
pcmpl-rpm.elc
7.5
KB
-rw-r--r--
pcmpl-unix.elc
5.44
KB
-rw-r--r--
pcomplete.elc
34.1
KB
-rw-r--r--
pcvs-defs.elc
16.27
KB
-rw-r--r--
pcvs-info.elc
25.83
KB
-rw-r--r--
pcvs-parse.elc
15.34
KB
-rw-r--r--
pcvs-util.elc
26.8
KB
-rw-r--r--
pcvs.elc
85.52
KB
-rw-r--r--
pgg-def.elc
2.78
KB
-rw-r--r--
pgg-gpg.elc
13.09
KB
-rw-r--r--
pgg-parse.elc
13.45
KB
-rw-r--r--
pgg-pgp.elc
7.64
KB
-rw-r--r--
pgg-pgp5.elc
7.68
KB
-rw-r--r--
pgg.elc
18.01
KB
-rw-r--r--
printing.elc
157.56
KB
-rw-r--r--
proced.elc
57.95
KB
-rw-r--r--
ps-bdf.elc
13.34
KB
-rw-r--r--
ps-def.elc
3.09
KB
-rw-r--r--
ps-mule.elc
36.17
KB
-rw-r--r--
ps-print.elc
145.59
KB
-rw-r--r--
ps-samp.elc
5.5
KB
-rw-r--r--
recentf.elc
49.04
KB
-rw-r--r--
rect.elc
10.79
KB
-rw-r--r--
register.elc
10.69
KB
-rw-r--r--
repeat.elc
6.05
KB
-rw-r--r--
replace.elc
55.02
KB
-rw-r--r--
reposition.elc
2.88
KB
-rw-r--r--
reveal.elc
6.61
KB
-rw-r--r--
rfn-eshadow.elc
7.12
KB
-rw-r--r--
rot13.elc
2.6
KB
-rw-r--r--
ruler-mode.elc
22.48
KB
-rw-r--r--
s-region.elc
3.3
KB
-rw-r--r--
savehist.elc
10.57
KB
-rw-r--r--
saveplace.elc
7.51
KB
-rw-r--r--
sb-image.elc
2.51
KB
-rw-r--r--
scroll-all.elc
4.05
KB
-rw-r--r--
scroll-bar.elc
11.47
KB
-rw-r--r--
scroll-lock.elc
4.64
KB
-rw-r--r--
select.elc
11.8
KB
-rw-r--r--
server.elc
39.79
KB
-rw-r--r--
ses.elc
87.39
KB
-rw-r--r--
sha1.elc
8
KB
-rw-r--r--
shadowfile.elc
22.61
KB
-rw-r--r--
shell.elc
34.08
KB
-rw-r--r--
simple.elc
196.35
KB
-rw-r--r--
skeleton.elc
15.78
KB
-rw-r--r--
smerge-mode.elc
33.61
KB
-rw-r--r--
sort.elc
12.94
KB
-rw-r--r--
soundex.elc
1.34
KB
-rw-r--r--
speedbar.elc
115.06
KB
-rw-r--r--
startup.elc
60.78
KB
-rw-r--r--
strokes.elc
44.11
KB
-rw-r--r--
subdirs.el
426
B
-rw-r--r--
subr.elc
113.48
KB
-rw-r--r--
t-mouse.elc
3.38
KB
-rw-r--r--
tabify.elc
2
KB
-rw-r--r--
talk.elc
3.19
KB
-rw-r--r--
tar-mode.elc
52.24
KB
-rw-r--r--
tempo.elc
18.63
KB
-rw-r--r--
term.elc
99.67
KB
-rw-r--r--
terminal.elc
31.36
KB
-rw-r--r--
thingatpt.elc
10.84
KB
-rw-r--r--
thumbs.elc
26.23
KB
-rw-r--r--
time-stamp.elc
21.03
KB
-rw-r--r--
time.elc
18.2
KB
-rw-r--r--
timezone.elc
10.99
KB
-rw-r--r--
tmm.elc
13.9
KB
-rw-r--r--
tool-bar.elc
9.69
KB
-rw-r--r--
tooltip.elc
12.35
KB
-rw-r--r--
tree-widget.elc
20.87
KB
-rw-r--r--
tutorial.elc
21.41
KB
-rw-r--r--
type-break.elc
35.61
KB
-rw-r--r--
uniquify.elc
19.91
KB
-rw-r--r--
userlock.elc
4.69
KB
-rw-r--r--
vc-annotate.elc
22.68
KB
-rw-r--r--
vc-arch.elc
17.58
KB
-rw-r--r--
vc-bzr.elc
26.84
KB
-rw-r--r--
vc-cvs.elc
32.19
KB
-rw-r--r--
vc-dav.elc
5.3
KB
-rw-r--r--
vc-dir.elc
39.5
KB
-rw-r--r--
vc-dispatcher.elc
14.61
KB
-rw-r--r--
vc-git.elc
32.75
KB
-rw-r--r--
vc-hg.elc
25.95
KB
-rw-r--r--
vc-hooks.elc
32.75
KB
-rw-r--r--
vc-mtn.elc
10.95
KB
-rw-r--r--
vc-rcs.elc
34.99
KB
-rw-r--r--
vc-sccs.elc
13.24
KB
-rw-r--r--
vc-svn.elc
20.57
KB
-rw-r--r--
vc.elc
59.4
KB
-rw-r--r--
vcursor.elc
23.44
KB
-rw-r--r--
version.el
3.37
KB
-rw-r--r--
view.elc
35.96
KB
-rw-r--r--
vt-control.elc
2.06
KB
-rw-r--r--
vt100-led.elc
1.53
KB
-rw-r--r--
w32-fns.elc
15.82
KB
-rw-r--r--
w32-vars.elc
5.53
KB
-rw-r--r--
wdired.elc
21.69
KB
-rw-r--r--
whitespace.elc
59.83
KB
-rw-r--r--
wid-browse.elc
7.89
KB
-rw-r--r--
wid-edit.elc
104.76
KB
-rw-r--r--
widget.elc
1.37
KB
-rw-r--r--
windmove.elc
9.57
KB
-rw-r--r--
window.elc
57.4
KB
-rw-r--r--
winner.elc
11.61
KB
-rw-r--r--
woman.elc
107.73
KB
-rw-r--r--
x-dnd.elc
19.35
KB
-rw-r--r--
xml.elc
18.38
KB
-rw-r--r--
xt-mouse.elc
7.43
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : ps-mule.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:14 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/ps-mule.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`ps-mule.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'ps-print) #@1768 Specifies the multi-byte buffer handling. Valid values are: nil This is the value to use the default settings; by default, this only works to print buffers with only ASCII and Latin characters. But this default setting can be changed by setting the variable `ps-mule-font-info-database-default' differently. The initial value of this variable is `ps-mule-font-info-database-latin' (see documentation). `non-latin-printer' This is the value to use when you have a Japanese or Korean PostScript printer and want to print buffer with ASCII, Latin-1, Japanese (JISX0208 and JISX0201-Kana) and Korean characters. At present, it was not tested with the Korean characters printing. If you have a korean PostScript printer, please, test it. `bdf-font' This is the value to use when you want to print buffer with BDF fonts. BDF fonts include both latin and non-latin fonts. BDF (Bitmap Distribution Format) is a format used for distributing X's font source file. BDF fonts are included in `intlfonts-1.2' which is a collection of X11 fonts for all characters supported by Emacs. In order to use this value, be sure to have installed `intlfonts-1.2' and set the variable `bdf-directory-list' appropriately (see ps-bdf.el for documentation of this variable). `bdf-font-except-latin' This is like `bdf-font' except that it uses PostScript default fonts to print ASCII and Latin-1 characters. This is convenient when you want or need to use both latin and non-latin characters on the same buffer. See `ps-font-family', `ps-header-font-family' and `ps-font-info-database'. Any other value is treated as nil. (custom-declare-variable 'ps-multibyte-buffer 'nil '(#$ . 627) :type '(choice (const non-latin-printer) (const bdf-font) (const bdf-font-except-latin) (const :tag "nil" nil)) :group 'ps-print-font) #@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 (#$ . 2600)) #@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))) (#$ . 4193)) #@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 '(#$ . 4355) :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"))) (#$ . 4618)) #@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"))) (#$ . 5272)) #@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) (#$ . 8408)) #@628 Array of FONT-SPEC lists for each font type. Elements are for `normal' font, `bold' font, `italic' font, and `bold-italic' font in this order. Each element is a list of FONT-SPEC which has this form: (ID CHARSET (FONT-SRC FONT-NAME ENCODING) EXTRA-DATA) Where ID is a number for this FONT-SPEC and is unique in the list. CHARSET, FONT-SRC, FONT-NAME, ENCODING are the same as those in `ps-mule-font-info-database' (which see). EXTRA-DATA is a data attached by external libraries. Each list is ordered by the current charset priorities. This variable is setup by `ps-mule-begin-job' from `ps-mule-font-info-database'. (defvar ps-mule-font-spec-list nil (#$ . 9092)) (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]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\306\307!\207" [current-load-list ps-mule-font-spec-tables default-boundp set-default nil ps-mule-font-number-to-type (lambda (#1=#:defconst-tmp-var) (defconst ps-mule-font-number-to-type #1#)) [0 1 2 3 1 0 0]] 3) #@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 (#$ . 11888)]) (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)) (#$ . 12644)) (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 (#$ . 15316)]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list ps-mule-output-list default-boundp set-default nil] 3) #@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 (#$ . 15844)]) #@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 (#$ . 16137)]) #@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 (#$ . 16626)]) #@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" (#$ . 17241)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\306\307!\207" [current-load-list ps-mule-prologue-generated default-boundp set-default nil ps-mule-esc-char (lambda (#1=#:defconst-tmp-var) (defconst ps-mule-esc-char #1#)) 0] 3) (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] 8 (#$ . 18584)]) #@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] 8 (#$ . 19814)]) #@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-`U\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 (#$ . 21326)]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list ps-mule-composition-prologue-generated default-boundp set-default nil] 3) #@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" (#$ . 22817)) (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]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\306\307!\210\310B\302\310!\204& \303\310\304\"\210\311B\302\311!\2045 \303\311\304\"\210\304\207" [current-load-list ps-mule-bitmap-prologue-generated default-boundp set-default nil ps-mule-bitmap-prologue (lambda (#1=#:defconst-tmp-var) (defconst ps-mule-bitmap-prologue #1#)) "%%%% 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" ps-mule-bitmap-dict-list ps-mule-bitmap-font-record] 3) (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 baselie-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" baselie-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 (#$ . 31254)]) #@157 Generate PostScript code for ploting 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 (#$ . 31581)]) #@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\352=@>\321\322\323\">@\323\211 ? @ A>A\323 B\211 =\203h=@B\331B8\206@\33298BA@\333B8@\322B8\206#\334@!\323&?9T9\335?!\203_AB@\336=\203B\324\202[B@\337=\203N\340\202[B@\341=\203Z\333\202[\331?I\210=A\211=\204\367 *A\324H\203\340A\331H\204\216A\331A\340H\206\214A\333H\206\214A\324HI\210A\340H\204\236A\340A\324HI\210A\333H\204\256A\333A\340HI\210\322\324 C DCDW\203\332:C:CHACHBC\244I\210CT\211C\202\266*8T8,=A\211=\204\325 *\321\322\323\"E\342\343\344\340#\210\322\324 C DCDW\203\227\345\343! FECFI\210\346F\324:CH#\210\347\211 GG\324 C DCDW\203\215\350GCHF\323 ? # H#HH\206{#H\211\351W\203Z\352#\324\"@A\206z?\203s\353H?\211 ?\340H)\"\203s?\206z\354\355\215\206z\356I+!\204\204\357\360!\210CT\211C\202),CT\211C\202\377.\361 \210\306 \"\205\245\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 " -\377" 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 vector 2 charset-dimension ps-mule-check-font normal bold 1 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 encoding font-spec-vec e i --dotimes-limit-- ps-mule-font-spec-tables table str char] 10 (#$ . 32199)]) (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 (#$ . 35622)]) (provide 'ps-mule)
Close
