annotate etc/ps-prin0.ps @ 107777:13c077500eb3

2010-04-04 John Wiegley <jwiegley@gmail.com> * ido.el (ido-use-virtual-buffers): New variable to indicate whether "virtual buffer" support is enabled for IDO. Essentially it works as follows: Say you are visiting a file and the buffer gets cleaned up by mignight.el. Later, you want to switch to that buffer, but find it's no longer open. With virtual buffers enabled, the buffer name stays in the buffer list (using the ido-virtual face, and always at the end), and if you select it, it opens the file back up again. This allows you to think less about whether recently opened files are still open or not. Most of the time you can quit Emacs, restart, and then switch to a file buffer that was previously open as if it still were. NOTE: This feature has been present in iswitchb for several years now, and I'm porting the same logic to IDO. (ido-virtual): Face used to indicate virtual buffers in the list. (ido-buffer-internal): If a buffer is chosen, and no such buffer exists, but a virtual buffer of that name does (which would be why it was in the list), recreate the buffer by reopening the file. (ido-make-buffer-list): If virtual buffers are being used, call `ido-add-virtual-buffers-to-list' before the make list hook. (ido-virtual-buffers): New variable which contains a copy of the current contents of the `recentf-list', albeit pared down for the sake of speed, and with proper faces applied. (ido-add-virtual-buffers-to-list): Using the `recentf-list', create a list of "virtual buffers" to present to the user in addition to the currently open set. Note that this logic could get rather slow if that list is too large. With the default `recentf-max-saved-items' of 200, there is little speed penalty.
author jwiegley@gmail.com
date Sun, 04 Apr 2010 02:55:19 -0400
parents 1d1d5d9bd884
children 376148b31b5e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1 % === BEGIN ps-print prologue 0
31252
cdd489417ae4 Changed comment version (6.0).
Gerd Moellmann <gerd@gnu.org>
parents: 29497
diff changeset
2 % version: 6.0
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100972
diff changeset
4 % Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
75449
2c5d29f90b94 Update copyright with years from Emacs-21 to present.
Glenn Morris <rgm@gnu.org>
parents: 64083
diff changeset
5 % Free Software Foundation, Inc.
95004
cbf5528cf447 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79770
diff changeset
6
36223
b5a4db21c424 Add copyright notice.
Gerd Moellmann <gerd@gnu.org>
parents: 31252
diff changeset
7 % This file is part of GNU Emacs.
95004
cbf5528cf447 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79770
diff changeset
8
cbf5528cf447 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79770
diff changeset
9 % GNU Emacs is free software: you can redistribute it and/or modify
36223
b5a4db21c424 Add copyright notice.
Gerd Moellmann <gerd@gnu.org>
parents: 31252
diff changeset
10 % it under the terms of the GNU General Public License as published by
95004
cbf5528cf447 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79770
diff changeset
11 % the Free Software Foundation, either version 3 of the License, or
cbf5528cf447 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79770
diff changeset
12 % (at your option) any later version.
cbf5528cf447 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79770
diff changeset
13
36223
b5a4db21c424 Add copyright notice.
Gerd Moellmann <gerd@gnu.org>
parents: 31252
diff changeset
14 % GNU Emacs is distributed in the hope that it will be useful,
b5a4db21c424 Add copyright notice.
Gerd Moellmann <gerd@gnu.org>
parents: 31252
diff changeset
15 % but WITHOUT ANY WARRANTY; without even the implied warranty of
b5a4db21c424 Add copyright notice.
Gerd Moellmann <gerd@gnu.org>
parents: 31252
diff changeset
16 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
b5a4db21c424 Add copyright notice.
Gerd Moellmann <gerd@gnu.org>
parents: 31252
diff changeset
17 % GNU General Public License for more details.
95004
cbf5528cf447 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79770
diff changeset
18
36223
b5a4db21c424 Add copyright notice.
Gerd Moellmann <gerd@gnu.org>
parents: 31252
diff changeset
19 % You should have received a copy of the GNU General Public License
95004
cbf5528cf447 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79770
diff changeset
20 % along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
36223
b5a4db21c424 Add copyright notice.
Gerd Moellmann <gerd@gnu.org>
parents: 31252
diff changeset
21
46014
e5675426ff4c Add license exception.
Richard M. Stallman <rms@gnu.org>
parents: 36223
diff changeset
22 % As a special exception, the copyright holders of this module give
e5675426ff4c Add license exception.
Richard M. Stallman <rms@gnu.org>
parents: 36223
diff changeset
23 % you permission to include the module in a Postscript file generated
e5675426ff4c Add license exception.
Richard M. Stallman <rms@gnu.org>
parents: 36223
diff changeset
24 % by Emacs or other free software together with the result of
e5675426ff4c Add license exception.
Richard M. Stallman <rms@gnu.org>
parents: 36223
diff changeset
25 % converting text to be printed, regardless of the license terms of
e5675426ff4c Add license exception.
Richard M. Stallman <rms@gnu.org>
parents: 36223
diff changeset
26 % that text, and to use under terms of your choice the page images
e5675426ff4c Add license exception.
Richard M. Stallman <rms@gnu.org>
parents: 36223
diff changeset
27 % resulting from formatting said combination. If you modify this
e5675426ff4c Add license exception.
Richard M. Stallman <rms@gnu.org>
parents: 36223
diff changeset
28 % module, you may extend this exception to your version of the module
e5675426ff4c Add license exception.
Richard M. Stallman <rms@gnu.org>
parents: 36223
diff changeset
29 % but you are not obligated to do so. If you do not wish to do so,
e5675426ff4c Add license exception.
Richard M. Stallman <rms@gnu.org>
parents: 36223
diff changeset
30 % delete this exception statement from your version.
e5675426ff4c Add license exception.
Richard M. Stallman <rms@gnu.org>
parents: 36223
diff changeset
31
e5675426ff4c Add license exception.
Richard M. Stallman <rms@gnu.org>
parents: 36223
diff changeset
32
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
33 %%BeginProcSet: ErrorHandler
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
34 % Downloaded Error Break-page handler
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
35 % Adapted from:
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
36 % PostScript Language Program Design,
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
37 % Adobe Systems Incorporated.
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
38 % Appendix A, pages 217-219
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
39
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
40 /ps$brkpage where{pop}
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
41 {
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
42 /ps$brkpage 64 dict def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
43 ps$brkpage begin
29497
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
44 /tx 0 def/ty 0 def/toy 0 def/tox 0 def
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
45 /prnt{
29497
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
46 dup type/stringtype ne{=string cvs}if
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
47 dup length 6 mul
29497
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
48 /tx exch def/ty 10 def
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
49 currentpoint/toy exch def/tox exch def
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
50 1 setgray newpath
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
51 tox toy 2 sub moveto
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
52 0 ty rlineto tx 0 rlineto
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
53 0 ty neg rlineto
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
54 closepath fill
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
55 tox toy moveto 0 setgray show
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
56 }bind def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
57 /nl{currentpoint exch pop lmargin exch moveto 0 -10 rmoveto}def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
58 /=={/cp 0 def typeprint nl}def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
59 /typeprint{dup type dup currentdict exch known{exec}{unknowntype}ifelse}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
60 /lmargin 72 def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
61 /rmargin 72 def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
62 /tprint{
29497
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
63 dup length cp add rmargin gt{nl/cp 0 def}if
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
64 dup length cp add/cp exch def
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
65 prnt
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
66 }readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
67 /cvsprint{=string cvs tprint( )tprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
68 /unknowntype{exch pop cvlit(??)tprint cvsprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
69 /integertype{cvsprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
70 /realtype{cvsprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
71 /booleantype{cvsprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
72 /operatortype{(//)tprint cvsprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
73 /marktype{pop(-mark-)tprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
74 /dicttype{pop(-dictionary-)tprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
75 /nulltype{pop(-null-)tprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
76 /filetype{pop(-filestream-)tprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
77 /savetype{pop(-savelevel-)tprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
78 /fonttype{pop(-fontid-)tprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
79 /nametype{dup xcheck not{(/)tprint}if cvsprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
80 /stringtype{
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
81 dup rcheck
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
82 {(\()tprint tprint(\))tprint}
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
83 {pop(-string-)tprint}ifelse}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
84 /arraytype{
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
85 dup rcheck
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
86 {dup xcheck
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
87 {({)tprint{typeprint}forall(})tprint}
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
88 {([)tprint{typeprint}forall(])tprint}ifelse}
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
89 {pop(-array-)tprint}ifelse}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
90 /packedarraytype{
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
91 dup rcheck
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
92 {dup xcheck
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
93 {({)tprint{typeprint}forall(})tprint}
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
94 {([)tprint{typeprint}forall(])tprint}ifelse}
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
95 {pop(-packedarray-)tprint}ifelse}readonly def
29497
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
96 /courier/Courier findfont 10 scalefont def
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
97 /OLDhandleerror errordict/handleerror get def
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
98 end %ps$brkpage
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
99
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
100 /handleerror{
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
101 systemdict begin $error begin ps$brkpage begin
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
102 newerror
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
103 {/newerror false store vmstatus pop pop 0 ne{grestoreall}if
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
104 initgraphics
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
105 ErrorMessage 1 and 0 ne{ % print on paper
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
106 courier setfont lmargin 720 moveto
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
107 (# ERROR: )prnt errorname prnt nl
29497
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
108 (# OFFENDING COMMAND: )prnt/command load prnt
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
109 $error/ostack known
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
110 {nl nl(# STACK:)prnt nl nl $error/ostack get aload length{==}repeat}if
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
111 $error/errorinfo known
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
112 {nl nl(# ERRORINFO:)prnt nl nl $error/errorinfo get aload length{==}repeat}if
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
113 systemdict/showpage get exec}if
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
114 ErrorMessage 2 and 0 ne{ % send back to printing system
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
115 (\%\%[ Error: )print errorname =print
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
116 (; OffendingCommand: )print/command load =print
29497
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
117 $error/errorinfo known
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
118 {(; ErrorInfo:)print $error/errorinfo get aload length{( )=print =print}repeat}if
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
119 ( ]\%\%)= flush
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
120 (\%\%[ Rest of job is ignored ]\%\%)= flush}if
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
121 /newerror true store}if
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
122 end end end
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
123 stop
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
124 } % handleerror
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
125 dup 0 systemdict put % replace name by actual dict object
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
126 dup 4 ps$brkpage put % replace name by dict object
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
127 bind readonly
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
128
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
129 errordict 3 1 roll put % put proc in errordict as /handleerror
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
130 }ifelse
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
131 %%EndProcSet
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
132
28764
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
133
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
134 % operators for language level 2 only
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
135
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
136 (<<)cvn where % << operator
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
137 {pop/BMark(<<)cvn load def}
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
138 {/BMark{mark}bind def}ifelse
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
139 (>>)cvn where % >> operator
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
140 {pop/EMark(>>)cvn load def}
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
141 {/EMark{counttomark 2 idiv dup dict begin{def}repeat pop currentdict end}bind def}ifelse
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
142 /setpagedevice where % setpagedevice
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
143 {pop}
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
144 {/setpagedevice{pop}bind def}ifelse
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
145 /packedarray where % packedarray
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
146 {pop}
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
147 {/packedarray{array astore readonly}bind def}ifelse
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
148
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
149
28167
cb25a24ec3e1 Change /setduplexmode, /settumble, add /packedarray.
Gerd Moellmann <gerd@gnu.org>
parents: 28155
diff changeset
150 % device dependent operators
cb25a24ec3e1 Change /setduplexmode, /settumble, add /packedarray.
Gerd Moellmann <gerd@gnu.org>
parents: 28155
diff changeset
151
28427
15c0a66a4a8b Replace gs_languagelevel by languagelevel.
Gerd Moellmann <gerd@gnu.org>
parents: 28265
diff changeset
152 /DefOp{
15c0a66a4a8b Replace gs_languagelevel by languagelevel.
Gerd Moellmann <gerd@gnu.org>
parents: 28265
diff changeset
153 dup where{pop pop pop}
15c0a66a4a8b Replace gs_languagelevel by languagelevel.
Gerd Moellmann <gerd@gnu.org>
parents: 28265
diff changeset
154 {exch dup where{pop}{pop/pop}ifelse load def}ifelse}def
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
155
29497
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
156 /duplexmode/setduplexmode DefOp
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
157 /tumble/settumble DefOp
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
158
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
159 % === END ps-print prologue 0