DataMuseum.dk Presents historical artifacts from the history of: DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦442a5c2d7⟧

    Length: 2255 (0x8cf)
    Names: »vmsproc.elc«

Derivation

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/vmsproc.elc« 

Hex Dump

0x000…020 0a 28 64 65 66 76 61 72 20 64 69 73 70 6c 61 79 2d 73 75 62 70 72 6f 63 65 73 73 2d 77 69 6e 64   ┆ (defvar display-subprocess-wind┆
0x020…040 6f 77 20 6e 69 6c 20 22 5c 0a 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20 73 75 70 72 6f 63   ┆ow nil "\ If non-nil, the suproc┆
0x040…060 65 73 73 20 77 69 6e 64 6f 77 20 69 73 20 64 69 73 70 6c 61 79 65 64 20 77 68 65 6e 65 76 65 72   ┆ess window is displayed whenever┆
0x060…080 20 69 6e 70 75 74 20 69 73 20 72 65 63 65 69 76 65 64 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63   ┆ input is received.")  (defvar c┆
0x080…0a0 6f 6d 6d 61 6e 64 2d 70 72 65 66 69 78 2d 73 74 72 69 6e 67 20 22 24 20 22 20 22 5c 0a 53 74 72   ┆ommand-prefix-string "$ " "\ Str┆
0x0a0…0c0 69 6e 67 20 74 6f 20 69 6e 73 65 72 74 20 74 6f 20 64 69 73 74 69 6e 67 75 69 73 68 20 63 6f 6d   ┆ing to insert to distinguish com┆
0x0c0…0e0 6d 61 6e 64 73 20 65 6e 74 65 72 65 64 20 62 79 20 75 73 65 72 2e 22 29 0a 0a 28 64 65 66 76 61   ┆mands entered by user.")  (defva┆
0x0e0…100 72 20 73 75 62 70 72 6f 63 65 73 73 2d 72 75 6e 6e 69 6e 67 20 6e 69 6c 29 0a 0a 28 64 65 66 76   ┆r subprocess-running nil)  (defv┆
0x100…120 61 72 20 63 6f 6d 6d 61 6e 64 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 69 66 20 63 6f   ┆ar command-mode-map nil)  (if co┆
0x120…140 6d 6d 61 6e 64 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 28 73 65 74 71 20 63 6f 6d 6d 61 6e 64   ┆mmand-mode-map nil (setq command┆
0x140…160 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 20   ┆-mode-map (make-sparse-keymap)) ┆
0x160…180 28 64 65 66 69 6e 65 2d 6b 65 79 20 63 6f 6d 6d 61 6e 64 2d 6d 6f 64 65 2d 6d 61 70 20 22 0d 22   ┆(define-key command-mode-map " "┆
0x180…1a0 20 28 71 75 6f 74 65 20 63 6f 6d 6d 61 6e 64 2d 73 65 6e 64 2d 69 6e 70 75 74 29 29 20 28 64 65   ┆ (quote command-send-input)) (de┆
0x1a0…1c0 66 69 6e 65 2d 6b 65 79 20 63 6f 6d 6d 61 6e 64 2d 6d 6f 64 65 2d 6d 61 70 20 22 15 22 20 28 71   ┆fine-key command-mode-map " " (q┆
0x1c0…1e0 75 6f 74 65 20 63 6f 6d 6d 61 6e 64 2d 6b 69 6c 6c 2d 6c 69 6e 65 29 29 29 0a 0a 28 64 65 66 75   ┆uote command-kill-line)))  (defu┆
0x1e0…200 6e 20 73 75 62 70 72 6f 63 65 73 73 2d 69 6e 70 75 74 20 28 6e 61 6d 65 20 73 74 72 29 20 22 5c   ┆n subprocess-input (name str) "\┆
0x200…220 0a 48 61 6e 64 6c 65 73 20 69 6e 70 75 74 20 66 72 6f 6d 20 61 20 73 75 62 70 72 6f 63 65 73 73   ┆ Handles input from a subprocess┆
0x220…240 2e 20 20 43 61 6c 6c 65 64 20 62 79 20 45 6d 61 63 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20   ┆.  Called by Emacs." (byte-code ┆
0x240…260 22 08 85 07 00 c4 09 21 88 70 1a 09 71 88 64 62 88 0b 63 88 c5 63 88 0a 71 29 87 22 20 5b 64 69   ┆"      ! p  q db  c  c  q) " [di┆
0x260…280 73 70 6c 61 79 2d 73 75 62 70 72 6f 63 65 73 73 2d 77 69 6e 64 6f 77 20 73 75 62 70 72 6f 63 65   ┆splay-subprocess-window subproce┆
0x280…2a0 73 73 2d 62 75 66 20 6f 6c 64 2d 62 75 66 66 65 72 20 73 74 72 20 64 69 73 70 6c 61 79 2d 62 75   ┆ss-buf old-buffer str display-bu┆
0x2a0…2c0 66 66 65 72 20 31 30 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 73 75 62 70 72 6f 63 65 73 73 2d   ┆ffer 10] 2))  (defun subprocess-┆
0x2c0…2e0 65 78 69 74 20 28 6e 61 6d 65 29 20 22 5c 0a 43 61 6c 6c 65 64 20 62 79 20 45 6d 61 63 73 20 75   ┆exit (name) "\ Called by Emacs u┆
0x2e0…300 70 6f 6e 20 73 75 62 70 72 6f 63 65 73 73 20 65 78 69 74 2e 22 20 28 62 79 74 65 2d 63 6f 64 65   ┆pon subprocess exit." (byte-code┆
0x300…320 20 22 c1 89 10 87 22 20 5b 73 75 62 70 72 6f 63 65 73 73 2d 72 75 6e 6e 69 6e 67 20 6e 69 6c 5d   ┆ "    " [subprocess-running nil]┆
0x320…340 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 73 74 61 72 74 2d 73 75 62 70 72 6f 63 65 73 73 20 6e 69   ┆ 2))  (defun start-subprocess ni┆
0x340…360 6c 20 22 5c 0a 53 70 61 77 6e 73 20 61 6e 20 61 73 79 6e 63 68 72 6f 6e 6f 75 73 20 73 75 62 70   ┆l "\ Spawns an asynchronous subp┆
0x360…380 72 6f 63 65 73 73 20 77 69 74 68 20 6f 75 74 70 75 74 20 72 65 64 69 72 65 63 74 65 64 20 74 6f   ┆rocess with output redirected to┆
0x380…3a0 0a 74 68 65 20 62 75 66 66 65 72 20 2a 43 4f 4d 4d 41 4e 44 2a 2e 20 20 57 69 74 68 69 6e 20 74   ┆ the buffer *COMMAND*.  Within t┆
0x3a0…3c0 68 69 73 20 62 75 66 66 65 72 2c 20 75 73 65 20 43 2d 6d 20 74 6f 20 73 65 6e 64 0a 74 68 65 20   ┆his buffer, use C-m to send the ┆
0x3c0…3e0 6c 61 73 74 20 6c 69 6e 65 20 74 6f 20 74 68 65 20 73 75 62 70 72 6f 63 65 73 73 20 6f 72 20 74   ┆last line to the subprocess or t┆
0x3e0…400 6f 20 62 72 69 6e 67 20 61 6e 6f 74 68 65 72 20 6c 69 6e 65 20 74 6f 0a 74 68 65 20 65 6e 64 2e   ┆o bring another line to the end.┆
0x400…420 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 85 07 00 c4 c1 21 88 c5 c6 21 89 12 88 8a 0a 71 88   ┆" (byte-code "      !   !     q ┆
0x420…440 c7 0b 21 29 88 c8 c9 ca cb 23 89 10 88 08 85 27 00 cc c9 cd 5c 22 87 22 20 5b 73 75 62 70 72 6f   ┆  !)     #     '    \" " [subpro┆
0x440…460 63 65 73 73 2d 72 75 6e 6e 69 6e 67 20 74 20 73 75 62 70 72 6f 63 65 73 73 2d 62 75 66 20 63 6f   ┆cess-running t subprocess-buf co┆
0x460…480 6d 6d 61 6e 64 2d 6d 6f 64 65 2d 6d 61 70 20 72 65 74 75 72 6e 20 67 65 74 2d 62 75 66 66 65 72   ┆mmand-mode-map return get-buffer┆
0x480…4a0 2d 63 72 65 61 74 65 20 22 2a 43 4f 4d 4d 41 4e 44 2a 22 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61   ┆-create "*COMMAND*" use-local-ma┆
0x4a0…4c0 70 20 73 70 61 77 6e 2d 73 75 62 70 72 6f 63 65 73 73 20 31 20 73 75 62 70 72 6f 63 65 73 73 2d   ┆p spawn-subprocess 1 subprocess-┆
0x4c0…4e0 69 6e 70 75 74 20 73 75 62 70 72 6f 63 65 73 73 2d 65 78 69 74 20 73 65 6e 64 2d 63 6f 6d 6d 61   ┆input subprocess-exit send-comma┆
0x4e0…500 6e 64 2d 74 6f 2d 73 75 62 70 72 6f 63 65 73 73 20 22 4f 4e 20 53 45 56 45 52 45 5f 45 52 52 4f   ┆nd-to-subprocess "ON SEVERE_ERRO┆
0x500…520 52 20 54 48 45 4e 20 43 4f 4e 54 49 4e 55 45 22 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 73 75   ┆R THEN CONTINUE"] 7))  (defun su┆
0x520…540 62 70 72 6f 63 65 73 73 2d 63 6f 6d 6d 61 6e 64 20 6e 69 6c 20 22 5c 0a 53 74 61 72 74 73 20 61   ┆bprocess-command nil "\ Starts a┆
0x540…560 73 79 6e 63 68 72 6f 6e 6f 75 73 20 73 75 62 70 72 6f 63 65 73 73 20 69 66 20 6e 6f 74 20 72 75   ┆synchronous subprocess if not ru┆
0x560…580 6e 6e 69 6e 67 20 61 6e 64 20 73 77 69 74 63 68 65 73 20 74 6f 20 69 74 73 20 77 69 6e 64 6f 77   ┆nning and switches to its window┆
0x580…5a0 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 08   ┆." (interactive) (byte-code "   ┆
0x5a0…5c0 3f 85 09 00 c3 20 88 08 85 14 00 c4 09 21 88 64 62 87 22 20 5b 73 75 62 70 72 6f 63 65 73 73 2d   ┆?            ! db " [subprocess-┆
0x5c0…5e0 72 75 6e 6e 69 6e 67 20 73 75 62 70 72 6f 63 65 73 73 2d 62 75 66 20 6e 69 6c 20 73 74 61 72 74   ┆running subprocess-buf nil start┆
0x5e0…600 2d 73 75 62 70 72 6f 63 65 73 73 20 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 5d 20 33 29 29 0a 0a   ┆-subprocess pop-to-buffer] 3))  ┆
0x600…620 28 64 65 66 75 6e 20 63 6f 6d 6d 61 6e 64 2d 73 65 6e 64 2d 69 6e 70 75 74 20 6e 69 6c 20 22 5c   ┆(defun command-send-input nil "\┆
0x620…640 0a 49 66 20 61 74 20 6c 61 73 74 20 6c 69 6e 65 20 6f 66 20 62 75 66 66 65 72 2c 20 73 65 6e 64   ┆ If at last line of buffer, send┆
0x640…660 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 74 6f 0a 74 68 65 20 73 70 61 77 6e 65   ┆s the current line to the spawne┆
0x660…680 64 20 73 75 62 70 72 6f 63 65 73 73 2e 20 20 4f 74 68 65 72 77 69 73 65 20 62 72 69 6e 67 73 20   ┆d subprocess.  Otherwise brings ┆
0x680…6a0 62 61 63 6b 20 63 75 72 72 65 6e 74 0a 6c 69 6e 65 20 74 6f 20 74 68 65 20 6c 61 73 74 20 6c 69   ┆back current line to the last li┆
0x6a0…6c0 6e 65 20 66 6f 72 20 72 65 73 75 62 6d 69 73 73 69 6f 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 69   ┆ne for resubmission." (interacti┆
0x6c0…6e0 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 20 88 c5 60 c6 20 88 60 5c 22 18 6d 83   ┆ve) (byte-code "      `   `\" m ┆
0x6e0…700 35 00 09 3f 85 18 00 c7 20 88 09 85 32 00 c4 20 88 c8 c9 08 5c 22 88 0a 85 2e 00 c4 20 88 0a 63   ┆5  ?        2       \"   .     c┆
0x700…720 88 ca c9 21 82 55 00 cb 20 88 cc 20 88 ca c9 21 88 cd 0a 08 ce 0a 47 4f 5c 22 83 53 00 08 0a 47   ┆   ! U         !      GO\" S   G┆
0x720…740 c3 4f 63 82 55 00 08 63 29 87 22 20 5b 63 75 72 72 65 6e 74 2d 6c 69 6e 65 20 73 75 62 70 72 6f   ┆ Oc U  c) " [current-line subpro┆
0x740…760 63 65 73 73 2d 72 75 6e 6e 69 6e 67 20 63 6f 6d 6d 61 6e 64 2d 70 72 65 66 69 78 2d 73 74 72 69   ┆cess-running command-prefix-stri┆
0x760…780 6e 67 20 6e 69 6c 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 62 75 66 66 65 72 2d   ┆ng nil beginning-of-line buffer-┆
0x780…7a0 73 75 62 73 74 72 69 6e 67 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 73 74 61 72 74 2d 73 75 62 70   ┆substring end-of-line start-subp┆
0x7a0…7c0 72 6f 63 65 73 73 20 73 65 6e 64 2d 63 6f 6d 6d 61 6e 64 2d 74 6f 2d 73 75 62 70 72 6f 63 65 73   ┆rocess send-command-to-subproces┆
0x7c0…7e0 73 20 31 20 6e 65 78 74 2d 6c 69 6e 65 20 65 6e 64 2d 6f 66 2d 62 75 66 66 65 72 20 62 61 63 6b   ┆s 1 next-line end-of-buffer back┆
0x7e0…800 77 61 72 64 2d 63 68 61 72 20 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 30 5d 20 31 36 29 29 0a 0a   ┆ward-char string-equal 0] 16))  ┆
0x800…820 28 64 65 66 75 6e 20 63 6f 6d 6d 61 6e 64 2d 6b 69 6c 6c 2d 6c 69 6e 65 20 6e 69 6c 20 22 5c 0a   ┆(defun command-kill-line nil "\ ┆
0x820…840 4b 69 6c 6c 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 2e 20 20 55 73 65 64 20 69 6e   ┆Kills the current line.  Used in┆
0x840…860 20 63 6f 6d 6d 61 6e 64 20 6d 6f 64 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62   ┆ command mode." (interactive) (b┆
0x860…880 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 20 88 c2 20 87 22 20 5b 6e 69 6c 20 62 65 67 69 6e 6e 69   ┆yte-code "        " [nil beginni┆
0x880…8a0 6e 67 2d 6f 66 2d 6c 69 6e 65 20 6b 69 6c 6c 2d 6c 69 6e 65 5d 20 33 29 29 0a 0a 28 64 65 66 69   ┆ng-of-line kill-line] 3))  (defi┆
0x8a0…8c0 6e 65 2d 6b 65 79 20 65 73 63 2d 6d 61 70 20 22 24 22 20 28 71 75 6f 74 65 20 73 75 62 70 72 6f   ┆ne-key esc-map "$" (quote subpro┆
0x8c0…8cf 63 65 73 73 2d 63 6f 6d 6d 61 6e 64 29 29 0a   ┆cess-command)) ┆