elle.9

Unix操作系统minix 2.0源码

%!PS-Adobe-1.0
%%Creator: devps (Pipeline Associates, Inc.)
%%CreationDate: Fri Sep 13 14:26:38 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
/R{/Times-Roman FF}def
/B{/Times-Bold FF}def
/I{/Times-Italic FF}def
%% Troff special characters not on Symbol font
%% Copyright (C) 1986 by Pipeline Associates, Inc.
%% Version 1.0
%% $Header: Troff.pro,v 1.7 90/08/14 16:07:55 keie Exp $
/altRTD 20 dict def
altRTD begin
/s{setcachedevice}bind def
/m{moveto}bind def
/c{curveto}bind def
/S{stroke}bind def
/l{lineto}bind def
end
/F_Troff 17 dict def F_Troff begin
systemdict /currentpacking known
{/SavePacking currentpacking def true setpacking}if
/PaintType 0 def
/FontType 3 def
/StrokeWidth 25 def
/UniqueID 8277030 def
/FontMatrix [.001000 0 0 .001000 0 0] def
/FontBBox [-85 -150 1000 1000 ] def
/Encoding 256 array def
/CD 256 1 add dict def
/FontInfo 3 dict def FontInfo begin
/UnderlinePosition -133 def /UnderlineThickness 20 def end
/FontName (Troff) def
0 1 256 1 sub{Encoding exch /.notdef put}for
CD /.notdef{500 0 setcharwidth{}}put
Encoding (1) 0 get /br put
%% bold vertical rule used by tbl
CD /br{
0 0 -500 -500 1000 1000 s
np
clw
0 -100 m
0 900 l
{S}
}put
Encoding (2) 0 get /ul put
%% underline used by tbl
CD /ul{
500 0 0 -200 500 0 s
np
clw
0 -100 m
500 -100 l
{S}
}put
Encoding (3) 0 get /ru put
%% baseline rule
CD /ru{
500 0 -500 -500 1000 1000 s
np
clw
m0
500 0 l
{S}
}put
Encoding (4) 0 get /vr put
%% vertical rule
CD /vr{
0 0 -500 -500 1000 1000 s
np
clw
m0
0 1000 l
{S}
}put
Encoding (5) 0 get /sq put
%% square
CD /sq{
500 0 0 0 500 1000 s
np
m0
0 500 rl
500 0 rl
0 -500 rl
-500 0 rl
closepath
61 61 m
378 0 rl
0 378 rl
-378 0 rl
closepath
{fill}
}put
Encoding (6) 0 get /bx put
%% solid box
CD /bx{
500 0 0 0 500 1000 s
np
m0
0 500 rl
500 0 rl
0 -500 rl
closepath
{fill}
}put
Encoding (7) 0 get /rn put
%% radical extender
CD /rn{
500 0 -500 -500 1000 1000 s
np
30 setlinewidth
-30 900 m
500 0 rl
{S}
}put
Encoding 120 /rc put
%% top of right bracket above braceex
CD /rc {
494 0 -85 -80 255 926 s
201 -80 m 201 872 l -85 872 l -85 926 l 255 926 l 255 -80 l
closepath {fill}
} put
Encoding 121 /lc put
%% top of left bracket above braceex
CD /lc {
491 0 201 -80 541 926 s
201 -80 m 201 926 l 541 926 l 541 872 l 255 872 l 255 -80 l
closepath {fill}
} put
Encoding 122 /rf put
%% bottom of right bracket below braceex
CD /rf {
494 0 -85 -80 255 926 s
-85 -80 m -85 -26 l 201 -26 l 201 926 l 255 926 l 255 -80 l
closepath {fill}
} put
Encoding 123 /lf put
%% bottom of left bracket below braceex
CD /lf {
494 0 201 -80 541 926 s
201 -80 m 201 926 l 255 926 l 255 -26 l 872 -26 l 872 -80 l
closepath {fill}
} put
Encoding 97 /a put
CD /a{5 setlinewidth 1000 0 0 66 942 421 s 430 415
m 578 406 678 349 662 319 c 655 306 614 287 583
296 c 570 300 466 340 438 332 c 365 309 335 213
270 209 c 0 310 m 108 310 l 108 114 l 0
114 l 0 310 l 42 161 m 42 134 l 66 134 l 66
161 l 42 161 l 47 155 m 47 140 l 62 140 l 62
155 l 47 155 l 110 133 m 226 113 300 66 410
80 c 497 91 550 69 634 76 c 645 76 663 92 669
107 c 677 125 673 141 668 160 c 725 334 m 758
332 734 253 701 250 c 501 325 m 475 316 476 309
473 302 c 465 282 482 263 499 257 c 552 236 615
253 689 253 c 701 253 713 236 713 218 c 712 194
702 168 678 161 c 671 159 663 160 655 160 c 591
158 516 156 479 168 c 461 173 453 191 453 210 c 453
224 456 235 466 244 c 476 253 490 252 503 255 c 459
84 m 447 96 435 106 435 123 c 435 136 440 145 447
155 c 453 163 462 168 469 173 c 110 293 m 173
318 300 421 435 415 c 609 407 852 416 885 411 c 898
409 924 411 930 380 c 942 316 828 339 742 334 c 731
334 730 335 725 335 c 701 336 685 336 660 336 c{S}}put
Encoding 98 /b put
CD /b{5 setlinewidth 1000 0 -12 66 930 421 s 500
415 m 352 406 252 349 268 319 c 275 306 316 287
347 296 c 360 300 464 340 492 332 c 565 309 595
213 660 209 c 930 310 m 822 310 l 822 114 l 930
114 l 930 310 l 888 161 m 888 134 l 864 134
l 864 161 l 888 161 l 883 155 m 883 140 l 868
140 l 868 155 l 883 155 l 820 133 m 704 113
630 66 520 80 c 433 91 380 69 296 76 c 285 76
267 92 261 107 c 253 125 257 141 262 160 c 205
334 m 172 332 196 253 229 250 c 429 325 m 455
316 454 309 457 302 c 465 282 448 263 431 257 c 378
236 315 253 241 253 c 229 253 217 236 217 218 c 218
194 228 168 252 161 c 259 159 267 160 275 160 c 339
158 414 156 451 168 c 469 173 477 191 477 210 c 477
224 474 235 464 244 c 454 253 440 252 427 255 c 471
84 m 483 96 495 106 495 123 c 495 136 490 145 483
155 c 477 163 468 168 461 173 c 820 293 m 757
318 630 421 495 415 c 321 407 78 416 45 411 c 32
409 6 411 0 380 c -12 316 102 339 188 334 c 199
334 200 335 205 335 c 229 336 245 336 270 336 c{S}}put
Encoding 99 /c put
CD /c{710 0 0 0 700 700 s
33 setlinewidth
335 23 m 335 325 302 -90 270 arc
{S}}put
Encoding 100 /d put
CD /d{590 0 134 158 477 500 s 300
160 m 208 162 134 238 135 330 c 136 423 212 500
305 500 c 397 500 473 427 475 335 c 477 239 396
158 300 160 c{fill}}put
Encoding 101 /e put
CD /e { % produces the VU symbol
760 0 0 0 750 750 s
267 267 scale
0 setlinejoin
.045 setlinewidth
0 setlinecap
3 setmiterlimit
newpath
0 0 moveto
0 2.8 rlineto
0.38 0 rlineto
0 -2.3 rlineto
0.02 0 rlineto
0.67 2.3 rlineto
0.38 0 rlineto
-0.83 -2.8 rlineto
closepath
1.61 2.8 moveto
0.38 0 rlineto
-0.687 -2.32 rlineto
-.03 -.1 -0.03 -0.1 0 -0.1 rcurveto
1.027 0 rlineto
0 2.42 rlineto
0.38 0 rlineto
currentpoint pop 0 % x 0
2.0 0
0.28 arcto
4 {pop} repeat
0.78 0 1.61 2.8 0.15 arcto
4 {pop} repeat
closepath
{S}} put
/BuildChar{altRTD /BuildChar get exec}def end
altRTD begin /BuildChar{altRTD begin
/char exch def /fontdict exch def save
/charname fontdict /Encoding get char get def
/clw { 37 0 mm pop setlinewidth}bind def
fontdict /StrokeWidth get setlinewidth
0 setlinecap
0 setlinejoin
fontdict /CD get dup charname known
{charname}{/.notdef}ifelse get newpath exec
fontdict /PaintType get 0 eq{exec}{pop S}ifelse
restore end}def end
systemdict /currentpacking known{F_Troff /SavePacking get setpacking}if
/Troff F_Troff definefont pop
/Y1{/Troff FF}def
/Y{/Symbol FF}def
/L{/Helvetica FF}def
%%EndProlog
%%Page: 1 1
BP
/slant 0 def
/height 0 def
858 V
12 B
936(Command:)S
1584(elle)S
1790(\261)S
(ELLE)320 1880 A
2230(Looks)S
2574(Like)S
2839(Emacs)S
996 V
936(Syntax:)S
1584(elle)S
12 I
1790(\256le)S
12 R
1968([)S
12 I
2009(\256le2)S
12 R
2217(])S
1134 V
12 B
936(Flags:)S
12 R
(\(none\))316 1584 A
1272 V
12 B
936(Example:)S
12 R
1584(elle)S
1790(\256le.c)S
2916(#)S
3006(Start)S
3266(the)S
3444(editor)S
1446 V
12 I
1116(ELLE)S
12 R
(\(ELLE)337 1443 A
(Looks)301 1825 A
2171(Like)S
2438(Emacs\))S
2847(is)S
2973(an)S
3132(Emacs)S
3500(clone)S
3807(for)S
10 R
3989(MINIX)S
12 R
4292(.)S
(ELLE)296 4397 A
4738(is)S
4864(not)S
1584 V
936(full)S
1135(Emacs)S
1488(but)S
1672(it)S
1770(has)S
(about)268 1961 A
2259(80)S
2409(commands)S
2962(and)S
3166(is)S
3277(quite)S
3549(fast.)S
1929 V
12 B
936(Key)S
1174(bindings)S
2310 V
12 I
1116(Mined)S
12 R
1473(only)S
1735(has)S
1944(a)S
2046(small)S
2357(number)S
2774(of)S
2923(commands.)S
3554(All)S
3758(of)S
3907(them)S
4197(are)S
4394(either)S
4720(of)S
4870(the)S
2448 V
936(form)S
1206(CTRL-x)S
1649(or)S
1784(are)S
1967(on)S
2121(the)S
2303(numeric)S
2733(keypad.)S
3174(Emacs,)S
3560(in)S
3687(contrast,)S
4134(has)S
4328(so)S
4468(many)S
4769(com-)S
2586 V
936(mands,)S
1316(that)S
1533(not)S
1722(only)S
1971(are)S
2155(all)S
2312(the)S
2495(CTRL-x)S
2939(commands)S
3497(used)S
3753(up,)S
3938(but)S
4127(so)S
4270(are)S
4455(all)S
4613(the)S
4797(ESC)S
2724 V
936(x)S
1037(\(escape)S
1442(followed)S
1914(by)S
2075(x;)S
2210(escape)S
2574(is)S
2696(not)S
2891(a)S
2986(shift)S
3243(character,)S
3760(like)S
3983(CTRL\).)S
4433(Even)S
4722(this)S
4937(is)S
2862 V
936(not)S
(enough,)384 1125 A
1544(so)S
1686(CTRL-X)S
2158(is)S
2274(used)S
2530(as)S
2667(a)S
2757(pre\256x)S
3075(for)S
(additional)484 3253 A
3773(commands.)S
4392(Thus)S
4669(CTRL-)S
3000 V
936(X)S
1062(CTRL-L)S
1523(is)S
1642(a)S
1734(command,)S
2278(and)S
2490(so)S
2635(is)S
2754(CTRL-X)S
3229(K.)S
3415(Note)S
3689(that)S
3909(what)S
4182(is)S
(conventionally)718 4300 A
3138 V
(written)345 936 A
1314(as)S
1448(CTRL-X)S
1918(K)S
2039(really)S
2349(means)S
2691(CTRL-X)S
3161(k.)S
3314(In)S
3448(some)S
3737(contexts)S
4174(it)S
4276(is)S
(traditional)499 4391 A
4924(to)S
3276 V
936(write)S
1217(CTRL-X)S
1684(as)S
1815(\303X.)S
2034(Please)S
2374(note)S
2612(that)S
2824(they)S
3062(mean)S
3354(the)S
3532(same)S
3811(thing.)S
3450 V
1116(As)S
1290(a)S
1383(result,)S
1722(many)S
2029(Emacs)S
2391(commands)S
2953(need)S
3221(three)S
3504(or)S
3645(four)S
3887(key)S
4101(strokes)S
4484(to)S
4618(execute.)S
3588 V
936(Some)S
1248(people)S
1607(think)S
1892(3-4)S
2090(key)S
2301(strokes)S
2681(is)S
2799(too)S
2990(many.)S
3355(For)S
3560(this)S
3771(reason,)S
4153(Emacs)S
4512(and)S
(ELLE)296 4722 A
3726 V
936(allow)S
1256(users)S
1555(to)S
1699(assign)S
2051(their)S
2325(own)S
2584(key)S
2809(bindings.)S
3335(In)S
(ELLE)296 3487 A
3834(this)S
4060(is)S
(done)234 4192 A
4477(with)S
4744(`)S
4775(`user)S
3864 V
936(pro\256les.')S
1360(')S
1476(A)S
1609(user)S
1856(pro\256le)S
2217(is)S
2343(a)S
2442(\256le)S
2642(listing)S
2990(which)S
3331(function)S
3779(is)S
(invoked)388 3905 A
4338(by)S
4503(which)S
4844(key)S
4002 V
936(stroke.)S
1344(The)S
1584(user)S
1838(pro\256le)S
2206(is)S
2339(then)S
2599(compiled)S
3101(by)S
3273(a)S
3379(program)S
3842(called)S
4185(ellec)S
4468(into)S
4709(binary)S
4140 V
936(form.)S
1270(When)S
(ELLE)296 1596 A
1930(starts)S
2225(up)S
2383(it)S
2489(checks)S
2855(to)S
2986(see)S
3178(if)S
3290(a)S
3381(\256le)S
3573(.ellepro.b1)S
4127(exists)S
4440(in)S
4571($HOME.)S
4278 V
936(If)S
1048(it)S
1146(does,)S
1427(this)S
1632(\256le)S
1817(is)S
1928(read)S
2167(in)S
2291(and)S
2495(overrides)S
2976(the)S
3154(default)S
3521(bindings.)S
4452 V
1116(A)S
1250(user)S
1498(pro\256le)S
1860(that)S
2088(simulates)S
2592(the)S
12 I
2786(mined)S
12 R
3128(commands)S
3697(fairly)S
4007(well)S
4263(is)S
4390(provided.)S
4896(Its)S
4590 V
936(installation)S
1520(is)S
1646(described)S
2155(later.)S
2477(If)S
(you)180 2604 A
2829(have)S
3102(never)S
3416(used)S
3682(Emacs,)S
4079(it)S
4191(is)S
(suggested)476 4316 A
4836(that)S
4728 V
(you)180 936 A
1150(use)S
1345(the)S
12 I
1527(mined)S
12 R
1857(pro\256le.)S
2237(If)S
(you)180 2353 A
2567(normally)S
3038(use)S
3233(Emacs,)S
3620(then)S
3863(do)S
4018(not)S
4207(install)S
4539(the)S
12 I
4722(mined)S
4866 V
12 R
936(pro\256le.)S
1342(You)S
1580(can)S
1778(also)S
2003(make)S
(your)221 2295 A
2546(own)S
2784(using)S
12 I
3075(ellec)S
12 R
3305(.)S
3395(There)S
3708(is)S
3819(no)S
3969(Mock)S
4280(Lisp.)S
5040 V
(ELLE)296 1116 A
1448(has)S
1645(a)S
1735(character-oriented)S
2655(view)S
2927(of)S
3064(the)S
3248(world,)S
3598(not)S
3789(a)S
3880(line)S
4099(oriented)S
4533(view,)S
4836(like)S
5178 V
12 I
936(ed)S
12 R
1050(.)S
1111(It)S
1217(does)S
1469(not)S
1654(have)S
1913(magic)S
2240(characters)S
2764(for)S
2937(searching.)S
3492(However,)S
(you)180 3998 A
4208(can)S
4406(use)S
4597(line)S
4809(feed)S
5316 V
936(in)S
1081(search)S
1442(patterns.)S
1907(For)S
2126(example,)S
2617(to)S
2762(\256nd)S
3000(a)S
3105(line)S
3338(consisting)S
3879(of)S
4031(the)S
4230(three)S
4525(characters)S
5454 V
936(`)S
967(`foo')S
1200(')S
1285(all)S
1451(by)S
1615(themselves)S
2197(on)S
2361(a)S
2459(line,)S
2715(using)S
3020(the)S
3212(mined)S
3558(bindings)S
4017(\(see)S
4256(below\),)S
4666(use)S
4870(the)S
5592 V
936(pattern:)S
1340(CTRL-\\)S
1756(CTRL-J)S
2185(f)S
2259(o)S
2352(o)S
2445(CTRL-\\)S
2862(CTRL-J.)S
3352(The)S
3574(CTRL-)S
3953(means)S
4296(to)S
4424(interpret)S
4870(the)S
5730 V
936(next)S
1182(character)S
(literally,)409 1666 A
2113(in)S
2245(this)S
2458(case)S
2705(it)S
2811(is)S
2930(CTRL-J,)S
3394(which)S
3728(is)S
3847(line)S
4067(feed.)S
4373(You)S
4618(can)S
4823(also)S
5868 V
936(search)S
1276(for)S
1448(patterns)S
(involving)462 1862 A
(multiple)404 2354 A
2789(lines.)S
3109(For)S
3308(example,)S
3779(to)S
3904(\256nd)S
4122(a)S
4207(line)S
4420(ending)S
4779(in)S
4904(an)S
6006 V
936(`)S
967(`x')S
1099(')S
1170(followed)S
1631(by)S
1781(a)S
1865(line)S
2077(beginning)S
2589(with)S
2835(a)S
2919(`)S
2950(`y')S
3082(',)S
3183(use)S
3374(as)S
3505(pattern:)S
3906(x)S
3996(CTRL-)S
4375(CTRL-J)S
4801(y.)S
6282 V
12 B
936(Mined)S
1302(Key)S
1540(Bindings)S
6594 V
12 R
1116(These)S
1444(are)S
1632(the)S
1819(key)S
2032(bindings)S
2486(if)S
2600(the)S
2787(binary)S
3135(user)S
3376(pro\256le,)S
12 I
3761(.ellepro.b1)S
12 R
4284(,)S
4353(is)S
4473(installed)S
4924(in)S
6732 V
936($HOME.)S
1449(The)S
1673(ESCAPE)S
2158(key)S
2367(followed)S
2833(by)S
2988(a)S
3077(number)S
3481(followed)S
3947(by)S
4102(a)S
4191(command)S
4702(causes)S
6870 V
936(that)S
1149(command)S
1657(to)S
1783(be)S
1929(executed)S
2391(`)S
2422(`number')S
2863(')S
2936(times.)S
3291(This)S
3538(applies)S
3913(both)S
4159(to)S
4285(control)S
4660(charac-)S
7008 V
936(ters)S
1164(and)S
1390(insertable)S
1914(characters.)S
2519(CTRL-X)S
3008(refers)S
3338(to)S
3484(a)S
3590(`)S
3621(`control)S
4057(character.')S
4564(')S
4686(ESC)S
4958(x)S
7146 V
936(refers)S
1256(to)S
1392(an)S
1548(escape)S
1913(character)S
2401(followed)S
2874(by)S
3036(x.)S
3198(In)S
3341(other)S
3632(words,)S
4000(\303X)S
4171(is)S
4295(a)S
(synonym)441 4392 A
4876(for)S
8427 V
EP
%%Page: 2 2
BP
/slant 0 def
/height 0 def
1380 V
12 R
936(CTRL-X.)S
1475(\303X)S
1646(Y)S
1776(refers)S
2096(to)S
2231(CTRL-X)S
2709(followed)S
3181(by)S
3342(y.)S
3503(To)S
3678(abort)S
3968(the)S
4157(current)S
4542(command)S
1518 V
936(and)S
1140(go)S
1290(back)S
1548(to)S
1672(the)S
1850(main)S
(loop)214 2122 A
2366(of)S
2497(the)S
2675(editor,)S
3018(type)S
3256(CTRL-G,)S
3753(rather)S
4067(than)S
4305(CTRL-\\.)S
1692 V
1116(Only)S
1393(a)S
1482(few)S
1700(commands)S
2258(are)S
2442(of)S
2578(the)S
2761(form)S
3032(CTRL-X)S
3504(Y.)S
3688(All)S
3880(of)S
4017(these)S
4302(are)S
4487(also)S
(bound)300 4718 A
1830 V
936(to)S
1076(CTRL-X)S
1559(CTRL-Y,)S
2072(so)S
(you)180 2225 A