/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / oobr / eif-calls.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 57 65 | 64 20 41 75 67 20 33 30 |du on We|d Aug 30|
|00000040| 20 31 39 3a 33 37 3a 34 | 32 20 31 39 39 35 0a 3b | 19:37:4|2 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 65 78 |;; from |file /ex|
|00000060| 70 6f 72 74 2f 77 69 6c | 6c 6f 77 33 2f 78 65 6d |port/wil|low3/xem|
|00000070| 61 63 73 2d 31 39 2e 31 | 33 2d 72 65 6c 65 61 73 |acs-19.1|3-releas|
|00000080| 65 2f 65 64 69 74 6f 72 | 2f 6c 69 73 70 2f 6f 6f |e/editor|/lisp/oo|
|00000090| 62 72 2f 65 69 66 2d 63 | 61 6c 6c 73 2e 65 6c 0a |br/eif-c|alls.el.|
|000000a0| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|000000b0| 6e 20 31 39 2e 31 33 20 | 58 45 6d 61 63 73 20 4c |n 19.13 |XEmacs L|
|000000c0| 75 63 69 64 2e 0a 3b 3b | 3b 20 62 79 74 65 63 6f |ucid..;;|; byteco|
|000000d0| 6d 70 20 76 65 72 73 69 | 6f 6e 20 32 2e 32 35 3b |mp versi|on 2.25;|
|000000e0| 20 31 2d 53 65 70 2d 39 | 34 2e 0a 3b 3b 3b 20 6f | 1-Sep-9|4..;;; o|
|000000f0| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|00000100| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|00000110| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|00000120| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000130| 20 69 6e 20 45 6d 61 63 | 73 20 31 38 2e 0a 0a 28 | in Emac|s 18...(|
|00000140| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000150| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000160| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000170| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|00000180| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|00000190| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|000001a0| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|000001b0| 72 73 69 6f 6e 20 22 31 | 39 22 29 29 29 0a 20 20 |rsion "1|9"))).  |
|000001c0| 20 20 28 65 72 72 6f 72 | 20 22 54 68 69 73 20 66 |  (error| "This f|
|000001d0| 69 6c 65 20 77 61 73 20 | 63 6f 6d 70 69 6c 65 64 |ile was |compiled|
|000001e0| 20 66 6f 72 20 45 6d 61 | 63 73 20 31 39 2e 22 29 | for Ema|cs 19.")|
|000001f0| 29 0a 0a 28 72 65 71 75 | 69 72 65 20 27 62 72 2d |)..(requ|ire 'br-|
|00000200| 65 69 66 29 0a 28 66 73 | 65 74 20 27 65 69 66 2d |eif).(fs|et 'eif-|
|00000210| 69 6e 66 6f 2d 75 73 65 | 2d 63 61 6c 6c 73 20 23 |info-use|-calls #|
|00000220| 5b 6e 69 6c 20 22 c0 c1 | 4d 88 c2 c3 4d 87 22 20 |[nil "..|M...M." |
|00000230| 5b 65 69 66 2d 73 74 6f | 72 65 2d 63 6c 61 73 73 |[eif-sto|re-class|
|00000240| 2d 69 6e 66 6f 20 65 69 | 66 2d 73 74 6f 72 65 2d |-info ei|f-store-|
|00000250| 63 6c 61 73 73 2d 69 6e | 66 6f 2d 63 61 6c 6c 73 |class-in|fo-calls|
|00000260| 20 65 69 66 2d 69 6e 73 | 65 72 74 2d 63 6c 61 73 | eif-ins|ert-clas|
|00000270| 73 2d 69 6e 66 6f 20 65 | 69 66 2d 69 6e 73 65 72 |s-info e|if-inser|
|00000280| 74 2d 63 6c 61 73 73 2d | 69 6e 66 6f 2d 63 61 6c |t-class-|info-cal|
|00000290| 6c 73 5d 20 32 20 22 5c | 0a 53 65 74 75 70 20 74 |ls] 2 "\|.Setup t|
|000002a0| 6f 20 64 69 73 70 6c 61 | 79 20 63 61 6c 6c 20 74 |o displa|y call t|
|000002b0| 72 65 65 73 20 61 6e 64 | 20 6f 74 68 65 72 20 63 |rees and| other c|
|000002c0| 6c 61 73 73 20 73 75 6d | 6d 61 72 79 20 69 6e 66 |lass sum|mary inf|
|000002d0| 6f 2e 22 20 6e 69 6c 5d | 29 0a 28 65 69 66 2d 69 |o." nil]|).(eif-i|
|000002e0| 6e 66 6f 2d 75 73 65 2d | 63 61 6c 6c 73 29 0a 28 |nfo-use-|calls).(|
|000002f0| 66 73 65 74 20 27 65 69 | 66 2d 69 6e 66 6f 2d 75 |fset 'ei|f-info-u|
|00000300| 73 65 2d 66 6c 61 74 20 | 23 5b 6e 69 6c 20 22 c0 |se-flat |#[nil ".|
|00000310| c1 4d 88 c2 c3 4d 87 22 | 20 5b 65 69 66 2d 73 74 |.M...M."| [eif-st|
|00000320| 6f 72 65 2d 63 6c 61 73 | 73 2d 69 6e 66 6f 20 65 |ore-clas|s-info e|
|00000330| 69 66 2d 73 74 6f 72 65 | 2d 63 6c 61 73 73 2d 69 |if-store|-class-i|
|00000340| 6e 66 6f 2d 66 6c 61 74 | 20 65 69 66 2d 69 6e 73 |nfo-flat| eif-ins|
|00000350| 65 72 74 2d 63 6c 61 73 | 73 2d 69 6e 66 6f 20 65 |ert-clas|s-info e|
|00000360| 69 66 2d 69 6e 73 65 72 | 74 2d 63 6c 61 73 73 2d |if-inser|t-class-|
|00000370| 69 6e 66 6f 2d 66 6c 61 | 74 5d 20 32 20 22 5c 0a |info-fla|t] 2 "\.|
|00000380| 53 65 74 75 70 20 74 6f | 20 64 69 73 70 6c 61 79 |Setup to| display|
|00000390| 20 74 68 65 20 45 69 66 | 66 65 6c 20 27 66 6c 61 | the Eif|fel 'fla|
|000003a0| 74 27 20 6f 75 74 70 75 | 74 20 66 6f 72 20 63 6c |t' outpu|t for cl|
|000003b0| 61 73 73 65 73 2e 22 20 | 6e 69 6c 5d 29 0a 28 66 |asses." |nil]).(f|
|000003c0| 73 65 74 20 27 65 69 66 | 2d 69 6e 66 6f 2d 75 73 |set 'eif|-info-us|
|000003d0| 65 2d 73 68 6f 72 74 20 | 23 5b 6e 69 6c 20 22 c0 |e-short |#[nil ".|
|000003e0| c1 4d 88 c2 c3 4d 87 22 | 20 5b 65 69 66 2d 73 74 |.M...M."| [eif-st|
|000003f0| 6f 72 65 2d 63 6c 61 73 | 73 2d 69 6e 66 6f 20 65 |ore-clas|s-info e|
|00000400| 69 66 2d 73 74 6f 72 65 | 2d 63 6c 61 73 73 2d 69 |if-store|-class-i|
|00000410| 6e 66 6f 2d 73 68 6f 72 | 74 20 65 69 66 2d 69 6e |nfo-shor|t eif-in|
|00000420| 73 65 72 74 2d 63 6c 61 | 73 73 2d 69 6e 66 6f 20 |sert-cla|ss-info |
|00000430| 65 69 66 2d 69 6e 73 65 | 72 74 2d 63 6c 61 73 73 |eif-inse|rt-class|
|00000440| 2d 69 6e 66 6f 2d 73 68 | 6f 72 74 5d 20 32 20 22 |-info-sh|ort] 2 "|
|00000450| 5c 0a 53 65 74 75 70 20 | 74 6f 20 64 69 73 70 6c |\.Setup |to displ|
|00000460| 61 79 20 74 68 65 20 45 | 69 66 66 65 6c 20 27 73 |ay the E|iffel 's|
|00000470| 68 6f 72 74 27 20 6f 75 | 74 70 75 74 20 66 6f 72 |hort' ou|tput for|
|00000480| 20 63 6c 61 73 73 65 73 | 2e 22 20 6e 69 6c 5d 29 | classes|." nil])|
|00000490| 0a 28 66 73 65 74 20 27 | 65 69 66 2d 73 68 6f 77 |.(fset '|eif-show|
|000004a0| 2d 63 6c 61 73 73 2d 69 | 6e 66 6f 20 23 5b 28 26 |-class-i|nfo #[(&|
|000004b0| 6f 70 74 69 6f 6e 61 6c | 20 63 6c 61 73 73 2d 6e |optional| class-n|
|000004c0| 61 6d 65 29 20 22 c0 19 | c2 0b 21 ac 8f 0c 89 11 |ame) "..|..!.....|
|000004d0| ab 86 c5 20 40 13 aa 84 | c6 c7 21 88 0b ac 85 c6 |... @...|..!.....|
|000004e0| c7 21 aa 96 c8 c9 0b 5c | 22 88 ca cb 21 88 cc 0b |.!.....\|"...!...|
|000004f0| 21 88 c8 cd 0b 5c 22 88 | ce cf d0 5c 22 29 87 22 |!....\".|...\")."|
|00000500| 20 5b 6e 69 6c 20 63 6c | 61 73 73 2d 66 69 6c 65 | [nil cl|ass-file|
|00000510| 2d 6e 61 6d 65 20 62 72 | 2d 63 6c 61 73 73 2d 69 |-name br|-class-i|
|00000520| 6e 2d 74 61 62 6c 65 2d | 70 20 63 6c 61 73 73 2d |n-table-|p class-|
|00000530| 6e 61 6d 65 20 62 75 66 | 66 65 72 2d 66 69 6c 65 |name buf|fer-file|
|00000540| 2d 6e 61 6d 65 20 65 69 | 66 2d 67 65 74 2d 63 6c |-name ei|f-get-cl|
|00000550| 61 73 73 2d 6e 61 6d 65 | 2d 66 72 6f 6d 2d 73 6f |ass-name|-from-so|
|00000560| 75 72 63 65 20 65 72 72 | 6f 72 20 22 4e 6f 20 63 |urce err|or "No c|
|00000570| 6c 61 73 73 20 73 70 65 | 63 69 66 69 65 64 2e 22 |lass spe|cified."|
|00000580| 20 6d 65 73 73 61 67 65 | 20 22 42 75 69 6c 64 69 | message| "Buildi|
|00000590| 6e 67 20 27 25 73 27 20 | 63 6c 61 73 73 20 69 6e |ng '%s' |class in|
|000005a0| 66 6f 2e 2e 2e 22 20 73 | 69 74 2d 66 6f 72 20 32 |fo..." s|it-for 2|
|000005b0| 20 65 69 66 2d 73 74 6f | 72 65 2d 63 6c 61 73 73 | eif-sto|re-class|
|000005c0| 2d 69 6e 66 6f 20 22 42 | 75 69 6c 64 69 6e 67 20 |-info "B|uilding |
|000005d0| 27 25 73 27 20 63 6c 61 | 73 73 20 69 6e 66 6f 2e |'%s' cla|ss info.|
|000005e0| 2e 2e 44 6f 6e 65 22 20 | 62 72 2d 65 76 61 6c 2d |..Done" |br-eval-|
|000005f0| 69 6e 2d 6f 74 68 65 72 | 2d 77 69 6e 64 6f 77 20 |in-other|-window |
|00000600| 22 2a 43 6c 61 73 73 20 | 49 6e 66 6f 2a 22 20 28 |"*Class |Info*" (|
|00000610| 65 69 66 2d 69 6e 73 65 | 72 74 2d 63 6c 61 73 73 |eif-inse|rt-class|
|00000620| 2d 69 6e 66 6f 20 63 6c | 61 73 73 2d 66 69 6c 65 |-info cl|ass-file|
|00000630| 2d 6e 61 6d 65 29 5d 20 | 33 20 22 5c 0a 44 69 73 |-name)] |3 "\.Dis|
|00000640| 70 6c 61 79 73 20 63 6c | 61 73 73 20 73 70 65 63 |plays cl|ass spec|
|00000650| 69 66 69 63 20 69 6e 66 | 6f 72 6d 61 74 69 6f 6e |ific inf|ormation|
|00000660| 20 73 75 6d 6d 61 72 79 | 20 69 6e 20 6f 74 68 65 | summary| in othe|
|00000670| 72 20 77 69 6e 64 6f 77 | 2e 0a 54 68 69 73 20 73 |r window|..This s|
|00000680| 75 6d 6d 61 72 79 20 69 | 6e 63 6c 75 64 65 73 20 |ummary i|ncludes |
|00000690| 6c 69 73 74 69 6e 67 73 | 20 6f 66 20 74 65 78 74 |listings| of text|
|000006a0| 75 61 6c 6c 79 20 69 6e | 63 6c 75 64 65 64 20 61 |ually in|cluded a|
|000006b0| 74 74 72 69 62 75 74 65 | 73 2c 20 72 6f 75 74 69 |ttribute|s, routi|
|000006c0| 6e 65 73 2c 0a 61 6e 64 | 20 72 6f 75 74 69 6e 65 |nes,.and| routine|
|000006d0| 20 63 61 6c 6c 73 20 66 | 72 6f 6d 20 61 6e 20 45 | calls f|rom an E|
|000006e0| 69 66 66 65 6c 20 63 6c | 61 73 73 2e 20 20 55 73 |iffel cl|ass.  Us|
|000006f0| 65 20 6f 70 74 69 6f 6e | 61 6c 20 43 4c 41 53 53 |e option|al CLASS|
|00000700| 2d 4e 41 4d 45 20 66 6f | 72 20 63 6c 61 73 73 0a |-NAME fo|r class.|
|00000710| 74 65 78 74 20 6f 72 20 | 65 78 74 72 61 63 74 20 |text or |extract |
|00000720| 66 72 6f 6d 20 74 68 65 | 20 63 75 72 72 65 6e 74 |from the| current|
|00000730| 20 62 75 66 66 65 72 2e | 22 20 28 62 79 74 65 2d | buffer.|" (byte-|
|00000740| 63 6f 64 65 20 22 c0 c1 | c2 20 40 89 1b ad 84 c4 |code "..|. @.....|
|00000750| 0b c5 51 29 5c 22 43 87 | 22 20 5b 62 72 2d 63 6f |..Q)\"C.|" [br-co|
|00000760| 6d 70 6c 65 74 65 2d 63 | 6c 61 73 73 2d 6e 61 6d |mplete-c|lass-nam|
|00000770| 65 20 6e 69 6c 20 65 69 | 66 2d 67 65 74 2d 63 6c |e nil ei|f-get-cl|
|00000780| 61 73 73 2d 6e 61 6d 65 | 2d 66 72 6f 6d 2d 73 6f |ass-name|-from-so|
|00000790| 75 72 63 65 20 63 6e 20 | 22 43 6c 61 73 73 20 6e |urce cn |"Class n|
|000007a0| 61 6d 65 3a 20 28 64 65 | 66 61 75 6c 74 20 22 20 |ame: (de|fault " |
|000007b0| 22 29 20 22 5d 20 36 29 | 5d 29 0a 28 66 73 65 74 |") "] 6)|]).(fset|
|000007c0| 20 27 65 69 66 2d 67 65 | 74 2d 63 6c 61 73 73 2d | 'eif-ge|t-class-|
|000007d0| 6e 61 6d 65 2d 66 72 6f | 6d 2d 73 6f 75 72 63 65 |name-fro|m-source|
|000007e0| 20 23 5b 6e 69 6c 20 22 | 8a c0 09 c2 c3 23 ac 87 | #[nil "|.....#..|
|000007f0| c4 09 c2 c3 23 ad 8a c5 | c6 94 c6 95 7b 21 c7 95 |....#...|....{!..|
|00000800| 42 29 87 22 20 5b 72 65 | 2d 73 65 61 72 63 68 2d |B)." [re|-search-|
|00000810| 62 61 63 6b 77 61 72 64 | 20 65 69 66 2d 63 6c 61 |backward| eif-cla|
|00000820| 73 73 2d 64 65 66 2d 72 | 65 67 65 78 70 20 6e 69 |ss-def-r|egexp ni|
|00000830| 6c 20 74 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |l t re-s|earch-fo|
|00000840| 72 77 61 72 64 20 65 69 | 66 2d 73 65 74 2d 63 61 |rward ei|f-set-ca|
|00000850| 73 65 20 32 20 31 5d 20 | 34 20 22 5c 0a 52 65 74 |se 2 1] |4 "\.Ret|
|00000860| 75 72 6e 20 69 6e 64 69 | 63 61 74 69 6f 6e 20 6f |urn indi|cation o|
|00000870| 66 20 63 6c 6f 73 65 73 | 74 20 63 6c 61 73 73 20 |f closes|t class |
|00000880| 64 65 66 69 6e 69 74 69 | 6f 6e 20 70 72 65 63 65 |definiti|on prece|
|00000890| 64 69 6e 67 20 70 6f 69 | 6e 74 20 6f 72 20 6e 69 |ding poi|nt or ni|
|000008a0| 6c 2e 0a 49 66 20 6e 6f | 6e 2d 6e 69 6c 2c 20 76 |l..If no|n-nil, v|
|000008b0| 61 6c 75 65 20 69 73 20 | 61 20 63 6f 6e 73 20 63 |alue is |a cons c|
|000008c0| 65 6c 6c 20 6f 66 20 28 | 63 6c 61 73 73 2d 6e 61 |ell of (|class-na|
|000008d0| 6d 65 20 2e 20 64 65 66 | 65 72 72 65 64 2d 63 6c |me . def|erred-cl|
|000008e0| 61 73 73 2d 70 29 2e 22 | 5d 29 0a 28 66 73 65 74 |ass-p)."|]).(fset|
|000008f0| 20 27 65 69 66 2d 69 6e | 73 65 72 74 2d 63 6c 61 | 'eif-in|sert-cla|
|00000900| 73 73 2d 69 6e 66 6f 2d | 63 61 6c 6c 73 20 23 5b |ss-info-|calls #[|
|00000910| 28 26 6f 70 74 69 6f 6e | 61 6c 20 73 72 63 2d 66 |(&option|al src-f|
|00000920| 69 6c 65 2d 6e 61 6d 65 | 29 20 22 08 ab 83 09 ac |ile-name|) ".....|
|00000930| 94 c2 c3 c4 c5 21 40 89 | 1e 06 ad 85 c7 0e 06 c8 |.....!@.|........|
|00000940| 51 29 50 21 88 0e 09 3f | ad 83 ca 08 21 89 1e 0b |Q)P!...?|....!...|
|00000950| ae 82 0e 09 3f 3f ad eb | 08 63 88 cc 20 88 cd 63 |....??..|.c.. ..c|
|00000960| 88 ce 63 88 0e 0b ab 85 | cf 08 21 aa 84 d0 0e 09 |..c.....|..!.....|
|00000970| 21 89 1e 11 ab 88 d2 d3 | 0e 11 5c 22 88 aa 83 d4 |!.......|..\"....|
|00000980| 63 88 09 40 09 41 1e 15 | 1e 16 0e 11 ab 85 d7 63 |c..@.A..|.......c|
|00000990| 88 aa 83 d8 63 88 0e 16 | ab 88 d2 d9 0e 16 5c 22 |....c...|......\"|
|000009a0| 88 aa 83 d4 63 88 0e 11 | ab 85 da 63 88 aa 83 db |....c...|...c....|
|000009b0| 63 88 0e 15 ab 88 d2 dc | 0e 15 5c 22 88 aa 83 d4 |c.......|..\"....|
|000009c0| 63 88 2b dd de 21 29 87 | 22 20 5b 65 69 66 2d 6c |c.+..!).|" [eif-l|
|000009d0| 61 73 74 2d 63 6c 61 73 | 73 2d 6e 61 6d 65 20 65 |ast-clas|s-name e|
|000009e0| 69 66 2d 61 74 74 72 69 | 62 75 74 65 73 2d 61 6e |if-attri|butes-an|
|000009f0| 64 2d 72 6f 75 74 69 6e | 65 73 20 65 72 72 6f 72 |d-routin|es error|
|00000a00| 20 22 43 61 6c 6c 20 27 | 65 69 66 2d 73 74 6f 72 | "Call '|eif-stor|
|00000a10| 65 2d 63 6c 61 73 73 2d | 69 6e 66 6f 27 20 66 69 |e-class-|info' fi|
|00000a20| 72 73 74 2e 22 20 77 68 | 65 72 65 2d 69 73 2d 69 |rst." wh|ere-is-i|
|00000a30| 6e 74 65 72 6e 61 6c 20 | 65 69 66 2d 73 74 6f 72 |nternal |eif-stor|
|00000a40| 65 2d 63 6c 61 73 73 2d | 69 6e 66 6f 20 6b 65 79 |e-class-|info key|
|00000a50| 20 22 20 20 49 74 20 69 | 73 20 62 6f 75 6e 64 20 | "  It i|s bound |
|00000a60| 74 6f 20 7b 22 20 22 7d | 2e 22 20 73 72 63 2d 66 |to {" "}|." src-f|
|00000a70| 69 6c 65 2d 6e 61 6d 65 | 20 62 72 2d 63 6c 61 73 |ile-name| br-clas|
|00000a80| 73 2d 69 6e 2d 74 61 62 | 6c 65 2d 70 20 69 6e 2d |s-in-tab|le-p in-|
|00000a90| 6c 6f 6f 6b 75 70 2d 74 | 61 62 6c 65 20 63 65 6e |lookup-t|able cen|
|00000aa0| 74 65 72 2d 6c 69 6e 65 | 20 22 5c 6e 22 20 22 50 |ter-line| "\n" "P|
|00000ab0| 61 72 65 6e 74 73 3a 5c | 6e 22 20 62 72 2d 67 65 |arents:\|n" br-ge|
|00000ac0| 74 2d 70 61 72 65 6e 74 | 73 20 65 69 66 2d 67 65 |t-parent|s eif-ge|
|00000ad0| 74 2d 70 61 72 65 6e 74 | 73 2d 66 72 6f 6d 2d 73 |t-parent|s-from-s|
|00000ae0| 6f 75 72 63 65 20 70 61 | 72 65 6e 74 73 20 6d 61 |ource pa|rents ma|
|00000af0| 70 63 61 72 20 23 5b 28 | 70 61 72 29 20 22 c0 09 |pcar #[(|par) "..|
|00000b00| c2 b1 03 87 22 20 5b 22 | 20 20 20 22 20 70 61 72 |...." ["|   " par|
|00000b10| 20 22 5c 6e 22 5d 20 33 | 5d 20 22 20 20 20 3c 4e | "\n"] 3|] "   <N|
|00000b20| 6f 6e 65 3e 5c 6e 22 20 | 72 6f 75 74 69 6e 65 73 |one>\n" |routines|
|00000b30| 20 61 74 74 72 69 62 73 | 20 22 5c 6e 4e 6f 6e 2d | attribs| "\nNon-|
|00000b40| 49 6e 68 65 72 69 74 65 | 64 20 41 74 74 72 69 62 |Inherite|d Attrib|
|00000b50| 75 74 65 73 3a 5c 6e 22 | 20 22 5c 6e 41 74 74 72 |utes:\n"| "\nAttr|
|00000b60| 69 62 75 74 65 73 3a 5c | 6e 22 20 23 5b 28 61 74 |ibutes:\|n" #[(at|
|00000b70| 74 72 29 20 22 c0 09 c2 | b1 03 87 22 20 5b 22 20 |tr) "...|..." [" |
|00000b80| 20 20 22 20 61 74 74 72 | 20 22 5c 6e 22 5d 20 33 |  " attr| "\n"] 3|
|00000b90| 5d 20 22 5c 6e 4e 6f 6e | 2d 49 6e 68 65 72 69 74 |] "\nNon|-Inherit|
|00000ba0| 65 64 20 52 6f 75 74 69 | 6e 65 73 20 77 69 74 68 |ed Routi|nes with|
|00000bb0| 20 41 70 70 61 72 65 6e | 74 20 52 6f 75 74 69 6e | Apparen|t Routin|
|00000bc0| 65 20 43 61 6c 6c 73 3a | 5c 6e 22 20 22 5c 6e 52 |e Calls:|\n" "\nR|
|00000bd0| 6f 75 74 69 6e 65 73 20 | 77 69 74 68 20 41 70 70 |outines |with App|
|00000be0| 61 72 65 6e 74 20 52 6f | 75 74 69 6e 65 20 43 61 |arent Ro|utine Ca|
|00000bf0| 6c 6c 73 3a 5c 6e 22 20 | 23 5b 28 63 6e 73 29 20 |lls:\n" |#[(cns) |
|00000c00| 22 c0 09 40 c2 b1 03 88 | c3 c4 09 41 5c 22 87 22 |"..@....|...A\"."|
|00000c10| 20 5b 22 20 20 20 22 20 | 63 6e 73 20 22 5c 6e 22 | ["   " |cns "\n"|
|00000c20| 20 6d 61 70 63 61 72 20 | 23 5b 28 63 61 6c 6c 29 | mapcar |#[(call)|
|00000c30| 20 22 c0 09 c2 b1 03 87 | 22 20 5b 22 20 20 20 20 | "......|" ["    |
|00000c40| 20 20 22 20 63 61 6c 6c | 20 22 5c 6e 22 5d 20 33 |  " call| "\n"] 3|
|00000c50| 5d 5d 20 33 5d 20 73 65 | 74 2d 62 75 66 66 65 72 |]] 3] se|t-buffer|
|00000c60| 2d 6d 6f 64 69 66 69 65 | 64 2d 70 20 6e 69 6c 5d |-modifie|d-p nil]|
|00000c70| 20 36 20 22 5c 0a 49 6e | 73 65 72 74 73 20 74 65 | 6 "\.In|serts te|
|00000c80| 78 74 75 61 6c 6c 79 20 | 69 6e 63 6c 75 64 65 64 |xtually |included|
|00000c90| 20 61 74 74 72 69 62 75 | 74 65 73 2c 20 72 6f 75 | attribu|tes, rou|
|00000ca0| 74 69 6e 65 73 2c 20 61 | 6e 64 20 72 6f 75 74 69 |tines, a|nd routi|
|00000cb0| 6e 65 20 63 61 6c 6c 73 | 20 66 72 6f 6d 20 27 65 |ne calls| from 'e|
|00000cc0| 69 66 2d 6c 61 73 74 2d | 63 6c 61 73 73 2d 6e 61 |if-last-|class-na|
|00000cd0| 6d 65 27 2e 0a 55 73 65 | 73 20 6f 70 74 69 6f 6e |me'..Use|s option|
|00000ce0| 61 6c 20 53 52 43 2d 46 | 49 4c 45 2d 4e 41 4d 45 |al SRC-F|ILE-NAME|
|00000cf0| 20 66 6f 72 20 6c 6f 6f | 6b 75 70 73 20 6f 72 20 | for loo|kups or |
|00000d00| 63 6c 61 73 73 20 6e 61 | 6d 65 20 66 72 6f 6d 20 |class na|me from |
|00000d10| 27 65 69 66 2d 6c 61 73 | 74 2d 63 6c 61 73 73 2d |'eif-las|t-class-|
|00000d20| 6e 61 6d 65 27 2e 22 20 | 6e 69 6c 5d 29 0a 28 66 |name'." |nil]).(f|
|00000d30| 73 65 74 20 27 65 69 66 | 2d 73 74 6f 72 65 2d 63 |set 'eif|-store-c|
|00000d40| 6c 61 73 73 2d 69 6e 66 | 6f 2d 63 61 6c 6c 73 20 |lass-inf|o-calls |
|00000d50| 23 5b 28 63 6c 61 73 73 | 2d 6e 61 6d 65 29 20 22 |#[(class|-name) "|
|00000d60| 08 97 11 c2 09 21 89 1b | ae 81 0c 3f 3f ad 8e c5 |.....!..|...??...|
|00000d70| 0b ab 85 c2 09 21 aa 81 | 0c 21 89 16 06 29 87 22 |.....!..|.!...)."|
|00000d80| 20 5b 63 6c 61 73 73 2d | 6e 61 6d 65 20 65 69 66 | [class-|name eif|
|00000d90| 2d 6c 61 73 74 2d 63 6c | 61 73 73 2d 6e 61 6d 65 |-last-cl|ass-name|
|00000da0| 20 62 72 2d 63 6c 61 73 | 73 2d 70 61 74 68 20 69 | br-clas|s-path i|
|00000db0| 6e 2d 6c 6f 6f 6b 75 70 | 2d 74 61 62 6c 65 20 62 |n-lookup|-table b|
|00000dc0| 75 66 66 65 72 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |uffer-fi|le-name |
|00000dd0| 65 69 66 2d 67 65 74 2d | 66 65 61 74 75 72 65 73 |eif-get-|features|
|00000de0| 2d 66 72 6f 6d 2d 73 6f | 75 72 63 65 20 65 69 66 |-from-so|urce eif|
|00000df0| 2d 61 74 74 72 69 62 75 | 74 65 73 2d 61 6e 64 2d |-attribu|tes-and-|
|00000e00| 72 6f 75 74 69 6e 65 73 | 5d 20 34 20 22 5c 0a 47 |routines|] 4 "\.G|
|00000e10| 65 6e 65 72 61 74 65 73 | 20 63 6f 6e 73 20 6f 66 |enerates| cons of|
|00000e20| 20 74 65 78 74 75 61 6c | 6c 79 20 69 6e 63 6c 75 | textual|ly inclu|
|00000e30| 64 65 64 20 61 74 74 72 | 69 62 75 74 65 73 20 61 |ded attr|ibutes a|
|00000e40| 6e 64 20 72 6f 75 74 69 | 6e 65 73 20 28 69 6e 63 |nd routi|nes (inc|
|00000e50| 6c 75 64 69 6e 67 20 72 | 6f 75 74 69 6e 65 20 63 |luding r|outine c|
|00000e60| 61 6c 6c 73 29 20 66 72 | 6f 6d 20 43 4c 41 53 53 |alls) fr|om CLASS|
|00000e70| 2d 4e 41 4d 45 2e 0a 49 | 74 20 73 74 6f 72 65 73 |-NAME..I|t stores|
|00000e80| 20 74 68 69 73 20 63 6f | 6e 73 20 69 6e 20 74 68 | this co|ns in th|
|00000e90| 65 20 67 6c 6f 62 61 6c | 20 27 65 69 66 2d 61 74 |e global| 'eif-at|
|00000ea0| 74 72 69 62 75 74 65 73 | 2d 61 6e 64 2d 72 6f 75 |tributes|-and-rou|
|00000eb0| 74 69 6e 65 73 27 2e 22 | 20 28 62 79 74 65 2d 63 |tines'."| (byte-c|
|00000ec0| 6f 64 65 20 22 c0 20 43 | 87 22 20 5b 62 72 2d 63 |ode ". C|." [br-c|
|00000ed0| 6f 6d 70 6c 65 74 65 2d | 63 6c 61 73 73 2d 6e 61 |omplete-|class-na|
|00000ee0| 6d 65 5d 20 31 29 5d 29 | 0a 28 62 79 74 65 2d 63 |me] 1)])|.(byte-c|
|00000ef0| 6f 64 65 20 22 c0 c1 4d | 88 c2 c3 4d 88 c4 c5 4d |ode "..M|...M...M|
|00000f00| 88 c6 c7 4d 88 c8 c9 4d | 87 22 20 5b 65 69 66 2d |...M...M|." [eif-|
|00000f10| 69 6e 73 65 72 74 2d 63 | 6c 61 73 73 2d 69 6e 66 |insert-c|lass-inf|
|00000f20| 6f 2d 73 68 6f 72 74 20 | 23 5b 6e 69 6c 20 22 c0 |o-short |#[nil ".|
|00000f30| 09 21 88 c2 c3 09 50 21 | 88 c4 c5 21 87 22 20 5b |.!....P!|...!." [|
|00000f40| 69 6e 73 65 72 74 2d 66 | 69 6c 65 2d 63 6f 6e 74 |insert-f|ile-cont|
|00000f50| 65 6e 74 73 20 65 69 66 | 2d 74 6d 70 2d 69 6e 66 |ents eif|-tmp-inf|
|00000f60| 6f 2d 66 69 6c 65 20 73 | 68 65 6c 6c 2d 63 6f 6d |o-file s|hell-com|
|00000f70| 6d 61 6e 64 20 22 72 6d | 20 2d 66 20 22 20 6d 65 |mand "rm| -f " me|
|00000f80| 73 73 61 67 65 20 22 22 | 5d 20 33 20 6e 69 6c 20 |ssage ""|] 3 nil |
|00000f90| 6e 69 6c 5d 20 65 69 66 | 2d 73 74 6f 72 65 2d 63 |nil] eif|-store-c|
|00000fa0| 6c 61 73 73 2d 69 6e 66 | 6f 2d 73 68 6f 72 74 20 |lass-inf|o-short |
|00000fb0| 23 5b 28 63 6c 61 73 73 | 2d 6e 61 6d 65 29 20 22 |#[(class|-name) "|
|00000fc0| c0 c1 c2 c3 20 21 c4 0d | 52 21 87 22 20 5b 73 68 |.... !..|R!." [sh|
|00000fd0| 65 6c 6c 2d 63 6f 6d 6d | 61 6e 64 20 22 73 68 6f |ell-comm|and "sho|
|00000fe0| 72 74 20 2d 62 20 33 20 | 2d 70 20 22 20 62 72 2d |rt -b 3 |-p " br-|
|00000ff0| 63 6c 61 73 73 2d 70 61 | 74 68 20 62 72 2d 66 69 |class-pa|th br-fi|
|00001000| 6e 64 2d 63 6c 61 73 73 | 2d 6e 61 6d 65 20 22 3e |nd-class|-name ">|
|00001010| 20 22 20 65 69 66 2d 74 | 6d 70 2d 69 6e 66 6f 2d | " eif-t|mp-info-|
|00001020| 66 69 6c 65 5d 20 35 20 | 6e 69 6c 20 28 62 79 74 |file] 5 |nil (byt|
|00001030| 65 2d 63 6f 64 65 20 22 | c0 20 43 87 22 20 5b 62 |e-code "|. C." [b|
|00001040| 72 2d 63 6f 6d 70 6c 65 | 74 65 2d 63 6c 61 73 73 |r-comple|te-class|
|00001050| 2d 6e 61 6d 65 5d 20 31 | 29 5d 20 65 69 66 2d 69 |-name] 1|)] eif-i|
|00001060| 6e 73 65 72 74 2d 63 6c | 61 73 73 2d 69 6e 66 6f |nsert-cl|ass-info|
|00001070| 2d 66 6c 61 74 20 23 5b | 6e 69 6c 20 22 c0 09 21 |-flat #[|nil "..!|
|00001080| 88 c2 c3 09 50 21 88 c4 | c5 21 87 22 20 5b 69 6e |....P!..|.!." [in|
|00001090| 73 65 72 74 2d 66 69 6c | 65 2d 63 6f 6e 74 65 6e |sert-fil|e-conten|
|000010a0| 74 73 20 65 69 66 2d 74 | 6d 70 2d 69 6e 66 6f 2d |ts eif-t|mp-info-|
|000010b0| 66 69 6c 65 20 73 68 65 | 6c 6c 2d 63 6f 6d 6d 61 |file she|ll-comma|
|000010c0| 6e 64 20 22 72 6d 20 2d | 66 20 22 20 6d 65 73 73 |nd "rm -|f " mess|
|000010d0| 61 67 65 20 22 22 5d 20 | 33 20 6e 69 6c 20 6e 69 |age ""] |3 nil ni|
|000010e0| 6c 5d 20 65 69 66 2d 73 | 74 6f 72 65 2d 63 6c 61 |l] eif-s|tore-cla|
|000010f0| 73 73 2d 69 6e 66 6f 2d | 66 6c 61 74 20 23 5b 28 |ss-info-|flat #[(|
|00001100| 63 6c 61 73 73 2d 6e 61 | 6d 65 29 20 22 c0 c1 c2 |class-na|me) "...|
|00001110| c3 20 21 c4 0d 52 21 87 | 22 20 5b 73 68 65 6c 6c |. !..R!.|" [shell|
|00001120| 2d 63 6f 6d 6d 61 6e 64 | 20 22 66 6c 61 74 20 2d |-command| "flat -|
|00001130| 62 20 33 20 22 20 62 72 | 2d 63 6c 61 73 73 2d 70 |b 3 " br|-class-p|
|00001140| 61 74 68 20 62 72 2d 66 | 69 6e 64 2d 63 6c 61 73 |ath br-f|ind-clas|
|00001150| 73 2d 6e 61 6d 65 20 22 | 3e 20 22 20 65 69 66 2d |s-name "|> " eif-|
|00001160| 74 6d 70 2d 69 6e 66 6f | 2d 66 69 6c 65 5d 20 35 |tmp-info|-file] 5|
|00001170| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|00001180| 22 c0 20 43 87 22 20 5b | 62 72 2d 63 6f 6d 70 6c |". C." [|br-compl|
|00001190| 65 74 65 2d 63 6c 61 73 | 73 2d 6e 61 6d 65 5d 20 |ete-clas|s-name] |
|000011a0| 31 29 5d 20 65 69 66 2d | 63 6c 61 73 73 2d 6e 61 |1)] eif-|class-na|
|000011b0| 6d 65 2d 66 72 6f 6d 2d | 66 69 6c 65 2d 6e 61 6d |me-from-|file-nam|
|000011c0| 65 20 23 5b 28 66 69 6c | 65 2d 6e 61 6d 65 29 20 |e #[(fil|e-name) |
|000011d0| 22 c0 c1 5c 6e 5c 22 88 | c3 94 ad 86 5c 6e c3 94 |"..\n\".|....\n..|
|000011e0| c3 95 4f 87 22 20 5b 73 | 74 72 69 6e 67 2d 6d 61 |..O." [s|tring-ma|
|000011f0| 74 63 68 20 22 5e 2e 2a | 2f 5c 5c 28 5b 61 2d 7a |tch "^.*|/\\([a-z|
|00001200| 30 2d 39 5f 5d 2b 5c 5c | 29 5c 5c 2e 65 24 22 20 |0-9_]+\\|)\\.e$" |
|00001210| 66 69 6c 65 2d 6e 61 6d | 65 20 31 5d 20 33 5d 5d |file-nam|e 1] 3]]|
|00001220| 20 32 29 0a 28 66 73 65 | 74 20 27 65 69 66 2d 65 | 2).(fse|t 'eif-e|
|00001230| 76 61 6c 2d 69 6e 2d 6f | 74 68 65 72 2d 77 69 6e |val-in-o|ther-win|
|00001240| 64 6f 77 20 23 5b 28 62 | 75 66 66 65 72 20 66 6f |dow #[(b|uffer fo|
|00001250| 72 6d 29 20 22 c0 20 19 | c2 c3 0c 21 21 88 c5 1e |rm) ". .|...!!...|
|00001260| 06 c7 20 88 c8 0e 09 21 | 88 29 65 62 88 ca 16 06 |.. ....!|.)eb....|
|00001270| cb 09 21 29 87 22 20 5b | 73 65 6c 65 63 74 65 64 |..!)." [|selected|
|00001280| 2d 77 69 6e 64 6f 77 20 | 77 69 6e 64 20 70 6f 70 |-window |wind pop|
|00001290| 2d 74 6f 2d 62 75 66 66 | 65 72 20 67 65 74 2d 62 |-to-buff|er get-b|
|000012a0| 75 66 66 65 72 2d 63 72 | 65 61 74 65 20 62 75 66 |uffer-cr|eate buf|
|000012b0| 66 65 72 20 6e 69 6c 20 | 62 75 66 66 65 72 2d 72 |fer nil |buffer-r|
|000012c0| 65 61 64 2d 6f 6e 6c 79 | 20 65 72 61 73 65 2d 62 |ead-only| erase-b|
|000012d0| 75 66 66 65 72 20 65 76 | 61 6c 20 66 6f 72 6d 20 |uffer ev|al form |
|000012e0| 74 20 73 65 6c 65 63 74 | 2d 77 69 6e 64 6f 77 5d |t select|-window]|
|000012f0| 20 33 20 22 5c 0a 43 6c | 65 61 72 20 6f 75 74 20 | 3 "\.Cl|ear out |
|00001300| 42 55 46 46 45 52 20 61 | 6e 64 20 64 69 73 70 6c |BUFFER a|nd displ|
|00001310| 61 79 20 72 65 73 75 6c | 74 20 6f 66 20 46 4f 52 |ay resul|t of FOR|
|00001320| 4d 20 65 76 61 6c 75 61 | 74 69 6f 6e 20 69 6e 20 |M evalua|tion in |
|00001330| 76 69 65 77 65 72 20 77 | 69 6e 64 6f 77 2e 0a 54 |viewer w|indow..T|
|00001340| 68 65 6e 20 72 65 74 75 | 72 6e 20 74 6f 20 70 72 |hen retu|rn to pr|
|00001350| 65 76 69 6f 75 73 20 77 | 69 6e 64 6f 77 2e 20 20 |evious w|indow.  |
|00001360| 42 55 46 46 45 52 20 6d | 61 79 20 62 65 20 61 20 |BUFFER m|ay be a |
|00001370| 62 75 66 66 65 72 20 6e | 61 6d 65 2e 22 20 6e 69 |buffer n|ame." ni|
|00001380| 6c 5d 29 0a 28 66 73 65 | 74 20 27 65 69 66 2d 67 |l]).(fse|t 'eif-g|
|00001390| 65 74 2d 61 74 74 72 69 | 62 75 74 65 2d 64 65 66 |et-attri|bute-def|
|000013a0| 69 6e 69 74 69 6f 6e 2d | 72 65 67 65 78 70 20 23 |inition-|regexp #|
|000013b0| 5b 28 69 64 65 6e 74 69 | 66 69 65 72 2d 72 65 67 |[(identi|fier-reg|
|000013c0| 65 78 70 29 20 22 08 c1 | 5c 6e c3 0c c5 b0 06 87 |exp) "..|\n......|
|000013d0| 22 20 5b 65 69 66 2d 6d | 6f 64 69 66 69 65 72 2d |" [eif-m|odifier-|
|000013e0| 72 65 67 65 78 70 20 22 | 5c 5c 28 22 20 69 64 65 |regexp "|\\(" ide|
|000013f0| 6e 74 69 66 69 65 72 2d | 72 65 67 65 78 70 20 22 |ntifier-|regexp "|
|00001400| 5c 5c 29 5b 20 09 5d 2a | 3a 5b 20 09 5d 2a 22 20 |\\)[ .]*|:[ .]*" |
|00001410| 65 69 66 2d 74 79 70 65 | 20 22 5c 5c 28 5b 20 09 |eif-type| "\\([ .|
|00001420| 5d 2b 69 73 5b 20 09 5d | 2b 2e 2b 5c 5c 29 3f 5b |]+is[ .]|+.+\\)?[|
|00001430| 20 09 5d 2a 3b 3f 5b 20 | 09 5d 2a 5c 5c 28 2d 2d | .]*;?[ |.]*\\(--|
|00001440| 2e 2a 5c 5c 29 3f 24 22 | 5d 20 36 20 22 5c 0a 52 |.*\\)?$"|] 6 "\.R|
|00001450| 65 74 75 72 6e 20 72 65 | 67 65 78 70 20 74 6f 20 |eturn re|gexp to |
|00001460| 6d 61 74 63 68 20 74 6f | 20 49 44 45 4e 54 49 46 |match to| IDENTIF|
|00001470| 49 45 52 2d 52 45 47 45 | 58 50 20 64 65 66 69 6e |IER-REGE|XP defin|
|00001480| 69 74 69 6f 6e 2e 0a 4d | 61 74 63 68 69 6e 67 20 |ition..M|atching |
|00001490| 61 74 74 72 69 62 75 74 | 65 20 6e 61 6d 65 20 69 |attribut|e name i|
|000014a0| 73 20 67 72 6f 75 70 69 | 6e 67 20 27 65 69 66 2d |s groupi|ng 'eif-|
|000014b0| 66 65 61 74 75 72 65 2d | 6e 61 6d 65 2d 67 72 70 |feature-|name-grp|
|000014c0| 6e 27 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 65 69 |n'."]).(|fset 'ei|
|000014d0| 66 2d 67 65 74 2d 66 65 | 61 74 75 72 65 73 2d 66 |f-get-fe|atures-f|
|000014e0| 72 6f 6d 2d 73 6f 75 72 | 63 65 20 23 5b 28 66 69 |rom-sour|ce #[(fi|
|000014f0| 6c 65 6e 61 6d 65 20 26 | 6f 70 74 69 6f 6e 61 6c |lename &|optional|
|00001500| 20 66 6f 72 6d 29 20 22 | c0 09 21 1a c3 c4 21 71 | form) "|..!...!q|
|00001510| 1d c6 1e 07 c6 1e 08 c6 | 16 09 ca 20 88 5c 6e ab |........|... .\n.|
|00001520| 85 5c 6e 71 88 aa 89 0e | 0b 09 21 89 16 08 71 88 |.\nq....|..!...q.|
|00001530| cc 0d 65 64 23 88 0d 71 | 88 65 62 88 cd ce c6 cf |..ed#..q|.eb.....|
|00001540| 23 ab 88 d0 d1 cf c6 23 | 88 aa 71 65 62 88 cd d2 |#......#|..qeb...|
|00001550| c6 cf 23 ab 99 0e 13 ab | 86 d4 0e 13 21 aa 82 d5 |..#.....|....!...|
|00001560| 20 16 07 ca 20 88 5c 6e | ac 85 d6 0e 08 21 88 0e | ... .\n|.....!..|
|00001570| 07 2c 87 22 20 5b 67 65 | 74 2d 66 69 6c 65 2d 62 |.,." [ge|t-file-b|
|00001580| 75 66 66 65 72 20 66 69 | 6c 65 6e 61 6d 65 20 6e |uffer fi|lename n|
|00001590| 6f 2d 6b 69 6c 6c 20 67 | 65 74 2d 62 75 66 66 65 |o-kill g|et-buffe|
|000015a0| 72 2d 63 72 65 61 74 65 | 20 22 2a 74 6d 70 2a 22 |r-create| "*tmp*"|
|000015b0| 20 74 6d 70 2d 62 75 66 | 20 6e 69 6c 20 66 65 61 | tmp-buf| nil fea|
|000015c0| 74 75 72 65 73 20 6f 72 | 69 67 2d 62 75 66 20 62 |tures or|ig-buf b|
|000015d0| 75 66 66 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |uffer-re|ad-only |
|000015e0| 65 72 61 73 65 2d 62 75 | 66 66 65 72 20 62 72 2d |erase-bu|ffer br-|
|000015f0| 66 69 6e 64 2d 66 69 6c | 65 2d 6e 6f 73 65 6c 65 |find-fil|e-nosele|
|00001600| 63 74 2d 66 75 6e 63 74 | 69 6f 6e 20 63 6f 70 79 |ct-funct|ion copy|
|00001610| 2d 74 6f 2d 62 75 66 66 | 65 72 20 72 65 2d 73 65 |-to-buff|er re-se|
|00001620| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 22 5e 5c |arch-for|ward "^\|
|00001630| 5c 28 5b 5e 5c 22 5c 6e | 5d 2a 5c 5c 29 2d 2d 2e |\([^\"\n|]*\\)--.|
|00001640| 2a 22 20 74 20 72 65 70 | 6c 61 63 65 2d 6d 61 74 |*" t rep|lace-mat|
|00001650| 63 68 20 22 5c 5c 31 22 | 20 22 5e 66 65 61 74 75 |ch "\\1"| "^featu|
|00001660| 72 65 5b 20 09 5d 2a 24 | 22 20 66 6f 72 6d 20 65 |re[ .]*$|" form e|
|00001670| 76 61 6c 20 65 69 66 2d | 70 61 72 73 65 2d 66 65 |val eif-|parse-fe|
|00001680| 61 74 75 72 65 73 20 6b | 69 6c 6c 2d 62 75 66 66 |atures k|ill-buff|
|00001690| 65 72 5d 20 35 20 22 5c | 0a 52 65 74 75 72 6e 73 |er] 5 "\|.Returns|
|000016a0| 20 63 6f 6e 73 20 6f 66 | 20 61 74 74 72 69 62 75 | cons of| attribu|
|000016b0| 74 65 20 64 65 66 20 6c | 69 73 74 20 61 6e 64 20 |te def l|ist and |
|000016c0| 72 6f 75 74 69 6e 65 20 | 64 65 66 20 6c 69 73 74 |routine |def list|
|000016d0| 20 66 72 6f 6d 20 45 69 | 66 66 65 6c 20 63 6c 61 | from Ei|ffel cla|
|000016e0| 73 73 20 46 49 4c 45 4e | 41 4d 45 2e 0a 4f 70 74 |ss FILEN|AME..Opt|
|000016f0| 69 6f 6e 61 6c 20 46 4f | 52 4d 20 69 73 20 61 20 |ional FO|RM is a |
|00001700| 4c 69 73 70 20 66 6f 72 | 6d 20 74 6f 20 62 65 20 |Lisp for|m to be |
|00001710| 65 76 61 6c 75 61 74 65 | 64 20 69 6e 73 74 65 61 |evaluate|d instea|
|00001720| 64 20 6f 66 20 74 68 65 | 20 64 65 66 61 75 6c 74 |d of the| default|
|00001730| 20 66 65 61 74 75 72 65 | 0a 65 78 74 72 61 63 74 | feature|.extract|
|00001740| 69 6f 6e 2e 20 20 41 73 | 73 75 6d 65 73 20 66 69 |ion.  As|sumes fi|
|00001750| 6c 65 20 65 78 69 73 74 | 65 6e 63 65 20 68 61 73 |le exist|ence has|
|00001760| 20 61 6c 72 65 61 64 79 | 20 62 65 65 6e 20 63 68 | already| been ch|
|00001770| 65 63 6b 65 64 2e 20 20 | 54 68 65 20 63 64 72 20 |ecked.  |The cdr |
|00001780| 6f 66 0a 65 61 63 68 20 | 65 6c 65 6d 65 6e 74 20 |of.each |element |
|00001790| 6f 66 20 65 61 63 68 20 | 69 74 65 6d 20 69 6e 20 |of each |item in |
|000017a0| 72 6f 75 74 69 6e 65 20 | 64 65 66 20 6c 69 73 74 |routine |def list|
|000017b0| 20 69 73 20 61 20 62 65 | 73 74 20 67 75 65 73 73 | is a be|st guess|
|000017c0| 20 6c 69 73 74 20 6f 66 | 0a 73 75 62 72 6f 75 74 | list of|.subrout|
|000017d0| 69 6e 65 73 20 69 6e 76 | 6f 6b 65 64 20 62 79 20 |ines inv|oked by |
|000017e0| 74 68 65 20 72 6f 75 74 | 69 6e 65 2e 22 5d 29 0a |the rout|ine."]).|
|000017f0| 28 66 73 65 74 20 27 65 | 69 66 2d 69 6e 2d 63 6f |(fset 'e|if-in-co|
|00001800| 6d 6d 65 6e 74 2d 70 20 | 23 5b 6e 69 6c 20 22 8a |mment-p |#[nil ".|
|00001810| 60 18 c1 79 88 c2 c3 08 | c4 23 2a 87 22 20 5b 65 |`..y....|.#*." [e|
|00001820| 6e 64 20 30 20 73 65 61 | 72 63 68 2d 66 6f 72 77 |nd 0 sea|rch-forw|
|00001830| 61 72 64 20 22 2d 2d 22 | 20 74 5d 20 34 20 22 5c |ard "--"| t] 4 "\|
|00001840| 0a 52 65 74 75 72 6e 20 | 6e 69 6c 20 75 6e 6c 65 |.Return |nil unle|
|00001850| 73 73 20 70 6f 69 6e 74 | 20 69 73 20 77 69 74 68 |ss point| is with|
|00001860| 69 6e 20 61 6e 20 45 69 | 66 66 65 6c 20 63 6f 6d |in an Ei|ffel com|
|00001870| 6d 65 6e 74 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |ment."])|.(fset '|
|00001880| 65 69 66 2d 74 6f 2d 61 | 74 74 72 69 62 75 74 65 |eif-to-a|ttribute|
|00001890| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 69 64 | #[(&opt|ional id|
|000018a0| 65 6e 74 69 66 69 65 72 | 29 20 22 08 ab 85 c1 08 |entifier|) ".....|
|000018b0| 21 aa 81 5c 6e c3 89 89 | c4 1d 1e 06 1e 07 1e 08 |!..\n...|........|
|000018c0| 1e 09 ca 0e 09 c3 cb 23 | ab ca 0e 0c 94 0e 0c 95 |.......#|........|
|000018d0| 7b 16 07 cd 94 89 16 08 | ab ba ce 20 ab 85 c3 16 |{.......|... ....|
|000018e0| 07 aa 5f 8a cf d0 d1 0d | d2 52 c3 cb 23 89 16 06 |.._.....|.R..#...|
|000018f0| ab 84 ce 20 ac 6e 0e 06 | ad 97 d3 94 d3 95 7b 89 |... .n..|......{.|
|00001900| 16 06 ad 8d d4 0d 0e 06 | 5c 22 cd 9a ad 84 c3 16 |........|\"......|
|00001910| 07 cb 29 ac 2e 0e 08 ab | 84 0e 08 62 88 0e 07 2d |..).....|...b...-|
|00001920| 87 22 20 5b 69 64 65 6e | 74 69 66 69 65 72 20 65 |." [iden|tifier e|
|00001930| 69 66 2d 61 74 74 72 69 | 62 75 74 65 2d 74 6f 2d |if-attri|bute-to-|
|00001940| 72 65 67 65 78 70 20 65 | 69 66 2d 61 74 74 72 69 |regexp e|if-attri|
|00001950| 62 75 74 65 2d 72 65 67 | 65 78 70 20 6e 69 6c 20 |bute-reg|exp nil |
|00001960| 22 6c 6f 63 61 6c 5c 5c | 7c 72 65 71 75 69 72 65 |"local\\||require|
|00001970| 5c 5c 7c 65 6e 73 75 72 | 65 5c 5c 7c 69 6e 76 61 |\\|ensur|e\\|inva|
|00001980| 72 69 61 6e 74 22 20 6e | 6f 6e 2d 61 74 74 72 69 |riant" n|on-attri|
|00001990| 62 2d 6b 65 79 77 6f 72 | 64 20 6b 65 79 77 6f 72 |b-keywor|d keywor|
|000019a0| 64 20 66 6f 75 6e 64 20 | 73 74 61 72 74 20 70 61 |d found |start pa|
|000019b0| 74 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |t re-sea|rch-forw|
|000019c0| 61 72 64 20 74 20 65 69 | 66 2d 66 65 61 74 75 72 |ard t ei|f-featur|
|000019d0| 65 2d 6e 61 6d 65 2d 67 | 72 70 6e 20 30 20 65 69 |e-name-g|rpn 0 ei|
|000019e0| 66 2d 69 6e 2d 63 6f 6d | 6d 65 6e 74 2d 70 20 72 |f-in-com|ment-p r|
|000019f0| 65 2d 73 65 61 72 63 68 | 2d 62 61 63 6b 77 61 72 |e-search|-backwar|
|00001a00| 64 20 22 5c 5c 28 5e 5c | 5c 7c 5b 20 09 5d 2b 5c |d "\\(^\|\|[ .]+\|
|00001a10| 5c 29 5c 5c 28 22 20 22 | 65 6e 64 5c 5c 7c 66 65 |\)\\(" "|end\\|fe|
|00001a20| 61 74 75 72 65 5c 5c 7c | 22 20 22 5c 5c 29 5b 3b |ature\\||" "\\)[;|
|00001a30| 20 09 5c 6e 5d 22 20 32 | 20 73 74 72 69 6e 67 2d | .\n]" 2| string-|
|00001a40| 6d 61 74 63 68 5d 20 35 | 20 22 5c 0a 4d 6f 76 65 |match] 5| "\.Move|
|00001a50| 20 70 6f 69 6e 74 20 74 | 6f 20 61 74 74 72 69 62 | point t|o attrib|
|00001a60| 75 74 65 20 6d 61 74 63 | 68 69 6e 67 20 6f 70 74 |ute matc|hing opt|
|00001a70| 69 6f 6e 61 6c 20 49 44 | 45 4e 54 49 46 49 45 52 |ional ID|ENTIFIER|
|00001a80| 20 6f 72 20 6e 65 78 74 | 20 61 74 74 72 69 62 75 | or next| attribu|
|00001a90| 74 65 20 64 65 66 20 69 | 6e 20 62 75 66 66 65 72 |te def i|n buffer|
|00001aa0| 2e 0a 4c 65 61 76 65 20 | 70 6f 69 6e 74 20 61 74 |..Leave |point at|
|00001ab0| 20 62 65 67 69 6e 6e 69 | 6e 67 20 6f 66 20 6c 69 | beginni|ng of li|
|00001ac0| 6e 65 20 77 68 65 72 65 | 20 66 65 61 74 75 72 65 |ne where| feature|
|00001ad0| 20 69 73 20 64 65 66 69 | 6e 65 64 2e 0a 52 65 74 | is defi|ned..Ret|
|00001ae0| 75 72 6e 20 6e 61 6d 65 | 20 6f 66 20 61 74 74 72 |urn name| of attr|
|00001af0| 69 62 75 74 65 20 6d 61 | 74 63 68 65 64 20 6f 72 |ibute ma|tched or|
|00001b00| 20 6e 69 6c 2e 20 20 49 | 67 6e 6f 72 65 20 6f 62 | nil.  I|gnore ob|
|00001b10| 73 6f 6c 65 74 65 20 61 | 74 74 72 69 62 75 74 65 |solete a|ttribute|
|00001b20| 73 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 65 69 66 |s."]).(f|set 'eif|
|00001b30| 2d 70 61 72 73 65 2d 61 | 74 74 72 69 62 75 74 65 |-parse-a|ttribute|
|00001b40| 73 20 23 5b 6e 69 6c 20 | 22 c0 89 89 89 19 1a 1b |s #[nil |".......|
|00001b50| 1c c5 20 ab c9 c6 0e 07 | 21 ab c3 0e 08 94 0e 08 |.. .....|!.......|
|00001b60| 95 7b 89 13 97 12 c9 95 | 62 88 5c 6e 47 ca 56 ac |.{......|b.\nG.V.|
|00001b70| 9f 5c 6e 47 cb 57 ac 99 | 0e 0c 11 5c 6e 09 40 98 |.\nG.W..|...\n.@.|
|00001b80| ab 85 c0 89 13 aa 84 09 | 40 5c 6e 99 ab 85 09 41 |........|@\n....A|
|00001b90| 11 aa 6a 0b ab 3f cd 0b | 0c 5c 22 ac 39 0b 0c 42 |..j..?..|.\".9..B|
|00001ba0| 14 aa 33 0c 9f 89 14 2c | 87 22 20 5b 6e 69 6c 20 |..3....,|." [nil |
|00001bb0| 72 65 73 65 72 76 65 64 | 20 6c 61 74 74 72 69 62 |reserved| lattrib|
|00001bc0| 20 61 74 74 72 69 62 20 | 61 74 74 72 69 62 73 20 | attrib |attribs |
|00001bd0| 65 69 66 2d 74 6f 2d 61 | 74 74 72 69 62 75 74 65 |eif-to-a|ttribute|
|00001be0| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 65 69 66 2d | looking|-at eif-|
|00001bf0| 61 74 74 72 69 62 75 74 | 65 2d 72 65 67 65 78 70 |attribut|e-regexp|
|00001c00| 20 65 69 66 2d 66 65 61 | 74 75 72 65 2d 6e 61 6d | eif-fea|ture-nam|
|00001c10| 65 2d 67 72 70 6e 20 30 | 20 39 20 32 20 65 69 66 |e-grpn 0| 9 2 eif|
|00001c20| 2d 72 65 73 65 72 76 65 | 64 2d 77 6f 72 64 73 20 |-reserve|d-words |
|00001c30| 62 72 2d 6d 65 6d 62 65 | 72 5d 20 35 20 22 5c 0a |br-membe|r] 5 "\.|
|00001c40| 52 65 74 75 72 6e 73 20 | 6c 69 73 74 20 6f 66 20 |Returns |list of |
|00001c50| 61 74 74 72 69 62 75 74 | 65 73 20 64 65 66 69 6e |attribut|es defin|
|00001c60| 65 64 20 69 6e 20 63 75 | 72 72 65 6e 74 20 62 75 |ed in cu|rrent bu|
|00001c70| 66 66 65 72 2e 0a 41 73 | 73 75 6d 65 73 20 70 6f |ffer..As|sumes po|
|00001c80| 69 6e 74 20 69 73 20 61 | 74 20 74 68 65 20 73 74 |int is a|t the st|
|00001c90| 61 72 74 20 6f 66 20 62 | 75 66 66 65 72 2e 22 5d |art of b|uffer."]|
|00001ca0| 29 0a 28 66 73 65 74 20 | 27 65 69 66 2d 70 61 72 |).(fset |'eif-par|
|00001cb0| 73 65 2d 66 65 61 74 75 | 72 65 73 20 23 5b 28 26 |se-featu|res #[(&|
|00001cc0| 6f 70 74 69 6f 6e 61 6c | 20 73 6b 69 70 2d 63 61 |optional| skip-ca|
|00001cd0| 6c 6c 73 29 20 22 c0 89 | 89 89 89 89 89 89 19 1a |lls) "..|........|
|00001ce0| 1b 1c 1d 1e 06 1e 07 1e | 08 c9 20 16 07 ca 0e 07 |........|.. .....|
|00001cf0| 0e 0b 5c 22 13 cc cd 0e | 07 5c 22 16 07 65 62 88 |..\"....|.\"..eb.|
|00001d00| ce 0e 0f c0 d0 23 ab f8 | 0e 11 94 0e 11 95 7b 15 |.....#..|......{.|
|00001d10| 0e 12 94 ad 8a d3 d4 0e | 12 94 0e 12 95 7b 5c 22 |........|.....{\"|
|00001d20| 16 06 0b 12 0e 15 94 ab | 8c ca d6 0e 15 94 0e 15 |........|........|
|00001d30| 95 5c 22 5c 6e 5c 22 12 | 0e 06 ab 86 d7 0d 50 15 |.\"\n\".|......P.|
|00001d40| aa 42 ce d8 c0 d0 23 ab | 3b d9 94 d9 95 7b 89 11 |.B....#.|;....{..|
|00001d50| da 98 ab 86 db 0d 50 15 | aa 8f 09 dc 98 ab 86 dd |......P.|........|
|00001d60| 0d 50 15 aa 84 de 0d 50 | 15 0e 1f ab 88 0d 0e 08 |.P.....P|........|
|00001d70| 42 16 08 aa 0f e0 5c 6e | 21 9f 14 0d 0c 42 0e 08 |B.....\n|!....B..|
|00001d80| 42 16 08 aa 00 0e 08 9f | 16 08 0e 07 0e 08 2e 08 |B.......|........|
|00001d90| 42 87 22 20 5b 6e 69 6c | 20 74 79 70 65 20 72 65 |B." [nil| type re|
|00001da0| 73 65 72 76 65 64 20 6e | 6f 6e 2d 69 64 73 20 63 |served n|on-ids c|
|00001db0| 61 6c 6c 73 20 72 6f 75 | 74 69 6e 65 20 65 78 74 |alls rou|tine ext|
|00001dc0| 65 72 6e 61 6c 20 61 74 | 74 72 69 62 73 20 72 6f |ernal at|tribs ro|
|00001dd0| 75 74 69 6e 65 73 20 65 | 69 66 2d 70 61 72 73 65 |utines e|if-parse|
|00001de0| 2d 61 74 74 72 69 62 75 | 74 65 73 20 61 70 70 65 |-attribu|tes appe|
|00001df0| 6e 64 20 65 69 66 2d 72 | 65 73 65 72 76 65 64 2d |nd eif-r|eserved-|
|00001e00| 77 6f 72 64 73 20 6d 61 | 70 63 61 72 20 23 5b 28 |words ma|pcar #[(|
|00001e10| 61 74 74 72 69 62 75 74 | 65 29 20 22 c0 09 50 87 |attribut|e) "..P.|
|00001e20| 22 20 5b 22 3d 20 22 20 | 61 74 74 72 69 62 75 74 |" ["= " |attribut|
|00001e30| 65 5d 20 32 5d 20 72 65 | 2d 73 65 61 72 63 68 2d |e] 2] re|-search-|
|00001e40| 66 6f 72 77 61 72 64 20 | 65 69 66 2d 72 6f 75 74 |forward |eif-rout|
|00001e50| 69 6e 65 2d 72 65 67 65 | 78 70 20 74 20 65 69 66 |ine-rege|xp t eif|
|00001e60| 2d 66 65 61 74 75 72 65 | 2d 6e 61 6d 65 2d 67 72 |-feature|-name-gr|
|00001e70| 70 6e 20 65 69 66 2d 6d | 6f 64 69 66 69 65 72 2d |pn eif-m|odifier-|
|00001e80| 67 72 70 6e 20 73 74 72 | 69 6e 67 2d 6d 61 74 63 |grpn str|ing-matc|
|00001e90| 68 20 22 65 78 74 65 72 | 6e 61 6c 22 20 65 69 66 |h "exter|nal" eif|
|00001ea0| 2d 66 65 61 74 75 72 65 | 2d 61 72 67 73 2d 67 72 |-feature|-args-gr|
|00001eb0| 70 6e 20 65 69 66 2d 70 | 61 72 73 65 2d 70 61 72 |pn eif-p|arse-par|
|00001ec0| 61 6d 73 20 22 2f 20 22 | 20 22 5e 5b 20 09 5d 2a |ams "/ "| "^[ .]*|
|00001ed0| 5c 5c 28 64 6f 5c 5c 7c | 6f 6e 63 65 5c 5c 7c 64 |\\(do\\||once\\|d|
|00001ee0| 65 66 65 72 72 65 64 5c | 5c 29 5b 20 09 5c 6e 5d |eferred\|\)[ .\n]|
|00001ef0| 2b 22 20 31 20 22 64 6f | 22 20 22 2d 20 22 20 22 |+" 1 "do|" "- " "|
|00001f00| 6f 6e 63 65 22 20 22 31 | 20 22 20 22 3e 20 22 20 |once" "1| " "> " |
|00001f10| 73 6b 69 70 2d 63 61 6c | 6c 73 20 65 69 66 2d 70 |skip-cal|ls eif-p|
|00001f20| 61 72 73 65 2d 69 64 73 | 5d 20 39 20 22 5c 0a 52 |arse-ids|] 9 "\.R|
|00001f30| 65 74 75 72 6e 73 20 63 | 6f 6e 73 20 6f 66 20 61 |eturns c|ons of a|
|00001f40| 74 74 72 69 62 75 74 65 | 20 64 65 66 20 6c 69 73 |ttribute| def lis|
|00001f50| 74 20 61 6e 64 20 72 6f | 75 74 69 6e 65 20 64 65 |t and ro|utine de|
|00001f60| 66 20 6c 69 73 74 20 66 | 72 6f 6d 20 63 75 72 72 |f list f|rom curr|
|00001f70| 65 6e 74 20 62 75 66 66 | 65 72 2e 0a 54 68 65 20 |ent buff|er..The |
|00001f80| 63 64 72 20 6f 66 20 65 | 61 63 68 20 69 74 65 6d |cdr of e|ach item|
|00001f90| 20 69 6e 20 72 6f 75 74 | 69 6e 65 20 64 65 66 20 | in rout|ine def |
|00001fa0| 6c 69 73 74 20 69 73 20 | 61 20 62 65 73 74 20 67 |list is |a best g|
|00001fb0| 75 65 73 73 20 6c 69 73 | 74 20 6f 66 20 72 6f 75 |uess lis|t of rou|
|00001fc0| 74 69 6e 65 20 63 61 6c | 6c 73 0a 69 6e 76 6f 6b |tine cal|ls.invok|
|00001fd0| 65 64 20 62 79 20 74 68 | 65 20 72 6f 75 74 69 6e |ed by th|e routin|
|00001fe0| 65 2c 20 75 6e 6c 65 73 | 73 20 6f 70 74 69 6f 6e |e, unles|s option|
|00001ff0| 61 6c 20 53 4b 49 50 2d | 43 41 4c 4c 53 20 69 73 |al SKIP-|CALLS is|
|00002000| 20 6e 6f 6e 2d 6e 69 6c | 2c 20 69 6e 20 77 68 69 | non-nil|, in whi|
|00002010| 63 68 20 63 61 73 65 0a | 65 61 63 68 20 69 74 65 |ch case.|each ite|
|00002020| 6d 20 69 73 20 6a 75 73 | 74 20 74 68 65 20 72 6f |m is jus|t the ro|
|00002030| 75 74 69 6e 65 20 6e 61 | 6d 65 2e 22 5d 29 0a 28 |utine na|me."]).(|
|00002040| 66 73 65 74 20 27 65 69 | 66 2d 70 61 72 73 65 2d |fset 'ei|f-parse-|
|00002050| 69 64 73 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |ids #[(&|optional|
|00002060| 20 6e 6f 6e 2d 69 64 73 | 29 20 22 c0 89 89 89 89 | non-ids|) ".....|
|00002070| 89 89 89 19 1a 1b 1c 1d | 1e 06 1e 07 1e 08 c9 20 |........|....... |
|00002080| 89 12 83 c3 00 5c 6e 3b | ab 8b 5c 6e 97 0e 5c 6e |.....\n;|..\n..\n|
|00002090| 42 89 16 5c 6e 82 c0 00 | 5c 6e cb 95 7b 97 89 16 |B..\n...|\n..{...|
|000020a0| 08 ab 8d cc cd 21 ab 88 | ce 0e 08 0e 5c 6e 5c 22 |.....!..|....\n\"|
|000020b0| ac 53 cf 11 60 13 d0 20 | 89 16 08 3f ae 84 0e 08 |.S..`.. |...?....|
|000020c0| cb 55 89 11 ab 95 cc d1 | 21 ab 90 d2 c0 77 88 cc |.U......|!....w..|
|000020d0| 0e 13 21 89 11 ab 84 cb | 95 62 88 60 0b 56 ac 52 |..!.....|.b.`.V.R|
|000020e0| 09 ab 96 cc d1 21 ab 91 | d2 c0 77 88 cc 0e 13 21 |.....!..|..w....!|
|000020f0| 89 11 ab 85 cb 95 62 ac | 39 09 ab b9 5c 6e 60 55 |......b.|9...\n`U|
|00002100| ac b4 5c 6e 60 7b 89 16 | 08 97 89 16 06 d4 98 ac |..\n`{..|........|
|00002110| 8b 0e 06 d5 98 ab 89 cc | d6 21 ab 84 c0 11 aa 93 |........|.!......|
|00002120| 0e 08 ab 8f ce 0e 08 0e | 07 5c 22 ac 87 0e 08 0e |........|.\".....|
|00002130| 07 42 16 07 09 84 13 00 | 0e 07 ab ad 0e 07 40 16 |.B......|......@.|
|00002140| 08 0e 07 41 16 07 0e 08 | 97 16 06 0e 5c 6e ae 82 |...A....|....\n..|
|00002150| 0e 17 14 ce 0e 06 0c 5c | 22 ab 83 c0 16 08 0e 08 |.......\|".......|
|00002160| ab 58 d8 0d 0e 08 43 5c | 22 15 aa 4f 0d 2e 08 87 |.X....C\|"..O....|
|00002170| 22 20 5b 6e 69 6c 20 76 | 61 6c 69 64 2d 63 61 6c |" [nil v|alid-cal|
|00002180| 6c 20 73 74 61 72 74 20 | 73 61 6d 65 20 6e 6f 6e |l start |same non|
|00002190| 2d 69 64 2d 6c 69 73 74 | 20 63 61 6c 6c 2d 6c 69 |-id-list| call-li|
|000021a0| 73 74 20 6c 63 61 6c 6c | 20 63 61 6c 6c 73 20 63 |st lcall| calls c|
|000021b0| 61 6c 6c 20 65 69 66 2d | 74 72 79 2d 66 6f 72 2d |all eif-|try-for-|
|000021c0| 72 6f 75 74 69 6e 65 2d | 63 61 6c 6c 20 6e 6f 6e |routine-|call non|
|000021d0| 2d 69 64 73 20 30 20 6c | 6f 6f 6b 69 6e 67 2d 61 |-ids 0 l|ooking-a|
|000021e0| 74 20 22 5b 20 09 5d 2a | 28 22 20 62 72 2d 6d 65 |t "[ .]*|(" br-me|
|000021f0| 6d 62 65 72 20 74 20 65 | 69 66 2d 73 6b 69 70 2d |mber t e|if-skip-|
|00002200| 70 61 73 74 2d 61 72 67 | 2d 6c 69 73 74 20 22 5c |past-arg|-list "\|
|00002210| 5c 2e 22 20 22 2e 22 20 | 65 69 66 2d 69 64 65 6e |\." "." |eif-iden|
|00002220| 74 69 66 69 65 72 20 22 | 65 6e 73 75 72 65 22 20 |tifier "|ensure" |
|00002230| 22 65 6e 64 22 20 22 5b | 20 09 5d 2a 5b 3b 5d 3f |"end" "[| .]*[;]?|
|00002240| 5b 20 09 5d 2a 5b 5c 6e | 5d 5b 20 09 5d 2a 5b 5c |[ .]*[\n|][ .]*[\|
|00002250| 6e 5d 22 20 65 69 66 2d | 72 65 73 65 72 76 65 64 |n]" eif-|reserved|
|00002260| 2d 77 6f 72 64 73 20 61 | 70 70 65 6e 64 5d 20 39 |-words a|ppend] 9|
|00002270| 20 22 5c 0a 49 67 6e 6f | 72 65 73 20 6c 69 73 74 | "\.Igno|res list|
|00002280| 20 6f 66 20 4e 4f 4e 2d | 49 44 53 20 61 6e 64 20 | of NON-|IDS and |
|00002290| 72 65 74 75 72 6e 73 20 | 6c 69 73 74 20 6f 66 20 |returns |list of |
|000022a0| 45 69 66 66 65 6c 20 69 | 64 65 6e 74 69 66 69 65 |Eiffel i|dentifie|
|000022b0| 72 73 20 74 68 72 6f 75 | 67 68 20 74 68 65 20 65 |rs throu|gh the e|
|000022c0| 6e 64 20 6f 66 20 74 68 | 65 20 63 75 72 72 65 6e |nd of th|e curren|
|000022d0| 74 20 72 6f 75 74 69 6e | 65 20 64 65 66 69 6e 69 |t routin|e defini|
|000022e0| 74 69 6f 6e 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |tion."])|.(fset '|
|000022f0| 65 69 66 2d 70 61 72 73 | 65 2d 70 61 72 61 6d 73 |eif-pars|e-params|
|00002300| 20 23 5b 28 73 74 61 72 | 74 20 65 6e 64 29 20 22 | #[(star|t end) "|
|00002310| 08 09 7d 88 65 62 88 c2 | 1b c4 0d c2 c6 23 ab 9a |..}.eb..|.....#..|
|00002320| c7 94 c7 95 7b 0b 42 13 | c8 c9 21 ab 6c c7 95 62 |....{.B.|..!.l..b|
|00002330| 88 c4 0e 5c 6e c2 c6 23 | 88 aa 5f 7e 88 0b 29 87 |...\n..#|.._~..).|
|00002340| 22 20 5b 73 74 61 72 74 | 20 65 6e 64 20 6e 69 6c |" [start| end nil|
|00002350| 20 70 61 72 61 6d 73 20 | 72 65 2d 73 65 61 72 63 | params |re-searc|
|00002360| 68 2d 66 6f 72 77 61 72 | 64 20 65 69 66 2d 69 64 |h-forwar|d eif-id|
|00002370| 65 6e 74 69 66 69 65 72 | 20 74 20 30 20 6c 6f 6f |entifier| t 0 loo|
|00002380| 6b 69 6e 67 2d 61 74 20 | 22 5b 20 09 5d 2a 3a 22 |king-at |"[ .]*:"|
|00002390| 20 65 69 66 2d 74 79 70 | 65 5d 20 34 20 22 5c 0a | eif-typ|e] 4 "\.|
|000023a0| 52 65 74 75 72 6e 73 20 | 6c 69 73 74 20 6f 66 20 |Returns |list of |
|000023b0| 45 69 66 66 65 6c 20 66 | 6f 72 6d 61 6c 20 70 61 |Eiffel f|ormal pa|
|000023c0| 72 61 6d 65 74 65 72 73 | 20 62 65 74 77 65 65 6e |rameters| between|
|000023d0| 20 53 54 41 52 54 20 61 | 6e 64 20 45 4e 44 2c 20 | START a|nd END, |
|000023e0| 69 6e 20 72 65 76 65 72 | 73 65 20 6f 72 64 65 72 |in rever|se order|
|000023f0| 2e 22 5d 29 0a 28 66 73 | 65 74 20 27 65 69 66 2d |."]).(fs|et 'eif-|
|00002400| 73 6b 69 70 2d 70 61 73 | 74 2d 61 72 67 2d 6c 69 |skip-pas|t-arg-li|
|00002410| 73 74 20 23 5b 6e 69 6c | 20 22 c0 19 c2 c3 21 3f |st #[nil| "....!?|
|00002420| 3f ad c1 09 54 11 c0 95 | 62 88 09 c0 56 ab b4 c4 |?...T...|b...V...|
|00002430| c5 77 88 67 c6 55 ab 89 | c7 75 88 c8 c5 77 88 aa |.w.g.U..|.u...w..|
|00002440| 9a 67 c9 55 ab 89 c7 75 | 88 ca c5 77 88 aa 8c 67 |.g.U...u|...w...g|
|00002450| cb 55 ab 84 09 54 aa 82 | 09 53 11 6d ac 4c c7 75 |.U...T..|.S.m.L.u|
|00002460| 88 aa 47 09 29 87 22 20 | 5b 30 20 64 65 70 74 68 |..G.)." |[0 depth|
|00002470| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 22 5b 20 09 | looking|-at "[ .|
|00002480| 5d 2a 28 22 20 22 5e 28 | 29 5c 22 27 22 20 6e 69 |]*(" "^(|)\"'" ni|
|00002490| 6c 20 33 34 20 31 20 22 | 5e 5c 22 22 20 33 39 20 |l 34 1 "|^\"" 39 |
|000024a0| 22 5e 27 22 20 34 30 5d | 20 32 20 22 5c 0a 53 6b |"^'" 40]| 2 "\.Sk|
|000024b0| 69 70 73 20 70 61 74 68 | 20 61 72 67 20 6c 69 73 |ips path| arg lis|
|000024c0| 74 20 64 65 6c 69 6d 69 | 74 65 64 20 62 79 20 70 |t delimi|ted by p|
|000024d0| 61 72 65 6e 74 68 65 73 | 69 73 2e 0a 4c 65 61 76 |arenthes|is..Leav|
|000024e0| 65 73 20 70 6f 69 6e 74 | 20 61 66 74 65 72 20 63 |es point| after c|
|000024f0| 6c 6f 73 69 6e 67 20 70 | 61 72 65 6e 74 68 65 73 |losing p|arenthes|
|00002500| 69 73 2e 20 20 52 65 74 | 75 72 6e 73 20 6e 75 6d |is.  Ret|urns num|
|00002510| 62 65 72 20 6f 66 20 75 | 6e 63 6c 6f 73 65 64 20 |ber of u|nclosed |
|00002520| 70 61 72 65 6e 73 0a 69 | 66 66 20 70 6f 69 6e 74 |parens.i|ff point|
|00002530| 20 6d 6f 76 65 73 2c 20 | 6f 74 68 65 72 77 69 73 | moves, |otherwis|
|00002540| 65 20 6e 69 6c 2e 22 5d | 29 0a 28 66 73 65 74 20 |e nil."]|).(fset |
|00002550| 27 65 69 66 2d 74 72 79 | 2d 66 6f 72 2d 72 6f 75 |'eif-try|-for-rou|
|00002560| 74 69 6e 65 2d 63 61 6c | 6c 20 23 5b 6e 69 6c 20 |tine-cal|l #[nil |
|00002570| 22 c0 09 c2 50 c3 c4 23 | ad 8c c5 94 ab 86 c6 94 |"...P..#|........|
|00002580| c6 95 7b 87 c7 94 87 22 | 20 5b 72 65 2d 73 65 61 |..{...."| [re-sea|
|00002590| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 65 69 66 2d |rch-forw|ard eif-|
|000025a0| 69 64 65 6e 74 69 66 69 | 65 72 20 22 5c 5c 28 5b |identifi|er "\\([|
|000025b0| 20 09 5c 6e 5d 2a 3a 3d | 5c 5c 29 3f 22 20 6e 69 | .\n]*:=|\\)?" ni|
|000025c0| 6c 20 74 20 32 20 31 20 | 30 5d 20 34 20 22 5c 0a |l t 2 1 |0] 4 "\.|
|000025d0| 4d 61 74 63 68 65 73 20 | 74 6f 20 62 65 73 74 20 |Matches |to best |
|000025e0| 67 75 65 73 73 20 6f 66 | 20 6e 65 78 74 20 72 6f |guess of| next ro|
|000025f0| 75 74 69 6e 65 20 63 61 | 6c 6c 2e 0a 52 65 74 75 |utine ca|ll..Retu|
|00002600| 72 6e 73 20 63 68 61 72 | 61 63 74 65 72 20 70 6f |rns char|acter po|
|00002610| 73 69 74 69 6f 6e 20 6f | 66 20 73 74 61 72 74 20 |sition o|f start |
|00002620| 6f 66 20 76 61 6c 69 64 | 20 6d 61 74 63 68 2c 20 |of valid| match, |
|00002630| 6e 69 6c 20 77 68 65 6e | 20 6e 6f 20 6d 61 74 63 |nil when| no matc|
|00002640| 68 2c 0a 69 64 65 6e 74 | 69 66 69 65 72 20 73 74 |h,.ident|ifier st|
|00002650| 72 69 6e 67 20 77 68 65 | 6e 20 61 6e 20 61 73 73 |ring whe|n an ass|
|00002660| 69 67 6e 61 62 6c 65 20 | 65 6e 74 69 74 79 2c 20 |ignable |entity, |
|00002670| 69 2e 65 2e 20 6d 61 74 | 63 68 65 73 20 74 6f 20 |i.e. mat|ches to |
|00002680| 61 20 6e 6f 6e 2d 72 6f | 75 74 69 6e 65 2e 22 5d |a non-ro|utine."]|
|00002690| 29 0a 28 64 65 66 76 61 | 72 20 65 69 66 2d 72 65 |).(defva|r eif-re|
|000026a0| 73 65 72 76 65 64 2d 77 | 6f 72 64 73 20 27 28 22 |served-w|ords '("|
|000026b0| 21 21 22 20 22 61 6c 69 | 61 73 22 20 22 61 6e 64 |!!" "ali|as" "and|
|000026c0| 22 20 22 61 73 22 20 22 | 62 69 74 73 22 20 22 62 |" "as" "|bits" "b|
|000026d0| 6f 6f 6c 65 61 6e 22 20 | 22 63 68 61 72 61 63 74 |oolean" |"charact|
|000026e0| 65 72 22 20 22 63 68 65 | 63 6b 22 20 22 63 6c 61 |er" "che|ck" "cla|
|000026f0| 73 73 22 20 22 63 6c 6f | 6e 65 22 20 22 63 72 65 |ss" "clo|ne" "cre|
|00002700| 61 74 65 22 20 22 63 72 | 65 61 74 69 6f 6e 22 20 |ate" "cr|eation" |
|00002710| 22 63 75 72 72 65 6e 74 | 22 20 22 64 65 62 75 67 |"current|" "debug|
|00002720| 22 20 22 64 65 66 65 72 | 72 65 64 22 20 22 64 65 |" "defer|red" "de|
|00002730| 66 69 6e 65 22 20 22 64 | 69 76 22 20 22 64 6f 22 |fine" "d|iv" "do"|
|00002740| 20 22 64 6f 75 62 6c 65 | 22 20 22 65 6c 73 65 22 | "double|" "else"|
|00002750| 20 22 65 6c 73 65 69 66 | 22 20 22 65 6e 64 22 20 | "elseif|" "end" |
|00002760| 22 65 6e 73 75 72 65 22 | 20 22 65 78 70 61 6e 64 |"ensure"| "expand|
|00002770| 65 64 22 20 22 65 78 70 | 6f 72 74 22 20 22 65 78 |ed" "exp|ort" "ex|
|00002780| 74 65 72 6e 61 6c 22 20 | 22 66 61 6c 73 65 22 20 |ternal" |"false" |
|00002790| 22 66 65 61 74 75 72 65 | 22 20 22 66 6f 72 67 65 |"feature|" "forge|
|000027a0| 74 22 20 22 66 72 6f 6d | 22 20 22 69 66 22 20 22 |t" "from|" "if" "|
|000027b0| 69 6d 70 6c 69 65 73 22 | 20 22 69 6e 64 65 78 69 |implies"| "indexi|
|000027c0| 6e 67 22 20 22 69 6e 66 | 69 78 22 20 22 69 6e 68 |ng" "inf|ix" "inh|
|000027d0| 65 72 69 74 22 20 22 69 | 6e 73 70 65 63 74 22 20 |erit" "i|nspect" |
|000027e0| 22 69 6e 74 65 67 65 72 | 22 20 22 69 6e 76 61 72 |"integer|" "invar|
|000027f0| 69 61 6e 74 22 20 22 69 | 73 22 20 22 6c 61 6e 67 |iant" "i|s" "lang|
|00002800| 75 61 67 65 22 20 22 6c | 69 6b 65 22 20 22 6c 6f |uage" "l|ike" "lo|
|00002810| 63 61 6c 22 20 22 6c 6f | 6f 70 22 20 22 6d 6f 64 |cal" "lo|op" "mod|
|00002820| 22 20 22 6e 61 6d 65 22 | 20 22 6e 6f 63 68 61 6e |" "name"| "nochan|
|00002830| 67 65 22 20 22 6e 6f 74 | 22 20 22 6f 62 73 6f 6c |ge" "not|" "obsol|
|00002840| 65 74 65 22 20 22 6f 6c | 64 22 20 22 6f 6e 63 65 |ete" "ol|d" "once|
|00002850| 22 20 22 6f 72 22 20 22 | 70 72 65 66 69 78 22 20 |" "or" "|prefix" |
|00002860| 22 72 65 61 6c 22 20 22 | 72 65 64 65 66 69 6e 65 |"real" "|redefine|
|00002870| 22 20 22 72 65 6e 61 6d | 65 22 20 22 72 65 70 65 |" "renam|e" "repe|
|00002880| 61 74 22 20 22 72 65 71 | 75 69 72 65 22 20 22 72 |at" "req|uire" "r|
|00002890| 65 73 63 75 65 22 20 22 | 72 65 73 75 6c 74 22 20 |escue" "|result" |
|000028a0| 22 72 65 74 72 79 22 20 | 22 73 65 6c 65 63 74 22 |"retry" |"select"|
|000028b0| 20 22 74 68 65 6e 22 20 | 22 74 72 75 65 22 20 22 | "then" |"true" "|
|000028c0| 75 6e 64 65 66 69 6e 65 | 22 20 22 75 6e 69 71 75 |undefine|" "uniqu|
|000028d0| 65 22 20 22 75 6e 74 69 | 6c 22 20 22 76 61 72 69 |e" "unti|l" "vari|
|000028e0| 61 6e 74 22 20 22 76 6f | 69 64 22 20 22 77 68 65 |ant" "vo|id" "whe|
|000028f0| 6e 22 20 22 78 6f 72 22 | 29 20 22 5c 0a 4c 65 78 |n" "xor"|) "\.Lex|
|00002900| 69 63 6f 67 72 61 70 68 | 69 63 61 6c 6c 79 20 6f |icograph|ically o|
|00002910| 72 64 65 72 65 64 20 6c | 69 73 74 20 6f 66 20 72 |rdered l|ist of r|
|00002920| 65 73 65 72 76 65 64 20 | 77 6f 72 64 73 20 69 6e |eserved |words in|
|00002930| 20 45 69 66 66 65 6c 20 | 76 65 72 73 69 6f 6e 20 | Eiffel |version |
|00002940| 32 2e 32 2e 0a 4c 6f 6e | 67 65 73 74 20 6f 6e 65 |2.2..Lon|gest one|
|00002950| 20 69 73 20 39 20 63 68 | 61 72 61 63 74 65 72 73 | is 9 ch|aracters|
|00002960| 2e 0a 4d 69 6e 6f 72 20 | 73 75 70 70 6f 72 74 20 |..Minor |support |
|00002970| 66 6f 72 20 45 69 66 66 | 65 6c 20 33 20 68 61 73 |for Eiff|el 3 has|
|00002980| 20 6e 6f 77 20 62 65 65 | 6e 20 61 64 64 65 64 2e | now bee|n added.|
|00002990| 22 29 0a 28 64 65 66 63 | 6f 6e 73 74 20 65 69 66 |").(defc|onst eif|
|000029a0| 2d 74 79 70 65 20 22 5c | 5c 28 6c 69 6b 65 5b 20 |-type "\|\(like[ |
|000029b0| 09 5d 2b 5c 5c 29 3f 5b | 61 2d 7a 41 2d 5a 5d 5b |.]+\\)?[|a-zA-Z][|
|000029c0| 61 2d 7a 41 2d 5a 5f 30 | 2d 39 5d 2a 5c 5c 28 5b |a-zA-Z_0|-9]*\\([|
|000029d0| 20 09 5d 2a 5c 5c 5b 2e | 2b 5c 5c 5d 5c 5c 29 3f | .]*\\[.|+\\]\\)?|
|000029e0| 22 20 22 5c 0a 52 65 67 | 65 78 70 20 74 6f 20 6d |" "\.Reg|exp to m|
|000029f0| 61 74 63 68 20 45 69 66 | 66 65 6c 20 65 6e 74 69 |atch Eif|fel enti|
|00002a00| 74 79 20 61 6e 64 20 72 | 65 74 75 72 6e 20 76 61 |ty and r|eturn va|
|00002a10| 6c 75 65 20 74 79 70 65 | 20 65 78 70 72 65 73 73 |lue type| express|
|00002a20| 69 6f 6e 73 2e 22 29 0a | 28 64 65 66 63 6f 6e 73 |ions.").|(defcons|
|00002a30| 74 20 65 69 66 2d 6d 6f | 64 69 66 69 65 72 2d 72 |t eif-mo|difier-r|
|00002a40| 65 67 65 78 70 20 22 5e | 5b 20 09 5d 2a 5c 5c 28 |egexp "^|[ .]*\\(|
|00002a50| 66 72 6f 7a 65 6e 5b 20 | 09 5c 6e 5d 2b 5c 5c 7c |frozen[ |.\n]+\\||
|00002a60| 65 78 74 65 72 6e 61 6c | 5b 20 09 5d 2b 5c 22 5b |external|[ .]+\"[|
|00002a70| 5e 5c 22 20 5d 2b 5c 22 | 5b 20 09 5c 6e 5d 2b 5c |^\" ]+\"|[ .\n]+\|
|00002a80| 5c 29 3f 22 20 22 5c 0a | 53 70 65 63 69 61 6c 20 |\)?" "\.|Special |
|00002a90| 70 72 65 66 69 78 20 6d | 6f 64 69 66 69 65 72 73 |prefix m|odifiers|
|00002aa0| 20 74 68 61 74 20 63 61 | 6e 20 70 72 65 63 65 64 | that ca|n preced|
|00002ab0| 65 20 61 20 66 65 61 74 | 75 72 65 20 64 65 66 69 |e a feat|ure defi|
|00002ac0| 6e 69 74 69 6f 6e 2e 22 | 29 0a 28 64 65 66 63 6f |nition."|).(defco|
|00002ad0| 6e 73 74 20 65 69 66 2d | 61 74 74 72 69 62 75 74 |nst eif-|attribut|
|00002ae0| 65 2d 72 65 67 65 78 70 | 20 28 65 69 66 2d 67 65 |e-regexp| (eif-ge|
|00002af0| 74 2d 61 74 74 72 69 62 | 75 74 65 2d 64 65 66 69 |t-attrib|ute-defi|
|00002b00| 6e 69 74 69 6f 6e 2d 72 | 65 67 65 78 70 20 65 69 |nition-r|egexp ei|
|00002b10| 66 2d 69 64 65 6e 74 69 | 66 69 65 72 29 20 22 5c |f-identi|fier) "\|
|00002b20| 0a 52 65 67 65 78 70 20 | 74 6f 20 6d 61 74 63 68 |.Regexp |to match|
|00002b30| 20 74 6f 20 61 6e 20 61 | 74 74 72 69 62 75 74 65 | to an a|ttribute|
|00002b40| 20 64 65 66 69 6e 69 74 | 69 6f 6e 20 6c 69 6e 65 | definit|ion line|
|00002b50| 2e 22 29 0a 28 64 65 66 | 63 6f 6e 73 74 20 65 69 |.").(def|const ei|
|00002b60| 66 2d 72 6f 75 74 69 6e | 65 2d 72 65 67 65 78 70 |f-routin|e-regexp|
|00002b70| 20 28 63 6f 6e 63 61 74 | 20 65 69 66 2d 6d 6f 64 | (concat| eif-mod|
|00002b80| 69 66 69 65 72 2d 72 65 | 67 65 78 70 20 22 5c 5c |ifier-re|gexp "\\|
|00002b90| 28 22 20 65 69 66 2d 69 | 64 65 6e 74 69 66 69 65 |(" eif-i|dentifie|
|00002ba0| 72 20 22 5c 5c 7c 70 72 | 65 66 69 78 5b 20 09 5d |r "\\|pr|efix[ .]|
|00002bb0| 2b 5c 22 5b 5e 5c 22 20 | 5d 2b 5c 22 5c 5c 7c 69 |+\"[^\" |]+\"\\|i|
|00002bc0| 6e 66 69 78 5b 20 09 5d | 2b 5c 22 5b 5e 5c 22 20 |nfix[ .]|+\"[^\" |
|00002bd0| 5d 2b 5c 22 5c 5c 29 5b | 20 09 5d 2a 22 20 22 5c |]+\"\\)[| .]*" "\|
|00002be0| 5c 28 28 5b 5e 29 5d 2b | 29 5b 20 09 5d 2a 5c 5c |\(([^)]+|)[ .]*\\|
|00002bf0| 29 3f 5c 5c 28 3a 5b 20 | 09 5c 6e 5d 2a 22 20 65 |)?\\(:[ |.\n]*" e|
|00002c00| 69 66 2d 74 79 70 65 20 | 22 5b 20 09 5c 6e 5d 2b |if-type |"[ .\n]+|
|00002c10| 5c 5c 29 3f 69 73 5b 20 | 09 5d 2a 24 22 29 20 22 |\\)?is[ |.]*$") "|
|00002c20| 5c 0a 52 65 67 65 78 70 | 20 74 6f 20 6d 61 74 63 |\.Regexp| to matc|
|00002c30| 68 20 74 6f 20 72 6f 75 | 74 69 6e 65 20 64 65 66 |h to rou|tine def|
|00002c40| 69 6e 69 74 69 6f 6e 20 | 6c 69 6e 65 2e 0a 49 67 |inition |line..Ig|
|00002c50| 6e 6f 72 65 73 20 6f 62 | 73 6f 6c 65 74 65 20 72 |nores ob|solete r|
|00002c60| 6f 75 74 69 6e 65 73 20 | 61 6e 64 20 6d 75 6c 74 |outines |and mult|
|00002c70| 69 70 6c 65 20 72 6f 75 | 74 69 6e 65 20 64 65 66 |iple rou|tine def|
|00002c80| 69 6e 69 74 69 6f 6e 20 | 6c 69 73 74 73 2e 22 29 |inition |lists.")|
|00002c90| 0a 28 66 73 65 74 20 27 | 65 69 66 2d 61 74 74 72 |.(fset '|eif-attr|
|00002ca0| 69 62 75 74 65 2d 74 6f | 2d 72 65 67 65 78 70 20 |ibute-to|-regexp |
|00002cb0| 23 5b 28 69 64 65 6e 74 | 69 66 69 65 72 29 20 22 |#[(ident|ifier) "|
|00002cc0| c0 c1 5c 6e 21 21 87 22 | 20 5b 65 69 66 2d 67 65 |..\n!!."| [eif-ge|
|00002cd0| 74 2d 61 74 74 72 69 62 | 75 74 65 2d 64 65 66 69 |t-attrib|ute-defi|
|00002ce0| 6e 69 74 69 6f 6e 2d 72 | 65 67 65 78 70 20 72 65 |nition-r|egexp re|
|00002cf0| 67 65 78 70 2d 71 75 6f | 74 65 20 69 64 65 6e 74 |gexp-quo|te ident|
|00002d00| 69 66 69 65 72 5d 20 33 | 20 22 5c 0a 52 65 74 75 |ifier] 3| "\.Retu|
|00002d10| 72 6e 20 72 65 67 65 78 | 70 20 74 6f 20 6d 61 74 |rn regex|p to mat|
|00002d20| 63 68 20 74 6f 20 49 44 | 45 4e 54 49 46 45 52 20 |ch to ID|ENTIFER |
|00002d30| 61 74 74 72 69 62 75 74 | 65 20 64 65 66 69 6e 69 |attribut|e defini|
|00002d40| 74 69 6f 6e 2e 0a 41 74 | 74 72 69 62 75 74 65 20 |tion..At|tribute |
|00002d50| 6e 61 6d 65 20 69 73 20 | 67 72 6f 75 70 69 6e 67 |name is |grouping|
|00002d60| 20 27 65 69 66 2d 66 65 | 61 74 75 72 65 2d 6e 61 | 'eif-fe|ature-na|
|00002d70| 6d 65 2d 67 72 70 6e 27 | 2e 22 5d 29 0a 28 66 73 |me-grpn'|."]).(fs|
|00002d80| 65 74 20 27 65 69 66 2d | 72 6f 75 74 69 6e 65 2d |et 'eif-|routine-|
|00002d90| 74 6f 2d 72 65 67 65 78 | 70 20 23 5b 28 69 64 65 |to-regex|p #[(ide|
|00002da0| 6e 74 69 66 69 65 72 29 | 20 22 08 c1 c2 0b 21 c4 |ntifier)| "....!.|
|00002db0| c5 0e 06 c7 b0 07 87 22 | 20 5b 65 69 66 2d 6d 6f |......."| [eif-mo|
|00002dc0| 64 69 66 69 65 72 2d 72 | 65 67 65 78 70 20 22 5c |difier-r|egexp "\|
|00002dd0| 5c 28 22 20 72 65 67 65 | 78 70 2d 71 75 6f 74 65 |\(" rege|xp-quote|
|00002de0| 20 69 64 65 6e 74 69 66 | 69 65 72 20 22 5c 5c 29 | identif|ier "\\)|
|00002df0| 5b 20 09 5d 2a 22 20 22 | 5c 5c 28 28 5b 5e 29 5d |[ .]*" "|\\(([^)]|
|00002e00| 2b 29 5b 20 09 5c 6e 5d | 2a 5c 5c 29 3f 5c 5c 28 |+)[ .\n]|*\\)?\\(|
|00002e10| 3a 5b 20 09 5c 6e 5d 2a | 22 20 65 69 66 2d 74 79 |:[ .\n]*|" eif-ty|
|00002e20| 70 65 20 22 5b 20 09 5c | 6e 5d 2b 5c 5c 29 3f 69 |pe "[ .\|n]+\\)?i|
|00002e30| 73 5b 20 09 5d 2a 5c 5c | 28 2d 2d 2e 2a 5c 5c 29 |s[ .]*\\|(--.*\\)|
|00002e40| 3f 24 22 5d 20 37 20 22 | 5c 0a 52 65 74 75 72 6e |?$"] 7 "|\.Return|
|00002e50| 20 72 65 67 65 78 70 20 | 74 6f 20 6d 61 74 63 68 | regexp |to match|
|00002e60| 20 74 6f 20 49 44 45 4e | 54 49 46 49 45 52 27 73 | to IDEN|TIFIER's|
|00002e70| 20 72 6f 75 74 69 6e 65 | 20 64 65 66 69 6e 69 74 | routine| definit|
|00002e80| 69 6f 6e 2e 0a 52 6f 75 | 74 69 6e 65 20 6e 61 6d |ion..Rou|tine nam|
|00002e90| 65 20 69 73 20 67 72 6f | 75 70 69 6e 67 20 27 65 |e is gro|uping 'e|
|00002ea0| 69 66 2d 66 65 61 74 75 | 72 65 2d 6e 61 6d 65 2d |if-featu|re-name-|
|00002eb0| 67 72 70 6e 27 2e 20 20 | 49 67 6e 6f 72 65 20 6f |grpn'.  |Ignore o|
|00002ec0| 62 73 6f 6c 65 74 65 20 | 72 6f 75 74 69 6e 65 73 |bsolete |routines|
|00002ed0| 0a 61 6e 64 20 6d 75 6c | 74 69 70 6c 65 20 72 6f |.and mul|tiple ro|
|00002ee0| 75 74 69 6e 65 20 64 65 | 66 69 6e 69 74 69 6f 6e |utine de|finition|
|00002ef0| 20 6c 69 73 74 73 2e 22 | 5d 29 0a 28 64 65 66 63 | lists."|]).(defc|
|00002f00| 6f 6e 73 74 20 65 69 66 | 2d 6d 6f 64 69 66 69 65 |onst eif|-modifie|
|00002f10| 72 2d 67 72 70 6e 20 31 | 20 22 5c 0a 52 65 67 65 |r-grpn 1| "\.Rege|
|00002f20| 78 70 20 67 72 6f 75 70 | 69 6e 67 20 66 6f 72 20 |xp group|ing for |
|00002f30| 6c 65 61 64 69 6e 67 20 | 66 65 61 74 75 72 65 20 |leading |feature |
|00002f40| 6d 6f 64 69 66 69 65 73 | 2c 20 27 66 72 6f 7a 65 |modifies|, 'froze|
|00002f50| 6e 27 20 6f 72 20 27 65 | 78 74 65 72 6e 61 6c 27 |n' or 'e|xternal'|
|00002f60| 2e 22 29 0a 28 64 65 66 | 63 6f 6e 73 74 20 65 69 |.").(def|const ei|
|00002f70| 66 2d 66 65 61 74 75 72 | 65 2d 6e 61 6d 65 2d 67 |f-featur|e-name-g|
|00002f80| 72 70 6e 20 32 20 22 5c | 0a 52 65 67 65 78 70 20 |rpn 2 "\|.Regexp |
|00002f90| 67 72 6f 75 70 69 6e 67 | 20 66 6f 72 20 66 65 61 |grouping| for fea|
|00002fa0| 74 75 72 65 20 6e 61 6d | 65 20 66 72 6f 6d 20 28 |ture nam|e from (|
|00002fb0| 65 69 66 2d 61 74 74 72 | 69 62 75 74 65 2d 74 6f |eif-attr|ibute-to|
|00002fc0| 2d 72 65 67 65 78 70 29 | 20 6f 72 20 28 65 69 66 |-regexp)| or (eif|
|00002fd0| 2d 72 6f 75 74 69 6e 65 | 2d 74 6f 2d 72 65 67 65 |-routine|-to-rege|
|00002fe0| 78 70 29 2e 22 29 0a 28 | 64 65 66 63 6f 6e 73 74 |xp).").(|defconst|
|00002ff0| 20 65 69 66 2d 66 65 61 | 74 75 72 65 2d 61 72 67 | eif-fea|ture-arg|
|00003000| 73 2d 67 72 70 6e 20 34 | 20 22 5c 0a 52 65 67 65 |s-grpn 4| "\.Rege|
|00003010| 78 70 20 67 72 6f 75 70 | 69 6e 67 20 66 6f 72 20 |xp group|ing for |
|00003020| 66 65 61 74 75 72 65 20 | 61 72 67 20 6c 69 73 74 |feature |arg list|
|00003030| 20 66 6f 72 20 28 65 69 | 66 2d 72 6f 75 74 69 6e | for (ei|f-routin|
|00003040| 65 2d 74 6f 2d 72 65 67 | 65 78 70 29 2e 22 29 0a |e-to-reg|exp).").|
|00003050| 28 64 65 66 76 61 72 20 | 65 69 66 2d 6c 61 73 74 |(defvar |eif-last|
|00003060| 2d 63 6c 61 73 73 2d 6e | 61 6d 65 20 6e 69 6c 20 |-class-n|ame nil |
|00003070| 22 5c 0a 4c 61 73 74 20 | 63 6c 61 73 73 20 6e 61 |"\.Last |class na|
|00003080| 6d 65 20 75 73 65 64 20 | 61 73 20 70 61 72 61 6d |me used |as param|
|00003090| 65 74 65 72 20 74 6f 20 | 27 65 69 66 2d 73 74 6f |eter to |'eif-sto|
|000030a0| 72 65 2d 63 6c 61 73 73 | 2d 69 6e 66 6f 27 2e 20 |re-class|-info'. |
|000030b0| 20 56 61 6c 75 65 20 69 | 73 0a 75 73 65 64 20 62 | Value i|s.used b|
|000030c0| 79 20 27 65 69 66 2d 69 | 6e 73 65 72 74 2d 63 6c |y 'eif-i|nsert-cl|
|000030d0| 61 73 73 2d 69 6e 66 6f | 27 2e 22 29 0a 28 64 65 |ass-info|'.").(de|
|000030e0| 66 76 61 72 20 65 69 66 | 2d 61 74 74 72 69 62 75 |fvar eif|-attribu|
|000030f0| 74 65 73 2d 61 6e 64 2d | 72 6f 75 74 69 6e 65 73 |tes-and-|routines|
|00003100| 20 6e 69 6c 20 22 5c 0a | 43 6c 61 73 73 20 64 61 | nil "\.|Class da|
|00003110| 74 61 20 73 74 6f 72 65 | 64 20 62 79 20 27 65 69 |ta store|d by 'ei|
|00003120| 66 2d 73 74 6f 72 65 2d | 63 6c 61 73 73 2d 69 6e |f-store-|class-in|
|00003130| 66 6f 27 20 66 6f 72 20 | 75 73 65 20 62 79 20 27 |fo' for |use by '|
|00003140| 65 69 66 2d 69 6e 73 65 | 72 74 2d 63 6c 61 73 73 |eif-inse|rt-class|
|00003150| 2d 69 6e 66 6f 27 2e 22 | 29 0a 28 64 65 66 63 6f |-info'."|).(defco|
|00003160| 6e 73 74 20 65 69 66 2d | 74 6d 70 2d 69 6e 66 6f |nst eif-|tmp-info|
|00003170| 2d 66 69 6c 65 20 22 2f | 74 6d 70 2f 65 69 66 2d |-file "/|tmp/eif-|
|00003180| 73 68 6f 72 74 22 20 22 | 5c 0a 54 65 6d 70 6f 72 |short" "|\.Tempor|
|00003190| 61 72 79 20 66 69 6c 65 | 20 75 73 65 64 20 74 6f |ary file| used to|
|000031a0| 20 68 6f 6c 64 20 45 69 | 66 66 65 6c 20 63 6c 61 | hold Ei|ffel cla|
|000031b0| 73 73 20 69 6e 66 6f 2e | 22 29 0a 28 70 72 6f 76 |ss info.|").(prov|
|000031c0| 69 64 65 20 27 65 69 66 | 2d 63 61 6c 6c 73 29 0a |ide 'eif|-calls).|
+--------+-------------------------+-------------------------+--------+--------+