/ Amiga Tools 5 / Amiga Tools 5.iso / internet-tools / amitcp / amitcp-2.2 / appl / emacstcp / lisp / background.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 3b 3b 20 63 6f 6d 70 | 69 6c 65 64 20 62 79 20 |;;; comp|iled by |
|00000010| 6a 72 61 6a 61 40 6c 6b | 2d 68 70 2d 31 31 20 6f |jraja@lk|-hp-11 o|
|00000020| 6e 20 46 72 69 20 4e 6f | 76 20 31 32 20 30 38 3a |n Fri No|v 12 08:|
|00000030| 34 31 3a 34 32 20 31 39 | 39 33 0a 3b 3b 3b 20 66 |41:42 19|93.;;; f|
|00000040| 72 6f 6d 20 66 69 6c 65 | 20 2f 75 2f 6f 70 69 2f |rom file| /u/opi/|
|00000050| 38 36 2f 6a 72 61 6a 61 | 2f 6f 68 74 61 74 63 70 |86/jraja|/ohtatcp|
|00000060| 2f 61 6d 69 74 63 70 2f | 73 72 63 2f 61 70 70 6c |/amitcp/|src/appl|
|00000070| 2f 45 6d 61 63 73 54 63 | 70 2f 73 72 63 2f 62 61 |/EmacsTc|p/src/ba|
|00000080| 63 6b 67 72 6f 75 6e 64 | 2e 65 6c 0a 3b 3b 3b 20 |ckground|.el.;;; |
|00000090| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 31 38 |emacs ve|rsion 18|
|000000a0| 2e 35 38 2e 36 2e 0a 3b | 3b 3b 20 62 79 74 65 63 |.58.6..;|;; bytec|
|000000b0| 6f 6d 70 20 76 65 72 73 | 69 6f 6e 20 32 2e 30 37 |omp vers|ion 2.07|
|000000c0| 3b 20 31 35 2d 6a 75 6c | 2d 39 32 2e 0a 3b 3b 3b |; 15-jul|-92..;;;|
|000000d0| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|000000e0| 20 6f 6e 3b 20 63 6f 6d | 70 69 6c 65 64 20 77 69 | on; com|piled wi|
|000000f0| 74 68 20 65 6d 61 63 73 | 31 38 20 63 6f 6d 70 61 |th emacs|18 compa|
|00000100| 74 69 62 69 6c 69 74 79 | 2e 0a 0a 28 64 65 66 76 |tibility|...(defv|
|00000110| 61 72 20 62 61 63 6b 67 | 72 6f 75 6e 64 2d 73 68 |ar backg|round-sh|
|00000120| 6f 77 20 74 20 22 5c 0a | 2a 49 66 20 6e 6f 6e 2d |ow t "\.|*If non-|
|00000130| 6e 69 6c 2c 20 62 61 63 | 6b 67 72 6f 75 6e 64 20 |nil, bac|kground |
|00000140| 6a 6f 62 73 27 20 62 75 | 66 66 65 72 73 20 61 72 |jobs' bu|ffers ar|
|00000150| 65 20 73 68 6f 77 6e 20 | 77 68 65 6e 20 74 68 65 |e shown |when the|
|00000160| 79 27 72 65 20 73 74 61 | 72 74 65 64 2e 22 29 0a |y're sta|rted.").|
|00000170| 28 64 65 66 76 61 72 20 | 62 61 63 6b 67 72 6f 75 |(defvar |backgrou|
|00000180| 6e 64 2d 73 65 6c 65 63 | 74 20 6e 69 6c 20 22 5c |nd-selec|t nil "\|
|00000190| 0a 2a 49 66 20 6e 6f 6e | 2d 6e 69 6c 2c 20 62 61 |.*If non|-nil, ba|
|000001a0| 63 6b 67 72 6f 75 6e 64 | 20 6a 6f 62 73 27 20 62 |ckground| jobs' b|
|000001b0| 75 66 66 65 72 73 20 61 | 72 65 20 73 65 6c 65 63 |uffers a|re selec|
|000001c0| 74 65 64 20 77 68 65 6e | 20 74 68 65 79 27 72 65 |ted when| they're|
|000001d0| 20 73 74 61 72 74 65 64 | 2e 22 29 0a 28 62 79 74 | started|.").(byt|
|000001e0| 65 2d 63 6f 64 65 20 22 | c0 c1 21 88 c2 0b c4 c5 |e-code "|..!.....|
|000001f0| 23 88 c2 0b c6 c7 23 87 | 22 20 5b 72 65 71 75 69 |#.....#.|" [requi|
|00000200| 72 65 20 73 68 65 6c 6c | 20 64 65 66 69 6e 65 2d |re shell| define-|
|00000210| 6b 65 79 20 73 68 65 6c | 6c 2d 6d 6f 64 65 2d 6d |key shel|l-mode-m|
|00000220| 61 70 20 22 03 06 22 20 | 63 6f 6e 74 69 6e 75 65 |ap ".." |continue|
|00000230| 2d 73 68 65 6c 6c 2d 73 | 75 62 6a 6f 62 20 22 03 |-shell-s|ubjob ".|
|00000240| 0b 22 20 6b 69 6c 6c 2d | 73 68 65 6c 6c 2d 73 75 |." kill-|shell-su|
|00000250| 62 6a 6f 62 5d 20 34 29 | 0a 28 64 65 66 75 6e 20 |bjob] 4)|.(defun |
|00000260| 63 6f 6e 74 69 6e 75 65 | 2d 73 68 65 6c 6c 2d 73 |continue|-shell-s|
|00000270| 75 62 6a 6f 62 20 6e 69 | 6c 20 22 5c 0a 43 6f 6e |ubjob ni|l "\.Con|
|00000280| 74 69 6e 75 65 20 74 68 | 69 73 20 73 68 65 6c 6c |tinue th|is shell|
|00000290| 27 73 20 63 75 72 72 65 | 6e 74 20 73 75 62 6a 6f |'s curre|nt subjo|
|000002a0| 62 2e 22 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |b." (int|eractive|
|000002b0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |) (byte-|code "..|
|000002c0| c2 5c 22 87 22 20 5b 63 | 6f 6e 74 69 6e 75 65 2d |.\"." [c|ontinue-|
|000002d0| 70 72 6f 63 65 73 73 20 | 6e 69 6c 20 74 5d 20 33 |process |nil t] 3|
|000002e0| 29 29 0a 28 64 65 66 75 | 6e 20 62 61 63 6b 67 72 |)).(defu|n backgr|
|000002f0| 6f 75 6e 64 20 28 63 6f | 6d 6d 61 6e 64 29 20 22 |ound (co|mmand) "|
|00000300| 5c 0a 52 75 6e 20 43 4f | 4d 4d 41 4e 44 20 69 6e |\.Run CO|MMAND in|
|00000310| 20 74 68 65 20 62 61 63 | 6b 67 72 6f 75 6e 64 20 | the bac|kground |
|00000320| 6c 69 6b 65 20 63 73 68 | 2e 20 20 41 20 6d 65 73 |like csh|.  A mes|
|00000330| 73 61 67 65 20 69 73 20 | 64 69 73 70 6c 61 79 65 |sage is |displaye|
|00000340| 64 20 77 68 65 6e 0a 74 | 68 65 20 6a 6f 62 20 73 |d when.t|he job s|
|00000350| 74 61 72 74 73 20 61 6e | 64 20 66 69 6e 69 73 68 |tarts an|d finish|
|00000360| 65 73 2e 20 20 54 68 65 | 20 62 75 66 66 65 72 20 |es.  The| buffer |
|00000370| 69 73 20 69 6e 20 73 68 | 65 6c 6c 20 6d 6f 64 65 |is in sh|ell mode|
|00000380| 2c 20 73 6f 20 61 6d 6f | 6e 67 0a 6f 74 68 65 72 |, so amo|ng.other|
|00000390| 20 74 68 69 6e 67 73 20 | 79 6f 75 20 63 61 6e 20 | things |you can |
|000003a0| 63 6f 6e 74 72 6f 6c 20 | 74 68 65 20 6a 6f 62 20 |control |the job |
|000003b0| 61 6e 64 20 73 65 6e 64 | 20 69 6e 70 75 74 20 74 |and send| input t|
|000003c0| 6f 20 69 74 2e 20 20 54 | 68 65 0a 70 72 6f 63 65 |o it.  T|he.proce|
|000003d0| 73 73 20 6f 62 6a 65 63 | 74 20 69 73 20 72 65 74 |ss objec|t is ret|
|000003e0| 75 72 6e 65 64 20 69 66 | 20 61 6e 79 6f 6e 65 20 |urned if| anyone |
|000003f0| 63 61 72 65 73 2e 20 20 | 53 65 65 20 61 6c 73 6f |cares.  |See also|
|00000400| 20 73 68 65 6c 6c 2d 6d | 6f 64 65 20 61 6e 64 0a | shell-m|ode and.|
|00000410| 74 68 65 20 76 61 72 69 | 61 62 6c 65 73 20 62 61 |the vari|ables ba|
|00000420| 63 6b 67 72 6f 75 6e 64 | 2d 73 68 6f 77 20 61 6e |ckground|-show an|
|00000430| 64 20 62 61 63 6b 67 72 | 6f 75 6e 64 2d 73 65 6c |d backgr|ound-sel|
|00000440| 65 63 74 2e 22 20 28 69 | 6e 74 65 72 61 63 74 69 |ect." (i|nteracti|
|00000450| 76 65 20 22 73 25 25 20 | 22 29 20 28 62 79 74 65 |ve "s%% |") (byte|
|00000460| 2d 63 6f 64 65 20 22 c0 | 19 c2 1b c4 0b 21 83 14 |-code ".|.....!..|
|00000470| 00 c5 09 54 89 11 50 13 | 82 04 00 c6 c7 0e 08 5c |...T..P.|.......\|
|00000480| 22 83 35 00 c9 ca 0e 08 | cb c0 21 cc c0 21 4f 21 |".5.....|..!..!O!|
|00000490| 21 0e 08 cc cd 21 ce 4f | 16 08 82 37 00 0e 0f 0e |!....!.O|...7....|
|000004a0| 10 83 43 00 d1 0b 21 88 | 82 52 00 0e 12 83 4d 00 |..C...!.|.R....M.|
|000004b0| 0b 90 ce 91 88 d3 0b 21 | 71 88 16 0f d4 0b 89 0e |.......!|q.......|
|000004c0| 15 d6 0e 08 25 29 1e 17 | d8 d9 09 da 0e 17 21 23 |....%)..|......!#|
|000004d0| 88 db 20 88 dc 63 88 0e | 0f 63 88 dd 63 88 0e 08 |.. ..c..|.c..c...|
|000004e0| 63 88 de 63 88 df e0 0e | 17 21 60 5c 22 88 e1 0e |c..c....|.!`\"...|
|000004f0| 17 e2 5c 22 88 e3 20 88 | e4 16 25 0e 17 2a 87 22 |..\".. .|..%..*."|
|00000500| 20 5b 31 20 6a 6f 62 2d | 6e 75 6d 62 65 72 20 22 | [1 job-|number "|
|00000510| 25 31 22 20 6a 6f 62 2d | 6e 61 6d 65 20 70 72 6f |%1" job-|name pro|
|00000520| 63 65 73 73 2d 73 74 61 | 74 75 73 20 22 25 22 20 |cess-sta|tus "%" |
|00000530| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 5e 63 |string-m|atch "^c|
|00000540| 64 5b 09 20 5d 2b 5c 5c | 28 5b 5e 09 20 3b 5d 2b |d[. ]+\\|([^. ;]+|
|00000550| 5c 5c 29 5b 09 20 5d 2a | 3b 5b 09 20 5d 2a 22 20 |\\)[. ]*|;[. ]*" |
|00000560| 63 6f 6d 6d 61 6e 64 20 | 66 69 6c 65 2d 6e 61 6d |command |file-nam|
|00000570| 65 2d 61 73 2d 64 69 72 | 65 63 74 6f 72 79 20 65 |e-as-dir|ectory e|
|00000580| 78 70 61 6e 64 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |xpand-fi|le-name |
|00000590| 6d 61 74 63 68 2d 62 65 | 67 69 6e 6e 69 6e 67 20 |match-be|ginning |
|000005a0| 6d 61 74 63 68 2d 65 6e | 64 20 30 20 6e 69 6c 20 |match-en|d 0 nil |
|000005b0| 64 65 66 61 75 6c 74 2d | 64 69 72 65 63 74 6f 72 |default-|director|
|000005c0| 79 20 62 61 63 6b 67 72 | 6f 75 6e 64 2d 73 65 6c |y backgr|ound-sel|
|000005d0| 65 63 74 20 70 6f 70 2d | 74 6f 2d 62 75 66 66 65 |ect pop-|to-buffe|
|000005e0| 72 20 62 61 63 6b 67 72 | 6f 75 6e 64 2d 73 68 6f |r backgr|ound-sho|
|000005f0| 77 20 67 65 74 2d 62 75 | 66 66 65 72 2d 63 72 65 |w get-bu|ffer-cre|
|00000600| 61 74 65 20 73 74 61 72 | 74 2d 70 72 6f 63 65 73 |ate star|t-proces|
|00000610| 73 20 73 68 65 6c 6c 2d | 66 69 6c 65 2d 6e 61 6d |s shell-|file-nam|
|00000620| 65 20 22 2d 63 22 20 70 | 72 6f 63 65 73 73 20 6d |e "-c" p|rocess m|
|00000630| 65 73 73 61 67 65 20 22 | 5b 25 64 5d 20 25 64 22 |essage "|[%d] %d"|
|00000640| 20 70 72 6f 63 65 73 73 | 2d 69 64 20 65 72 61 73 | process|-id eras|
|00000650| 65 2d 62 75 66 66 65 72 | 20 22 25 20 63 64 20 22 |e-buffer| "% cd "|
|00000660| 20 22 5c 6e 25 20 22 20 | 31 30 20 73 65 74 2d 6d | "\n% " |10 set-m|
|00000670| 61 72 6b 65 72 20 70 72 | 6f 63 65 73 73 2d 6d 61 |arker pr|ocess-ma|
|00000680| 72 6b 20 73 65 74 2d 70 | 72 6f 63 65 73 73 2d 73 |rk set-p|rocess-s|
|00000690| 65 6e 74 69 6e 65 6c 20 | 62 61 63 6b 67 72 6f 75 |entinel |backgrou|
|000006a0| 6e 64 2d 73 65 6e 74 69 | 6e 65 6c 20 73 68 65 6c |nd-senti|nel shel|
|000006b0| 6c 2d 6d 6f 64 65 20 22 | 42 61 63 6b 67 72 6f 75 |l-mode "|Backgrou|
|000006c0| 6e 64 22 20 6d 6f 64 65 | 2d 6e 61 6d 65 5d 20 36 |nd" mode|-name] 6|
|000006d0| 29 29 0a 28 64 65 66 75 | 6e 20 62 61 63 6b 67 72 |)).(defu|n backgr|
|000006e0| 6f 75 6e 64 2d 73 65 6e | 74 69 6e 65 6c 20 28 70 |ound-sen|tinel (p|
|000006f0| 72 6f 63 65 73 73 20 6d | 73 67 29 20 22 5c 0a 43 |rocess m|sg) "\.C|
|00000700| 61 6c 6c 65 64 20 77 68 | 65 6e 20 61 20 62 61 63 |alled wh|en a bac|
|00000710| 6b 67 72 6f 75 6e 64 20 | 6a 6f 62 20 63 68 61 6e |kground |job chan|
|00000720| 67 65 73 20 73 74 61 74 | 65 2e 22 20 28 62 79 74 |ges stat|e." (byt|
|00000730| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 0b 21 c4 c5 4f |e-code "|....!..O|
|00000740| c6 0e 07 c8 5c 22 83 14 | 00 c9 82 3f 00 ca cb 0e |....\"..|...?....|
|00000750| 07 5c 22 83 26 00 cc 0e | 07 cd ce 4f 50 82 3f 00 |.\".&...|...OP.?.|
|00000760| 0e 07 47 cf 55 83 32 00 | d0 82 3f 00 d1 0e 07 cf |..G.U.2.|..?.....|
|00000770| c4 4f 21 0e 07 c4 ce 4f | 50 89 16 07 d2 d3 0b 21 |.O!....O|P......!|
|00000780| 38 24 88 d4 d5 0b 21 21 | 83 7e 00 d6 0b 21 d7 3e |8$....!!|.~...!.>|
|00000790| 85 82 00 70 d5 0b 21 71 | 88 6d 8a 64 62 88 d8 d9 |...p..!q|.m.db...|
|000007a0| 0e 07 da db 20 dc dd 4f | d9 25 88 29 83 78 00 64 |.... ..O|.%.).x.d|
|000007b0| 62 88 de c5 21 88 71 87 | df 0b c5 5c 22 87 22 20 |b...!.q.|...\"." |
|000007c0| 5b 6d 65 73 73 61 67 65 | 20 22 5b 25 73 5d 20 25 |[message| "[%s] %|
|000007d0| 73 20 25 73 22 20 70 72 | 6f 63 65 73 73 2d 6e 61 |s %s" pr|ocess-na|
|000007e0| 6d 65 20 70 72 6f 63 65 | 73 73 20 31 20 6e 69 6c |me proce|ss 1 nil|
|000007f0| 20 73 74 72 69 6e 67 3d | 20 6d 73 67 20 22 66 69 | string=| msg "fi|
|00000800| 6e 69 73 68 65 64 5c 6e | 22 20 22 44 6f 6e 65 22 |nished\n|" "Done"|
|00000810| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 5e | string-|match "^|
|00000820| 65 78 69 74 65 64 22 20 | 22 45 78 69 74 20 22 20 |exited" |"Exit " |
|00000830| 32 38 20 2d 31 20 30 20 | 22 43 6f 6e 74 69 6e 75 |28 -1 0 |"Continu|
|00000840| 69 6e 67 22 20 75 70 63 | 61 73 65 20 32 20 70 72 |ing" upc|ase 2 pr|
|00000850| 6f 63 65 73 73 2d 63 6f | 6d 6d 61 6e 64 20 62 75 |ocess-co|mmand bu|
|00000860| 66 66 65 72 2d 6e 61 6d | 65 20 70 72 6f 63 65 73 |ffer-nam|e proces|
|00000870| 73 2d 62 75 66 66 65 72 | 20 70 72 6f 63 65 73 73 |s-buffer| process|
|00000880| 2d 73 74 61 74 75 73 20 | 28 73 69 67 6e 61 6c 20 |-status |(signal |
|00000890| 65 78 69 74 29 20 69 6e | 73 65 72 74 20 31 30 20 |exit) in|sert 10 |
|000008a0| 33 32 20 63 75 72 72 65 | 6e 74 2d 74 69 6d 65 2d |32 curre|nt-time-|
|000008b0| 73 74 72 69 6e 67 20 31 | 31 20 31 39 20 73 65 74 |string 1|1 19 set|
|000008c0| 2d 62 75 66 66 65 72 2d | 6d 6f 64 69 66 69 65 64 |-buffer-|modified|
|000008d0| 2d 70 20 73 65 74 2d 70 | 72 6f 63 65 73 73 2d 62 |-p set-p|rocess-b|
|000008e0| 75 66 66 65 72 5d 20 39 | 29 29 0a                |uffer] 9|)).     |
+--------+-------------------------+-------------------------+--------+--------+