rfc1521.ps

来自「RFC 的详细文档！」· PS 代码 · 共 3,832 行 · 第 1/5 页

%!PS-Adobe-1.0 
%%Creator: guppylake.bellcore.com:nsb (Nathaniel Borenstein) 
%%Title: stdin (ditroff) 
%%CreationDate: Tue Nov 30 07:43:41 1993 
%%EndComments 
% lib/psdit.pro -- prolog for psdit (ditroff) files 
% Copyright (c) 1984, 1985 Adobe Systems Incorporated. All Rights Reserved. 
% last edit: shore Sat Nov 23 20:28:03 1985 
% RCSID: %Header: psdit.pro,v 2.1 85/11/24 12:19:43 shore Rel % 
% Psfig RCSID $Header: psdit.pro,v 1.5 88/01/04 17:48:22 trevor Exp $ 

/$DITroff 180 dict def $DITroff begin 

/DocumentInitState [ matrix currentmatrix currentlinewidth currentlinecap 
currentlinejoin currentdash currentgray currentmiterlimit ] cvx def 

%% Psfig additions 
/startFig { 
	/SavedState save def 
	userdict maxlength dict begin 
	currentpoint transform 

	DocumentInitState setmiterlimit setgray setdash setlinejoin setlinecap 
		setlinewidth setmatrix 

	itransform moveto 

	/ury exch def 
	/urx exch def 
	/lly exch def 
	/llx exch def 
	/y exch 72 mul resolution div def 
	/x exch 72 mul resolution div def 
	 
	currentpoint /cy exch def /cx exch def 

	/sx x urx llx sub div def 	% scaling for x 
	/sy y ury lly sub div def	% scaling for y 

	sx sy scale			% scale by (sx,sy) 

	cx sx div llx sub 
	cy sy div ury sub translate 
	 
	/DefFigCTM matrix currentmatrix def 

	/initmatrix { 
		DefFigCTM setmatrix 
	} def 
	/defaultmatrix { 
		DefFigCTM exch copy 
	} def 

	/initgraphics { 
		DocumentInitState setmiterlimit setgray setdash 
			setlinejoin setlinecap setlinewidth setmatrix 
		DefFigCTM setmatrix 
	} def 

	/showpage { 
		initgraphics 
	} def 

} def 
% Args are llx lly urx ury (in figure coordinates) 
/clipFig { 
	currentpoint 6 2 roll 
	newpath 4 copy 
	4 2 roll moveto 
	6 -1 roll exch lineto 
	exch lineto 
	exch lineto 
	closepath clip 
	newpath 
	moveto 
} def 
% doclip, if called, will always be just after a `startfig' 
/doclip { llx lly urx ury clipFig } def 
/endFig { 
	end SavedState restore 
} def 
/globalstart { 
	% Push details about the enviornment on the stack. 
	fontnum fontsize fontslant fontheight 
	% firstpage 
	mh my resolution slotno currentpoint 
	pagesave restore gsave 
} def 
/globalend { 
	grestore moveto 
	/slotno exch def /resolution exch def /my exch def 
	/mh exch def 
	% /firstpage exch def 
	/fontheight exch def 
	/fontslant exch def /fontsize exch def /fontnum exch def 
	F 
	/pagesave save def 
} def 

%% end XMOD additions 

/fontnum 1 def /fontsize 10 def /fontheight 10 def /fontslant 0 def 
/xi {0 72 11 mul translate 72 resolution div dup neg scale 0 0 moveto 
  /fontnum 1 def /fontsize 10 def /fontheight 10 def /fontslant 0 def F 
  /pagesave save def}def 
/PB{save /psv exch def currentpoint translate 
  resolution 72 div dup neg scale 0 0 moveto}def 
/PE{psv restore}def 
/arctoobig 90 def /arctoosmall .05 def 
/m1 matrix def /m2 matrix def /m3 matrix def /oldmat matrix def 
/tan{dup sin exch cos div}def 
/point{resolution 72 div mul}def 
/dround	{transform round exch round exch itransform}def 
/xT{/devname exch def}def 
/xr{/mh exch def /my exch def /resolution exch def}def 
/xp{}def 
/xs{docsave restore end}def 
/xt{}def 
/xf{/fontname exch def /slotno exch def fontnames slotno get fontname eq not 
 {fonts slotno fontname findfont put fontnames slotno fontname put}if}def 
/xH{/fontheight exch def F}def 
/xS{/fontslant exch def F}def 
/s{/fontsize exch def /fontheight fontsize def F}def 
/f{/fontnum exch def F}def 
/F{fontheight 0 le {/fontheight fontsize def}if 
   fonts fontnum get fontsize point 0 0 fontheight point neg 0 0 m1 astore 
   fontslant 0 ne{1 0 fontslant tan 1 0 0 m2 astore m3 concatmatrix}if 
   makefont setfont .04 fontsize point mul 0 dround pop setlinewidth}def 
/X{exch currentpoint exch pop moveto show}def 
/N{3 1 roll moveto show}def 
/Y{exch currentpoint pop exch moveto show}def 
/S{show}def 
/ditpush{}def/ditpop{}def 
/AX{3 -1 roll currentpoint exch pop moveto 0 exch ashow}def 
/AN{4 2 roll moveto 0 exch ashow}def 
/AY{3 -1 roll currentpoint pop exch moveto 0 exch ashow}def 
/AS{0 exch ashow}def 
/MX{currentpoint exch pop moveto}def 
/MY{currentpoint pop exch moveto}def 
/MXY{moveto}def 
/cb{pop}def	% action on unknown char -- nothing for now 
/n{}def/w{}def 
/p{pop showpage pagesave restore /pagesave save def}def 
/abspoint{currentpoint exch pop add exch currentpoint pop add exch}def 
/distance{dup mul exch dup mul add sqrt}def 
/dstroke{currentpoint stroke moveto}def 
/Dl{2 copy gsave rlineto stroke grestore rmoveto}def 
/arcellipse{/diamv exch def /diamh exch def oldmat currentmatrix pop 
 currentpoint translate 1 diamv diamh div scale /rad diamh 2 div def 
 currentpoint exch rad add exch rad -180 180 arc oldmat setmatrix}def 
/Dc{dup arcellipse dstroke}def 
/De{arcellipse dstroke}def 
/Da{/endv exch def /endh exch def /centerv exch def /centerh exch def 
 /cradius centerv centerv mul centerh centerh mul add sqrt def 
 /eradius endv endv mul endh endh mul add sqrt def 
 /endang endv endh atan def 
 /startang centerv neg centerh neg atan def 
 /sweep startang endang sub dup 0 lt{360 add}if def 
 sweep arctoobig gt 
 {/midang startang sweep 2 div sub def /midrad cradius eradius add 2 div def 
  /midh midang cos midrad mul def /midv midang sin midrad mul def 
  midh neg midv neg endh endv centerh centerv midh midv Da 
  currentpoint moveto Da} 
 {sweep arctoosmall ge 
  {/controldelt 1 sweep 2 div cos sub 3 sweep 2 div sin mul div 4 mul def 
  centerv neg controldelt mul centerh controldelt mul 
  endv neg controldelt mul centerh add endh add 
  endh controldelt mul centerv add endv add 
  centerh endh add centerv endv add rcurveto dstroke} 
 {centerh endh add centerv endv add rlineto dstroke}ifelse}ifelse}def 

/Barray 200 array def % 200 values in a wiggle 
/D~{mark}def 
/D~~{counttomark Barray exch 0 exch getinterval astore /Bcontrol exch def pop 
 /Blen Bcontrol length def Blen 4 ge Blen 2 mod 0 eq and 
 {Bcontrol 0 get Bcontrol 1 get abspoint /Ycont exch def /Xcont exch def 
  Bcontrol 0 2 copy get 2 mul put Bcontrol 1 2 copy get 2 mul put 
  Bcontrol Blen 2 sub 2 copy get 2 mul put 
  Bcontrol Blen 1 sub 2 copy get 2 mul put 
  /Ybi /Xbi currentpoint 3 1 roll def def 0 2 Blen 4 sub 
  {/i exch def 
   Bcontrol i get 3 div Bcontrol i 1 add get 3 div 
   Bcontrol i get 3 mul Bcontrol i 2 add get add 6 div 
   Bcontrol i 1 add get 3 mul Bcontrol i 3 add get add 6 div 
   /Xbi Xcont Bcontrol i 2 add get 2 div add def 
   /Ybi Ycont Bcontrol i 3 add get 2 div add def 
   /Xcont Xcont Bcontrol i 2 add get add def 
   /Ycont Ycont Bcontrol i 3 add get add def 
   Xbi currentpoint pop sub Ybi currentpoint exch pop sub rcurveto 
  }for dstroke}if}def 
end 
/ditstart{$DITroff begin 
 /nfonts 60 def			% NFONTS makedev/ditroff dependent! 
 /fonts[nfonts{0}repeat]def 
 /fontnames[nfonts{()}repeat]def 
/docsave save def 
}def 

% character outcalls 
/oc {/pswid exch def /cc exch def /name exch def 
   /ditwid pswid fontsize mul resolution mul 72000 div def 
   /ditsiz fontsize resolution mul 72 div def 
   ocprocs name known{ocprocs name get exec}{name cb} 
   ifelse}def 
/fractm [.65 0 0 .6 0 0] def 
/fraction 
 {/fden exch def /fnum exch def gsave /cf currentfont def 
  cf fractm makefont setfont 0 .3 dm 2 copy neg rmoveto 
  fnum show rmoveto currentfont cf setfont(\244)show setfont fden show 
  grestore ditwid 0 rmoveto} def 
/oce {grestore ditwid 0 rmoveto}def 
/dm {ditsiz mul}def 
/ocprocs 50 dict def ocprocs begin 
(14){(1)(4)fraction}def 
(12){(1)(2)fraction}def 
(34){(3)(4)fraction}def 
(13){(1)(3)fraction}def 
(23){(2)(3)fraction}def 
(18){(1)(8)fraction}def 
(38){(3)(8)fraction}def 
(58){(5)(8)fraction}def 
(78){(7)(8)fraction}def 
(sr){gsave 0 .06 dm rmoveto(\326)show oce}def 
(is){gsave 0 .15 dm rmoveto(\362)show oce}def 
(->){gsave 0 .02 dm rmoveto(\256)show oce}def 
(<-){gsave 0 .02 dm rmoveto(\254)show oce}def 
(==){gsave 0 .05 dm rmoveto(\272)show oce}def 
end 

% an attempt at a PostScript FONT to implement ditroff special chars 
% this will enable us to 
%	cache the little buggers 
%	generate faster, more compact PS out of psdit 
%	confuse everyone (including myself)! 
50 dict dup begin 
/FontType 3 def 
/FontName /DIThacks def 
/FontMatrix [.001 0 0 .001 0 0] def 
/FontBBox [-260 -260 900 900] def% a lie but ... 
/Encoding 256 array def 
0 1 255{Encoding exch /.notdef put}for 
Encoding 
 dup 8#040/space put %space 
 dup 8#110/rc put %right ceil 
 dup 8#111/lt put %left  top curl 
 dup 8#112/bv put %bold vert 
 dup 8#113/lk put %left  mid curl 
 dup 8#114/lb put %left  bot curl 
 dup 8#115/rt put %right top curl 
 dup 8#116/rk put %right mid curl 
 dup 8#117/rb put %right bot curl 
 dup 8#120/rf put %right floor 
 dup 8#121/lf put %left  floor 
 dup 8#122/lc put %left  ceil 
 dup 8#140/sq put %square 
 dup 8#141/bx put %box 
 dup 8#142/ci put %circle 
 dup 8#143/br put %box rule 
 dup 8#144/rn put %root extender 
 dup 8#145/vr put %vertical rule 
 dup 8#146/ob put %outline bullet 
 dup 8#147/bu put %bullet 
 dup 8#150/ru put %rule 
 dup 8#151/ul put %underline 
 pop 
/DITfd 100 dict def 
/BuildChar{0 begin 
 /cc exch def /fd exch def 
 /charname fd /Encoding get cc get def 
 /charwid fd /Metrics get charname get def 
 /charproc fd /CharProcs get charname get def 
 charwid 0 fd /FontBBox get aload pop setcachedevice 
 2 setlinejoin 40 setlinewidth 
 newpath 0 0 moveto gsave charproc grestore 
 end}def 
/BuildChar load 0 DITfd put 
%/UniqueID 5 def 
/CharProcs 50 dict def 
CharProcs begin 
/space{}def 
/.notdef{}def 
/ru{500 0 rls}def 
/rn{0 840 moveto 500 0 rls}def 
/vr{0 800 moveto 0 -770 rls}def 
/bv{0 800 moveto 0 -1000 rls}def 
/br{0 750 moveto 0 -1000 rls}def 
/ul{0 -140 moveto 500 0 rls}def 
/ob{200 250 rmoveto currentpoint newpath 200 0 360 arc closepath stroke}def 
/bu{200 250 rmoveto currentpoint newpath 200 0 360 arc closepath fill}def 
/sq{80 0 rmoveto currentpoint dround newpath moveto 
    640 0 rlineto 0 640 rlineto -640 0 rlineto closepath stroke}def 
/bx{80 0 rmoveto currentpoint dround newpath moveto 
    640 0 rlineto 0 640 rlineto -640 0 rlineto closepath fill}def 
/ci{500 360 rmoveto currentpoint newpath 333 0 360 arc 
    50 setlinewidth stroke}def 

/lt{0 -200 moveto 0 550 rlineto currx 800 2cx s4 add exch s4 a4p stroke}def 
/lb{0 800 moveto 0 -550 rlineto currx -200 2cx s4 add exch s4 a4p stroke}def 
/rt{0 -200 moveto 0 550 rlineto currx 800 2cx s4 sub exch s4 a4p stroke}def 
/rb{0 800 moveto 0 -500 rlineto currx -200 2cx s4 sub exch s4 a4p stroke}def 
/lk{0 800 moveto 0 300 -300 300 s4 arcto pop pop 1000 sub 
    0 300 4 2 roll s4 a4p 0 -200 lineto stroke}def 
/rk{0 800 moveto 0 300 s2 300 s4 arcto pop pop 1000 sub 
    0 300 4 2 roll s4 a4p 0 -200 lineto stroke}def 
/lf{0 800 moveto 0 -1000 rlineto s4 0 rls}def 
/rf{0 800 moveto 0 -1000 rlineto s4 neg 0 rls}def 
/lc{0 -200 moveto 0 1000 rlineto s4 0 rls}def 
/rc{0 -200 moveto 0 1000 rlineto s4 neg 0 rls}def 
end 

/Metrics 50 dict def Metrics begin 
/.notdef 0 def 
/space 500 def 
/ru 500 def 
/br 0 def 
/lt 416 def 
/lb 416 def 
/rt 416 def 
/rb 416 def 
/lk 416 def 
/rk 416 def 
/rc 416 def 
/lc 416 def 
/rf 416 def 
/lf 416 def 
/bv 416 def 
/ob 350 def 
/bu 350 def 
/ci 750 def 
/bx 750 def 
/sq 750 def 
/rn 500 def 
/ul 500 def 
/vr 0 def 
end 

DITfd begin 
/s2 500 def /s4 250 def /s3 333 def 
/a4p{arcto pop pop pop pop}def 
/2cx{2 copy exch}def 
/rls{rlineto stroke}def 
/currx{currentpoint pop}def 
/dround{transform round exch round exch itransform} def 

end 
end 
/DIThacks exch definefont pop 
ditstart 
(psc)xT 
576 1 1 xr 
1(Times-Roman)xf 1 f 
2(Times-Italic)xf 2 f 
3(Times-Bold)xf 3 f 
4(Times-BoldItalic)xf 4 f 
5(Helvetica)xf 5 f 
6(Helvetica-Bold)xf 6 f 
7(Courier)xf 7 f 
8(Courier-Bold)xf 8 f 
9(Symbol)xf 9 f 
10(DIThacks)xf 10 f 
10 s 
1 f 
xi 
%%EndProlog 

%%Page: 1 1 
10 s 10 xH 0 xS 1 f 
7 f 
12 s 
720 688(Network)N 
1184(Working)X 
1648(Group)X 
3388(N.)X 
3562 0.4167(Borenstein)AX 
720 800(Request)N 
1184(for)X 
1416 0.4219(Comments:)AX 
1996(1521)X 
3678(Bellcore)X 
720 912 0.4167(Obsoletes:)AN 
1358(1341)X 
3678(N.)X 
3852(Freed)X 
720 1024 0.4219(Category:)AN 
1300 0.4219(Standards)AX 
1880(Track)X 
3330 0.4219(September)AX 
3910(1993)X 
1 f 
18 s 
758 1304(M)N 
(IM)S 
1062(E)X 
1222(\(M)X 
1398(ultipurpose)X 
2082(Internet)X 
2566(M)X 
(ail)S 
2874(Extensions\))X 
3590(Part)X 
3858(O)X 
3962(ne:)X 
16 s 
1332 1616(M)N 
1446(echanism)X 
1931(s)X 
2013(for)X 
2195(Specifying)X 
2783(and)X 
3000(Describing)X 
1448 1760(the)N 
1637(Form)X 
1915(at)X 
2040(of)X 
2179(Internet)X 
2611(M)X 
2725(essage)X 
3092(Bodies)X 
3 f 
14 s 
600 2032(Status)N 
928(of)X 
1050(this)X 
1253(M)X 
1359(emo)X 
1 f 
10 s 
720 2256(This)N 
882(RFC)X 
1053(speci\256es)X 
1350(an)X 
1447(Internet)X 
1718(standards)X 
2042(track)X 
2224(protocol)X 
2512(for)X 
2627(the)X 
2746(Internet)X 
3017(community,)X 
3422(and)X 
3559(requests)X 
3843(discussion)X 
720 2352(and)N 
868(suggestions)X 
1273(for)X 
1399(improvements.)X 
1929(Please)X 
2166(refer)X 
2351(to)X 
2445(the)X 
2575(current)X 
2835(edition)X 
3088(of)X 
3186(the)X 
3315("Internet)X 
3629(Of\256cial)X 
3905(Protocol)X 
720 2448(Standards")N 
1089(for)X 
1203(the)X 
1321(standardization)X 
1831(state)X 
1998(and)X 
2134(status)X 
2336(of)X 
2423(this)X 
2558(protocol.)X 
2885(Distribution)X 
3291(of)X 
3378(this)X 
3513(memo)X 
3733(is)X 
3806(unlimited.)X 
3 f 
14 s 
600 2672(Abstract)N 
1 f 
12 s 
720 2912(STD)N 
925(11,)X 
1069(RFC)X 
1274(822)X 
1442(de\256nes)X 
1738(a)X 
1805(message)X 
2156(representation)X 
2727(protocol)X 
3073(which)X 
3333(speci\256es)X 
3689(considerable)X 
720 3024(detail)N 
961(about)X 
1201(message)X 
1553(headers,)X 
1897(but)X 
2046(which)X 
2306(leaves)X 
2572(the)X 
2715(message)X 
3066(content,)X 
3399(or)X 
3504(message)X 
3855(body,)X 
4096(as)X 
720 3136(\257at)N 
876(ASCII)X 
1159(text.)X 
1385(This)X 
1589(document)X 
2002(rede\256nes)X 
2382(the)X 
2533(format)X 
2824(of)X 
2938(message)X 
3298(bodies)X 
3583(to)X 
3692(allow)X 
3940(multi-)X 
720 3248(part)N 
910(textual)X 
1213(and)X 
1392(non-textual)X 
1871(message)X 
2236(bodies)X 
2526(to)X 
2640(be)X 
2770(represented)X 
3253(and)X 
3431(exchanged)X 
3882(without)X 
720 3360(loss)N 
893(of)X 
997(information.)X 
1548(This)X 
1743(is)X 
1832(based)X 
2076(on)X 
2197(earlier)X 
2469(work)X 
2691(documented)X 
3187(in)X 
3287(RFC)X 
3493(934,)X 
3686(STD)X 
3892(11,)X 
4037(and)X 
720 3472(RFC)N 
942(1049,)X 
1199(but)X 
1363(extends)X 
1698(and)X 
1878(revises)X 
2186(that)X 
2372(work.)X 
2658(Because)X 
3019(RFC)X 
3240(822)X 
3424(said)X 
3619(so)X 
3744(little)X 
3962(about)X 
720 3584(message)N 
1080(bodies,)X 
1389(this)X 
1562(document)X 
1976(is)X 
2074(largely)X 
2376(orthogonal)X 
2827(to)X 
2936(\(rather)X 
3227(than)X 
3427(a)X 
3504(revision)X 
3848(of\))X 
3995(RFC)X 
720 3696(822.)N 
720 3920(In)N 
825(particular,)X 
1244(this)X 
1408(document)X 
1813(is)X 
1902(designed)X 
2269(to)X 
2369(provide)X 
2688(facilities)X 
3046(to)X 
3146(include)X 
3455(multiple)X 
3802(objects)X 
4101(in)X 
720 4032(a)N 
812(single)X 
1091(message,)X 
1490(to)X 
1614(represent)X 
2015(body)X 
2255(text)X 
2448(in)X 
2571(character)X 
2973(sets)X 
3165(other)X 
3411(than)X 
3625(US-ASCII,)X 
4101(to)X 
720 4144(represent)N 
1109(formatted)X 
1520(multi-font)X 
1947(text)X 
2128(messages,)X 
2551(to)X 
2663(represent)X 
3053(non-textual)X 
3529(material)X 
3883(such)X 
4096(as)X 
720 4256(images)N 
1035(and)X 
1216(audio)X 
1472(fragments,)X 
1923(and)X 
2104(generally)X 
2504(to)X 
2620 0.3472(facilitate)AX 
3000(later)X 
3213(extensions)X 
3660(de\256ning)X 
4016(new)X 
720 4368(types)N 
947(of)X 
1051(Internet)X 
1375(mail)X 
1571(for)X 
1707(use)X 
1859(by)X 
1979(cooperating)X 
2458(mail)X 
2654(agents.)X 
720 4592(This)N 
930(document)X 
1349(does)X 
1564(NOT)X 
1800(extend)X 
2097(Internet)X 
2437(mail)X 
2649(header)X 
2946(\256elds)X 
3194(to)X 
3309(permit)X 
3601(anything)X 
3978(other)X 
720 4704(than)N 
928(US-ASCII)X 
1374(text)X 
1560(data.)X 
1810(Such)X 
2043(extensions)X 
2490(are)X 
2649(the)X 
2808(subject)X 
3122(of)X 
3243(a)X 
3327(companion)X 
3796(document)X 
720 4816([RFC)N 
957(-1522].)X 
720 5040(This)N 
926(document)X 
1341(is)X 
1440(a)X 
1518(revision)X 
1864(of)X 
1980(RFC)X 
2197(1341.)X 
2473(Signi\256cant)X 
2926(differences)X 
3390(from)X 
3613(RFC)X 
3830(1341)X 
4058(are)X 
720 5152(summarized)N 
1215(in)X 
1314(Appendix)X 
1717(H.)X 
720 6160(Borenstein)N 
1161(&)X 
1260(Freed)X 
3874([Page)X 
4117(i])X 

2 p 
%%Page: 2 2 
12 s 12 xH 0 xS 1 f 
720 1024(THIS)N 
957(PAGE)X 
1231(INTENTIONALLY)X 
2028(LEFT)X 
2282(BLANK.)X 
720 1248(The)N 
894(table)X 
1106(of)X 
1210(contents)X 
1555(should)X 
1835(be)X 
1950(inserted)X 
2279(after)X 
2480(this)X 
2643(page.)X 
720 6160(Borenstein)N 
1161(&)X 
1260(Freed)X 
3820([Page)X 
4063(iii])X 

4 p 
%%Page: 4 3 
12 s 12 xH 0 xS 1 f 
720 400(RFC)N 
925(1521)X 
2317(MIME)X 
3548(September)X 
3984(1993)X 
3 f 
14 s 
720 704(1)N 
1008(Introduction)X 
1 f 
12 s 
720 944(Since)N 
971(its)X 
1099(publication)X 
1570(in)X 
1682(1982,)X 
1935(RFC)X 
2153(822)X 
2335([RFC-822])X 
2794(has)X 
2960(de\256ned)X 
3281(the)X 
3437(standard)X 
3801(format)X 
4096(of)X 
720 1056(textual)N 
1009(mail)X 
1207(messages)X 
1596(on)X 
1718(the)X 
1862(Internet.)X 
2236(Its)X 
2357(success)X 
2670(has)X 
2823(been)X 
3030(such)X 
3231(that)X 
3401(the)X 
3544(RFC)X 
3750(822)X 
3919(format)X 
720 1168(has)N 
882(been)X 
1098(adopted,)X 
1461(wholly)X 
1762(or)X 
1876(partially,)X 
2256(well)X 
2456(beyond)X 
2773(the)X 
2926(con\256nes)X