🚀 go-pugleaf

$@Iw4V!w#N#T#T%=%U%H8&$G$9!#(J

In article <mugitani.709184591@bobcat.islix.sharp.co.jp> mugitani@bobcat.islix.sharp.co.jp (Kouhei Mugitani) writes:
 > RFC$@$b!":G6a(JPS$@HG$,B?$$$N$O4n$P$7$$$3$H$G$9$,(J...... dvi2ps$@$N%P%0$J$i(Ja
 > $@7k9=!"MQ?4$7$J$1$l$P$J$i$J$$6ILL$OB?$=$&$G$9$M!#(J

$@!!$3$NB>$K!V=PNO$G$-$J$$!W860x$N0l(J$@$D$H$7$F!"(JFrameMaker$@$J$I$G:n@.$7$?%l(J
$@%?!<%H%l!<A*BrL?Na$r4^$s$@%U%!%$%k$,$"$j$^$9!#%H%l!<A*BrL?Na$O!"(J$@%H%l!<(J
$@$,B8:_$7$J$$>l9g$K$O%(%i!<$K$J$C$F$7$^$&$N$G$9!#Nc$($P!"(JLaserWriter
NTX-J$@$H$+(JQMS PS-2000$@$J$I7k(J$@9=B?$/$N%W%j%s%?$G$3$N8=>]$,=P$^$9!#(J

$@!!$3$N$h$&$J>l9g$K;HMQ$9$k$HJXMx$J(J"dummyletter.ps"$@$r$D$$$G$KEj9F(J$@$7$^$9!#(J
$@%U%!%$%k$N@hF,$K$D$1$F!"(J

	cat dummyletter.ps foo.ps | lpr

$@$H$9$k$H%l%?!<$N$+$o$j$K#A#4$r;H(J$@$$$^$9!#$?$@$7%l%?!<$N2#I}$r#A#4$N2#I}(J
$@$K9g$o$;$k$?$a$N=L>.$O$7$^$;$s!#C;$$$7$?$$$7$?$b$s$G$O$J$$$N$G(J$@Ej9F$9$k(J
$@$N$,CQ$:$+$7$$$G$9$,!"D>@\=q$-49$($k$h$j$O3Z$@$H;W$&$N$G:$$C$?;~$K$*;H(J
$@$$$/$@$5$$!#(J

--- $@$3$3(J$@$+$i(J --- $@$3$3$+$i(J --- $@$3$3$+$i(J --- $@$3$3$+$i(J ---
%!
%%Title: dummyletter.ps -- emulate some operators in relation to letter paper.
% This file emulate some operators in relation to letter paper --
% "letter", "lettersmall", "lettertray".
% usage:
% lpr dummyletter.ps foo.ps
%%BeginProcSet: dummyletter 1 0
% version 1.0 18/11/1991
% Copyright (C) 1991
% Kazuhiro Kazama (kazama@square.ntt.jp)
% NTT Software Laboratories
% All rights reserved.
% If "letter" is defined, it is substituted by "a4".
/letter where {
    pop
    /letter /a4 load def
} if

% If "lettersmall" is defined, it is substituted by "a4small".
/lettersmall where {
    pop
    /a4small where {
	pop /lettersmall /a4small load def
    }{
	/lettersmall /a4 load def
    } ifelse
} if

% If "lettertray" is defined, it is substituted by "a4tray".
/lettertray where {
    pop
    /lettertray /a4tray load def
} if

% If "lettertray" is defined in the "statusdict",
%  it is substituted by "a4tray".
/statusdict where {
    pop
    statusdict /lettertray known {
	statusdict dup begin
	    dup maxlength dict begin
		{
		    1 index /lettertray eq {
			pop /a4tray load def
		    }{
			1 index /letter eq {
			    pop /a4 load def
			}{
			    1 index /lettersmall eq {
				pop
				/a4small where {
				    pop /a4small load def
				}{
				    /a4 load def
				} ifelse
			    }{
				def
			    } ifelse
			} ifelse
		    } ifelse
		} forall
		currentdict
	    end
	end
	/statusdict exch def
    } if
} if
%%EndProcSet
-- $@$3$3$^$G(J -- $@$3$3$^$G(J -- $@$3$3(J$@$^$G(J -- $@$3$3$^$G(J -- $@$3$3$^$G(J ---
--
	$@Iw4V0lMN(J (kazama@square.ntt.jp)
	NTT$@%=%U%H%&%'%"8&5f=j(J $@%=%U%H%&%'(J$@%"4pAC5;=Q8&5fIt(J
	$@J,;67?%=%U%H%&%'%"8&5f%0%k!<%W(J