Return to shell.cmd CVS log

Up to [MW Coherent from dump] / coherent / f / usr / lib

Annotation of coherent/f/usr/lib/shell.cmd, revision 1.1.1.1

1.1       root        1: ;      Shell.cmd:      MSDOS shell within MicroEMACS
                      2: ;                      written 1987 by Daniel Lawrence
                      3: 
                      4:        write-message "[Setting up SHELL window]"
                      5: 
                      6: store-procedure        getdir
                      7:        shell-command "cd > eshell"
                      8:        set %shtmp $cbufname
                      9:        !force delete-buffer eshell
                     10:        find-file eshell
                     11:        beginning-of-file
                     12:        set %shdir $line
                     13:        select-buffer %shtmp
                     14:        delete-buffer eshell
                     15: !endm
                     16: 
                     17: store-procedure prompt
                     18:        !if &not &equ $curcol 0
                     19:                newline
                     20:        !endif
                     21:        !if &not &seq $line ""
                     22:                open-line
                     23:        !endif
                     24:        insert-string &cat %shdir ">"
                     25: !endm
                     26: 
                     27: store-procedure getline
                     28:        beginning-of-line
                     29:        set %shtmp $curline
                     30:        !force search-forward ">"
                     31:        !if &not &equ $curline %shtmp
                     32:                set $curline %shtmp
                     33:        !endif
                     34:        !if &equ $curchar 10
                     35:                set %shline ""
                     36:        !else
                     37:                kill-to-end-of-line
                     38:                yank
                     39:                set %shline $kill
                     40:        !endif
                     41:        newline
                     42: !endm
                     43: 
                     44: store-procedure execline
                     45:        shell-command &cat %shline " > shtmp"
                     46:        !force insert-file shtmp
                     47: !endm
                     48: 
                     49: ;      prompt and execute a command
                     50: 
                     51: 4      store-macro
                     52:        run getline
                     53:        !if &not &seq %shline ""
                     54:                !if &or &seq &left %shline 2 "cd" &seq &right %shline 1 ":"
                     55:                        shell-command %shline
                     56:                        run getdir
                     57:                !else
                     58:                        run execline
                     59:                !endif
                     60:        !endif
                     61:        run prompt
                     62: !endm
                     63: 
                     64: store-procedure checkmode
                     65:        !if &and %shmode &not &seq $cbufname "[I-SHELL]"
                     66:                set $discmd FALSE
                     67:                bind-to-key newline ^M
                     68:                add-mode blue
                     69:                add-mode WHITE
                     70:                write-message "[Exiting Shell window]"
                     71:                set %shmode FALSE
                     72:                set $discmd TRUE
                     73:        !endif
                     74:        !if &and &not %shmode &seq $cbufname "[I-SHELL]"
                     75:                set $discmd FALSE
                     76:                write-message "[Entering Shell window]"
                     77:                bind-to-key execute-macro-4 ^M
                     78:                run getdir
                     79:                add-mode black
                     80:                add-mode GREEN
                     81:                end-of-file
                     82:                run prompt
                     83:                set %shmode TRUE
                     84:                set $discmd TRUE
                     85:        !endif
                     86: !endm
                     87: 
                     88: ;      window movement (and deactivate us)
                     89: 
                     90: 5      store-macro
                     91:        next-window
                     92:        run checkmode
                     93: !endm
                     94: 
                     95: 6      store-macro
                     96:        previous-window
                     97:        run checkmode
                     98: !endm
                     99: 
                    100: 7      store-macro
                    101:        delete-window
                    102:        run checkmode
                    103: !endm
                    104: 
                    105: 8      store-macro
                    106:        find-file @"Find file:"
                    107:        run checkmode
                    108: !endm
                    109: 
                    110: 9      store-macro
                    111:        next-buffer
                    112:        run checkmode
                    113: !endm
                    114: 
                    115: store-procedure openshell
                    116:        set $discmd FALSE
                    117:        bind-to-key execute-macro-5 ^XO
                    118:        bind-to-key execute-macro-6 ^XP
                    119:        bind-to-key execute-macro-7 ^X0
                    120:        bind-to-key execute-macro-8 ^X^F
                    121:        bind-to-key execute-macro-9 ^XX
                    122:        select-buffer "[I-SHELL]"
                    123:        run checkmode
                    124:        set $discmd TRUE
                    125: !endm
                    126: 
                    127:        set %shmode FALSE
                    128:        run openshell

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.