yap.1

操作系统设计与实现源码

%!PS-Adobe-1.0
%%Creator: devps (Pipeline Associates, Inc.)
%%CreationDate: Fri Sep 13 13:04:52 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
/Times-Italic 1 AEnc-def pop
/I-1{/Times-Italic-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(YAP)S
930(\()S
972(1)S
1030(\))S
2696(Eighth)S
(Edition)296 2989 A
4917(YAP)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(yap,)S
1275(more)S
10 R-1
1507(-)S
10 R
1589(yet)S
1737(another)S
2064(pager)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(yap)S
10 R
1274([)S
10 B-1
1346(-)S
10 B
(cnuq)213 1403 A
10 R
1654(])S
1726([)S
10 B-1
1798(-)S
10 I
1855(n)S
10 R
1943(])S
2015([)S
10 B
2087(+)S
10 I
(command)391 2144 A
10 R
2573(])S
2645([)S
2717(name)S
(...)75 2973 A
3124(])S
1536 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
1656 V
10 I
1080(Yap)S
10 R
1272(is)S
1375(a)S
1456(program)S
1833(allowing)S
2221(the)S
2380(user)S
2584(to)S
2698(examine)S
3075(a)S
(continuous)440 3157 A
3634(text)S
3822(one)S
4004(screenful)S
4411(at)S
4521(a)S
4603(time)S
4819(on)S
4956(a)S
5038(video)S
1776 V
1080(display)S
1404(terminal.)S
1824(It)S
1920(does)S
2137(so)S
2259(by)S
2392(pausing)S
2737(after)S
(each)185 2956 A
3174(screenful,)S
(waiting)302 3602 A
3937(for)S
4088(the)S
4244(user)S
4445(to)S
4556(type)S
4762(a)S
4840(command.)S
1896 V
1080(The)S
1268(commands)S
1735(are)S
1891(enumerated)S
2393(later.)S
10 I
2655(Yap)S
10 R
2819('s)S
2924(main)S
3157(feature)S
3470(is,)S
3594(that)S
3777(it)S
3865(can)S
4037(page)S
4259(both)S
4469(forwards)S
4860(and)S
5037(back-)S
2016 V
1080(wards,)S
1371(even)S
1586(when)S
1829(reading)S
2156(from)S
2377(standard)S
(input.)231 2743 A
2184 V
1080(The)S
1262(command)S
1683(line)S
1859(options)S
2179(are:)S
2352 V
10 I-1
1080(-)S
10 I
1148(n)S
10 R
1440(An)S
1588(integer)S
1893(which)S
2164(is)S
2256(the)S
2404(size)S
2586(\(in)S
2723(lines\))S
2972(of)S
3081(a)S
3151(page)S
3366(\(the)S
(initial)235 3548 A
10 I
(page-size)380 3808 A
10 R
4196(.)S
2520 V
10 B-1
1080(-)S
10 B
1137(c)S
10 R
1440(Normally,)S
10 I
1884(yap)S
10 R
(will)157 2062 A
2252(display)S
(each)185 2575 A
2793(page)S
3016(by)S
3149(beginning)S
3583(at)S
3689(the)S
3845(top)S
4006(of)S
4123(the)S
4280(screen)S
4572(and)S
4751(erasing)S
(each)185 5076 A
2640 V
1440(line)S
1621(just)S
1796(before)S
2084(it)S
2170(displays)S
2529(on)S
2659(it.)S
2770(If)S
(your)184 2868 A
3082(terminal)S
(cannot)268 3448 A
3746(erase)S
3984(a)S
4059(line,)S
10 I
4265(yap)S
10 R
(will)157 4439 A
4625(clear)S
4851(the)S
5003(screen)S
2760 V
1440(before)S
1723(it)S
1804(displays)S
2158(a)S
2228(page.)S
2880 V
1440(This)S
1650(avoids)S
(scrolling)352 1943 A
2326(the)S
2480(screen,)S
2795(making)S
3128(it)S
3216(easier)S
3484(to)S
3594(read)S
3800(while)S
10 I
4056(yap)S
10 R
4233(is)S
(writing.)316 4332 A
4705(The)S
10 B
4894(-c)S
10 R
5005(option)S
3000 V
1440(causes)S
10 I
1732(yap)S
10 R
1906(to)S
2013(scroll)S
2266(the)S
2418(screen)S
2705(instead)S
3019(of)S
3132(beginning)S
3562(at)S
3664(the)S
3816(top)S
3973(of)S
4086(the)S
4238(screen.)S
4574(This)S
4781(is)S
4876(also)S
(done)195 5066 A
3120 V
1440(if)S
(your)184 1527 A
1736(terminal)S
(cannot)268 2097 A
2390(either)S
2645(erase)S
2878(a)S
2948(line)S
3124(or)S
3233(clear)S
3455(the)S
3603(screen.)S
3288 V
10 B-1
1080(-)S
10 B
1137(u)S
10 R
1440(Normally,)S
10 I
1884(yap)S
10 R
2062(handles)S
(underlining)463 2402 A
2898(such)S
3115(as)S
(produced)374 3232 A
3639(by)S
3772(nroff)S
4007(in)S
4118(a)S
4197(manner)S
4533(appropriate)S
5026(to)S
5138(the)S
3408 V
1440(particular)S
1855(terminal:)S
2247(if)S
2337(the)S
2488(terminal)S
2852(can)S
3020(perform)S
(underlining)463 3373 A
3864(well)S
4066(\(t.i.,)S
4259(the)S
4410(escape)S
4707(sequences)S
5143(for)S
3528 V
(underlining)463 1440 A
1934(do)S
2065(not)S
(occupy)290 2224 A
(space)224 2545 A
2800(on)S
2932(the)S
3087(screen\),)S
10 I
3436(yap)S
10 R
(will)157 3613 A
(underline)380 3802 A
(underlined)430 4214 A
4676(information)S
5183(in)S
3648 V
1440(the)S
(input.)231 1588 A
1844(The)S
10 B
2026(-u)S
10 R
2141(option)S
2422(supresses)S
2827(this)S
(underlining.)488 2997 A
3816 V
10 B-1
1080(-)S
10 B
1137(n)S
10 R
1440(Normally,)S
10 I
1887(yap)S
10 R
2068(also)S
(recognises)425 2266 A
2727(escape)S
3032(sequences)S
3476(for)S
3631(stand-out)S
4042(mode)S
4302(or)S
(underlining)463 4423 A
4923(mode)S
5183(in)S
3936 V
1440(the)S
(input,)231 1598 A
1864(and)S
(knows)262 2044 A
2341(how)S
2548(much)S
(space)224 2805 A
3063(these)S
3304(escape)S
3607(sequences)S
(will)157 4049 A
(occupy)290 4240 A
4564(on)S
4698(the)S
4855(screen,)S
5172(so)S
4056 V
1440(that)S
10 I
1616(yap)S
10 R
(will)157 1786 A
1968(not)S
2121(fold)S
2308(lines)S
2523(erroneously.)S
3073(The)S
10 B
3255(-n)S
10 R
3370(option)S
3651(supresses)S
4056(this)S
4226(pattern)S
4531(matching.)S
4224 V
10 B-1
1080(-)S
10 B
1137(q)S
10 R
1440(This)S
1644(option)S
(will)157 1925 A
2107(cause)S
10 I
2356(yap)S
10 R
2526(to)S
2629(exit)S
2805(only)S
3008(on)S
3133(the)S
3281("quit")S
3544(command.)S
4392 V
10 B
1080(+)S
10 I
(command)391 1137 A
4512 V
(command)391 1440 A
10 R
1856(is)S
1948(taken)S
2191(to)S
2294(be)S
2414(an)S
(initial)235 2534 A
2794(command)S
3215(to)S
10 I
3318(yap)S
10 R
3471(.)S
4680 V
10 I
1080(Yap)S
10 R
1270(uses)S
1477(the)S
10 I
1634(termcap)S
10 R
1972(\(5\))S
2124(database)S
2505(to)S
2617(determine)S
3054(the)S
3211(terminal)S
(capabilities)459 3581 A
4074(and)S
4253(the)S
4411(default)S
10 I
(page-size)380 4726 A
10 R
5114(.)S
5199(It)S
4800 V
1080(examines)S
1504(the)S
1671($TERM)S
2045(environment)S
2597(variable)S
2966(to)S
3088(identify)S
3445(the)S
3612(terminal)S
3992(type.)S
4259(If)S
4371($TERM)S
4744(is)S
4854(not)S
5025(set,)S
5205(it)S
4920 V
1080(defaults)S
1429(to)S
10 I
1537(dumb)S
10 R
1768(.)S
10 I
1848(Yap)S
10 R
2034(Also)S
2254(examines)S
2664(the)S
2818($TERMCAP)S
3375(environment)S
3914(variable)S
4270(to)S
4379(locate)S
4651(the)S
10 I
4805(termcap)S
10 R
5143(\(5\))S
5040 V
1080(database.)S
1502(If)S
1595($TERMCAP)S
2146(is)S
2238(not)S
2391(set,)S
2553(it)S
2634(defaults)S
2978(to)S
10 I
3081(/etc/termcap)S
10 R
3593(.)S
5208 V
10 I
1080(Yap)S
10 R
(looks)217 1262 A
1505(in)S
1609(the)S
1758($YAP)S
2036(environment)S
2570(variable)S
2921(to)S
3025(pre-set)S
3326(\257ags.)S
3592(For)S
3758(instance,)S
4139(if)S
(you)150 4227 A
4403(prefer)S
4671(the)S
10 B
4821(-c)S
10 R
4927(mode)S
5177(of)S
5328 V
1080(operation,)S
1510(just)S
1680(set)S
1817(the)S
1965($YAP)S
2242(environment)S
2775(variable)S
3125(to)S
10 B
3228(-c)S
10 R
3307(.)S
5496 V
1080(The)S
1276(commands)S
1750(of)S
10 I
1873(yap)S
10 R
2057(can)S
2236(be)S
(bound)250 2370 A
2659(to)S
2776(sequences)S
3223(of)S
3346(keystrokes.)S
3865(The)S
4062(environment)S
4610(variable)S
4975($YAP-)S
5616 V
1080(KEYS)S
1377(may)S
1583(contain)S
1912(the)S
2068(bindings)S
2446(in)S
2557(the)S
2713(form)S
2942(of)S
3059(a)S