Return to func.cmd CVS log

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

Annotation of coherent/f/usr/lib/func.cmd, revision 1.1

1.1     ! root        1: ;      FUNC.CMD        Allow mainframes to simulate function
        !             2: ;                      keys with ^C<n> and ^C shifted-<n>
        !             3: ;                      Also allow the ` key to be META as well as ESC
        !             4: 
        !             5: bind-to-key execute-macro-21 ^C
        !             6: bind-to-key meta-prefix `
        !             7: 
        !             8: 21     store-macro
        !             9:        !if &not $pending
        !            10:                write-message "FN-"
        !            11:        !endif
        !            12:        set %rcchar &gtkey
        !            13:        set %rcchar &sindex "1234567890!@#$%^&*()" %rcchar
        !            14:        !if &equ %rcchar 0
        !            15:                write-message "[Not Bound]"
        !            16:                !return
        !            17:        !endif
        !            18:        clear-message-line
        !            19:        set %rctmp "FN"
        !            20:        !if &gre %rcchar 10
        !            21:                set %rctmp &cat "S-" %rctmp
        !            22:        !endif
        !            23:        set %rcchar &mid "12345678901234567890" %rcchar 1
        !            24:        execute-command-line &bind &cat %rctmp %rcchar
        !            25: !endm

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