gather.1

操作系统设计与实现源码

%!PS-Adobe-1.0
%%Creator: devps (Pipeline Associates, Inc.)
%%CreationDate: Fri Sep 13 13:03:49 1996
%%Pages: (atend)
%%DocumentFonts: (atend)

/devps 180 dict def devps begin
/res 10.000000 def
/y_offset 843 def
/X{exch}bind def
/mm {transform round X round X itransform} bind def
/r{rmoveto}bind def
/m{moveto}bind def
/l{lineto}bind def
/rl{rlineto}bind def
/st{stroke}bind def
/gs{gsave}bind def
/gr{grestore}bind def
/cp{currentpoint}bind def
/np{newpath}bind def
/ct{curveto}bind def
systemdict /setpacking known
 { /savepacking currentpacking def true setpacking } if
/m0{0 0 moveto}bind def
/xc{//res div}bind def
/yc{//res neg div //y_offset add}bind def
/lc{yc X xc X l st}bind def
/mc{yc X xc X m}bind def
/el{gs /a X def a div 1 X scale cp np a xc 2 div 0 360 arc st gr}bind def
/ar{cp 7 2 roll np xc 5 1 roll atan 3 1 roll atan X arc st}bind def
/sp{yc X xc X 6 2 roll yc X xc X 6 2 roll yc X xc X 6 2 roll ct}bind def
/V{//res neg div //y_offset add
currentpoint pop X
m}bind def
/H{//res div
0 transform X round X itransform pop
currentpoint X pop
moveto}bind def
/h{//res div 0 r}bind def
/v{//res neg div 0 X r}bind def
/S{X H show}bind def
/A{H //res div 1 index stringwidth pop sub 1 index length div 0 3 2 roll ashow}bind def
/psize 10 def
/height 0 def
/cheight { height 0 ne { height } { psize } ifelse } bind def
/slant 0 def
/FF{findfont X dup 30 div 0 mm pop setlinewidth /psize X def
    [psize 0 cheight slant sin slant cos div mul cheight 0 0]
    makefont setfont}bind def
/shade{gs
 /dy X def
 /dx X def
 np m
 0 /dy rl
 /dx 0 rl
 0 /dy neg rl
 /dx neg 0 rl
 closepath
 .9 setgray
 fill
gr}bind def
1 setlinecap

/resolution res 72 mul def


/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
	/sy y ury lly sub div def

	sx sy scale

	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

}bind  def
/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
}bind  def
/doclip { llx lly urx ury clipFig } def
/endFig {
	end SavedState restore
}bind  def
/globalstart {
	fontnum psize slant height resolution currentpoint 
	pagesave restore gsave 
}bind  def
/globalend {
	grestore moveto
	/resolution exch def /height exch def
	/slant exch def /psize exch def /fontnum exch def
	F
	/pagesave save def
}bind  def


/fontnum 1 def 
systemdict /setpacking known { savepacking setpacking} if
end
/BP{
save mark devps begin m0
/DocumentInitState [ matrix currentmatrix currentlinewidth currentlinecap
currentlinejoin currentdash currentgray currentmiterlimit ] cvx def
}bind def
/EP{
end cleartomark restore showpage}def

/Encoding-1 256 array def
0 1 255 {Encoding-1 exch /.notdef put} for
Encoding-1 8#301 StandardEncoding 8#101 26 getinterval putinterval %A-B
Encoding-1 8#341 StandardEncoding 8#141 26 getinterval putinterval %a-b
Encoding-1 8#241 StandardEncoding 8#301 16 getinterval putinterval %accents
Encoding-1 8#373 StandardEncoding 8#365 1 getinterval putinterval %dotlessi
Encoding-1
dup 8#41 /copyright put
dup 8#42 /registered put
dup 8#43 /trademark put
dup 8#44 /logicalnot put
dup 8#45 /Eth put
dup 8#46 /eth put
dup 8#47 /Thorn put
dup 8#50 /thorn put
dup 8#51 /brokenbar put
dup 8#52 /degree put
dup 8#53 /divide put
dup 8#54 /multiply put
dup 8#55 /minus put
dup 8#56 /onehalf put
dup 8#57 /onequarter put
dup 8#60 /threequarters put
dup 8#101 /Aacute put
dup 8#102 /Acircumflex put
dup 8#103 /Adieresis put
dup 8#104 /Agrave put
dup 8#105 /Aring put
dup 8#106 /Atilde put
dup 8#107 /Ccedilla put
dup 8#110 /Eacute put
dup 8#111 /Ecircumflex put
dup 8#112 /Edieresis put
dup 8#113 /Egrave put
dup 8#114 /Iacute put
dup 8#115 /Icircumflex put
dup 8#116 /Idieresis put
dup 8#117 /Igrave put
dup 8#120 /Ntilde put
dup 8#121 /Oacute put
dup 8#122 /Ocircumflex put
dup 8#123 /Odieresis put
dup 8#124 /Ograve put
dup 8#125 /Otilde put
dup 8#126 /Scaron put
dup 8#127 /Uacute put
dup 8#130 /Ucircumflex put
dup 8#131 /Udieresis put
dup 8#132 /Ugrave put
dup 8#133 /Ydieresis put
dup 8#134 /Zcaron put
dup 8#135 /aacute put
dup 8#136 /acircumflex put
dup 8#137 /adieresis put
dup 8#140 /agrave put
dup 8#141 /aring put
dup 8#142 /atilde put
dup 8#143 /ccedilla put
dup 8#144 /eacute put
dup 8#145 /ecircumflex put
dup 8#146 /edieresis put
dup 8#147 /egrave put
dup 8#150 /iacute put
dup 8#151 /icircumflex put
dup 8#152 /idieresis put
dup 8#153 /igrave put
dup 8#154 /ntilde put
dup 8#155 /oacute put
dup 8#156 /ocircumflex put
dup 8#157 /odieresis put
dup 8#160 /ograve put
dup 8#161 /otilde put
dup 8#162 /scaron put
dup 8#163 /uacute put
dup 8#164 /ucircumflex put
dup 8#165 /udieresis put
dup 8#166 /ugrave put
dup 8#167 /ydieresis put
dup 8#170 /zcaron put
pop

/Enc-dict 30 dict def
Enc-dict /tmpstr1 50 string put
Enc-dict /tmpstr2 50 string put
Enc-dict /tmpstr3 50 string dup (Encoding-) exch cvs pop put
/AEnc-def { % arguments: the original font's name, encoding nr
Enc-dict begin
tmpstr2 cvs /Enc-no exch def % Remember the number in a string
dup /OrigName exch def % remember the name
findfont dup maxlength dict /newdict exch def % get dictionary for new font
{ exch dup /FID ne
   { exch newdict 3 1 roll put }
   { pop pop } % Ignore FID
   ifelse
} forall
newdict begin
/Encoding
  tmpstr3 9 Enc-no putinterval tmpstr3 0 9 Enc-no length add getinterval
  cvn load
  def % Replace encoding
currentdict /UniqueID known
{ /UniqueID UniqueID Enc-no cvi 49999 mul add def } if % Derive New UniqueID
end % newdict
/FNlength OrigName tmpstr1 cvs length def % convert name, remember length
FNlength 1 add Enc-no length add string
dup 0 OrigName tmpstr1 cvs putinterval
dup FNlength (-) putinterval
dup FNlength 1 add Enc-no putinterval
dup 0 tmpstr1 0 FNlength getinterval putinterval % Add old name
cvn dup newdict /FontName 3 2 roll put newdict definefont
end % Enc-dict
} def
/Times-Roman 1 AEnc-def pop
/R-1{/Times-Roman-1 FF}def
/Times-Bold 1 AEnc-def pop
/B-1{/Times-Bold-1 FF}def
/R{/Times-Roman FF}def
/B{/Times-Bold FF}def
/I{/Times-Italic FF}def
%%EndProlog
%%Page: 1 1
BP
/slant 0 def
/height 0 def
480 V
10 R
720(GATHER)S
1138(\()S
1180(1)S
1238(\))S
2696(Eighth)S
(Edition)296 2989 A
4709(GATHER)S
5127(\()S
5169(1)S
5227(\))S
960 V
9 R
720(N)S
722(NA)S
790(AM)S
858(ME)S
940(E)S
1080 V
10 R
1080(gather)S
10 R-1
1357(-)S
10 R
1439(gather)S
1716(up)S
1841(the)S
1989(\256les)S
2182(in)S
2285(a)S
2355(directory)S
2744(for)S
2887(transmission)S
1248 V
9 R
720(S)S
722(SY)S
774(YN)S
842(NO)S
910(OP)S
978(PS)S
1030(SI)S
1082(IS)S
1115(S)S
1368 V
10 B
1080(gather)S
10 R
1398([)S
10 B-1
1432(-)S
10 B
1489(s)S
10 R
1528(])S
10 I
1600(source_dir)S
2073([)S
10 B-1
2112(-)S
10 B
2169(d)S
10 R
2225(])S
2297(dest_dir)S
2659([)S
10 B-1
2693(-)S
10 B
2750(b)S
10 R
2806(])S
10 I
2878(bytes)S
10 R
3123([)S
10 B-1
3157(-)S
10 B
3214(f)S
10 R
3248(])S
10 I
3320(\256le)S
1536 V
9 R
720(O)S
722(OP)S
790(PT)S
842(TI)S
900(IO)S
933(ON)S
1001(NS)S
1069(S)S
1656 V
10 B-1
1080(-)S
10 B
1137(b)S
10 R
1440(Desired)S
1779(number)S
2111(of)S
2220(bytes)S
2457(per)S
2611(output)S
2892(\256le)S
1824 V
10 B-1
1080(-)S
10 B
1137(d)S
10 R
1440(Destination)S
1929(directory)S
1992 V
10 B-1
1080(-)S
10 B
1137(f)S
10 R
1440(Base)S
1661(name)S
1904(of)S
2013(output)S
2294(\256les)S
2160 V
10 B-1
1080(-)S
10 B
1137(s)S
10 R
1440(Source)S
1745(directory)S
2328 V
9 R
720(E)S
722(EX)S
780(XA)S
848(AM)S
916(MP)S
998(PL)S
1050(LE)S
1108(ES)S
1166(S)S
2448 V
10 B
1080(gather)S
10 R
2080(#)S
2155(Collect)S
2471(\256les)S
2664(in)S
2767(current)S
3078(dir)S
3215(into)S
3396(60K)S
3594(archives)S
2616 V
10 B
1080(gather)S
10 B-1
1385(-)S
10 B
1442(d)S
1523(dir)S
10 R
2080(#)S
2155(Put)S
2314(the)S
2462(archives)S
2823(in)S
10 I
2926(dir)S
2784 V
10 B
1080(gather)S
10 B-1
1385(-)S
10 B
1442(b)S
(90000)250 1523 A
10 R
2080(#)S
2155(Try)S
2326(to)S
(produce)324 2429 A
2778(90K)S
2976(archives)S
2952 V
10 B
1080(gather)S
10 B-1
1385(-)S
10 B
1442(s)S
1506(..)S
10 B-1
1581(-)S
10 B
1638(d)S
1719(targ)S
10 B-1
1923(-)S
10 B
1980(b)S
(5000)200 2061 A
3072 V
10 R
2080(#)S
2155(Try)S
2326(to)S
(produce)324 2429 A
2778(5K)S
2926(archives)S
3240 V
9 R
720(D)S
722(DE)S
790(ES)S
848(SC)S
900(CR)S
962(RI)S
1024(IP)S
1057(PT)S
1109(TI)S
1167(IO)S
1200(ON)S
1268(N)S
3360 V
10 R
1080(It)S
1167(is)S
1259(often)S
1491(useful)S
1762(to)S
1865(collect)S
2160(all)S
2287(the)S
2436(\256les)S
2630(in)S
2734(a)S
2805(directory)S
3195(into)S
3377(one)S
3548(or)S
3658(more)S
3891(archives)S
4253(for)S
4397(transmission)S
4931(by)S
5057(mail.)S
3480 V
1080(This)S
1287(program)S
1656(collects)S
1992(all)S
2121(the)S
2272(\256les)S
2468(in)S
2573(the)S
2723(source)S
3013(directory)S
(\(default:)342 3404 A
3773(current)S
4086(directory\))S
4511(and)S
4683(puts)S
4877(them)S
5105(into)S
3600 V
1080(a)S
1157(shar)S
1357(archive.)S
1736(The)S
1925(shar)S
2125(archive)S
2454(is)S
2553(then)S
2758(compressed)S
3266(and)S
3444(uuencoded.)S
3962(An)S
4118(attempt)S
4453(is)S
4553(made)S
4804(to)S
4915(have)S
5138(the)S
3720 V
1080(\256nal)S
10 I
1291(.uue)S
10 R
1493(\256le)S
1654(be)S
(about)223 1781 A
2036(the)S
2191(given)S
2446(size)S
(\(default:)342 2635 A
3009(60K\),)S
3273(but)S
3432(since)S
10 I
3670(gather)S
10 R
(cannot)268 3963 A
4262(really)S
4523(predict)S
4834(how)S
5038(much)S
3840 V
10 I
1080(shar)S
10 R
(will)157 1283 A
1465(add)S
1635(to)S
1738(the)S
1886(\256le,)S
2065(how)S
2263(much)S
10 I
2512(compress)S
10 R
(will)157 2918 A
3101(reduce)S
3396(the)S
3545(\256le,)S
3725(and)S
3896(how)S
4095(much)S
10 I
4344(uue)S
10 R
(will)157 4515 A
4698(add)S
4869(again,)S
5138(the)S
3960 V
1080(sizes)S
1323(can)S
1510(\257uctuate.)S
1954(If)S
2069(the)S
10 B-1
2239(-)S
10 B
2296(f)S
10 I
2377(\256le)S
10 R
2547(\257ag)S
2745(is)S
2859(given,)S
3154(the)S
3324(archives)S
(will)157 3707 A
3911(be)S
4052(given)S
4321(the)S
4490(names)S
10 I
(\256le_00.uue)443 4793 A
10 R
5236(,)S
4080 V
10 I
(\256le_01.uue)443 1080 A
10 R
1553(etc.)S
1751(If)S
10 B-1
1849(-)S
10 B
1906(f)S
10 R
1970(is)S
2067(not)S
2225(given,)S
2504(the)S
2658(name)S
2907(of)S
3022(the)S
3176(source)S
3470(directory)S
3865(is)S
3963(used)S
4178(as)S
4293(the)S
4447(base)S
4657(name.)S
4956(Since)S
5211(7)S
4200 V
1080(characters)S
1515(of)S
1624(suf\256x)S
1878(are)S
2027(appended,)S
2462(the)S
2610(base)S
2814(name)S
(should)267 3057 A
3349(not)S
(exceed)280 3502 A
3807(7)S
3882(characters.)S
7903 V
720(Page)S
941(1)S
4455(September)S
4911(13,)S
(1996)200 5061 A
8143 V
EP
%%Trailer
%%DocumentFonts: Times-Roman Times-Bold Times-Italic
%%Pages: 1