home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-10-16 | 4.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: ';;; Source file'
| default (weak)
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 3b 3b 20 53 6f 75 72 | 63 65 20 66 69 6c 65 3a |;;; Sour|ce file:|
|00000010| 20 2f 75 73 72 2f 6c 6f | 63 61 6c 2f 6c 69 62 2f | /usr/lo|cal/lib/|
|00000020| 6a 61 64 65 2f 33 2e 32 | 2f 6c 69 73 70 2f 63 6f |jade/3.2|/lisp/co|
|00000030| 6d 70 69 6c 65 2e 6a 6c | 0a 3b 3b 3b 20 43 6f 6d |mpile.jl|.;;; Com|
|00000040| 70 69 6c 65 64 20 62 79 | 20 6a 73 68 40 6f 72 63 |piled by| jsh@orc|
|00000050| 72 69 73 74 20 6f 6e 20 | 53 75 6e 20 4f 63 74 20 |rist on |Sun Oct |
|00000060| 31 36 20 32 30 3a 32 31 | 3a 32 34 20 31 39 39 34 |16 20:21|:24 1994|
|00000070| 0a 3b 3b 3b 20 4a 61 64 | 65 20 33 2e 32 0a 0a 28 |.;;; Jad|e 3.2..(|
|00000080| 70 72 6f 76 69 64 65 20 | 28 71 75 6f 74 65 20 63 |provide |(quote c|
|00000090| 6f 6d 70 69 6c 65 29 29 | 0a 0a 28 73 65 74 71 20 |ompile))|..(setq |
|000000a0| 67 63 63 2d 65 72 72 6f | 72 2d 72 65 67 65 78 70 |gcc-erro|r-regexp|
|000000b0| 20 22 5e 28 2e 2a 29 3a | 28 5b 30 2d 39 5d 2b 29 | "^(.*):|([0-9]+)|
|000000c0| 3a 28 2e 2b 29 22 20 67 | 63 63 2d 66 69 6c 65 2d |:(.+)" g|cc-file-|
|000000d0| 65 78 70 61 6e 64 20 22 | 5c 5c 31 22 20 67 63 63 |expand "|\\1" gcc|
|000000e0| 2d 6c 69 6e 65 2d 65 78 | 70 61 6e 64 20 22 5c 5c |-line-ex|pand "\\|
|000000f0| 32 22 20 67 63 63 2d 65 | 72 72 6f 72 2d 65 78 70 |2" gcc-e|rror-exp|
|00000100| 61 6e 64 20 22 5c 5c 33 | 22 29 0a 0a 28 64 65 66 |and "\\3|")..(def|
|00000110| 76 61 72 20 63 6f 6d 70 | 69 6c 65 2d 65 72 72 6f |var comp|ile-erro|
|00000120| 72 2d 72 65 67 65 78 70 | 20 67 63 63 2d 65 72 72 |r-regexp| gcc-err|
|00000130| 6f 72 2d 72 65 67 65 78 | 70 20 39 33 38 32 32 29 |or-regex|p 93822)|
|00000140| 0a 0a 28 64 65 66 76 61 | 72 20 63 6f 6d 70 69 6c |..(defva|r compil|
|00000150| 65 2d 66 69 6c 65 2d 65 | 78 70 61 6e 64 20 67 63 |e-file-e|xpand gc|
|00000160| 63 2d 66 69 6c 65 2d 65 | 78 70 61 6e 64 20 39 33 |c-file-e|xpand 93|
|00000170| 38 38 31 29 0a 0a 28 64 | 65 66 76 61 72 20 63 6f |881)..(d|efvar co|
|00000180| 6d 70 69 6c 65 2d 6c 69 | 6e 65 2d 65 78 70 61 6e |mpile-li|ne-expan|
|00000190| 64 20 67 63 63 2d 6c 69 | 6e 65 2d 65 78 70 61 6e |d gcc-li|ne-expan|
|000001a0| 64 20 39 33 39 37 32 29 | 0a 0a 28 64 65 66 76 61 |d 93972)|..(defva|
|000001b0| 72 20 63 6f 6d 70 69 6c | 65 2d 65 72 72 6f 72 2d |r compil|e-error-|
|000001c0| 65 78 70 61 6e 64 20 67 | 63 63 2d 65 72 72 6f 72 |expand g|cc-error|
|000001d0| 2d 65 78 70 61 6e 64 20 | 39 34 30 35 38 29 0a 0a |-expand |94058)..|
|000001e0| 28 64 65 66 76 61 72 20 | 63 6f 6d 70 69 6c 65 2d |(defvar |compile-|
|000001f0| 6b 65 79 6d 61 70 20 28 | 6d 61 6b 65 2d 6b 65 79 |keymap (|make-key|
|00000200| 6c 69 73 74 29 29 0a 0a | 28 6a 61 64 65 2d 62 79 |list))..|(jade-by|
|00000210| 74 65 2d 63 6f 64 65 20 | 22 10 78 ff 00 1a 11 1a |te-code |".x.....|
|00000220| 13 14 15 16 06 16 07 16 | 08 16 09 16 0a 16 0b 16 |........|........|
|00000230| 0c 0e 0b 22 20 5b 63 6f | 6d 70 69 6c 65 2d 62 75 |..." [co|mpile-bu|
|00000240| 66 66 65 72 20 62 69 6e | 64 2d 6b 65 79 73 20 63 |ffer bin|d-keys c|
|00000250| 6f 6d 70 69 6c 65 2d 6b | 65 79 6d 61 70 20 22 43 |ompile-k|eymap "C|
|00000260| 74 72 6c 2d 63 22 20 6b | 69 6c 6c 2d 63 6f 6d 70 |trl-c" k|ill-comp|
|00000270| 69 6c 61 74 69 6f 6e 20 | 22 43 74 72 6c 2d 7a 22 |ilation |"Ctrl-z"|
|00000280| 20 73 74 6f 70 2d 63 6f | 6d 70 69 6c 61 74 69 6f | stop-co|mpilatio|
|00000290| 6e 20 22 43 74 72 6c 2d | 66 22 20 63 6f 6e 74 69 |n "Ctrl-|f" conti|
|000002a0| 6e 75 65 2d 63 6f 6d 70 | 69 6c 61 74 69 6f 6e 20 |nue-comp|ilation |
|000002b0| 22 72 22 20 28 73 74 61 | 72 74 2d 63 6f 6d 70 69 |"r" (sta|rt-compi|
|000002c0| 6c 65 2d 63 6f 6d 6d 61 | 6e 64 20 63 6f 6d 70 69 |le-comma|nd compi|
|000002d0| 6c 65 2d 64 65 66 61 75 | 6c 74 2d 63 6d 64 20 63 |le-defau|lt-cmd c|
|000002e0| 6f 6d 70 69 6c 65 2d 74 | 79 70 65 2d 73 74 72 29 |ompile-t|ype-str)|
|000002f0| 20 22 43 74 72 6c 2d 72 | 22 20 63 6f 6d 70 69 6c | "Ctrl-r|" compil|
|00000300| 65 5d 20 31 32 29 0a 0a | 28 64 65 66 76 61 72 20 |e] 12)..|(defvar |
|00000310| 63 6f 6d 70 69 6c 65 2d | 62 75 66 66 65 72 20 6e |compile-|buffer n|
|00000320| 69 6c 29 0a 0a 28 64 65 | 66 76 61 72 20 63 6f 6d |il)..(de|fvar com|
|00000330| 70 69 6c 65 2d 70 72 6f | 63 20 6e 69 6c 29 0a 0a |pile-pro|c nil)..|
|00000340| 28 64 65 66 76 61 72 20 | 63 6f 6d 70 69 6c 65 2d |(defvar |compile-|
|00000350| 65 72 72 6f 72 73 20 6e | 69 6c 20 39 34 31 35 30 |errors n|il 94150|
|00000360| 29 0a 0a 28 64 65 66 76 | 61 72 20 63 6f 6d 70 69 |)..(defv|ar compi|
|00000370| 6c 65 2d 65 72 72 6f 72 | 2d 70 6f 73 20 6e 69 6c |le-error|-pos nil|
|00000380| 29 0a 0a 28 64 65 66 76 | 61 72 20 63 6f 6d 70 69 |)..(defv|ar compi|
|00000390| 6c 65 2d 74 79 70 65 2d | 73 74 72 20 6e 69 6c 29 |le-type-|str nil)|
|000003a0| 0a 0a 28 64 65 66 76 61 | 72 20 63 6f 6d 70 69 6c |..(defva|r compil|
|000003b0| 65 2d 65 72 72 6f 72 2d | 70 61 72 73 65 64 2d 65 |e-error-|parsed-e|
|000003c0| 72 72 6f 72 73 2d 70 20 | 6e 69 6c 29 0a 0a 28 64 |rrors-p |nil)..(d|
|000003d0| 65 66 76 61 72 20 63 6f | 6d 70 69 6c 65 2d 65 72 |efvar co|mpile-er|
|000003e0| 72 6f 72 73 2d 65 78 69 | 73 74 2d 70 20 6e 69 6c |rors-exi|st-p nil|
|000003f0| 29 0a 0a 28 64 65 66 76 | 61 72 20 63 6f 6d 70 69 |)..(defv|ar compi|
|00000400| 6c 65 2d 64 65 66 61 75 | 6c 74 2d 63 6d 64 20 22 |le-defau|lt-cmd "|
|00000410| 6d 61 6b 65 22 20 39 34 | 31 39 33 29 0a 0a 28 64 |make" 94|193)..(d|
|00000420| 65 66 76 61 72 20 63 6f | 6d 70 69 6c 65 2d 63 6f |efvar co|mpile-co|
|00000430| 6d 6d 61 6e 64 20 6e 69 | 6c 20 39 34 32 39 32 29 |mmand ni|l 94292)|
|00000440| 0a 0a 28 6d 61 6b 65 2d | 76 61 72 69 61 62 6c 65 |..(make-|variable|
|00000450| 2d 62 75 66 66 65 72 2d | 6c 6f 63 61 6c 20 28 71 |-buffer-|local (q|
|00000460| 75 6f 74 65 20 63 6f 6d | 70 69 6c 65 2d 63 6f 6d |uote com|pile-com|
|00000470| 6d 61 6e 64 29 29 0a 0a | 28 64 65 66 76 61 72 20 |mand))..|(defvar |
|00000480| 63 6f 6d 70 69 6c 65 2d | 73 68 65 6c 6c 20 28 75 |compile-|shell (u|
|00000490| 6e 6c 65 73 73 20 28 67 | 65 74 65 6e 76 20 22 53 |nless (g|etenv "S|
|000004a0| 48 45 4c 4c 22 29 20 22 | 2f 62 69 6e 2f 73 68 22 |HELL") "|/bin/sh"|
|000004b0| 29 20 39 34 34 30 38 29 | 0a 0a 28 64 65 66 75 6e |) 94408)|..(defun|
|000004c0| 20 63 6f 6d 70 69 6c 65 | 2d 69 6e 69 74 20 6e 69 | compile|-init ni|
|000004d0| 6c 20 28 6a 61 64 65 2d | 62 79 74 65 2d 63 6f 64 |l (jade-|byte-cod|
|000004e0| 65 20 22 18 fc 00 0a 11 | 18 09 fb 00 1e 12 13 09 |e ".....|........|
|000004f0| 46 20 48 18 b1 1c 46 25 | 47 b1 48 48 16 06 18 4a |F H...F%|G.HH...J|
|00000500| 0a 48 18 fe 00 44 16 07 | 18 09 48 16 08 18 16 09 |.H...D..|..H.....|
|00000510| 16 0a 08 09 0a 48 49 26 | 0b 49 26 0c 49 26 0d 16 |.....HI&|.I&.I&..|
|00000520| 0e 08 46 26 0f 48 4a 22 | 20 5b 63 6f 6d 70 69 6c |..F&.HJ"| [compil|
|00000530| 65 2d 62 75 66 66 65 72 | 20 63 6c 65 61 72 2d 62 |e-buffer| clear-b|
|00000540| 75 66 66 65 72 20 6d 61 | 6b 65 2d 62 75 66 66 65 |uffer ma|ke-buffe|
|00000550| 72 20 22 2a 63 6f 6d 70 | 69 6c 61 74 69 6f 6e 2a |r "*comp|ilation*|
|00000560| 22 20 63 6f 6d 70 69 6c | 65 2d 6b 65 79 6d 61 70 |" compil|e-keymap|
|00000570| 20 63 74 72 6c 2d 63 2d | 6b 65 79 6d 61 70 20 73 | ctrl-c-|keymap s|
|00000580| 65 74 2d 62 75 66 66 65 | 72 2d 73 70 65 63 69 61 |et-buffe|r-specia|
|00000590| 6c 20 61 64 64 2d 62 75 | 66 66 65 72 20 73 65 74 |l add-bu|ffer set|
|000005a0| 2d 62 75 66 66 65 72 2d | 66 69 6c 65 2d 6e 61 6d |-buffer-|file-nam|
|000005b0| 65 20 66 69 6c 65 2d 6e | 61 6d 65 2d 64 69 72 65 |e file-n|ame-dire|
|000005c0| 63 74 6f 72 79 20 62 75 | 66 66 65 72 2d 66 69 6c |ctory bu|ffer-fil|
|000005d0| 65 2d 6e 61 6d 65 20 63 | 6f 6d 70 69 6c 65 2d 65 |e-name c|ompile-e|
|000005e0| 72 72 6f 72 73 20 63 6f | 6d 70 69 6c 65 2d 70 61 |rrors co|mpile-pa|
|000005f0| 72 73 65 64 2d 65 72 72 | 6f 72 73 2d 70 20 63 6f |rsed-err|ors-p co|
|00000600| 6d 70 69 6c 65 2d 65 72 | 72 6f 72 73 2d 65 78 69 |mpile-er|rors-exi|
|00000610| 73 74 73 2d 70 20 62 75 | 66 66 65 72 2d 73 74 61 |sts-p bu|ffer-sta|
|00000620| 72 74 20 63 6f 6d 70 69 | 6c 65 2d 65 72 72 6f 72 |rt compi|le-error|
|00000630| 2d 70 6f 73 5d 20 34 29 | 29 0a 0a 28 64 65 66 75 |-pos] 4)|)..(defu|
|00000640| 6e 20 63 6f 6d 70 69 6c | 65 2d 63 61 6c 6c 62 61 |n compil|e-callba|
|00000650| 63 6b 20 6e 69 6c 20 28 | 6a 61 64 65 2d 62 79 74 |ck nil (|jade-byt|
|00000660| 65 2d 63 6f 64 65 20 22 | 18 fe 00 59 11 18 09 fc |e-code "|...Y....|
|00000670| 00 13 12 1b 4a 4b 14 0a | fb 00 59 15 18 09 fc 00 |....JK..|..Y.....|
|00000680| 23 12 1b 4a 4b 16 06 0a | fb 00 59 4a fc 00 58 16 |#..JK...|..YJ..X.|
|00000690| 07 08 48 16 08 18 09 fc | 00 43 16 09 1b 4a 4b 16 |..H.....|.C...JK.|
|000006a0| 0a 16 0b 16 08 18 09 0c | fb 00 51 16 09 1b 4a 4b |........|..Q...JK|
|000006b0| 16 0c 16 0d 16 0e 18 09 | 0c 48 49 46 20 fb 00 59 |........|.HIF ..Y|
|000006c0| 49 22 20 5b 63 6f 6d 70 | 69 6c 65 2d 70 72 6f 63 |I" [comp|ile-proc|
|000006d0| 20 70 72 6f 63 65 73 73 | 2d 73 74 6f 70 70 65 64 | process|-stopped|
|000006e0| 2d 70 20 77 72 69 74 65 | 20 63 6f 6d 70 69 6c 65 |-p write| compile|
|000006f0| 2d 62 75 66 66 65 72 20 | 22 43 6f 6d 70 69 6c 61 |-buffer |"Compila|
|00000700| 74 69 6f 6e 20 73 75 73 | 70 65 6e 64 65 64 2e 2e |tion sus|pended..|
|00000710| 2e 22 20 70 72 6f 63 65 | 73 73 2d 72 75 6e 6e 69 |." proce|ss-runni|
|00000720| 6e 67 2d 70 20 22 72 65 | 73 74 61 72 74 65 64 0a |ng-p "re|started.|
|00000730| 22 20 62 65 65 70 20 70 | 72 6f 63 65 73 73 2d 65 |" beep p|rocess-e|
|00000740| 78 69 74 2d 76 61 6c 75 | 65 20 66 6f 72 6d 61 74 |xit-valu|e format|
|00000750| 20 22 0a 25 73 25 64 0a | 22 20 22 43 6f 6d 70 69 | ".%s%d.|" "Compi|
|00000760| 6c 61 74 69 6f 6e 20 65 | 78 69 74 65 64 20 77 69 |lation e|xited wi|
|00000770| 74 68 20 76 61 6c 75 65 | 20 22 20 22 0a 25 73 25 |th value| " ".%s%|
|00000780| 78 0a 22 20 22 43 6f 6d | 70 69 6c 61 74 69 6f 6e |x." "Com|pilation|
|00000790| 20 65 78 69 74 65 64 20 | 61 62 6e 6f 72 6d 61 6c | exited |abnormal|
|000007a0| 6c 79 3a 20 73 74 61 74 | 75 73 20 30 78 22 20 70 |ly: stat|us 0x" p|
|000007b0| 72 6f 63 65 73 73 2d 65 | 78 69 74 2d 73 74 61 74 |rocess-e|xit-stat|
|000007c0| 75 73 5d 20 36 29 29 0a | 0a 28 64 65 66 75 6e 20 |us] 6)).|.(defun |
|000007d0| 73 74 61 72 74 2d 63 6f | 6d 70 69 6c 65 2d 63 6f |start-co|mpile-co|
|000007e0| 6d 6d 61 6e 64 20 28 63 | 6f 6d 6d 61 6e 64 20 74 |mmand (c|ommand t|
|000007f0| 79 70 65 2d 73 74 72 29 | 20 39 34 34 36 38 20 28 |ype-str)| 94468 (|
|00000800| 6a 61 64 65 2d 62 79 74 | 65 2d 63 6f 64 65 20 22 |jade-byt|e-code "|
|00000810| 18 fc 00 0a 11 12 09 fb | 00 4e 13 08 48 14 08 48 |........|.N..H..H|
|00000820| 15 1e 06 09 48 16 07 1e | 06 4a 4b 16 08 16 09 16 |....H...|.JK.....|
|00000830| 0a 08 09 0b 46 20 48 44 | 16 0b 1e 0c 16 0d 0a 36 |....F HD|.......6|
|00000840| 0e 16 0f 1e 06 1e 0e 0a | 48 16 10 18 1e 11 16 12 |........|H.......|
|00000850| 1e 0e 0c fe 00 4d 1e 13 | 46 26 14 48 18 45 22 20 |.....M..|F&.H.E" |
|00000860| 5b 63 6f 6d 70 69 6c 65 | 2d 70 72 6f 63 20 65 72 |[compile|-proc er|
|00000870| 72 6f 72 20 22 43 6f 6d | 70 69 6c 61 74 69 6f 6e |ror "Com|pilation|
|00000880| 20 70 72 6f 63 65 73 73 | 20 61 6c 72 65 61 64 79 | process| already|
|00000890| 20 72 75 6e 6e 69 6e 67 | 22 20 73 61 76 65 2d 73 | running|" save-s|
|000008a0| 6f 6d 65 2d 62 75 66 66 | 65 72 73 20 63 6f 6d 70 |ome-buff|ers comp|
|000008b0| 69 6c 65 2d 69 6e 69 74 | 20 67 6f 74 6f 2d 62 75 |ile-init| goto-bu|
|000008c0| 66 66 65 72 20 63 6f 6d | 70 69 6c 65 2d 62 75 66 |ffer com|pile-buf|
|000008d0| 66 65 72 20 6d 61 6b 65 | 2d 70 72 6f 63 65 73 73 |fer make|-process|
|000008e0| 20 63 6f 6d 70 69 6c 65 | 2d 63 61 6c 6c 62 61 63 | compile|-callbac|
|000008f0| 6b 20 66 69 6c 65 2d 6e | 61 6d 65 2d 64 69 72 65 |k file-n|ame-dire|
|00000900| 63 74 6f 72 79 20 62 75 | 66 66 65 72 2d 66 69 6c |ctory bu|ffer-fil|
|00000910| 65 2d 6e 61 6d 65 20 63 | 6f 6e 63 61 74 20 63 6f |e-name c|oncat co|
|00000920| 6d 6d 61 6e 64 20 31 30 | 20 73 68 65 6c 6c 2d 63 |mmand 10| shell-c|
|00000930| 6d 64 20 77 72 69 74 65 | 20 73 74 61 72 74 2d 70 |md write| start-p|
|00000940| 72 6f 63 65 73 73 20 63 | 6f 6d 70 69 6c 65 2d 73 |rocess c|ompile-s|
|00000950| 68 65 6c 6c 20 22 2d 63 | 22 20 74 79 70 65 2d 73 |hell "-c|" type-s|
|00000960| 74 72 20 63 6f 6d 70 69 | 6c 65 2d 74 79 70 65 2d |tr compi|le-type-|
|00000970| 73 74 72 5d 20 35 29 29 | 0a 0a 28 64 65 66 75 6e |str] 5))|..(defun|
|00000980| 20 6b 69 6c 6c 2d 63 6f | 6d 70 69 6c 61 74 69 6f | kill-co|mpilatio|
|00000990| 6e 20 6e 69 6c 20 28 69 | 6e 74 65 72 61 63 74 69 |n nil (i|nteracti|
|000009a0| 76 65 29 20 28 6a 61 64 | 65 2d 62 79 74 65 2d 63 |ve) (jad|e-byte-c|
|000009b0| 6f 64 65 20 22 18 fe 00 | 08 11 18 4a 0a 22 20 5b |ode "...|...J." [|
|000009c0| 63 6f 6d 70 69 6c 65 2d | 70 72 6f 63 20 69 6e 74 |compile-|proc int|
|000009d0| 65 72 72 75 70 74 2d 70 | 72 6f 63 65 73 73 5d 20 |errupt-p|rocess] |
|000009e0| 33 29 29 0a 0a 28 64 65 | 66 75 6e 20 73 74 6f 70 |3))..(de|fun stop|
|000009f0| 2d 63 6f 6d 70 69 6c 61 | 74 69 6f 6e 20 6e 69 6c |-compila|tion nil|
|00000a00| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 29 20 28 | (intera|ctive) (|
|00000a10| 6a 61 64 65 2d 62 79 74 | 65 2d 63 6f 64 65 20 22 |jade-byt|e-code "|
|00000a20| 10 19 09 fe 00 0a 12 19 | 4a 0a 22 20 5b 70 72 6f |........|J." [pro|
|00000a30| 63 65 73 73 2d 72 75 6e | 6e 69 6e 67 2d 70 20 63 |cess-run|ning-p c|
|00000a40| 6f 6d 70 69 6c 65 2d 70 | 72 6f 63 20 73 74 6f 70 |ompile-p|roc stop|
|00000a50| 2d 70 72 6f 63 65 73 73 | 5d 20 33 29 29 0a 0a 28 |-process|] 3))..(|
|00000a60| 64 65 66 75 6e 20 63 6f | 6e 74 69 6e 75 65 2d 63 |defun co|ntinue-c|
|00000a70| 6f 6d 70 69 6c 61 74 69 | 6f 6e 20 6e 69 6c 20 28 |ompilati|on nil (|
|00000a80| 69 6e 74 65 72 61 63 74 | 69 76 65 29 20 28 6a 61 |interact|ive) (ja|
|00000a90| 64 65 2d 62 79 74 65 2d | 63 6f 64 65 20 22 10 19 |de-byte-|code "..|
|00000aa0| 09 fe 00 0a 12 19 4a 0a | 22 20 5b 70 72 6f 63 65 |......J.|" [proce|
|00000ab0| 73 73 2d 73 74 6f 70 70 | 65 64 2d 70 20 63 6f 6d |ss-stopp|ed-p com|
|00000ac0| 70 69 6c 65 2d 70 72 6f | 63 20 63 6f 6e 74 69 6e |pile-pro|c contin|
|00000ad0| 75 65 2d 70 72 6f 63 65 | 73 73 5d 20 33 29 29 0a |ue-proce|ss] 3)).|
|00000ae0| 0a 28 64 65 66 75 6e 20 | 63 6f 6d 70 69 6c 65 20 |.(defun |compile |
|00000af0| 28 26 6f 70 74 69 6f 6e | 61 6c 20 73 68 65 6c 6c |(&option|al shell|
|00000b00| 2d 63 6f 6d 6d 61 6e 64 | 29 20 39 34 37 36 35 20 |-command|) 94765 |
|00000b10| 28 69 6e 74 65 72 61 63 | 74 69 76 65 29 20 28 6a |(interac|tive) (j|
|00000b20| 61 64 65 2d 62 79 74 65 | 2d 63 6f 64 65 20 22 18 |ade-byte|-code ".|
|00000b30| ff 00 10 19 ff 00 0e 12 | 13 1c 0a 46 24 46 20 48 |........|...F$F H|
|00000b40| 18 fe 00 1a 15 18 16 06 | 0a 22 20 5b 73 68 65 6c |........|." [shel|
|00000b50| 6c 2d 63 6f 6d 6d 61 6e | 64 20 63 6f 6d 70 69 6c |l-comman|d compil|
|00000b60| 65 2d 63 6f 6d 6d 61 6e | 64 20 70 72 6f 6d 70 74 |e-comman|d prompt|
|00000b70| 20 22 43 6f 6d 70 69 6c | 65 20 63 6f 6d 6d 61 6e | "Compil|e comman|
|00000b80| 64 3a 20 22 20 63 6f 6d | 70 69 6c 65 2d 64 65 66 |d: " com|pile-def|
|00000b90| 61 75 6c 74 2d 63 6d 64 | 20 73 74 61 72 74 2d 63 |ault-cmd| start-c|
|00000ba0| 6f 6d 70 69 6c 65 2d 63 | 6f 6d 6d 61 6e 64 20 22 |ompile-c|ommand "|
|00000bb0| 65 72 72 6f 72 73 22 5d | 20 33 29 29 0a 0a 28 64 |errors"]| 3))..(d|
|00000bc0| 65 66 75 6e 20 63 6f 6d | 70 69 6c 65 2d 70 61 72 |efun com|pile-par|
|00000bd0| 73 65 2d 65 72 72 6f 72 | 73 20 6e 69 6c 20 28 6a |se-error|s nil (j|
|00000be0| 61 64 65 2d 62 79 74 65 | 2d 63 6f 64 65 20 22 18 |ade-byte|-code ".|
|00000bf0| ff 00 a0 19 b1 44 49 32 | 49 33 49 34 49 35 49 36 |.....DI2|I3I4I5I6|
|00000c00| 06 16 07 1e 08 1e 09 0a | 46 26 09 fe 00 7f 16 0a |........|F&......|
|00000c10| 16 0b 1e 08 1e 0c 1e 09 | 0b 09 69 46 23 48 1c 5d |........|..iF#H.]|
|00000c20| ff 00 37 1b 1c 63 fe 00 | 74 1b 24 16 0d 16 0e 08 |..7..c..|t.$.....|
|00000c30| 16 0b 1e 08 1e 0f 1e 09 | 0b 0a 46 5c 22 48 1d 1a |........|..F\"H..|
|00000c40| 60 fc 00 5a 1d 46 5c 22 | fb 00 5d 1a 46 25 48 16 |`..Z.F\"|..].F%H.|
|00000c50| 10 16 11 16 12 1b 0a 1a | 0a 16 13 1e 09 09 4b 1e |........|......K.|
|00000c60| 06 4b 46 26 06 48 16 14 | 08 46 26 09 48 fb 00 12 |.KF&.H..|.F&.H...|
|00000c70| 48 1e 06 fe 00 93 16 15 | 1e 16 1e 06 80 0a 26 16 |H.......|......&.|
|00000c80| 4a 46 26 17 45 47 b1 48 | 48 1e 18 ff 00 a0 4a 46 |JF&.EG.H|H.....JF|
|00000c90| 20 48 4a 22 20 5b 63 6f | 6d 70 69 6c 65 2d 70 61 | HJ" [co|mpile-pa|
|00000ca0| 72 73 65 64 2d 65 72 72 | 6f 72 73 2d 70 20 63 6f |rsed-err|ors-p co|
|00000cb0| 6d 70 69 6c 65 2d 62 75 | 66 66 65 72 20 65 72 72 |mpile-bu|ffer err|
|00000cc0| 6f 72 2d 66 69 6c 65 20 | 65 72 72 6f 72 2d 6c 69 |or-file |error-li|
|00000cd0| 6e 65 20 6c 61 73 74 2d | 65 2d 6c 69 6e 65 20 6c |ne last-|e-line l|
|00000ce0| 61 73 74 2d 65 2d 66 69 | 6c 65 20 6e 65 77 2d 65 |ast-e-fi|le new-e|
|00000cf0| 72 72 6f 72 73 20 66 69 | 6e 64 2d 6e 65 78 74 2d |rrors fi|nd-next-|
|00000d00| 72 65 67 65 78 70 20 63 | 6f 6d 70 69 6c 65 2d 65 |regexp c|ompile-e|
|00000d10| 72 72 6f 72 2d 72 65 67 | 65 78 70 20 63 6f 6d 70 |rror-reg|exp comp|
|00000d20| 69 6c 65 2d 65 72 72 6f | 72 2d 70 6f 73 20 72 65 |ile-erro|r-pos re|
|00000d30| 61 64 2d 66 72 6f 6d 2d | 73 74 72 69 6e 67 20 72 |ad-from-|string r|
|00000d40| 65 67 65 78 70 2d 65 78 | 70 61 6e 64 2d 6c 69 6e |egexp-ex|pand-lin|
|00000d50| 65 20 63 6f 6d 70 69 6c | 65 2d 6c 69 6e 65 2d 65 |e compil|e-line-e|
|00000d60| 78 70 61 6e 64 20 66 69 | 6c 65 2d 6e 61 6d 65 2d |xpand fi|le-name-|
|00000d70| 63 6f 6e 63 61 74 20 62 | 75 66 66 65 72 2d 66 69 |concat b|uffer-fi|
|00000d80| 6c 65 2d 6e 61 6d 65 20 | 63 6f 6d 70 69 6c 65 2d |le-name |compile-|
|00000d90| 66 69 6c 65 2d 65 78 70 | 61 6e 64 20 6d 61 6b 65 |file-exp|and make|
|00000da0| 2d 6d 61 72 6b 20 70 6f | 73 20 30 20 70 6f 73 2d |-mark po|s 0 pos-|
|00000db0| 6c 69 6e 65 20 6d 61 74 | 63 68 2d 65 6e 64 20 6e |line mat|ch-end n|
|00000dc0| 63 6f 6e 63 20 63 6f 6d | 70 69 6c 65 2d 65 72 72 |conc com|pile-err|
|00000dd0| 6f 72 73 20 63 6f 6d 70 | 69 6c 65 2d 65 72 72 6f |ors comp|ile-erro|
|00000de0| 72 73 2d 65 78 69 73 74 | 2d 70 20 63 6f 6d 70 69 |rs-exist|-p compi|
|00000df0| 6c 65 2d 70 72 6f 63 5d | 20 37 29 29 0a 0a 28 64 |le-proc]| 7))..(d|
|00000e00| 65 66 75 6e 20 6e 65 78 | 74 2d 65 72 72 6f 72 20 |efun nex|t-error |
|00000e10| 6e 69 6c 20 39 34 38 39 | 36 20 28 69 6e 74 65 72 |nil 9489|6 (inter|
|00000e20| 61 63 74 69 76 65 29 20 | 28 6a 61 64 65 2d 62 79 |active) |(jade-by|
|00000e30| 74 65 2d 63 6f 64 65 20 | 22 10 08 48 44 19 4c 32 |te-code |"..HD.L2|
|00000e40| 19 4d 46 21 48 1a 5d fc | 00 2f 13 14 15 1e 06 fe |.MF!H.].|./......|
|00000e50| 00 1b 16 07 1e 08 1e 09 | fe 00 24 16 0a 0c 09 48 |........|..$....H|
|00000e60| 16 0b 08 48 49 fb 00 56 | 4a fc 00 55 16 0c 1a 4c |...HI..V|J..U...L|
|00000e70| 09 48 1a 4d fe 00 50 13 | 16 0d 1e 0e 1e 0f 16 10 |.H.M..P.|........|
|00000e80| 16 11 1a 4d 0a 1e 12 0c | 09 48 4a fb 00 56 49 45 |...M....|.HJ..VIE|
|00000e90| 22 20 5b 63 6f 6d 70 69 | 6c 65 2d 70 61 72 73 65 |" [compi|le-parse|
|00000ea0| 2d 65 72 72 6f 72 73 20 | 63 6f 6d 70 69 6c 65 2d |-errors |compile-|
|00000eb0| 65 72 72 6f 72 73 20 65 | 72 72 20 6d 65 73 73 61 |errors e|rr messa|
|00000ec0| 67 65 20 63 6f 6e 63 61 | 74 20 22 4e 6f 20 22 20 |ge conca|t "No " |
|00000ed0| 63 6f 6d 70 69 6c 65 2d | 65 72 72 6f 72 73 2d 65 |compile-|errors-e|
|00000ee0| 78 69 73 74 2d 70 20 22 | 6d 6f 72 65 20 22 20 63 |xist-p "|more " c|
|00000ef0| 6f 6d 70 69 6c 65 2d 74 | 79 70 65 2d 73 74 72 20 |ompile-t|ype-str |
|00000f00| 63 6f 6d 70 69 6c 65 2d | 70 72 6f 63 20 22 20 79 |compile-|proc " y|
|00000f10| 65 74 22 20 62 65 65 70 | 20 67 6f 74 6f 2d 6d 61 |et" beep| goto-ma|
|00000f20| 72 6b 20 72 65 67 65 78 | 70 2d 65 78 70 61 6e 64 |rk regex|p-expand|
|00000f30| 2d 6c 69 6e 65 20 63 6f | 6d 70 69 6c 65 2d 65 72 |-line co|mpile-er|
|00000f40| 72 6f 72 2d 72 65 67 65 | 78 70 20 63 6f 6d 70 69 |ror-rege|xp compi|
|00000f50| 6c 65 2d 65 72 72 6f 72 | 2d 65 78 70 61 6e 64 20 |le-error|-expand |
|00000f60| 70 6f 73 20 30 20 63 6f | 6d 70 69 6c 65 2d 62 75 |pos 0 co|mpile-bu|
|00000f70| 66 66 65 72 5d 20 37 29 | 29 0a 0a 28 64 65 66 75 |ffer] 7)|)..(defu|
|00000f80| 6e 20 67 72 65 70 20 28 | 61 72 67 73 2d 73 74 72 |n grep (|args-str|
|00000f90| 69 6e 67 29 20 39 34 39 | 39 33 20 28 69 6e 74 65 |ing) 949|93 (inte|
|00000fa0| 72 61 63 74 69 76 65 20 | 22 73 47 72 65 70 20 77 |ractive |"sGrep w|
|00000fb0| 69 74 68 20 61 72 67 73 | 3a 22 29 20 28 6a 61 64 |ith args|:") (jad|
|00000fc0| 65 2d 62 79 74 65 2d 63 | 6f 64 65 20 22 18 fe 00 |e-byte-c|ode "...|
|00000fd0| 0c 11 12 13 18 14 0b 15 | 0a 22 20 5b 61 72 67 73 |........|." [args|
|00000fe0| 2d 73 74 72 69 6e 67 20 | 73 74 61 72 74 2d 63 6f |-string |start-co|
|00000ff0| 6d 70 69 6c 65 2d 63 6f | 6d 6d 61 6e 64 20 63 6f |mpile-co|mmand co|
|00001000| 6e 63 61 74 20 22 67 72 | 65 70 20 2d 6e 20 22 20 |ncat "gr|ep -n " |
|00001010| 22 20 2f 64 65 76 2f 6e | 75 6c 6c 20 2f 64 65 76 |" /dev/n|ull /dev|
|00001020| 2f 6e 75 6c 6c 22 20 22 | 67 72 65 70 2d 68 69 74 |/null" "|grep-hit|
|00001030| 73 22 5d 20 35 29 29 0a | 0a 28 64 65 66 76 61 72 |s"] 5)).|.(defvar|
|00001040| 20 67 72 65 70 2d 62 75 | 66 66 65 72 2d 72 65 67 | grep-bu|ffer-reg|
|00001050| 65 78 70 20 6e 69 6c 20 | 39 35 31 39 36 29 0a 0a |exp nil |95196)..|
|00001060| 28 64 65 66 75 6e 20 67 | 72 65 70 2d 62 75 66 66 |(defun g|rep-buff|
|00001070| 65 72 20 28 26 6f 70 74 | 69 6f 6e 61 6c 20 72 65 |er (&opt|ional re|
|00001080| 67 65 78 70 29 20 39 35 | 32 34 35 20 28 69 6e 74 |gexp) 95|245 (int|
|00001090| 65 72 61 63 74 69 76 65 | 29 20 28 6a 61 64 65 2d |eractive|) (jade-|
|000010a0| 62 79 74 65 2d 63 6f 64 | 65 20 22 18 fe 00 07 18 |byte-cod|e ".....|
|000010b0| 46 21 48 19 fe 00 0e 12 | 08 fe 00 69 44 13 08 34 |F!H.....|...iD..4|
|000010c0| 15 36 06 1e 07 4a 4b 36 | 08 16 09 1e 08 16 0a 0a |.6...JK6|........|
|000010d0| 48 16 0b 19 1c 0a 46 24 | fe 00 5b 16 0c 1e 08 16 |H.....F$|..[.....|
|000010e0| 0d 16 0e 08 16 0f 1c 09 | 16 10 16 11 1c 09 16 12 |........|........|
|000010f0| 1c 09 0a 0d 48 1e 06 16 | 13 56 26 06 16 12 1c 09 |....H...|.V&.....|
|00001100| 46 24 48 fb 00 26 48 16 | 14 1e 07 09 48 16 15 08 |F$H..&H.|....H...|
|00001110| 48 1e 06 45 22 20 5b 72 | 65 67 65 78 70 20 67 72 |H..E" [r|egexp gr|
|00001120| 65 70 2d 62 75 66 66 65 | 72 2d 72 65 67 65 78 70 |ep-buffe|r-regexp|
|00001130| 20 63 6f 6d 70 69 6c 65 | 2d 69 6e 69 74 20 62 75 | compile|-init bu|
|00001140| 66 66 65 72 2d 73 74 61 | 72 74 20 73 63 61 6e 70 |ffer-sta|rt scanp|
|00001150| 6f 73 20 30 20 6e 75 6d | 62 65 72 20 63 6f 6d 70 |os 0 num|ber comp|
|00001160| 69 6c 65 2d 62 75 66 66 | 65 72 20 73 74 72 65 61 |ile-buff|er strea|
|00001170| 6d 20 77 72 69 74 65 20 | 31 30 20 66 69 6e 64 2d |m write |10 find-|
|00001180| 6e 65 78 74 2d 72 65 67 | 65 78 70 20 66 6f 72 6d |next-reg|exp form|
|00001190| 61 74 20 22 25 73 3a 25 | 64 3a 25 73 0a 22 20 62 |at "%s:%|d:%s." b|
|000011a0| 75 66 66 65 72 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |uffer-fi|le-name |
|000011b0| 70 6f 73 2d 6c 69 6e 65 | 20 63 6f 70 79 2d 61 72 |pos-line| copy-ar|
|000011c0| 65 61 20 6c 69 6e 65 2d | 73 74 61 72 74 20 6c 69 |ea line-|start li|
|000011d0| 6e 65 2d 65 6e 64 20 31 | 20 67 6f 74 6f 2d 62 75 |ne-end 1| goto-bu|
|000011e0| 66 66 65 72 20 67 6f 74 | 6f 2d 62 75 66 66 65 72 |ffer got|o-buffer|
|000011f0| 2d 73 74 61 72 74 5d 20 | 39 29 29 0a |-start] |9)). |
+--------+-------------------------+-------------------------+--------+--------+
